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

hxh2901

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

Andyhon

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

hxh2901

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

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

Gu_xl

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

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

yxh1202

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

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

vlisp2012

;|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版，是这个程序吧。

革天明

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

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