Topic: Dimension Text - Dtext or Mtext

[Greg B]

2. What are you doing with the dimensions which have an override?

I'm going to explode them, grab the override, change it to Dtext.

Didn't you say this was a big No-No?

[CAB]

Yes. I'lll post em if you want to race me to see who can write this. Just kiddin. You'd leave me in your dust.

You can hold your own.

See if I have a grasp of the solution that will work.

Grab all dims
Test for overrides that contain the %%nnn from your list
Make a dimtext object out if the text
Set the over ride to ""
Place the dimtext in the same location as the override was.
Done

[deegeecees]

2. What are you doing with the dimensions which have an override?

I'm going to explode them, grab the override, change it to Dtext.

Didn't you say this was a big No-No?

I'm treating this like an Omlette, sometimes you have to break some eggs.

[deegeecees]

Yes. I'lll post em if you want to race me to see who can write this. Just kiddin. You'd leave me in your dust.

You can hold your own.

See if I have a grasp of the solution that will work.

Grab all dims
Test for overrides that contain the %%nnn from your list
Make a dimtext object out if the text
Set the over ride to ""
Place the dimtext in the same location as the override was.
Done

Yessiree, just like Mom used to make. Mmmmm good Omlette.

[deegeecees]

I am gathering the on the ASCII codes...

[deegeecees]

Wait a minute...

if you take your solution and do this to it, I think it'll work:

Grab all dims
Test for overrides that contain the %%nnn from your list
Explode the dimension and grab the MTEXT object
Make a dimtext DTEXT object out if the text MTEXT object
Set the over ride to ""
Place the dimtext DTEXT in the same location as the override was.
Done

[deegeecees]

%%202 thru %%216

Starting with 1/16 incremented by 1/16 through 15/16

So %%202 = 1/16, and %%216 = 15/16

Uses Comed.shx

[T.Willey]

See if this works for you.  It keeps the old dims in tact.

Code: [Select]

