选择集的怪事

山海G

;假设缺省路径下有一图块文件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)

陈伯雄

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

山海G

谢谢您的回答,您提供的程序确能运行.但由于我需要的关键问题是构造选择集(有多批实体),而非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菜鸟

方法有二：
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"))即可

陈伯雄

应当这样写：
(Command "-insert" "aa" '(0 0) 1 "" "")
(setq ss (ssadd (entlast)) )
(command "move" ss "" '(0 0) pause)

(ssget "L")是在当前显示区取对象，而(ssadd (entlast))是在图形数据库区对象，两者不同。
建议您看看我写的《Visual LISP程序设计——技巧与范例》

山海G

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