Leaderboard

You're right to be puzzled, this diagram is missing several vital dimensions.

(setq str (assoc 10 <entget>)) (setq end (assoc 11 (reverse <entget>)))

The dashed lines are called Center lines. Doesn't appear to have all of the information, you'll need to insert in AutoCAD and scale it using Reference option and one of the given dimensions. Search here for Scale Reference and inserting Images, etc.

Ish you have made a lot of requests but not much providing solutions, maybe time to have a go, you should by now know how to search for what you have asked for. Get pline co-ords (setq co-ord (mapcar 'cdr (vl-remove-if-not '(lambda (x) (= (car x) 10)) (entget (car (entsel "pick pline"))))) Make a table and fill search Export co-ords to csv search

Dashed lines use a linetype that is dashed just happens that is what one is called, you may need to change linetype scale use properties. The circles appear to be at 45 degrees form centre. The verticals appear to match the top circles centres so draw a line from centre of each this will give top of line. Use offset for dashed line, use Intersection snap to find center of circles.

1. Yes the following will return the angle of the 3dpolyline at it's start point. Just paste to the command line, press return and select the 3dpolyline. The return is an angle in radians. It obviously gets more complicated if segment angles change. (angle '(0.0 0.0 0.0) (vlax-curve-getfirstderiv (car (entsel)) 0)) 2. Yes there are other ways of deleting duplicate text. Make a list of all text, sort by insertion point coordinates then compare text string value. Whether it is more effective is subjective.

Sorry but this was a stupid decision. Now you have to pay more for the computers to run it on (unless you buy a crippled iMac) and you also lose some functionality from the PC version. I mean there is NO AutoCAD for Mac Architecture, Electrical, Civil 3D, Map 3D and MEP toolsets. So in order to use these on your Mac you now have to buy a copy of Windows 10 to either run in parallels (another purchase) or bootcamp.

You can use my existing Quick Field program for this task, defining a custom command such as: (defun c:tcopy ( ) (LM:quickfield "Textstring" "" 1))

Thank you - in that case you could define a program with the following parameters: (defun c:test ( ) (LM:QuickField "CustomScale" "1:%lu2%ct1%qf2816" 1)) Do you see the pattern and understand how the sections are taken from the field code?

You're welcome! I'm happy to guide you, but could you please post a clearer image of the Field dialog, as the image that you have attached is too pixelated to decipher the field code - ensure the image is saved as a vector format such as png/gif and is not larger than 800x600 otherwise the forum will automatically convert the image to a jpg and scale it down.

Does a regen cause it to display correctly?

You could create a program using my Quick Field utility to perform this task.