Search the Community

I have these two lisps below, this first one allows me to pick an object and zoom to it. The trouble is that it doesn't behave like the second program below where it gets a segment of a polyline. My question is is there a way to zoom to the object when using the code in the second option? Or make the first option behave like the second where it gets a segment? First one: (defun c:UCS_Pick_Object_BuiltInCmd (/ ent) (setq ent (car (entsel "\nSelect object to zoom to after UCS (ESC to exit): "))) (if ent (progn (command "ucs" "_OB" ent "plan" "") (command "_.zoom" "_O" ent "") (princ "UCS now set to the line or the objects polyline segment") (princ) ) ) ) Second one: (defun c:UCS_Pick_Object_BuiltInCmd (/) (command "ucs" "_OB" pause "plan" "") ; Is it possilbe to access the picked object from the pause command is to select the object? ; (command "_.zoom" "_O" ent "") (princ "UCS now set to the line or the objects polyline segment") (princ) )

In UCS “w” it's working perfectly. But if I will put any UCS I can't work properly. Not coming properly How to solve this issue (defun c:DRL (/ decs ;|diff|; elist level osm p1 p2 slope strlevel txtelev txthgt txtpt) (setq osm (getvar 'osmode)) (while (and (or (not (setq txtelev (entsel "\nSelect starting level text : "))) (not (eq "TEXT" (cdr (assoc 0 (setq elist (entget (car txtelev))))))))) (princ "\n Nothing selected or wrong object type selected, try again") ) (setq strlevel (cdr (assoc 1 elist)) level1 (atof strlevel) txthgt (cdr (assoc 40 elist)) ) (setq level (* level1 1000)) (initget 6) (setq slope (getreal "\n Enter slope in decimals <0.01> : ")) (if (not slope) (setq slope 0.01)) (setvar 'osmode 695) (setq p1 (getpoint "\nPick first point:")) (setq p1 (list (car p1)(cadr p1))) ;;; (setq diff (mapcar '- (cdr (assoc 10 elist)) p1)) (while (setq p2 (getpoint "\nPick next point (or press Enter to Exit): ")) (setq p2 (list (car p2)(cadr p2))) (setq level (- level (* (distance p1 p2) slope)) strlevel (rtos level 2 0) txtpt (getpoint "\nPick a text point: "); (mapcar '+ p2 diff) ) (setq strlevelwp(strcat "IL " (rtos (/ level 1000) 2 3)"M")) (entmake (list '(0 . "TEXT") '(100 . "AcDbEntity") '(100 . "AcDbText") (cons 10 txtpt) (cons 11 (list 0.0 0.0 0.0)) (cons 40 txthgt) (cons 1 strlevelwp) '(50 . 0.0) '(41 . 1.0) '(51 . 0.0) '(7 . "Standard") '(71 . 0) '(72 . 0) (cons 210 (list 0.0 0.0 1.0)) '(73 . 0)) ) (setq p1 p2) ) (setvar 'osmode osm) (princ) )

Hi guys! First of all, congrats for what you do here, it’s amazing to help others and keep them close to this amazing software - AutoCAD. So, my kind request is as it follows: I have the Click2XLS.vlx, the one that exports coordinates to Excel. And before everytime i use this .vlx, i have to change the UCS because i need coordinates from certain areas of a drawing from certain basepoints. My question is, can anyone please share a little assistance in slightly updating this .vlx and include the part where i move the UCS? it is very time waisting and furthermore whenever i exit the command i have to click next cell in the Excel worksheet everytime, otherwise it will overwrite the existing coordinates; so being only one command, will be very helpfull. Thanks in advance! IMG_7358.MP4 Click2XLS.vlx

Hello all - I'm jim - New to forum, and auto cad. Over the last few weeks ive been using this site and others to learn AutoCad. I have gleaned lots of useful information however i'm struggling with UCS rotations/ Drawing 3D in a lsp. I'm half way through developing my first lsp that calculates the difference in X,Y,Y. It then draws lines showing deviation directions (for example deviation from design). X and Y devition lines seem to be working ( not fully tested negative coordinates yet) but I cannot resolve the Z line. I have highlighted area that is causing problems. and have attached a screen dump of current results. I know it is probably somthing simple I am missing, but I think i have been looking at the problem t0o long, with too much autocad inexperience If anyone has any ideas or pointers please let me know. Regards JM ;Written by JM 2019 ;STILL UNDER CONSTRUCTION (defun rtd (r) (/ (* r 180.0) pi)) ;Angle conversions (defun dtr (d) (/ (* d pi) 180.0)) ;Angle conversions (defun c:delta (/ p1 p2 x1 x2 y1 y2 z1 z2 xp yp zp dx dy dz coorddiff Tolerence) (command "_UCS" "World") ;Ensure WCS is current (setq osm (getvar "osmode") ocmd (getvar "cmdecho") textStyle (getvar "textstyle") ) ;(setq Tolerence (getdist "\nTolorence in mm : ")) (while (setq p1 (getpoint "\nPick Design Position: ")) (setq x1 (car p1)) (setq y1 (cadr p1)) (setq z1 (caddr p1)) (setq p2 (getpoint "\nPick Asbuilt Position: ")) (setq x2 (car p2)) (setq y2 (cadr p2)) (setq z2 (caddr p2)) (cond ((<= x1 x2) (setq dx (rtos (- x2 x1))) (setq xp (polar p2 (dtr 0) 50)) (command "line" p2 xp "") ) ;_ end of the first condition x ((> x1 x2) (setq dx (rtos (- x1 x2))) (setq xp (polar p2 (dtr 0) -50)) (command "line" p2 xp "") ) ;_ end of the first condition x ) ;_ end of cond statement for X (cond ((<= y1 y2) (setq dy (rtos (- y2 y1))) (setq yp (polar p2 (dtr 90) 50)) (command "line" p2 yp "") ) ;_ end of the first condition y ((>= y1 y2) (setq dx (rtos (- y1 y2))) (setq yp (polar p2 (dtr 90) -50)) (command "line" p2 yp "") ) ;_ end of the second condition y ) ;_ end of cond statement for y ;**********************************************************Rotation Causing 3D Line issue? (cond ((<= z1 z2) (setq dz (rtos (- z2 z1))) (command "_UCS" "y" -90) (setq zp (polar p2 (dtr 180) -50)) (command "line" p2 zp "") ) ;_ end of the first condition z ((> z1 z2) (setq dz (rtos (- z1 z2))) (command "_UCS" "y" -90) (setq zp (polar p2 (dtr 180) 50)) (command "line" p2 zp "") ) ;_ end of the second condition z ) ;_ end of cond statement for z ;**********************************************************Rotation Causing 3D Line issue? ;;Displayes co-ordinates (command "_UCS" "World") (setq coorddiff (strcat dx "," dy "," dz)) (command "text" "j" "c" p2 25 -45 coorddiff) ) )

Hi. Could you help me by indicating what the sentences in VisualLisp would be to replace the following: (command "_vpoint" point) (command "_ucs" "V") Thank you. Greetings.

Hi all. I've looked pretty much everywhere for a solution. I basically what to show the UCS at its origin, just like the command UCSICON>OR>ENTER but for all spaces. I can go this route but this means iterating through all the layouts. (foreach itm (append '("Model") (layoutlist)) (setvar "ctab" itm) (command "._ucsicon" "ORIGIN") ) Would there be a vla-put method for this?

