[求助]：帮俺看看哪里错了？？

redapple

2. (defun grre (/ a1 a2 b1 b2 d1 d2 d3 d4)
   
3.   (setq a1 (getvar "extmin")
   
4.         b1 (getvar "extmax"))
   
5.   (command "rectangle"  a1  b1 "")
   
6.   (setq s1 (ssget "l"))
   
7.   (command "explode" s1 "")
   
8.   (setq s2 (ssget "x" '((0 . "line")(10 . "a1")))
   
9.         s3 (ssget "x" '((0 . "line")(11 . "a1"))))
   
10.   (setq a2 (cdr (assoc 11 (entget (ssname s2 0))))
    
11.         b2 (cdr (assoc 10 (entget (ssname s2 0)))))
    
12.   (setq d1 (command "dist" a1 a2 "")
    
13.         d2 (command "dist" b1 b2 ""))
    
14.   (setq d3 (/ d1 10)
    
15.         d4 (/ d2 10))
    
16.   (command "array" s2 "" r 10 1 d3)
    
17.   (command "array" s3 "" r 1 10 d4))

(defun grre (/ a1 a2 b1 b2 d1 d2 d3 d4)<br />   (setq a1 (getvar "extmin")<br />         b1 (getvar "extmax"))<br />   (command "rectangle"  a1  b1 "")<br />   (setq s1 (ssget "l"))<br />   (command "explode" s1 "")<br />   (setq s2 (ssget "x" '((0 . "line")(10 . "a1")))<br />         s3 (ssget "x" '((0 . "line")(11 . "a1"))))<br />   (setq a2 (cdr (assoc 11 (entget (ssname s2 0))))<br />         b2 (cdr (assoc 10 (entget (ssname s2 0)))))<br />   (setq d1 (command "dist" a1 a2 "")<br />         d2 (command "dist" b1 b2 ""))<br />   (setq d3 (/ d1 10)<br />         d4 (/ d2 10))<br />   (command "array" s2 "" r 10 1 d3)<br />   (command "array" s3 "" r 1 10 d4))

aeo

(setq s2 (ssget "x" '((0 . "line")(10 . "a1")))
        s3 (ssget "x" '((0 . "line")(11 . "a1"))))

'((0 . "line")(10 . "a1"))    ' 为不求值,而且a1还引号了,所以应该什么也得不到.
如果这a1就是上面的那个a1-->(setq s2 (ssget "x" (list '(0 . "LINE")(cons 10 a1))))

eachy

2. 
   
3. (defun grre (/ a1 b1 p1 p2 d1 d2)
   
4.   (setq        a1 (getvar "extmin")
   
5.         b1 (getvar "extmax")
   
6.   )
   
7.   (setq        p1 (list (car a1) (cadr b1) 0.)
   
8.         p2 (list (car b1) (cadr a1) 0.)
   
9.         d1 (/ (distance a1 p2) 10)
   
10.   )
    
11.   (command ".line" a1 p1 "")
    
12.   (command ".-array"
    
13.            (entlast)
    
14.            ""
    
15.            "r"
    
16.            1
    
17.            10
    
18.            d1
    
19.   )
    
20.   (setq d2 (/ (distance a1 p1) 10))
    
21.   (command ".line" a1 p2 "")
    
22.   (command ".-array"
    
23.            (entlast)
    
24.            ""
    
25.            "r"
    
26.            10
    
27.            1
    
28.            d2
    
29.   )
    
30.   (command ".line" p1 b1 p2 "")
    
31. )
    

<br /> (defun grre (/ a1 b1 p1 p2 d1 d2)<br />   (setq        a1 (getvar "extmin")<br />         b1 (getvar "extmax")<br />   )<br />   (setq        p1 (list (car a1) (cadr b1) 0.)<br />         p2 (list (car b1) (cadr a1) 0.)<br />         d1 (/ (distance a1 p2) 10)<br />   )<br />   (command ".line" a1 p1 "")<br />   (command ".-array"<br />            (entlast)<br />            ""<br />            "r"<br />            1<br />            10<br />            d1<br />   )<br />   (setq d2 (/ (distance a1 p1) 10))<br />   (command ".line" a1 p2 "")<br />   (command ".-array"<br />            (entlast)<br />            ""<br />            "r"<br />            10<br />            1<br />            d2<br />   )<br />   (command ".line" p1 b1 p2 "")<br /> )<br />

redapple

太谢谢各位斑竹了，看到你们的指点和程序，思路清晰了很多，精神上也好受鼓舞。3X！