《菜鸟提问》线段连接，完成连接后，后面还需要按一下空格

HGHG011

(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



谁有线段连接的源码，连接多个不连续的多段线

Andyhon

相关运作背景描述不清...

先试着这样改...
(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 "" "")

HGHG011

Andyhon 发表于 2015-6-9 21:01
相关运作背景描述不清...

先试着这样改...

额，刚发现原来有个while，这也太疏忽大意了，谢谢你