Autocad Architecture AEC_Wall DXF Code | Forumlar

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

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

Forumlar > AutoLISP > Autocad Architecture AEC_Wall DXF Code

01.07.2014 08:48

özkan-wien

Arkadaslar merhaba,
AEC_Wall objesinin DXF kodlarini nasil görürüz. Mesela bir duvarin "Stylename" degerini nasil cekeriz.

77961

01.07.2014 08:55

Travaci

Dxf kodlarını görmek için.

Kod:

(defun c:info (/ in)
(if (setq in (entget (car (entsel))))
(progn (textpage) (terpri)
(princ "\n*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*")
(princ "\n")
(foreach ep in (print ep)) (princ "\n")
(princ "\n*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*-*")))
(princ)
)

77966

01.07.2014 11:42

özkan-wien

Travaci sagol da o göstermiyor. :-)
ama su gösteriyor.
(defun c:stylenameview ()
(setq vbobj (vlax-ename->vla-object (car (entsel))))
(print (vlax-get-property vbobj "stylename"))
)

77967

01.07.2014 11:51

Travaci

Seçtiğin obje ne ?

77968

01.07.2014 12:30

özkan-wien

AEC_WALL AutoCAD Architecture objesi. aslinda hepsini böyle (entget(car(entsel))) gibi görsek iyi olacakti.

77971

01.07.2014 13:06

Travaci

Kod:

(defun c:infoo (/ s) (vl-load-com)
(if (setq s (ssget "+.:s"))
(progn
(vlax-dump-object (vlax-ename->vla-object (ssname s 0)))
(textpage)
)
) (princ)
)

77972

02.07.2014 07:04

özkan-wien

AutoCAD de calisiyo ama Architecture da ssget hatasi veriyor. "ssget de yanlis dize" diye bi hata veriyor.
Architecture var mi sende?

77973

02.07.2014 07:20

Travaci

Hayır yok, birde böyle dene.

Kod:

(defun c:infoo (/ s) (vl-load-com)
(if (setq s (entsel))
(progn
(vlax-dump-object (vlax-ename->vla-object (car s)))
(textpage)
)
) (princ)
)

77978

02.07.2014 08:47

özkan-wien

böyle oldu. bu "+." ne demek ilk kez görüyorum.

77979

02.07.2014 08:53

Travaci

Aynı entsel gibi çalışması için, normalde sadece ssget kullandığımızda seçimi bitirmemiz için onay bekliyor.

77982

02.07.2014 18:46

ProhibiT

"+.:s" kullanılarak seçim yapılırken boş bir noktaya tıklandığında Windows yada Crossing açılmaz. Kullanıcı Çizim nesnesi üzerine tıklayarak seçim yapmaya zorlanır.

> 1 <


	Forum	Download	Galeri	Üye Ol \| Giriş