[求助]?d?k???
 

[求助]圖塊問題
www.dimcax.com
[求助]圖塊問題
(defun addblock (blk_name insertpoint blk_ss / acaddocument blk blk_name blk_ss blocklist index modelspace number selectionsetobjs )
(setq acaddocument (vla-get-activedocument (vlax-get-acad-object))
modelspace (vla-get-modelspace acaddocument)
)
(if (= (getvar "worlducs") 0)
(setq insertpoint (trans insertpoint 1 0))
)
(setq insertpoint (vlax-3d-point insertpoint))
(setq number (sslength blk_ss))
(setq blocklist (vla-get-blocks acaddocument))
(setq blk (vla-add blocklist insertpoint blk_name)) ;;定義圖塊
(setq selectionsetobjs (vlax-make-safearray vlax-vbobject (cons 0 (- number 1))))

(defun item (blk_ss index)
(vlax-ename->vla-object (ssname blk_ss index))
)

(setq index 0)
(repeat number ;;把選擇集的物體加入到圖塊
(vlax-safearray-put-element selectionsetobjs index (item blk_ss index))
(setq index (1+ index))
)
(vla-copyobjects acaddocument selectionsetobjs blk)
(vla-insertblock modelspace insertpoint (vlax-get-property blk 'name) 1 1 1 0)
(vl-cmdf ".erase" blk_ss "")
)
請教高手 用這個程序生成的塊為什麼不能修剪通過塊的實體。如下圖
用trim命令修剪時會出現下面的提示
指令: tr trim
目前的設定: 投影=ucs 邊緣=無
選擇修剪邊緣 ...
請高手教一下我 ，先謝了
d
怎麼沒有人回答我呀？？？
d