首尾相连直线转多段线程序

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

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

账号		自动登录	找回密码
密码			注册

[源码] 首尾相连直线转多段线程序