[求助]：怎么将一个对像（或一个选集）用最少的红色方格框着

z394326635 · 发表于 2008-12-29 11:05:27

提示: 作者被禁止或删除内容自动屏蔽

nonsmall · 发表于 2008-12-29 11:30:24

难度不小啊

z394326635 · 发表于 2008-12-29 11:32:55

提示: 作者被禁止或删除内容自动屏蔽

taner · 发表于 2008-12-29 13:25:06

[FONT=courier new]
;;; ==================================================================
(defun c:test (/ laste lst ss)
(setq ss (ssget))
(setq lst (txt-getss-llur ss))
(command "_rectang" (car lst) (cadr lst))
(setq laste (entlast))
(vla-put-color (vlax-ename->vla-object laste) 1)
(princ)
)
;;; ==================================================================
(defun txt-getss-llur (ss / ssl i ptl)
(setq ssl (sslength ss)
i -1
)
(repeat ssl
(setq ptl (cons (txt-getobj-llur (ssname ss (setq i (1+ i)))) ptl))
)
(txt-ll-ur (apply
'append
ptl
)
)
)
(defun txt-getobj-llur (ename / ll ur)
(vla-getboundingbox (th2o ename) 'll 'ur)
(list (vlax-safearray->list ll) (vlax-safearray->list ur))
)
(defun txt-ll-ur (ptl)
(list (apply
'mapcar
(cons 'min ptl)
) (apply
'mapcar
(cons 'max ptl)
)
)
)
;;; ==================================================================
[/FONT]

[FONT=courier new] 
;;; ================================================================== 
(defun c:test (/ laste lst ss) 
  (setq ss (ssget)) 
  (setq lst (txt-getss-llur ss)) 
  (command "_rectang" (car lst) (cadr lst)) 
  (setq laste (entlast)) 
  (vla-put-color (vlax-ename->vla-object laste) 1) 
  (princ) 
) 
;;; ================================================================== 
(defun txt-getss-llur (ss / ssl i ptl) 
  (setq ssl (sslength ss) 
        i -1 
  ) 
  (repeat ssl 
    (setq ptl (cons (txt-getobj-llur (ssname ss (setq i (1+ i)))) ptl)) 
  ) 
  (txt-ll-ur (apply 
               'append 
               ptl 
             ) 
  ) 
) 
(defun txt-getobj-llur (ename / ll ur) 
  (vla-getboundingbox (th2o ename) 'll 'ur) 
  (list (vlax-safearray->list ll) (vlax-safearray->list ur)) 
) 
(defun txt-ll-ur (ptl) 
  (list (apply 
          'mapcar 
          (cons 'min ptl) 
        ) (apply 
            'mapcar 
            (cons 'max ptl) 
          ) 
  ) 
) 
;;; ================================================================== 
  [/FONT]

nonsmall · 发表于 2008-12-29 14:32:40

看代码就知道
这不是最小的框

taner · 发表于 2008-12-29 15:00:45

最初由 nonsmall 发布
[B]看代码就知道
这不是最小的框 [/B]

你弄一个最小的出来，俺学习学习！

雄啸 · 发表于 2008-12-29 19:49:58

z394326635 · 发表于 2008-12-29 21:09:19

提示: 作者被禁止或删除内容自动屏蔽

zhang8755 · 发表于 2008-12-29 22:03:24

一定是闭合图形吗？
对于非闭合图形思路：
1.用小方格覆盖整个图形范围（vla-getboundingbox 范围）
2.逐个按小方格压选，判断是否选中该图形，进行过滤，留下选中的即可

qiaqiadeng · 发表于 2009-1-2 14:33:17

用vla-getboundingbox 遍历每个对象，然后求出所有对象的最大和最小XY坐标，求出左下角点和右上角点，画矩形

carrot1983 · 发表于 2009-1-2 22:26:42

最初由 zhang8755 发布
[B]一定是闭合图形吗？
对于非闭合图形思路：
1.用小方格覆盖整个图形范围（vla-getboundingbox 范围）
2.逐个按小方格压选，判断是否选中该图形，进行过滤，留下选中的即可 [/B]

看来有人明白发生什么事了。。。
呵呵。。。这个还没解决乎？？？

z394326635 · 发表于 2009-1-4 19:18:11

提示: 作者被禁止或删除内容自动屏蔽

Free-Lancer · 发表于 2009-1-4 19:29:01

按小方格的话和搜外轮廓有什么区别？

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

z394326635 z394326635 当前离线 UID 619956 积分 25 精华贡献威望活跃度 D豆在线时间小时注册时间 2008-5-2 最后登录 1970-1-1 窥视卡雷达卡	发表于 2008-12-29 11:05:27 \| 显示全部楼层 \|阅读模式【广而告之】积分规则、D豆获取攻略窝窝空间装扮攻略提示: 作者被禁止或删除内容自动屏蔽
	相关帖子 • 用SketchUp和Eclipse进行3-D建模(1) • COM编程初探 • ToolTip ,气泡通知 • 写一个简短的程序，插入一个新的数值到一个排好序的表中。 • [原创]AutoCAD的三大程序语言(ARX,LISP,VBA)的连接 • 用LISP构建幻方 • 贴出两个有奖题目！ • 用Brent方法和弦截法求一元方程的解 • 请求一个根据多段线顶点的信息生成多段线的程序。 • 怎样得到多义线内一点论坛插件加载方法发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
	回复使用道具举报提升卡置顶卡沉默卡变色卡千斤顶

z394326635 z394326635 当前离线 UID 619956 积分 25 精华贡献威望活跃度 D豆在线时间小时注册时间 2008-5-2 最后登录 1970-1-1 窥视卡雷达卡	楼主\| 发表于 2008-12-29 11:32:55 \| 显示全部楼层【广而告之】积分规则、D豆获取攻略窝窝空间装扮攻略提示: 作者被禁止或删除内容自动屏蔽
	论坛插件加载方法发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
	回复支持反对使用道具举报

z394326635 z394326635 当前离线 UID 619956 积分 25 精华贡献威望活跃度 D豆在线时间小时注册时间 2008-5-2 最后登录 1970-1-1 窥视卡雷达卡	楼主\| 发表于 2008-12-29 21:09:19 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽
	论坛插件加载方法发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
	回复支持反对使用道具举报

z394326635 z394326635 当前离线 UID 619956 积分 25 精华贡献威望活跃度 D豆在线时间小时注册时间 2008-5-2 最后登录 1970-1-1 窥视卡雷达卡	楼主\| 发表于 2009-1-4 19:18:11 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽
	论坛插件加载方法发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
	回复支持反对使用道具举报

[求助] [求助]：怎么将一个对像（或一个选集）用最少的红色方格框着

相关帖子