topic Re: Detach in AutoCAD Map 3D Developer Forum

Detach

Anonymous — Mon, 07 Apr 2003 13:57:34 GMT

is there method for detaching a drawing from a project through VBA or LISP?
I have searched the Object Lib. and cannot find anything there.

Thank you in advance.

Bart

Re: Detach

Anonymous — Mon, 07 Apr 2003 15:03:07 GMT

You can do it in VBA with the Map Object Model but when I used this method I found this part of the object model has a bug so I use the following SendCommand method: ThisDrawing.SendCommand "ADEDRAWINGS" & vbCr & "DE" & vbCr & "*" & vbCr & "X" & vbCr - This exaple detaches all drawings. You can substitute the * wildcard with a file name. Regards Nathan Taylor.

Re: Detach

Anonymous — Fri, 11 Apr 2003 09:15:09 GMT

Hello Bart.

Here are a couple of functions I use to detach dwgs via the VBA O.M.
Notice the 'RefreshWorkspace' function...
What the other fellow was commenting on was a result of a problem with the
Project Workspace not refreshing after certain actions from VBA. I have
found that if you force a 'refresh', you can call actuions like this from
VBA

Hope this helps
Warren M

**************** Start Snippet *****************

Public Function MapDetachDwgByName(strFileName As String)

On Error GoTo ErrorHandler
Dim AutoCADMap As AcadMap
Set AutoCADMap = GetObject(,
"AutoCAD.Application").GetInterfaceObject("AutocadMap.Application")

AutoCADMap.Projects.item(ThisDrawing).DrawingSet.Remove strFileName

Call RefreshWorkspace
Set AutoCADMap = Nothing

'If the operation was unsuccessful the following code tries to
'show the error stack or the last error code from AutoCAD MAP
ErrorHandler:
MsgBox ("Last AutoCAD Error Code: " & AutoCADMap.ErrorStack.LastErrCode)

End Function

Public Function RefreshWorkspace()
ThisDrawing.SendCommand "MAPWSREFRESH" & vbCr
End Function

**************** End Snippet *****************

"B Wells" wrote in message
news:A3F8E38FB5EE8A75836F894BE8CE8830@in.WebX.maYIadrTaRb...
> is there method for detaching a drawing from a project through VBA or
LISP?
> I have searched the Object Lib. and cannot find anything there.
>
> Thank you in advance.
>
> Bart
>
>

Re: Detach

Anonymous — Mon, 21 Apr 2003 09:47:27 GMT

Hi Bart,

There are functions in both VBA and LISP. One thing to remember is to
refresh the project window. Below is a sample lisp code.

Hope this helps,
-PG.

;;*********************************************************
(defun test ()
;; create a drive alias
(ade_aliasadd
"test_drive"
"c:\\Program Files\\Autodesk Map 2004\\MAPTUT"
)
;; attach a drawing
(setq dwg_id
(ade_dsattach "test_drive:\\Tutorial I\\citymap.dwg")
)
;; make visisble the drawing in Project Window
(if dwg_id
(refreshWspace)
)
(getint "\nPress Enter...")
;; detach the drawing
(if (ade_dsdetach dwg_id)
(refreshWspace)
)
)
(defun refreshWspace ()
(command "_mapwspace" "")
)
;;*********************************************************

"B Wells" wrote in message
news:A3F8E38FB5EE8A75836F894BE8CE8830@in.WebX.maYIadrTaRb...
> is there method for detaching a drawing from a project through VBA or
LISP?
> I have searched the Object Lib. and cannot find anything there.
>
> Thank you in advance.
>
> Bart
>
>