Jump to content

Search the Community

Showing results for tags 'vba autocad'.

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


  • CADTutor
    • News, Announcements & FAQ
    • Feedback
  • AutoCAD
    • AutoCAD Beginners' Area
    • AutoCAD 2D Drafting, Object Properties & Interface
    • AutoCAD Drawing Management & Output
    • AutoCAD 3D Modelling & Rendering
    • AutoCAD Vertical Products
    • AutoCAD LT
    • CAD Management
    • AutoCAD Bugs, Error Messages & Quirks
    • AutoCAD General
    • AutoCAD Blogs
  • AutoCAD Customization
    • The CUI, Hatches, Linetypes, Scripts & Macros
    • AutoLISP, Visual LISP & DCL
    • .NET, ObjectARX & VBA
    • Application Beta Testing
    • Application Archive
  • Other Autodesk Products
    • Autodesk 3ds Max
    • Autodesk Revit
    • Autodesk Inventor
    • Autodesk Software General
  • Other CAD Products
    • BricsCAD
    • SketchUp
    • Rhino
    • SolidWorks
    • MicroStation
    • Design Software
    • Catch All
  • Resources
    • Tutorials & Tips'n'Tricks
    • AutoCAD Museum
    • Blocks, Images, Models & Materials
    • Useful Links
  • Community
    • Introduce Yourself
    • Showcase
    • Work In Progress
    • Jobs & Training
    • Chat
    • Competitions


  • Programs and Scripts
  • 2D AutoCAD Blocks
  • 3D AutoCAD Blocks
  • Images
    • Backgrounds

Find results in...

Find results that contain...

Date Created

  • Start


Last Updated

  • Start


Filter by number of...

Found 7 results

  1. Goodday Everyone, I have created a vba code for creating Longitudinal section (inputs from excel), also I want to make a gap between the profiles if a row was empty in excel. Can anyone guide me through this!? Thanks Regards, Vasanth. S
  2. Hello, my problem is that when i use the function: Dim z As Double Dim h As Double Dim c4(0 To 2) As Double z = Val(TextBox2.Text) / 2 h = Val(TextBox3.Text) c3(0) = 0#: c3(1) = 0#: c3(2) = 1# radius1 = z height1 = h Set psr = ThisDrawing.ModelSpace.AddCylinder(c3, radius1, height1) then I draw a cilinder on both sides, I would ask for help in drawing it on one side.
  3. Good Day, I would like to request an accessible files of autocad vba (userform/macro/.dvb/.frm). What I am trying to achieve is a toolbar that allows me to compute values and arrange it in a table per layers. Any files could do, related or not, finished or not, i'll try to get some ideas/codes/formats how its made, still learning some codes. As for example.. I draw many lines,polylines, area/region, volume on autocad with different LAYER name each. then i'll just drag select all the objects I want to compute, then give me result of the TOTAL LENGTH, TOTAL AREA, TOTAL VOLUME,
  4. Hi guys, Long time ago ,I have written this lisp routine, This routine inputs a reference points coordinates, elevation and distance values from screen. It calculates several new points elevation and distance values and writes their elevation and distance values on screen. Can anyone help me compiling this routine in to vba code (defun C:x() ;We define the reference point (command "osnap" "int") (setq prop (getpoint "Define the reference point:")) (setq propx (car prop)) (setq propy (cadr prop)) (setq n 100) ;We define the reference point elevation (setq r
  5. Hi, Is there a way to generate rectangles based of the information on table. Example: Each row of would table have length, width and name information. CAD should be able to read these values and generate corresponding rectangles on the model space. Thank you, Nixon
  6. Hi All, I have an AutoCAD VBA program where i'm fetching records from Oracle DB which is having lakhs of records.so when i execute query it takes long time to return the recordset. I would like to show a progress bar to the user during these recordset retrieval time and for the further process. How to show the progress bar in this case? Thanks in Advance
  7. hello in autocad block 4 line TXT TXT1 (handle # 3) TXT2 (handle # 2) TXT3 (handle No. 4) TXT4 (handle # 1) When I recuper the string in a combobox it puts me in the order of handle TXT4,2,1,3 I then I want in the order of the line screen TXT1,2,3,4 Thank you for your help ******** Bonjour Dans le bloc autocad 4 lignes de TXT TXT1 (handle N°3) TXT2 (handle N°2) TXT3 (handle N°4) TXT4 (handle N°1) Quand je recupere le string dans une combobox il me le met dans l'ordre du handle =>Ligne 4,2,1,3 alors que je je veux dans l'ordre de l'écran ligne 1,2,3,4 Mer
  • Create New...