vla-get-tablestyles

[HofCAD]

Hello CAD friends,

I was wondering if anyone one know why there is a
problem with vla-get-tablestyles.

(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

 

[borgunit]

Could you mean vla-get-TextStyles instead?

"Everybody is ignorant, only on different subjects." — Will Rogers

 

[HofCAD]

Hello Borgunit,

No I do not mean vla-get-TextStyles,
but I do mean vla-get-Tablestyles.
This is because I can get allready the ObjectId
from Blocks, Dimstyles, Layers, Linetypes, Textstyls and Views for the Named object type of a Field.

 

[borgunit]

When I look at the Object Model of AutoCAD in the help, there is no TableStyle object or collection.

"Everybody is ignorant, only on different subjects." — Will Rogers

 

[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