Obtain dimension text position

[RepCad]

Hi all,

I want to get position of dimension text by vla commands and I test below code but it doesn't work, 

 

(setq s (car (entsel)))
(setq ss (vlax-ename->vla-object s))
(setq textPosition ( vla-get-TextPosition ss))

 

Can someone tell me what's wrong with the code?

[Roy_043]

The code works, but the point is returned as a variant. To get a point-as-list value you can do two things:

(setq textPosition (vlax-safearray->list (vlax-variant-value (vla-get-textposition ss))))

(setq textPosition (vlax-get ss 'textposition))

 

[RepCad]

Thank you so much Roy_043, the second code was excellent, I have two question :

- Can we get all property by 'vla-get' ?? for example text value, text size , text color, text style

- is there vla code to get insertion point of text ?? (not text dimension) (I always use "cdr (assoc 10 c)")

Edited August 9, 2019 by amir0914

[BIGAL]

Use dumpit.lsp and have a look some info can be at a level below.

 

: DUMPIT
Select entity: 
; IAcadDimRotated 36ab9370 : TeighaX Interface of a dimension that measures the distance between two points and is displayed at a given rotation
;
; Property values :
there are 114 variables displayed. So did not paste to here.

 

 

 

DumpIt.LSP

[RepCad]

3 hours ago, BIGAL said:

Use dumpit.lsp and have a look some info can be at a level below.

 

: DUMPIT
Select entity: 
; IAcadDimRotated 36ab9370 : TeighaX Interface of a dimension that measures the distance between two points and is displayed at a given rotation
;
; Property values :
there are 114 variables displayed. So did not paste to here.

 

 

 

DumpIt.LSP 522 B · 3 downloads

Thanks a lot BIGAL,