飞诗LispEdit贴合ACAD

zyx1029

a349925347 发表于 2024-2-23 13:58
是限制CAD版本了吗？

在此路径下C:\Program Files\Autodesk\AutoCAD 2023\Support\zh-CN找到acad版本号doc.lsp（acad2023doc.lsp文件）文件用记事本打开，添加一下代码：

(Command "_netload" "C:/Program Files/Autodesk/飞诗Lisp编辑器/Link40.dll")

注意修改link40.dll文件的路径，而且  /  这个一定要设置对。

小旋风

vpddup 发表于 2022-2-11 11:02
非常感谢您的耐心解答。

没有加载脚本，加载一下就OK了吧！

大角牛

taoyi0727 发表于 2019-9-21 14:21
能用吗?
原来是,要用飞诗,是先打开飞诗,再用飞诗打开CAD
楼主这个方法好像只用CAD来打开飞诗

为啥我还是不能在飞诗使用高版本CAD进行调试呢，在CAD支持路径增加了飞诗的安装位置的

teykmcqh

感谢无私分享！

zhwc125

感谢无私分享！学习了！！

大角牛

zyx1029 发表于 2024-11-19 13:45
在此路径下C:\Program Files\Autodesk\AutoCAD 2023\Support\zh-CN找到acad版本号doc.lsp（acad2023doc.l ...

命令: ; 错误: no function definition: LispEdit_UpdateWatch

437271963

2. <div class="blockcode"><blockquote>(defun c:tes ( / cad5 ff1 ff5 strcaption tmp tmp5)
   
3. (setq ff1 "D:\\feishi");添加飞诗路径
   
4. (vl-load-com)
   
5. (setq strCaption (strcase (vla-get-Caption (vlax-get-acad-object))))
   
6. (cond
   
7.   ((vl-string-search "浩辰CAD" strCaption 0) (setq cad5 "GCAD"))
   
8.   ((vl-string-search "中望CAD" strCaption 0) (setq cad5 "GCAD"))
   
9.   ((vl-string-search "AUTODESK AUTOCAD" strCaption 0) (setq cad5 "ACAD"))
   
10.   (t (setq cad5 nil))
    
11. )
    
12. (if (and cad5
    
13.           (setq tmp (getenv cad5))
    
14.           (setq tmp5 (strcase tmp))
    
15.           (setq ff5 (strcase ff1))
    
16.           (= (vl-string-search ff5 tmp5 0) nil)
    
17.           (setq tmp (strcat ff1 ";" tmp))
    
18.      )
    
19.   (setenv cad5 tmp)
    
20. )
    
21. (if cad5 (feishi_220411 ff1));加载飞诗
    
22. (princ)
    
23. )
    
24. 
    
25. 
    
26. 
    
27. ;加载飞诗
    
