; Text2Geom.lsp
(defun c:T22G ( / a_ver )
   (and (not *mini_T2G*)
		(setq
			a_ver (atof (substr (getvar "ACADVER") 1 2))
			a_ver
				(cond 
					((>= a_ver 19) "STSC_Text2Geom_v19.dll")
					((>= a_ver 18) "STSC_Text2Geom_v18.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)
)
