[LISP程序]：使用AutoCAD三维命令自动成生成机件三视图,剖面图的程序实例

lsjjm

使用AutoCAD三维命令自动成生成机件三视图,剖面图的程序实例

2. 
   
3. (defun c:test ()
   
4.   (vl-cmdf "vpoint" "0,0,1")
   
5.   (vl-cmdf "ucs" "")
   
6.   (setvar "osmode" 0)
   
7.   (setq h0 5.9055  ;150
   
8.         h1 1.9685  ;50
   
9.         h2 3.937   ;100
   
10.         l3 1.1811  ;30
    
11.         l4 1.1811  ;30
    
12.         l5 1.5748  ;40
    
13.         l6 0.19685 ;5
    
14.         l7 1.1811  ;30
    
15.         r0 0.7874  ;20
    
16.         r1 0.7874  ;20
    
17.         l0 3.937   ;100
    
18.   )
    
19.   (setq p0 (getpoint "\nEnter the Base point: "))
    
20.   (setq l2 (* 1.414 (- h2 h1))
    
21.         l1 (- l0 l3))
    
22.   (vl-cmdf "pline" p0
    
23.            (setq p1 (polar p0 0 l0))
    
24.            (setq p2 (polar p1 (/ pi 2) h1))
    
25.            (setq p3 (polar p2 pi l1))
    
26.            (setq p4 (polar p3 (/ pi 4) l2))
    
27.            (setq p5 (polar p4 pi l3))
    
28.            (setq p6 (polar p5 (* pi 1.25) l2)) "c")
    
29.   (vl-cmdf "extrude" "l" "" h0 "")
    
30.   (setq e0 (entlast))
    
31.   (vl-cmdf "vpoint" "1,1,1")
    
32.   (vl-cmdf "ucsicon" "OR")
    
33.   (vl-cmdf "ucs" "o" p0 "ucs" "y" "90")
    
34.   (vl-cmdf "ucs" "o" (list (- h0) 0 0))
    
35.   (vl-cmdf "box" "" (list l5 l4) l0)
    
36.   (setq e1 (entlast))
    
37.   (vl-cmdf "box" (list h0 0)(list (- h0 l5) l4) l0)
    
38.   (setq e2 (entlast))
    
39.   (vl-cmdf "cylinder" (list (/ h0 2.0)(/ h1 2.0) 0) r0 l0)
    
40.   (setq e3 (entlast))
    
41.   (vl-cmdf "subtract" e0 "" e1 e2 e3 "")
    
42.   (setq e0 (entlast))
    
43.   (vl-cmdf "slice" e0 "" (list (+ l5 l6) 0 0)(list l5 l6 0)(list l5 l6 h2)
    
44.                          (list (/ h0 2.0)(/ h1 2.0)))
    
45.   (vl-cmdf "slice" e0 "" (list (- h0 l5 l6) 0 0)(list (- h0 l5) l6 0)
    
46.                          (list (- h0 l5) l6 h2)(list (/ h0 2.0)(/ h1 2.0)))
    
47.   (vl-cmdf "section" e0 "" "xy" (list 0 0 (/ l0 2.0)))
    
48.   (setq e (entlast))
    
49.   (vl-cmdf "ucs" "")
    
50.   (vl-cmdf "ucs" "o" p4 "ucs" "z" "135" "ucs" "y" "-90")
    
51.   (vl-cmdf "pline" (setq p1 (list (- (/ h0 2.0) r1) 0))
    
52.                    (setq p2 (polar p1 (/ pi 2) l7))
    
53.            "a" "d" (polar p2 (/ pi 2) l0)
    
54.                    (setq p3 (polar p2 0 (* 2 r1)))
    
55.                "l" (polar p3 (- (/ pi 2)) l7)
    
56.                "c")
    
57.   (vl-cmdf "extrude" "l" "" (- l3) "")
    
58.   (setq e4 (entlast))
    
59.   (vl-cmdf "subtract" e0 "" e4 "")
    
60.   (vl-cmdf "ucs" "")
    
61.   (vl-cmdf "vpoint" "0,-1,0")
    
62.   (vl-cmdf "vports" "s" "main")
    
63.   (vl-cmdf "vpoint" "0,0,-1")
    
64.   (vl-cmdf "vports" "s" "bottom")
    
65.   (vl-cmdf "vpoint" "1,0,0")
    
66.   (vl-cmdf "vports" "s" "right")
    
67.   (vl-cmdf "vpoint" "-1,-1,1")
    
68.   (vl-cmdf "vports" "s" "swiv")
    
69.   (vl-cmdf "vpoint" "1,0,0")
    
70.   (vl-cmdf "ucs" "v")
    
71.   (vl-cmdf "move" e "" (setq p0 (list 0 0))(polar p0 0 15))
    
72.   (vl-cmdf "zoom" "all")
    
73.   (vl-cmdf "hatch" "ansi31" "2" "0" e "")
    
74.   (vl-cmdf "pan" p0 (polar p0 0 20))
    
75.   (vl-cmdf "zoom" "c" (polar p0 0 15)(* 2 h0))
    
76.   (vl-cmdf "vports" "s" "sect")
    
77.   (if (= (getvar "tilemode") 1)(setvar "tilemode" 0))
    
78.   (vl-cmdf "pspace")
    
79.   (vl-cmdf "limits" "0,0" "12,9")
    
80.   (vl-cmdf "zoom" "all")
    
81.   (vl-cmdf "mview" "R" "main" "0,10.0" "2.5,6.0")
    
82.   (vl-cmdf "mview" "R" "bottom" "2.5,10.0" "5.0,6.0")
    
83.   (vl-cmdf "mview" "R" "right" "5.0,10.0" "7.5,6.0")
    
84.   (vl-cmdf "mview" "R" "sect" "0,2" "3.75,6.0")
    
85.   (vl-cmdf "mview" "R" "swiv" "3.75,2" "7.5,6.0")
    
86.   (princ)
    
87. )

