请大神们看看这个小程序错在哪里？

Angel1995

下图红色直线是要标出的

1. (defun c:test( / a2 am b2 bm cenpt cent en en_data n old_cl os p3 p4 p5 p6 pt1 pt2 rad ss)
   
2.   (setq ss (ssget '((0 . "ARC")))
   
3.   n 0
   
4.   old_cl (getvar "cecolor")
   
5.   os (getvar "osmode")
   
6.   )
   
7.   (repeat (sslength ss)
   
8.     (setq en (ssname ss n))
   
9.     (setq en_data (entget en))
   
10.     (setq cenpt (cdr (assoc 10 en_data)))
    
11. 
    
12.     (setq cent (trans cenpt 0 1))
    
13.     (setq rad (cdr (assoc 40 en_data)))
    
14.     (setq am (cdr (assoc 50 en_data)))
    
15.     (setq bm (cdr (assoc 51 en_data)))
    
16. 
    
17.     (setq pt1 (polar cent am rad))
    
18.     (setq pt2 (polar cent bm rad))
    
19.     (setq a2 (+ (* 1 pi) am))
    
20.     (setq p3 (polar pt1 am 0.05))
    
21.     (setq p4 (polar pt1 a2 0.05))
    
22.     (setq b2 (+ (* 1 pi) bm))
    
23.     (setq p5 (polar pt2 bm 0.05))
    
24.     (setq p6 (polar pt2 b2 0.05))
    
25. 
    
26.     (setvar "osmode" 0)
    
27.     (setvar "CECOLOR" "3")
    
28.     (command "line" p3 p4 "")
    
29.     (command "line" p5 p6 "")
    
30.     (setvar "cecolor" old_cl)
    
31.     (setvar "osmode" os)
    
32.     (setq n (1+ n))
    
33.   )
    
34.   (prin1)
    
35. )
    

(defun c:test( / a2 am b2 bm cenpt cent en en_data n old_cl os p3 p4 p5 p6 pt1 pt2 rad ss)<br />   (setq ss (ssget '((0 . "ARC")))<br />   n 0<br />   old_cl (getvar "cecolor")<br />   os (getvar "osmode")<br />   )<br />   (repeat (sslength ss)<br />     (setq en (ssname ss n))<br />     (setq en_data (entget en))<br />     (setq cenpt (cdr (assoc 10 en_data)))<br /> <br />     (setq cent (trans cenpt 0 1))<br />     (setq rad (cdr (assoc 40 en_data)))<br />     (setq am (cdr (assoc 50 en_data)))<br />     (setq bm (cdr (assoc 51 en_data)))<br /> <br />     (setq pt1 (polar cent am rad))<br />     (setq pt2 (polar cent bm rad))<br />     (setq a2 (+ (* 1 pi) am))<br />     (setq p3 (polar pt1 am 0.05))<br />     (setq p4 (polar pt1 a2 0.05))<br />     (setq b2 (+ (* 1 pi) bm))<br />     (setq p5 (polar pt2 bm 0.05))<br />     (setq p6 (polar pt2 b2 0.05))<br /> <br />     (setvar "osmode" 0)<br />     (setvar "CECOLOR" "3")<br />     (command "line" p3 p4 "")<br />     (command "line" p5 p6 "")<br />     (setvar "cecolor" old_cl)<br />     (setvar "osmode" os)<br />     (setq n (1+ n))<br />   )<br />   (prin1)<br /> )<br />

zyhandw

看看晓东论坛上，按3、5楼的建议改了再试试，应该就是你想要的结果了

Andyhon

(setq cenpt (cdr (assoc 20 en_data)))
==>
(setq cenpt (cdr (assoc 10 en_data)))
==========================
另
   (setvar "cecolor" old_cl)
    (setvar "osmode" os)
请移出