[编程申请]：求一字符操作命令

lengliqun

求一字符操作命令，
框选字符（默认全选），则所选字符的字型变成style1,字高变成250，高宽比变成0.75，且字符130%%变成[，字符131%%变成]                 
用CHT命令可达到上述目的，可步骤较多，而又平时多进行如此操作，请高手帮帮，输入一个命令，不再输入参数，可达到上述目的。谢谢！

lsjjm

请参考：
[PHP]
(defun c:test  ()
  (vl-load-com)
  (setq ss (ssget "x" '((0 . "*TEXT"))) n 0)
  (while (< n (sslength ss))
    (setq obj (vlax-ename->vla-object (ssname ss n)))
    (vla-put-stylename obj "style1")
    (vla-put-height obj 250)
    (vla-put-scalefactor obj 0.75)
    (setq n (1+ n))
  )
)
[/PHP]

lengliqun

R14与R2002不可用，请长老继续。谢谢！

silen618

直接全选，用properties命令，选择文字项，修改相应属性即可。