liminnet 发表于 2008-11-14 16:06:00

龙龙仔 发表于 2008-11-17 12:32:00

(defun TT (ENA)<br/>&nbsp; (if (= (cdr (assoc 0 (entget ENA))) "POLYLINE")<br/>&nbsp;&nbsp;&nbsp; (progn<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq PE (getvar "peditaccept"))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setvar "peditaccept" 0)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (if (= (getvar "plinetype") 0)<br/>&nbsp;(setvar "plinetype" 2)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (command "explode" ENA)<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq ENA (ssget "p"))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (command "._pedit" "M" ENA "" "Y" "J" "0.5" "")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (entlast)<br/>&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp; ENA<br/>&nbsp; )<br/>)

龙龙仔 发表于 2008-11-14 17:19:00

指令: CONVERTPOLY<br/>輸入聚合線轉換選項 [重(H)/輕(L)] &lt;輕&gt;:

jxlsp 发表于 2008-11-15 14:24:00

龙龙仔发表于2008-11-14 17:19:00static/image/common/back.gif指令: CONVERTPOLY輸入聚合線轉換選項&lt;輕&gt;:

<p>CONVERTPOLY&nbsp; 拟合了的不能用.</p>

鬼谷子 发表于 2008-11-17 15:06:00

谢谢，怎么我也是一开始都不行呢，好怪呀，谢谢龙大哥啦
页: [1]
查看完整版本: (entlast) 和(command "select" "p")都不是它,怪