02.05.2016 11:06

83384    

Merhaba Arkadaşlar;

Cephe firmasında çalışıyorum ve detayları yaptıktan sonra multileader ile malzemeleri tanımlıyorum. Genel olarak blok ile çalışıyorum ve akıllı bloklarım da mevcut (vida, civata, somun, profil v.b.). Benim aradığım ise bu blokların adını veya Description alanındaki yazıyı multileader komutunda otomatik yazması. Yalnız bazı bloklarımın isimlerinin altında alt açılımları mevcut. Bunlar genelde ölçü veya uzunluk oluyor. Örnek olarak; Blok İsmi: YSB 3,9 Bu vidaların alt seçeneklerinde; 13-16-19-21 v.b. uzunlukları seçebiliyorsunuz. Bu bloğu multileader da YSB 3,9x16 olarak bloğu tıkladığımda yazsın istiyorum. Bunun bir formulü veya lisp var mıdır. Resim daha açıklayıcı olur umarım..

Teşekkürler.

02.05.2016 18:20

83387    

bu lisp işini görür.

(defun c:BNameLabel (/ obj lastentity ent)
(vl-load-com)
(if (setq obj (car (entsel "\nSelect block: ")))
(if (eq (cdr (assoc 0 (entget obj))) "INSERT")
(progn (setq lastentity (entlast))
(vl-cmdf "_.mleader"
"_non"
(trans (vlax-get (setq obj (vlax-ename->vla-object obj)) 'InsertionPoint) 0 1)
PAUSE
)
(while (eq 1 (logand 1 (getvar 'CMDACTIVE))) (vl-cmdf ""))
(if (not (equal lastentity (setq ent (entlast))))
(vla-put-textstring
(vlax-ename->vla-object ent)
(vlax-get-property
obj
(if (vlax-property-available-p obj 'EffectiveName)
'EffectiveName
'Name
)
)
)
)
)
(princ "\nInvalid object!")
)
)
(princ)
)

masterkey (02.05.2016 18:35 GMT)

03.05.2016 08:31

83391    

Alıntı

---

masterkey :
bu lisp işini görür.

(defun c:BNameLabel (/ obj lastentity ent)
(vl-load-com)
(if (setq obj (car (entsel "\nSelect block: ")))
(if (eq (cdr (assoc 0 (entget obj))) "INSERT")
(progn (setq lastentity (entlast))
(vl-cmdf "_.mleader"
"_non"
(trans (vlax-get (setq obj (vlax-ename->vla-object obj)) 'InsertionPoint) 0 1)
PAUSE
)
(while (eq 1 (logand 1 (getvar 'CMDACTIVE))) (vl-cmdf ""))
(if (not (equal lastentity (setq ent (entlast))))
(vla-put-textstring
(vlax-ename->vla-object ent)
(vlax-get-property
obj
(if (vlax-property-available-p obj 'EffectiveName)
'EffectiveName
'Name
)
)
)
)
)
(princ "\nInvalid object!")
)
)
(princ)
)

---

Komut satırına BNameLabel yazdım ama komut almadı. bir eksik olabilir mi?

04.05.2016 06:18

83400    

Field hakkında bilgin var mı ?

04.05.2016 06:59

83405    

Alıntı

---

Travaci :
Field hakkında bilgin var mı ?

---

Soru benim için ise Field hakkında bilgim yok. Araştırayım biraz.

04.05.2016 07:10

83407    

Field başlı başına bir konu. Konu ilgili detaylı bilgileri araştırmam lazım. Genel olarak yabancı sitelerde açıklamalar bulurum herhalde. Ya da deneme yanılma yolu ile baya bir kurcalamam gerekecek. İp ucu için teşekkürler @Travaci

04.05.2016 09:17

83410    

Alıntı

---

Travaci :

---

Teşekkürler.

Travaci (04.05.2016 10:05 GMT)