Leaderboard

Try this (defun c:co (/ sset basepoint) (princ "\nSelect objects:") (setq sset (ssget)) (setq basepoint (getpoint "\nSpecify base point:")) (vl-cmdf "_.copybase" basepoint sset "") (while (setq pt (getpoint "Pick next point Enter to stop ")) (vl-cmdf "pasteclip" pt) ) (princ) )

We are talking about car ramps here, having dealt with this problem where we had vehicle access into house properties. You are relying on the concreter to build the ramp, so a spline is a complicated shape, you need to set points along the ramp the more the better to make the shape to what you want. So maybe a peg every 1m, from a design point of view using arcs in a pline is much easier. In simple terms there is a G1-G2 answer where a car will not bottom out, the other answer was for a standard car AUS stds, a 13m radius will work every time. We had a problem in one property where a 1 driver car was ok, add 3 passengers, it scraped. The shape here is a custom one.

Here's one possible way - (vl-sort lst '(lambda ( a b ) (< (vl-position (atoi (cadr a)) dsd) (vl-position (atoi (cadr b)) dsd)))) Or, perhaps faster: (mapcar '(lambda ( n ) (nth n lst)) (vl-sort-i (mapcar '(lambda ( x ) (vl-position (atoi (cadr x)) dsd)) lst) '<)) Or, if you only want members that are present in dsd, you could use - (vl-remove nil (mapcar '(lambda ( x ) (car (vl-member-if '(lambda ( y ) (= x (atoi (cadr y)))) lst))) dsd))