将直线转换为多段线

MR MAN · 发表于 2022-7-5 17:03:03

有没有办法通过选择直线将其转换为多段线？

Dipali · 发表于 2022-7-5 17:09:19

在命令行键入“pedit”，然后选择该行。当它只有一行时，它会问“你想把它转成一行吗”说“是的”
&而不是使用连接选项添加其他行（如果需要）。
如果您将“peditacept”值设置为“1”，则iwl将抑制该提示，而无需询问即可将其转换为一（多段线）。

Lee Mac · 发表于 2022-7-5 17:10:50

简单介绍一下：

copy


(defun c:pj (/ ss1)
   (setq varlist (list "cmdecho" "peditaccept")
     oldvars (mapcar 'getvar varlist)
   ) ;_  end setq
   (mapcar 'setvar varlist (list 0 1))
   (setq ss1 (ssget))
   (if    (> (sslength ss1) 1)
   (progn
       (vl-cmdf "_pedit" "_M" ss1 "" "J" "0" "")
       (princ (strcat "\n" (itoa (sslength ss1)) " Lines Converted. "))
   ) ;_  end progn
   (progn
       (vl-cmdf "_pedit" ss1 "")
       (princ (strcat "\n" (itoa (sslength ss1)) " Line Converted. "))
   ) ;_  end progn
   ) ;_  end if
   (mapcar 'setvar varlist oldvars)
   (princ)
) ;_  end defun

ReMark · 发表于 2022-7-5 17:14:12

对于这样一个直截了当的任务，这需要很多代码。难道不能用单行宏来完成吗？只是好奇。

Lee Mac · 发表于 2022-7-5 17:18:24

我解释了如果用户也只选择一个实体，那么需要两个语句而不是一个。。。此外，我必须在开始和结束时设置变量值。

次要更新：

copy


(defun c:pj (/ varlist oldvars ss1)
   (setq varlist (list "cmdecho" "peditaccept")
     oldvars (mapcar 'getvar varlist)
   ) ;_  end setq
   (mapcar 'setvar varlist (list 0 1))
   (setq ss1 (ssget '((0 . "LINE"))))
   (if    (> (sslength ss1) 1)
   (progn
       (vl-cmdf "_pedit" "_M" ss1 "" "J" "0" "")
       (princ (strcat "\n" (itoa (sslength ss1)) " Lines Converted. "))
   ) ;_  end progn
   (progn
       (vl-cmdf "_pedit" ss1 "")
       (princ (strcat "\n" (itoa (sslength ss1)) " Line Converted. "))
   ) ;_  end progn
   ) ;_  end if
   (mapcar 'setvar varlist oldvars)
   (princ)
) ;_  end defun

忘记了本地化一些变量，并添加了一个过滤器列表。

rkmcswain · 发表于 2022-7-5 17:19:24

几乎……：-）

copy


(if (zerop (getvar "PEDITACCEPT"))
 (command "._PEDIT" "_M" (ssget) "" "_Y" "")
 (command "._PEDIT" "_M" (ssget) "" "")           
)

Lee Mac · 发表于 2022-7-5 17:22:29

哈哈，不错的一个麦克斯温，但不允许单一耳鼻喉科。。。

wizman · 发表于 2022-7-5 17:25:26

还有mpedit

Lee Mac · 发表于 2022-7-5 17:28:24

那是快车吗？

wizman · 发表于 2022-7-5 17:32:50

是的，李，这是一个快速工具…：-）

[编程交流] 将直线转换为多段线

发表回复

精选推荐