|
01.06.2021 09:04
 Travaci
|
mantık85
Overkill komutunu kullanabilirsiniz.
|
|
01.06.2021 09:14
mantık85
|
|
çok teşekkür ederim
|
|
08.06.2021 10:54
mantık85
|
|
Merhaba,
Autocad'de find ile bulduğumuz yazıyı fazla zoom yapıyor, neresi olduğunu göremiyorum. Ben daha uzaktan görmek istiyorum. Bunun bir yolu ya da lispi var mıdır
|
|
08.06.2021 11:07
 ozkul
|
|
bildiğim kadarı ile find içinde zoom kullanılamıyor ve standart bir kısmı gösteriyor.
zoom için leveller olsa find/replace çok kullanışlı olurdu.
|
|
08.06.2021 18:34
mrtelkt
|
|
Merhabalar,
Seçilen alandaki text ve mtext leri seçen lisp varmıydı acaba.
Yardımlarınız için teşekkürler.
|
|
09.06.2021 06:07
Travaci
|
Alıntı
mrtelkt
Quickselect ile de yapabilirsiniz.
Kod:
(defun c:st (/)
(sssetfirst nil (ssget (list (cons 0 "*TEXT"))))
(princ)
)
|
|
09.06.2021 07:39
mrtelkt
|
|
çok teşekkür ederim.
Allah razı olsun
|
|
27.06.2021 08:34
duckula
|
|
Merhabalar, sitenizi uzun zamandır takip ediyorum ve bana birçok konuda çok faydalı oldu. sayenizde çok zaman tasarrufu yaptım. herkese çok teşekkür ediyorum. şöyle bir konıda yardıma ihtiyacım var, yardımcı olabilirseniz çok sevinirim. farklı boydaki poly lineların boyunu referans alarak aynı uzunlukta düz çizgi çizen lisp ihtiyacım var.
ilgilenen olursa çok müteşekkir olurum.
|
|
27.06.2021 08:42
duckula
|
Alıntı
duckula :
Merhabalar, sitenizi uzun zamandır takip ediyorum ve bana birçok konuda çok faydalı oldu. sayenizde çok zaman tasarrufu yaptım. herkese çok teşekkür ediyorum. şöyle bir konıda yardıma ihtiyacım var, yardımcı olabilirseniz çok sevinirim. farklı boydaki poly lineların boyunu referans alarak aynı uzunlukta düz çizgi çizen lisp ihtiyacım var.
ilgilenen olursa çok müteşekkir olurum.
referans polylineların eğrisel formda olduğunu belirtmeyi unutmuşum.
|
|
27.06.2021 10:47
 alumina
