Search the Community

Hello, i create lisp for transform *line, circle, arc ... and the question is: How to transform arc without convert it to polyline. Or how to covert arc to polyline transform vertex (this method work fine) and convert again to arc (i don't know how to convert again to arc). What i do, have a lot of math to coordinate system 1 --> coordinate system 2, when i covert vertex of lines everything work perfect but with arcs don't know how to transform vertex clear. This is about my dissertation. Thank you

Hello i need some help with modifying Arc, the idea to change coordinate with some formula like : Coordinate X + 100.00m for each point and coordinate Y + 200m for each point. For clear arc i decide first to modify center and then start and end point and it work, but for polyline with arc segment dont know what exactly to do. Thank you for help !

I can't find a way to draw an arc off the end of a line or arc that is NOT the last entity and have it act as though it was continuing in the normal way, like it does when continuing off the end of the last entity drawn. As in, have it behave like an arc coming off the last entity but select a random different arc in the drawing. I always have to trace the arc or line that I want to continue off of, then use arc continue as normal. Tangent does not work because then you have to pick Center or End and then you're locked into an arc that is not behaving like a continuing arc. I hope this makes sense. I have a feeling it will be something like a small .lsp or .vlx program that moves the selected entity to the last item in the db dictionary, then I'd still have a 50/50 chance that it would be the correct end of the line or arc that I want. I know someone here knows how to do this! Thanks much, R.L. Hamm

this lisp convert polyline segments to arcs . work one line for time . i need select 1000 polylines for times. I'm new in autolisp and i do know what change in the code : (defun c:lwsegs2arced ( / massoclst nthmassocsubst v^v unit _ilp doc lw enx gr enxb p1 p2 p3 b i n ) (vl-load-com) (defun massoclst ( key lst ) (if (assoc key lst) (cons (assoc key lst) (massoclst key (cdr (member (assoc key lst) lst))))) ) (defun nthmassocsubst ( n key value lst / k slst p j plst m tst pslst ) (setq k (length (setq slst (member (assoc key lst) lst)))) (setq p (- (length lst) k)) (setq j -1) (repeat p (setq plst (cons (nth (setq j (1+ j)) lst) plst)) ) (setq plst (reverse plst)) (setq j -1) (setq m -1) (repeat k (setq j (1+ j)) (if (equal (assoc key (member (nth j slst) slst)) (nth j slst) 1e-6) (setq m (1+ m)) ) (if (and (not tst) (= n m)) (setq pslst (cons (cons key value) pslst) tst t) (setq pslst (cons (nth j slst) pslst)) ) ) (setq pslst (reverse pslst)) (append plst pslst) ) (defun v^v ( u v ) (mapcar '(lambda ( s1 s2 a b ) (+ ((eval s1) (* (nth a u) (nth b v))) ((eval s2) (* (nth a v) (nth b u))))) '(+ - +) '(- + -) '(1 0 0) '(2 2 1)) ) (defun unit ( v ) (mapcar '(lambda ( x ) (/ x (distance '(0.0 0.0 0.0) v))) v) ) (defun _ilp ( p1 p2 o nor / p1p p2p op tp pp p ) (if (not (equal (v^v nor (unit (mapcar '- p2 p1))) '(0.0 0.0 0.0) 1e-7)) (progn (setq p1p (trans p1 0 (v^v nor (unit (mapcar '- p2 p1)))) p2p (trans p2 0 (v^v nor (unit (mapcar '- p2 p1)))) op (trans o 0 (v^v nor (unit (mapcar '- p2 p1)))) op (list (car op) (cadr op) (caddr p1p)) tp (polar op (+ (* 0.5 pi) (angle '(0.0 0.0 0.0) (trans nor 0 (v^v nor (unit (mapcar '- p2 p1)))))) 1.0) ) (if (inters p1p p2p op tp nil) (progn (setq p (trans (inters p1p p2p op tp nil) (v^v nor (unit (mapcar '- p2 p1))) 0)) p ) nil ) ) (progn (setq pp (list (car (trans p1 0 nor)) (cadr (trans p1 0 nor)) (caddr (trans o 0 nor)))) (setq p (trans pp nor 0)) p ) ) ) (or doc (setq doc (vla-get-ActiveDocument (vlax-get-acad-object)))) (vla-startundomark doc) (if (and (setq lw (entsel "\nPick LWPOLYLINE...")) (= (cdr (assoc 0 (setq enx (entget (car lw))))) "LWPOLYLINE") ) (progn (setq i (fix (vlax-curve-getParamAtPoint (car lw) (vlax-curve-getClosestPointToProjection (car lw) (trans (cadr lw) 1 0) '(0.0 0.0 1.0)) ) ;_ vlax-curve-getParamAtPoint ) ;_ fix p1 (vlax-curve-getPointAtParam (car lw) i) p3 (vlax-curve-getPointAtParam (car lw) (1+ i)) lw (car lw) ) (setq enxb (massoclst 42 enx)) (while (= 5 (car (setq gr (grread t)))) (setq p2 (_ilp (trans (cadr gr) 1 0) (mapcar '+ (trans (cadr gr) 1 0) '(0.0 0.0 1.0)) p1 (cdr (assoc 210 (entget lw))))) (setq b ((lambda (a) (/ (sin a) (cos a))) (/ (- (angle (trans p2 0 lw) (trans p3 0 lw)) (angle (trans p1 0 lw) (trans p2 0 lw))) 2.0) ) ) (setq n -1) (foreach dxf42 enxb (setq n (1+ n)) (if (= n i) (setq enx (nthmassocsubst n 42 b enx)) (setq enx (nthmassocsubst n 42 (+ (cdr dxf42) b) enx)) ) ) (entupd (cdr (assoc -1 (entmod enx)))) ) ) (prompt "\n Nothing selected or picked object not a LWPOLYLINE ") ) (vla-endundomark doc) (princ) )

hello my frieand , how can i repeat Arc (Center , start , end ) Command without select From Draw tab? i have problem with this Command when i want to use Continuous, everytime i Should select again from Draw Pannel of Home Tab for use again! ( i want to use this like move command , for ex : select move & use that , Click Enter and use again from Move ) but in the Arc Command when u Click enter , autocad select Arc whit 3 Points!

Hello, I am trying to draw a solid object by AutoLISP. But I got stuck while drawing an arc. Please see below picture where I got stuck. I need this arc parallel to the lines below it. I tried some UCS command but at that time arc shown up somewhere irrelevant. Couldn't figure it out. I'm doing something wrong. (I can post my .lsp here however it might be confusing for you as it contains many variables defined by me) Can anybody help please?

In the attached drawing, where three circles are tangent to each other (top part of drawing), I draw three complete circles which are tangent and then use trim to trim the unwanted parts. But today I heard a new way to draw with no need for trimming. Apparently this method draws the arcs instead of circles. But I wonder about the degree of arcs. Also which way is faster and easier to draw, is a question for me. I couldn't find a complete solution for drawing arcs for this case. Any comment in this regard, is highly appreciated. 24.dwg

I have a number of large files that have multiple layers with many simple objects. I wish to have a LISP program that searches the file and for certain layers, it looks for line and arcs that have the same start or end points I.E. a line has one end point that matches an arc or another line start point. Once it has found these, it converts the lines or arc into polylines and joins them together. I have a number of squares or rectangles that are constructed from simple lines and I want to end up with a closed polyline that is the same size as the original rectangle. This could also be an odd shape comprised of arcs and lines that is either open of a closed shape. I wont to convert these to polylines also (either open or closed depending on if the lines are enclosed or open). Can anyone suggest how to write this. I have very little experience of LISP.

Hi all I'm working on some information that I have imported into LT 2017 from 12D survey software. Basically I have a road string (polyline made up of arcs) and I'm tidying it up. All I have done to this string is break it and change the layer it is on. When I go into Paper space and look at my plan layout, the broken polyline displays as though it is a full circle. In Model space it looks how it ought. I have double-clicked in the viewport and selected the circle and changed the colour for easy identification. Then, when I go back to Model space, I have a red curved polyline. No circle. I have also tried copying the polyline as a block and pasting it into paper space. It displays as it ought to. If I paste it back into Model Space, it retains its characteristics - i.e. curve in model space, circle in paper space. If I explode the polyline into its component arcs and join them together again, it begins to behave properly. This never used to happen in prior versions of CAD, and my co-worker has had a similar problem. She says it's not a consistent fault - sometimes the display behaves and sometimes it doesn't. I have run audits and purges and all sorts of fun things and have achieved nothing. It prints correctly, but the preview shows it as a circle also. Any ideas, or similar issues?

I am writing a LISP to find subtle kinks between curves. Right now I'm stuck on finding all the angles. Is there an efficient way to do this? I'm hoping to find the angles between connected curves, including arcs and polyline curves, and then highlight (draw a red circle?) around all angles with less than 20 degrees difference (160 to 200 degrees) between the lines. If possible I'd eventually like it to be able to automatically smooth the kinks, but I think that that part will have to come at a later time. On a completely unrelated note, I can't stop seeing this as a cyclops.

I'm making an Audi R8 as a project but how can I extrude an arc on an angle? I'm trying to extrude from the top view to make the body side arcs.

I attached the plan I am having trouble with. It is named first_plan.dwg. I created some lines with the arc tool and joined them to represent the electrical wiring in the layer called electrical wiring. I changed the linetype to a dotted and dashed style but it won't display in the model space and layout 1. Nor will it display when I hit print preview. Can someone point out to me what I am doing wrong? I am new to AutoCAD and this is my first plan. I am using AutoCAD 2015 for Mac. first_plan.dwg

I attached the plan I am having trouble with. It is named first_plan.dwg. I created some lines with the arc tool and joined them to represent the electrical wiring in the layer called electrical wiring. I changed the linetype to a dotted and dashed style but it won't display in the model space and layout 1. Nor will it display when I hit print preview. Can someone point out to me what I am doing wrong? I am new to AutoCAD and this is my first plan. I am using AutoCAD 2015 for Mac. first_plan.dwg

Hi all, I design concrete swimming pools... I have a drafting issue that hopefully someone can shed some light on. I have attached a diagram for your reference. I need to draw a curved line that starts tangent to segment (A) and hits points 1-3 and ends tangent to segment (B). The floor of a pool obviously is a smooth curve, not a segmented line. I would love to be able to represent that accurately. Any ideas?? Pool Section 2.dwg

Hey, I am tracing a curvy 2D shape using arc function. I want the outline of the shape very smooth. I would like to know how do I draw arcs that can be tangent to each other so eventually I can get this shape very smooth and nice. Thank you very much!

How do I draw an arc/circle tangent to two other arcs/circles? Ultimately, I am trying to create a snail cam drawing.

I need a lisp routine that can take a long polyline and delete all the arc segments, thus leaving multiple shorter polylines (all consisting only of straight segments). Can anyone help me with this please?

This is the text-book exercise I am working on: Strictly speaking, the back of the jaw consists of two arcs and a tangent. I can't find anything in the book so far that deals with this so I am stuck. Can someone please help me out with a way to do the back of the jaw. Thanks BTW: as to the dimensions, I work in millimetres so I take the given imperial (inch) dimensions, multiply the number by 100, and call it mm. Hanger_Jaw.ipt

I tried to connect these arcs together as you can see on the red arrows but they didn't look smooth, i use 3 points arc and another mothod was circle command. How would you guys do it?

Hello guys, well i have a homework for the exams and i have no time, so i need your help. The question is, how i can measure the exact length of an arc (or a polyline) ? See the pic.

Hi there all, I am new here so forgive me if my question is vague or likewise is a bit over the top. I have been sent a client's construction drawing for a care home where i need to design the sprinkler installation. The majority of the rooms have got the same head positions within them, but they have all got a slightly different angle as the building is shaped like a banana. Unfortunately its not a uniform radius that i can tell as the one side is larger than the other. So my question is this. Normally, on a square building, I drop in construction lines along the bedrooms so that i know my sprinkler heads are all the same distance off a wall, and I only need to line up one side. However, with this building being a curve, and the wall angle being slightly different on each room, how do I place an angled construction line or polyline to act as my set out line for my heads. Ive been looking at the drawing and various forums now for the past 2-3 hours and still haven't seen an answer that helps greatly. Thanks in advance, Richard

Hi Guys, Here is what I could do till now with the below code (mainly from Tharwat, but I tweaked a just bit): 1) It asks for the user input to specify the origin (basically setting the UCS) 2) Export XY & Diameter detail to the excel file (converted XY to current UCS using trans function) 3) Adds a 0,0-Origin text so that user knows whether the origin is correct or not. what I'm looking for is this : 1) All the entities (arc or circles) should be numbered on the drawing 1,2,3 etc.... 2) The table what it creates should have the First column for serial numbers (per item 1) and Fifth column for the type of entity (e.g. Arc or Circle) to identify the object type. Can someone help me on this please? Cheers

Hello Now that the problem with OS, XP, W7, 16bit, ... is solved with this little lisproutine, which I'm very happy for it, I discover another small limitation. I noticed that it only measures arc's and no lines. Is it possible to fix this problem? It would be great if it also can measures lines (at the same time time) Does anybody can help me with? Thx in advance Gr ARCRLVOOR_DimVoorSnijden.lsp

Hi guys I just had an upgrade of Autocad 2010 to 2013. However, a very important lisproutine doesn't work properly anymore. What has happened? Can someone help me please? With the lisp I can select several arcs (not polylines!) and when I enter the length and the radius appeares above the selected lines. ARCRLVOOR_DimVoorSnijden.lsp Thx.

Is there any way to pull text from a spreadsheet into arc-aligned text? Like if I were trying to make round inspection tags but didn't want to type in the inspection code each time, or if I needed to change something? Is it possible to put a field into the text to refer to a cell location in Excel? About me: I just started using AutoCAD 2011 (I was previously using AutoCAD 2005) and am having a hard time finding my old controls while learning all the new features for which I got the program. Please use small words.