[求助]：[0213]请问Visual LISP该怎样取出上一笔的图元资料呢?

xyz518mm

[求助]：[0213]请问Visual LISP该怎样取出上一笔的图元资料呢?
我想请问Visual LISP是否也有,
"(entlast) 取出图形资料中的最后一个图元"
这样的命令,可以使用呢?

另外请问,如果要用"Visual LISP"来做物件的阵列动作,
该怎样下达这样的命令呢?

以上问题烦请各位帮忙解答一下
谢谢~

qjcpj

回“取出上一笔的图元”：
我的想法是，首先取出当前图元名在选集ss中的索引值N，之后利用
(ssname ss (- N 1))
便可取出上一个图元名。

qijlsz

(defun c:5test2()
;以下 baspt、rad、num 值须由使用者输入
(setq baspt (getpoint “请求输入基准点:”))
(setq rad (getdist baspt “\n请求输入小圆半径:”))
(setq num (getint “\n请求输入欲相切的小圆数量:”))
;只要能求得 cenpt 点,再以 array 指令配合就万事OK了
;以下ang1、kk、cenpt值须由程序依据baspt、rad、num求出
(setq ang1 (/ (* pi 2) (* num 2)))
(setq kk (/ rad (sin ang1)))
(setq ang2 (- (/ pi 2) ang1))
(setq cenpt (polar baspt ang2 kk))
;以下依据 cenpt、num 配合环形array画出多圆相切
(command “circle” baspt rad) ;;先画一个圆,才能array
(command “array” (entlast) “” “p” cenpt num 360 “Y”)
(prin1)
)
(prompt “\n << 5TEST2>>自动等圆相切绘制”)
(prin1)