Lucacr88
Utente poco attivo
- Professione: progettista
- Software: autocad
- Regione: lombardia
Ciao a tutti 
Ho realizzato un programmino con Excel VBA che mi permette di creare in automatico dei disegni. Utilizzo Autocad Mechanical 2010 e 2016.
Sono autodidatta, sono riuscito a fare il 90% di ciò che mi serve studiandomi il visualizzatore di oggetti VBA e testando ogni entità e metodo. Purtroppo mi sono bloccato su alcuni elementi che non riesco proprio a gestire, in particolare non riesco a creare la vista in dettaglio di un elemento, parlo del comando AMDETAIL, allego foto per migliore comprensione.
Creandolo manualmente ho poi elencato tramite codice VBA le entità che esistono, escludendo linee e curve in questo caso, ottengo:
AmdtDetailSym
AmdtDetailSymLabel
AcDbBlockReference
Ho provato in ogni modo tramite codice ad ottenere lo stesso risultato:
dim MioDocumento as AcadModelSpace
dim DettaglioSimbolo As McadDetailSymbol
Dim LabelDettaglioSimbolo As McadDetailSymbolLabel
MioDocumento = AutoCAD.Application.ActiveDocument.ModelSpace
Set DettaglioSimbolo = MioDocumento.AddCustomObject("AmdtDetailSym")
Set LabelDettaglioSimbolo = MioDocumento .AddCustomObject("AmdtDetailSymLabel")
Ma non mi ci sono nemmeno avvicinato, creo le entità e posso variarne le proprietà coi metodi ma non sò creare l'elemento "AcDbBlockReference" e renderlo associativo ad un area specifica del disegno... In altre parole non funziona niente.
Ho provato anche col classico "pianta la vite col martello" usando:
AutoCAD.Application.ActiveDocument.SendCommand "_AMDETAIL"
Ma l'esecuzione si blocca visto che si apre la finestra cui l'utente deve dare conferma per procedere, non voglio che ciò accada visto che potrei dover fare decine di viste.
Qualcuno saprebbe darmi una mano?
Ho realizzato un programmino con Excel VBA che mi permette di creare in automatico dei disegni. Utilizzo Autocad Mechanical 2010 e 2016.
Sono autodidatta, sono riuscito a fare il 90% di ciò che mi serve studiandomi il visualizzatore di oggetti VBA e testando ogni entità e metodo. Purtroppo mi sono bloccato su alcuni elementi che non riesco proprio a gestire, in particolare non riesco a creare la vista in dettaglio di un elemento, parlo del comando AMDETAIL, allego foto per migliore comprensione.
Creandolo manualmente ho poi elencato tramite codice VBA le entità che esistono, escludendo linee e curve in questo caso, ottengo:
AmdtDetailSym
AmdtDetailSymLabel
AcDbBlockReference
Ho provato in ogni modo tramite codice ad ottenere lo stesso risultato:
dim MioDocumento as AcadModelSpace
dim DettaglioSimbolo As McadDetailSymbol
Dim LabelDettaglioSimbolo As McadDetailSymbolLabel
MioDocumento = AutoCAD.Application.ActiveDocument.ModelSpace
Set DettaglioSimbolo = MioDocumento.AddCustomObject("AmdtDetailSym")
Set LabelDettaglioSimbolo = MioDocumento .AddCustomObject("AmdtDetailSymLabel")
Ma non mi ci sono nemmeno avvicinato, creo le entità e posso variarne le proprietà coi metodi ma non sò creare l'elemento "AcDbBlockReference" e renderlo associativo ad un area specifica del disegno... In altre parole non funziona niente.
Ho provato anche col classico "pianta la vite col martello" usando:
AutoCAD.Application.ActiveDocument.SendCommand "_AMDETAIL"
Ma l'esecuzione si blocca visto che si apre la finestra cui l'utente deve dare conferma per procedere, non voglio che ciò accada visto che potrei dover fare decine di viste.
Qualcuno saprebbe darmi una mano?
