OpenDCL运行库按需加载函数

newer · 发表于 2013-6-29 13:55:20

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun XD::Document:AutoLoadOpenDCL (/ arxname arxpath proc_arch)
(or
dcl_getversionex
((lambda (/ proc_arch arxname arxpath)
(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"
)
)
(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
)
)
)
)
)
)

(defun XD::Document:AutoLoadOpenDCL (/ arxname arxpath proc_arch) 
  (or 
    dcl_getversionex 
    ((lambda (/ proc_arch arxname arxpath) 
       (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" 
                     ) 
       ) 
       (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 
         ) 
       ) 
     ) 
    ) 
  ) 
)

/db_自贡黄明儒_ · 发表于 2013-6-29 14:09:13

这个需要放在acad.lsp文件中吗？

newer · 发表于 2013-6-29 14:12:47

/db_自贡黄明儒_ 发表于 2013-6-29 14:09
这个需要放在acad.lsp文件中吗？

放在你的程序需要OPENDCL的前面。你也可以放在ACAD.LSP,ACADDOC.LSP里面。

Free-Lancer · 发表于 2013-6-30 14:33:05

本帖最后由 Free-Lancer 于 2013-6-30 14:34 编辑

这个好像是ODCL样例中的自动加载

(defun _Load_ODCL_Runtime (/ loaderp proc_arch arxname arxpath errmsg)
(or
dcl_getversionex
(and
(setq arxpath
(vl-registry-read
(strcat
"HKEY_LOCAL_MACHINE\\"
(vlax-product-key)
"\\Applications\\OpenDCL"
)
"Loader"
)
)
(setq loaderp t)
(wcmatch (strcase arxpath) "*`.ARX")
(arxload arxpath nil)
dcl_getversionex
)
(and
(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"
)
)
(setq arxpath (findfile arxname))
(arxload arxpath nil)
dcl_getversionex
)
(and
loaderp
(= 2 (boole 1 (getvar "DEMANDLOAD") 2))
(vl-catch-all-apply 'vl-cmdf '("opendcl"))
dcl_getversionex
)
(progn
(princ
(strcat
"Error: "
(if arxpath
(strcat arxpath " <failed to load>")
"OpenDCL runtime <not found>"
)
".\n"
)
)
nil
)
)
dcl_getversion
)

(defun _Load_ODCL_Runtime (/ loaderp proc_arch arxname arxpath errmsg) 
  (or 
    dcl_getversionex 
    (and 
      (setq arxpath 
      (vl-registry-read 
        (strcat 
   "HKEY_LOCAL_MACHINE\\" 
   (vlax-product-key) 
   "\\Applications\\OpenDCL" 
        ) 
        "Loader" 
      ) 
      ) 
      (setq loaderp t) 
      (wcmatch (strcase arxpath) "*`.ARX") 
      (arxload arxpath nil) 
      dcl_getversionex 
    ) 
    (and 
      (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" 
      ) 
      ) 
      (setq arxpath (findfile arxname)) 
      (arxload arxpath nil) 
      dcl_getversionex 
    ) 
    (and 
      loaderp 
      (= 2 (boole 1 (getvar "DEMANDLOAD") 2)) 
      (vl-catch-all-apply 'vl-cmdf '("opendcl")) 
      dcl_getversionex 
    ) 
    (progn 
      (princ 
 (strcat 
   "Error: " 
   (if arxpath 
     (strcat arxpath " <failed to load>") 
     "OpenDCL runtime <not found>" 
   ) 
   ".\n" 
 ) 
      ) 
      nil 
    ) 
  ) 
  dcl_getversion 
)

pengfei2010 · 发表于 2013-7-16 09:14:22

不错不错哈，有点高级没太看懂

yaojing38 · 发表于 2023-3-10 19:23:54

谢谢，，源码谢谢大佬无私奉献

账号		自动登录	找回密码
密码			立即注册

[OPENDCL] OpenDCL运行库按需加载函数

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分

浏览过的版块