(getpoint)的精度

czx663

最近发现(getpoint)的坐标值,只能精确到小数点后面1位,怎么提高精度?我又改用了

2. 
   
3. (setq app     (vlax-get-acad-object)
   
4.       doc     (vla-get-activedocument app)
   
5.       utility (vla-get-utility doc)
   
6. )
   
7. (setq pt (vla-getpoint utility))
   
8. (vlax-safearray->list (vlax-variant-value pt))
   

<br /> (setq app     (vlax-get-acad-object)<br />       doc     (vla-get-activedocument app)<br />       utility (vla-get-utility doc)<br /> )<br /> (setq pt (vla-getpoint utility))<br /> (vlax-safearray->list (vlax-variant-value pt))<br />

结果还是这样,直接用VBA精度就可以提高。lisp怎么实现高点的精度？

iLisp

眼见不一定为实
(setvar "dimzin" 0)
(rtos (car pt) 2 10)

czx663

:D原来如此,谢谢