Newsgroup: it.comp.lang.visual-basic
Titolo: aprire autocad da vb5

ciao,
volevo sapere se qualcuno a mai provato ad aprire autocad
e lavorarci da vb5.
so che da vb6 č fattibile.
sapete dirmi come faccio per richiamarlo?
grazie
marco

 so che da vb6 è fattibile.



Con autocad2000 viene fornito un activex con cui si può interagire in
maniera agevole con il mondo autocad anche da vb5.
Ti ricordo comunque che autocad2000 (già la ver14 lo aveva) nasce con VBA
for Autocad (ti consiglio di utilizzare questo che è più performante), non
supporta comunque il DataBinding.
Ciao MArco

 sapete dirmi come faccio per richiamarlo?
Hem... comi si fa da VB6?
di quale AutoCAD stai Parlando 14 o 2000 ??
--
Ciao!
----------------------------------
Nel mio sito (sezione "I Miei Programmi") trovate il
programma FREEWARE AutoQuote! che permette di quotare
i messaggi che non quota Outlook Express.
==================================
Daniele Pinna  Email: 
dap...@lycosmail.com
Nell'indirizzo Email eliminare la parola "OOPS."
Sito Web: Il DoCFa in Pillole: 
http://dapinna.freeweb.org
ICQ UIN: 24567484

 Ciao MArco
Ciao,
io ci ho lavorato un poco per fare un prototipo, sa VB5 aprivo Autocad
14.01 e lo controllavo.
Devi però conoscere gli oggetti che Autocad mette a disposizione (sono
gli stessi del VBA, ovviamente)
Ecco la funzione che crea la 'connessione':
Private Sub StartAutoCAD(Optional dwgName As String)
 
    On Error Resume Next
    Dim i, ff
    Dim arxList
 
    Set objAcad = GetObject(, "AutoCAD.Application")
    If Err Then
        Set objAcad = CreateObject("AutoCAD.Application")
        Err.Clear
    End If
 
    Set objDoc = objAcad.ActiveDocument
    If objDoc.FullName <> dwgName And dwgName <> "" Then
        objDoc.Open dwgName
    End If
    objAcad.Visible = True
    objAcad.Preferences.SupportPath = objAcad.Preferences.SupportPath &
";" & App.Path & "\images"
    arxList = objAcad.ListArx
    ff = False
    For i = LBound(arxList) To UBound(arxList)
        If UCase(arxList(i)) = "PROTOPAT.ARX" Then ff = True
    Next
    If ff = False Then
        objAcad.LoadArx (App.Path & "\protopat.arx")
    End If
End Sub
NOTA: objAcad e objDoc sono due variabili globali di tipo object
Ciao e buon lavoro
Leonardo
-- 
-------------------------------------------------------------------
        ///
       / ^ \
      ( o-o )
--oOOO--(_)--OOOo--------------------------------------------------
                 Leonardo Tagliavini 
                 Via del Navile 1/3
                 40131 Bologna Italy
                 Tel. 051-6344416
 
    oooO
   (   )   Oooo. e-mail:  mailto:
lta...@iol.it
----\ (----(   ----------------------------------------------------
     \_)    ) /
           (_/
------ ``This message is printed on 100% recycled electrons.''-----
-------------------------------------------------------------------




 ci proverò!!!
So che per AutoCAD 14 c'è un VBA disponibile...
ma farlo da VB6 non so...
Ho intravisto AutoCAD 2000 e sembra che ci sia
un VisualLISP !!!! e sicuramente un VBA ^___^
Interessante... veramente Interessante...
Solo che quando vedo il prezzo... :-(((((


 wrote in message 868501$3q6$3...@pegasus.tiscalinet.it...


 Solo che quando vedo il prezzo... :-(((((
Il Visual Lisp c'è anche per il 14.


 Il Visual Lisp c'è anche per il 14.
Ma va preso a parte? va scaricato? è Gratuito
o si paga?? Quanto costa!! ^_^;;;;;


 
Prova a guardare qui:
http://www.autodesk.com/products/acadr14/compapps/vlisp.htm
Ciao
