LISP to explode dimensions in multiple AutoCAD drawings

[bgalindo4TNYT]

Hi, 
I would appreciate if someone could help me with a lisp to explode all dimensions in multiple drawings in AutoCAD.

I know exploding dimensions is not the best, however I have to do it for this specific project and I have a lot of drawings.

[Sea-Haven]

There are a couple of ways basically you need to make a script of the dwgs you want to do the explode on do you want to make a copy of the dwgs also.

Are the dims only in Modelspace or in layouts as well ?

Using (ssget "X" '((0 . "DIMENSION'))) will find all dimensions then can explode.

Could be as simple as 

OPEN dwg1 (setvar 'ctab "Model")(command "Explode" (ssget "X" '((0 . "DIMENSION")))) close Y

OPEN dwg2 (setvar 'ctab "Model")(command "Explode" (ssget "X" '((0 . "DIMENSION"))) "") close Y

OPEN dwg3 (setvar 'ctab "Model")(command "Explode" (ssget "X" '((0 . "DIMENSION"))) "") close Y

[pbejse]

---

@bgalindo4TNYT wrote:

Hi, 
I would appreciate if someone could help me with a lisp to explode all dimensions in multiple drawings in AutoCAD.

---

[ hinted by seahaven ]

Question: Are there dimensions on layout tabs on your drawings?

[devitg]

It will be easy if you upload a sample.dwg , so all facts can be take in consideration.

[ronjonp]

Answered HERE too...

[pbejse]

---

@ronjonp wrote:

Answered HERE too...

---

	(entmakex (append (entget (vlax-vla-object->ename a))

I had a similar approach in mind, 

...
	  (setq dim (entget (ssname ss (Setq i (1- i)))))
		(setq db (tblobjname "BLOCK" (cdr (assoc 2 dim)))
	  		dobj (entget db))
		(while (and (setq db (entnext db)) (not ds))
		     (entmakex (append (entget db)(list (assoc 410  dim))))
		    )
	  	(entdel (ssname ss i))
...

@ronjonp 

Reason why I ask the OP of the location of the dims, is because of the eventual problems with entdel at layouts. Also going through entnext  has its own problem apparently when not use properlly.