社区 › Auto Lisp › 帮我看看这个李

SLW210 发表于 2022-7-6 00:24:02

请阅读代码发布指南并编辑您的帖子，将代码包含在代码标签中。

ReMark 发表于 2022-7-6 00:26:18

你是在跟我谈代码发布指南吗？

SLW210 发表于 2022-7-6 00:29:56

是的，我是。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。。

ReMark 发表于 2022-7-6 00:34:05

仅供参考-无法编辑代码，因为它是一个图像。

flyfox1047 发表于 2022-7-6 00:39:20

这
(defun c:test ( / peditaccept ss )
   (if (setq ss (ssget "_:L" '((0 . "ARC,LINE,LWPOLYLINE"))))
       (progn
         (setq peditaccept (getvar 'peditaccept))
         (setvar 'peditaccept 1)
         (command "_.pedit" "_M" ss "" "_J" "" "")
         (setvar 'peditaccept peditaccept)
       )
   )
   (princ)
)

highflybird 发表于 2022-7-6 00:41:43

 
你能帮我更改上传的文件吗非常感谢。

查看完整版本: 帮我看看这个李