相同的函数怎么整合在一起？

说了谁懂721

2. (defun c:30 (/ GR LST PT)
   
3.   (setq  lst
   
4.    (entget
   
5.      (entmakex
   
6.        (list
   
7.          '(0 . "LINE")
   
8.          (cons 8 (getvar "CLAYER"))
   
9.          (cons 10
   
10.          (setq pt (getpoint "\n Specify the first point  "))
    
11.          )
    
12.          (cons 11 pt)
    
13.        )
    
14.      )
    
15.    )
    
16.   )
    
17.   (princ "\n Specify the second point  ")
    
18.   (while (and (setq gr (grread 5)) (= (car gr) 5))
    
19.     (entmod
    
20.       (subst
    
21.   (cons 11 (polar pt (/ pi 6) (distance pt (cadr gr))))
    
22.   (assoc 11 lst)
    
23.   lst
    
24.       )
    
25.     )
    
26.     (entupd (cdr (assoc -1 lst)))
    
27.   )
    
28. )
    
29. 
    
30. (defun c:45 (/ GR LST PT)
    
31.   (setq  lst
    
32.    (entget
    
33.      (entmakex
    
34.        (list
    
35.          '(0 . "LINE")
    
36.          (cons 8 (getvar "CLAYER"))
    
37.          (cons 10
    
38.          (setq pt (getpoint "\n Specify the first point  "))
    
39.          )
    
40.          (cons 11 pt)
    
41.        )
    
42.      )
    
43.    )
    
44.   )
    
45.   (princ "\n Specify the second point  ")
    
46.   (while (and (setq gr (grread 5)) (= (car gr) 5))
    
47.     (entmod
    
48.       (subst
    
49.   (cons 11 (polar pt (/ pi 4) (distance pt (cadr gr))))
    
50.   (assoc 11 lst)
    
51.   lst
    
52.       )
    
53.     )
    
54.     (entupd (cdr (assoc -1 lst)))
    
55.   )
    
56. )
    
57. 
    
58. (defun c:60 (/ GR LST PT)
    
59.   (setq  lst
    
60.    (entget
    
61.      (entmakex
    
62.        (list
    
63.          '(0 . "LINE")
    
64.          (cons 8 (getvar "CLAYER"))
    
65.          (cons 10
    
66.          (setq pt (getpoint "\n Specify the first point  "))
    
67.          )
    
68.          (cons 11 pt)
    
69.        )
    
70.      )
    
71.    )
    
72.   )
    
73.   (princ "\n Specify the second point  ")
    
74.   (while (and (setq gr (grread 5)) (= (car gr) 5))
    
75.     (entmod
    
76.       (subst
    
77.   (cons 11 (polar pt (/ pi 3) (distance pt (cadr gr))))
    
78.   (assoc 11 lst)
    
79.   lst
    
80.       )
    
81.     )
    
82.     (entupd (cdr (assoc -1 lst)))
    
83.   )
    
84. )
    
85. 
    
86. (defun c:120 (/ GR LST PT)
    
87.   (setq  lst
    
88.    (entget
    
89.      (entmakex
    
90.        (list
    
91.          '(0 . "LINE")
    
92.          (cons 8 (getvar "CLAYER"))
    
93.          (cons 10
    
94.          (setq pt (getpoint "\n Specify the first point  "))
    
95.          )
    
96.          (cons 11 pt)
    
97.        )
    
98.      )
    
99.    )
    
100.   )
     
101.   (princ "\n Specify the second point  ")
     
102.   (while (and (setq gr (grread 5)) (= (car gr) 5))
     
103.     (entmod
     
104.       (subst
     
105.   (cons 11 (polar pt (/ pi 1.5) (distance pt (cadr gr))))
     
106.   (assoc 11 lst)
     
107.   lst
     
108.       )
     
109.     )
     
110.     (entupd (cdr (assoc -1 lst)))
     
111.   )
     
112. )
     
113. 
     
114. (defun c:150 (/ GR LST PT)
     
115.   (setq  lst
     
116.    (entget
     
117.      (entmakex
     
118.        (list
     
119.          '(0 . "LINE")
     
120.          (cons 8 (getvar "CLAYER"))
     
121.          (cons 10
     
122.          (setq pt (getpoint "\n Specify the first point  "))
     
123.          )
     
124.          (cons 11 pt)
     
125.        )
     
126.      )
     
127.    )
     
128.   )
     
129.   (princ "\n Specify the second point  ")
     
130.   (while (and (setq gr (grread 5)) (= (car gr) 5))
     
131.     (entmod
     
132.       (subst
     
133.   (cons 11 (polar pt (/ pi 1.2) (distance pt (cadr gr))))
     
134.   (assoc 11 lst)
     
135.   lst
     
136.       )
     
137.     )
     
138.     (entupd (cdr (assoc -1 lst)))
     
139.   )
     
140. )
     

