CONVERTPSTYLES

Discussion in 'AutoCAD' started by HJohn, Feb 3, 2004.

  1. HJohn

    HJohn Guest

    Does anyone know how to execute this convertion thrugh VBA?
     
    HJohn, Feb 3, 2004
    #1
  2. HJohn

    JRWalker Guest

    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
    '---------------------------------------------------------------------------
     
    JRWalker, Feb 4, 2004
    #2
Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments (here). After that, you can post your question and our members will help you out.
Similar Threads

  1. CONVERTPSTYLES command

  2. Run convertpstyles without messagebox

  3. Convertpstyles - ver 2000

Loading...