Search the Community

how to divide a polygon into 3 equal polygons (same area or we known area)? I wanted to divide the polygon shown in the screenshot below into equal 3 polygons (with same area), but I couldn't figure out if these is some commands or workflow to perform this issue is the "trial and error" is the only technique by which this issue can be done? thank you in advance, regards malkasun

Hello, i am using autocad 2017, and i need to create a countersink. I would like to know if it is possible in autocad 2017, i couldn't find the tools that would allow me to do so. I tried chamfering but it is not giving the desired results. The holes where i need countersinks are the holes in the middle. http://i.picpar.com/HoPb.png Do i need to acquire inventor or another autodesk program designed for this purpose. Thank you.

I'm working in millimeters and whenever I use the AREA command I end up with a large number. I want to know if you can customize the AREA command somehow to show meters squared automatically.

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.")

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

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?

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

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!

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

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

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

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

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

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.

Hi, AcadClass has been launched at **Link Removed** The Android app is here: **Link Removed**

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?

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.

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!

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

http://autocadtutorialsbd.com/you-tube-video-tutorials/

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

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

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.

AutoCAD beginners need more exercises to practice. You can find more exercises in this book, over 200 pure exercises. https://goo.gl/dpyQ7Y