查看单个帖子
旧 2009-04-26, 01:58 PM   #1
yang686526
高级会员
 
注册日期: 06-11
帖子: 14579
精华: 1
现金: 224494 标准币
资产: 234494 标准币
yang686526 向着好的方向发展
默认 [求助]有没有其他的函数,有ssget功能但没有受视图放大缩小而受影响的函数。

[求助]有没有其他的函数,有ssget功能但没有受视图放大缩小而受影响的函数。
www.dimcax.com
[求助]有没有其他的函数,有ssget功能但没有受视图放大缩小而受影响的函数。
(defun c:test ()
(setq p1 (list 1924.0 401.0 0.0))
(setq p2 (list 1944.0 406 0.0))
(setq b (ssget "_w" p1 p2))
(setq c (sslength b))
(setq n 0)
(while (< n c)
(progn
(setq e (ssname b n))
(setq a (entget e))
;;; (setq txt (assoc 1 a))
(princ a)
(princ "\n")
(setq n (+ n 1))
)
)
)
上面的函数在p1 p2之间只有一个文字对象,旁边有其他的线文字等对象的时候。当图形视图放大到一定的倍数的时候可以只选择区域的文字。当图形视图缩小到一定程度后就会选择出来很多对象。根本不知道图形视图放大到什么程度才不会乱选择。
求求各位大侠,指点一下小弟,有没有其他的函数,有ssget功能但没有受视图放大缩小而受影响的函数。
d
这样试试:
(defun c:test ()
(setq p1 (list 1924.0 401.0 0.0))
(setq p2 (list 1944.0 406 0.0))
(command ".zoom" "w" p1 p2)
(setq b (ssget "_w" p1 p2))
(setq c (sslength b))
(setq n 0)
(while (< n c)
(setq e (ssname b n))
(setq a (entget e))
;;; (setq txt (assoc 1 a))
(princ a)
(princ "\n")
(setq n (+ n 1))
)
(command ".zoom" "p")
)
踅摸
d
这个问题基本无解.
你这问题老早就有人提过了.
可以建议自动桌子公司改进一下倒是可行之法.
小学的时候老师在台上讲“帅”的含义, 我听不懂,同桌的女孩红着脸递给我一面 镜子,那一霎那,我明白了。
d
yang686526离线中   回复时引用此帖
GDT自动化论坛(仅游客可见)