(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版可以优化一下多个同时修改！谢谢
页:
1
[2]