求助一个直线转多段线的代码

yefei812678

求助一个直线转多段线的代码，支持框选或者点选。

yefei812678

ssyfeng 发表于 2025-1-20 15:08
试试这个

能你能加前面的提示句子  请选择直线或弧形线

最后提示一共转换了多少根

yjwht

ssyfeng 发表于 2025-1-20 15:08
试试这个

改成这样就好了

2. (defun c:tt (/ ss)
   
3.    (setq ss (ssget '((0 . "*LINE,ARC"))))
   
4.    (command "_.PEDIT" "m" ss "" "y" "j" "0.00" ^C)
   
5.    (princ)
   
6. )

(defun c:tt (/ ss)<br />    (setq ss (ssget '((0 . "*LINE,ARC"))))<br />    (command "_.PEDIT" "m" ss "" "y" "j" "0.00" ^C)<br />    (princ)<br /> )

或者这样也行

2. (defun c:tt (/ ss)
   
3.    (setq ss (ssget '((0 . "*LINE,ARC"))))
   
4.    (command "_.PEDIT" "m" ss "" "y" "j" "0.00"
   
5.    (vla-eval (vlax-get-acad-object) "Sendkeys "{ESC}""))
   
6.    (princ)
   
7. )

(defun c:tt (/ ss)<br />    (setq ss (ssget '((0 . "*LINE,ARC"))))<br />    (command "_.PEDIT" "m" ss "" "y" "j" "0.00"<br />    (vla-eval (vlax-get-acad-object) "Sendkeys "{ESC}""))<br />    (princ)<br /> )

ssyfeng

试试这个

2. (defun c:tt (/ ss)
   
3.    (setq ss (ssget '((0 . "*LINE,ARC"))))
   
4.    (vl-cmdf "_.PEDIT" "m" ss "" "y" "")
   
5.    (princ)
   
6. )

(defun c:tt (/ ss)<br />    (setq ss (ssget '((0 . "*LINE,ARC"))))<br />    (vl-cmdf "_.PEDIT" "m" ss "" "y" "")<br />    (princ)<br /> )

ssyfeng

cad不是自带的吗，PEDIT命令

yefei812678

ssyfeng 发表于 2025-1-20 14:11
cad不是自带的吗，PEDIT命令

PE 只能以根一根转

自贡黄明儒

ssyfeng 发表于 2025-1-20 15:08
试试这个

好多人都求这个。你这个也是可以的，但没有我的好用。
自从我推行购带式输送机，送源码活动以来，一个也没送出去。

hubeiwdlue

自贡黄明儒 发表于 2025-1-20 15:58
好多人都求这个。你这个也是可以的，但没有我的好用。
自从我推行购带式输送机，送源码活动以来，一个也 ...

活动力度加大一点，买带式输送机，送2个源码。

完美

yefei812678 发表于 2025-1-20 14:17
PE 只能以根一根转

PE命令也有多条的模式，PE输入回车后输入M再回车就是多选模式

寒潮大冬瓜

直线与直线/多段线/圆弧和并为一条多段线，不同高程就合并不了，有能兼容就很好……

帝都划水王

自贡黄明儒 发表于 2025-1-20 15:58
好多人都求这个。你这个也是可以的，但没有我的好用。
自从我推行购带式输送机，送源码活动以来，一个也 ...

有坦克吗，我买来压马路