vla-get-tablestyles

[hofcad]

Hello CAD friends,

I was wondering if anyone know why there is a
problem with vla-get-tablestyles.
This is because I can get already the ObjectId in a similar way
from Blocks, Dimstyles, Layers, Linetypes, TextStyles and Views for the Named object type of a Field.

How can I find the Object ID of a tablestyle?

(defun c:test1()
(vl-load-com)
(setq ActDoc (vla-get-ActiveDocument (vlax-get-Acad-Object)))
(setq TabCol (vla-get-TableStyles ActDoc))
(setq TabSty (vla-Item TabCol "Standard"))
(stq ObjID (vla-get-ObjectID TabSty))
(command "_TEXT" '(30 30) "5" "0"
(strcat "%<\\AcObjProp Object(%<\\_ObjId " (itoa objID) ">%).Name>%"))
)

Thanks

HofCAD CSI

[ Moderator Action = ON ] What are [ CODE ] tags... (http://forums.augi.com/misc.php?do=bbcode#code) [ Moderator Action = OFF ]

[kennet.sjoberg]

I think you can find something interesting in (entget (namedobjdict))

: ) Happy Computing !

kennet

[hofcad]

I think you can find something interesting in (entget (namedobjdict))

: ) Happy Computing !

kennet

Kennet,

Thanks for the solution!
I can get now the Object ID of a tablestyle, but I am still wondering.

HofCAD CSI

[RobertB]

I can get now the Object ID of a tablestyle, but I am still wondering.TableStyles are not stored in a "traditional" table/collection, but rather a dictionary. Examine the object model in the ActiveX Reference and you will not find a "TableStyles" collection.

[CADmium]

Here (http://autocad.cad.de/modules.php?name=News&file=article&sid=25) you can find an example how to handle tablestyles.

[dbrower]

Not sure if this helps but:...


;;Slightly modified by Dann Brower
(defun c:test1 ()
(vl-load-com)
(setq ActDoc (vla-get-ActiveDocument (vlax-get-Acad-Object))
dict (vla-get-Dictionaries adoc)
)
(setq TabCol (vla-item dict "ACAD_TABLESTYLE"))
(setq TabSty (vla-Item TabCol "Standard"))
(setq ObjID (vla-get-ObjectID TabSty))
(command "_TEXT"
'(30 30)
"5"
"0"
(strcat "%<\\AcObjProp Object(%<\\_ObjId "
(itoa objID)
">%).Name>%"
)
)
)

[ Moderator Action = ON ] What are [ CODE ] tags... (http://forums.augi.com/misc.php?do=bbcode#code) [ Moderator Action = OFF ]

[hofcad]

Friends,

Thank you so much for this. It's exactly what I have been looking for.
But is it also possible to make an Table-Style with Lisp?

HofCAD CSI

[RobertB]

Thank you so much for this. It's exactly what I have been looking for.
But is it also possible to make an Table-Style with Lisp?I far prefer to do it in VBA. If you are a Subscription customer, download my AU class CP35-1, Programming Tables to Do More. There is code in there that creates a table style.