25.11.2019 17:08    

Herkese merhaba,
Çok araştırdım, örnekleri inceledim ama istediğim olmadı maalesef (belki de ben araştırmayı beceremedim).
Arkadaşlar yapmak istediğim çok basit:
lisp ile mevcut çizime başka bir dwg dosyasını blok olarak çağırmak (xref olarak değil).
Nedir bunun yolu?
Herkese şimdiden teşekkürler.

26.11.2019 18:04    

Alıntı

---

ehya :
C sürücüsünde yer alan cizim.dwg adlı dosyayı blok olarak orjine yerleştirir
Dosya adını,yolunu ve yerleşim yerini kendinize göre uyarlayın...

Kod:

(setq obj (vlax-get-acad-object))
(setq doc (vla-get-ActiveDocument obj))
(setq msp (vla-get-ModelSpace doc))
(setq yerlesim (vlax-3d-point 0 0 0))
(setq bl (vla-InsertBlock msp yerlesim "c:\\cizim.dwg" 1 1 1 0))

---

Kodlar gayet güzel çalıştı. Emeğine sağlık Ehya. Ben bunu biraz daha açtım. Aşağıda da göreceğin üzere dcl yardımı ile bir butona bağladım. Ekranda tıkladığım noktaya bloğu getirmesini istiyorum. Ancak 3d point sorunu oluştu. Hata mesajı: bad 3D point: nil
Bunu nasıl hallederiz? Şimdiden teşekkürler.

ilgili lisp kodları:

(defun c:test ()
(setq dcl_id (load_dialog "deneme.dcl"))
(if (null (new_dialog "tablo_01" dcl_id))(exit))

(action_tile "tbl-01" "(xxx)")
(action_tile "accept" "(exit)")
(start_dialog)
(unload_dialog dcl_id)
)


(defun xxx ()
(setq p1 (getpoint "\nBir nokta seçiniz:"))
(setq obj (vlax-get-acad-object))
(setq doc (vla-get-ActiveDocument obj))
(setq msp (vla-get-ModelSpace doc))
(setq yerlesim (vlax-3d-point p1))
(setq bl (vla-InsertBlock msp yerlesim "c:\\Users\\xxxxx\\Desktop\\Yeni klasör\\test.dwg" 1 1 1 0))
(done_dialog 1)
)

29.11.2019 16:12    

Ehya eline sağlık, çok teşekkürler.
İyi çalışmalar.