Sonraki Sayfa
Copyright © 2004-2022 SQL: 1.627 saniye - Sorgu: 104 - Ortalama: 0.01564 saniye
 |
 |
 |
 |
|
|
|
|
26.12.2011 14:20
atillaözel6666 
|
|
nktl fonksiyonunu nasıl kullanacağım anlayamadım...pct yi kullanıyorum harika bişey olmuş emeğinize sağlık ..
|
|
27.12.2011 09:47
atillaözel6666
|
|
nktl fonksiyonunu nasıl kullanacağım anlayamadım...pct yi kullanıyorum harika bişey olmuş emeğinize sağlık .. fonksiyon nasıl çalışıyor autocadle birlikte nasıl kullanılıyor anlamıyorum...
|
|
27.12.2011 10:47
doygun77
|
Alıntı noktalama yapacagın projeyi koordinatlı olarak yeni bir sayfa açarak kopyala kolon aplikasyon harici bütün tarama ve layer leri kapat akslar dahil ! (ekranda sadece noktalanacak objeler kalsın) yeni bir layer aç NKTL çalıştır ekrandaki noktalanacak bütün objeleri seç enter bütün köşe ve kırıklar noktalandı. teyit için format / point style / nokta büyüklüğü ve nokta tercihlerini secip noktaları rahatlıkla görebilirsin. PCT (nasıl kullanıldığını biliyorsun )çalıştır ve bütün aplikasyon koordinatları hazır :) pct için yine yeni bir layer açıp kullanman daha avantılı olabilir. Nokta mesafeleri yakın ise PCT yazıları nokta üzerine atmadığı için kaydırmalar yapman gerekebilir. Nokta yerini yanlış okuyabilirsin... aplikasyon planını hazırlayınca bloklayıp koordinaatlı olarak orjinal proje üzerine atabilirsin.
|
|
27.12.2011 13:35
atillaözel6666
|
|
nktl fonksiyonunu bulamadım hala.. yardımcı olurmusunuz
|
|
27.12.2011 18:07
doygun77
|
Alıntı 67076 nolu iletideki NKTL komut fonksiyonlarını kopyala yapıştır yapıp not defterine kaydedin dosyayı kaydederken dosya isminin sonuna .LSP (örnek NKTL.LSP ) yazıp dosyayı kaydedin lispniz hazır autoacad icerisine atıp veya applications menüsünden kullanabilirsiniz..
|
|
28.12.2011 06:53
atillaözel6666
|
|
doygun77 ilgilendiğin için teşekkür ederim... gerçekten çok güzel bi lisp olmuş...işimizi hızlandıracak bişey bu...sana ve lispi hazırlayan şahin beye(prohibit).. teşekkür ederim..
|
|
28.12.2011 20:11
 ProhibiT
