[求助]一个复杂三维实体，如何获取将其包容的长方体的长宽高 ？

ljpnb

;;http://free.ys168.com/?lucas-lai
(defun C:Test (/ LST MAXPOINT MINPOINT point)
  (vla-getboundingbox
    (vlax-ename->vla-object (car (entsel)))
    'MINPOINT
    'MAXPOINT
  )
  (setq LST (mapcar 'vlax-safearray->list (list MINPOINT MAXPOINT)))
  (setq MINPOINT(car lst)
 MAXPOINT(cadr lst)
 )
  (setq point(list (car MAXPOINT) (cadr MINPOINT )(caddr MINPOINT)))

  (setq LST (mapcar 'abs (mapcar '- (car LST) (cadr LST))))
  (setq
    LST (list (list "长宽高"
      (strcat
        (rtos (car LST) 2 2)
        "X"
        (rtos (cadr LST) 2 2)
        "X"
        (rtos (last LST) 2 2)
      )
       )
       (list "体积"
      (rtos (* (car LST) (cadr LST) (last LST)) 2 2)
       )
 )
  )
  ;;(TABLE_UTIL LST (getpoint "\n表格插入点: ") "standard" 20)
  (princ"\n右下角坐标为:")
  (princ point)
  (princ)
)

hxh2901

问题已解决，谢谢楼上的

chenqq

为什么我用了龙版主最后一个代码，提示插入表格点以后，随便点了一点，表格没出现呢？提示没定义TABLE_UTIL呢？能不能弄完整的代码出来呢，这个对我也很有用，谢谢版主了

xhq1954425

学习一下　！

 

chenqq

谁来帮帮我啊~拜托了

chenqq

拜托大家了！帮帮我，不要让这贴沉了

cable2004

顶起此贴，希望高手回答！