Options
VBS per Nanocad StartPoint EndPoint non funzionano? - Forum NANOCAD Italia
- VBS per Nanocad StartPoint EndPoint non funzionano?
-
VBS per Nanocad StartPoint EndPoint non funzionano?
dobermanz > 02-16-2023, 10:57 PM
Salve, sto cercando di capire un po' di programmazione in VBA per Nanocad. In giro ci sono solo documentazioni relative ad Autocad... ma qualche volta non funzionano
le proprietà punto d'inizio e di fine di una linea sono queste?
nomeLinea.StartPoint
nomeLinea.EndPoint
dovrebbero essere due Array tridimensionali... ma, all'esecuzione, mi da sempre l'errrore Proprietà o metodo non supportati dall'oggetto.
anche Lenght non funziona
qualche aiuto?
Grazie -
RE: VBS per Nanocad StartPoint EndPoint non funzionano?
mrossignol > 02-17-2023, 07:51 PM
Hai fatto una domanda da un milione di dollari.
Io non so rispondere e su questo forum non mi sembra che ci sia abbondanza di programmatori.
Prova a scrivere sul forum della casa madre:
https://forum.nanocad.com/ -
RE: VBS per Nanocad StartPoint EndPoint non funzionano?
dobermanz > 02-18-2023, 09:26 AM
Grazie per la risposta. Effettivamente vedevo che solo tracciatura.net ha fatto un post sulle basi di programmazione (veramente utilissimo) ma poi non è stato seguito e non ha continuato. Non è difficile fare le cose di base, se riesco ad organizzare le informazioni posso mettere sul forum anche una mia sintesi dei comandi base... per ora sto studiando. Mi manca un elenco completo dei comandi con degli esempi.
In questo sito ho trovato un pratico diagramma ad albero che riporta tutte le proprietà e metodi dei vari oggetti che si possono sfruttare:
http://entercad.ru/acadauto.en/
ora, nello specifico, mi sono bloccato sull'uso di StartPoint ed EndPoint che sono due proprietà di molti oggetti grafici che si possono trovare disegnati. A differenza di come ho scritto sopra funzionano, cioè recuperano effettivamente il punto iniziale e finale di una linea Es:
Dim lineaMia 'dichiaro la variabile lineaMia
Dim cerchioProva
Set lineaMia = ThisDrawing.ModelSpace.Item(6) 'recupero il sesto elemento che si trova già disegnato nel modelspace, ipotizziamo che sia un segmento
Set cerchioProva = ThisDrawing.ModelSpace.AddCircle(lineaMia.StartPoint, 10) 'effettivamente disegna un cerchietto raggio 10 e centro nel primo punto della linea
ThisDrawing.Utility.Prompt "coordinata X inizio linea: " & lineaMia.StartPoint(0) 'questo non funziona! mi da errore e non riesco a leggere la X del punto start point
Va bene, questo solo per specificare meglio il problema che era troppo generico sopra. Se qualcuno ha lumi sull'argomento... oppure appena riesco a risolvere scrivo. -
RE: VBS per Nanocad StartPoint EndPoint non funzionano?
frac_ > 02-21-2023, 07:00 PM
C'è un gran bisogno di persone competenti in questo campo come te.
Se tu usassi questo forum (direttamente o anche con dei link) per proporre dei tutorial su VBA, Lisp o Javascript penso che sarebbe un contributo importante ed originale.
Personalmente l'apprezzerei molto.
NanoCAD è anche una piattaforma per sviluppare e proporre applicazioni.
Se qualcuno (che ne sa) non prende l'iniziativa, questa è una sezione del forum che non decollerà mai. -
RE: VBS per Nanocad StartPoint EndPoint non funzionano?
dobermanz > 02-21-2023, 10:09 PM
grazie, ma ne so molto poco.
Cercando in giro ho trovato che il problema che ho posto si risolve così:
non ho capito bene il perchè o cosa faccia questo metodo CreateSafeArrayFromVector... però ora funziona, dà il prompt delle coordinate della linea
Codice:Dim pA
Dim line
Dim ms
Dim u
Set ms = ThisDrawing.ModelSpace 'abbreviazioni per gli oggetti più utilizzati
Set u = ThisDrawing.Utility
Set line = ms.item(2) 'pesco dal disegno la linea numero 2
pA = u.CreateSafeArrayFromVector(line.EndPoint) 'trasformazione del vettore in array
u.Prompt pA(0) 'prompt delle prime due coordinate
u.Prompt pA(1) -
RE: VBS per Nanocad StartPoint EndPoint non funzionano?
tracciatura.net > 03-02-2023, 10:37 AM
devi usare questo codice anche io ci sono impazzito diversi mesi faCodice:Dim pnt
pnt = ThisDrawing.Utility.CreateSafeArrayFromVector(Obj1.InsertionPoint)
ThisDrawing.Utility.Prompt pnt(0)
ThisDrawing.Utility.Prompt pnt(1)
ThisDrawing.Utility.Prompt pnt(2) -
RE: VBS per Nanocad StartPoint EndPoint non funzionano?
tracciatura.net > 03-13-2023, 11:53 PM
(02-18-2023, 09:26 AM)dobermanz Ha scritto: Grazie per la risposta. Effettivamente vedevo che solo tracciatura.net ha fatto un post sulle basi di programmazione (veramente utilissimo) ma poi non è stato seguito e non ha continuato.
Chiedi pure sono ben contento di poter aiutare, è da un po' che non venivo in questo forum
Vedo che hai già trovato tutte le basi su http://entercad.ru/acadauto.en/, la cosa ancora migliore sarebbe avere AutoCAD full con l'editor VBA e il visualizzatore di classi
Ci si riesce ad arrangiare scrivendo i .vbs con Notepad++ ma l'ide di VBA in AutoCAD aiuta molto con il debug in tempo reale e l'autocompilazione -
RE: VBS per Nanocad StartPoint EndPoint non funzionano?
dobermanz > 03-24-2023, 08:00 PM
ciao, grazie per l'aiuto! purtroppo entercad ha molti comandi che non funzionano su nanocad... non so perchè
non riesco a trovare un comando per la lunghezza del segmento che funzioni con nanocad
nomeSegmento.Lenght da errore -
RE: VBS per Nanocad StartPoint EndPoint non funzionano?
dobermanz > 03-25-2023, 10:51 AM
non funziona perché ho scritto Lenght e non Length 
comunque si, hai ragione il correttore ortografico sarebbe utile... non c'è la possibilità di inserire in Notepad++ una libreria VBS per autocad?