社区 › 源码共享 › 分享一个CAD插件自动加载的源码

apoul 发表于 2020-4-10 14:52:41

谢谢老师分享，受教了

1028882406@qq.c 发表于 2020-4-18 14:31:46

怎么加载不了ARX格式的程序

390311997 发表于 2020-4-18 15:45:54

谢谢楼主老师提供分享！

zhangcan0515 发表于 2020-8-17 14:15:46

谢谢分享好用的

paulpipi 发表于 2020-8-23 10:36:39

看看学习一下

wzg356 发表于 2020-9-7 09:58:42

改进一下，你可以编辑放在0楼，拖拽加载，放在那儿都行，不用写路径了



;lsp文件拖入cad绘图区域.能获取 lsp 自身路径
;cad有(command "_.copyhist")同样可以获取加载lsp文件自身路径.而且.路径很长或有空格时同样正确.
;;;xshrimp 2011.7
(vl-load-com)
(OR
xzj-clip-gettxt
(defun xzj-clip-gettxt (/ html result)
    (if (setq html   (vlax-create-object "htmlfile"))   
        (progn
          (setq result
               (vlax-invoke-method
                     (vlax-get
                          (vlax-get html 'parentwindow)
                          'clipboarddata
                        )
                     'getdata
                     "text"                  
                  )
           )
          (vlax-release-object html)   
          (if (= (type result) 'variant) (vlax-variant-value result)result) ;add
       )
   );end if
    )
)
(defun xzj-CurrentDirectory( / key len nn str str2)
(while (= (logand (getvar "CmdActive") 1) 1)(command))
(princ "\n")(command "_.copyhist")
(if (setq str(xzj-clip-gettxt))
(progn
    (setq str2 (strcase str))   
    (setq len (strlen str) nn (- len 2))
    (while        
          (progn
             (setq key (substr str nn 1) nn (1- nn))
             (and (> nn 0)(/= "\"" key))
             )
    )
      (setq str (substr str (+ nn 2) (- len nn 3)))
      (while (vl-string-search "/" str)   (setq str (vl-string-subst "\\" "/" str) ))
      (while (vl-string-search "\r\n" str)(setq str (vl-string-subst "" "\r\n" str)))      
      ;(alert (strcat "加载文件路径为: " str))
)
)str
)
;自动加载CAD插件
(defun ll_lsp_autoload ( / str1 str2 ll_lsp_file ll_vlx_file ll_fas_file ll_arx_file i)
(setvar "cmdecho" 0)
(setq str1(car(fnsplitl(xzj-CurrentDirectory))))
(setq str2(vl-string-right-trim "\\" str1))
(setq ll_lsp_file (vl-directory-files str2 "*.lsp" 1))
(setq ll_vlx_file (vl-directory-files str2 "*.vlx" 1))
(setq ll_fas_file (vl-directory-files str2 "*.fas" 1))
(setq ll_arx_file (vl-directory-files str2 "*.arx" 1))
(if (or(/= ll_lsp_file nil) (/= ll_vlx_file nil) (/= ll_fas_file nil) (/= ll_arx_file nil))
    (progn
      (setq ll_lspfile (append ll_lsp_file ll_vlx_file ll_fas_file ll_arx_file))
      (foreach i ll_lspfile (vl-catch-all-apply 'load (list (strcat str1 i))))
    )
)
(setvar "cmdecho" 1)
)
(ll_lsp_autoload)
(setq xzj-CurrentDirectory nil)
(princ)

common 发表于 2020-9-8 10:27:14

学习一下，有空也练习练习

999999 发表于 2020-9-8 11:19:42

顶一下，谢谢分享

moshouhot 发表于 2020-11-24 09:25:16

wzg356 发表于 2020-9-7 09:58
改进一下，你可以编辑放在0楼，拖拽加载，放在那儿都行，不用写路径了




; 错误: 参数类型错误: VLA-OBJECT ""
请问是怎么回事？

依然小小鸟 发表于 2020-11-26 10:20:08

wzg356 发表于 2020-9-7 09:58
改进一下，你可以编辑放在0楼，拖拽加载，放在那儿都行，不用写路径了




有错误啊{:1_1:}

查看完整版本: 分享一个CAD插件自动加载的源码