标注样式切换

WhoCanSay

newer

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

WhoCanSay

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

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

WhoCanSay

之前我在05下是这样用的

2. 
   
3. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;标注样式
   
4. (defun C:DDS (/ COUNT DIM-ENT DIMSTYLES I INDEX)
   
5.   
   
6.   (princ (strcat "\n当前尺寸标注样式为:"
   
7.                  (vla-get-Name
   
8.                    (vla-get-ActiveDimStyle
   
9.                      (vla-get-ActiveDocument
   
10.                        (vlax-get-acad-object)
    
11.                      )
    
12.                    )
    
13.                  )
    
14.                  "\n"
    
15.          )
    
16.   )
    
17.   (if (setq dim-ent (car (entsel "拾取尺寸:")))
    
18.     (progn
    
19.       (command "dimstyle"
    
20.                ""
    
21.                (vla-get-StyleName
    
22.                  (vlax-ename->vla-object dim-ent)
    
23.                )
    
24.       )
    
25.       (princ
    
26.         (strcat        "\n当前尺寸标注样式为:"
    
27.                 (vla-get-StyleName (vlax-ename->vla-object dim-ent))
    
28.         )
    
29.       )
    
30.     )
    
31.     (progn
    
32.       (setq DimStyles (vla-get-DimStyles
    
33.                         (vla-get-ActiveDocument
    
34.                           (vlax-get-acad-object)
    
35.                         )
    
36.                       )
    
37.             count     (vla-get-Count DimStyles)
    
38.             i              0
    
39.       )
    
40.       (repeat count
    
41.         (princ (strcat (itoa i)
    
42.                        "-->"
    
43.                        (vla-get-name
    
44.                          (vlax-invoke-method
    
45.                            DimStyles
    
46.                            'Item
    
47.                            i
    
48.                          )
    
49.                        )
    
50.                        "  "
    
51.                )
    
52.         )
    
53.         (setq i (1+ i))
    
54.       )
    
55.       (setq index (getint "\n输入尺寸标注索引号<0>:"))
    
56.       (if (= index nill) (setq index 0))
    
57.       (vla-put-ActiveDimStyle
    
58.         (vla-get-ActiveDocument
    
59.           (vlax-get-acad-object)
    
60.         )
    
61.         (vlax-invoke-method DimStyles 'Item index)
    
62.       )
    
63.       (princ (strcat "当前尺寸标注样式为:"
    
64.                      (vla-get-name
    
65.                        (vlax-invoke-method DimStyles 'Item index)
    
66.                      )
    
67.              )
    
68.       )
    
69.     )
    
70.   )
    
71.   (princ)
    
72. )
    
73. ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;标注样式
    

<br /> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;标注样式<br /> (defun C:DDS (/ COUNT DIM-ENT DIMSTYLES I INDEX)<br />   <br />   (princ (strcat "\n当前尺寸标注样式为:"<br />                  (vla-get-Name<br />                    (vla-get-ActiveDimStyle<br />                      (vla-get-ActiveDocument<br />                        (vlax-get-acad-object)<br />                      )<br />                    )<br />                  )<br />                  "\n"<br />          )<br />   )<br />   (if (setq dim-ent (car (entsel "拾取尺寸:")))<br />     (progn<br />       (command "dimstyle"<br />                ""<br />                (vla-get-StyleName<br />                  (vlax-ename->vla-object dim-ent)<br />                )<br />       )<br />       (princ<br />         (strcat        "\n当前尺寸标注样式为:"<br />                 (vla-get-StyleName (vlax-ename->vla-object dim-ent))<br />         )<br />       )<br />     )<br />     (progn<br />       (setq DimStyles (vla-get-DimStyles<br />                         (vla-get-ActiveDocument<br />                           (vlax-get-acad-object)<br />                         )<br />                       )<br />             count     (vla-get-Count DimStyles)<br />             i              0<br />       )<br />       (repeat count<br />         (princ (strcat (itoa i)<br />                        "-->"<br />                        (vla-get-name<br />                          (vlax-invoke-method<br />                            DimStyles<br />                            'Item<br />                            i<br />                          )<br />                        )<br />                        "  "<br />                )<br />         )<br />         (setq i (1+ i))<br />       )<br />       (setq index (getint "\n输入尺寸标注索引号<0>:"))<br />       (if (= index nill) (setq index 0))<br />       (vla-put-ActiveDimStyle<br />         (vla-get-ActiveDocument<br />           (vlax-get-acad-object)<br />         )<br />         (vlax-invoke-method DimStyles 'Item index)<br />       )<br />       (princ (strcat "当前尺寸标注样式为:"<br />                      (vla-get-name<br />                        (vlax-invoke-method DimStyles 'Item index)<br />                      )<br />              )<br />       )<br />     )<br />   )<br />   (princ)<br /> )<br /> ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;标注样式<br />

newer

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

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

newer

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

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

lucas3

这个没必要编译成VLX吧

Lisphk

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

WhoCanSay

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

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

WhoCanSay

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

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

Lisphk

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

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

WhoCanSay

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

具体怎么写？

newer

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

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

WhoCanSay

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

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

Lispboy

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

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