We've just purchased a new GPS system and are working out various kinks, one of which being that the default logging and point exporting format creates .dwg files with coordinates recorded as (Northing, Easting). Is there a simple way to translate an entire .dwg consisting of text, points, and lines to (Easting, Northing)? Hopefully I'm not forgetting some very, very obvious solution!

Hey guys! I have several drawings, each containing multiple layouts/viewports that need UCS to be set to World. It'd be great if I could open a drawing, run the lisp, and have a dialog box pop up asking which layouts I wanted to apply it to (similar to the interface for Lee Mac's Copy to Layout routine) I haven't done any VBAs bf, but I'm thinking that might be an option, since it's a pretty simple command. Any help would be appreciated! Thanks, Liz

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

Autocad 2013 in model work area , I am having a problem with selecting blocks from the pallet and placing them on the drawing. most were set t0 place at the selected point. how ever i don't know where to begin it will place them at x,y but not at z, ends up out of frame. in front view i place the block but when switching to top view the block is 100 feet to the rear of the model. 1:1 , inches and feet any help where to start correcting this it is cumbersome to constantly move the object a 2ed time. I guess its not really the insertion point because i can set that with the 0,0,0. It's when i click to set the point from the point of view without a snap it seems the axis view is not at 0 from what ever view im in but at the limit of the drawing from that point of view. example: I'm looking at the front view standing on the bottom center edge of the screen or limit of 125' +/- from the plan view. so i'm 125' from the 0,0,0 base point of the drawing in the z axis but at 0,0 in both x and y