|
Alıntı
duckula :
Kod:
(defun c:qw (/ dc ns pt)
(vl-load-com)
(if (setq dc (vla-get-Activedocument
(vlax-get-acad-object))
ns (ssget ":S" '((0 . "lwpolyline"))))
(progn (redraw (setq ns (ssname ns 0)) 3)
(if (setq pt (getpoint "\nReferance point:"))
(progn (vla-StartUndomark dc)
(vlax-invoke (vla-get-ModelSpace dc)
'AddLine pt (polar pt 0 (vla-get-Length
(vlax-ename->vla-object ns))))
(vla-EndUndomark dc)
)
)
(redraw ns 4)
)
) (prin1)
)
|
|
27.06.2021 16:26
duckula
|
|
ilginiz için ne kadar teşekkür etsem azdır.
çok sağolun. beni büyük bir yükten kurtardınız.
|
|
27.06.2021 16:32
duckula
|
Alıntı
alumina :
Alıntı
duckula :
Kod:
(defun c:qw (/ dc ns pt)
(vl-load-com)
(if (setq dc (vla-get-Activedocument
(vlax-get-acad-object))
ns (ssget ":S" '((0 . "lwpolyline"))))
(progn (redraw (setq ns (ssname ns 0)) 3)
(if (setq pt (getpoint "\nReferance point:"))
(progn (vla-StartUndomark dc)
(vlax-invoke (vla-get-ModelSpace dc)
'AddLine pt (polar pt 0 (vla-get-Length
(vlax-ename->vla-object ns))))
(vla-EndUndomark dc)
)
)
(redraw ns 4)
)
) (prin1)
)
sayın alumina, bu lispi içinde değer yazılı olan text ve mtext dosyasından uzunluk ölçüsünü alacak şekilde yapmakta mümkün müdür acaba?
|
|
28.06.2021 06:34
Travaci
|
|
:D
|
|
07.07.2021 08:20
mrtelkt
|
merhaba;
autocad excel tablosunda işaretli çizgiler kopyalama sonrası kendiliğinden çıkıyor.
çözümü nedir acaba;
yardımlarınız için teşekkürler.
|
|
13.07.2021 13:26
hamdiatay
|
|
10.15,20.50,30.75,27.50
36.45,45.75,16.50,24.50
17.45,63.35,18.65,0.85
Excelden sayilar.xls adlı dosyayı save as ile sayilar.csv yaptım. seperatör olarak ; ile csv dosya oluşturdu. sayilar.csv adlı bu dosyayı notepad++ da düzenledim. Yukarıdaki dosyanın son hali. İhtiyacım olan lisp ilk satırı okuyunca (10.15) (20.50) (30.75) (27.50) sayılarını a1,a2,a3,a4 gibi değişkenlere atabilmek. Tabi sonra devamındaki satırlarıda.
(setq dosya(open "sayilar.csv" "r"))
(setq satır(read-line dosya))
(setq a1(??? satır)) ...
bu bölüm için yardım rica edecektim. Teşekkürler iyi çalışmalar.
hamdiatay (13.07.2021 21:21 GMT)
|
|
14.07.2021 09:53
Travaci
|
Kod:
(defun c:et (/ fl pl)
(if (setq fl (getfiled "Data File" (getvar 'dwgprefix) "csv" 0))
(progn
(setq fl (open fl "r") n 0)
(while (setq pl (read-line fl))
(foreach x (read (strcat "(" (vl-string-translate "," " " pl) ")"))
(set (read (strcat "a" (itoa n))) x) (setq n (1+ n))
)
)
(close fl)
)
) (prin1)
)
|
|
14.07.2021 10:51
hamdiatay
|
|
Travaci çok teşekkür ederim. Bu kod ilk lisp projemin önünü açtı. İyi çalışmalar dilerim.
|
|
14.09.2021 12:23
hamdiatay
|
|
(defun c:ü ()
(setq mahal_no (entsel "\n mahal numarasını giriniz : "))
(setq en (car mahal_no))
(setq enlist (entget en))
(setq mahal_no (cdr (assoc 1 enlist)))
(setq mahal_adi (entsel "\n mahal adını giriniz : "))
(setq en (car mahal_adi))
(setq enlist (entget en))
(setq mahal_adi (cdr (assoc 1 enlist)))
(setq mahal_cephe (entsel "\n mahal cephesi giriniz : "))
(setq en (car mahal_cephe))
(setq enlist (entget en))
(setq mahal_cephe (cdr (assoc 1 enlist)))
(setq mahal_alan (entsel "\n mahal Polyline Seçiniz : "))
(setq en (car mahal_alan))
(command "area" "o" en)
(setq mahal_alan (/ (getvar "area") 10000))
(setq mahal_cevre (/ (getvar "perimeter") 100))
(setq metraj_dosya (strcat (getvar "dwgprefix") (substr (getvar "dwgname") 1 (- (strlen (getvar "dwgname")) 4 )) "-mahal_bilgileri.xls"))
(setq mahal_bilgileri (open metraj_dosya "a"))
(write-line
(strcat mahal_no
"\t"
mahal_adi
"\t"
mahal_cephe
"\t"
(rtos mahal_alan 1 2)
"\t"
(rtos mahal_cevre 1 2)
)
mahal_bilgileri
)
(close mahal_bilgileri)
)
Mimari projeden metraj çıkartmak için polyline ların alan ve çevrelerine ihtiyaç duyuyorum. Yukarıdaki lispte (rtos mahal_cevre 2 2) şeklinde yazınca excel dosyasına bzaı hücrelere çevreyi tarih olarak atıyor. Bunu düzeltmek mümkünmü. Excel dosyasına sayıları noktalı değilde virgüllü olarak gönderebilirmiyiz. Yardımlarınız için şimdiden teşekkürler. İyi çalışmalar.
|
|
14.09.2021 12:44
 ehya
|
|
hamdiatay
(rtos mahal_cevre 2 2) kodunu aşağıdaki ile değiştirin.
(vl-string-translate "." "," (rtos mahal_cevre 2 2))
|
hamdiatay
|
|
Ehya çok teşekkür ederim.
|
Sonraki Sayfa
