《菜鸟提问》线段连接，完成连接后，后面还需要按一下空格
(defun HH:JionToPolyline (/ PET SS)(setq pet (getvar "PEDITACCEPT"))
(setvar "PEDITACCEPT" 1)
(while (setq ss (ssget '((0 . "ARC,*LINE"))))
(command"_.pedit"(ssname ss 0)"j"ss"""")
)
(setvar "PEDITACCEPT" pet )
程序如上
线段连接，完成连接后，后面还需要按一下空格，怎么实现运行程序后不用再点空格或者esc
谁有线段连接的源码，连接多个不连续的多段线 相关运作背景描述不清...
先试着这样改...
(while (setq ss (ssget '((0 . "ARC,*LINE"))))
(command"_.pedit"(ssname ss 0)"j"ss"""")
)
===>
(setq ss (ssget '((0 . "ARC,*LINE"))))
(command "_.pedit" (ssname ss 0) "j" ss "" "")
Andyhon 发表于 2015-6-9 21:01 static/image/common/back.gif
相关运作背景描述不清...
先试着这样改...
额，刚发现原来有个while，这也太疏忽大意了，谢谢你
页:
[1]