Insert Dimension Measurement Field

Hello,

I am looking for a macro or lisp routine that allows me to insert a field in a text box that automatically takes a dimension's measurement. I am looking to skip all the dialouge boxes that go along with inserting fields.

Any help would be great, Thanks!

Something like this?

(defun c:dimF (/ ent txt)
 (vl-load-com)
 (and (setq ent (car (entsel "\nSelect Dimension: ")))
      (eq "DIMENSION" (cdr (assoc 0 (entget ent))))
      (setq txt
        (M-Text '(0 0 0)
          (strcat
           "%<\\AcObjProp Object(%<\\_ObjId "
             (vl-princ-to-string
               (vla-get-ObjectId
                 (vlax-ename->vla-object ent))) ">%).Measurement \\f \"%lu2\">%")))
      (command "_.move" txt "" '(0 0 0) pause))
 (princ))

(defun M-Text (pt val)
 (entmakex
   (list
     (cons 0 "MTEXT")         
     (cons 100 "AcDbEntity")          
     (cons 100 "AcDbMText")    
     (cons 10 pt)        
     (cons 1 val))))

I can make that one work, but is there a way to insert it into an existing mleader and/or mtext.

Like this?

(defun c:dimF (/ ent dtxt)
 (vl-load-com)
 (and (setq ent (car (entsel "\nSelect Dimension: ")))
      (eq "DIMENSION" (cdr (assoc 0 (entget ent))))
      (setq dtxt (car (entsel "\nSelect Destination: ")))
      (wcmatch (cdr (assoc 0 (entget dtxt))) "*TEXT,MULTI*")
      (vla-put-TextString
        (vlax-ename->vla-object dtxt)
          (strcat
           "%<\\AcObjProp Object(%<\\_ObjId "
             (vl-princ-to-string
               (vla-get-ObjectId
                 (vlax-ename->vla-object ent))) ">%).Measurement \\f \"%lu2\">%")))
 (princ))

Like this?

 

(defun c:dimF (/ ent dtxt)
 (vl-load-com)
 (and (setq ent (car (entsel "\nSelect Dimension: ")))
      (eq "DIMENSION" (cdr (assoc 0 (entget ent))))
      (setq dtxt (car (entsel "\nSelect Destination: ")))
      (wcmatch (cdr (assoc 0 (entget dtxt))) [color=Red]"*TEXT,MULTI*"[/color])
      (vla-put-TextString
        (vlax-ename->vla-object dtxt)
          (strcat
           "%<\\AcObjProp Object(%<\\_ObjId "
             (vl-princ-to-string
               (vla-get-ObjectId
                 (vlax-ename->vla-object ent))) ">%).Measurement \\f \"%lu2\">%")))
 (princ))

laaaazy, lol

Lee,

This works with the exception that it erases the previous text when i select the destination and replaces it. I would like to just insert it either on the end or beginning of an existing text string. Also, is it difficult to make one version for decimal dimension with a precision of 0.00 and one version for fractional with a precision of 1/16?

Alan> Lazy indeed, after all why type "leader" when I can just type "*"...

Ryan>

Yes it replaces the text - how would I know whether you wanted it at the beginning or end :geek: ?

Different positions can indeed be incorporated just by altering the field string.

Alan> Lazy indeed, after all why type "leader" when I can just type "*"...

 

Ryan>

 

Yes it replaces the text - how would I know whether you wanted it at the beginning or end :geek: ?

 

Different positions can indeed be incorporated just by altering the field string.

oh, i know. i just wanted to poke fun. however, you should stray from "*TEXT" because rtext can be selected, and doesn't work the same way as text and mtext.

oh, i know. i just wanted to poke fun. however, you should stray from "*TEXT" because rtext can be selected, and doesn't work the same way as text and mtext.

oh good point sir

oh good point sir

always happy to nit pick.

always happy to nit pick.

Sure, no worries... I'm sure I can return the favour

Sure, no worries... I'm sure I can return the favour

lol, i think you just accomplished it when the entmakeX.

Five years later...

Lee, one question: is possible to update this routine to work with attribute (field) in BOM?

Need to create something that will read: largest dimension (horizontal) and largest dimension (vertical) and write value in to selected attribute(s).

Attaching sample dwg with "CUT SIZE:" row that contain attribute with manually inserted two fields separated with "x".

It works, but, each time drawing is created, need to repeat all procedure to link field with dimension.

Perfectly, I imagine it work like that:

############

-...magic is looking for largest horizontal and vertical dimension

-hard coded destination to tag name attribute

-done.

############

or

############

-select first dimension

-select second dimension

-select destination attribute

...magic, magic, magic

-done.

############

(sorry wrapping not working)

Thank you.

FIELD TEST.dwg

I know it is not very nice but: bump

When I try to use this routine, all I get in MTEXT is "####". Will it have something to do with the new version of autocad? I am using AutoCAD 2018.

The field content is

"% %). Measurement \ f"% lu2 ">%"

when I think it should be something like

"% %). Measurement \ f "% lu2">% "

#s3gt_translate_tooltip_mini { display: none !important; }

Use Lee's updated version of lm:getobjectid from HERE. You'll also need to include lm:acdoc as well.

Thank you ronjonp!

I do not know anything about lisp, but touching the code a bit, I managed to make it work. I attach the routine in case someone finds it useful. All the credit for Lee Mac.

dimf.lsp

You'll also need my LM:ename->objectid and LM:hex->decstr functions if you are working in AutoCAD 2008 64-bit (which doesn't support the getobjectidstring method).