modify dimension text from base point to selected point

[Anonymous]

modify dimension text from base point to selected point. Its not work with entmod and entupd functions.

[Kent1Cooper · Accepted solution]

---

@Anonymous wrote:

modify dimension text from base point to selected point. Its not work with entmod and entupd functions.

---

I can't explain why the (entmod (subst ...)) approach doesn't work, but I find in minimal testing that VLA Properties  can be used to do it:

(vlax-put DimensionAsVLAObject 'textposition YourNewPointCoordinatesList)

[john.uhden]

Maybe you aren't using the proper DXF code.  I know that I have used entmod to modify dimension entities.

I suggest that you create a dimension, copy it in place, relocate the text, and compare the two (entget)s for differences

Here's a little helper...

(defun c:Entget ( / e)
  (if (setq e (car (entsel "\nSelect object to list entity data: ")))
    (print (entget e))
  )
  (princ)
)
or, if you want to see one dxf code per line, then...
(defun c:Entget ( / e)
  (if (setq e (car (entsel "\nSelect object to list entity data: ")))
    (mapcar 'print (entget e))
  )
  (princ)
)

[Anonymous]

I am putting proper value in dxf code 11 which is text position.

[Anonymous]

Thanks its Working properly for me

[Anonymous]

thanks for reply sir

[dbhunia]

Another approach.......

(vlax-put-property DimensionAsVLAObject 'textposition ActiveX-compatible (variant) 3D point structure)

(vlax-put-property (vlax-ename->vla-object (car(entsel "\nSelect Dimension: "))) 'textposition (vlax-3d-point (getpoint "\nPick Text position: ")))

@Anonymous  you wrote "I am putting proper value in dxf code 11 which is text position."

It works only for "Linear" Dimension for other Dimensions you have to control dxf code 10 also......