画双线求修改

sunny_8848

用来画截面挺方便的，谢谢分享

wjlddh

挺好 感谢分享

水仙的错

可以画曲线吗？

183017064

2. (defun pt ()
   
3.   (setq p1 nil
   
4.     p2 nil)
   
5.   (while (or (null p1) (null p2))
   
6.     (if (null p1)
   
7.       (progn
   
8.         (setq p1 (getpoint (strcat"\n<空格>重新开始OR<Esc>退出OR请点击第一个点：当前管外径是："(rtos (* offset_distance 2)2 2 ))))
   
9.         (if (null p1)
   
10.           (progn
    
11.             (princ "\n重新输入管外径。")
    
12.             (C:djg)
    
13.           )
    
14.         )
    
15.       )
    
16.     )
    
17.     (if (null p2)
    
18.       (setq p2 (getpoint p1"\n请点击第二个点："))
    
19.     )
    
20.   )
    
21.   (line p1 p2)
    
22. )
    
23. 
    
24. 
    
25. 
    
26. (defun line (p1 p2)
    
27.   
    
28.   
    
29.   (setq original_line (entmakex (list (cons 0 "LINE") (cons 10 p1) (cons 11 p2))))
    
30.   ; 计算直线的方向向量
    
31.   (setq dx (- (car p2) (car p1)))
    
32.   (setq dy (- (cadr p2) (cadr p1)))
    
33.   ; 计算垂直方向向量（通过交换坐标并改变其中一个的符号）
    
34.   (setq perp_dx (- dy))
    
35.   (setq perp_dy dx)
    
36.   ; 计算垂直方向的单位向量
    
37.   (setq xiangliang (sqrt (+ (* perp_dx perp_dx) (* perp_dy perp_dy))))
    
38.   (setq unit_perp_dx (/ perp_dx xiangliang))
    
39.   (setq unit_perp_dy (/ perp_dy xiangliang))
    
40.   ; 计算偏移后的端点坐标
    
41.   (setq new_p1 (list (+ (car p1) (* offset_distance unit_perp_dx))
    
42.                  (+ (cadr p1) (* offset_distance unit_perp_dy))))
    
43.   (setq new_p2 (list (+ (car p2) (* offset_distance unit_perp_dx))
    
44.                  (+ (cadr p2) (* offset_distance unit_perp_dy))))
    
45.   (setq new_line1 (entmakex (list (cons 0 "LINE") (cons 10 new_p1) (cons 11 new_p2))))
    
46.   (setq new_p3 (list (- (car p1) (* offset_distance unit_perp_dx))
    
47.                  (- (cadr p1) (* offset_distance unit_perp_dy))))
    
48.   (setq new_p4 (list (- (car p2) (* offset_distance unit_perp_dx))
    
49.                  (- (cadr p2) (* offset_distance unit_perp_dy))))
    
50.   (setq new_line2 (entmakex (list (cons 0 "LINE") (cons 10 new_p3) (cons 11 new_p4))))
    
51.   ; 删除初始直线
    
52.   (command "erase" original_line "")
    
53.   
    
54.   (pt)
    
55. )
    
56. 
    
57. (defun C:djg()
    
58.   
    
59.   (setq offset_distance (getreal "\n请输入管外经: "))
    
60.   (setq offset_distance (/ offset_distance 2 ))
    
61.   
    
62.   (pt)
    
63. )
    

(defun pt ()<br />   (setq p1 nil<br />     p2 nil)<br />   (while (or (null p1) (null p2))<br />     (if (null p1)<br />       (progn<br />         (setq p1 (getpoint (strcat"\n<空格>重新开始OR<Esc>退出OR请点击第一个点：当前管外径是："(rtos (* offset_distance 2)2 2 ))))<br />         (if (null p1)<br />           (progn<br />             (princ "\n重新输入管外径。")<br />             (C:djg)<br />           )<br />         )<br />       )<br />     )<br />     (if (null p2)<br />       (setq p2 (getpoint p1"\n请点击第二个点："))<br />     )<br />   )<br />   (line p1 p2)<br /> )<br /> <br /> <br /> <br /> (defun line (p1 p2) <br />   <br />   <br />   (setq original_line (entmakex (list (cons 0 "LINE") (cons 10 p1) (cons 11 p2))))<br />   ; 计算直线的方向向量<br />   (setq dx (- (car p2) (car p1)))<br />   (setq dy (- (cadr p2) (cadr p1)))<br />   ; 计算垂直方向向量（通过交换坐标并改变其中一个的符号）<br />   (setq perp_dx (- dy))<br />   (setq perp_dy dx)<br />   ; 计算垂直方向的单位向量<br />   (setq xiangliang (sqrt (+ (* perp_dx perp_dx) (* perp_dy perp_dy))))<br />   (setq unit_perp_dx (/ perp_dx xiangliang))<br />   (setq unit_perp_dy (/ perp_dy xiangliang))<br />   ; 计算偏移后的端点坐标<br />   (setq new_p1 (list (+ (car p1) (* offset_distance unit_perp_dx))<br />                  (+ (cadr p1) (* offset_distance unit_perp_dy))))<br />   (setq new_p2 (list (+ (car p2) (* offset_distance unit_perp_dx))<br />                  (+ (cadr p2) (* offset_distance unit_perp_dy))))<br />   (setq new_line1 (entmakex (list (cons 0 "LINE") (cons 10 new_p1) (cons 11 new_p2))))<br />   (setq new_p3 (list (- (car p1) (* offset_distance unit_perp_dx))<br />                  (- (cadr p1) (* offset_distance unit_perp_dy))))<br />   (setq new_p4 (list (- (car p2) (* offset_distance unit_perp_dx))<br />                  (- (cadr p2) (* offset_distance unit_perp_dy))))<br />   (setq new_line2 (entmakex (list (cons 0 "LINE") (cons 10 new_p3) (cons 11 new_p4))))<br />   ; 删除初始直线<br />   (command "erase" original_line "")<br />   <br />   (pt)<br /> )<br /> <br /> (defun C:djg()<br />   <br />   (setq offset_distance (getreal "\n请输入管外经: "))<br />   (setq offset_distance (/ offset_distance 2 ))<br />   <br />   (pt)<br /> )<br />

sdh123321

很抱歉，为了大家更简单的绘图，说个有点打击的话，无需插件，使用系统自带命令可以实现上图命令：
首先，使用菜单-格式-多线样式，设置共三根线，中心线为红色中心线  距离为0， 上部距离为-0.5，下部为0.5.
其次，使用多线命令mline，可以点点随意画图了。所谓宽度就是特性里更改比例的数值，可以随时更改，自动变宽。
特点：用起来更简单，且另外使用自带的可以多线编辑命令，实现接口的自动处理，遗憾的是特性里没有长度属性，