sort point list..

I posted a few months ago regarding this problem, and was provided with
a few ideas.. unfortunatly they don't seem to be doing what i need..

a quick history:
I am gathering text into a selection set, then extracting insertion
points into a list (see figure "a") I need the lists sorted in such a
way that it would always return a result like figure "b" (it may help
you to understand if you take the points and plot them like a graph).


Figure "a" (starting list):
((1,4)(1,3)(1,0)(2,2)(3,3)(3,1))

Figure "b" (target list):
((1,4)(1,3)(3,3)(2,2)(3,1)(1,0))



if the graph idea doesn't do it for you then try this:

assign each point a word..
1,4 this
1,3 is
1,0 want
2,2 result
3,3 the
3,1 I

once the points are sorted to match figure "b" it would read "This is
the result I want".

I hope someone can help me with this..

Thanks.

 

Use vl-sort or vl-sort-i. Post the points in correct lisp format and I'll post a
solution.

 

((1,4)(1,3)(1,0)(2,2)(3,3)(3,1))

that is correct lisp format.. or are you refering to the lack of a z cord?

((1,4,0)(1,3,0)(1,0,0)(2,2,0)(3,3,0)(3,1,0))

 

No it isn't.

No

If you can't express the points correctly, then any help I
offer won't work.

Try (getpoint) and see what it returns. Look closely.

 

Hint: "correct LISP format" has no commas, only spaces.
___

 

oh my god!..

not to sound rude or anything, but your not going to help because i put
in comma's instead of spaces!?! wow.

I supose others would have posted if i had used a little better grammer
and punctuation.. not to mention spelling.

;|rant over|;

((1.0 4.0 0.0)(1.0 3.0 0.0)(1.0 0.0 0.0)(2.0 2.0 0.0)(3.0 3.0 0.0)(3.0
1.0 0.0))

 

Lisp is very unforgiving. You need to do your own homework. Otherwise
you will be unable to use whatever is given to you. Knowing how to
make a point list is prerequisite to doing anything with it. Sorry. Hard
facts of life.

(setq ls (vl-sort ;<-- results in ls

'((1 4)(1 3)(1 0)(2 2)(3 3)(3 1)) ;<--- list as you want.

'(lambda (x y)
(or
(> (cadr x)(cadr y))
(and
(= (cadr x)(cadr y))
(> (car x)(car y)))))))

 

that returns a list of:
((1 4)(3 3)(1 3)(2 2)(3 1)(1 0))

the target list was:
((1 4)(1 3)(3 3)(2 2)(3 1)(1 0))

is there another way?

 

Try expressing your requirements in concrete
terms rather than by an example that we must
reverse engineer.

Your example suggests that you want to
sort first by descending Y ordinates, and
then by ascending X ordinates.

Is that correct?

 

Yes Tim spotted the error if you want ascending x coordinates. Thanks Tim.


(setq ls (vl-sort ;<-- results in ls

'((1 4)(1 3)(1 0)(2 2)(3 3)(3 1)) ;<--- list as you want.

'(lambda (x y)
(or
(> (cadr x)(cadr y)) ;descending y coordinates
(and
(= (cadr x)(cadr y))
(< (car x)(car y))))))) ;<--ascending x coordinates

 

No problem. I could've used this little sort a while ago, just couldn't think of how to do it. Thanks for the example.

Tim

 

Thank you

 

Thank you

 

You're welcome.

Tim

 

You're very welcome.