复制到层

chenlianghuai

ET有这个功能，尝试自己写一下

lxl217114

谢谢分享，下载试试看。

Maxwell

缺函数吧，lt:ss-entnext

chenlianghuai

Maxwell 发表于 2025-6-16 15:36
缺函数吧，lt:ss-entnext

论坛下载的，忘记谁写的了
;; [功能] 获取在 en 之后产生的图元集
(defun lt:ss-entnext(en / ss)
  (if en (progn (setq ss (ssadd))
      (while (setq en (entnext en)) (ssadd en ss))
      (if (zerop (sslength ss)) (setq ss nil)) ss)
(ssget "_x") ) )

chenlianghuai

Maxwell 发表于 2025-6-16 15:36
缺函数吧，lt:ss-entnext

AI写的，我改了下，基本凑合用
;选择集改组码
(defun CLH-ZM(ss ZM ndata / i en data)
  (setq i 0)
  (repeat (sslength ss)
    (setq en (ssname ss i))
    (setq data (entget en))
    (setq data (subst (cons ZM ndata) (assoc ZM data) data))
    (entmod data)
(setq i (1+ i)) )(princ))

Maxwell

chenlianghuai 发表于 2025-6-16 17:49
AI写的，我改了下，基本凑合用
;选择集改组码
(defun CLH-ZM(ss ZM ndata / i en data)

好的，我添加进去，谢谢！！！