（XD::Textstyle:Clone）克隆文字样式并设置字体的typeface

Lispboy

1. (defun xd::textstyle:clone (srcname destname typeface / _tmp)
   
2.   (if (setq _tmp (xdrx-object-clone (xdrx-object-get "style" "standard")))
   
3.     (progn (xdrx-setpropertyvalue _tmp "font" typeface)
   
4.            (xdrx-setpropertyvalue _tmp "name" destname)
   
5.            (list (xdrx-getpropertyvalue _tmp "name") _tmp)
   
6.     )
   
7.   )
   
8. )
   
9. 
   

(defun xd::textstyle:clone (srcname destname typeface / _tmp)<br />   (if (setq _tmp (xdrx-object-clone (xdrx-object-get "style" "standard")))<br />     (progn (xdrx-setpropertyvalue _tmp "font" typeface)<br />            (xdrx-setpropertyvalue _tmp "name" destname)<br />            (list (xdrx-getpropertyvalue _tmp "name") _tmp)<br />     )<br />   )<br /> )<br /> <br />