500w008
发表于 2010-6-2 20:42:00
Andyhon
发表于 2010-6-2 20:57:00
<p><font style="BACKGROUND-COLOR: #ffffff" face="Verdana">用猜的<br/>(setq xz (ssget ss_1 ((0 . "LINE"))))<br/>==><br/>(setq xz (ssget "P" '((0 . "LINE"))))</font></p>
500w008
发表于 2010-6-2 21:14:00
lenlenq
发表于 2010-6-6 09:50:00
请楼主试用(DEFUN C:pe (/ acc ss_1)<br/> (setq acc (getvar "peditaccept"))<br/> (PRINC "请选择需要闭合的线! ")<br/> (setq ss_1 (ssget))<br/> (if (= acc 1)<br/> (COMMAND "pedit" "M" ss_1 "" "J" "1" "" "")<br/> (COMMAND "pedit" "M" ss_1 "" "Y" "J" "1" "" "")<br/> )<br/> (setvar "peditaccept" acc)<br/> (PRINC)<br/>)
xyp1964
发表于 2010-6-6 09:55:00
(DEFUN C:pe (/ ss)<br/> (PRINC "\n请选择需要闭合的线: ")<br/> (if (setq ss (ssget '((0 . "LINE"))))<br/> (COMMAND "pedit" "M" ss "" "Y" "J" "1" "" "")<br/> )<br/> (PRINC)<br/>)
lsjj
发表于 2010-6-6 10:05:00
500w008发表于2010-6-2 21:14:00static/image/common/back.gif改了 还是不能连在一起
(setq xz (ssget \"p\" '((0 . \"LINE\"))))(COMMAND \"pedit\" \"M\" ss_1 \"\" \"Y\" \"J\" \"1\" \"\" \"\")
xz和ss_1有何關係?先解決根本再看其他
500w008
发表于 2010-6-6 14:30:00
页:
[1]