[求助]：lisp怎么实现不用鼠标去选择对象。。。

rubenyes

我是名新手，刚接触autolisp......
很多东西都不懂，希望那个大虾帮忙下的。。。。


例如：我想画个圆柱体，先用command 调用’CIRCLE‘画了个圆b
想在用’EXTRUDE‘ 去拉伸这个圆b，在这一步中，我怎么样不用鼠标去实现选择圆b呢？？？而达到画圆柱体呢？

zj-οО○oοО

[PHP](DEFUN c:tt (/ echo h)
  (SETQ echo (GETVAR "CMDECHO"))
  (SETVAR "CMDECHO" 1)
  (COMMAND "CIRCLE" PAUSE PAUSE)
  (SETVAR "CMDECHO" 0)
  (INITGET 7)
  (SETQ h (GETDIST "\n输入高度H："))
  (INITGET 7)
  (SETVAR "ISOLINES" (GETINT "\n输入线框密度："))
  (COMMAND "EXTRUDE" (ENTLAST) "" h 0)
  (SETVAR "CMDECHO" echo)
  (PRINC)
)[/PHP]
简单点写了。就不记录上次的数据了

为什么不直接用实体画呢？

XDSoft

最初由 rubenyes 发布
[B]我是名新手，刚接触autolisp......
很多东西都不懂，希望那个大虾帮忙下的。。。。


例如：我想画个圆柱体，先用command 调用’CIRCLE‘画了个圆b
想在用’EXTRUDE‘ 去拉伸这个圆b，在这一步中，我怎么样不用... [/B]

刚画的实体是数据库最后的实体，用LISP函数(entlast)得到。

你画完圆后，用代码：

2. 
   
3.    (setq e (entlast))
   

<br />    (setq e (entlast))<br />

就可以在后面的程序中需要用圆的时候，用e使用了。

rubenyes

嗯，好的。谢谢！

我是想知道它的最初原理。。。