社区 › AutoLISP/Visual LISP 编程技术 › [已经解决]获取对象包围盒、最小包围盒-----(也适于UCS)

czcxxx 发表于 2015-10-9 09:13:17

好东西,谢谢楼主!!!!!!!!!!!!!

ludaweb 发表于 2015-10-11 20:08:16

学习学习包围盒

tryhi 发表于 2015-10-12 00:41:37

学习一下最小包围盒

zwf100 发表于 2015-10-14 22:56:11

看高手对话，真是云里雾里

cshimao 发表于 2015-10-23 20:27:18

我来向黄老师学习。

VBALISPER 发表于 2015-10-28 14:07:39

向黄长老学习..

lvbin2ooo 发表于 2015-11-3 08:35:01

不错不错不错不错不错不错

lyzydmw 发表于 2015-11-7 15:52:48

学习学习感谢分享

crazylsp 发表于 2015-11-7 21:49:20

本帖最后由 crazylsp 于 2015-11-7 22:21 编辑

第二版很好啊。试了下。高大师黄大师。
lee大师的比较简短，但是对块有点问题。(defun c:test ( / s )(if (setq s (ssget "_:L"))
    (entmake
      (append
      (list
          (cons 0 "insert")
          (cons 2 (cdr(assoc 2 (entget(ssname s 0)))))
          (cons 10(cdr(assoc 10 (entget(ssname s 0)))))
      )
      (mapcar '(lambda ( p ) (cons 10 p)) (LM:MinBoundingBox s 0.01))
      )
    )
)
(princ)
)

水帘洞扛把子 发表于 2015-11-8 08:56:29

看看是怎么回事

查看完整版本: [已经解决]获取对象包围盒、最小包围盒-----(也适于UCS)