Need Lisp routine for DWG compatability with MS

[Anonymous]

Hi Everyone !

i have a requirement to make the autocad dwg file drawing to make it compatible opening with microstation software. for that i need to do the following everytime in  my drawing :

1. Burst all nested blocks/attribute blocks in the drawing
2. Make all associative hatches as non associative
3. Make all associative dimensions as non associative
4. Clean/Purge the drawing

If i get a combined single lisp file which does the above it would be more time saving for me instead using multiple lisp files everytime. Does anyone have a solution for this? 
Thanks in advance.

[hak_vz]

So you have separate lisp files that do that?

Post them here so it can be joined to one.

[CodeDing]

@Anonymous ,

I've never used Microstation, but does it accept DXF file format? Is that a viable solution instead? Just export drawing as .dxf?

Best,

~DD

[devitg]

@Anonymous For better understanding, and maybe get further help, please upload such sample.dwg

[hak_vz]

@Anonymous Using lisp is necessary only if you use some old version of Microstation.

Consult this link about how to convert DWG to DGN directly in Microstation.

[3wood · Accepted solution]

Following codes can do all 4 tasks in one go.

You need download EXPLODEALL and get a free registration though. Or replace it with other equivalent codes to do task No. 1. 

(defun C:DWG2MS (/ n1 ss-h)
  (explodeall  (ssget "x"))
  (setq n1 0
	ss-h (ssget "x" '((0 . "HATCH"))))
  (repeat (sslength ss-h)
    (command "._-HATCHEDIT" (ssname ss-h n1) "Disassociate")
    (setq n1 (1+ n1))
    )
  (command "._DIMDISASSOCIATE" "all" "")
  (command "._-PURGE" "all" "*" "N")
  )

[Anonymous]

Hi@3wood 

Thanks for your reply. i will check this routine. for task 1 burst option i found nburst in the below link from Leemac. http://www.lee-mac.com/upgradedburst.html Can this be substituted in place of explode all.

How this can be integrated with your code.

Thanks again!

[Anonymous]

Hi @hak_vz 

Thanks for your reply!

I will checkout the link which you have given .Thanks a lot!.

[Anonymous]

Hello @CodeDing 

I am also new to Microstation. i will check with dxf option along with the above requirements. in my requirements it was said that the version of autocad shall be in 2010 or 2013 for importing in microstation. 

Thanks for your suggestion.

[3wood]

You can try following code then.

(defun c:DWG2MS (/ n1 ss1 ss2)
  ; (explodeall  (ssget "x"))
  (if  (setq ss1 (ssget "_X" '((0 . "INSERT"))))
    (progn
      (setq pfst (getvar 'PICKFIRST))
      (setvar 'PICKFIRST 1)
      (sssetfirst nil ss1)
      (LM:burst ss1)
      )
    )
  (setq n1 0
	ss2 (ssget "x" '((0 . "HATCH"))))
  (if ss2
    (repeat (sslength ss2)
      (command "._-HATCHEDIT" (ssname ss2 n1) "Disassociate")
      (setq n1 (1+ n1))
      )
    )
  (command "._DIMDISASSOCIATE" "all" "")
  (command "._-PURGE" "all" "*" "N")
  )

[Anonymous]

Hi @3wood 

Thanks for your reply..

When i tried the code. in the command prompt it says

; error: no function definition: LM:BURST

Thanks. 

[hak_vz]

@Anonymous 

You can download Lee Mac's LM:burst here