直线和多段线两端画额外的线段

xyp1964

1. (defun c:tt ()
   
2.   "tt(两端画线)"
   
3.   (defun abc (s1 / p1 p2 r1 r2 l1 l2)
   
4.     (setq p1 (vlax-curve-getStartPoint s1)
   
5.           p2 (vlax-curve-getEndPoint s1)
   
6.     )
   
7.     (if (not (equal p1 p2 1e-3))
   
8.       (setq r1 (xyp-AngleAtPoint s1 p1)
   
9.             r2 (xyp-AngleAtPoint s1 p2)
   
10.             l1 (xyp-Line p1 (polar p1 r1 (- dd)))
    
11.             l2 (xyp-Line p2 (polar p2 r2 dd))
    
12.       )
    
13.     )
    
14.   )
    
15.   (setq dd (Udist 7 "" "线长<输入或鼠标直接量取>" dd nil))
    
16.   (setq i -1)
    
17.   (if (setq ss (ssget '((0 . "*line,arc"))))
    
18.     (while (setq s1 (ssname ss (setq i (1+ i))))
    
19.       (abc s1)
    
20.     )
    
21.   )
    
22.   (princ)
    
23. )

(defun c:tt ()<br />   "tt(两端画线)"<br />   (defun abc (s1 / p1 p2 r1 r2 l1 l2)<br />     (setq p1 (vlax-curve-getStartPoint s1)<br />           p2 (vlax-curve-getEndPoint s1)<br />     )<br />     (if (not (equal p1 p2 1e-3))<br />       (setq r1 (xyp-AngleAtPoint s1 p1)<br />             r2 (xyp-AngleAtPoint s1 p2)<br />             l1 (xyp-Line p1 (polar p1 r1 (- dd)))<br />             l2 (xyp-Line p2 (polar p2 r2 dd))<br />       )<br />     )<br />   )<br />   (setq dd (Udist 7 "" "线长<输入或鼠标直接量取>" dd nil))<br />   (setq i -1)<br />   (if (setq ss (ssget '((0 . "*line,arc"))))<br />     (while (setq s1 (ssname ss (setq i (1+ i))))<br />       (abc s1)<br />     )<br />   )<br />   (princ)<br /> )

弥勒

kozmosovia 发表于 2024-10-17 20:26
任意曲线的，拐弯也不怕，端点曲线也相切

写的真好！！！！牛逼

624777395

飞雪神光 发表于 2024-10-17 19:21

谢谢大佬，这就是我要的