CAD配合南方Cass软件改文字高度

       在CAD软件中有时需要对标记的字高进行修改,但是CAD软件中自带的方法不够快捷方便,些时,可以使用Lisp函数方法快速方便地修改。CAD配合南方Cass软件改文字高度,详细程序见附件。

(defun c:gh()
   (setvar "blipmode" 0)
   (setvar "cmdecho" 0)
   (command "zoom" "e")
   (setq pt1 (getvar "extmin")
	 pt2 (getvar "extmax")
   )
   (setq ss1 (ssget "C" pt1 pt2))
   (setq ss1 (ssget "P" '((8 . "*TEXT,*MARK1"))))
   (setq ss1 (ssget "P" '((0 . "TEXT"))))
   (setq count 0)
   (setq emax (sslength ss1))
   (while (< count emax)
       (setq en (ssname ss1 count)
	     ed (entget en)
             ss (assoc 40 ed)
	     s (cdr (assoc 40 ed))
       )
       (setq ed (subst (cons 40 0.8) ss ed))
       (entmod ed)
       (setq count (+ count 1))
   )
   (princ "\n注记处理完毕!")
   (princ)
)

本文来自于广州地理信息网:http://www.gzgis.com

发表评论:

◎欢迎参与讨论,请在这里发表您的看法、交流您的观点。

Powered By Z-BlogPHP 1.7.3

粤ICP备19141338号,Copyright Your gzgis.com Rights Reserved.