验证图元用Entmake产生的必要条件

/db_自贡黄明儒_ · 发表于 2014-4-20 15:03:27

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 /db_自贡黄明儒_ 于 2014-4-21 08:23 编辑

;;http://bbs.xdcad.net/thread-673261-1-1.html
;;验证图元用Entmake产生的必要条件
(defun C:w3 (/ E EN FLAG LASTENT YAO)
  (defun Mytest       (x en)
(entmake (vl-remove x en))
  )
  (cond       ((and (setq e (entsel "\n 图元用Entmake产生的必要条件"))
            (setq e (car e))
            (setq en (entget e))
      )
      (foreach x en
         (setq lastent (entlast))
         (setq Flag (VL-CATCH-ALL-ERROR-P (VL-CATCH-ALL-APPLY 'Mytest (list x en))))
         (cond ((and (equal (entlast) lastent) (not Flag)) (setq yao (cons x yao))))
      )
      )
  )
  (reverse yao)
)

ysq101 · 发表于 2014-4-20 17:27:44

这个很实用啊。。。

st788796 · 发表于 2014-4-20 20:32:01

有些实体用vla-add更省心，不用去琢磨

jyzas · 发表于 2014-12-27 21:17:40

正在学习支持下

434939575 · 发表于 2017-8-10 11:01:54

这个好，大力支持！谢谢！

BINBIN98 · 发表于 2020-11-30 02:47:07

谢谢楼主，非常实用的东西

账号		自动登录	找回密码
密码			立即注册

[研讨] 验证图元用Entmake产生的必要条件

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。