用法
评论
建议
取 消
确 定
(defun entity:getbox (ent offset / lst obj p1 p2 p3 p4) "图元的最小包围盒" "return:外框(偏移后)的左下,右上角点" "example:(entity:getbox (car(entsel)) 0.1)" (if (= (quote pickset) (type ent)) (pickset:getbox ent offset) (progn (setq obj (vlax-ename->vla-object ent)) (vla-getboundingbox obj (quote p1) (quote p3)) (setq p1 (vlax-safearray->list p1) p3 (vlax-safearray->list p3)) (if (= "SPLINE" (cdr (assoc 0 (entget ent)))) (progn (setq lst (mapcar (quote (lambda (a b) (vlax-curve-getclosestpointtoprojection ent a b t))) (list p1 (list (car p1) (cadr p3) (caddr p1)) p3 (list (car p3) (cadr p1) (caddr p1))) (quote ((1.0 0 0) (0 -1.0 0) (-1.0 0 0) (0 1.0 0))))) (setq p1 (apply (quote mapcar) (cons (quote min) lst)) p3 (apply (quote mapcar) (cons (quote max) lst))))) (if (or (not offset) (equal offset 0 0.0001)) (list p1 p3) (list (list:- p1 (list offset offset 0)) (list:+ p3 (list offset offset 0)))))))
函数库使用说明
应用包
技术支持
统计信息
函数库规模: 733 个
函数库类别: 51 种
上传记录
刷新