; Text2Geom.lsp
(defun c:T22G ( / a_ver )
   (and (not *mini_T2G*)
		(setq a_ver (substr (getvar "ACADVER") 1 2)
			  a_ver (cond ((= a_ver "18") "STSC_Text2Geom_v18.dll")
						  ((member a_ver (list "19" "20" "21")) "STSC_Text2Geom_v19.dll")
						  ("TextToGeom.dll")
					)
			  a_ver (mai_panel_search a_ver)
		)
		(progn
		   (setq *mini_T2G* T)
		   (command-s "netload" a_ver)
		)
   )
   (if *mini_T2G* (vla-sendcommand (vlax-get-property (vlax-get-acad-object) 'activedocument) "T2G\n"))
   (princ)
)
