Risultati da 1 a 8 di 8
  1. #1
    Utente Junior
    Iscritto dal
    2009
    Messaggi
    23
    Professione
    Impiegato
    Regione
    italia
    Software
    Solid Edge

    Predefinito VB6: export PAR to JPG/BMP (SE 15)

    Salve,avrei la necessità di salvare,da VB6 e componente SEpartX,
    un PAR ad immagine JPG o BMP.
    ho trovato il comando SaveImageAs ma non riesco a personalizzarlo con un folder predefinito od estensione immagine jpg.

    Mi potete aiutare?
    grazie anticipatamente,Fabrizio !

  2. #2
    Utente Standard
    Iscritto dal
    2008
    Messaggi
    952
    Professione
    disegnatore
    Regione
    Romagna
    Software
    Solid Edge

    Predefinito

    Codice:
    Dim objApp As Object
    Set objApp = GetObject(, "SolidEdge.Application")
    
    Dim nomeFile as String
    Dim nomeFileCompleto as String
    
    nomeFile = "ciao"
    nomeFileCompleto = "C:\Disegni - LOCALE\" & nomeFile  & ".jpg"
    
    objApp.StartCommand (32876) 'Refresh F5
    objApp.ActiveWindow.view.SaveAsImage (nomeFileCompleto)

  3. #3
    Moderatore L'avatar di Be_on_edge
    Iscritto dal
    2007
    Messaggi
    2764
    Professione
    Progettazione
    Regione
    Emilia Romagna
    Software
    Solid Edge

    Predefinito

    Il metodo è il SaveAsImage nell gruppo View del framework.

    Nel parametro "Filename" devi specificare il percorso completo e l'estensione. Nella guida della programmazione trovi i riferimenti.

    Se poi ci fai vedere la porzione di codice che hai scritto ti si può aiutare anche meglio.

    Ciao
    Francesco
    Cintura nera di solid edge

  4. #4
    Utente Junior
    Iscritto dal
    2009
    Messaggi
    23
    Professione
    Impiegato
    Regione
    italia
    Software
    Solid Edge

    Predefinito

    grazie,ho provato ma vb6 mi restituisce l'errore :

    "il componente ActiveX non può creare l'oggetto"

    alla riga
    Set objApp = GetObject(, "SolidEdge.Application")

  5. #5
    Utente Junior
    Iscritto dal
    2009
    Messaggi
    23
    Professione
    Impiegato
    Regione
    italia
    Software
    Solid Edge

    Predefinito

    @ Be_on_edge
    nel comando SaveAsImage come faccio a passargli il parametro Filename ?

  6. #6
    Utente Standard
    Iscritto dal
    2008
    Messaggi
    952
    Professione
    disegnatore
    Regione
    Romagna
    Software
    Solid Edge

    Predefinito

    Citazione Originariamente Scritto da zed1976 Visualizza Messaggio
    grazie,ho provato ma vb6 mi restituisce l'errore :

    "il componente ActiveX non può creare l'oggetto"

    alla riga
    Set objApp = GetObject(, "SolidEdge.Application")
    Ti o messo un esempio scarno, pensavo fosse sufficiente.
    La cosa più probabile di quell'errore è dato da SolidEdge che è chiuso, prima di lanciare apri il file 3D di tuo interesse.

    lo scopo dell'esempio che ti ho riportato era dirti di richiamare (come detto da Be_on_edge)
    .SaveAsImage (nomeFileCompleto)
    dove nomeFileCompleto è completo di percorso e estensione (che deve essere .bmp , .jpg, o tif )

    DALLA GUIDA (SE ST4)
    Description
    Saves the current view as an image.
    Syntax
    Visual Basic
    Public Sub SaveAsImage( _
    ByVal Filename As String, _
    Optional ByVal Width As Variant, _
    Optional ByVal Height As Variant, _
    Optional ByVal AltViewStyle As Variant, _
    Optional ByVal Resolution As Variant, _
    Optional ByVal ColorDepth As Variant, _
    Optional ByVal ImageQuality As SeImageQualityType = 0, _
    Optional ByVal Invert As Boolean = False _
    )


    Parameters
    Filename
    The file name of the saved file. The extension you specify determines the format of the saved file. You can specify .bmp (Windows Bitmap), .tif (TIFF), or .jpg (JPEG).
    Width
    Specifies the width of the file.
    Height
    Specifies the height of the file.
    AltViewStyle
    Resolution
    Specifies the units per pixel of the file.
    ColorDepth
    Specifies the color depth in bits of the file.
    ImageQuality
    Value Description
    seImageQualityHigh Medium quality JPG/TIFF Image
    seImageQualityLow Low quality JPG/TIFF Image
    seImageQualityMedium Medium quality JPG/TIFF Image
    For binary files, specifies whether the file's black and white values are inverted.
    Invert
    For binary files, specifies whether the file's black and white values are inverted.

  7. #7
    Utente Junior
    Iscritto dal
    2009
    Messaggi
    23
    Professione
    Impiegato
    Regione
    italia
    Software
    Solid Edge

    Predefinito

    ah,ok..non avevo capito,ora funziona,ma io avrei la necessità di far questo da utenti solo con il visualizzatore di Solid Edge, e non Solid Edge puro.

    Vorrei farlo inoltre da componente OCX (SEpartX)

  8. #8
    Utente Standard
    Iscritto dal
    2008
    Messaggi
    952
    Professione
    disegnatore
    Regione
    Romagna
    Software
    Solid Edge

    Predefinito

    OCX (SEpartX) ha:
    Function SaveImageAs() As Boolean
    Save as Image BMP to a file
    quindi non puoi impostare né il percorso e né il formato (è solo BMP).

    Function CopyEMFToClipboard() As Boolean
    Copy Enhanced metafile to clipboard

    forse se sei bravo, si potrebbe provare a:
    1. copiare con questo sulla clipboard (detti anche appunti di windows),
    2. creare una istanza di mspaint.exe ,
    3. incollare,
    4. salvare in jpg,
    5. chiudere mspaint


    Sub PrintOut([NoPrintDialog])
    Print to default printer with or without print dialog appearing
    potresti passare anche da qui con una stampate virtuale ma mi sembra molto complicato e meno affidabile.

    Ci sono altre librerie e ocx in SE che non ho mai usato e non saprei se richiedono licenza o meno. Bisognerebbe far delle prove. Ricordo che negli esempi di programmazione c'è anche un esempio di caricare sul browser IExplorer un ActiveX, ma sinceramente sono cose che non si fanno (o non si fanno più), i nuovi browser non usano da anni gli ActiveX per problemi di sicurezza (frase smentibile, ma sto ad indicare che IExplorer e ActiveX è un binario morto).

    buona fortuna


  • Discussioni Simili

    1. Export DXF
      Di Vito Guarino nel forum Alias Studio
      Risposte: 0
      Ultimo Messaggio: 17-09-2012, 10: 49
    2. Export dxf da file par
      Di Pizza3d nel forum Solid Edge
      Risposte: 12
      Ultimo Messaggio: 08-05-2012, 09: 04
    3. Export in c4d
      Di mario.argese nel forum Revit
      Risposte: 7
      Ultimo Messaggio: 04-02-2011, 12: 22
    4. help!!! export da 3ds in iges
      Di valentinad nel forum 3D studio
      Risposte: 1
      Ultimo Messaggio: 11-07-2010, 19: 58
    5. eXport 3D non misurabile
      Di sernic nel forum Creo Parametric (ex Pro/E)
      Risposte: 7
      Ultimo Messaggio: 08-01-2010, 12: 28

    Segnalibri

    Segnalibri

    Permessi di Scrittura

    • Tu non puoi inviare nuove discussioni
    • Tu non puoi inviare risposte
    • Tu non puoi inviare allegati
    • Tu non puoi modificare i tuoi messaggi
    •  





    CAD3D.it - la community dei progettisti