怎样设置标注样式？

xinxirong

查了一下系统变量DimStyle是只读的，也就是说setvar不能用。

Linhay

command   

chg

用命令dimstyle

xinxirong

用vla解决了，command怎么说都很丑。

davide888

论坛有      

自贡黄明儒

xinxirong 发表于 2016-6-15 17:10
用vla解决了，command怎么说都很丑。

能分享一下怎么解决的吗?

maiko

能分享一下怎么解决的吗?

xinxirong

(vla-put-activeDimstyle
        acdoc
        (vla-item (vla-get-Dimstyles acdoc) valStyle)
      )

骑着蜗牛旅行666

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;标注样式
(defun C:tt(/ COUNT DIM-ENT DIMSTYLES I INDEX)   
(princ (strcat "\n当前尺寸标注样式为:"   
             (vla-get-Name  (vla-get-ActiveDimStyle    (vla-get-ActiveDocument   (vlax-get-acad-object)  ) ) )            
    "\n" )  );;end princ

  (if (setq dim-ent (car (entsel "拾取置为当前的标注样式:")))
    (progn  (command "dimstyle"  ""  (vla-get-StyleName  (vlax-ename->vla-object dim-ent)))      
    (princ  (strcat "\n已修改当前的标注样式为:"   (vla-get-StyleName (vlax-ename->vla-object dim-ent)) ) ) )
    (progn  (setq DimStyles (vla-get-DimStyles    (vla-get-ActiveDocument  (vlax-get-acad-object)  ) )  count     (vla-get-Count DimStyles)            i              0      )      (repeat count        (princ (strcat (itoa i)                       "-->"                       (vla-get-name                         (vlax-invoke-method                           DimStyles                           'Item                           i                         )                       )                       "  "               )        )        (setq i (1+ i))      )      (setq index (getint "\n输入尺寸标注索引号<0>:"))      (if (= index nill) (setq index 0))      (vla-put-ActiveDimStyle        (vla-get-ActiveDocument          (vlax-get-acad-object)        )        (vlax-invoke-method DimStyles 'Item index)      )      (princ (strcat "当前尺寸标注样式为:"                     (vla-get-name                       (vlax-invoke-method DimStyles 'Item index)                     )             )      )    )  )
(princ))      ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;标注样式