[LISP程序]：绘制管道沟的

YueFeng

;;;绘制出管道沟类线。

1. 
   
2. (Defun C:YF_GDG(/ YF_GDGNK1 YF_GDGWK1 P1 P2 P3 P4 P5 P6 P7 P8 ANG1 S1)
   
3.    (SetQ P1 (GetPoint "\n请选择管道沟第一点:")
   
4.          P2 (GetPoint P1 "\n请选择管道沟第二点:")
   
5.    )
   
6.    ;(SetQ YF_GDGNK (GetInt "\n请输入沟内宽:")
   
7.    ;         YF_GDGWK (GetInt "\n请输入沟外宽:")
   
8.    ;)
   
9.    (If (= YF_GDGNK Nil)
   
10.       (SetQ YF_GDGNK (GetInt "\n请输入沟内宽:"))
    
11.       (Progn
    
12.          (SetQ YF_GDGNK1 (GetInt (StrCat "\n请输入沟内宽[" (IToA YF_GDGNK) "]:")))
    
13.          (If (/= YF_GDGNK1 Nil) (SetQ YF_GDGNK YF_GDGNK1))
    
14.       )
    
15.    )   
    
16.    (If (= YF_GDGWK Nil)
    
17.       (SetQ YF_GDGWK (GetInt "\n请输入沟内宽:"))
    
18.       (Progn
    
19.          (SetQ YF_GDGWK1 (GetInt (StrCat "\n请输入沟外宽[" (IToA YF_GDGWK) "]:")))
    
20.          (If (/= YF_GDGWK1 Nil) (SetQ YF_GDGWK YF_GDGWK1))
    
21.       )
    
22.    )                
    
23.    (XDRX_Begin)
    
24.    (SetQ ANG1 (Angle P1 P2))
    
25.    (SetQ P3 (Polar P1 (+ ANG1 (/ PI 2)) (/ YF_GDGNK 2))
    
26.          P4 (Polar P2 (+ ANG1 (/ PI 2)) (/ YF_GDGNK 2))
    
27.    )         
    
28.    ;(Vl-CmdF "._LINE" P3 P4 "")
    
29.    (XDRX_Line1 P3 P4)
    
30.    (SetQ P3 (Polar P1 (- ANG1 (/ PI 2)) (/ YF_GDGNK 2))
    
31.          P4 (Polar P2 (- ANG1 (/ PI 2)) (/ YF_GDGNK 2))
    
32.    )
    
33.    ;(Vl-CmdF "._LINE" P3 P4 "")
    
34.    (XDRX_Line1 P3 P4)
    
35.    (SetQ P5 (Polar P1 (+ ANG1 (/ PI 2)) (/ YF_GDGWK 2))
    
36.          P6 (Polar P2 (+ ANG1 (/ PI 2)) (/ YF_GDGWK 2))
    
37.    )         
    
38.    ;(Vl-CmdF "._LINE" P3 P4 "")
    
39.    (XDRX_Line1 P5 P6)
    
40.    (SetQ P7 (Polar P1 (- ANG1 (/ PI 2)) (/ YF_GDGWK 2))
    
41.          P8 (Polar P2 (- ANG1 (/ PI 2)) (/ YF_GDGWK 2))
    
42.    )
    
43.    ;(Vl-CmdF "._LINE" P3 P4 "")
    
44.    (XDRX_Line1 P7 P8)
    
45.    (initget  "0 1 2 3")
    
46.    (SetQ S1 (GetKWord "两端线条封闭[0]或不封闭[1]/首端封闭[2]/尾端封闭[3]:"))
    
47.    (Cond
    
48.       ((= S1 Nil) (Progn (XDRX_Line1 P5 P7) (XDRX_Line1 P6 P8)))
    
49.       ((= S1 "0") (Progn (XDRX_Line1 P5 P7) (XDRX_Line1 P6 P8)))
    
50.       ((= S1 "1"))
    
51.       ((= S1 "2") (XDRX_Line1 P5 P7))
    
52.       ((= S1 "3") (XDRX_Line1 P6 P8))
    
53.    )   
    
54.    (XDRX_End)
    
55. )
    

复制代码

YueFeng

LISP程序在此下载。
需XDRX_API支持。