I use AutoCAD 2007 and program in VBA. Could you help with drawing cylinders in VBA. The "AddCylinder" draws only in WCS meaning I get cylinders in only one direction. I need cylinders to the UCS I set using the VBA program.

Hi, I've used autocad 2007 and recently change to autocad 2014. My problem is in 2014, when I want to work with front view, the ucs doesn't change with it. It stays with the top view. I've typed ucs>"V">enter and it changes the ucs along with my view from front to top. I want it to be it still in the front view, and the ucs will show x and y normally. Please help, thanks in advance *In autocad 2007, when I change view, the ucs automatically change as well following the view.

Good Afternoon, I am currently drawing elevations from a point cloud clipping which was acquired by a FARO Scanner. As I am drawing the elevation from the point cloud data, the point cloud as well as the line work which has been produced, is moving side to side and shifting out of place. See this link for video of this happening: Does anyone know why this is happening and what to do to resolve this issue? Thank you in advance for your help

So we do a lot of 3D coordination using AutoCAD and Fabrication, and since we upgraded to 2015, we've been having a lot of issues with viewports and the UCS. We all typically have at 3 viewports in modelspace. One big one for the plan view, one front view, and a side view. We change them a lot on the fly depending on what we need to see. For example, we'll place a line of ductwork in the plan view and then switch over to one of the side or front views to check clearances between services and adjust accordingly. However, now the viewports keep changing their UCS and we don't know how to fix it. So we'll set a view port to plan view, go to the front view, and not be able to move or dimension anything properly because the UCS looks like it's matching the plan view? Instead of having Y pointing "up" and x pointing "right" in every viewport, the UCS in every viewport will relate to the last view you set. We're assuming it's some variable that didn't get carried over in the upgrade, but no one can figure out how to get it back to the way we usually draft. Don't know if this is the proper forum, but please help?

Please help! Every time I insert a block (dynamic or otherwise) into any drawing (I have tried several) my ucs (0,0) changes to the insertion point of that new block. I don't know what I have done, what button I have inadvertently pushed or setting that I have set, but I do not know how to undo this! Has anyone ever heard of this? Please help me! I am using AutoCAD 2014.

First of all sorry for my bad english. I wonder how do I change the default value of the angle that is between in the command UCS "specify rotation angle about X axis :" from 180.00 to 90.00 Thanks

Hi, As the thread title suggests, I want to create a segmented polyline with known angles / lengths, but I want to do this in 1 operation without having to copy/rotate/chamfer etc. I think I'm gonna kick myself when I receive an answer to this as it seems to be something I should know. I'm sure it has something to do with UCS, but I've not used it in quite some time, I am stumped and everything I have tried so far has failed.

Hello everyone, I am having a bit of an issue when using the AREA command. I've noticed that the UCS (User Coordinate System) changes when I attempt to take the area of an existing object (when I trace over a rectangle, for example). The changes to the UCS are dramatic, the drawing zooms out and rotates depending on how I traced the object. The change occurs when I click the third time. This reminds me of setting a new UCS where you would first select the x-axis direction with two clicks followed by the direction of the y-axis with one click. There is no change to UCS when I trace out an arbitrary shape. Here's what I've been able to figure out and it involves the UCSFOLLOW setting. When I set the UCSFOLLOW variable to 0, everything works great and I don't get the zooming out and rotation. When it's set to 1, well, the PLAN VIEW changes by zooming out and rotating. If I zoom back in and complete the area and press enter, everything goes back to normal. So I still manage to get the area of the object that I want, but the zooming out and rotation makes it very inconvenient. Okay, I understand that the UCSFOLLOW solves the problem, but is it normal for the AREA command to make changes to the UCS by default? I ask because creating a new drawing, creating a rectangle and using the AREA command doesn't cause the same UCS change, regardless of the UCSFOLLOW setting. This makes me think the drawing I am working on has objects with a coordinate system that differs from the WCS, right? Is there a way to have the UCSFOLLOW active while not having the AREA command alter the UCS? If I left crucial information out, please let me know, and I'll elaborate! I'm using AutoCAD 2012. Thanks!

