山海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

情况依旧

本帖最后由 作者 于 2003-1-19 18:32:06 编辑

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

谢谢指点

本帖最后由 作者 于 2003-1-20 11:51:50 编辑

这个例子我也刚发现用ssadd能行，但不明所以，一经指点，通了！奇怪的是很多资料都没说明白，看来非要看你的书了。
页: [1]
查看完整版本: 选择集的怪事