Forum: VBA for Beginners

Been a AutoCAD user for many many years. Would like to start teaching myself VBA for AutoCAD. Can anyone suggest a book for someone who is new to VBA?

Hi, I'm trying to get a point input from autocad modelspace in Autocad 2010. I am a little bit bothered because I am certain that I do it right since I copied codes that I used in the past and that worked just fine. So to test it I made it very simple. Public Sub TestGetPoint() Dim...

If I have 2 userforms in the same project, I want to use some data from the first userform to the other userform.... how can I do it ? :banghead3

Hello! The problem is: When i create a Box, then select it and click right mouse button and select properties menu, the window called Propertoes is displayed. This window have information about the box that is selected such as Length, heigh, width and so on... So i need to write VB application...

I know I might be asking a bit too much: I have VBA experience in Excel, but none in AutoCAD. What I am trying to do is to update title block information on a lot of drawings at once, I attach a sample. It should be relatively straightforward, but to be brutally honest I don't even know how to...

So I have a routine in excel to calculate some curves for some sliding surfaces and have the export to a dxf file working but want to clean the last thing up which is to take all these points and make a spline (right now I have a bunch of line segments from each of the points, works but not...

Dear all Im a new user of Autocad VBA i have aproblem on making region i make code for making lines and arcs and make region for there but it make aproblem " Run-time error13" type mismatch Private Sub CommandButton1_Click() ' declear variabales Const PI = 3.14159265358979 Dim...

How do i change it from Black to white for a PRESENTATION ? Sobu

i have a blockname = stempel_A3 attributes what are in this "block" (stempel_A3) "BK01" "uitgd0" "uitg0" "gec0" "get0" "opm0"

how i can make mine viewport display locked in VBA i try this but nothing happend ? Private Sub AcadDocument_Activate() On Error GoTo err_handler Dim myLayer As AcadLayer Dim myViewport As AcadPViewport Set myLayer = ActiveDocument.Layers.Add("viewport")

Subject: Can a person minimize a userform window and continue to use AutoCAD with stopping a CAD VBA program ? CAD version 07 If is use Private Sub CommandButton4_Click() 'UserForm1.Left = 240 'UserForm1.Top = 330 UserForm1.hide End Sub This will stop my program and put me in code...

Is there any VBA code or lisp instruction that can set a pagespace current in a drawing that has a piticular pagespace loaded? Ie (not using a dialog box). Thank you,

Can VBA be use to load page setups form a template drawing on a fixed drive (Example drive c) then take one of the loaded page setups and make it the default current setup for a drawing. If this could be done maybe it would be possable to set a batch routine that would make a page setup for a...

I have been using Set classarray = New arraymodule to delcare a class object in a routine but now I want to set my class object for use in a form module or any other place in my project. How do I set my class object? thank you,

I'm sure I'm missing something fundamental here, but I'm doing my first VBA's. I've done a bit in VB, but I haven't worked with objects inside a program. I've hit a snag, and I can't seem to find what I'm looking for. I want to cycle thru a drawing paperspace and find any viewports. Only one...

My title is kind of misleading. I know how to use SendCommand to run a LISP routine from a VBA program. My problem is that I want the LISP routine to execute and then have additional VBA code run when it's done. The code I have written starts the LISP routine and then continues executing the...

This has probably been asked a dosen times in some variation - but could anyone help me build a function that grabs the dimensions from a poly-line and displays them in a row like: 24 + 18 + 18+ 30 + 21... and then total's the numbers at the end. Also I would like to round each dimension up...

I'm trying to create a tool bar button in 2006 that will plot and use "previous plot style" and then close the file. I have jobs that require me to re-print 30 or more drawings at a time and would like to be able to open them all and then basically just keep pressing one button to print and close...

I've just upgraded to 2007 from 2006 and one of my programs will not load. I've managed to find the cause, and it is calling a true color (r,g,b). This is the code at Module level.... Option Explicit Global TrueRGB As AcadAcCmColor Public Sub LoadColor() Set TrueRGB =...

Edited by Eddie...;) (userform1 and textbox1) 'this code for number Public Declare Function SetTimer Lib "user32" (ByVal hWnd As Long, ByVal nIDEvent As Long, ByVal uElapse As Long, ByVal lpTimerFunc As Long) As Long Public Declare Function KillTimer Lib "user32" (ByVal hWnd As Long,...