CAD LISP批量修改字高
1、(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))))
2、文本后缀名 .LSP结尾 之后拖拽到cad中
3、敲命令CHHTEXT 选择要修改的文字,输入字高就可以了
声明:本网站引用、摘录或转载内容仅供网站访问者交流或参考,不代表本站立场,如存在版权或非法内容,请联系站长删除,联系邮箱:site.kefu@qq.com。
阅读量:85
阅读量:33
阅读量:50
阅读量:87
阅读量:73