简单画角码

迹扬

1. ;;;(铝角)----------------------------------------------------
   
2. (defun c:jl ()
   
3.         (setvar "cmdecho" 0)
   
4.         (setq cl (getvar "clayer")
   
5.               unit (getvar "luprec")
   
6.         osm (getvar "osmode")
   
7.         )
   
8.         (setvar "osmode" 0)
   
9.         (setvar "luprec" 0)
   
10.         (command ".layer" "m" "EXTRU" "c" "GREEN" "" "" )
    
11.         (command ".layer" "set" "EXTRU" "" )
    
12.         
    
13.         (setq l 25)
    
14.         (if (> l 0)
    
15.                 (setq #l l)
    
16.                 (setq l 25)
    
17.         )
    
18.         (setq pr1 (strcat "\nHorizontal Length Of Alum. Angle <"(rtos #l)">=")
    
19.         )      
    
20.         (initget 6)
    
21.         (if (setq l (getdist pr1))
    
22.                 nil
    
23.                 (setq l #l)
    
24.         )
    
25.         
    
26.         (setq w 25)
    
27.         (if (> w 0)
    
28.                 (setq #w w)
    
29.                 (setq w 25)
    
30.         )
    
31.         (setq pr2 (strcat "\nVertical Length Of Alum. Angle <"(rtos #w)">= ")
    
32.         )
    
33.         (initget 6)        
    
34.         (if (setq w (getdist pr2))
    
35.                 nil
    
36.                 (setq w #w)
    
37.         )
    
38. 
    
39.         (setq th 3)      
    
40.         (if (> th 0)
    
41.                 (setq #th th)
    
42.                 (setq th 3)
    
43.         )
    
44.         (setq pr3 (strcat "\nThickness Of Alum. Angle <"(rtos #th)">= ")
    
45.         )
    
46.         (initget 6)
    
47.         (if (setq th (getdist pr3))
    
48.                 nil
    
49.                 (setq th #th)
    
50.         )
    
51.         (setq p1 (getpoint "\nBase-point Of Alum. Angle: ")
    
52.               p2 (list (+ l (car p1)) (cadr p1))
    
53.               p3 (list (car p2) (+ th (cadr p2)))
    
54.               p4 (list (+ th (car p1)) (+ th (cadr p1)))
    
55.               p5 (list (car p4) (+ w (cadr p1)))
    
56.               p6 (list (car p1) (+ w (cadr p1)))
    
57.         )
    
58.         
    
59.         (command ".pline" p1 p2 p3 p4 p5 p6 "c"
    
60.                  ".layer" "set" cl ""
    
61.                  ".rotate" "l" "" p1 pause
    
62.         )
    
63.         (setvar "cmdecho" 1)
    
64.         (setvar "luprec" unit)
    
65.   (setvar "osmode" osm)
    
66.         (prompt "\nAlum. Angle is done.\n")
    
67. )

;;;(铝角)----------------------------------------------------<br /> (defun c:jl () <br />         (setvar "cmdecho" 0)<br />         (setq cl (getvar "clayer")<br />               unit (getvar "luprec")<br />         osm (getvar "osmode")<br />         )<br />         (setvar "osmode" 0)<br />         (setvar "luprec" 0)<br />         (command ".layer" "m" "EXTRU" "c" "GREEN" "" "" )<br />         (command ".layer" "set" "EXTRU" "" )<br />         <br />         (setq l 25)<br />         (if (> l 0)<br />                 (setq #l l)<br />                 (setq l 25)<br />         )<br />         (setq pr1 (strcat "\nHorizontal Length Of Alum. Angle <"(rtos #l)">=")<br />         )      <br />         (initget 6)<br />         (if (setq l (getdist pr1))<br />                 nil<br />                 (setq l #l)<br />         )<br />         <br />         (setq w 25)<br />         (if (> w 0)<br />                 (setq #w w)<br />                 (setq w 25)<br />         )<br />         (setq pr2 (strcat "\nVertical Length Of Alum. Angle <"(rtos #w)">= ")<br />         )<br />         (initget 6)        <br />         (if (setq w (getdist pr2))<br />                 nil<br />                 (setq w #w)<br />         )<br /> <br />         (setq th 3)      <br />         (if (> th 0)<br />                 (setq #th th)<br />                 (setq th 3)<br />         )<br />         (setq pr3 (strcat "\nThickness Of Alum. Angle <"(rtos #th)">= ")<br />         )<br />         (initget 6)<br />         (if (setq th (getdist pr3))<br />                 nil<br />                 (setq th #th)<br />         )<br />         (setq p1 (getpoint "\nBase-point Of Alum. Angle: ") <br />               p2 (list (+ l (car p1)) (cadr p1)) <br />               p3 (list (car p2) (+ th (cadr p2)))<br />               p4 (list (+ th (car p1)) (+ th (cadr p1)))<br />               p5 (list (car p4) (+ w (cadr p1)))<br />               p6 (list (car p1) (+ w (cadr p1)))<br />         )<br />         <br />         (command ".pline" p1 p2 p3 p4 p5 p6 "c" <br />                  ".layer" "set" cl ""<br />                  ".rotate" "l" "" p1 pause<br />         )<br />         (setvar "cmdecho" 1)<br />         (setvar "luprec" unit)<br />   (setvar "osmode" osm)<br />         (prompt "\nAlum. Angle is done.\n")<br /> )

迹扬

李青松

很好，支持

水仙的错

什么程序，没有图片