Jump to content

Search the Community

Showing results for tags 'autocad'.



More search options

  • Search By Tags

    Type tags separated by commas.
  • Search By Author

Content Type


Forums

  • 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

Categories

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

Find results in...

Find results that contain...


Date Created

  • Start

    End


Last Updated

  • Start

    End


Filter by number of...

Found 314 results

  1. Here's the code originally written by David Forbus (Thank you btw). Any help will be appreciated in helping me to fix the hatch issue. Thanks. ;;; QUANTALL ;;; Written by David Forbus 09_dec_2008 ;;; QUANTALL prompts a user for a Quantize Value ;;; QUANTALL then prompts a user for a selection set and then ;;; modifies the INSERTION POINTS of TEXT, MTEXT, CIRCLES, BLOCKS, LINES and LWPOLYLINES within that selection set so they all "snap" to quantized coordinates. ;;; Modified by 3dwannab (get OSNAP settings) 14.06.02 (defun QUANTLN () (setq SP-X (/ (cadr (assoc 10 CURENT)) QUANT-VALUE )) (setq SP-Y (/ (caddr (assoc 10 CURENT)) QUANT-VALUE )) (setq SP-Z (/ (cadddr (assoc 10 CURENT)) QUANT-VALUE )) (setq EP-X (/ (cadr (assoc 11 CURENT)) QUANT-VALUE )) (setq EP-Y (/ (caddr (assoc 11 CURENT)) QUANT-VALUE )) (setq EP-Z (/ (cadddr (assoc 11 CURENT)) QUANT-VALUE )) (if (>= (- SP-X (fix SP-X)) 0.5) (setq SP-X (* QUANT-VALUE (+ 1.0 (fix SP-X)))) (setq SP-X (* QUANT-VALUE (fix SP-X)))) (if (>= (- SP-Y (fix SP-Y)) 0.5) (setq SP-Y (* QUANT-VALUE (+ 1.0 (fix SP-Y)))) (setq SP-Y (* QUANT-VALUE (fix SP-Y)))) (if (>= (- SP-Z (fix SP-Z)) 0.5) (setq SP-Z (* QUANT-VALUE (+ 1.0 (fix SP-Z)))) (setq SP-Z (* QUANT-VALUE (fix SP-Z)))) (if (>= (- EP-X (fix EP-X)) 0.5) (setq EP-X (* QUANT-VALUE (+ 1.0 (fix EP-X)))) (setq EP-X (* QUANT-VALUE (fix EP-X)))) (if (>= (- EP-Y (fix EP-Y)) 0.5) (setq EP-Y (* QUANT-VALUE (+ 1.0 (fix EP-Y)))) (setq EP-Y (* QUANT-VALUE (fix EP-Y)))) (if (>= (- EP-Z (fix EP-Z)) 0.5) (setq EP-Z (* QUANT-VALUE (+ 1.0 (fix EP-Z)))) (setq EP-Z (* QUANT-VALUE (fix EP-Z)))) (setq CURENT (subst (list 10 SP-X SP-Y SP-Z) (assoc 10 CURENT) CURENT )) (setq CURENT (subst (list 11 EP-X EP-Y EP-Z) (assoc 11 CURENT) CURENT )) (entmod CURENT) ) (defun QUANTPOLY () (setq COUNTER2 1) (setq POLY-NEW (list)) (while (< COUNTER2 (length CURENT)) (setq VRTX-PNT (nth COUNTER2 CURENT)) (if (= 10 (car VRTX-PNT)) (progn (setq SP-X (/ (cadr VRTX-PNT) QUANT-VALUE )) (setq SP-Y (/ (caddr VRTX-PNT) QUANT-VALUE )) (if (>= (- SP-X (fix SP-X)) 0.5) (setq SP-X (* QUANT-VALUE (+ 1.0 (fix SP-X)))) (setq SP-X (* QUANT-VALUE (fix SP-X)))) (if (>= (- SP-Y (fix SP-Y)) 0.5) (setq SP-Y (* QUANT-VALUE (+ 1.0 (fix SP-Y)))) (setq SP-Y (* QUANT-VALUE (fix SP-Y)))) (setq POLY-NEW (append POLY-NEW (list (list 10 SP-X SP-Y))))) (if (= 330 (car VRTX-PNT)) nil (if (= 5 (car VRTX-PNT)) nil (setq POLY-NEW (append POLY-NEW (list VRTX-PNT)))) ) ) (setq COUNTER2 (+ COUNTER2 1)) ) (entmake POLY-NEW) (entdel CURENT-NAME) ) (defun QUANTREG () (setq SP-X (/ (cadr (assoc 10 CURENT)) QUANT-VALUE )) (setq SP-Y (/ (caddr (assoc 10 CURENT)) QUANT-VALUE )) (setq SP-Z (/ (cadddr (assoc 10 CURENT)) QUANT-VALUE )) (if (>= (- SP-X (fix SP-X)) 0.5) (setq SP-X (* QUANT-VALUE (+ 1.0 (fix SP-X)))) (setq SP-X (* QUANT-VALUE (fix SP-X)))) (if (>= (- SP-Y (fix SP-Y)) 0.5) (setq SP-Y (* QUANT-VALUE (+ 1.0 (fix SP-Y)))) (setq SP-Y (* QUANT-VALUE (fix SP-Y)))) (if (>= (- SP-Z (fix SP-Z)) 0.5) (setq SP-Z (* QUANT-VALUE (+ 1.0 (fix SP-Z)))) (setq SP-Z (* QUANT-VALUE (fix SP-Z)))) (setq CURENT (subst (list 10 SP-X SP-Y SP-Z) (assoc 10 CURENT) CURENT )) (entmod CURENT) ) (defun QUANTXT () (setq TXT-HORZ (cdr (assoc 72 CURENT))) (setq TXT-VERT (cdr (assoc 73 CURENT))) (if (= TXT-HORZ 0) (if (= TXT-VERT 0) (progn (setq SP-X (/ (cadr (assoc 10 CURENT)) QUANT-VALUE )) (setq SP-Y (/ (caddr (assoc 10 CURENT)) QUANT-VALUE )) (setq SP-Z (/ (cadddr (assoc 10 CURENT)) QUANT-VALUE )) (if (>= (- SP-X (fix SP-X)) 0.5) (setq SP-X (* QUANT-VALUE (+ 1.0 (fix SP-X)))) (setq SP-X (* QUANT-VALUE (fix SP-X)))) (if (>= (- SP-Y (fix SP-Y)) 0.5) (setq SP-Y (* QUANT-VALUE (+ 1.0 (fix SP-Y)))) (setq SP-Y (* QUANT-VALUE (fix SP-Y)))) (if (>= (- SP-Z (fix SP-Z)) 0.5) (setq SP-Z (* QUANT-VALUE (+ 1.0 (fix SP-Z)))) (setq SP-Z (* QUANT-VALUE (fix SP-Z)))) (setq CURENT (subst (list 10 SP-X SP-Y SP-Z) (assoc 10 CURENT) CURENT )) ) (progn (setq SP-X (/ (cadr (assoc 11 CURENT)) QUANT-VALUE )) (setq SP-Y (/ (caddr (assoc 11 CURENT)) QUANT-VALUE )) (setq SP-Z (/ (cadddr (assoc 11 CURENT)) QUANT-VALUE )) (if (>= (- SP-X (fix SP-X)) 0.5) (setq SP-X (* QUANT-VALUE (+ 1.0 (fix SP-X)))) (setq SP-X (* QUANT-VALUE (fix SP-X)))) (if (>= (- SP-Y (fix SP-Y)) 0.5) (setq SP-Y (* QUANT-VALUE (+ 1.0 (fix SP-Y)))) (setq SP-Y (* QUANT-VALUE (fix SP-Y)))) (if (>= (- SP-Z (fix SP-Z)) 0.5) (setq SP-Z (* QUANT-VALUE (+ 1.0 (fix SP-Z)))) (setq SP-Z (* QUANT-VALUE (fix SP-Z)))) (setq CURENT (subst (list 11 SP-X SP-Y SP-Z) (assoc 11 CURENT) CURENT )) ) ) (progn (setq SP-X (/ (cadr (assoc 11 CURENT)) QUANT-VALUE )) (setq SP-Y (/ (caddr (assoc 11 CURENT)) QUANT-VALUE )) (setq SP-Z (/ (cadddr (assoc 11 CURENT)) QUANT-VALUE )) (if (>= (- SP-X (fix SP-X)) 0.5) (setq SP-X (* QUANT-VALUE (+ 1.0 (fix SP-X)))) (setq SP-X (* QUANT-VALUE (fix SP-X)))) (if (>= (- SP-Y (fix SP-Y)) 0.5) (setq SP-Y (* QUANT-VALUE (+ 1.0 (fix SP-Y)))) (setq SP-Y (* QUANT-VALUE (fix SP-Y)))) (if (>= (- SP-Z (fix SP-Z)) 0.5) (setq SP-Z (* QUANT-VALUE (+ 1.0 (fix SP-Z)))) (setq SP-Z (* QUANT-VALUE (fix SP-Z)))) (setq CURENT (subst (list 11 SP-X SP-Y SP-Z) (assoc 11 CURENT) CURENT )) )) (entmod CURENT) ) (defun QUANTARC () (setq SP-X (/ (cadr (assoc 10 CURENT)) QUANT-VALUE )) (setq SP-Y (/ (caddr (assoc 10 CURENT)) QUANT-VALUE )) (setq SP-Z (/ (cadddr (assoc 10 CURENT)) QUANT-VALUE )) (if (>= (- SP-X (fix SP-X)) 0.5) (setq SP-X (* QUANT-VALUE (+ 1.0 (fix SP-X)))) (setq SP-X (* QUANT-VALUE (fix SP-X)))) (if (>= (- SP-Y (fix SP-Y)) 0.5) (setq SP-Y (* QUANT-VALUE (+ 1.0 (fix SP-Y)))) (setq SP-Y (* QUANT-VALUE (fix SP-Y)))) (if (>= (- SP-Z (fix SP-Z)) 0.5) (setq SP-Z (* QUANT-VALUE (+ 1.0 (fix SP-Z)))) (setq SP-Z (* QUANT-VALUE (fix SP-Z)))) (setq CURENT (subst (list 10 SP-X SP-Y SP-Z) (assoc 10 CURENT) CURENT )) (setq RAD-R (/ (cdr (assoc 40 CURENT)) QUANT-VALUE )) (if (>= (- RAD-R (fix RAD-R)) 0.5) (setq RAD-R (* QUANT-VALUE (+ 1.0 (fix RAD-R)))) (setq RAD-R (* QUANT-VALUE (fix RAD-R)))) (setq CURENT (subst (cons 40 RAD-R) (assoc 40 CURENT) CURENT )) (entmod CURENT) ) (defun c:Fix_Quantize_All ( / osnap ) ;;3dwannab fix (setvar "cmdecho" 0) (setq OSNAP (getvar "osmode")) ;;3dwannab fix (setvar "osmode" 0) (setq QUANT-VALUE (getreal "\nEnter Quantize Value: ")) (setq SELECT-SET (ssget)) (setq COUNTER0 (1- (sslength SELECT-SET ))) (while (> COUNTER0 -1.0) (setq CURENT (entget (ssname SELECT-SET COUNTER0))) (setq CURENT-NAME (ssname SELECT-SET COUNTER0)) (if (= (cdr (assoc 0 CURENT)) "LINE") (QUANTLN)) (if (= (cdr (assoc 0 CURENT)) "TEXT") (QUANTXT)) (if (= (cdr (assoc 0 CURENT)) "MTEXT") (QUANTREG)) (if (= (cdr (assoc 0 CURENT)) "INSERT") (QUANTREG)) (if (= (cdr (assoc 0 CURENT)) "CIRCLE") (QUANTREG)) (if (= (cdr (assoc 0 CURENT)) "ARC") (QUANTARC)) (if (= (cdr (assoc 0 CURENT)) "LWPOLYLINE") (QUANTPOLY)) (setq COUNTER0 (1- COUNTER0)) ) (princ) (setvar "osmode" OSNAP) ) (princ "\nType \"Fix_Quantize_All\" to Quantize the INSERTION POINTS of TEXT, MTEXT, CIRCLES, ARCs, BLOCKS, LINES and LWPOLYLINES to the round off value.")
  2. Using Civil 3D 2016 and having Intermittent Problems with not being able to remove items from the selection set. Anyone else having this problem? Terry Nolan www.FloridaDraftingServices.com www.1stProto.com 1stProto Design Services
  3. I am gobsmacked that Autodesk have the cheek to require customers to pay a sum on top of the subscription fee for obtaining an update in their software. Subscription licenses are costing organisations thousands of pounds annually, but still ask for more money to obtain the software! The installers are now in the 10's of Gb's. Surely from a customer relations exercise, it makes sense to swallow the cost of the media & postage?
  4. Hi there I am looking for some kind of lisp to import points or 3d polyline along with a reference line. I am attaching reference files for study. thanks Bridge Plan.dwg Profile Data.csv
  5. Hi Everybody, Via the command area it is possible to retrieve the surface area of a solid body (Acad3DSolid). Unfortunately the area it is not a property of a solid body so I'm haveing difficulties retrieving the surface area (which I want to write to an excel file). I've tried to explode the solid which results in several regions and surfaces. Unfortunately only the regions have an area; the (curved) surfaces don't. Anybody suggestions how to get the area of some solids useing VBA? Looking forward to the suggestions!
  6. Hi I have been having this issue with several versions of Autocad. At some point the application will start showing a lagging behavior when entering and existing commands. It completely blows my concentration and the productive flow away. I have researched quite a lot on the net, and tried all the usual suspects: Disabling all CPU consuming features (cycle, dynamic inputs, properties palette, visual effects, etc). I have de-activated all the 3d performance settings. Disable "enable desktop composition" in Windows. All my graphic drivers are up to date. But nothing seems to work and the frustration start to be quite annoying. Anyone managed to find a solution for this? Your help will be super appreciated! I am running AutocadCAD 2013 in W7 (64bits) Ras
  7. Hello everyone, So I work in a cabinet shop as a drafter. I am trying to save time drawing our shop drawings using dynamic blocks. I have been trying all morning and researching through forums with no luck. I have simple 3/4" MDF slab doors and I need a block that can divide the doors between 10" to 20" equal widths with 1/8" space between the doors. In essence I will need 2 blocks, one for the plan section and one for the elevation, the same concept applies. Previously I would use the divide command after subtracting all 1/8" reveals to manually get equal doors. I will greatly appreciate if someone can help me and ease the process. Please see attachment to see what I am trying to resolve. Thank you,Auto Cabinet Door Division.dwg
  8. Dear smarties I read a few articles here and there regarding a way to generate multiple drawings from an excel file, but no one had explained step by step on how to do it. So, I am lost half way. I am very new to this kind of things, but I will try to follow, so please go slow on me. here is what I want to fix: 1. I need to automatically generate 10 drawings both in dwg and pdf copied into a folder. 2. All the variables (VAR1 to VAR3) are stored in an excel file. refer to the attached files as an example. 3. I only need to create one original drawing, which will be used to generate all the 10 drawings. Please help EXCEL-VAR.xls ORIGINAL-DWG.dwg
  9. I have a awning window in front elevation that i want to stretch horizontally and vertically , im having trouble getting the triangle to stay in the middle when i stretch horizontally. Can someone help me :) attachment below : Window.dwg
  10. Hello Folks! Having problems with the UCS at the moment. I have rotated my drawings with the UCS command and used the plan command to set the drawings in the angle i want to view them in. And then used world to get the co-ordinate system true to its original state. The problem is when i am trying to attach the drawings together, they are in different places. Do you guys have any clues? (Sorry for my bad english) /Per-Anton
  11. Hi guys, Is it possible to specify zoom factor that will show on my monitor same size as will printed on paper? For example: i'm making drawing in 1:100 scale in milimeters, and before printing it i want to make sure that everything is readable. I know that depands on screen resolution, dpi and pixel size.
  12. Patriiick

    AcadClass AutoCAD Q&A launched!

    Hi, AcadClass has been launched at **Link Removed** The Android app is here: **Link Removed**
  13. Hello! I was working in a drawing when I got a message asking me to save a recovery copy which I did, but now I can't open the original file. Everytime I try get this message: AutoCad Error Aborting - Fatal error: Unhandle access violation reading 0x3b639abe exception at 33ed3712h. What is this and how can I fix it so I can go back to use my original drawing which is linked to some others?
  14. therabidwookiee

    Survey Data Point Collection in AutoCAD

    I just have normal autocad 2016, nothing fancy like civil 3d. I was wondering, is there a way i can bring in a survey point data file (.txt or .asc) into Autocad. Maybe by something in program by default, or a 3rd party plug in that is compatible with autocad. I don't want to spend way more money for the Autocad civil 3d license.
  15. Hey everyone, I guess this is a simple project but I have absolutely 0 ideas on how to do it. I know the basics of AutoCAD, but I'm not good at it. This is my assignment. This is the example of how my assignment should look like (keep in mind that it is not the final result of my assignment, but an example of how i should finalise it.) Any help would be appreciated!
  16. Hello, I'm a new user about autocad and new user about this Forum. I try use VB and CAD... Is there a solution for my problem in object? i just write code for MSGBOX: Dim Variabile As Integer Variabile = MsgBox("Hai esportato i parametri?", vbOKCancel) If Variabile = 2 Then ActiveWindow.Close and work if use a macro....but for insert this message when close a file? can i make a particular macro for this like excel or access??? thanks for You interest
  17. Hello everybody! Few programmers (including myself) decided to create a website with free (for now) AutoLisp programs and scripts for Autocad. Well, we have few questions to define where to start. Your answers would really help. - Do you use programs (scripts) in your work? - Which program (script) you would use but do not have. Best regards, ... PS Link to website asap
  18. Hi all I really do not have much experience with AutoLISP but I would like to write a script that allows me to: 1. Create a new DWG 2. Draw a line from a set of existing coordinates from a .txt file 3. Save this drawing in a specified location 4. Close the drawing 5. Rinse and repeat until all of the .txt files have been drawn. Basically this will be used for hundreds of .txt files containing coordinates to draw the cross-sections of a tunnel. Is this something that can be done? As after hours of research I have only managed to be able to draw one cross-section using a batch file but haven't been able to close the drawing or save it. Thanks in advance for any help
  19. mikeschawartskof

    Xref & Main Drawing

    I'm working in between the Xref and the Main drawing, but after I was done with the first Xref I noticed in the main drawing that is missing the created layers, for that reason, the view in the main drawing was completely wrong,even the created linetype didn't load to the main drawing. I attached a screen shot of the Xref and the main drawing. working with AutoCAD 2015.
  20. AutoCAD beginners need more exercises to practice. You can find more exercises in this book, over 200 pure exercises. https://goo.gl/dpyQ7Y
  21. Hello Everyone, I am new to the industry and working on my first project involving a basic design which includes relocation of some existing electrical loads to a new switchboard and removing the existing switchboard. I was wondering if anyone could share some of their drawings (single line and floor plan) which I could use a reference. I would really appreciate the help. I am confused on how to create a existing oneline showing the demo stuff and create as-built drawings. Thank you
  22. I am working on a project where it involves relocating of some optional stand-by loads to the emergency side. On the demolition electrical oneline drawings when the load is being demoed it is shown as dashed lines with mark up as demolished. How is a load which is not being demoed but re-located or re-fed from a different source on demolition drawing. Similarly how to show it on the floor plan as well. Thanks in advance for any advice.
  23. Hi folks. I'm looking for a lisp that effectively straightens out a polyline between two points. I know pedit has the straighten feature but you have to scroll to the points you need straightening between. I've also found that you can break/trim between two points and then rejoin, but ideally I'd like a lisp that does this automatically. It's more of an issue when editing associative hatch boundaries please see attached image for an example of the before and after scenario. Thanks RJD
×
×
  • Create New...