[求助]：自己写的直线变圆弧代码的问题

zml84

2. 
   
3.         (setq pt1 (cdr (assoc 10 (entget s1)))
   
4.               pt2 (cdr (assoc 11 (entget s1)))
   
5.               px1 (car pt1)
   
6.               py1 (cadr pt1)
   
7.               px2 (car pt2)
   
8.               py2 (cadr pt2)
   
9.               px3 (/ (+ px1 px2) 2)
   
10.               py3 (/ (+ py1 py2) 2)
    
11.               pt3 (list px3 py3 0)
    
12.               ang (angle pt1 pt2)
    
13.         )
    
14. ;==========》》
    
15. 
    
16.         (setq pt1 (cdr (assoc 10 (entget s1)))
    
17.               pt2 (cdr (assoc 11 (entget s1)))
    
18.               pt1 (trans pt1 0 1);;;★应该添加到这个位置。写在该SETQ函数之后是不对的。
    
19.               pt2 (trans pt2 0 1);;;★请监视这两行运行前后的PT1、PT2的值。
    
20.               px1 (car pt1)
    
21.               py1 (cadr pt1)
    
22.               px2 (car pt2)
    
23.               py2 (cadr pt2)
    
24.               px3 (/ (+ px1 px2) 2)
    
25.               py3 (/ (+ py1 py2) 2)
    
26.               pt3 (list px3 py3 0)
    
27.               ang (angle pt1 pt2)
    
28.         )
    

<br />         (setq pt1 (cdr (assoc 10 (entget s1)))<br />               pt2 (cdr (assoc 11 (entget s1)))<br />               px1 (car pt1)<br />               py1 (cadr pt1)<br />               px2 (car pt2)<br />               py2 (cadr pt2)<br />               px3 (/ (+ px1 px2) 2)<br />               py3 (/ (+ py1 py2) 2)<br />               pt3 (list px3 py3 0)<br />               ang (angle pt1 pt2)<br />         )<br /> ;==========》》<br /> <br />         (setq pt1 (cdr (assoc 10 (entget s1)))<br />               pt2 (cdr (assoc 11 (entget s1)))<br />               pt1 (trans pt1 0 1);;;★应该添加到这个位置。写在该SETQ函数之后是不对的。<br />               pt2 (trans pt2 0 1);;;★请监视这两行运行前后的PT1、PT2的值。<br />               px1 (car pt1)<br />               py1 (cadr pt1)<br />               px2 (car pt2)<br />               py2 (cadr pt2)<br />               px3 (/ (+ px1 px2) 2)<br />               py3 (/ (+ py1 py2) 2)<br />               pt3 (list px3 py3 0)<br />               ang (angle pt1 pt2)<br />         )<br />