|
|
Son zamanlarda daha da sıklaşan yurtdışı seyahatlerim nedeniyle bazı zamanlar sorulara cevap yazma fırsatım olmuyor. Özel mesajla ya da mail göndererek soru soran arkadaşlara sıkça söylediğim bir şey var; sorunuzu forumda sorun bir cevaplayan mutlaka çıkacaktır... Anlatmak istediğime güzel bir örnek gerçekleşmiş. doygun77 arkadaşımızın dikkatine, ilgisine gerçekten sevindim. atillaözel6666 güzel sözlerinizi için teşekkür ederim.
PcT fonksiyonunda bazı düzenleme ve eklemeler yaptım. Detaylarını Linkleri görebilmek için ÜYE olmalısınız. linkinden takip edip, son halini download bölümünden indirebilirsiniz. Herkese Kolay gelsin... ProhibiT (28.12.2011 21:00 GMT) |
|
29.12.2011 07:59
atillaözel6666
|
|
nktl den sonra pct yaptığım da nokta sayısı 200 300 tane olunca autocad resmen uykuya geçiyor kalıyor hiç bi işlem yapmıyor...acaba bu benim acadimlemi alakalı yoksa herkes bu sorunu yaşıyormu merak ediyorum...
|
|
29.12.2011 09:24
doygun77
|
Alıntı bende 3-4 sn kadar işlemde bekleme oluyor ama bu tamamen kullanılan bilgisayar işlemci , ram'dan ve program sürümünden kaynaklanıyor. Bu bütün işlemler için de geçerlidir, işlemci ve ram'ı iyi olan bilgisayar çalışma pek problem olmuyor. Bu beklemeyi doğal karşılamak gerekir. i3 işlemci 3gb rem autocad2010 kullanıyorum eğer kullandığın bilgisayarın ram'ı düşükse usb bellek ile readyboost özelligi kullanarak bilgisayarının ram'ını destekleyerek arttrabilirsin. buda işlemleri daha hızlı ve sorunsuz yapmanı sağlar. usb belleklerde READYBOOST özelliğini interneten araştırıp kullanabilirsin. doygun77 (29.12.2011 09:31 GMT) |
|
29.12.2011 12:36
atillaözel6666
|
|
arkadaşım normal pointle nokta atıyorum pct yapıyorum nokta adları vs... tamam gayet güzel oluyo ..
ancak nktl yapıp pct yapınca bilgisayar bekliyo sonundada sadece koordinat tablosundaki nn y x z yazısı çıkıyo .. koordinatlar tabloda çıkmıyo ayrıca çok bekliyorum...neden acaba...? bende sorunu şimdilik nktl layeri yapıp netcade dönüştürüyorum orada nokta adlarını vs.. düzenleyip alete aktarıyorum... sonuçta nktl büyük kolaylık oldu bize... çünkü netcadde de ardışıl nokta atla kolon köşelerini noktalıyorduk. şimdi çok basit oldu...
|
|
29.12.2011 13:19
doygun77
|
|
Bende her hangi bir sorun yok .dwg dosyasında NKTL VE PCT yi cok rahat kullanıyorum.
Kullandıgın dosya .dwg mi? .dxf mi ? Bilgisayar, program ayarları , ram etki edebilir. PCT yi yeniden indir birde öyle dene.
|
|
29.12.2011 15:06
ProhibiT
|
|
Arkadaşlar burada paylaşılan fonksiyonları yazarken, local ve global variable tanımlarına kadar özen gösterip bilgisayarın bellek ve diğer kaynaklarını optiumum seviyede kullanıyoruz. Bahsedilen yavaşlamaların kaynağı fonksiyonlar olmasa gerek...
|
|
30.12.2011 08:12
atillaözel6666
|
|
pct yi silip yeniden indirdim sorun çözüldü ..tşk
|
|
01.01.2012 09:30
ProhibiT
|
|
Uzunca zaman önce bir arkadaşımız AutoLisp Fonksiyon isteğini facebook'tan tekrarlamış. Aşağıdaki fonksiyon bu isteği karşılamak üzere yazılmıştır.
Fonksiyon, seçilen obje gurubu içindeki 3DSoLid Cylinder objelerini işleme alır. Seçim yapılırken kullanıcı window ya da crossing kullanabilir. Belirlenen bölgedeki yalnızca 3DSoLid objeler seçileceklerdir. Döngü içinde ise CyLinder olmayan objeler ayıklanarak işleme alınmazlar. Silindir ölçüleri, geçerli Dimesion Style kullanılarak oluşturulur. Dimesion Style ayarları kullanıcının sorumluluğundadır, fonksiyon bu ayarları hiç bir şekilde değiştirmez. Aşağıdaki resimde görülen şekilde ölçülendirme için, ISO-25 Dimension Style seçilmeli, uygun bir Dimscale değeri ve isteğe göre ondalık basamak sayısı ayarlanmalıdır. Dimension Style'da ayarlanan ondalık basamak sayısı, hem çap hem de yükseklik değeri için kullanılır. Kod: ;|---------------------------------------------------------------------------| | Seçilen obje gurubu içindeki 3DSoLid objelerden silindir olanlarını | | işleme alarak, ilgili silindirin üst kapağında, Çap ve Yüksekliklerini | | içeren Dimension objeleri oluşturulur. | | Hazırlayan: M. Şahin Güvercin - www.autocadokulu.com 01.01.2012 | |---------------------------------------------------------------------------|; (write-line "Hazırlayan: M. Şahin Güvercin - www.autocadokulu.com") (defun c:CyLdim (/ *error* ObJ n CyL GcT sRs hEi RaD cTr dTx pT1 pT2 pT3) (setvar "cmdecho" 0) (command "_.undo" "group") (defun *error* (er) (princ er) (command "_.undo" "e") (prin1)) (setq ObJ (ssget ":s" (list (cons 0 "3DSOLID"))) n (sslength ObJ)) (while (> (setq n (1- n)) -1) (if (setq CyL (assoc 360 (entget (cdr (assoc 360 (entget (cdr (assoc 350 (entget (ssname ObJ n)))))))))) (setq CyL (entget (cdr CyL)))) (if (= (cdr (assoc 0 CyL)) "ACSH_CYLINDER_CLASS") (progn (setq GcT (list (cdr (assoc 43 CyL)) (cdr (assoc 47 CyL)) (cdr (assoc 51 CyL))) sRs (vl-position '(100 . "AcDbShCylinder") CyL) hEi (cdr (nth (+ sRs 3) CyL)) RaD (cdr (nth (+ sRs 4) CyL)) cTr (mapcar '(lambda (p1 p2) (+ p1 p2)) GcT (list 0 0 (/ hEi 2.0))) dTx (textbox (list (cons 1 (strcat "%%c" (rtos (* RaD 2)) "X" (rtos hEi))))) dTx (/ (- (caadr dTx) (caar dTx)) 4.0) pT1 (polar cTr pi RaD) pT2 (polar cTr 0 RaD) pT3 (polar pT2 0 dTx)) (entmake (list '(0 . "DIMENSION") '(100 . "AcDbEntity") '(100 . "AcDbDimension") (cons 10 pT2) (cons 11 pt3) '(70 . 160) (cons 12 (list 0.0 0.0 hEi)) (cons 1 (strcat "%%c<>X" (rtos hEi 2 (getvar "dimdec")))) '(100 . "AcDbAlignedDimension") '(50 . 0.0) (cons 13 pT1) (cons 14 pT2) '(100 . "AcDbRotatedDimension")))))) (command "undo" "e") (prin1) )  Kolay gelsin... ProhibiT (01.01.2012 13:53 GMT) |
|
02.01.2012 11:24
Intentio
|
|
Merhaba
Uzun zamandır ofisimizde ihtiyaç olan arayıp bulamadığımız bir lisp isteğim olacak. Bu lisp numara arttırma lispiniz biraz gelişmişi. Kısaca anlatmaya çalışayım: Bu lisp aynen numara arttırmada olduğu gibi numaraları arttıracak. Yalnız numaraların başında ya da sonunda önceden belirleyeceğimiz sabit bir kelime veya rakam olabilecek. Lispte arttırma işlemine istediğimiz sayıdan başlayabileceğiz. Örn. AAA. sabit kelime Lisp işaretlediğimiz yazıları AAA.027, AAA.028, .... şeklinde ya da 027.AAA, 028.AAA şeklinde yazabilecek. Yardımlarınız için şimdiden çok teşekkür ediyorum.
|
|
02.01.2012 12:29
 Travaci
