[求助]：autolisp画出的图形出错

Aled

我想要在一个大长方形上绘制一堆周期排列的小长方形，可是我的程序有时候可以work，有时却会画出不规则四边形。一个小小的程序每次执行会有不同的结果，怎么会有这种怪事！而且错误总是出现(command "pline" temp1 temp2 temp3 temp4 "c")这一行，我检查一下，给的坐标并没错，可是autoCAD就常常不按给定的坐标去画图，我快被搞疯了，给各位高手帮帮忙。

(defun C:test()
  (setvar "cmdecho" 0)
  (setq ss1 (ssget ":E"))
  (setq en1 (ssname ss1 0))
  (setq en1_data (entget en1))
  (setq pt1 (cdr (nth 14 en1_data)))
  (setq pt3 (cdr (nth 22 en1_data)))
  (setq y1 (cadr pt1) y3 (cadr pt3))
  (if (> y1 y3) (setq temp pt1 pt1 pt3 pt3 temp))
  (setq period 2000)
  (setq transmission 1000)
  (setq chip_length (abs (- (cadr pt3) (cadr pt1))))
  (setq period_num (fix (/ chip_length period)))
  (setq shift (/ (- chip_length (- (* period_num period) (- period transmission))) 2))
  (setq x1 (car pt1) x3 (car pt3))
  (setq y (+ (cadr pt1) shift) y1 (+ transmission (+ (cadr pt1) shift)))
  (setq temp1 (list x1 y) temp2 (list x3 y) temp3 (list x3 y1) temp4 (list x1 y1))
  (command "pline" temp1 temp2 temp3 temp4 "c")
  (setq en2 (entlast))
  (command "array" en2 "" "r" period_num 1 period 0)
  (prin1)
)

xyp1964

问题：
1. 画线时要取消捕捉(setvar "osmode" 0)
2. (command "array" en2 "" "r" p_num 1 period 0)阵列仅一列就不能再有间距0，应改为(command "array" en2 "" "r" p_num 1 period)

2. [FONT=courier new](defun C:test ()
   
3.   ;(cmdla0)
   
4.   (setvar "osmode" 0)
   
5.   (setq        ss1 (ssget)
   
6.         i   -1
   
7.   )
   
8.   (while (setq en1 (ssname ss1 (setq i (1+ i))))
   
9.     (setq en1_data (entget en1)
   
10.           pt1           (cdr (nth 14 en1_data))
    
11.           pt3           (cdr (nth 22 en1_data))
    
12.           y1           (cadr pt1)
    
13.           y3           (cadr pt3)
    
14.     )
    
15.     (if        (> y1 y3)      
    
16.       (setq temp pt1
    
17.             pt1         pt3
    
18.             pt3         temp
    
19.       ))
    
20.     (setq period 2000
    
21.           tran         1000
    
22.           c_len         (abs (- (cadr pt3) (cadr pt1)))
    
23.           p_num         (fix (/ c_len period))
    
24.           shift         (/ (- c_len (- (* p_num period) (- period tran))) 2)
    
25.           x1         (car pt1)
    
26.           x3         (car pt3)
    
27.           y         (+ (cadr pt1) shift)
    
28.           y1         (+ tran (+ (cadr pt1) shift))
    
29.           temp1         (list x1 y)
    
30.           temp2         (list x3 y)
    
31.           temp3         (list x3 y1)
    
32.           temp4         (list x1 y1)
    
33.     )   
    
34.     (command "pline" temp1 temp2 temp3 temp4 "c")
    
35.     (setq en2 (entlast))
    
36.     (command "array" en2 "" "r" p_num 1 period)
    
37.   )
    
38.   ;(cmdla1)
    
39.   (princ)
    
40. )[/FONT]

[FONT=courier new](defun C:test ()<br />   ;(cmdla0)<br />   (setvar "osmode" 0)<br />   (setq        ss1 (ssget)<br />         i   -1<br />   )<br />   (while (setq en1 (ssname ss1 (setq i (1+ i))))<br />     (setq en1_data (entget en1)<br />           pt1           (cdr (nth 14 en1_data))<br />           pt3           (cdr (nth 22 en1_data))<br />           y1           (cadr pt1)<br />           y3           (cadr pt3)<br />     )<br />     (if        (> y1 y3)      <br />       (setq temp pt1<br />             pt1         pt3<br />             pt3         temp<br />       ))<br />     (setq period 2000<br />           tran         1000<br />           c_len         (abs (- (cadr pt3) (cadr pt1)))<br />           p_num         (fix (/ c_len period))<br />           shift         (/ (- c_len (- (* p_num period) (- period tran))) 2)<br />           x1         (car pt1)<br />           x3         (car pt3)<br />           y         (+ (cadr pt1) shift)<br />           y1         (+ tran (+ (cadr pt1) shift))<br />           temp1         (list x1 y)<br />           temp2         (list x3 y)<br />           temp3         (list x3 y1)<br />           temp4         (list x1 y1)<br />     )    <br />     (command "pline" temp1 temp2 temp3 temp4 "c")<br />     (setq en2 (entlast))<br />     (command "array" en2 "" "r" p_num 1 period)<br />   )<br />   ;(cmdla1)<br />   (princ)<br /> )[/FONT]