28. (defun feishi_220411 (ff1 / ff1 s ss x)
    
29. (if (not (vl-vlx-loaded-p "ListDCLediter"));检查是否已经加载
    
30.   (if (and ff1 (setq ss (mapcar 'strcase (zl-directory-GetFiles ff1 "*.vlx" t)));飞诗-对话框
    
31.                (setq s (vl-remove-if-not '(lambda(x) (= (strcat (vl-filename-base x) (vl-filename-extension x)) "LISTDCLEDITER.VLX")) ss))
    
32.       )
    
33.       (if (vl-catch-all-error-p (vl-catch-all-apply 'load s));飞诗第一次可以加载，第二次就不能加载,不提示
    
34.        (princ "\n未成功加载飞诗文件【ListDCLediter.vlx】")
    
35.        (if (> (length s) 1) (princ (strcat "\n加载的文件有多个" (vl-prin1-to-string s))) )
    
36.       )
    
37.    (princ "\n未找到飞诗【ListDCLediter.vlx】文件")
    
38.   )
    
39. )
    
40. )
    
41. 
    
42. ;;;=================================================================*
    
43. ;;;       通用函数
    
44. ;;; 功能：获取目录内全部文件名
    
45. ;;; 参数：path ----- 字符串。目录名称。
    
46. ;;;       str  ----- 字符串。过滤条件。
    
47. ;;;                  例如："*.dwg"
    
48. ;;;       pd_SF ----- T 或 nil。是否含子目录的标识。
    
49. ;;; 返回：文件名列表
    
50. ;;; 测试：(zl-directory-GetFiles "d:\" "*.txt" nil)
    
51. ;;; 日期：zml84 于 2014-11-04
    
52. (defun zl-directory-GetFiles (path str pd_SF / filelist n path str pd_SF tmp)
    
53. (while (vl-string-search "/" path 0) (setq path (vl-string-subst "\" "/" path)) );;; 整理路径格式
    
54. (setq path (vl-filename-directory (strcat path "\")) )
    
55. (or (wcmatch path "*\") (setq path (strcat path "\")))
    
56. (setq filelist '());; 1、获取符合条件的文件（不含文件夹）
    
57. (setq tmp (vl-directory-files path str))
    
58.   (foreach n tmp
    
59.    (cond
    
60.     ((= n ".") () )
    
61.     ((= n "..") () )
    
62.     ((vl-file-directory-p (strcat path n)) () )
    
63.     (t (setq filelist (cons (strcat path n) filelist)))
    
64.    )
    
65.   )
    
66.   (setq filelist (reverse filelist))
    
67. ;; 2、处理子文件夹
    
68.   (and pd_SF (setq tmp (vl-directory-files path "*.*"))
    
69.    (foreach n tmp
    
70.     (cond
    
71.      ((= n ".") () )
    
72.      ((= n "..") () )
    
73.      ((vl-file-directory-p (strcat path n))  (setq filelist (append filelist (zl-directory-GetFiles (strcat path n) str pd_SF))))
    
74.      (t ())
    
75.     )
    
76.    )
    
77. );; 3、返回
    
78. filelist
    
79. )

<div class="blockcode"><blockquote>(defun c:tes ( / cad5 ff1 ff5 strcaption tmp tmp5)<br /> (setq ff1 "D:\\feishi");添加飞诗路径<br /> (vl-load-com)<br /> (setq strCaption (strcase (vla-get-Caption (vlax-get-acad-object))))<br /> (cond<br />   ((vl-string-search "浩辰CAD" strCaption 0) (setq cad5 "GCAD"))<br />   ((vl-string-search "中望CAD" strCaption 0) (setq cad5 "GCAD"))<br />   ((vl-string-search "AUTODESK AUTOCAD" strCaption 0) (setq cad5 "ACAD"))<br />   (t (setq cad5 nil))<br /> )<br /> (if (and cad5<br />           (setq tmp (getenv cad5))<br />           (setq tmp5 (strcase tmp))<br />           (setq ff5 (strcase ff1))<br />           (= (vl-string-search ff5 tmp5 0) nil)<br />           (setq tmp (strcat ff1 ";" tmp))<br />      )<br />   (setenv cad5 tmp)<br /> )<br /> (if cad5 (feishi_220411 ff1));加载飞诗<br /> (princ)<br /> )<br /> <br /> <br /> <br /> ;加载飞诗<br /> (defun feishi_220411 (ff1 / ff1 s ss x)<br /> (if (not (vl-vlx-loaded-p "ListDCLediter"));检查是否已经加载<br />   (if (and ff1 (setq ss (mapcar 'strcase (zl-directory-GetFiles ff1 "*.vlx" t)));飞诗-对话框<br />                (setq s (vl-remove-if-not '(lambda(x) (= (strcat (vl-filename-base x) (vl-filename-extension x)) "LISTDCLEDITER.VLX")) ss))<br />       )<br />       (if (vl-catch-all-error-p (vl-catch-all-apply 'load s));飞诗第一次可以加载，第二次就不能加载,不提示<br />        (princ "\n未成功加载飞诗文件【ListDCLediter.vlx】")<br />        (if (> (length s) 1) (princ (strcat "\n加载的文件有多个" (vl-prin1-to-string s))) )<br />       )<br />    (princ "\n未找到飞诗【ListDCLediter.vlx】文件")<br />   )<br /> )<br /> )<br /> <br /> ;;;=================================================================*<br /> ;;;       通用函数<br /> ;;; 功能：获取目录内全部文件名<br /> ;;; 参数：path ----- 字符串。目录名称。<br /> ;;;       str  ----- 字符串。过滤条件。<br /> ;;;                  例如："*.dwg"<br /> ;;;       pd_SF ----- T 或 nil。是否含子目录的标识。<br /> ;;; 返回：文件名列表<br /> ;;; 测试：(zl-directory-GetFiles "d:\" "*.txt" nil)<br /> ;;; 日期：zml84 于 2014-11-04<br /> (defun zl-directory-GetFiles (path str pd_SF / filelist n path str pd_SF tmp)<br /> (while (vl-string-search "/" path 0) (setq path (vl-string-subst "\" "/" path)) );;; 整理路径格式<br /> (setq path (vl-filename-directory (strcat path "\")) )<br /> (or (wcmatch path "*\") (setq path (strcat path "\")))<br /> (setq filelist '());; 1、获取符合条件的文件（不含文件夹）<br /> (setq tmp (vl-directory-files path str))<br />   (foreach n tmp<br />    (cond<br />     ((= n ".") () )<br />     ((= n "..") () )<br />     ((vl-file-directory-p (strcat path n)) () )<br />     (t (setq filelist (cons (strcat path n) filelist)))<br />    )<br />   )<br />   (setq filelist (reverse filelist))<br /> ;; 2、处理子文件夹<br />   (and pd_SF (setq tmp (vl-directory-files path "*.*"))<br />    (foreach n tmp<br />     (cond<br />      ((= n ".") () )<br />      ((= n "..") () )<br />      ((vl-file-directory-p (strcat path n))  (setq filelist (append filelist (zl-directory-GetFiles (strcat path n) str pd_SF))))<br />      (t ())<br />     )<br />    )<br /> );; 3、返回<br /> filelist<br /> )