[LISP函数]：请高手优化该程序！

taner

功能：任意方向矩形阵列

2. 
   
3. (defun c:da (/ z obj1 obj2 a b c d pt1 pt2)
   
4.   (command "undo" "be")
   
5.   (setq z (getvar "cmdecho"))
   
6.   (setvar "cmdecho" 0)
   
7. 
   
8.   (prompt "\n请选择需要阵列的实体:")
   
9.   (setq obj2 (ssget))
   
10.   (initget 6)
    
11.   (setq a (getint "\n输入行数 (---) <1> "))
    
12.   (if (= a nil)
    
13.     (setq a 1)
    
14.   )
    
15.   (initget 6)
    
16.   (setq b (getint "\n输入列数 (|||) <1> "))
    
17.   (if (= b nil)
    
18.     (setq b 1)
    
19.   )
    
20.   (initget 3)
    
21.   (if (/= a 1)
    
22.     (setq c (getdist "\n输入行间距(---):"))
    
23.   )
    
24.   (initget 3)
    
25.   (if (/= b 1)
    
26.     (setq d (getdist "\n输入列间距(|||):"))
    
27.   )
    
28.   (setq
    
29.     obj1 (car
    
30.            (entsel "\n请选择实体以便转换座标系or以两点选定阵列方向：")
    
31.          )
    
32.   )
    
33.   (if (= obj1 nil)
    
34.     (progn
    
35.       (setq pt1 (getpoint "\n请选取线段起点："))
    
36.       (setq pt2 (getpoint pt1 "\n请选取线段终点："))
    
37. 
    
38.       (command "line" pt1 pt2 "")
    
39.       (setq obj1 (entlast))
    
40.     )
    
41.   )
    
42. 
    
43.   (command "ucs" "ob" obj1)
    
44.   (if  (= a 1)
    
45.     (command "array" obj2 "" "r" a b d)
    
46.     (if (= b 1)
    
47.     (command "array" obj2 "" "r" a b c )
    
48.       (command "array" obj2 "" "r" a b c d)
    
49.   ))
    
50. 
    
51. (command "erase" obj1 "")
    
52.   (command "ucs" "world")
    
53.   (setvar "cmdecho" z)
    
54.   (command "undo" "e")
    
55.   (princ)
    
56. )

<br /> (defun c:da (/ z obj1 obj2 a b c d pt1 pt2)<br />   (command "undo" "be")<br />   (setq z (getvar "cmdecho"))<br />   (setvar "cmdecho" 0)<br /> <br />   (prompt "\n请选择需要阵列的实体:")<br />   (setq obj2 (ssget))<br />   (initget 6)<br />   (setq a (getint "\n输入行数 (---) <1> "))<br />   (if (= a nil)<br />     (setq a 1)<br />   )<br />   (initget 6)<br />   (setq b (getint "\n输入列数 (|||) <1> "))<br />   (if (= b nil)<br />     (setq b 1)<br />   )<br />   (initget 3)<br />   (if (/= a 1)<br />     (setq c (getdist "\n输入行间距(---):"))<br />   )<br />   (initget 3)<br />   (if (/= b 1)<br />     (setq d (getdist "\n输入列间距(|||):"))<br />   )<br />   (setq<br />     obj1 (car<br />            (entsel "\n请选择实体以便转换座标系or以两点选定阵列方向：")<br />          )<br />   )<br />   (if (= obj1 nil)<br />     (progn<br />       (setq pt1 (getpoint "\n请选取线段起点："))<br />       (setq pt2 (getpoint pt1 "\n请选取线段终点："))<br /> <br />       (command "line" pt1 pt2 "")<br />       (setq obj1 (entlast))<br />     )<br />   )<br /> <br />   (command "ucs" "ob" obj1)<br />   (if  (= a 1) <br />     (command "array" obj2 "" "r" a b d)<br />     (if (= b 1)<br />     (command "array" obj2 "" "r" a b c )<br />       (command "array" obj2 "" "r" a b c d)<br />   ))<br /> <br /> (command "erase" obj1 "")<br />   (command "ucs" "world")<br />   (setvar "cmdecho" z)<br />   (command "undo" "e")<br />   (princ)<br /> )

懒虫

“  (command "ucs" "world")  ”
你怎么知道原来的“world"?

lijiao

不好，见过INVENTOR中的阵列功能吗？那才叫方便。