Hi everyone, I have experience making 3D models in Vectorworks but have never used 3D in AutoCAD. I am using 2014 version. I understand the principle of UCS and the idea behind it but am really struggling to use it. Currently I am trying to use two viewports, one in top view and one in front view. I am trying to use the two to ensure I am placing objects in the correct place in relation to everything else. However...how comes when I move something up or down in front view it moves completely out of position in top view? surely if i'm moving the object up or down it should not effect the position of anything in top view? Many Thanks

Hi, This is a very old project and even with more knowledge in 3D, still unable to do it. I have a stool with incline legs using the LOFT command (Extrude with Path can also do it). Now I need to add a tranverse section. I wanted to have the tranverse section same dimension as the leg. Given the inclination of the leg, it is impossible and futile to align ucs using 3 points or face because there is no 90 deg between the two edges. Furthermore given there is no extrude to face as in inventor, it is sound difficult to extrude between the "/" form and the "\" form of the two legs. Can anybody help and advise me on this 3D problem? On geometry, is there a rule to adapt here with respect to section dimension? Thanks and Regards, 3D Stool-Layout1.pdf Nicolas.

Dear masters. After setting the UCS "OB" as continue the execution of the routine? Once completed the cycle, how to reset the previous UCS? ;;teknomatika (defun c:asna (/ hdist vdist divn distseg pti1 pts1 pti2) (command "ucs" "OB" "pause" "")[color="red"];;The execution is stopping here.[/color] (setq hdist (getdist "\nHorizontal Distance: ")) (setq vdist(getdist "\nVertical Distance ")) (setq divn (getint "\nDivisons Number: ")) (setq distseg (/ hdist divn)) (setq pti1 (getpoint "\nStart Point: ")) (setq pts1 (list (+(car pti1)distseg)(+(cadr pti1)vdist)(caddr pti1))) (setq pti2 (list (+(car pti1)distseg)(cadr pti1)(caddr pti1))) (repeat divn (command "_.line" "_non" pti1 "_non" pts1 "_non" pti2 "_non""") (setq pti1 (list (+(car pti1)distseg)(cadr pti1)(caddr pti1))) (setq pts1 (list (+(car pts1)distseg)(cadr pts1)(caddr pti1))) (setq pti2 (list (+(car pti1)distseg)(-(cadr pts1)vdist)(caddr pti1))) (princ) );repeat ) (prompt "\nTo invoque command type ASNA ")

Does anyone know any routine that allows to perform some of the principles of the Match Photo tool in Google Sketchup? Summarizing, from the definition of the modeled perspective lines of a picture to a building should be capable of defining the 3D UCS. On the toolbar UCS AutoCad not see any that allows you to do that.

Hello, I'm making a car model on autocad 3d and I have to make all of its differents surfaces flatten on a same plane (similar to papercrafting). I must get the "real sizes and dimensions" of all rectangles and triangles that compounds my model. This is about 20 differents planes defined by the lines of the car. The idea of this project is to make it possible to build the car from a printed paper. Ive tried to use UCS making the "new xy" plan on the diferents surfaces but it would take like a day to make this in the whole model. I've also tried rotating the surfaces, but inst accurate enough. The car is not yet solid; I just used the normal line commands. I'm plannig to use 3DFACE to create all the surfaces. The only thing I could come up with was to define various UCS and then use 3DALIGN with a previous rectangle made on the WCS. But this is not very efficient. Does anyone have any suggestion? Is there any way to "transfer" the differents surfaces to a same plane so that I can get the "real dimensions" (the real area, line sizes) of them? I'm not sure being clear enough.. Thanks!

Hi all! I have been learning lisp routines and am struggling to work out the one I need to rotate my model space. I have solved the routine for getting back to the original ucs setting: (defun c:EU nil (command "ucs" "w" "plan" "w") (princ)) The one that isn't working I think should look like this: (defun c:UE nil (command "ucs" "e" "plan" "current") (princ)) However, this routine fails to rotate to the current UCS despite registering the selected ucs. Thank you

Does everyone know how to insert xrefs with other ucs than world. The host drawing ucs must be in world. The different x-refs are made with different ucs according to local coordinates. In the host drawing, the xrefs must be placed correctly according to global coordinate (world). (The xrefs are all surveys of different spaces all with marked fixpoints according to the physical global coordinates.) please help...