Lisp istekleri | Forumlar

AutoCAD • AutoLISP • Programlama • Püfler • Komutlar • Terimler • Eğitim

aLd • TCad • FacadeCAD • Cephe Kot • HQ Library • FreeMUST • Pasdoc.A

08.09.2014 08:41

özkan-wien

(defun C:delalllay ()
(vlax-for Layout (vla-get-Layouts (vla-get-ActiveDocument (vlax-get-acad-object)))
(if (/= (vla-get-Name Layout) "Model")
(vla-Delete Layout)
)
)
)

78532

08.09.2014 08:42

özkan-wien

öyle yapamadim, simdi bi daha denedim oldu travaci :-)

78536

08.09.2014 14:29

özkan-wien

arkadaslar Attribute den bir texti alip mtext ya da texe nasil yapistiririz Lisp ile. tesekkürler

78539

08.09.2014 14:57

Travaci

özkan-wien

Kod:

(vl-load-com) (setq ss (cdr (assoc 1 (entget (car (nentsel "\nAtt:"))))))
(vla-put-Textstring(vlax-ename->vla-object(ssname(ssget(list(cons 0 "*text")))0)ss)

78553

10.09.2014 06:42

özkan-wien

travaci tesekkür ederim, su hata mesajlari geliyor yükledikten sonra
Error: malformed list on input_.undo Current settings: Auto = On, Control = All, Combine = Yes, Layer = Yes
Enter the number of operations to undo or [Auto/Control/BEgin/End/Mark/Back] <1>: _end

78554

10.09.2014 07:28

Travaci

özkan-wien

Parentez hatası : )

Kod:

(vl-load-com) (setq ss (cdr (assoc 1 (entget (car (nentsel "\nAtt:"))))))
(vla-put-Textstring(vlax-ename->vla-object(ssname(ssget(list(cons 0 "*text")))0))ss)

78555

10.09.2014 08:42

özkan-wien

tesekkür ederim.

78801

13.10.2014 09:38

pyrzms

Merhabalar,

çizimde polyline olarak çizilmiş bir sürü dikdörtgenim var. Benim istediğim lisp bu dikdörtgenlerin en ve boylarını bir tabloya aktarma şansı olabilir mi?

Teşekkürler.

78802

13.10.2014 09:38

pyrzms

Merhabalar,

çizimde polyline olarak çizilmiş bir sürü dikdörtgenim var. Benim istediğim lisp bu dikdörtgenlerin en ve boylarını bir tabloya aktarma şansı olabilir mi?

Teşekkürler.

78808

14.10.2014 06:03

cancan

Alıntı
ehya :
;;; İSTENİLENE GÖRE BİR LISP HAZIRLADIM. İSTEYEN KİŞİ BAKSIN, EĞER İSTEDİĞİ BİR DÜZELTME VARSA TEKRAR DÜZENLERİM...

