Help to fill the Curve Data table

[arshadmirza786]

I am thank full, If any one HELP to write a lisp to Fill The Block (Curve data) attributes 

Block and Curve dwg file is attached

[dlanorh]

can you re-post the drawings in AutoCAD 2010 format?

[arshadmirza786]

Yes please find 2010 format

[dlanorh]

Please define what you require for the "Tangent length"  and where the "Deflection Angle" is measured (IP or Centre point of arc)

[CADaSchtroumpf]

Hi,

You have this recent thread very similar to your request.
Look at it, there would not be much to change to fit your settings.

[arshadmirza786]

Thank you to lead to this link

https://forums.autodesk.com/t5/visual-lisp-autolisp-and-general/simplify/td-p/8596922

its out put is not in ENGLISH,

I am a 62+ young man and haven't written a word in lisp

Pls help me to fill in the table attached Thats great help 

[dlanorh]

---

I am a 62+ young man and haven't written a word in lisp

Pls help me to fill in the table attached Thats great help 

---

Snap!

I have the bones of the lisp written, I just have to insert and update the block, which leads me to a few questions :

1. Do I have to use this block, or can I update it, as it would be easier to set all attributes to preset, insert the block then update the attributes? Also I noticed that there is a ' feet indicator inside the block. Again it would be better to omit this from the block as it will get overwritten by the attribute.

2. Start of curve and End of curve  :  are these displayed as chainages or distances?

3. Do you need the centre point of arc coordinates?

4. Do you have a lisp to insert the chainages and markers as this could be easily incorporated?

[dlanorh]

This is what I have so far. I have attached your original drawing with the road alignment copied to the side. The attached lisp produces the MText curve report. At present the MText is inserted with the top left corner on the IP point in layer "0" height 10. This is adjustable, and is purely for demonstration purposes

Assumptions :

1. Tangent is the distance from the IP point to either the Tangent to Curve(TC)  or Curve to Tangent (CT) Point.

2. LWPolylines only

You can erase the text and rerun it on the copied LWPolyline. Once the lisp is loaded type PR to run it.

It is possible to mark the IP points and arc center points if required.

I await your reply to my previous questions

[arshadmirza786]

I have try at my end and got this error

"Command: PR
Select Polyline :
Select objects:
Oops an Error : no function definition: GC:CLOCKWISE-P occurred."

pls address this too

[dlanorh]

Updated lisp attached.

Answers to questions?

[arshadmirza786]

Sorry for delay to Answers

Message # 7

1- without Block is better , no need to insert the block 1st to run the lisp

2- Chainage

3- No Center point  coordinates

4- attached 

5- please delete the (') ft sign

Message # 8

1- Tangent is the distance from the IP point

2- I think simple POLYLINE is better or LWPolyline does not matter

This lisp file is from ESURVEY

Thank you

[dlanorh]

OK, I'm away from the office for much of the day, but will try to incorporate the changes as I have so "waiting time" on site. I should have something ready by this evening (GMT +1). I am able to check back here, but not post.

[dlanorh · Accepted solution]

Attached is latest LISP. I have included a chainage routine, but not your supplied one as this was a *.FAS file.

This asks if you want to add chainage marks (Yes  No) default is Yes

If Yes you are then asked for chainage interval (how often you want a tick), Chainage Text Interval and Start Chainage.

This allows a start chainage (multiple of chainage interval) if required. Default is 0.0. If a different start chainage is entered it will be reflected in the curve details

You are then asked if you want to add IP marks (Yes  No) default is Yes

The lisp now makes use of the dynamic prompt features so all choices have a default value and should appear alongside the cursor to allow selection by mouse. The default can be accepted by pressing enter or if implimented, right clicking the mouse.

All text is in the current text style and at the current text height (sysvar "textsize"). All items; text and inserts are on layer 0. It is quite easy to change the layer and or colour if so required.

Another possiblility would be to write the curve data to a CSV file that could be opened in excel if required. This again would be relatively easy to impliment.

[dlanorh]

@arshadmirza786 

Please find attached an updated Lisp.

This should handle non zero start chainages better than the previous lisp.