Come posso ottenere la somma dei numeri di testo di AutoCAD VBA

Il programma AutoCAD installato sul computer comprende una sezione "Comando" , che consente di eseguire Visual Basic per Applications espressioni , come ad esempio l'aggiunta di numeri di testo , senza uscire dal finestra di AutoCAD . Tuttavia, la funzionalità VBA non è incluso in AutoCAD per impostazione predefinita e deve prima essere installato prima di poter eseguire i comandi . Una volta che il file è stato scaricato e installato , è possibile utilizzare la sezione "Comando " per scrivere ed eseguire espressioni VBA . Istruzioni
1

lancio di AutoCAD .
2

Fare clic all'interno della sezione " comando " nella parte inferiore della finestra.
3

tipo " Vbaload ", quindi premere "Invio " sulla tastiera .
4

Clicca sul link " http://www.autodesk.com/vba-download " nel finestra pop-up .
5

Clicca sul link " AutoCAD VBA modulo " al centro della finestra per la versione di AutoCAD , quindi salvare il file sul computer. Se non si conosce la versione di AutoCAD , è possibile fare clic su " Aiuto " nella parte superiore della finestra di AutoCAD , quindi fare clic su "Informazioni su . " La versione viene visualizzata nella parte superiore della finestra.
6

Chiudere AutoCAD .
7

Fare doppio clic sul file scaricato , quindi seguire le istruzioni visualizzate per completare l'installazione .
8

lancio di AutoCAD .

9

Fare clic all'interno della sezione " comando " nella parte inferiore della finestra di nuovo , di tipo " Vbastmt ", quindi premere "Invio" sulla tastiera. Questo visualizzerà una " Espressione: " . Indurre nella sezione " Comando "
10

Copia e incolla il codice VBA per richiedere per due numeri di testo , quindi visualizzare il totale una volta che entrambi i numeri sono stati inseriti :

autocadsumnumbers sub () Dim autocadinput1 Come IntegerDim autocadinput2 Come IntegerDim intSum Come Integerautocadinput1 = Val ( InputBox ( " primo " ) ) autocadinput2 = Val ( InputBox ( " secondo numero " ) ) autocadSum = autocadinput1 + autocadinput2MsgBox autocadSumEnd Sub