请问各位：lisp程序能使选谓主式(现选对象再输入命令)操作吗?

qeelee · 发表于 2003-9-29 12:32:00

龙龙仔 · 发表于 2003-9-29 12:49:00

當然可以
(defun C:TT (/ SS)
  (if (not (setq SS (ssget &quot")))
(setq SS (ssget))
  )
  (command "_.ERASE" SS "")
  (princ)
)

lockmyeye · 发表于 2003-9-30 02:27:00

我认为不行。
以上程序只能实现对前一选择集进行操作。
另外：用程序时好像没有必要进行楼上所说的“能使选谓主式(现选对象再输入命令)操作”。

Student · 发表于 2003-9-30 09:28:00

请试一试如下语句的效果：
(setq ss(ssget ":E"))

Hart · 发表于 2003-9-30 10:53:00

先选对象再输入命令，可以啊。
(defun c:cs (/ ss)
  (setq ss (ssget))
  (command ".erase" ss "")
  (princ)
  )

qeelee · 发表于 2003-9-30 11:23:00

龙龙仔的方法我试过了，很好，谢谢，thanks a lot!
顺便再请教一个问题：lisp程序有时需要把捕捉设置存起来，程序结束后在恢复，但如果程序非正常退出，捕捉设置就丢失了，这个问题怎么解决？---先谢了。

meflying · 发表于 2003-9-30 14:10:00

在*error*函数里也将设置恢复