社区 › AutoLISP/Visual LISP 编程技术 › 如何获取刚创建的多个图元

hxh2901 发表于 2011-12-14 16:05:16

如何获取刚创建的多个图元

只能获取刚创建的两个图元,三个以上我就没办法了,请高手支招啊,谢谢了

Andyhon 发表于 2011-12-14 16:13:16

创建图元前设个检查点
创建图元后请出 entnext 函数
老帖中有...

hxh2901 发表于 2011-12-14 16:28:15

Andyhon 发表于 2011-12-14 16:13 static/image/common/back.gif
创建图元前设个检查点
创建图元后请出 entnext 函数
老帖中有...

提示可以详细一点吗,我菜鸟请你谅解

Gu_xl 发表于 2011-12-14 16:37:07

hxh2901 发表于 2011-12-14 16:28 static/image/common/back.gif
提示可以详细一点吗,我菜鸟请你谅解

(setq endent (entlast)) ;_ 取得最后一个图元
;;;以下部分进行你的操作，新建若干图元
。
。
。
(setq ss (entnextall endent)) ;_ 获取endent 图元后所有图元选择集
;;;entnextall为自定义函数，自己去论坛里露水那个帖子里找！

yxh1202 发表于 2013-12-13 21:02:03

Gu_xl 发表于 2011-12-14 16:37 static/image/common/back.gif
(setq endent (entlast)) ;_ 取得最后一个图元
;;;以下部分进行你的操作，新建若干图元
。


应当是先建图元，然后进行entnextall 吧

vlisp2012 发表于 2013-12-13 22:05:06

;|5.返回指定图元后的所有图元组成的表By:Lisper
格式：(EntNextAll ent)
　ent：指定的标志图元
返回：图元之后生成的所有图元组成的表．
　特别：当ent为nil时返回图中所有的图元组成的表|;

(defun EntNextAll (ent / ls ent1 rl flag)
(if (not ent) (setq ent (entnext) flag t))
(while (setq ent1(entnext ent))
    (setq rl (cons ent1 rl))
    (setq ent ent1)
    )
(if flag (cons (entnext) (reverse rl)) (reverse rl))
)

Gu版，是这个程序吧。

革天明 发表于 2013-12-13 22:59:24

vlisp2012 发表于 2013-12-13 22:05 static/image/common/back.gif
;|5.返回指定图元后的所有图元组成的表By:Lisper
格式：(EntNextAll ent)
　ent：指定的标志图元


楼主，就是这个，这个代码是论坛搞代码考试的题

查看完整版本: 如何获取刚创建的多个图元