topic Re: how to create lisp to make a profile from text file in autocad in Visual LISP, AutoLISP and General Customization Forum

how to create lisp to make a profile from text file in autocad

giscivil92 — Mon, 25 Mar 2024 10:03:22 GMT

Hello everyone

I have some information like this format Kilometer Elevation as a text file!

I appreciate it if you guide me, how can I create a lisp to create a profile from a file like the above format in AutoCAD!?

Thanks for your attention

Re: how to create list to make a profile from text file in autocad

hak_vz — Mon, 25 Mar 2024 09:25:05 GMT

Simplest way

Rewrite your profile data as let say

0,100

20,80

30,90....

Place UCS origin to start from 0,0 of profile you are creating

copy all data to clipboard

start command PLINE and paste

finish PLINE command with enter

Re: how to create list to make a profile from text file in autocad

-didier- — Mon, 25 Mar 2024 09:53:21 GMT

Bonjour @giscivil92

To do what you’re asking, you’d have to give us examples.
I understand that we start from a TXT file, but what should we get as a drawing?
Thank you for helping us to help you.

Amicalement

Re: how to create lisp to make a profile from text file in autocad

giscivil92 — Mon, 25 Mar 2024 10:30:32 GMT

@-didier-

@hak_vz

A vertical profile with grids like this,

read the information from text file and create grid.

Re: how to create lisp to make a profile from text file in autocad

hak_vz — Mon, 25 Mar 2024 11:29:05 GMT

@giscivil92 wrote:

@-didier-

@hak_vz

Hi

A vertical profile with grids like this,

read the information from text file and create grid.

Sorry have no time to work on your lisp, currently at work. This lisp is so simple but you didn't start with lisp programing.

Anyway, Align UCS along vertical axis (command UCS OB) and paste points in pline command. It takes exactly same time as open the lisp and pick starting point.

Re: how to create lisp to make a profile from text file in autocad

kajanthangavel — Mon, 25 Mar 2024 12:38:23 GMT

Hi, I did the same work at my previous company. I think this is help you.

(defun LWPoly ( lst ) (entmakex (append (list (cons 0 "LWPOLYLINE") (cons 100 "AcDbEntity") (cons 100 "AcDbPolyline") (cons 90 (length lst)) ) (mapcar '(lambda ( p ) (cons 10 (trans p 1 0))) lst) ) ) ) (defun c:pro (/ pline ht ch) (command "ucs" (getpoint "\nPick starting point :") "") (while (and (setq ch (getreal "\nType or paste Station : ")) (setq ht (getreal "\nType or paste Hight : ")) ) (setq pline (cons (list ht (- 0 ch)) pline)) ) (LWPoly pline) (command "ucs" "p" ) (princ) )

Re: how to create lisp to make a profile from text file in autocad

giscivil92 — Mon, 25 Mar 2024 13:05:36 GMT

@kajanthangavel Hi

Thanks for your attention, That's it but I want to draw those grids and labels along with polyline!

Re: how to create lisp to make a profile from text file in autocad

-didier- — Mon, 25 Mar 2024 15:39:53 GMT

Bonjour @kajanthangavel

I wasn’t sure.

I haven’t worked on it yet because I thought it should be a complete program.
I’m out of time to do it right away, it’s pretty simple, you want to learn to do it, or you want we do it for you?

Question : Y coordinates must be negative in all cases?

Amicalement

Re: how to create lisp to make a profile from text file in autocad

autoid374ceb4990 — Tue, 26 Mar 2024 01:02:36 GMT

I am just an old civil engineer and all the profiles I have ever created or seen have the distance on the X axis and the elevation on the Y axis. Is there a reason your profile seems (to me at least) to be rotated 90 deg.?

Re: how to create lisp to make a profile from text file in autocad

Sea-Haven — Tue, 26 Mar 2024 04:03:37 GMT

Next question will be how to scale in X & Y direction.

Re: how to create lisp to make a profile from text file in autocad

giscivil92 — Tue, 26 Mar 2024 04:08:41 GMT

@autoid374ceb4990 Yes sure, but according to specific work I need to rotate the profile 90 degree!

Re: how to create lisp to make a profile from text file in autocad

giscivil92 — Tue, 26 Mar 2024 04:10:25 GMT

@Sea-Haven yes you are right , that needs a scale in y direction equals 10 times bigger than x

Re: how to create lisp to make a profile from text file in autocad

kajanthangavel — Thu, 28 Mar 2024 08:12:48 GMT

Try This