(defun c:30 (/ GR LST PT)<br />   (setq  lst<br />    (entget<br />      (entmakex<br />        (list<br />          '(0 . "LINE")<br />          (cons 8 (getvar "CLAYER"))<br />          (cons 10<br />          (setq pt (getpoint "\n Specify the first point  "))<br />          )<br />          (cons 11 pt)<br />        )<br />      )<br />    )<br />   )<br />   (princ "\n Specify the second point  ")<br />   (while (and (setq gr (grread 5)) (= (car gr) 5))<br />     (entmod<br />       (subst<br />   (cons 11 (polar pt (/ pi 6) (distance pt (cadr gr))))<br />   (assoc 11 lst)<br />   lst<br />       )<br />     )<br />     (entupd (cdr (assoc -1 lst)))<br />   )<br /> )<br /> <br /> (defun c:45 (/ GR LST PT)<br />   (setq  lst<br />    (entget<br />      (entmakex<br />        (list<br />          '(0 . "LINE")<br />          (cons 8 (getvar "CLAYER"))<br />          (cons 10<br />          (setq pt (getpoint "\n Specify the first point  "))<br />          )<br />          (cons 11 pt)<br />        )<br />      )<br />    )<br />   )<br />   (princ "\n Specify the second point  ")<br />   (while (and (setq gr (grread 5)) (= (car gr) 5))<br />     (entmod<br />       (subst<br />   (cons 11 (polar pt (/ pi 4) (distance pt (cadr gr))))<br />   (assoc 11 lst)<br />   lst<br />       )<br />     )<br />     (entupd (cdr (assoc -1 lst)))<br />   )<br /> )<br /> <br /> (defun c:60 (/ GR LST PT)<br />   (setq  lst<br />    (entget<br />      (entmakex<br />        (list<br />          '(0 . "LINE")<br />          (cons 8 (getvar "CLAYER"))<br />          (cons 10<br />          (setq pt (getpoint "\n Specify the first point  "))<br />          )<br />          (cons 11 pt)<br />        )<br />      )<br />    )<br />   )<br />   (princ "\n Specify the second point  ")<br />   (while (and (setq gr (grread 5)) (= (car gr) 5))<br />     (entmod<br />       (subst<br />   (cons 11 (polar pt (/ pi 3) (distance pt (cadr gr))))<br />   (assoc 11 lst)<br />   lst<br />       )<br />     )<br />     (entupd (cdr (assoc -1 lst)))<br />   )<br /> )<br /> <br /> (defun c:120 (/ GR LST PT)<br />   (setq  lst<br />    (entget<br />      (entmakex<br />        (list<br />          '(0 . "LINE")<br />          (cons 8 (getvar "CLAYER"))<br />          (cons 10<br />          (setq pt (getpoint "\n Specify the first point  "))<br />          )<br />          (cons 11 pt)<br />        )<br />      )<br />    )<br />   )<br />   (princ "\n Specify the second point  ")<br />   (while (and (setq gr (grread 5)) (= (car gr) 5))<br />     (entmod<br />       (subst<br />   (cons 11 (polar pt (/ pi 1.5) (distance pt (cadr gr))))<br />   (assoc 11 lst)<br />   lst<br />       )<br />     )<br />     (entupd (cdr (assoc -1 lst)))<br />   )<br /> )<br /> <br /> (defun c:150 (/ GR LST PT)<br />   (setq  lst<br />    (entget<br />      (entmakex<br />        (list<br />          '(0 . "LINE")<br />          (cons 8 (getvar "CLAYER"))<br />          (cons 10<br />          (setq pt (getpoint "\n Specify the first point  "))<br />          )<br />          (cons 11 pt)<br />        )<br />      )<br />    )<br />   )<br />   (princ "\n Specify the second point  ")<br />   (while (and (setq gr (grread 5)) (= (car gr) 5))<br />     (entmod<br />       (subst<br />   (cons 11 (polar pt (/ pi 1.2) (distance pt (cadr gr))))<br />   (assoc 11 lst)<br />   lst<br />       )<br />     )<br />     (entupd (cdr (assoc -1 lst)))<br />   )<br /> )<br />

yshf

2. (defun c:test (/ GR LST PT)
   
3.    (if (= (setq jdz (getint "\n角度[30/60/45/120/150]<30>:")) nil)
   
4.        (setq jdz 30)
   
5.    )
   
6.    (setq hjdz (* pi (/ jdz 180.0)))
   
7.    (setq  lst
   
8.       (entget
   
9.          (entmakex
   
10.             (list
    
11.                   '(0 . "LINE")
    
12.                    (cons 8 (getvar "CLAYER"))
    
13.                    (cons 10
    
14.                       (setq pt (getpoint "\n Specify the first point  "))
    
15.                   )
    
16.                   (cons 11 pt)
    
17.            )
    
18.         )
    
19.      )
    
20.   )
    
21.   (princ "\n Specify the second point  ")
    
22.   (while (and (setq gr (grread 5)) (= (car gr) 5))
    
23.     (entmod
    
24.       (subst
    
25.            (cons 11 (polar pt hjdz (distance pt (cadr gr))))
    
26.            (assoc 11 lst)
    
27.            lst
    
28.       )
    
29.     )
    
30.     (entupd (cdr (assoc -1 lst)))
    
31.   )
    
32. )

(defun c:test (/ GR LST PT)<br />    (if (= (setq jdz (getint "\n角度[30/60/45/120/150]<30>:")) nil)<br />        (setq jdz 30)<br />    )<br />    (setq hjdz (* pi (/ jdz 180.0)))<br />    (setq  lst<br />       (entget<br />          (entmakex<br />             (list<br />                   '(0 . "LINE")<br />                    (cons 8 (getvar "CLAYER"))<br />                    (cons 10<br />                       (setq pt (getpoint "\n Specify the first point  "))<br />                   )<br />                   (cons 11 pt)<br />            )<br />         )<br />      )<br />   )<br />   (princ "\n Specify the second point  ")<br />   (while (and (setq gr (grread 5)) (= (car gr) 5))<br />     (entmod<br />       (subst<br />            (cons 11 (polar pt hjdz (distance pt (cadr gr))))<br />            (assoc 11 lst)<br />            lst<br />       )<br />     )<br />     (entupd (cdr (assoc -1 lst)))<br />   )<br /> )

说了谁懂721

yshf 发表于 2015-11-2 15:47

非常感谢！最好能保留角度命令，这样可以直接输入。
           (defun c:30 （））
           (defun c:45 （））
           (defun c:60 （））
           (defun c:120 （））
           .
           .
           .
           .

ludaweb

1. (defun FixAngLine (ang / gr lst pt)
   
2.   (setq  lst
   
3.    (entget
   
4.      (entmakex
   
5.        (list
   
6.          '(0 . "LINE")
   
7.          (cons 8 (getvar "CLAYER"))
   
8.          (cons 10
   
9.          (setq pt (getpoint "\n Specify the first point  "))
   
10.          )
    
11.          (cons 11 pt)
    
12.        )
    
13.      )
    
14.    )
    
15.   )
    
16.   (princ "\n Specify the second point  ")
    
17.   (while (and (setq gr (grread 5)) (= (car gr) 5))
    
18.     (entmod
    
19.       (subst
    
20.   (cons 11 (polar pt (/ pi ang) (distance pt (cadr gr))))
    
21.   (assoc 11 lst)
    
22.   lst
    
23.       )
    
24.     )
    
25.     (entupd (cdr (assoc -1 lst)))
    
26.   )
    
27.   (princ)
    
28. )
    
29. (defun c:30 () (FixAngLine 6))
    
30. (defun c:45 () (FixAngLine 4))
    
31. (defun c:60 () (FixAngLine 3))
    
32. (defun c:120 () (FixAngLine 1.5))
    
33. (defun c:150 () (FixAngLine 1.2))

(defun FixAngLine (ang / gr lst pt)<br />   (setq  lst<br />    (entget<br />      (entmakex<br />        (list<br />          '(0 . "LINE")<br />          (cons 8 (getvar "CLAYER"))<br />          (cons 10<br />          (setq pt (getpoint "\n Specify the first point  "))<br />          )<br />          (cons 11 pt)<br />        )<br />      )<br />    )<br />   )<br />   (princ "\n Specify the second point  ")<br />   (while (and (setq gr (grread 5)) (= (car gr) 5))<br />     (entmod<br />       (subst<br />   (cons 11 (polar pt (/ pi ang) (distance pt (cadr gr))))<br />   (assoc 11 lst)<br />   lst<br />       )<br />     )<br />     (entupd (cdr (assoc -1 lst)))<br />   )<br />   (princ)<br /> )<br /> (defun c:30 () (FixAngLine 6))<br /> (defun c:45 () (FixAngLine 4))<br /> (defun c:60 () (FixAngLine 3))<br /> (defun c:120 () (FixAngLine 1.5))<br /> (defun c:150 () (FixAngLine 1.2))

yshf

保留角度命令，那就改为：

2. (defun c:test1()
   
3.     (if (= (setq jdz (getint "\n角度[30/45/60/120/150]<30>:")) nil)
   
4.         (setq jdz 30)
   
5.     )
   
6.     (eval (read (strcat "(c:" (itoa jdz) ")")))
   
7.     (princ)
   
8. )

(defun c:test1()<br />     (if (= (setq jdz (getint "\n角度[30/45/60/120/150]<30>:")) nil)<br />         (setq jdz 30)<br />     )<br />     (eval (read (strcat "(c:" (itoa jdz) ")")))<br />     (princ)<br /> )