topic Re: modify dimension text from base point to selected point in Visual LISP, AutoLISP and General Customization Forum

modify dimension text from base point to selected point

Anonymous — Mon, 23 Sep 2019 13:45:44 GMT

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

Re: modify dimension text from base point to selected point

Kent1Cooper — Mon, 23 Sep 2019 15:27:03 GMT

@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)

Re: modify dimension text from base point to selected point

john.uhden — Tue, 24 Sep 2019 00:04:24 GMT

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)
)

Re: modify dimension text from base point to selected point

Anonymous — Tue, 24 Sep 2019 04:08:25 GMT

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

Re: modify dimension text from base point to selected point

Anonymous — Tue, 24 Sep 2019 04:18:28 GMT

Thanks its Working properly for me

Re: modify dimension text from base point to selected point

Anonymous — Tue, 24 Sep 2019 04:18:54 GMT

thanks for reply sir

Re: modify dimension text from base point to selected point

dbhunia — Tue, 24 Sep 2019 04:47:19 GMT

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......