一段基础代码
 - [code=lisp](defun c:qq(/ ss i s data)
- (setq ss(ssget "x" '((2 . "GC200"))))
- (setq i -1)
- (repeat (sslength ss)
- (setq s(Ssname ss (setq i(1+ i))))
- (setq data(entget (entnext s) '("*")))
- (if(/= "H1Z" (cdr(assoc 7 data)))
- (progn
- (setq data(subst '(7 . "细等线体") (assoc 7 data) data))
- (entmod data)
- (entupd s)
- )
- )
- )
- )
[/code] |