[求助]如何调用ET工具中的命令?

XIAOFEILONG

我想做一个简单的对象前置和后置的程序

我是想先调用ET工具中的GETSEL命令选择对象

再调用DRAWORDER命令进行前置和后置

但是getsel是外部命令无法调用,有什么办法处理吗?

dianbotang

(defun c:ggg()
  (c:getsel)
  (command "DRAWORDER")
)

试试看行不？

XIAOFEILONG

(defun c:drr()
    (princ "\n选择物体:")
    (setq e (ssget))
    (command "c:getsel" e "" "")
    (command "DRAWORDER" p "" "")
    (princ)
)

不行啊,getsel后面还要输入的

Andyhon

Check here:

http://www.cadtutor.net/forum/showthread.php?t=14346

XIAOFEILONG

Andyhon发表于2008-10-30 21:43:00Check here:http://www.cadtutor.net/forum/showthread.php?t=14346

谢谢,这个LISP能满足使用要求.

但是能不能说一下,如果要调用ET命令来实现,该怎么做呢?

dianbotang

楼主的意思是不是将GETSEL命令选择到的对象进行前置和后置，根据这个思路设计程序如下：
(defun c:drr()
    (c:getsel)
    (setq SS (ssget "P"));上一个选择集
    (command "DRAWORDER" SS "" pause)
    (princ)
)

XIAOFEILONG

dianbotang发表于2008-10-31 21:39:00楼主的意思是不是将GETSEL命令选择到的对象进行前置和后置，根据这个思路设计程序如下：(defun c:drr()     (c:getsel)     (setq SS (ssget \"P\"));上一个选择

在原图层中选择一个对象 <*>:
选择一个你希望的对象类型 <*>:

我希望在调用GETSEL的时候把这2步变成一步,不指定对象类型,把步骤减到最少

dianbotang

如果既要指定图层，又要指定对象类型，那按我上面所说的做就可以了。
在(c:getsel) 里面好像不可以再加其他的关键字，不知道有没有解决的方法。
如果只指定图层，或者只指定对象类型，又要求一步完成，可以用别的方法。
(defun c:dr1()'过滤图层
  (setq ent (entsel))
  (setq entlist (entget (car ent)))
  (setq lname (cdr (assoc 8 entlist))
        SSLST (list (cons 8 lname))
        ss (ssget "_X" SSLST))
  (command "DRAWORDER" SS "")
  (princ)
)

(defun c:dr2()'过滤对象
  (setq ent (entsel))
  (setq entlist (entget (car ent)))
  (setq ename (cdr (assoc 0 entlist))
        SSLST (list (cons 0 ename))
        ss (ssget "_X" SSLST))
  (command "DRAWORDER" SS "")
  (princ)
)

还有你要求前置还是后置？如果确定的话就可以再简化。

XIAOFEILONG

谢谢,我原意是想看大家是否有方法可以在外部命令后加关键字,如果能够的话,对我这种菜鸟来说,小程序就可以简单点了

呵呵,谢谢大家