明经CAD社区

 找回密码
 注册

扫一扫,访问微社区

QQ登录

只需一步,快速开始

查看: 210|回复: 2

飞诗LispEdit贴合ACAD

[复制链接]
发表于 2019-8-13 16:00 | 显示全部楼层 |阅读模式
本帖最后由 东升铮 于 2019-8-14 02:31 编辑

随着AUTODESK高版本CAD的更新,过去那些便于绘图及开发的不少程序已经落下,这里包括了今天说的飞诗编辑器;飞诗编辑器是一款较适合新手入门的编辑器,明而了然的代码注明及错误提示,使开发操作更简便明了,也减轻了后期修改BUG的难度。既然是适合新手选用的,那今天来说说在CAD调用飞诗编辑的操作及平常遇到的问题。


调试的高版本为2020版,比较的低版本为2007版。


第一: 高版本如何调用编辑器

在高版本中,从编辑器里直接是会出现提示找不到脚本错误,在这里只要把编辑器添加到支持搜索路径,重新打开就好。

第二:如何用VLISP从CAD支持并打开编辑器

这里需要LispEdit支持搜索路径

高版本需加载LINK40.DLL

低版本需加载LINK35.DLL


当然,你也可以编程把这段操作写出来,不过,在高版本别忘了提供他的搜索路径,高版本需要加载他其他一些文件,如debug.VLX等;

低版本就没有那么复杂,只要提供LINK35.DLL的位置就好了。后续未完,待更新。。。


[code="lisp]
  1. ;;说明:高版本加载飞诗.支持并打开飞诗>
  2. ;;by:自燃的人(东升铮)
  3. (DEFUN C:FSE (/ STR ACAD FILE)
  4.   (setq STR (GETVAR "ACADVER"))
  5.   (SETQ ACAD (ATOF (SUBSTR STR 1 (- (STRLEN STR) 12))))
  6.   (SETQ FILE "D:\\安装包\\FSBJQ\\ ")
  7.   (if
  8.     (> 18.0 ACAD)
  9.      (progn
  10.        (command "NETLOAD" (STRCAT FILE "link35.dll"))
  11.        (STARTAPP (STRCAT FILE "LispEdit.EXE"))
  12.      )
  13.      (progn
  14.        (IF (/= (GETVAR "SECURELOAD") 0)
  15.    (SETVAR "SECURELOAD" 0)
  16.        )
  17.        (command-S "NETLOAD" (STRCAT FILE "link40.dll"))
  18.        (STARTAPP (STRCAT FILE "LispEdit.EXE"))
  19.        (SETVAR "SECURELOAD" 1)
  20.      )
  21.   )
在这里楼主就不去测试其他版本的使用效果。大家也可以通过修改代码中的"18.0(Acad2010)"版本号来适应自己的用法。
对应如以下所示:
23.0 =====>AutoCAD 2019-----23.1 =====>AutoCAD 2020
21.0 =====>AutoCAD 2017-----22.0 =====>AutoCAD 2018
20.0 =====>AutoCAD 2015-----20.1 =====>AutoCAD 2016
19.0 =====>AutoCAD 2013-----19.1 =====>AutoCAD 2014
18.1 =====>AutoCAD 2011-----18.2 =====>AutoCAD 2012
17.2 =====>AutoCAD 2009-----18.0 =====>AutoCAD 2010
17.0 =====>AutoCAD 2007-----17.1 =====>AutoCAD 2008


=======
如果还有什么不懂的话,楼主可跟帖回复。


发表于 2019-8-13 23:39 | 显示全部楼层
支持,正在考虑怎么在高版本上使用飞诗。我连2016都无法调试。
发表于 2019-8-14 12:38 | 显示全部楼层
用用看效果如何
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号  
©2000-2017 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2019-8-19 22:02 , Processed in 0.200558 second(s), 30 queries , Gzip On.

Powered by Discuz! X3.3

© 2001-2013 Comsenz Inc.

快速回复 返回顶部 返回列表