这个问题又该怎么解决呢？

275437962

1. (defun c:tt ()
   
2.   (setvar "CMDECHO" 0)
   
3.   (if (and (setq bnm (getstring "\n图块名 :"))
   
4.            (/= bnm "")
   
5.            (princ "\n选择圆 :")
   
6.            (setq ss (ssget '((0 . "CIRCLE")(40 . xxxx))))) ;;xxxx换成你需要的圆的半径
   
7.   (progn
   
8.    (setq i 0)
   
9.    (repeat (sslength ss)
   
10.     (setq pc (cdr(assoc 10 (entget (ssname ss i)))))
    
11.     (setq ely (cdr(assoc 8 (entget (ssname ss i)))))
    
12.     (command "-insert" bnm pc "" "" "")
    
13.     (command "change" (entlast) "" "p" "la" ely "co" "byl" "")
    
14.     (setq i (1+ i))
    
15.    )
    
16.   ;; (command ".erase" ss "");删去此句就保留圆
    
17.   ))
    
18.   (setvar "CMDECHO" 1)
    
19.   (princ)
    
20. )

(defun c:tt ()<br />   (setvar "CMDECHO" 0)<br />   (if (and (setq bnm (getstring "\n图块名 :"))<br />            (/= bnm "")<br />            (princ "\n选择圆 :")<br />            (setq ss (ssget '((0 . "CIRCLE")(40 . xxxx))))) ;;xxxx换成你需要的圆的半径<br />   (progn<br />    (setq i 0)<br />    (repeat (sslength ss)<br />     (setq pc (cdr(assoc 10 (entget (ssname ss i)))))<br />     (setq ely (cdr(assoc 8 (entget (ssname ss i)))))<br />     (command "-insert" bnm pc "" "" "")<br />     (command "change" (entlast) "" "p" "la" ely "co" "byl" "")<br />     (setq i (1+ i))<br />    )<br />   ;; (command ".erase" ss "");删去此句就保留圆<br />   ))<br />   (setvar "CMDECHO" 1)<br />   (princ)<br /> )

上面的程序只能针对半径是整数的圆，能否提高精度也可针对，如圆的半径为0.2345，即小数点后保留4位！！！

275437962

怎么回事！！