Trans转换大数坐标出错问题

Free-Lancer

Problem with LISP (trans) function not accepting coordinates larger/greater than 1.0E+99                                                        by Fenton Webb
  In Visual LISP, you will get an error if you use the TRANS function with a large input value - For example, type the following LISP expression at the command prompt:
  (trans (0.0 0.0 3.0e+099) 0 1)
  To solve this issue, best thing is to use the ActiveX TranslateCoordinates() method of the Utility class.
  The following code shows how the TranslateCoordinates() method is successful for an input point of (0.0 0.0 3e+99), where…
  (trans (0.0 0.0 3e+099) 0 1)

1. (defun c:Test()
   
2.   (vl-load-com)
   
3.   (setq poActDoc (vla-get-ActiveDocument (vlax-get-acad-object)))
   
4.   (setq poUtility(vla-get-Utility poActDoc))
   
5.   (setq poTestPoint (vlax-3d-point '(0.0 0.0 3e+99)))
   
6.   (setq poRetPoint(vla-TranslateCoordinates poUtility poTestPoint acUCS acWORLD 0))
   
7.   (princ (vlax-safearray->list (vlax-variant-value poRetPoint)))
   
8.   (princ)
   
9. )

(defun c:Test()<br />   (vl-load-com)<br />   (setq poActDoc (vla-get-ActiveDocument (vlax-get-acad-object)))<br />   (setq poUtility(vla-get-Utility poActDoc))<br />   (setq poTestPoint (vlax-3d-point '(0.0 0.0 3e+99)))<br />   (setq poRetPoint(vla-TranslateCoordinates poUtility poTestPoint acUCS acWORLD 0))<br />   (princ (vlax-safearray->list (vlax-variant-value poRetPoint)))<br />   (princ)<br /> )

/db_自贡黄明儒_

楼主翻译一下该多好呀,英文看起来多费劲.

Free-Lancer

/db_自贡黄明儒_ 发表于 2013-5-25 08:01
楼主翻译一下该多好呀,英文看起来多费劲.

英文的大概意思 Trans 含有1e99的坐标时会提示error，解决办法用ActiveX 的 TranslateCoordinates 方法