高手请教

dandee · 发表于 2004-9-10 11:46:00

有两个问题：
1，我用vports开了两个视窗，如果不用鼠标点击，如何用键盘操作，分别激活其中一个窗口。或者如何用lisp去激活窗口。
2，用了（ssget)有了一个选择集，做了copy的命令，生成新的objects,问题是如何利用lisp直接生成新的objects的选择集

spring · 发表于 2004-9-10 11:49:00

2，用了（ssget)有了一个选择集，做了copy的命令，生成新的objects,问题是如何利用lisp直接生成新的objects的选择集
用 entmake 函数,帮助文件里有介绍

dandee · 发表于 2004-9-10 11:57:00

entmake可以生成新的对象，这个我知道。情况是：用了copy命令，生成新的对象，
我的问题是，如何对新生成的对象，做成一个选择集，用（ssget "L"),只有最后一个，而不是新生成全部的对象

alin · 发表于 2004-9-10 12:02:00

1. Change the system variable "CVPORT"
2. Use (entlast) to get the last entity before "copy", then use ENTNEXT loop through the drawing database to nil.

spring · 发表于 2004-9-10 12:44:00

(defun c:aa (/ lastent ss ss1)
   (setq lastent (entlast)) ;取得最后一个图元
   (setq ss (ssget)) ;选择图元
   (command "_.COPY" ss "" pause pause) ;拷贝
   (setq ss1 (ssadd)) ;建立空选集
   (while
   (setq lastent (entnext lastent))
   (setq ss1 (ssadd lastent ss1)) ;加入 ss1 选集
   )
   (command "_.MOVE" ss1 "" pause pause) ;移动拷贝出的图元
)