xinxirong 发表于 2016-6-15 10:25:48

怎样设置标注样式？

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


Linhay 发表于 2016-6-15 11:35:46

command   

chg 发表于 2016-6-15 12:52:23

用命令dimstyle

xinxirong 发表于 2016-6-15 17:10:01

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

davide888 发表于 2016-6-15 17:12:24

论坛有      

自贡黄明儒 发表于 2016-6-15 21:08:53

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

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

maiko 发表于 2016-6-15 23:09:35

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

xinxirong 发表于 2016-6-16 08:59:55

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

骑着蜗牛旅行666 发表于 2016-6-17 16:30:29

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;标注样式
(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))      ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;标注样式
页: [1]
查看完整版本: 怎样设置标注样式？