a197712939 发表于 2024-3-23 22:00:19

本帖最后由 a197712939 于 2024-3-23 22:02 编辑

您这个子函数有问题，遇到多段线有重点的不能剪切，(defun hh:remove (en / newdata)      ; 去除多段线重点
    (foreach e (entget en)
      (if (and
            (member e newdata)
            (= 10 (car e))
          )
      nil
      (setq newdata (cons e newdata))
      )
    )

zhangrunze 发表于 2024-3-25 08:40:13

适合装配中重叠零件的绘制~
辛苦了，感谢分享~

Noangler 发表于 2024-3-25 13:52:49

lang大师出品，先赞了再说，谢谢分享
页: 28 29 30 31 32 33 34 35 36 37 [38]
查看完整版本: 《剪切成虚线》v3.1版(支持框选)