Gu_xl 发表于 2011-1-6 12:00:17

回复 狂刀lxx 的帖子

説的不错！是有这个问题，poly和mesh图元结构是一样的，不知道还有没有其他类似的图元实体，可以修改下，
(defun EntNextAll (ent / ss)
(if (not ent)
    (progn
      (setq ent (entnext))
    (setq ss (ssadd ent))
)
    (setq ss (ssadd))
    )
(while (and ent (setq ent (entnext ent)))
    (cond ((= "ATTRIB" (cdr (assoc 0 (entget ent))))
           (while (/= "SEQEND" (cdr (assoc 0 (entget(setq ent (entnext ent))))))
             )
           (setq ent (entnext ent))
        )
          ((= "VERTEX" (cdr (assoc 0 (entget ent))))
           (while (/= "SEQEND" (cdr (assoc 0 (entget(setq ent (entnext ent))))))
             )
           (setq ent (entnext ent))
        )
      )
    (if ent
    (ssadd ent ss)
      )
    )
(if (= 0 (sslength ss))
    nil
    ss
    )
)

qcw911 发表于 2011-1-14 18:43:12

好东西，什么时候下期 啊

328302216 发表于 2011-12-14 15:47:54

怎么都把代码分一点一点的发上来啊~~~~~

q530496591 发表于 2013-3-29 11:54:38

g版开贴.留个记号!

yssok 发表于 2019-5-19 13:29:06

谢谢分享，学习了~
页: 1 2 3 [4]
查看完整版本: [活动结束]LISP知识问答第2期--基础篇2-(难度指数:★)