(defun c:RewriteDimText (/ ss Ent tmpEnt EntData OldStr NumStr)

(if (setq ss (ssget "x" '((0 . "DIMENSION"))))
 (while (setq Ent (ssname ss 0))
  (setq tmpEnt (tblobjname "block" (cdr (assoc 2 (entget Ent)))))
  (while (/= (cdr (assoc 0 (setq EntData (entget (setq tmpEnt (entnext tmpEnt)))))) "MTEXT"))
  (setq OldStr (cdr (assoc 1 EntData)))
  (if (setq Pos (vl-string-search "%%2" OldStr))
   (progn
    (setq PreFix (substr OldStr 1 Pos))
    (setq Num (atoi (substr OldStr (+ 3 Pos) 3)))
    (setq Suffix (substr OldStr (+ 6 Pos)))
    (setq NumStr (rtos (* (- Num 201) 0.0625) 4 4))
    (setq OldStr (strcat PreFix (substr NumStr 1 (1- (strlen NumStr))) Suffix))
   )
  )
  (entmake
   (list
    '(0 . "TEXT")
    '(100 . "AcDbEntity")
    (cons 8 (cdr (assoc 8 EntData)))
    '(100 . "AcDbTEXT")
    (cons 10 (cdr (assoc 10 EntData)))
    (cons 40 (cdr (assoc 40 EntData)))
    (cons 1 OldStr)
    '(72 . 4)
    '(73 . 0)
    (cons 11 (cdr (assoc 10 EntData)))
   )
  )
  (ssdel Ent ss)
 )
)
(princ)
)


[deegeecees]

This what was returned:

AutoCAD menu utilities loaded.
Command: (load"rwdt")
C:RWDT

Command: rwdt
; error: bad argument type: lentityp nil

[T.Willey]

Did you change anything else?  On my computer it works fine.  Post back what you have, and will run it here and see what happens.

[deegeecees]

I just gave it an acronym.

Code: [Select]

(defun c:RWDT (/ ss Ent tmpEnt EntData OldStr NumStr)

(if (setq ss (ssget "x" '((0 . "DIMENSION"))))
(while (setq Ent (ssname ss 0))
  (setq tmpEnt (tblobjname "block" (cdr (assoc 2 (entget Ent)))))
  (while (/= (cdr (assoc 0 (setq EntData (entget (setq tmpEnt (entnext tmpEnt)))))) "MTEXT"))
  (setq OldStr (cdr (assoc 1 EntData)))
  (if (setq Pos (vl-string-search "%%2" OldStr))
   (progn
    (setq PreFix (substr OldStr 1 Pos))
    (setq Num (atoi (substr OldStr (+ 3 Pos) 3)))
    (setq Suffix (substr OldStr (+ 6 Pos)))
    (setq NumStr (rtos (* (- Num 201) 0.0625) 4 4))
    (setq OldStr (strcat PreFix (substr NumStr 1 (1- (strlen NumStr))) Suffix))
   )
  )
  (entmake
   (list
    '(0 . "TEXT")
    '(100 . "AcDbEntity")
    (cons 8 (cdr (assoc 8 EntData)))
    '(100 . "AcDbTEXT")
    (cons 10 (cdr (assoc 10 EntData)))
    (cons 40 (cdr (assoc 40 EntData)))
    (cons 1 OldStr)
    '(72 . 4)
    '(73 . 0)
    (cons 11 (cdr (assoc 10 EntData)))
   )
  )
  (ssdel Ent ss)
)
)
(princ)
)

[T.Willey]

That is weird.  It works on mine, with no dims, with one, and with two.  Can you post a small sample drawing that is causeing the problems?

[CAB]

Worked for me although I added this.

Code: [Select]

(defun c:RewriteDimText (/ ss Ent tmpEnt EntData OldStr NumStr)

(if (setq ss (ssget "x" '((0 . "DIMENSION")
                           (-4 . "<NOT") (1 . "") (-4 . "NOT>"))))
(while (setq Ent (ssname ss 0))
  (setq tmpEnt (tblobjname "block" (cdr (assoc 2 (entget Ent)))))
  (while (/= (cdr (assoc 0 (setq EntData (entget (setq tmpEnt (entnext tmpEnt)))))) "MTEXT"))
  (setq OldStr (cdr (assoc 1 EntData)))
  (if (setq Pos (vl-string-search "%%2" OldStr))
   (progn
    (setq PreFix (substr OldStr 1 Pos))
    (setq Num (atoi (substr OldStr (+ 3 Pos) 3)))
    (setq Suffix (substr OldStr (+ 6 Pos)))
    (setq NumStr (rtos (* (- Num 201) 0.0625) 4 4))
    (setq OldStr (strcat PreFix " " (substr NumStr 1 (1- (strlen NumStr))) Suffix))
   )
  )
  (entmake
   (list
    '(0 . "TEXT")
    '(100 . "AcDbEntity")
    (cons 8 (cdr (assoc 8 EntData)))
    '(100 . "AcDbTEXT")
    (cons 10 (cdr (assoc 10 EntData)))
    (cons 40 (cdr (assoc 40 EntData)))
    (cons 1 OldStr)
    '(72 . 4)
    '(73 . 0)
    (cons 11 (cdr (assoc 10 EntData)))
   )
  )
  (ssdel Ent ss)
)
)
(princ)
)

[deegeecees]

Their inlies the problem, you would need some proprietary info that I can't give to you (comed.shx).

Strange things are afoot...

When I open the drawing, the MTEXT objects are showing the ASCII chars properly, when I DDEDIT them (withoutchanging anything) they revert to raw ASCII. Hmmmm.... I've seen this before.

Will check back tomorrow, have to go fight traffic for an hour or so.

Thanks guys.

Patrick 

[T.Willey]

That is what I was thinking.  Maybe it's not find any mtext object in the block definition.  We can figure that out another time, tomorrow or Monday.  Hope there isn't too much traffic.