OpenDCL按需加载函数

newer

实现了X86,X64不同版本的ARX运行文件加载。

[pcode=lisp,true]
(defun _Load_ODCL_Runtimes ( )

    ;;  If ObjectDCL is already loaded return T, otherwise
    ;;  attempt to load (return T on successful load, else
    ;;  print an appropriate message; return nil).

    (or

        ;;  Already loaded, no need to do anything else.

        (dcl_getversionex)

        ;;  Not loaded, attempt to load the runtimes explicitly.

        (   (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"
                    )
                )

                ;;  What was the result?

                (cond
                    (   (null (setq arxpath (findfile arxname)))
                        (princ (strcat "Couldn't find " arxname ".\n"))
                        nil
                    )
                    (   (null (arxload arxpath nil))
                        (princ (strcat "Failed to load " arxname ".\n"))
                        nil
                    )
                    (   t   ) ;; We're good.
                )
            )
        )
    )
)
[/pcode]

zyhandw

感谢版主分享，写法与opendcl中demo一致