[求助] 取得三维实体的边界框坐标值

xiahwan

在线求助:

LISP中通过什么变量获得三维实体的边界框坐标值

 ----------------   实体    ----------------

质量:                    2301805.6628
体积:                    2301805.6628
边界框:               X: 744.6168  --  1193.0931
                      Y: 378.6073  --  529.5633
                      Z: 0.0000  --  34.0000
质心:                 X: 968.8549
                      Y: 454.0853
                      Z: 17.0000
惯性矩:               X: 4.7988E+11
                      Y: 2.2001E+12
                      Z: 2.6782E+12
惯性积:              XY: 1.0127E+12
                     YZ: 17768673854.9407
                     ZX: 37911967915.5229
旋转半径:             X: 456.5937
                      Y: 977.6636
                      Z: 1078.6720
主力矩与质心的 X-Y-Z 方向:
                      I: 4592812953.2263 沿 [1.0000 0.0000 0.0000]
                      J: 38802102436.2318 沿 [0.0000 1.0000 0.0000]
                      K: 42951434165.0980 沿 [0.0000 0.0000 1.0000]

alin

3. (defun C:tt(/ obj llpt urpt)
4.   (setq obj (vlax-ename->vla-object (car (entsel "\nSelect a 3D Solid: "))))
5.   (vla-getboundingbox obj 'llpt 'urpt)
6.   (setq llpt (vlax-safearray->list llpt)
7. urpt (vlax-safearray->list urpt))
8.   (alert (strcat "X:  " (rtos (car llpt) 2 4) "  --  " (rtos (car urpt) 2 4) "\n"
9.    "Y:  " (rtos (cadr llpt) 2 4) "  --  " (rtos (cadr urpt) 2 4) "\n"
10.    "Z:  " (rtos (caddr llpt) 2 4) "  --  " (rtos (caddr urpt) 2 4) "\n"))
11.   (princ)
12. )

(defun C:tt(/ obj llpt urpt)   (setq obj (vlax-ename->vla-object (car (entsel "\nSelect a 3D Solid: "))))   (vla-getboundingbox obj 'llpt 'urpt)   (setq llpt (vlax-safearray->list llpt) urpt (vlax-safearray->list urpt))   (alert (strcat "X:  " (rtos (car llpt) 2 4) "  --  " (rtos (car urpt) 2 4) "\n"    "Y:  " (rtos (cadr llpt) 2 4) "  --  " (rtos (cadr urpt) 2 4) "\n"    "Z:  " (rtos (caddr llpt) 2 4) "  --  " (rtos (caddr urpt) 2 4) "\n"))   (princ) )

xiahwan

谢谢