Cool. I looked at ObjectDCL many times over the years and though it was a cool product but I couldn't get myself to use it because (A) I replicate same using visual lisp with activex dlls and (B) I was always worried that the product support might crater {whistling icon goes here}.
Well, since Owen and crew have taken up the good fight I have little reason not to learn how to use this great tool.
So my first task was to look at the loading etc. and dern it if I couldn't stop myself from abusing one of the very first files I encountered. With apologies to Kerry and crew ...
(or
;;==========================================================================
;;
;; LoadOpenDcl.lsp (abused variant of OpenDCL_ARXLoader.LSP)
;;
;;--------------------------------------------------------------------------
;;
;; 2007/06/07 Michael Puckett (modified | abused a variant originally
;; penned by Kerry Brown). Why? Attempt to (A) Make more
;; efficient on 'already loaded' scenario, and (B) Be more
;; helpful on failure: 'Was the arx not found or did it bomb
;; the arxload attempt'.
;;
;; Sorry KB, I just can't help myself. :D
;;
;;==========================================================================
;; Already loaded, no need to do anything else.
odcl_getversionex
;; Not loaded, let's attempt to load her up ...
( (lambda ( / proc_arch arxname arxpath )
;; Determine the appropriate arx module for
;; the processor and the AutoCAD version.
(setq arxname
(strcat "OpenDCL"
(if
(and
(setq proc_arch (getenv "PROCESSOR_ARCHITECTURE"))
(< 1 (strlen proc_arch))
(eq "64" (substr proc_arch (1- (strlen proc_arch))))
)
".x64."
"."
)
(substr (getvar "acadver") 1 2)
".arx"
)
)
;; Alert the user of a failure to:
;;
;; (A) Find the arxfile, or
;; (B) Load the arxfile.
;;
;; and return nil.
;;
;; Otherwise just quietly return t.
(cond
( (null (setq arxpath (findfile arxname)))
(alert (strcat "Couldn't find " arxname "."))
)
( (null (arxload arxpath 'nil))
(alert (strcat "Failed to load " arxname "."))
)
( t )
)
)
)
)
A mighty kudos to Owen Wengerd, David Robison, David White, Kerry Brown, James Maeding et al ... for resurrecting this mighty fine tool. Oh the possibilities ...