LSP用于实现属性块的属性文字“复位”功能

cad 属性文字 还原 (defun c:initatt () (while (setq ss (ssget '((0 . "insert")))) (setq n (sslength ss)) (repeat n (gxl-blk-att2init (ssname ss (setq n (1- n)))) ) ) (princ) )