帮帮忙！

卩s灬坤

G版，你写的
(defun c:`1 (/ n ss stl h sc)  (if (setq stl (TBLSEARCH "style" "1v1"))    (progn      (setq h (cdr (assoc 40 stl))            sc (cdr (assoc 41 stl))            )      (if (equal h 0 1e-6) (setq h nil))    (while (setq ss (ssget '((0 . "*text"))))      (repeat (setq n (sslength ss))        (setq obj (vlax-ename->vla-object (ssname ss (setq n (1- n)))))        (vla-put-stylename obj "1v1")        (if h (vla-put-height obj h))        (vla-put-ScaleFactor obj sc)        )      )    )    (alert " 1v1字体不存在")    )  (princ)  );;如此类推...

出错 ，错误: ActiveX 服务器返回错误: 未知名称: ScaleFactor

框选多个文字时只能修改单个，其余没有变化，
G版可以优化一下多个同时修改！谢谢