分享一个CAD插件自动加载的源码

apoul

谢谢老师分享，受教了

1028882406@qq.c

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

390311997

谢谢楼主老师提供分享！

zhangcan0515

谢谢分享好用的

paulpipi

看看学习一下

wzg356

改进一下，你可以编辑放在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

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

999999

顶一下，谢谢分享

moshouhot

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

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

依然小小鸟

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

有错误啊