这样的程序如何简化？

smartstar

2. (defun c:ddd ()
   
3.   (setq n -1)
   
4.   (if (setq ss (ssget '((0 . "LEADER"))))
   
5.     (while (setq entname (ssname ss (setq n (+ 1 n))))
   
6.       (setq ViewportOnCode ;获得箭头样式
   
7.        (Vlax-Get (Vlax-Ename->Vla-Object entname)
   
8.            'ArrowheadType
   
9.        )
   
10.       )
    
11.       (if (= 0 ViewportOnCode)   
    
12.   (progn
    
13.     (Vlax-Put-Property
    
14.       (Vlax-Ename->Vla-Object entname)
    
15.       'ArrowheadType
    
16.       3        ;箭头样式
    
17.     )
    
18. 
    
19.     (Vlax-Put-Property
    
20.       (Vlax-Ename->Vla-Object entname)
    
21.       'ArrowheadSize
    
22.       1        ;箭头的大小
    
23.     )
    
24. 
    
25.     (Vlax-Put-Property
    
26.       (Vlax-Ename->Vla-Object entname)
    
27.       'ScaleFactor
    
28.       (* 1.5 (getvar "dimscale"))  ;箭头全局比例
    
29.     )
    
30.   )
    
31.   (progn
    
32.     (Vlax-Put-Property
    
33.       (Vlax-Ename->Vla-Object entname)
    
34.       'ArrowheadType
    
35.       0        ;箭头样式
    
36.     )
    
37.     (Vlax-Put-Property
    
38.       (Vlax-Ename->Vla-Object entname)
    
39.       'ArrowheadSize
    
40.       1        ;箭头的大小
    
41.     )
    
42. 
    
43.     (Vlax-Put-Property
    
44.       (Vlax-Ename->Vla-Object entname)
    
45.       'ScaleFactor
    
46.       (* 4 (getvar "dimscale"))  ;箭头全局比例
    
47.     )
    
48.   )
    
49.       )
    
50.     )
    
51.   )
    
52.   (princ)
    
53. )
    
54. 
    

(defun c:ddd ()<br />   (setq n -1)<br />   (if (setq ss (ssget '((0 . "LEADER"))))<br />     (while (setq entname (ssname ss (setq n (+ 1 n))))<br />       (setq ViewportOnCode ;获得箭头样式<br />        (Vlax-Get (Vlax-Ename->Vla-Object entname)<br />            'ArrowheadType<br />        )<br />       )<br />       (if (= 0 ViewportOnCode)    <br />   (progn<br />     (Vlax-Put-Property<br />       (Vlax-Ename->Vla-Object entname)<br />       'ArrowheadType<br />       3        ;箭头样式<br />     )<br /> <br />     (Vlax-Put-Property<br />       (Vlax-Ename->Vla-Object entname)<br />       'ArrowheadSize<br />       1        ;箭头的大小<br />     )<br /> <br />     (Vlax-Put-Property<br />       (Vlax-Ename->Vla-Object entname)<br />       'ScaleFactor<br />       (* 1.5 (getvar "dimscale"))  ;箭头全局比例<br />     )<br />   )<br />   (progn<br />     (Vlax-Put-Property<br />       (Vlax-Ename->Vla-Object entname)<br />       'ArrowheadType<br />       0        ;箭头样式<br />     )<br />     (Vlax-Put-Property<br />       (Vlax-Ename->Vla-Object entname)<br />       'ArrowheadSize<br />       1        ;箭头的大小<br />     )<br /> <br />     (Vlax-Put-Property<br />       (Vlax-Ename->Vla-Object entname)<br />       'ScaleFactor<br />       (* 4 (getvar "dimscale"))  ;箭头全局比例<br />     )<br />   )<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br /> <br />

以上 代码如何简化，谢谢！

snddd2000

1. (defun c:ddd (/ n ss entname ViewportOnCode obj)
   
2.   (setq n -1)
   
3.   (if (setq ss (ssget '((0 . "LEADER"))))
   
4.     (while (setq entname (ssname ss (setq n (+ 1 n))))
   
5.       (setq ViewportOnCode                ;获得箭头样式
   
6.              (Vlax-Get (setq obj (Vlax-Ename->Vla-Object entname))
   
7.                        'ArrowheadType
   
8.              )
   
9.       )
   
10.       (if (= 0 ViewportOnCode)
    
11.         (progn
    
12.           (mapcar 'Vlax-Put-Property
    
13.                   (list obj obj obj)
    
14.                   (list 'ArrowheadType 'ArrowheadSize 'ScaleFactor)
    
15.                   (list 3 1 (* 1.5 (getvar "dimscale")))
    
16.           )
    
17.         )
    
18.         (progn
    
19.           (mapcar 'Vlax-Put-Property
    
20.                   (list obj obj obj)
    
21.                   (list 'ArrowheadType 'ArrowheadSize 'ScaleFactor)
    
22.                   (list 0 1 (* 4 (getvar "dimscale")))
    
23.           )
    
24.         )
    
25.       )
    
26.     )
    
27.   )
    
28.   (princ)
    
29. )

(defun c:ddd (/ n ss entname ViewportOnCode obj)<br />   (setq n -1)<br />   (if (setq ss (ssget '((0 . "LEADER"))))<br />     (while (setq entname (ssname ss (setq n (+ 1 n))))<br />       (setq ViewportOnCode                ;获得箭头样式<br />              (Vlax-Get (setq obj (Vlax-Ename->Vla-Object entname))<br />                        'ArrowheadType<br />              )<br />       )<br />       (if (= 0 ViewportOnCode)<br />         (progn<br />           (mapcar 'Vlax-Put-Property<br />                   (list obj obj obj)<br />                   (list 'ArrowheadType 'ArrowheadSize 'ScaleFactor)<br />                   (list 3 1 (* 1.5 (getvar "dimscale")))<br />           )<br />         )<br />         (progn<br />           (mapcar 'Vlax-Put-Property<br />                   (list obj obj obj)<br />                   (list 'ArrowheadType 'ArrowheadSize 'ScaleFactor)<br />                   (list 0 1 (* 4 (getvar "dimscale")))<br />           )<br />         )<br />       )<br />     )<br />   )<br />   (princ)<br /> )

smartstar

snddd2000 发表于 2013-11-29 15:33

谢谢前辈。不过觉得好象还是有点啰嗦，但又不知道怎么优化！

snddd2000

1. (defun c:ddd (/ n ss entname ViewportOnCode obj Tornil)
   
2.   (setq n -1)
   
3.   (if (setq ss (ssget '((0 . "LEADER"))))
   
4.     (while (setq entname (ssname ss (setq n (+ 1 n))))
   
5.       (setq obj                   (Vlax-Ename->Vla-Object entname)
   
6.             ViewportOnCode (Vla-Get-ArrowheadType
   
7.                              (setq obj (Vlax-Ename->Vla-Object entname))
   
8.                            )
   
9.             Tornil           (equal 0 ViewportOnCode)
   
10.       )
    
11.       (mapcar 'Vlax-Put-Property
    
12.               (list obj obj obj)
    
13.               (list 'ArrowheadType 'ArrowheadSize 'ScaleFactor)
    
14.               (list (if        Tornil
    
15.                       3
    
16.                       0
    
17.                     )
    
18.                     1
    
19.                     (* (if Tornil
    
20.                          1.5
    
21.                          4
    
22.                        )
    
23.                        (getvar "dimscale")
    
24.                     )
    
25.               )
    
26.       )
    
27.     )
    
28.   )
    
29.   (princ)
    
30. )

(defun c:ddd (/ n ss entname ViewportOnCode obj Tornil)<br />   (setq n -1)<br />   (if (setq ss (ssget '((0 . "LEADER"))))<br />     (while (setq entname (ssname ss (setq n (+ 1 n))))<br />       (setq obj                   (Vlax-Ename->Vla-Object entname)<br />             ViewportOnCode (Vla-Get-ArrowheadType<br />                              (setq obj (Vlax-Ename->Vla-Object entname))<br />                            )<br />             Tornil           (equal 0 ViewportOnCode)<br />       )<br />       (mapcar 'Vlax-Put-Property<br />               (list obj obj obj)<br />               (list 'ArrowheadType 'ArrowheadSize 'ScaleFactor)<br />               (list (if        Tornil<br />                       3<br />                       0<br />                     )<br />                     1<br />                     (* (if Tornil<br />                          1.5<br />                          4<br />                        )<br />                        (getvar "dimscale")<br />                     )<br />               )<br />       )<br />     )<br />   )<br />   (princ)<br /> )