Leaderboard

Yup .. just tested here. I'll see if I can find that key as well.

Updated code above: ("Enter name of file to overlay" "InitialDirectory")

Just to add to this, a sample drawing attaching a dwg rather than a clip of an image would give everyone a chance to work out what you want. Assuming the mirror command - my first thought - is no good. Things like are the lines shown polylines, lines, leaders, circles. Is the text mtext, text or a dimension text, are the texts consistently offset from the original line or does that vary and even if all the lines are perpendicular to the axis or at angles.. all these things we could get from a sample dwg attached.

Appearantly rifkhan doesn't want a solution.

add (setq myoutput (list P2 P3 P8)) and (setq myoutput (list P2 P3 P4 P5 P6 P7 P8)) to your point or line setq lists, append these to another list where your comment is, then after your foreach loop go through this appended list and export to excel all in one go at the end?

Something which keeps you from moving in the right direction is not trivial. It sounds like you resized your MODEL SPACE elements? Typically in Autocad anything drawn in Model Space is drawn full sized 1:1 Resizing is typically done through Viewports which are placed in Paperspace. If you have rescaled your Scale Bar too, then you can rescale it by referencing it.

This will step thought each selection you make and get the relative information but it needs to be outputted to excel before the next one is processed. (defun C:SSAEXT (/ SS P1 P2 P3 P4 P5 P6 P7 P8 output Main_output) (vl-load-com) (setq SS (ssget '((0 . "LWPOLYLINE,LINE,POINT")))) (foreach obj (vl-remove-if 'listp (mapcar 'cadr (ssnamex SS))) (setq ent (vlax-ename->vla-object obj) P1 (vla-get-Objectname ent) ) (cond ((eq "AcDbPoint" P1) (setq P2 (vlax-get ent 'layer) P3 (vlax-get ent 'color) P8 (caddr (vlax-get ent 'Coordinates)) output (list P1 P2 P3 P8) ) ) ((eq "AcDbLine" P1) (setq P2 (vlax-get ent 'layer) P3 (vlax-get ent 'color) P4 (vlax-get ent 'length) P5 (vlax-get ent 'linetype) P6 (vlax-get ent 'Lineweight) P7 (vlax-get ent 'thickness) P8 (caddr (vlax-get ent 'Startpoint)) ;assumes flat line output (list P1 P2 P3 P4 P5 P6 P7 P8) ) ) ((eq "AcDbPolyline" P1) (setq P2 (vlax-get ent 'layer) P3 (vlax-get ent 'color) P4 (vlax-get ent 'length) P5 (vlax-get ent 'linetype) P6 (vlax-get ent 'Lineweight) P7 (vlax-get ent 'thickness) P8 (vlax-get ent 'Elevation) output (list P1 P2 P3 P4 P5 P6 P7 P8) ) ) ) (setq Main_output (cons output Main_output)) ) ;Send Main_Output to excel (princ) )

I don't have a lisp, but I use CAB's break lisp explained here: https://skillamplifier.com/break-selected-objects-autocad/ Then I use the lengthen command with negative distance, I have a shortcut for entering. Works well for a few lines, but because lengthen only accepts single object section, not a fence selection, it is tedious to pick lots of lines. (in Bricscad v15 at least) (defun c:LD () (command "LENGTHEN" "DELTA") (princ))

Welcome to CadTutor Gokhan Gok. I would suggest that you start by drawing the Radius 4 circle, for which the center location is defined, and then work back towards the part which you have already done. You will be relying on your TANGENT snap a lot, and I would probably just create circles first, and once I felt comfortable about them, I would use the TRIM command (with the ALL option) to delete any arcs which you don't want. Once finished and after rechecking I would use the PEDIT command to join them.

when i am click the text should come like attached .............