文件名称:让属性块的属性文字“复位”的lsp.LSP
文件大小:3KB
文件格式:LSP
更新时间:2014-06-07 08:18:34
属性文字
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) )
文件名称:让属性块的属性文字“复位”的lsp.LSP
文件大小:3KB
文件格式:LSP
更新时间:2014-06-07 08:18:34
属性文字
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) )