(defun c:uy ()
(setq uy_os (getvar "osmode"))
(setq uy_sec nil)
(setq uy_sec (ssget (list (cons 0 "LINE"))))
(if (= uy_sec nil)
(progn
(princ "
Nesne seçimi yok. Komut bitirildi..."))
(progn

(if (= uy_yaz_yuk nil)(setq uy_yaz_yuk 12))
(initget 2)
(setq uy_yaz_y (getdist (strcat "
Yazılacak yazının Yüksekliği:<" (rtos uy_yaz_yuk) ">:")))
(if (= uy_yaz_y nil)(setq uy_yaz_y uy_yaz_yuk))
(setq uy_yaz_yuk uy_yaz_y)
(setq uy_c 0)
(setq uy_say (sslength uy_sec))
(while (< uy_c uy_say)
(setq uy_sec_tek (ssname uy_sec uy_c))
(setq uy_sec_tek_10 (cdr (assoc 10 (entget uy_sec_tek)))
uy_sec_tek_11 (cdr (assoc 11 (entget uy_sec_tek))))
(setq uy_sec_tek_mes (distance uy_sec_tek_10 uy_sec_tek_11))
(setq uy_sec_tek_10_x (car uy_sec_tek_10)
uy_sec_tek_10_y (cadr uy_sec_tek_10)
uy_sec_tek_11_x (car uy_sec_tek_11)
uy_sec_tek_11_y (cadr uy_sec_tek_11))
(setq uy_yaz_x (/ (+ uy_sec_tek_10_x uy_sec_tek_11_x) 2.00)
uy_yaz_y (/ (+ uy_sec_tek_10_y uy_sec_tek_11_y) 2.00)
uy_yaz (list uy_yaz_x uy_yaz_y))
(if (< uy_sec_tek_10_x uy_sec_tek_11_x)
(progn
(setq uy_sec_aci_bas uy_sec_tek_10)
(setq uy_sec_aci_son uy_sec_tek_11)
)
(progn
(setq uy_sec_aci_bas uy_sec_tek_11)
(setq uy_sec_aci_son uy_sec_tek_10)))
(setq uy_sec_tek_aci (angle uy_sec_aci_bas uy_sec_aci_son))
(command "style" "cizgiyazi" "" "" "" "" "" "" "")
(command "osnap" "node")
(command "text" "j" "bc" uy_yaz uy_yaz_yuk (angtos uy_sec_tek_aci) (rtos uy_sec_tek_mes))
(setq uy_c (+ uy_c 1))
)))(setvar "osmode" uy_os)(princ))
(princ "
Komutu çalıştırmak için [UY] yazın")(princ)

78809

14.10.2014 06:05

cancan

uy.lsp gerçekten çok güzel olmuş.
mesafeleri şu şekilde yazdırabilir miyiz.
örnek L=45.25 gibi. yani başında L= olacak ve ondalık 2 basamak olacak şekilde.
teşekkür ederim

78810

14.10.2014 06:29

ehya

cancan

mesaj kirliliği olmasın. sadece değişecek kodu yazıyorum.
alt bölümde yer alan

(command "text" "j" "bc" uy_yaz uy_yaz_yuk (angtos uy_sec_tek_aci) (rtos uy_sec_tek_mes))

bölümü

(command "_.text" "j" "bc" uy_yaz uy_yaz_yuk (angtos uy_sec_tek_aci) (strcat "L="(rtos uy_sec_tek_mes 2 2)))

olacak şekilde değiştir.

78812

14.10.2014 11:42

map23

sonuna birim yazabilirmisin "L=215.256 m." şeklinde ..teşekkürler iyi çalışmalar.

78813

14.10.2014 12:02

Travaci

Kod:

(command "_.text" "j" "bc" uy_yaz uy_yaz_yuk (angtos uy_sec_tek_aci)
(strcat "L="(rtos uy_sec_tek_mes 2 2) " m."))

78818

15.10.2014 05:07

cancan

çok teşekkür ederim. iyi çalışmalar

78853

22.10.2014 05:05

seboli61

;;;Derya KILIÇ May'2001 Oflaz İnşaat
;;;hizala.lsp
;;;Seçilen text'leri yatay/düşey olarak aynı hizaya getirir.İlk seçilen text referans olarak alınır.

(defun c:hz ( / obje n i hizanok10 yazinok10 hizanok11 yazinok11 ename elist yon)
(princ "\nHizalanacak Yazıları Seçiniz :")
(setq obje (ssget '((0 . "TEXT"))))
(if obje
(progn
(setq n (sslength obje))
(setq i 0
hizanok10 (cdr (assoc 10 (entget (ssname obje 0))))
hizanok11 (cdr (assoc 11 (entget (ssname obje 0))))
)
(initget "X Y")
(setq yon (getkword "Hizalama Yönü ( X / Y ) <Y> ?"))
(command "undo" "begin")
(repeat n
(setq ename (ssname obje i)
elist (entget ename)
yazinok10 (cdr (assoc 10 elist))
yazinok11 (cdr (assoc 11 elist))
)
(if yon
(progn
(setq hizanok10 (list (car hizanok10) (cadr yazinok10))) ;;; x yönünde hizalama
(if yazinok11 (setq hizanok11 (list (car hizanok11) (cadr yazinok11))))
)
(progn
(setq hizanok10 (list (car yazinok10) (cadr hizanok10))) ;;; y yönünde hizalama
(if yazinok11 (setq hizanok11 (list (car yazinok11) (cadr hizanok11))))
)
);_if
(setq elist (subst (cons 10 hizanok10) (assoc 10 elist) elist))
(if yazinok11 (setq elist (subst (cons 11 hizanok11) (assoc 11 elist) elist)))
(entmod elist)
(setq i (+ i 1))
);repeat
(command "undo" "end")
(princ (strcat "\n" (itoa i) " TEXT hizalandı."))
(princ)
));_if & progn
);defun
(princ "\nSeçilen TEXT'leri aynı hizaya getirir (ilk seçilene göre). [HZ] komutu ile çalışır")
(princ "\n© 2000 dê®¥å")
(princ)

Bu verdiğim kodlar sitede bulunan hizalama lispi. Yalnız bundaki problem X yönünde ve Y yönünde hizalamak için hazırlanmış bir lisp problemi hizalamayı hep Y yönünde hizalaması. X yönünde de olması istiyorum. Bu problemi düzeltebilir misiniz ?

78860

22.10.2014 08:03

özkan-wien

(defun auswahl (/ );;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(princ "\nReferenz object auswählen und enter drücken:")
(setq obje (ssget '((0 . "insert,*text"))))
(setq ucsx (cdr (assoc 10 (entget (ssname obje 0)))))
(setq ucsx (trans ucsx 0 1))
(princ "\ngeordnete Objecte auswählen :")
(setq obje2 (ssget '((0 . "insert,*text"))))
(setq n (sslength obje2))
)
(defun richtung (/);;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(initget 1 "X Y")
(setq yon (getkword "Richtung [X / Y]:"))
)
(defun x_tausch(/);;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(setq hizala (list (car ucsx) (cadr ucsx_t2) 0 )) ;;; x yönünde hizalama
)
(defun y_tausch (/);;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(setq hizala (list (car ucsx_t2) (cadr ucsx) 0 )) ;;; y yönünde hizalama
)
(defun werte_trans (/);;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(setq hizala (trans hizala 1 0))
(setq elist (subst (cons 10 hizala) (assoc 10 elist) elist))
)
(defun c:alo ( / obje obje2 ucsx ucsx_t ucsx2 ucsx_t2 hizala yazi_xy hizala_z ucsz)
(command "_.undo" "begin")
(auswahl)
(richtung)
(setq i 0)
(repeat n
(setq ename (ssname obje2 i))
(setq elist (entget ename))
(setq yazi_xy (cdr (assoc 10 elist)))

(setq ucsx_t2 (trans yazi_xy 0 1))

(if (= yon "X")
(progn

(x_tausch)
)
(progn

(y_tausch)))
(werte_trans)
(entmod elist)
(setq i (+ i 1))
);repeat
(command "_.undo" "_end")
)
(princ "\nausgewählte objects geordnet (nach erste auswahl).mit [ALO.] funktioniert")

sunu deneyebilirsin
ALO enter ilk obje enter diger nesneler enter.
ucs yamuk olursa ona göre de hizalar.

78861

22.10.2014 13:15

sonerik

Herkese selamlar,

Linear Stretch yapılmış bir bloğum var. Genelde bu bloğu akslarına göre cam yerleşimi yaparken kullanıyorum. Bu blokta Custom sekmesinde Distance ölçüleri değişken. Bu ölçüleri adetleri ile listeye bileceğim bir komut veya lisp var mı? Adetleri veremiyorsa sayarız artık

Daha net anlaşılması için eke resmini de koydum. İşaretli yerdeki ölçünün listelenmesini istiyorum.

Teşekkürler.

78895

23.10.2014 14:00

feelthesin

Selamlar

Istedigim lispin mantigini kisaca aciklamaya calisacagim.

Lisp aynen trim komutu gibi calisacak. fakat trim yaptigim yeri silmeyip o trimledigimiz cizgileri ayni layerda hidden yapacak. Arkadaki nesnelerin gorunusunu cizmek icin surekli bu isleme ihtiyac duyuyorum.

Ben bu bahsettigim islemi yapmak icin once trim yapip daha sonra trim yaptigim yerlere line ekleyip, o linelari hidden yapmak zorunda kaliyorum.

Simdiden tesekkurler...

(komut + enter + hangi aralikta hidden olmasini istiyoruz + enter + hidden olmasini istedigimiz cizgiler seklinde)

78897

23.10.2014 14:31

kerem1453

43486-break-hidden.rar bu lispi dene sanırım senin işini görcektir.rar şifresi
www.cizimokulu.com

Önceki Sayfa

[1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [15] [20] [25] [30] [35] [40] [45] [50] [55] > 57 < [60] [65] [70] [75] [80] [85] [90] [95] [100] [101]

Sonraki Sayfa


	Forum	Download	Galeri	Üye Ol \| Giriş