15.12.2015 12:22

82492    

Arkadaşlar aşağıda sayın Mehmet Şahin Güvercin'in yazmış olduğu iki adet lisp var. bu iki lispinde çalışma mantığı aynı
birisi polyline alanını atrribute içindeki alan tag'ine atıyor. diğeri polyline cevresini atrribute içindeki cevre tag'ine atıyor.
Acaba bu iki lispi birleştirip tek seferde polyline alan ve cevre bilgisini atrribute içindeki alan ve cevre tag'ine attırabilirmiyiz ?

LİSP 1:

(defun c:MahaL (/ PvT Are)
(setvar "cmdecho" 0) (command "_.undo" "group") (vl-load-com)
(setq PvT (car (entsel "\nMahal Block'u Seçiniz: "))) (redraw PvT 3)
(setq Are (car (entsel "\nAlanı Tanımlayan Obje: "))) (redraw PvT 4)
(while(not(and(=(cdr(assoc 0(entget(setq PvT(entnext PvT)))))"ATTRIB")
(=(cdr(assoc 2(entget PvT)))"ALAN"))))
(setq PvT (entget PvT)
PvT (subst (cons 1 (strcat "%<\\AcObjProp.16.2 Object(%<\\_ObjId "
(itoa (vla-get-ObjectID (vlax-ename->vla-object Are)))
">%).area \\f "%lu2%pr2%ps[, ]%ct8[0.0001]">%"))
(assoc 1 PvT) PvT) PvT (entmod PvT)
PvT (entupd (cdr (assoc -1 PvT))) PvT (command "_.UpdateFieLd" PvT ""))
(command "_.undo" "e") (prin1))

LİSP 2:

(defun c:cevre (/ PvT Peri)
(setvar "cmdecho" 0) (command "_.undo" "group") (vl-load-com)
(setq PvT (car (entsel "\nMahal Block'u Seçiniz: "))) (redraw PvT 3)
(setq Peri (car (entsel "\nAlanı Tanımlayan Obje: "))) (redraw PvT 4)
(while(not(and(=(cdr(assoc 0(entget(setq PvT(entnext PvT)))))"ATTRIB")
(=(cdr(assoc 2(entget PvT)))"CEVRE"))))
(setq PvT (entget PvT)
PvT (subst (cons 1 (strcat "%<\\AcObjProp.16.2 Object(%<\\_ObjId "
(itoa (vla-get-ObjectID (vlax-ename->vla-object Peri)))
">%).length \\f "%lu2%pr2%ps[, ]%ct8[0.01]">%"))
(assoc 1 PvT) PvT) PvT (entmod PvT)
PvT (entupd (cdr (assoc -1 PvT))) PvT (command "_.UpdateFieLd" PvT ""))
(command "_.undo" "e") (prin1))

21.12.2015 08:04

82536    

Ehya hocam ben bu lispleri ayrı ayrı kullanıyorum ama bazen projeler çok büyük oluyor. aynı attribute ye çevreyi yazdırmak veya alanı yazdırmak için tekrar girmek gerekiyor

21.12.2015 13:19

82539    

ben zamanında bir ikona basında bir sayfa açılsın tüm lisplerim orada olsun diye bir yazı yazmıştım.
iş biraz karışıkmış dediler.:D