绘制管道程序。

183017064

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

  (defun pt ( /  p1 p2)<br />   (setq oldecho (getvar "cmdecho"))<br />   (setvar "cmdecho" 0)<br />   (setq p1 nil<br />   p2 nil<br />   )<br />   (while (or<br />      (null p1)<br />      (null p2)<br />    )<br />     (if (null p1)<br />       (progn<br />   (setq p1 (getpoint (strcat "\n<空格>重新开始OR<Esc>退出OR请点击第一个点：当前管外经："<br />            (rtos (* offset_distance 2) 2 2)<br />          )<br />      )<br />   )<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 / dx dy new_line1 new_line2 new_p1 new_p2 new_p3 new_p4  original_line perp_dx perp_dy  unit_perp_dy xiangliang) <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( / offset_distance)<br />   <br />   (setq offset_distance (getreal "\n请输入管外经: "))<br />   (setq offset_distance (/ offset_distance 2 ))<br />   <br />   (pt)<br /> )<br />

Aaron95

感谢大佬分享

183017064

Aaron95 发表于 2025-2-26 14:03
感谢大佬分享

闹着玩，程序比较简单，我谈不上大佬，刚学，就是小白一枚。