<br /> (defun c:test ()<br />   (vl-cmdf "vpoint" "0,0,1")<br />   (vl-cmdf "ucs" "")<br />   (setvar "osmode" 0)<br />   (setq h0 5.9055  ;150<br />         h1 1.9685  ;50<br />         h2 3.937   ;100<br />         l3 1.1811  ;30<br />         l4 1.1811  ;30<br />         l5 1.5748  ;40<br />         l6 0.19685 ;5<br />         l7 1.1811  ;30<br />         r0 0.7874  ;20<br />         r1 0.7874  ;20<br />         l0 3.937   ;100<br />   )<br />   (setq p0 (getpoint "\nEnter the Base point: "))<br />   (setq l2 (* 1.414 (- h2 h1))<br />         l1 (- l0 l3))<br />   (vl-cmdf "pline" p0<br />            (setq p1 (polar p0 0 l0))<br />            (setq p2 (polar p1 (/ pi 2) h1))<br />            (setq p3 (polar p2 pi l1))<br />            (setq p4 (polar p3 (/ pi 4) l2))<br />            (setq p5 (polar p4 pi l3))<br />            (setq p6 (polar p5 (* pi 1.25) l2)) "c")<br />   (vl-cmdf "extrude" "l" "" h0 "")<br />   (setq e0 (entlast))<br />   (vl-cmdf "vpoint" "1,1,1")<br />   (vl-cmdf "ucsicon" "OR")<br />   (vl-cmdf "ucs" "o" p0 "ucs" "y" "90")<br />   (vl-cmdf "ucs" "o" (list (- h0) 0 0))<br />   (vl-cmdf "box" "" (list l5 l4) l0)<br />   (setq e1 (entlast))<br />   (vl-cmdf "box" (list h0 0)(list (- h0 l5) l4) l0)<br />   (setq e2 (entlast))<br />   (vl-cmdf "cylinder" (list (/ h0 2.0)(/ h1 2.0) 0) r0 l0)<br />   (setq e3 (entlast))<br />   (vl-cmdf "subtract" e0 "" e1 e2 e3 "")<br />   (setq e0 (entlast))<br />   (vl-cmdf "slice" e0 "" (list (+ l5 l6) 0 0)(list l5 l6 0)(list l5 l6 h2)<br />                          (list (/ h0 2.0)(/ h1 2.0)))<br />   (vl-cmdf "slice" e0 "" (list (- h0 l5 l6) 0 0)(list (- h0 l5) l6 0)<br />                          (list (- h0 l5) l6 h2)(list (/ h0 2.0)(/ h1 2.0)))<br />   (vl-cmdf "section" e0 "" "xy" (list 0 0 (/ l0 2.0)))<br />   (setq e (entlast))<br />   (vl-cmdf "ucs" "")<br />   (vl-cmdf "ucs" "o" p4 "ucs" "z" "135" "ucs" "y" "-90")<br />   (vl-cmdf "pline" (setq p1 (list (- (/ h0 2.0) r1) 0))<br />                    (setq p2 (polar p1 (/ pi 2) l7))<br />            "a" "d" (polar p2 (/ pi 2) l0)<br />                    (setq p3 (polar p2 0 (* 2 r1)))<br />                "l" (polar p3 (- (/ pi 2)) l7)<br />                "c")<br />   (vl-cmdf "extrude" "l" "" (- l3) "")<br />   (setq e4 (entlast))<br />   (vl-cmdf "subtract" e0 "" e4 "")<br />   (vl-cmdf "ucs" "")<br />   (vl-cmdf "vpoint" "0,-1,0")<br />   (vl-cmdf "vports" "s" "main")<br />   (vl-cmdf "vpoint" "0,0,-1")<br />   (vl-cmdf "vports" "s" "bottom")<br />   (vl-cmdf "vpoint" "1,0,0")<br />   (vl-cmdf "vports" "s" "right")<br />   (vl-cmdf "vpoint" "-1,-1,1")<br />   (vl-cmdf "vports" "s" "swiv")<br />   (vl-cmdf "vpoint" "1,0,0")<br />   (vl-cmdf "ucs" "v")<br />   (vl-cmdf "move" e "" (setq p0 (list 0 0))(polar p0 0 15))<br />   (vl-cmdf "zoom" "all")<br />   (vl-cmdf "hatch" "ansi31" "2" "0" e "")<br />   (vl-cmdf "pan" p0 (polar p0 0 20))<br />   (vl-cmdf "zoom" "c" (polar p0 0 15)(* 2 h0))<br />   (vl-cmdf "vports" "s" "sect")<br />   (if (= (getvar "tilemode") 1)(setvar "tilemode" 0))<br />   (vl-cmdf "pspace")<br />   (vl-cmdf "limits" "0,0" "12,9")<br />   (vl-cmdf "zoom" "all")<br />   (vl-cmdf "mview" "R" "main" "0,10.0" "2.5,6.0")<br />   (vl-cmdf "mview" "R" "bottom" "2.5,10.0" "5.0,6.0")<br />   (vl-cmdf "mview" "R" "right" "5.0,10.0" "7.5,6.0")<br />   (vl-cmdf "mview" "R" "sect" "0,2" "3.75,6.0")<br />   (vl-cmdf "mview" "R" "swiv" "3.75,2" "7.5,6.0")<br />   (princ)<br /> )