Потестите программу, кому не лень

Программа для конвертации sdr в текстовый файл.
На 3х компах не работает, а на одном работает.
Отпишитесь какая версия Автокада и Винды, если несложно.
Спасибо.

П.С. Возможно придётся поменять букву диска ( (getfiled "Выберите файл" "H:\\" "sdr" 4) "r") и (setq NewTxtFile (open "H:\\NewTxtFile.txt" "w"))

Код:

(defun c:sdr2txt ( / fcontent DataLine NumPt XCoord YCoord ZCoord MesurementCode Line2File)
  (vl-load-com)
  (setq fcontent (open (getfiled "Выберите файл" "H:\\" "sdr" 4) "r"))
  (setq DataLine (read-line fcontent))
  (setq NewTxtFile (open "H:\\NewTxtFile.txt" "w"))
  (setq DerivationCode (substr DataLine 1 4))
			 (cond (
	(= DerivationCode (or "08TP" "08KI"))
					(Setq NumPt (substr DataLine 5 16)
						  XCoord (substr DataLine 21 16)
						  YCoord (substr DataLine 37 16)
						  ZCoord (substr DataLine 53 16)
						  MesurementCode (substr DataLine 69 16)
						  Line2File (vl-string-left-trim " " (strcat NumPt XCoord YCoord ZCoord MesurementCode))
			);setq
							(write-line Line2File NewTxtFile))
	 );cond2
  (while (/= DataLine nil)
		(setq DataLine (read-line fcontent))
			  (cond (
	 (/= DataLine nil)
					 (setq DerivationCode (substr DataLine 1 4))
			 (cond
	   (
	(= DerivationCode (or "08TP" "08KI"))
					(Setq NumPt (substr DataLine 5 16)
						  XCoord (substr DataLine 21 16)
						  YCoord (substr DataLine 37 16)
						  ZCoord (substr DataLine 53 16)
						  MesurementCode (substr DataLine 69 16)
						  Line2File (vl-string-left-trim " " (strcat NumPt XCoord YCoord ZCoord MesurementCode))
			);setq
							(write-line Line2File NewTxtFile)
)
	 );cond2
   )  
	  );cond1
  );while
  (close fcontent)
  (close NewTxtFile)
  (alert "Готово!")
)

 

А сама программа обязательна? Может, иной способ конвертации sdr туда-сюда, и куда угодно, и в во все дыры форматы из каких угодно? И пофигу Винда, да и наличие самого Автокада.
Попробуйте на трёх машинах программку Геотерминал (на форуме у нас она обсуждается), уверен, везде работать будет.

 

Мне для личного развития.