将多行文本其他字体变为GBCBIG字体的LISP

燃烧

(defun c:gb(/ )
  (vl-load-com)
  (setq myacad(vlax-get-acad-object))
  (setq mydoc(vla-get-activedocument myacad))
  (setq myms(vla-get-modelspace mydoc))
    (Setq newText (vla-add (vla-get-TextStyles mydoc) "gb"))
  (setq newFontFile "D:\Program Files\AutoCAD 2004\Fonts/isocp.shx")
  (vla-put-FontFile newText newFontFile)
   (setq newBigFontFile "D:\Program Files\AutoCAD 2004\Fonts/gbcbig.shx")
  (vla-put-BigFontFile newText newBigFontFile)
(setq constant (+ 1 currTextFontStyle))
  (setq ss(ssget (prompt "\nSelect entities to be changed to <gb style>by 向赞扬"))
  )
   (repeat (setq I (sslength SS))
        (setq OBJ (vlax-ename->vla-object (ssname SS (setq I (1- I)))))
     (SETQ str(vla-get-TextString OBJ))
     (IF(WCMATCH STR "*;*")
     (PROGN(SETQ STRL(STRLEN STR))
  (setq pos (+(vl-string-position 59 str)2))
   (SETQ NEWSTR(substr str pos  (- STRL pos )))
     (vla-put-TextString OBJ NEWSTR)))
    (vla-put-StyleName OBJ "gb")
      )
)

zyhandw

不具备通用性，要修改shx形文件路径，方能适合自己使用！