关于LISP TRANS函数不接受坐标大于1.0E+99的问题

XDSoft

问题：

Problem with LISP (trans) function not accepting coordinates larger/greater than 1.0E+99

解答：

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)

…would fail.

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 /> )<br />

MUYIY

学习学习

edrise

好方法，收藏了~感谢大大提供

dnbc

受教了，是不是IntersectWith方法运用此法也不出问题