定距延长线

szx025 · 发表于 2020-10-11 15:23

(defun c:y2 (/ D F E N P0 P1 SS)
(setq d (getdist "\n延伸长度:"))
(setq F (getvar "DIMLFAC"))
(setq d (/ d f))
(while (and
(if d (setq p0 (getpoint "\n框选对象第一对角点(会以此点做为延伸方向):")))
(if p0 (setq p1 (getcorner p0 "\n框选对象另一对角点:")))
(if (and p0 p1)(setq ss (ssget "c" p0 p1 '((0 . "LINE,ARC,ELLIPSE,*POLYLINE")))))
)
(progn
(command "lengthen" "de" d)
(repeat (setq n (sslength ss))
(command (list (setq e (ssname ss (setq n (1- n)))) p0))
)
(command "")
)
(setq p0 nil p1 nil ss nil)
)
(princ)
)

(defun c:y2 (/ D F E N P0 P1 SS) 
  (setq d (getdist "\n延伸长度:")) 
  (setq F (getvar "DIMLFAC")) 
  (setq d (/ d f)) 
  (while                (and 
                                                        (if d (setq p0 (getpoint "\n框选对象第一对角点(会以此点做为延伸方向):"))) 
                                                        (if p0 (setq p1 (getcorner p0 "\n框选对象另一对角点:"))) 
                                                        (if (and p0 p1)(setq ss (ssget "c" p0 p1 '((0 . "LINE,ARC,ELLIPSE,*POLYLINE"))))) 
                                                ) 
                (progn 
                        (command "lengthen" "de" d) 
                        (repeat (setq n (sslength ss)) 
                                (command (list (setq e (ssname ss (setq n (1- n)))) p0)) 
                        ) 
                        (command "") 
                ) 
                (setq p0 nil p1 nil ss nil) 
  ) 
  (princ) 
)

定距延长线，框选还能改成选端点

1205这样时代 · 发表于 2020-10-12 09:01

sunwei2009 · 发表于 2020-10-12 14:10

顶一下，，谢谢楼主的分享

＿Levin · 发表于 2022-6-3 17:45

怎么改成点选线条呢？

川雪 · 发表于 2022-6-4 22:24

这个要赞一下。

baby绑定命运线 · 发表于 2023-4-12 21:52

怎么改成点选端点延长呢大师。。谢谢

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

[源码] 定距延长线