(defun c:AddCalcLink_opnLink_cmdOK_OnClicked (/ row) (setq FileLink (dcl_FileExplorer_GetPathName AddCalcLink_opnLink_FileExplorer)) (dcl_Form_Close AddCalcLink_opnLink) (setq PT (getpoint "\nPick point: ")))