MLEADER 创建

iLisp

不知道多个标注点时什么效果

qyming1996

学习。。。。。。。。。。。。。。。。。。。

liuyj

如何创建自己想要的mleader样式？包括字体样式、字体高度、文字行距等

st788796

liuyj 发表于 2014-12-25 10:24
如何创建自己想要的mleader样式？包括字体样式、字体高度、文字行距等

有MleaderStyle命令，和MlineStyle TableStyle 类似，也有ActiveX方法的

HLCAD

st788796 发表于 2014-12-25 09:33
没有看链接，一楼只是普通的Autocad实体

二楼的ZBM.LSP————“本程序已更新：已能适应：单(多)行文本、直线、多段线、引线及其关联文字、圆、弧及块等实体；
可适应于“WCS”或“UCS”坐标系。”

grs432

谢谢ST大大的分享。。学习！！

漫漫遥

看起来很不错的样子！！

liuyj

在哪都搜不到啊

st788796

liuyj 发表于 2014-12-25 10:59
在哪都搜不到啊

期待你发布原创啊！

应该不难的，Mlinestyle. tablestyle 的创建方法论坛都有了，等你发这个mleaderstyle了:)

wzg356

几天不见，心欠欠的

liuyj

st788796 发表于 2014-12-25 11:05
期待你发布原创啊！

应该不难的，Mlinestyle. tablestyle 的创建方法论坛都有了，等你发这个mleaderst ...

我试了啊，xdrx_object_get、xdrx_getpropertyvalue、xdrx_setpropertyvalue都还不支持mleader，创建一个空的样式，是有的，但不知道怎么编辑这个样式。

2. (defun AddMLeaderStyle (style / _catchapply dict item)
   
3.   (defun _catchapply (_function _parameters / result)
   
4.     (if  (not
   
5.     (vl-catch-all-error-p
   
6.       (setq result (vl-catch-all-apply _function _parameters))
   
7.     )
   
8.   )
   
9.       result
   
10.     )
    
11.   )
    
12.   (cond  ((not (setq dict
    
13.          (_catchapply
    
14.            'vla-item
    
15.            (list (vla-get-dictionaries
    
16.              (vla-get-activedocument (vlax-get-acad-object))
    
17.            )
    
18.            "ACAD_MLEADERSTYLE"
    
19.            )
    
20.          )
    
21.         )
    
22.    )
    
23.    nil
    
24.   )
    
25.   ((setq item (_catchapply 'vla-getobject (list dict style))))
    
26.   ((_catchapply
    
27.      'vla-addobject
    
28.      (list dict style "AcDbMLeaderStyle")
    
29.    )
    
30.   )
    
31.   )
    
32. )

(defun AddMLeaderStyle (style / _catchapply dict item)<br />   (defun _catchapply (_function _parameters / result)<br />     (if  (not<br />     (vl-catch-all-error-p<br />       (setq result (vl-catch-all-apply _function _parameters))<br />     )<br />   )<br />       result<br />     )<br />   )<br />   (cond  ((not (setq dict<br />          (_catchapply<br />            'vla-item<br />            (list (vla-get-dictionaries<br />              (vla-get-activedocument (vlax-get-acad-object))<br />            )<br />            "ACAD_MLEADERSTYLE"<br />            )<br />          )<br />         )<br />    )<br />    nil<br />   )<br />   ((setq item (_catchapply 'vla-getobject (list dict style))))<br />   ((_catchapply<br />      'vla-addobject<br />      (list dict style "AcDbMLeaderStyle")<br />    )<br />   )<br />   )<br /> )

st788796

liuyj 发表于 2014-12-25 14:10
我试了啊，xdrx_object_get、xdrx_getpropertyvalue、xdrx_setpropertyvalue都还不支持mleader，创建一个 ...

Api还不支持，用Vla即可，创建完样式就是put属性了，一楼中的属性一样适用mleaderstyle

st788796

liuyj 发表于 2014-12-25 14:10
我试了啊，xdrx_object_get、xdrx_getpropertyvalue、xdrx_setpropertyvalue都还不支持mleader，创建一个 ...

Api还不支持，用Vla即可，创建完样式就是put属性了，一楼中的属性一样适用mleaderstyle

newer

有一个不足的地方就是这个MLEADER只能用在2008及以上版本，低版本CAD如何实现坐标标注等还需要考虑另外的方法。

st788796

newer 发表于 2014-12-25 21:00
有一个不足的地方就是这个MLEADER只能用在2008及以上版本，低版本CAD如何实现坐标标注等还需要考虑另外的方 ...

autocad 都不支持, 要用自己解决了