yefei812678 发表于 2025-1-20 13:34:08

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

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

yefei812678 发表于 2025-1-20 15:41:31

本帖最后由 yefei812678 于 2025-1-20 15:43 编辑

ssyfeng 发表于 2025-1-20 15:08
试试这个
能你能加前面的提示句子请选择直线或弧形线

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

yjwht 发表于 2025-2-21 15:52:58

本帖最后由 yjwht 于 2025-2-21 15:54 编辑

ssyfeng 发表于 2025-1-20 15:08
试试这个
改成这样就好了
(defun c:tt (/ ss)
   (setq ss (ssget '((0 . "*LINE,ARC"))))
   (command "_.PEDIT" "m" ss "" "y" "j" "0.00" ^C)
   (princ)
)
或者这样也行
(defun c:tt (/ ss)
   (setq ss (ssget '((0 . "*LINE,ARC"))))
   (command "_.PEDIT" "m" ss "" "y" "j" "0.00"
   (vla-eval (vlax-get-acad-object) "Sendkeys \"{ESC}\""))
   (princ)
)

ssyfeng 发表于 2025-1-20 15:08:53

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

ssyfeng 发表于 2025-1-20 14:11:02

cad不是自带的吗，PEDIT命令

yefei812678 发表于 2025-1-20 14:17:45

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

PE 只能以根一根转

自贡黄明儒 发表于 2025-1-20 15:58:02

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

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

hubeiwdlue 发表于 2025-1-20 16:31:40

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

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

完美 发表于 2025-1-20 17:57:09

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

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

寒潮大冬瓜 发表于 2025-1-20 22:35:06

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

帝都划水王 发表于 2025-1-21 10:26:43

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

有坦克吗，我买来压马路
页: [1] 2
查看完整版本: 求助一个直线转多段线的代码