求助如何用LISP求得3DSOLID物件之边界下限及边界上限座标?

yoyoho

指令: LIST
选取物件: 找到 1 个

选取物件:

                  3DSOLID   图层:“H300X300”
                            空间: 模型空间
                   处理码 = b3202
              历程 = 无
            显示历程 = 否
            边界框:        边界下限 X = 1339962.9, Y = 47795.7  , Z = 100045.0
                        边界上限 X = 1339992.9, Y = 47825.7  , Z = 101024.3

请教诸位网友红色标示之 "边界下限及边界上限座标" 如何用LISP求得

yoyoho

自己顶一下!

恳请高手帮忙!

danxingpen

Signature

object.GetBoundingBox MinPoint, MaxPoint

Object

MSITStore:D:\AutoCAD%202002\help\acadauto.chm::/all_drawing_objects.htm">All Drawing Objects, MSITStore:D:\AutoCAD%202002\help\acadauto.chm::/idh_attributeref_object.htm">AttributeReference
The object or objects this method applies to.

MinPoint

Variant (three-element array of doubles); output-only
The 3D WCS coordinates specifying the minimum point of the object's bounding box.

MaxPoint

Variant (three-element array of doubles); output-only
The 3D WCS coordinates specifying the maximum point of the object's bounding box.

Remarks

The corners are returned in WCS coordinates with the box edges parallel to the WCS X, Y, and Z axes.

	MaxPoint
MinPoint

sailorcwx

(vla-getboundingbox (vlax-ename->vla-object (car (entsel))) 'maxpt 'minpt)(vlax-safearray->list maxpt)(vlax-safearray->list minpt)

yoyoho

感谢 danxingpen 及 sailorcwx 两位帮忙,谢谢!