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)
)