图元用Entmake产生的必要条件

自贡黄明儒 · 发表于 2021-1-11 16:49:01

;;验证图元用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)
)

caoyin · 发表于 2021-1-13 12:41:54

;;;把楼主的代码稍作调整
(defun C:W4 (/ Mytest E ENX NEW LST)
  (defun Mytest (x en)
(entmakex (vl-remove x en))
  )
  (if (setq E (entsel "\n选择对象，获取 Entmake 创建该类型的对象的必要条件: "))
(progn
   (foreach X (setq ENX (entget (car E)))
      (if (setq NEW (VL-CATCH-ALL-APPLY 'Mytest (list X ENX)))
      (entdel NEW)
      (setq LST (cons X LST))
      )
   )
   (reverse LST)
)
  )
)

gdfyhao · 发表于 2021-1-13 22:01:48

谢谢楼主分享，用ENTMAKE程序运行速度明显快多了

hhh454 · 发表于 2021-1-13 21:54:15

学习了，用这个代码就方便了，创建图元速度也快了

烟盒迷唇 · 发表于 2021-1-11 19:13:45

新作品吗

yoyoho · 发表于 2021-1-11 19:44:29

谢谢! 自贡黄明儒分享程序!!!!

xj6019 · 发表于 2021-1-11 21:07:32

谢谢! 自贡黄明儒分享程序!!!!

start4444 · 发表于 2021-1-12 10:08:13

谢谢! 分享程序!!!!

mokson · 发表于 2021-1-12 10:46:58

大神技术，层出不穷呀。

Kekukele8403 · 发表于 2021-1-12 14:38:55

这个厉害了，不过对着天正对象，一下就卡死了

海盗曹 · 发表于 2021-1-13 13:41:17

学习下黄大师的代码

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

[源码] 图元用Entmake产生的必要条件