标注样式切换

WhoCanSay · 发表于 2016-6-17 11:31:25

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 WhoCanSay 于 2016-6-17 13:15 编辑

newer · 发表于 2016-6-17 11:33:57

用插件发布方式发布吧，按照格式填写下，大家看的和用的明白。上传个演示动图。

WhoCanSay · 发表于 2016-6-17 11:53:20

newer 发表于 2016-6-17 11:33
用插件发布方式发布吧，按照格式填写下，大家看的和用的明白。上传个演示动图。

大姑娘上轿，头一回这样发贴

WhoCanSay · 发表于 2016-6-17 12:01:26

之前我在05下是这样用的

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;标注样式
(defun C:DDS (/ COUNT DIM-ENT DIMSTYLES I INDEX)
(princ (strcat "\n当前尺寸标注样式为:"
(vla-get-Name
(vla-get-ActiveDimStyle
(vla-get-ActiveDocument
(vlax-get-acad-object)
)
)
)
"\n"
)
)
(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)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;标注样式

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;标注样式 
(defun C:DDS (/ COUNT DIM-ENT DIMSTYLES I INDEX) 
   
  (princ (strcat "\n当前尺寸标注样式为:" 
                 (vla-get-Name 
                   (vla-get-ActiveDimStyle 
                     (vla-get-ActiveDocument 
                       (vlax-get-acad-object) 
                     ) 
                   ) 
                 ) 
                 "\n" 
         ) 
  ) 
  (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) 
) 
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;标注样式

newer · 发表于 2016-6-17 13:09:14

WhoCanSay 发表于 2016-6-17 11:53
大姑娘上轿，头一回这样发贴

编辑后这样发插件多专业，贡献+1，D豆+5

newer · 发表于 2016-6-17 13:10:41

WhoCanSay 发表于 2016-6-17 11:53
大姑娘上轿，头一回这样发贴

才注意到，你用了XDRX API了吗？没用的话，编辑下，运行环境修改下吧。

lucas3 · 发表于 2016-6-18 08:21:56

这个没必要编译成VLX吧

Lisphk · 发表于 2016-6-18 08:49:17

这么多标注样式不好管理吧？是不是用oerride更好呢

WhoCanSay · 发表于 2016-6-18 17:11:08

Lisphk 发表于 2016-6-18 08:49
这么多标注样式不好管理吧？是不是用oerride更好呢

许多人不喜欢override，甚至不知道干什么用。

WhoCanSay · 发表于 2016-6-18 17:13:09

lucas3 发表于 2016-6-18 08:21
这个没必要编译成VLX吧

为什么这么说，你有想法?

Lisphk · 发表于 2016-6-20 09:13:56

WhoCanSay 发表于 2016-6-18 17:11
许多人不喜欢override，甚至不知道干什么用。

就是同一个标注样式下，可以有不同的比例啊。设置下扩展实体数据就行了。

WhoCanSay · 发表于 2016-6-20 09:20:22

Lisphk 发表于 2016-6-20 09:13
就是同一个标注样式下，可以有不同的比例啊。设置下扩展实体数据就行了。

具体怎么写？

newer · 发表于 2016-6-20 09:30:38

WhoCanSay 发表于 2016-6-20 09:20
具体怎么写？

(xdrx_setpropertyvalue diment "dimscale" 0.5) 然后你ETNGET下实体，看下扩展实体数据都有什么。你想用纯LISP的话，用你自己的写扩展实体数据的函数写下就行了。你不仅仅可以修改比例，也可以修改任何的尺寸属性，比如文字样式，字高，字颜色什么的。。。。

WhoCanSay · 发表于 2016-6-20 11:07:15

newer 发表于 2016-6-20 09:30
(xdrx_setpropertyvalue diment "dimscale" 0.5) 然后你ETNGET下实体，看下扩展实体数据都有什么。你想用 ...

N版，你指的是标注出来的尺寸进行修改。同Lisphk说的建议标注样式可能不同。

Lispboy · 发表于 2016-6-20 11:38:10

WhoCanSay 发表于 2016-6-20 11:07
N版，你指的是标注出来的尺寸进行修改。同Lisphk说的建议标注样式可能不同。

你不需要做那么多样式啊，一个比例你做一个那得做多少啊也不好管理啊。你都用一个样式，标注后再修改尺寸的扩展实体数据，让他们的比例符合你的要求。

账号		自动登录	找回密码
密码			立即注册

[标注] 标注样式切换

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分

点评

点评