[已经解决]获取对象包围盒、最小包围盒-----(也适于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 "_

"))
(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)