CAD LISP批量修改字高?
cad LISP批量修改字高?
操作方法
- 01
(DEFUN C:CHHTEXT () (princ "\nselect object:") (setq s (ssget)) (setq hig (getreal "\n输入新字高<2>:")) (if (= hig nil) (setq hig 3.0)) (setq h40 (cons 40 hig)) (setq n (sslength s)) (setq k 0 ) (while (< k n) (setq name (ssname s k)) (setq a (entget name)) (setq b (assoc '0 a)) (setq b (cdr b)) (if (= b "TEXT")(progn (setq h (assoc '40 a)) (setq a (subst h40 h a)) (entmod a) )) (setq k (+ k 1)) ))
- 02
文本后缀名 .LSP结尾 之后拖拽到cad中
- 03
敲命令CHHTEXT 选择要修改的文字,输入字高就可以了
赞 (0)