求救！如何将当前文字样式改为所单选的文字的文字样式？

白皮猪

请各位大侠帮帮忙，怎么样才能将当前文字样式(如图)改为所单选的文字的文字样式？

ZZXXQQ

2. (defun c:tt ()
   
3. (if (setq s1 (entsel "\n选择物体: "))
   
4. (setvar "CLAYER" (cdr(assoc 8 (entget(car s1)))))
   
5. )
   
6. (princ)
   
7. )

(defun c:tt ()<br /> (if (setq s1 (entsel "\n选择物体: "))<br /> (setvar "CLAYER" (cdr(assoc 8 (entget(car s1)))))<br /> )<br /> (princ)<br /> )

白皮猪

ZZXXQQ 发表于 2015-2-14 19:32

谢谢版主的回复，我是个菜鸟，如何改成将当前文字样式(如图)设置为所单选的文字的文字样式？求助！求助！求助！

白皮猪

ZZXXQQ 发表于 2015-2-14 19:32

尝试在基础上改了一下。问题已解决了。谢谢版主回复！