Search the Community
Showing results for tags 'autocad'.
Found 315 results
-
Insert a block at multiple points or lines and scale
grouch19 posted a topic in AutoLISP, Visual LISP & DCL
G'day all I'm working on and editing a mapping project from photogrammetry. I have a block which indicates a square manhole cover. (File is attached to this post) My project area has hundreds of these manholes and my client needs each of them scaled and rotated to fit the exact size of the manhole. I had been manually doing this with the help of an ECW image in the background. But the process is rather tedious and not all that accurate. My operators can pick up a three point string showing the height and length of the manhole. Some manholes are square and some are rectangular. I have a few lisp routines that get the block in there. The block insertion point comes in at the first plotted point as required. Is there any similar LISP that will insert the attached block dwg file at the first point collected and scale it based on the 2nd and third point whilst keeping the elevation heights? I've attached two dwg files... One is the block itself and one is a diagram with a better explanation. I've also added a screen shot of what is required. Any help would be appreciated Cheers guys Manhole.dwg BlockSample.dwg -
I'm working on a building a helmet, and I have completed a basic 3d model to help me visualize how I will build it. But I don't know how to flatten out a cone. the helm is made out of 5 pieces, a top, a top side piece and a bottom side(the sides are fabricated twice to make a full helm) I have a problem with the top sides and making them a flat layout.
-
while browsing the interwebs the other day i came across a few pages talking about using gaming keyboards and mice in conjunction with autocad. so i did a little bit of reading/research (things are slow at work) and found out it wasn't to difficult to do, and a new mouse was like $80. i thought why not give it a try. i took to amazon to get the logitech G600 for $49 w/prime shipping, i received it monday and tuesday i was off and running. the most difficult thing about it was choosing what commands to program on the thumb keys. it has the normal two mouse buttons and scroll wheel up, down, left and right, with third mouse button as a "shift key" for the 12 thumb buttons to make 24 individual keys, plus two other buttons with the scroll wheel that i believe select between profiles you can set. (haven't dove completely into it) after working with it for the better part of tuesday, this morning wednesday i reconfigured some commands on the thumb pad and printed out a cheat sheet to memorize. some of the commands like copy/past/cut work outside of Autocad which is a plus. it has helped in some areas of accuracy typing commands like move between 2 points (i mistype a lot) but slowed other processes down just because its new and still getting to the nuances of operation. i believe it will become second nature as long as i don't change the commands often as i feel which ones fit best or needed more. anyways i thought i would just throw this out there maybe it's something you would like to try or have some experience with or didn't know you could use. let me know if there is something else out there you have tried to work with. links: http://www.lifehacker.com.au/2015/05/why-i-started-using-gaming-peripherals-to-get-real-work-done/ http://blog.grabcad.com/blog/2010/08/28/best-for-cad-work-mouse-trackball-3d-device/ https://www.amazon.com/Logitech-G600-Gaming-Mouse-Black/dp/B0086UK7IQ/ref=sr_1_sc_1?ie=UTF8&qid=1486577758&sr=8-1-spell&keywords=logitehc+g600
-
Export each layer to separate FBX file (AutoCAD 2017)
mzlink posted a topic in AutoLISP, Visual LISP & DCL
Hello. I have tried to edit a script found in another topic to suit my needs but i can't get it to work the way i want to. layer2dwg (defun c:lsave(/ actDoc layCol docName dwgName actSel fCount) (vl-load-com) (defun BrowseFolder (/ ShlObj Folder FldObj OutVal) (vl-load-com) (setq ShlObj (vla-getInterfaceObject (vlax-get-acad-object) "Shell.Application" ) Folder(vlax-invoke-method ShlObj 'BrowseForFolder 0 "Select Folder to create files" 0) ) (vlax-release-object ShlObj) (if Folder (progn (setq FldObj (vlax-get-property Folder 'Self) OutVal (vlax-get-property FldObj 'Path) ) (vlax-release-object Folder) (vlax-release-object FldObj) OutVal ) ) ) (setq actDoc(vla-get-ActiveDocument (vlax-get-acad-object)) actSel(vla-get-ActiveSelectionSet actDoc) layCol(vla-get-Layers actDoc) docName(vla-get-Name actDoc) fCount 0 ); end setq (if (setq wntPath (BrowseFolder)) (progn (vlax-for lay layCol (setq layName(vla-get-Name lay) dwgName (strcat wntPath "\\" (vl-filename-base docName) " - " layName ".dwg") ); end setq (vla-clear actSel)(vla-erase actSel) (vla-Select actSel acSelectionSetAll nil nil (vlax-safearray-fill (vlax-make-safearray vlax-vbInteger '(0 . 0)) '( ) ; end vla-safearray-fill (vlax-safearray-fill (vlax-make-safearray vlax-vbvariant '(0 . 0)) (list layName) ) ; end vla-safearray-fill ) ; end vla-select (if(/= 0(vla-get-Count actSel)) (vla-WBlock actDoc dwgName actSel)); end if (setq fCount(1+ fCount)) ); end vlax-for ); end progn ); end if (princ (strcat "\*** " (itoa fCount) " files were created *** ")) (princ) ); end of c:lsave I have poked the "WBlock" line in different ways but i can't get FBXEXPORT to work in the script. Any help is appreciated. -
How to transfer my custom icons, menus, toolbar in my computer to other computer
muhammad_rp posted a topic in AutoLISP, Visual LISP & DCL
How to transfer my custom icons, menus, toolbar in my computer to other computer. -
I need to add pipe properties to a 2D Polyline in AutoCAD or Civil 3D but I am not sure how to go about it. I have uploaded a sample file, the information I need to associate with the polyline is in the red box. If someone has any idea about adding these features to a 2D polyline please do let me know. Thank you Please find the sample file below
-
Hi, I want to make a script who draw circles in multiple Points. The Points are automaticly made in a extension to autocad. All the Points are in same layers. It´s around 200 to 1000 Points in the drawing. My first issue is to find a commando who draw circles, with basepoints in all Points. Does anyone know the appropriate command for me? Regards, Emil
-
AutoCAD Table - Link Text With Equation
Walker140 posted a topic in AutoCAD 2D Drafting, Object Properties & Interface
Hello, I have created a table within AutoCAD. I have written some words in cell "A1", I would like to display the same words in another cell using an equation "=A1". When I type the "=A1" equation the cell displays "####" Is there anyway to make this work? possibly using fields? Thanks -
Help: Problem with dimensions
xyz posted a topic in AutoCAD 2D Drafting, Object Properties & Interface
Hello, when I draw this sketch in AutoCAD, I can't get the exactly same vertical dimensions. The original shows whole numbers for dimensions and I am getting numbers with decimals. Am I doing something wrong or are just dimensions on the original written with whole numbers? Tnx for help. Original drawing: https://drive.google.com/file/d/0B1A8tnujmj3BNDVQMUQtM0lZTUk/view My drawing in AutoCAD: https://drive.google.com/file/d/0B1A8tnujmj3BeWZ0NXpVVHBaUFU/view -
Hello, guys! So, I have this 3D view of my project and my personal layout on the same .dwg file. Attached herewith is a screenshot of the 3D view, that I want to place on my layout, and my own personal layout. Can somebody please give me a step-by-step procedure on how to this. An example is also attached for your reference. Thank you very much & I appreciate whatever help you can give me
-
Hello, guys! I need a lisp to rename the current open file. I already have a routine that takes the current file name and creates a string with the new file name (Just six numbers in the old name needs to change)... But I coudn't change the old name for the new name. I've tried to use the (Vl-File-Rename), but I think that i didn't use it right.... Here's go the code: (defun C:changename (n1 n2 n3 n4 n5 n6) (setq new_number (strcat (itoa n1) (itoa n2) (itoa n3) (itoa n4) (itoa n5) (itoa n6))) (setq old_name (strcat (getvar "DWGPREFIX") (getvar "DWGNAME"))) (setq size (strlen old_name)) (setq final (- size 18 )) ; (setq start_name (substr old_name 1 final )) (setq end_name (substr old_name (+ final 7) (- size final))) (setq new_name (strcat start_name new_number end_name)) (alert old_name) (alert new_name) (vl-file-rename old_name new_name) ); end defun The old name is: D:\Profiles\s-Andre.Almeida\Desktop\Autocad\3-157941-012-005.dwg The new name, for example, could be: D:\Profiles\s-Andre.Almeida\Desktop\Autocad\3-666666-012-005.dwg I just need to change the names with the (vl-file-rename) could someone help me?
-
Lisp to open multiple DWG's and write in each one
andr3flaviano posted a topic in AutoLISP, Visual LISP & DCL
Hello, guys! I'm creating a lisp to open multiple DWG's in a directory and alterate a number at a especific position. I have a function (called txt) to write the number at a position and I have another function (called change_all) to open every DWG in the directory and execute the function "txt". I want that the "Change_all" asks me the number and then execute the "txt" to write that number in all DWG's. The functions are already working, but i couldn't call the "txt" with the parameter number previously defined Here are the code: (defun c:txt (tval) ; (setq num0 (ssget "_C" '(347.06 18.12) '(350.90 18.12))) ; (command ".erase" num0 "" ); (setq pt1 '(346.5 15.84)) ; (if (not (tblsearch "Layer" "TEXT")) (command "-layer" "m" "TEXT" "") ) ;_ end if (entmake (list '(0 . "TEXT") '(8 . "TEXT5") (cons 10 pt1) (cons 40 4.5) (cons 1 tval) '(50 . 0.0) '(7 . "ROMANS") '(71 . 0) '(62 . 4) '(72 . 0) '(73 . 0) ) ;_ end list ) ;_ end entmake (*error* "") (princ) ) ;_ end defun (defun c: change_all (/ dwglist dwgname dwgpre file openfile uhoh len) (vl-load-com) (if (and (setq dwgpre (getvar 'dwgprefix)) (setq dwglist (vl-sort (vl-remove (strcat dwgpre (getvar 'dwgname)) (mapcar '(lambda (dwgname) (strcat dwgpre dwgname)) (vl-directory-files dwgpre "*.dwg") ) ) ' ) ) (setq uhoh "Readonly drawings will not be processed!" ) (setq len (strlen uhoh)) ) (progn (setq openfile (open (setq file (strcat dwgpre "myscript.scr")) "w")) (setq num (getstring t "\nType the numer: ")) ; (progn (foreach f dwglist (if (and (not (Is_ReadOnly f)) (/= (checkAttFile f) 1) ) (progn (write-line (strcat "_.open \"" f "\"") openfile) (write-line "(C: (txt num))" openfile) ; (write-line "_.qsave _.close" openfile) ) (setq uhoh (strcat uhoh "\n" f)) ) ) (close openfile) (command "_.script" file) (if (= (strlen uhoh) len) (princ "All drawings successfully processed...") (alert uhoh) ) ) ) ) (princ) ) ; End Defun Could someone help me, please? -
I have two questions - I have procured AutoCAD Mechanical 2015: 1. Will the installation show both AutoCAD and AutoCAD Mechanical in the PCs Add - Remove program ? 2. Am I licensed to use both AutoCAD and AutoCAD Mechanical ? 3. What versions can I downgrade to ? regards, sheshu
-
Lisp for insert text at a specific point
andr3flaviano posted a topic in AutoLISP, Visual LISP & DCL
Hello, Guys! I need a litte help in a very easy question about Lisp I need a Lisp for insert a especific text at a especific point in autocad... Example: I want to write the number 5 at the point: x = 3 y = 2 It's easy, but i don't now how to input the coordinates of the text Could Someone help me, please?? -
Change block color through block table
mechaneco posted a topic in AutoCAD Drawing Management & Output
Hi everybody, I wanted to know if there is a way I can control the layer a block is in through the block table, so if I change a set of parameters through the table, one of them could be "Layer" and that way I can change it appereance. I want to avoid visibility parameters, as there are too many permutations of blocks for that. Thanks for the help in advance! -
Autocad 2015 - Express Tools - Most work a few do not?
ILoveMadoka posted a topic in AutoCAD 2D Drafting, Object Properties & Interface
(Autocad 2015) Express Tools is loaded, the Express Tools menu is displayed. 97% or more of the Express Tools work just fine. Tools -> System Variables (SYSVDLG) does not work (Unknown Command) Is there a way to manually fix this short of the uninstall/reinstall? -
ObjectARX 2017 - Project Creation Failed on the Visual Studio 2015
EvairPeterson posted a topic in .NET, ObjectARX & VBA
Hi... I have a problem with the ObjectARX 2017 project creation on the Visual Studio 2015. I've downloaded the ObjectARX package from the Autodesk page and run it. It was unpacked in that folder: C:\Autodesk\Autodesk_ObjectARX_2017_Win_64_and_32_Bit. But there aren't any executable for the installation there. I've downloaded too a small utility called 'ObjectARXWizards', and run it. This programm ask me where is located the ObjectARX folder and AutoCAD folder, and after this, install the package. In that moment appear in the control panel appear in the VS2015, at the Visual C++ tab the Autodesk, with two options of ObjectARX project modelos: ObjectARX/DBX Project and ObjectARX/DBX/OMF Project. When I select any of these two project options, it give me a error like this: Creating project 'ArxProject1'... project creation failed. I did run the Visual Studio as administrator, from a user with administrator privilegies, with the UAC turned off and install using ObjectARX Wizard, but the project creation on the Visual Studio still not working. Always give me the same error. I really don't know what I need to do to work with. Anybody can help me? -
Having an issue with one CAD file everytime it is opened. Need help with this error: "One or more objects in this drawing cannot be saved to the specified format. The operation was not completed and no file was created." Thanks, Chandra
-
Hi , is there any command to list the vertex of a multipolygon? Cause, when I have a polygon I can use (entget (car (entsel))) and recover its vertex. But how could I do this in a multipolygon? Thanks. #Autocad Civil 3D 2015.
-
Jimmy Bergmark from JTB World, has reported that the just released SP1 for AutoCAD 2017 breaks the functionality of the "plug-in auto loader mechanism". Please make note of this before installing SP1, which is currently only available via the Autodesk Desktop App. References below: Ref 1: AutoCAD 2017 Service Pack 1 and a word of warning Ref 2: AutoCAD 2017 Service Pack 1 is out but you probably don’t want to install it
-
Hi I have used the Extract Intersections between two surfaces to get a complex line but I dont know how to give a thickness to it How can I give a thickness to make it a solid? Thank you
-
Hey guys, so I'm converting some IDWs to AutoCAD format, and when they go to open them dimensions are not showing up and some other things are jumbled about. I even opened them up in my AutoCAD and purged several times, and re saved them into DXFs and AutoCAD DWGs. Am I missing a step or something? What can I give them so they can just dimension it in their title block? STEP file?
-
Hello all you CAD Guru's out there! I am currently having trouble creating a lisp and am in desperate need of experienced guidance. I am trying to make a command such as (defun C:lo () (command "layer" "on" "*" "t" "*" "")) which turns all layers on, however i need the layers Circuit-1 through Circuit-12 to be untouched. For example if i have circuits 5 through 12 turned off, frozen, whatever state they may be in needs to not be affected by the command to turn all layers on. Basically I would like to make a command that turns all layers on with the exception of layers Circuit-1 through Circuit-12 I started to write a code based on layer groups which I though may be the way to accomplish this task. I.E. make a layer group of all layers EXCLUDING or removing Circuit 1-12 and thaw or turn on all of that layer group. I am unsuccessful in thawing the "new layer filter" using code. (I can however right click on the group and change its visibility to thawed and that works.) (defun c:TESTER (/) (COMMAND "-LAYER" "FILTER" "NEW" "GROUP" "" "*" "NEW LAYER FILTER" "") (COMMAND "-LAYER" "FILTER" "EDIT" "NEW LAYER FILTER" "DELETE" "CIRCUIT-1" "DELETE" "CIRCUIT-2" "DELETE" "CIRCUIT-3" "DELETE" "CIRCUIT-4" "DELETE" "CIRCUIT-5" "DELETE" "CIRCUIT-6" "DELETE" "CIRCUIT-7" "DELETE" "CIRCUIT-8" "DELETE" "CIRCUIT-9" "DELETE" "CIRCUIT-10" "DELETE" "CIRCUIT-11" "DELETE" "CIRCUIT-12" "") (command "-layer" "t" "new layer filter" "")) Where have I gone wrong?
-
I try to install autocad 2017. can't install it. coming error. see attached screenshots pls help me
-
how to divide a closed polygon
malkasun posted a topic in AutoCAD 2D Drafting, Object Properties & Interface
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
