Issue while generating line segments with a lisp code

[Anonymous]

Hello Everyone,

I am using the following AutoLISP code to generate line segments (ref).

(defun graph ( pts sls tls )
(   (lambda ( l )
        (foreach x l (text (cdr x) (itoa (car x)) 0.0 1))
        (mapcar
           '(lambda ( a b / p q r )
                (setq p (cdr (assoc a l))
                      q (cdr (assoc b l))
                      r (angle p q)
                )
                (entmake (list '(0 . "LINE") (cons 10 p) (cons 11 q) '(62 . 8)))
                (text
                    (mapcar '(lambda ( x y ) (/ (+ x y) 2.0)) p q)
                    (rtos (distance p q) 2)
                    (if (and (< (* pi 0.5) r) (<= r (* pi 1.5))) (+ r pi) r)
                    2
                )
            )            sls tls
        )
    )
    (mapcar 'cons (vl-sort (append sls tls) '<) pts)
)
)
(defun text ( p s a c )
    (entmake
        (list
           '(0 . "TEXT")
            (cons 10 p)
            (cons 11 p)
            (cons 50 a)
            (cons 01 s)
            (cons 62 c)
           '(40 . 2)
           '(72 . 1)
           '(73 . 2)
        )
    )
)

and the sample input for which the above code works fine is the following 

(graph
   '((75 25) (115 45) (90 60) (10 5) (45 0) (45 55) (0 25))
   '(1 1 1 1 2 2 3 4 4 5 6)
   '(2 3 4 5 3 6 6 5 7 7 7)
)

But I am not sure why the diagram is not created for an input where more data points are present.

Could someone kindly look at the input available here? I am not sure why the drawing isn't created for this data.

[pbejse]

A graph was created. although it doesnt look anything that make sense

Looks like somebodys john hancock or a super drunk guy handwriting

Text removed for clarity

[hak_vz]

Everything is OK.

In provided data set you have a bunch of 3d points, and as a result you receive 3d graph. Use free orbit and look at the graph from different viewpoint.

[Anonymous]

That's the expected output! Thanks for posting

Could you please check for the second input updated in the same file here?

I think there is a problem when the coordinates are negative. The drawing isn't created.

[Anonymous]

Could you please check if it works fine with the second set of points updated here ( test2)

[pbejse]

---

@Anonymous wrote:

That's the expected output! Thanks for posting

Could you please check for the second input updated in the same file here?

---

Here you go

Graph1 and graph2 as dwg.

BTW: its on 3D view now when you open the file.

[hak_vz]

I have tested it on that data set too. It is a 3d graph.

[Anonymous]

@hak_vz  @pbejse 

I've been trying to run this code from python for generating these diagrams and the output dxf files

aren't generated for the inputs posted above (test1 and 2). The output dxf file is created successfully for the sample 2D input posted in the original post. Could you please suggest if there is anything that has to be modified in the code for the 3D data points?

Please note: The function in lisp file is shared in the original post.

[hak_vz]

Lisp code seems written ok, and there shouldn't be problem with 2s or 3d point, with positive or negative coordinate value.

When you run python code does it finish with "Process Finished"      

[Anonymous]

This is what I find

while running for test2. Unfortunately, I find only quit status and not `process completed`

test0 with 2D points runs fine without any issue from python.

[hak_vz]

try to replace

'(setvar "SECURELOAD" *LOAD_SECURITY_STATE*)\n'

with

"(setvar 'SECURELOAD *LOAD_SECURITY_STATE*)\n"