改变AUTOCAD中文字样式.lsp

适用AUTOCAD自定义命令

【      

(defun _myerr(s)
   (if (/= s "Function cancelled")
     (if (/= s "quit / exit abort")
        (princ (strcat "\nError: " s))
     )
   )
   (setq *error* olderr)
   (unload_dialog index_value)
   (princ)
)

(defun C:CHGSTYLE( / x total_list style_list 
               every_list index_value setup)
  (setq olderr *error* *error* _myerr)
  (setq x (tblnext "STYLE" T))
  (while x
    (setq every_list (list (cdr (assoc 2  x))
                           (strcat (cdr (assoc 3 x)) "," (cdr (assoc 4 x)))
                           (cdr (assoc 40 x))
                           (cdr (assoc 41 x))
                           (cdr (assoc 50 x))
                           (cdr (assoc 70 x))
                           (cdr (assoc 71 x))
                     )
    )
    (setq total_list (append total_list (list every_list)))
    (setq style_list (append style_list (list (cdr (assoc 2  x)))))
    (setq x (tblnext "STYLE"))
  )
  (if (not (member txtstyle style_list))
    (setq txtstyle (getvar "textstyle"))
  )
  
  (defun setup (mark / style umark)
    (setq style (nth mark total_list) umark "")
    (setq txtstyle (nth 0 style))
    (set_tile "style_edit" (nth 0 style)) 
    (set_tile "font"    (nth 1 style))
    (set_tile "height"  (rtos (nth 2 style) 2 0)) 
    (set_tile "width"   (rtos (nth 3 style) 2 1))
    (set_tile "oblique" (rtos (/ (* 180.0 (nth 4 style)) pi)  2 0))
    (if (= (logand (nth 6 style) 2) 2)
      (setq umark (strcat umark "Backwards "))
    )
    (if (= (logand (fix (nth 6 style)) 4) 4)
      (setq umark (strcat umark "Upside-down "))
    )
    (if (= (logand (fix (nth 5 style)) 4) 4)
      (setq umark (strcat umark "Vertical"))
    )
    (if (= umark "")
      (setq umark "Normal")
    )
    (set_tile "gen"     umark)
  )

  (defun chg_style ( txtstyle / a ss1 n m s1 tet tet1 e)
    (setq a 1)
    (while (<= a 1000000)
      (setq ss1 (ssget))
      (if (null ss1) 
        (setq a 1000000)
        (progn
          (setq n (sslength ss1) m 0)
          (while (< m n)
            (setq s1 (ssname ss1 m))
            (setq tet1 (strcase "TEXT"))
            (setq tet (cdr (assoc 0 (entget s1))))
            (if (= tet tet1) 
              (progn
                (setq e (entget s1))
                (setq e (subst (cons 7 txtstyle) (assoc 7 e) e))
                (entmod e)
              )
            )
            (setq m ( m 1))
          )
        )
      )
      (setq a ( a 1))
    )
    (princ)
  )
  
  (defun init( )
    (if (member txtstyle style_list) 
      (done_dialog 1)
      (set_tile "error" "字型无效.")
    )
  )  

  (if (> (setq index_value (load_dialog "user")) 0)
    (progn
      (if (new_dialog "txtstyle" index_value)
        (progn
          (start_list "style_list")
            (mapcar 'add_list style_list)
          (end_list)
          (setup (- (length style_list) (length (member txtstyle style_list)) ))
          (action_tile "style_list" "(set_tile \"error\" \"\")(setup (atoi $value))")
          (action_tile "style_edit" "(setq txtstyle $value)")
          (action_tile "accept" "(init)")
          (action_tile "cancel" "(done_dialog 0)(quit)")
          (start_dialog)
          (chg_style txtstyle)
        )
        (alert "       不能显示对话框!          ")
      ) 
      (unload_dialog index_value)
    ) 
    (alert "         不能装入对话框!         ")
  ) 
  (setq *error* olderr)
  (redraw)
  (princ)
)

(princ)

实例简介】
【实例截图】
【核心代码】