Topic: How do I add a new MLeaderStyle to the Acad_mleaderstyle dictionary

[mkweaver]

When I dump the mleaderstyles object, I see that it contains an AddObject method.  I assume this is the method to create a new mleaderstyle:

(vlax-dump-object mlstyles T)
; IAcadDictionary: A container object for storing and retrieving objects
; Property values:
;   Application (RO) = #<VLA-OBJECT IAcadApplication 0000000140db8ca0>
;   Count (RO) = 1
;   Document (RO) = #<VLA-OBJECT IAcadDocument 0000000045a0ea80>
;   Handle (RO) = "188B"
;   HasExtensionDictionary (RO) = 0
;   Name = "ACAD_MLEADERSTYLE"
;   ObjectID (RO) = 451
;   ObjectID32 (RO) = 451
;   ObjectName (RO) = "AcDbDictionary"
;   OwnerID (RO) = 450
;   OwnerID32 (RO) = 450
; Methods supported:
;   AddObject (2)
;   AddXRecord (1)
;   Delete ()
;   GetExtensionDictionary ()
;   GetName (1)
;   GetObject (1)
;   GetXData (3)
;   Item (1)
;   Remove (1)
;   Rename (2)
;   Replace (2)
;   SetXData (2)
T

When I try to use this method I get the following:

(vla-addobject mlstyles "SheetNote")
too few actual parameters
_1$ (vla-addobject mlstyles "SheetNote" 1)
; error: Automation Error. AcRxClassName entry is not in the system registry
_2$ (vla-addobject mlstyles "SheetNote" 0)
; error: Automation Error. AcRxClassName entry is not in the system registry
_3$

The help on vla-addobject doesn't include a signature for mleaderstyle.

I am certainly doing something wrong.  How do I create a new mleaderstyle?

Mike

[ronjonp]

I use vlax-invoke like so (no error checking)

Code - Auto/Visual Lisp: [Select]

1. (vlax-invoke
2.   (vlax-ename->vla-object
3.     (cdr (assoc -1 (dictsearch (namedobjdict) "ACAD_MLEADERSTYLE")))
4.   )
5.   'addobject
6.   "test"
7.   "AcDbMLeaderStyle"
8. )

[irneb]

Yep, the AddObject method's 2nd argument needs to be the ObjectName of the new object. Personally I use the entmakex & dictadd for these things. But as ronjonp's shown it is possible through ActiveX as well.

[mkweaver]

Thanks, guys.  That gets me what I needed.

Mike

[velasquez]

I could not get your code to work with AutoCAD 2010 below.
Can you tell me what changes with this version?
Thanks

I use vlax-invoke like so (no error checking)

Code - Auto/Visual Lisp: [Select]

1. (vlax-invoke
2.   (vlax-ename->vla-object
3.     (cdr (assoc -1 (dictsearch (namedobjdict) "ACAD_MLEADERSTYLE")))
4.   )
5.   'addobject
6.   "test"
7.   "AcDbMLeaderStyle"
8. )

[ronjonp]

I could not get your code to work with AutoCAD 2010 below.
Can you tell me what changes with this version?
Thanks

I use vlax-invoke like so (no error checking)

Code - Auto/Visual Lisp: [Select]

1. (vlax-invoke
2.   (vlax-ename->vla-object
3.     (cdr (assoc -1 (dictsearch (namedobjdict) "ACAD_MLEADERSTYLE")))
4.   )
5.   'addobject
6.   "test"
7.   "AcDbMLeaderStyle"
8. )

Are you getting any errors? Unfortunately I do not have access to AutoCAD 2010 but can confirm this code works in AutoCAD 2015.

[cmwade77]

Honestly, this can add the style, but setting all of the properties is difficult to impossible in some cases. What we did was create the styles we needed in a drawing and insert it as a block when needed. It's fast and it works.

[velasquez]

I could not get your code to work with AutoCAD 2010 below.
Can you tell me what changes with this version?
Thanks

I use vlax-invoke like so (no error checking)

Code - Auto/Visual Lisp: [Select]

1. (vlax-invoke
2.   (vlax-ename->vla-object
3.     (cdr (assoc -1 (dictsearch (namedobjdict) "ACAD_MLEADERSTYLE")))
4.   )
5.   'addobject
6.   "test"
7.   "AcDbMLeaderStyle"
8. )

Are you getting any errors? Unfortunately I do not have access to AutoCAD 2010 but can confirm this code works in AutoCAD 2015.

Yes I do I get the error below:
"; Error: AutoCAD.Application: AcRxClassName entry is not in the system registry"
  In larger that 2010 versions the code works fine.

Thanks

[ronjonp]

Looks like it is a bug:
http://forums.autodesk.com/t5/Visual-LISP-AutoLISP-and-General/Help-Error-creating-mleaderstyle/td-p/3050426

[cmwade77]

Looks like it is a bug:
http://forums.autodesk.com/t5/Visual-LISP-AutoLISP-and-General/Help-Error-creating-mleaderstyle/td-p/3050426

I knew there was a reason we went with the block approach, I just couldn't remember all of the details.

[velasquez]

Thanks or all the answers.
I will work with the code below.

Code: [Select]

(dictadd DIC "MyLeaderStyle" OBJ)


[cmwade77]

Thanks or all the answers.
I will work with the code below.

Code: [Select]

(dictadd DIC "MyLeaderStyle" OBJ)


Going through my notes, be very careful with this one, it can cause data corruption and/or application crashes under certain circumstances. I didn't take as detailed notes as I should have, but I know one of the circumstances was if you use any LISP Reactors. I know there were other things we found that caused problems with this one as well. It is possible that the problem have been corrected in 2014 or newer, as I haven't tried with these versions, but I know 2013 and older had these issues.

[velasquez]

Thanks or all the answers.
I will work with the code below.

Code: [Select]

(dictadd DIC "MyLeaderStyle" OBJ)


Going through my notes, be very careful with this one, it can cause data corruption and/or application crashes under certain circumstances. I didn't take as detailed notes as I should have, but I know one of the circumstances was if you use any LISP Reactors. I know there were other things we found that caused problems with this one as well. It is possible that the problem have been corrected in 2014 or newer, as I haven't tried with these versions, but I know 2013 and older had these issues.

Thanks cmwade77,
Thanks cmwade77,
I will study it more calmly before working.

[cmwade77]

Yes, it was a very tricky one for us here. In the end, blocks were more efficient.