标注样式

taner

请教各位大吓，如何用VLA方法COPY某一标注样式，重面生成另外一新的标注样式，谢谢！

/db_自贡黄明儒_

co后,
(setq bb (vlax-ename->vla-object (entlast)))
(vla-put-TextStyle bb "Newstyle")

newer

以下内容摘自 AUTOLISP葵花宝典

1. ;;;从AutoCAD 2013 Active Reference帮助中code Examples中提取  
   
2. ;;;本源代码由 xshrimp 2013.2.20 搜集整理,版权归原作者所有！  
   
3.   
   
4.   
   
5. (vl-load-com)  
   
6. (defun c:Example_DimStyles()  
   
7.     ;; This example adds a new dimension style.  
   
8.     (setq acadObj (vlax-get-acad-object))  
   
9.     (setq doc (vla-get-ActiveDocument acadObj))  
   
10.      
    
11.     (setq dimStyle (vla-Add (vla-get-DimStyles doc) "TEST"))  
    
12.     (alert (strcat "A new dimension style called " (vla-get-Name dimStyle) " has been added to the Dimstyles collection."))  
    
13. )  
    

;;;从AutoCAD 2013 Active Reference帮助中code Examples中提取  <br /> ;;;本源代码由 xshrimp 2013.2.20 搜集整理,版权归原作者所有！  <br />   <br />   <br /> (vl-load-com)  <br /> (defun c:Example_DimStyles()  <br />     ;; This example adds a new dimension style.  <br />     (setq acadObj (vlax-get-acad-object))  <br />     (setq doc (vla-get-ActiveDocument acadObj))  <br />      <br />     (setq dimStyle (vla-Add (vla-get-DimStyles doc) "TEST"))  <br />     (alert (strcat "A new dimension style called " (vla-get-Name dimStyle) " has been added to the Dimstyles collection."))  <br /> )  <br />

taner

解决了，查HEP, VLA-COPYFROM