|
|
; ARD ARDA SIRALI ISIM YAZAR
(defun c:Aay ( / ilk_sayi ilk_ek son_ek yaz_yuk Yerlesim ara_ek son_yazi ) (setq ilk_sayi (GetString "\n Baslama sayisi: ")) (if (= ilk_sayi "") (setq ilk_sayi "1")) (setq ilk_sayi (atoi ilk_sayi)) (setq ilk_ek (GetString "\n Ön ek:" T)) (setq son_ek (GetString "\n Arka ek:" T)) (setq e (entsel "\n Yazi seç.......")) (while (/= e nil) (setq eleman (entget (car e))) (setq Yerlesim (cdr (assoc 10 eleman))) (setq yaz_yuk (cdr (assoc 40 eleman))) (setq yaz_aci (cdr (assoc 50 eleman))) (setq son_yazi (strcat ilk_ek (rtos ilk_sayi 2 0) son_ek)) (setq HGYUK1 (ASSOC 1 eleman)) (setq eleman (SUBST (CONS 1 son_yazi) HGYUK1 eleman)) (ENTMOD eleman) (setq ilk_sayi (+ ilk_sayi 1)) (setq e (entsel "\n Yazi seç......."))))
|
|
02.01.2012 21:49
ProhibiT
|
|
Daha önce buna benzer fonksiyonlar paylaşmıştım, bulamadım, işinize yarayabilecek 2 fonksiyonu tekrar veriyorum.
Kod: ;|----------------------------------------------------------------------------| | Belirlenen sayıdan başlayarak, belirlenen artış miktarı kadar artırılarak | | ya da eksiltilerek numaralar yazılır. Numaralara Önek ve/veya sonek | | eklenebilir. Önek ve Sonek boşluk karakteri içerebilir. Artış miktarı | | negatif verilirse azalan numaralama yapılır. | | Hazırlayan M. Şahin Güvercin - www.autocadokulu.com | |----------------------------------------------------------------------------|; (write-line "\nHazırlayan: M. Şahin Güvercin - www.autocadokulu.com") (defun C:COUNT (/ *error* esayi sayi amk yyuk ynok strn) (setvar "cmdecho" 0) (command "undo" "group") (defun *error* (er) (princ er)) (if (= nil esayi) (setq esayi 1)) (setq sayi (getint (strcat "\nBaslangic sayisi <" (itoa esayi) "> :"))) (if (= sayi nil) (setq sayi esayi)) (if (= amk nil) (setq eamk 1)) (setq amk (getint (strcat "Artis miktari <" (itoa eamk) "> : "))) (if (= nil amk) (setq amk eamk)) (if (= eyuk nil) (setq eyuk (* (getvar "dimtxt") (getvar "dimscale")))) (setq yyuk (getreal (strcat "\nYazi yuksekligi <" (rtos eyuk) "> :"))) (if (= yyuk nil) (setq yyuk eyuk)) (setq onek (getstring T "\n Önek: ") snek (getstring T "\n Sonek: ")) (if (setq ynok (getpoint "\nilgili noktayi seciniz...")) (while ynok (cond ((and (/= onek "") (= snek "")) (setq strn (strcat onek (itoa sayi)))) ((and (= onek "") (/= snek "")) (setq strn (strcat (itoa sayi) snek))) ((and (/= onek "") (/= snek "")) (setq strn (strcat onek (itoa sayi) snek))) ((and (= onek "") (= snek "")) (setq strn (itoa sayi)))) (entmake (list (cons 0 "TEXT") (cons 10 ynok) (cons 40 yyuk)(cons 1 strn) (cons 50 0.0) (cons 72 4) (cons 11 ynok))) (setq sayi (+ sayi amk) ynok (getpoint "\nYeni nokta seciniz......")))) (setq eyuk yyuk eamk amk esayi sayi) (command "undo" "e") (prin1) ) Kod: ;|----------------------------------------------------------------------------|
| Öneki ve Soneki olabilen, belirlenen alt ve üst sınırlar arasında kalan | | sayıların belirlenen Artış Miktarı kadar artırılması veya azaltılması | | işlemini yapar. Önek ve Sonek içinde boşluk karakteri bulunabilir. | | Artırılıp azaltılacak sayılar tam sayı olmak zorundadır. | | Hazırlayan M. Şahin Güvercin - www.autocadokulu.com 02.01.2012 | |----------------------------------------------------------------------------|; (write-line "\nHazırlayan: M. Şahin Güvercin - www.autocadokulu.com") (defun C:IncDec (/ *error* msg amk as us onek snek p n a esayi cnt ysayi) (setvar "cmdecho" 0) (command "undo" "group") (defun *error* (er) (princ er)) (setq msg "\n Artis Miktari <") (if eamk (setq msg (strcat msg (itoa eamk)))) (setq msg (strcat msg "> : ") amk (getint msg)) (if (and (not amk) eamk) (setq amk eamk) (setq eamk amk)) (setq msg "\n Artirilacak sayi alt siniri <") (if eas (setq msg (strcat msg (itoa eas)))) (setq msg (strcat msg "> : ") as (getint msg)) (if (and (not as) eas) (setq as eas) (setq eas as)) (setq msg "\n Artirilacak sayi ust siniri <") (if eus (setq msg (strcat msg (itoa eus)))) (setq msg (strcat msg "> : ") us (getint msg)) (if (and (not us) eus) (setq us eus) (setq eus us)) (setq onek (getstring T "\n Önek: ") snek (getstring T "\n Sonek: ") p (ssget (list (cons 0 "*TEXT"))) n (sslength p)) (while (> (setq n (1- n)) -1) (setq a (entget (ssname p n)) esayi (cdr (assoc 1 a)) cnt T) (if (/= onek "") (if (= (substr esayi 1 (strlen onek)) onek) (setq esayi (substr esayi (1+ (strlen onek)))) (setq cnt nil))) (if (/= snek "") (if (= (substr esayi (- (strlen esayi) (1- (strlen snek)))) snek) (setq esayi (substr esayi 1 (- (strlen esayi) (strlen snek)))) (setq cnt nil))) (if (and cnt (>= (atoi esayi) as) (<= (atoi esayi) us)) (Progn (setq ysayi (itoa (+ (atoi esayi) amk)) a (subst (cons 1 (vl-string-subst ysayi esayi (cdr (assoc 1 a)))) (assoc 1 a) a)) (entmod a) (entupd (cdr (assoc -1 a)))))) (command "undo" "e") (prin1) )
|
|
13.01.2012 11:30
ProhibiT
|
|
Bir AutoLisp fonksiyon isteyen ve Uzunca zamandır incelikli bir sabırla isteğini tekrarlayan aytac_kavak arkadaşımızın isteğine cevap verememiş olmaktan duyduğum mahcubiyetle
Linkleri görebilmek için ÜYE olmalısınız. linkindeki fonksiyonun işine yarayabileceğini yazmıştım. Arkadaşımız, istediğinin tam olarak bu olduğunu, fonksiyonda her seferde 2 çizgi seçecek şekilde değil de bir seçim seti hatta tüm çizimdeki Line'ları işleme alacak şekilde değişiklik yapılabilirmi diye sormuş. Eski 4Le fonksiyonunu değiştirerek genelleştirmek mümkün olmadı. Genelleştirince kavramlar tamamen farklı hale geliyor. Bunun yerine yeni bir fonksiyon yazmak gerekti. Kod: ;|===========================================================================| Fonksiyon çalıştırılıp, select object(s) mesajı alındığında ALL girilise çizim içindeki tüm Line objeleri işleme alınacaktır.| Seçilen gurup obje gurubu veya tüm çizim içindeki Line objeleri | | alınarak biribiri ile olan intersection noktalarından break edilir. | | Hazırlayan: M. Şahin Güvercin 13/01/2012 www.autocadokulu.com | |___________________________________________________________________________|; (write-line "Hazırlayan: M. Şahin Güvercin - www.autocadokulu.com") (defun c:4L (/ *error* Lines n m Line1 Line2 PnTsL inTsc intPt Line3 Line4) (command "_.undo" "group") (setvar "cmdecho" 0) (vl-load-com) (defun *error* (er) (princ (strcat "\n" er)) (command "_.undo" "e")) (setq Lines (ssget (list (cons 0 "Line"))) n (sslength Lines)) (while (> (setq n (1- n) m n) 0) (while (> (setq m (1- m)) -1) (setq Line1 (vlax-ename->vla-object (ssname Lines n)) Line2 (vlax-ename->vla-object (ssname Lines m)) PnTsL (list (vlax-curve-getStartPoint Line1) (vlax-curve-getEndPoint Line1) (vlax-curve-getStartPoint Line2) (vlax-curve-getEndPoint Line2)) inTsc (vlax-variant-value (vla-intersectwith Line1 Line2 0))) (if (> (vlax-safearray-get-u-bound inTsc 1) -1) (setq intPt (vlax-safearray->list inTsc)) (setq intPt nil)) (if (and intPt (not (equal intPt (nth 0 PnTsL))) (not (equal intPt (nth 1 PnTsL))) (not (equal intPt (nth 2 PnTsL))) (not (equal intPt (nth 3 PnTsL)))) (progn (setq Line1 (entget (vlax-vla-object->ename Line1)) Line2 (entget (vlax-vla-object->ename Line2)) Line3 (subst (cons 10 intPt) (assoc 10 Line1) Line1) Line1 (subst (cons 11 intPt) (assoc 11 Line1) Line1) Line4 (subst (cons 10 intPt) (assoc 10 Line2) Line2) Line2 (subst (cons 11 intPt) (assoc 11 Line2) Line2)) (mapcar '(lambda (p1) (entmod p1) (entupd (cdr (assoc -1 p1)))) (list Line1 Line2)) (mapcar '(lambda (p1) (entmake p1) (ssadd (entlast) Lines)) (list Line3 Line4)) (setq n (sslength Lines) m -1))))) (command "_.undo" "e") (prin1)) ;|___________________________________________________________________________|; Seçim seti içindeki Line objelerinin sayısı fazlaca olduğunda, sisteminiz cevapsız duruma düşebilir. sabırla bekleyiniz. ____________________________________________________________ Günün ipuçları: - Bombesi (Bulg) sıfır olan Arc, Line'dır. - =, eq ve equal biribirinden farklı sonuçlar verirler. ____________________________________________________________ ProhibiT (13.01.2012 17:56 GMT) |
|
13.01.2012 11:57
aytac_kavak
|
|
Hocam tesekkür ediyorum benim için ugrastınız.Emegınıze sağlık Fakat lisp te sıkıntı var sanırım fonksiyonu load ladıgımızda command kısmına 4L yazdıgımızda komutu tanımıyor Yada ben yanlıs bır ıslem yapıyorum şimdiden tesekkurler
Bırde baska bır yazılım buldum bu baska arkadaslarada lazım olabılır tum paftanın cızgılerını ıstedıgınız kadar boluyor. Kolaygelsın Kod: (defun c:tbr (/ *error* AT:DrawX _getint cmd seg i ss e div poc)
;; Break curve object(s) into Divided segments ;; Alan J. Thompson, 11.01.11 (vl-load-com) (defun *error* (msg) (and cmd (setvar 'CMDECHO cmd)) (and *AcadDoc* (vla-endundomark *AcadDoc*)) (if (and msg (not (wcmatch (strcase msg) "*BREAK*,*CANCEL*,*QUIT*,"))) (princ (strcat "\nError: " msg)) ) ) (defun AT:DrawX (P C) ;; Draw and "X" vector at specified point ;; P - Placement point for "X" ;; C - Color of "X" (must be integer b/w 1 & 255) ;; Alan J. Thompson, 10.31.09 (if (vl-consp P) ((lambda (d) (grvecs (cons C (mapcar (function (lambda (n) (polar P (* n pi) d))) '(0.25 1.25 0.75 1.75) ) ) ) P ) (* (getvar 'VIEWSIZE) 0.02) ) ) ) (defun _getint (/ i) (cond ((not (setq i (getint "\nSpecify number of segments: ")))) ((<= i 1) (princ "\nValue must be greater than 1!") (_getint)) (i) ) ) (vla-startundomark (cond (*AcadDoc*) ((setq *AcadDoc* (vla-get-activedocument (vlax-get-acad-object)))) ) ) (setq cmd (getvar 'CMDECHO)) (setvar 'CMDECHO 0) (redraw) (if (and (setq seg (_getint)) (setq i -1 ss (ssget "_:L" '((0 . "ARC,LINE,*POLYLINE,SPLINE"))) ) ) (while (setq e (ssname ss (setq i (1+ i)))) (setq div (/ (vlax-curve-getDistAtParam e (vlax-curve-getEndParam e)) seg)) (repeat (1- seg) (AT:DrawX (setq poc (trans (vlax-curve-getPointAtDist e div) e 1)) 1) (vl-cmdf "_.break" e "_F" "_non" poc "_non" poc) (setq e (entlast)) ) ) ) (*error* nil) (princ) ) ProhibiT (13.01.2012 17:52 GMT) |
|
aytac_kavak
|
|
Şahin Hocam calıstı ben yanlıs bır satır hatası yapmısım tesekkurler . Allah sızlerı basımızdan eksık etmesın :)
|