alexmai 发表于 2022-1-4 20:13:20

lxl217114 发表于 2022-1-4 16:45
朗大师，如果可以直接点击选中“首尾相连的线/多段线”中间的任意一段，就可以执行这个程序那就更强大了。

;;;全屏幕自动连接线段
(Defun C:tt (/ Ssa Pt1 Pt2)
    (Setvar "Cmdecho" 0)
    (Setq Pt1 (Getvar "Vsmin"));屏幕左下
    (Setq Pt2 (Getvar "Vsmax"));屏幕右上
    (setq ssa (ssget "w" pt1 pt2'((0 . "LINE,ARC,LWPOLYLINE,POLYLINE"))))
(Vl-Cmdf "_pedit" "m" ssa "" "j" "0.0002" "")
(Setvar "Cmdecho" 1)
(Princ)
)

不用选搞定多段线

qazxswk 发表于 2022-1-30 18:00:34

代码可行，但现在高版本有JOIN命令了

999999 发表于 2022-3-28 08:49:20

支持支持

yp9819 发表于 2022-4-6 16:12:25

收藏学习 非常不错，谢谢分享

magicheno 发表于 2022-4-23 12:21:19

学习啦~~~~~

xiaozhu33033 发表于 2022-8-11 15:19:29

大佬，能帮修改一下。只框选倍数等于297*210和420*297的矩形直线吗

蓦然语嫣 发表于 2022-9-7 09:46:04

谢谢大神的分享

蓦然语嫣 发表于 2022-9-7 09:53:00

谢谢大神的分享

vladimir 发表于 2023-2-7 09:31:32

非常不错的代码， 谢谢楼主分享啊。

wangsr 发表于 2023-10-29 14:48:44

非常不错的代码， 谢谢楼主分享啊。
页: 1 [2] 3
查看完整版本: 首尾相连直线转多段线程序