社区 › AutoLISP/Visual LISP 编程技术 › 图元用Entmake产生的必要条件

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

图元用Entmake产生的必要条件

;;验证图元用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产生的必要条件