选择集的怪事

山海G · 发表于 2003-1-19 14:26:00

;假设缺省路径下有一图块文件aa.dwg
;运行以下代码,有两种情况:
;1 当插入点0,0在屏幕可见范围内时 ,能正确选择"aa"置入选择集ss内.
;2 当插入点0,0不在可见范围内时,运行后选择集ss居然是空的，或者选择的是另外的实体，而非"aa".
;谁能告诉我为什么?
;代码:
( command "insert" "aa" "0,0" 1 "" "" )
(setq ss (ssget "L"))
(princ "请点取位置:")
(command "move" ss "" "0,0" pause)

陈伯雄 · 发表于 2003-1-19 16:20:00

(Command "-insert" "aa" '(0 0) 1 "" ""
"move" (EntLast) "" '(0 0) PAUSE
)

山海G · 发表于 2003-1-19 18:32:00

谢谢您的回答,您提供的程序确能运行.但由于我需要的关键问题是构造选择集(有多批实体),而非move,所以必须要构造选择集,程序作了如下修改,运行后选择集内还是没有aa,而是在aa之前建的另一个line实体.结果move了这个line.
这种奇怪情况仅当0,0(插入点)不在可见视区范围内时才会出现.
(Command "-insert" "aa" '(0 0) 1 "" "")
(setq ss (ssget "L"))
(command "move" ss "" '(0 0) pause)

CAD菜鸟 · 发表于 2003-1-20 10:07:00

方法有二：
1、插入后加一下语句：
(setq ent (entlast))
(setq ss (ssadd ent ss))
不需再用
(setq ss (ssget "L"))
(princ "请点取位置:")
(command "move" ss "" "0,0" pause)
2、插入后加一下语句：
(command "zoom" "e")
再加
(setq ss (ssget "L"))即可

陈伯雄 · 发表于 2003-1-20 10:09:00

应当这样写：
(Command "-insert" "aa" '(0 0) 1 "" "")
(setq ss (ssadd (entlast)) )
(command "move" ss "" '(0 0) pause)
(ssget "L")是在当前显示区取对象，而(ssadd (entlast))是在图形数据库区对象，两者不同。
建议您看看我写的《Visual LISP程序设计——技巧与范例》

山海G · 发表于 2003-1-20 11:51:00

这个例子我也刚发现用ssadd能行，但不明所以，一经指点，通了！奇怪的是很多资料都没说明白，看来非要看你的书了。

选择集的怪事

发表回复

精选推荐

浏览过的版块