[原创]请教在lisp 里如何获取图形对象的最大边界值？

jchdong · 发表于 2010-1-28 11:12:00

请教在lisp 里如何获取图形对象的最大边界值？

谢谢

Andyhon · 发表于 2010-1-28 11:33:00

论坛内搜
acet-ent-geomextents
vla-getboundingbox

dinosaurhxe · 发表于 2010-1-28 17:23:00

function XML() {
[native code]
}

jh1005 · 发表于 2010-1-29 00:16:00

(vla-getboundingbox (vlax-ename->vla-object ent) 'p1 'p2)
(setq p1 (trans (vlax-safearray->list p1) 0 1)
p2 (trans (vlax-safearray->list p2) 0 1))

zml84 · 发表于 2010-1-30 21:41:00

遍历 .

muhanleek · 发表于 2011-4-21 21:50:47

(defun get_out_side (ss       /       I       OUT    PT1    PT2
         PTX    PTX_MAX PTX_MIN PTY    PTY_MAX PTY_MIN
         PT_LIST
         )
  (cond
((= (type ss) 'PICKSET)
   (setq i 0
   out '()
   )
   (repeat (sslength ss)
   (setq out (cons (ssname ss i) out)
      i    (1+ i)
   )
   )
   (setq out (mapcar 'vlax-ename->vla-object out))
   (setq pt_list '())
   (foreach item out
   (vla-GetBoundingBox item 'pt1 'pt2)
   (setq pt_list (cons pt1 (cons pt2 pt_list)))
   )
   (setq pt_list (mapcar 'vlax-safearray->list pt_list))
   (setq ptx (mapcar 'car pt_list)
   pty (mapcar 'cadr pt_list)
   )
   (setq ptx_max (apply 'max ptx)
   ptx_min (apply 'min ptx)
   pty_max (apply 'max pty)
   pty_min (apply 'min pty)
   )
   (list (list ptx_min pty_min)
   (list ptx_max pty_min)
   (list ptx_max pty_max)
   (list ptx_min pty_max)
   )
)
(t nil)
  )
)

啵浪鼓 · 发表于 2011-4-22 00:54:29

本帖最后由啵浪鼓于 2011-4-22 00:56 编辑

回复 muhanleek 的帖子

楼上，如何遍历下面的矩形，得到白线最大外形呢(白线只表示最大，不能采用筛选白线的模式哦)

muhanleek · 发表于 2011-4-26 13:39:08

不太看懂你问的意思，白线矩形与其他矩形除了颜色有啥不同呢。。。。。

q530496591 · 发表于 2013-3-12 10:15:15

留个记号!以后方便学习!

拖拖_拉拉_ · 发表于 2014-4-30 13:21:44

账号		自动登录	找回密码
密码			注册

[基础] [原创]请教在lisp 里如何获取图形对象的最大边界值？

本帖子中包含更多资源

浏览过的版块