Topic: (cadr (nentsel))

[Grrr1337]

Your picture shows the work.
My final goal is to work with the selection point to calculate the distance between it and the ends of the block.

IMO alot more efficient would be if you include that axis line into the block's definition, so we could skip all the nasty explode stuff.
And this one should give you everything you need, both distances and the coordinates of the closest point:

Code: [Select]

(defun C:test ( / p pick e enx BothDistances ClosestPoint)
  (while
    (not
      (and
        (setq p (getpoint "\nSelect the line: "))
        (setq pick (nentselp p))
        (setq e (car pick))
        (= "LINE" (cdr (assoc 0 (setq enx (entget e)))))
        (if (apply '< (setq BothDistances (mapcar '(lambda (x) (distance p (cdr (assoc x enx)))) (list 10 11))))
          (setq ClosestPoint (cdr (assoc 10 enx)))
          (setq ClosestPoint (cdr (assoc 11 enx)))
        )     
      )
    )
    p
  )
  (alert
    (strcat
      "\nFirst distance: " (rtos (car BothDistances) 2) " units."
      "\nSecond Distance: " (rtos (cadr BothDistances) 2) " units."
      "\nClosest Point is located at: " (vl-princ-to-string ClosestPoint) " coordinates."
    )
  )
  (princ)
)
Although it was an interesting practice!

[velasquez]

Your picture shows the work.
My final goal is to work with the selection point to calculate the distance between it and the ends of the block.

IMO alot more efficient would be if you include that axis line into the block's definition, so we could skip all the nasty explode stuff.
And this one should give you everything you need, both distances and the coordinates of the closest point:
Although it was an interesting practice!

The image shows how my work is.
The selection point obtained with (cadr (nentsel) is used in the left block without problem.
Note that in the right block the calculation fails, always returning the same coordinate.

[Grrr1337]

I don't think you'll have this problem with the last code I posted, the only requirement is to include that line into the block's definition.

[ribarm]

Here is my snippet, but I haven't read whole topic deeply, so this is only applicable for picking curves such as LINE among others...

Code - Auto/Visual Lisp: [Select]

1. (defun c:test ( / s l p )
2.  
3.   (vl-load-com)
4.  
5.   (while (setq s (nentsel))
6.     (setq l (car s))
7.     (setq p (cadr s))
8.     (setq p (vlax-curve-getclosestpointtoprojection l (trans p 1 0) (getvar 'viewdir)))
9.     (if (> (vlax-curve-getdistatpoint l p) (/ (vlax-curve-getdistatparam l (vlax-curve-getendparam l)) 2.0))
10.       (prompt "\nPicked point is closer to end point of curve...")
11.       (prompt "\nPicked point is closer to start point of curve...")
12.     )
13.   )
14.   (princ)
15. )
16.  

Regards...

[roy_043]

@Marko:
I think the viewdir is expressed in the current UCS.
So you should use:

Code: [Select]

(trans (getvar 'viewdir) 1 0 T)

[ribarm]

@Marko:
I think the viewdir is expressed in the current UCS.
So you should use:

Code: [Select]

(trans (getvar 'viewdir) 1 0 T)

Yes, Roy, you're right... Thanks for heads up... I've corrected my library in all occurs of this mistake... I simply haven't checked it in random UCS...
Many thanks... M.R.

[velasquez]

I appreciate the help I'm getting.