: APPLOAD
Loading C:\ TESTING ROUTINES\ArxBrxClosestPoint.brx
Error loading "C:\ TESTING ROUTINES\ArxBrxClosestPoint.brx": .
C:\ TESTING ROUTINES\ArxBrxClosestPoint.brx loading failed.
Loading C:\ TESTING ROUTINES\ArxBrxClosestPoint.arx
Error loading "C:\ TESTING ROUTINES\ArxBrxClosestPoint.arx": .
C:\ TESTING ROUTINES\ArxBrxClosestPoint.arx loading failed.
Tried from BricsCAD V19.2.14 (x64)
BTW. I also have AutoCAD 2018 (x64), but not 2019, 2020... I suppose from your statement 2019-2020 that it won't arxload there either...
Also I would write test function like this :
(defun c:doit ( / surf pt )
(while
(or
(not (setq surf (car (entsel "\nPick SURFACE..."))))
(if surf
(not (wcmatch (cdr (assoc 0 (entget surf))) "*SURFACE*"))
)
)
(prompt "\nMissed or picked wrong entity type...")
(textscr)
)
(initget 1)
(setq pt (getpoint "\nPick or specify reference point : "))
(entmake (list '(0 . "POINT") (cons 10 (vlaxsurfacegetclosestpointto surf (trans pt 1 0)))))
(princ (cdr (assoc 10 (entget (entlast)))))
(princ)
)