[求助]：先选择后运行是怎样实现的？

LADESIGNER · 发表于 2004-12-11 19:07:08

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

举一个例子，比如加粗线段，图形窗口中已经有被选择的曲线亮现，这时运行加粗线段命令，早先选择的物体就被加粗了。这是怎么实现的呢？

xyp1964 · 发表于 2004-12-11 19:27:09

有“先运行后选择”的例子吗？

LADESIGNER · 发表于 2004-12-11 19:32:33

我们自己编的程序一般是先在命令行键入命令名，或点图标或菜单项，然后选择物体，运行，而AUTOCAD自己的命令可以先选择物体，再运行命令，与先运行命令再选物体一样结果。

xyp1964 · 发表于 2004-12-11 19:43:09

可以增加(setq ss1 (ssget"p"))，将先前选择集增加到以后的选择集中。

LADESIGNER · 发表于 2004-12-11 20:04:26

好象是可以的：
先画两个矩形，选择他们，再运行：
(defun c:test()
(setq ss1 '())
(setq ss1(ssget "p"))
(command "erase" (ssname ss1 0) "")
)
删是删掉了，可是返回：
错误: bad argument type
WHY？

xxxyzxx · 发表于 2004-12-11 21:49:34

可以使用IF判断实现，如已经选择则执行，如未选择则选择后执行……

aeo · 发表于 2004-12-12 00:02:45

(ssget "i")

xyp1964 · 发表于 2004-12-12 01:09:06

斑竹指点得对：
[php]
(defun c:test(/ ss)
(setq ss(ssget "I"))
(command "erase" (ssname ss 0) "")
)
[/php]
(ssget "i") －－建立在 Implied 选择模式下所选取图元的选择集。(PICKFIRST 有效时)

LADESIGNER · 发表于 2004-12-12 21:26:23

是不是这样：
(IF (OR (SSGET "I") (SSGET '((0 . "*POLYLINE"))))
..................

xyp1964 · 发表于 2004-12-12 23:57:29

最初由 LADESIGNER 发布
[B]是不是这样：
(IF (OR (SSGET "I") (SSGET '((0 . "*POLYLINE"))))
.................. [/B]

(SSGET "I" '((0 . "*POLYLINE")))

LADESIGNER · 发表于 2004-12-13 19:06:01

http://p4.xdcad.net/forum/showthread.php?s=&threadid=312642

zxdcad · 发表于 2004-12-20 16:06:03

怪了，我的程序支持先选择后执行，怎么回事，与楼上介绍的不同？？？ssget中不需要参数呀！

(defun c:e1()
  (setq ss (ssget))
  (command "Erase" ss "")
  )

梦断江南 · 发表于 2004-12-20 16:41:53

没错，ssget是有这个特性，但需先设置 pickfirst 变量为1

LADESIGNER · 发表于 2004-12-20 19:07:57

在程序中如果先来一个(setvar "pickfirst" 1),即使以前的PICKFIRST变量是1，（SSGET “I”）也不好使。所以最好先判断一下：(if(= (getvar "pickfirst" ) 0)(setvar "pickfirst" 1)),这是我在http://p4.xdcad.net/forum/showthrea...threadid=312642
中说的意思，也不知道有人看明白了没有，居然没一个人回复，真失败。

梦断江南 · 发表于 2004-12-20 22:26:32

不失败，你的实验是成功的：）

账号		自动登录	找回密码
密码			立即注册

[求助] [求助]：先选择后运行是怎样实现的？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子