[求助]：标注样式代码中碰到的问题！请进。。。

fish710605

下面的代码是测试程序，我想把有注释的那行代码替换成取得每个标注样式里的文字样式，我应该如何做？
因为接触ACTIVEX部分时间不久，所以有些地方还不太明白，还有方法vla-item运用是否得当，还有别的什么有效的方法？请各位帮帮忙啦！

2. 
   
3. (defun c:ds(/ AcadObject AcadDocument mSpace DimstyCol DimstyCount DimstyName)
   
4.         (VL-LOAD-COM)
   
5.   (setq AcadObject (vlax-get-acad-object)
   
6.                                 AcadDocument (vla-get-ActiveDocument Acadobject)
   
7.                                 mSpace (vla-get-ModelSpace Acaddocument)
   
8.   )
   
9.         (setq DimstyCol (vla-get-dimstyles AcadDocument))
   
10.         (setq DimstyCount (vla-get-count DimstyCol))
    
11.         (setq index 0)
    
12.         (repeat DimstyCount
    
13.                 (setq DimstyName (vla-get-name (vla-item DimstyCol index)));;这行是否也要修改？
    
14.                 (princ (strcat "\n" (itoa (1+ index)) "." DimstyName));;对标注样式的处理部分
    
15.                 (setq index (1+ index))
    
16.         )
    
17.         (princ)
    
18. )

<br /> (defun c:ds(/ AcadObject AcadDocument mSpace DimstyCol DimstyCount DimstyName)<br />         (VL-LOAD-COM)<br />   (setq AcadObject (vlax-get-acad-object)<br />                                 AcadDocument (vla-get-ActiveDocument Acadobject)<br />                                 mSpace (vla-get-ModelSpace Acaddocument)<br />   )<br />         (setq DimstyCol (vla-get-dimstyles AcadDocument))<br />         (setq DimstyCount (vla-get-count DimstyCol))<br />         (setq index 0)<br />         (repeat DimstyCount<br />                 (setq DimstyName (vla-get-name (vla-item DimstyCol index)));;这行是否也要修改？<br />                 (princ (strcat "\n" (itoa (1+ index)) "." DimstyName));;对标注样式的处理部分<br />                 (setq index (1+ index))<br />         )<br />         (princ)<br /> )

qjcpj

标注样式里的文字样式名称应为应为其属性下的'StyleName，楼主(setq DimstyName (vla-get-name (vla-item DimstyCol index)))取出的是标注样式的名称吧！