Here is something I use:
'---------------------------------------------------------------------------
------
Private Function ConvertToCtb()
Const sRet As String = """"
Dim sCmd As String
Dim sPstyle As String
sPstyle = ThisDrawing.GetVariable("PSTYLEMODE")
If sPstyle = "0" Then
sCmd = "(command " & sRet & "convertpstyles" & sRet & " " & ")" &
vbCr
ThisDrawing.SendCommand sCmd
End If
End Function
'---------------------------------------------------------------------------
--------
"HJohn" wrote in message
news:29957566.1075834049692.JavaMail.jive@jiveforum2.autodesk.com...
> Does anyone know how to execute this convertion thrugh VBA?
