[编程申请]不管当前层是什么,所有标注都放在特定的层里

wedg

感谢14楼的朋友，真的很不错。谢谢分享。

BSTWHX

好用.谢谢

yoyoho

感谢楼主,学习了!

ly8zx2109

(vl-load-com)
(defun err (s)
        (if (/= s "Function cancelled")
                (princ (strcat "\nError: " s))
        )
        (setq sset nil)
        (setq *error* olderr)
        (princ)
)
(defun c:gd ()
      (setvar "cmdecho" 0)
      (setq olderr *error*
               *error* err)
      (command "undo" "group")
      (setq ssg (ssget "x" (list (cons 0 "DIMENSION"))))
      (setq ssl (sslength ssg))
      (setq ssgn 0)
          (repeat ssl
              (setq ssn (ssname ssg ssgn))
              (setq entg (entget ssn))
              (setq entg1 (subst (cons 8 "3") (assoc 8 entg) entg));;;;图层设置，其中3为图层名，可以更改。
              (entmod entg1)
              (setq ssgn (1+ ssgn))
          )
   (command "undo" "end")
  (terpri)  
  (setvar "cmdecho" 1)
  (setq *error* olderr)
  (princ)
)

ly8zx2109

你可以在楼上的基础上修改一下，还是用LISP编缉的执行的快一些。

hxjxinfuer

14楼的LSP很好，感谢了。

yucpp

最好程序开始时把当前的图层存储下来，程序执行完毕后在恢复。