create new mleader style in Visual basic

[Anonymous]

hi

i need create new mleader style. somebody can helpme?

set style_mleader=autocad.application.ActiveDocument.????????. add("New style").......????

[norman.yuan]

AcadMLeaderStyle is stored in AcadDocument.Dictionaries (named dictionaries of the drawing database). AutoCAD VBA help document provides a code sample of how to access/ccreate it:

Go to AutoCAD VBA Editor, open Object Browser, select "AcadMLeaderStyle", then click "?" button on top of the Object Browser. This opens VBA Help Document on the topic of "MLeader Style". In the article, there is a link to a code sample.

HTH

[Anonymous]

thanks norman.juan for reply....

i tried that....

 

[norman.yuan]

In the red-highlighted line of code, you need to remove the bracket

xxxx.AddObject "ccccc", "ddddd"

Or you add Call at beginning:

Call xxxx.AddObject("cccc", "dddd"),

Or if you want to refer the returned object in the code following, you need:

Dim myMLealerStyle as Object

Set myMleaderStyle=xxxx.AddObject("cccc","dddd")

[norman.yuan · Accepted solution]

In the red-highlighted line of code, you need to remove the bracket

xxxx.AddObject "ccccc", "ddddd"

Or you add Call at beginning:

Call xxxx.AddObject("cccc", "dddd"),

Or if you want to refer the returned object in the code following, you need:

Dim myMLealerStyle as Object

Set myMleaderStyle=xxxx.AddObject("cccc","dddd")

[Anonymous]

I added that and worket:

Dim myMLealerStyle as Object

Set myMleaderStyle=xxxx.AddObject("cccc","dddd")

thank you very much