cjun2258 发表于 2008-11-23 12:49:00

[求助]圖塊問題

本帖最后由 作者 于 2008-11-23 12:59:16 编辑 <br /><br /> <p><br/>(defun AddBlock (blk_name insertpoint blk_ss / ACADDOCUMENT BLK BLK_NAME BLK_SS BLOCKLIST INDEX MODELSPACE NUMBER SELECTIONSETOBJS )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq AcadDocument (vla-get-activeDocument (vlax-get-acad-object))<br/>&nbsp;&nbsp;&nbsp;&nbsp; ModelSpace&nbsp; (vla-get-Modelspace AcadDocument)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (if (= (getvar "worlducs") 0)<br/>&nbsp;&nbsp; (setq insertpoint (trans insertpoint 1 0))<br/>&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq insertpoint (vlax-3d-point insertpoint))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq number (sslength blk_ss))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq blocklist (vla-get-blocks AcadDocument))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq blk (vla-add blocklist insertpoint blk_name)) ;;定義圖塊<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq SelectionSetObjs (vlax-make-safearray vlax-vbobject (cons 0 (- number 1))))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (defun item (blk_ss index)<br/>&nbsp;&nbsp;&nbsp;&nbsp; (vlax-ename-&gt;vla-object (ssname blk_ss index))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; <br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq index 0)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (repeat number&nbsp;&nbsp; ;;把選擇集的物體加入到圖塊<br/>&nbsp;&nbsp;&nbsp;&nbsp; (vlax-safearray-put-element&nbsp; SelectionSetObjs&nbsp; index (item blk_ss index))<br/>&nbsp;&nbsp;&nbsp;&nbsp; (setq index (1+ index))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (vla-copyobjects AcadDocument SelectionSetObjs blk)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (vla-insertblock&nbsp; ModelSpace insertpoint (vlax-get-property blk 'name)&nbsp; 1&nbsp; 1&nbsp; 1&nbsp; 0)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (vl-cmdf ".erase" blk_ss "")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )</p><p>請教高手 用這個程序生成的塊為什麼不能修剪通過塊的實體。如下圖</p><p><img alt="" src="file:///C:/Documents%20and%20Settings/sy007/桌面/blk.jpg"/></p><p></p><p>用TRIM命令修剪時會出現下面的提示</p><p>指令: tr TRIM<br/>目前的設定: 投影=UCS&nbsp; 邊緣=無<br/>選擇修剪邊緣 ...</p><p>請高手教一下我 ，先謝了</p>

cjun2258 发表于 2008-11-27 23:17:00

<p>怎麼沒有人回答我呀？？？</p><p></p>
页: [1]
查看完整版本: [求助]圖塊問題