How to fix this program?

[Anonymous]

Hello!

I've found a Lisp some days ago that exports intersections points.

Given a polyline (or spline, etc) and a Line crossing this P.line, the lisp should read the intersection points and export them to a .csv file.
This isn't what is happening...

There are 2 things I want to change:

#1 - When the csv file is created, only the X point is exported... I'd like the Y point too.
#2 - For some reason, the UCS location influences the code in a negative way... Depending on the ucs location, the coordinates exported are wrong.

Please, can you help me?
Thank you for your time.
Cheers!

[stevor]

# 1 Better responses when the subject line describes the content

# 2 Clever code, who is the author?

# 3 Y value might be by:

(defun Pnt->Csv  (lst / Str) (setq Str "")
  (while lst
    (setq Str (strcat (rtos (car lst)) (chr 44)   ; X
                      (rtos (cadr lst)) (chr 44)  ; Y
                      Str ) ; strcats
             lst (cdr lst) ) 

  ) ; wh
  Str )

[Anonymous]

Hi Stevor, thank you very much for the answer.

#1 - I did this in the tags, but I'll remember to change the subject line next time.
#2 - It seems that Lee Mac made it, about seven years ago.
#3 - Where exactly I have to paste the code you wrote?

[stevor]

#2 First, paste the Leemac info at the top

of the file, as a comment, by semicolins, etc,

to help you and everyone keep track of things.

#3 Then paste my 'Pnt->Csv suggestion'

at the bottom of the file.

Then load the file, to see if it all works.

As the file is read, it will load the old

'Pnt->Csv subroutine, then the new one,

and so replace the old Pnt->Csv def.

Then you have both on record,

when you change it again.

[Anonymous]

Hi Stevor.

The command isn't working... In the very end, it is returning Nil

[stevor]

Returned nil?

My version got an error,

just as well, as my mod was inappropriate.

The original code should make a file like:

,1,2,3,
Curve 1,-12.7904,-0.1232,0.0000,

Where the 'REALs, -12.7904,-0.1232,0.0000,

are the X displacement values.

What do you want in the CSV file?

[Anonymous]

I will work with the coordinates separately.

I think the easier way to do this is to make another lisp, that consists of exactly the same lisp that I attached, but giving the Y coordinates instead X.

In the end of the story, I'll have 2 LISPs, one to each coordinate. ( I think the command name to call the lisp have to be different too)

[stevor]

After chopping the original code,

here is a version that adds the X and Y values,

based on the original code calculations,

or some more commas for a non-intersection.

In a zip file, since the .lsp version got a forum annotation; The attachment's Intersection-xy.lsp content type (application/octetstream) does not match its file extension and has been removed.

[Anonymous]

Hello Stevor.
Sorry for the late reply, but I had a serious problem that made me lie down on a bed in the hospital until yesterday hahaha

Well, the program works fine untill the "select curve" part. After that, this error is showed:

Select Curve to Measure:
DXY_Csv; error: no function definition: P_