明经CAD社区

 找回密码
 注册

扫一扫,访问微社区

QQ登录

只需一步,快速开始

查看: 2075|回复: 10

飞诗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


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


评分

参与人数 2明经币 +2 金钱 +20 收起 理由
mophester + 1 + 20 很给力!
taoyi0727 + 1 好东西 2020都可以用

查看全部评分

发表于 2019-8-13 23:39 | 显示全部楼层
支持,正在考虑怎么在高版本上使用飞诗。我连2016都无法调试。
发表于 2019-8-14 12:38 | 显示全部楼层
用用看效果如何
发表于 2019-9-21 14:21 | 显示全部楼层
能用吗?
原来是,要用飞诗,是先打开飞诗,再用飞诗打开CAD
楼主这个方法好像只用CAD来打开飞诗

本来飞诗不支持的版本还是不支持
发表于 2019-9-21 14:30 | 显示全部楼层
可以了  原来是没有把搜索路径设置好
楼主帮大忙了
发表于 2019-9-21 17:04 | 显示全部楼层
2020版本
飞诗不能加载command "拒绝"
                     vl-cmdf 没有反应
 楼主| 发表于 2019-9-27 04:52 | 显示全部楼层
taoyi0727 发表于 2019-9-21 17:04
2020版本
飞诗不能加载command "拒绝"
                     vl-cmdf 没有反应

飞诗一般不支持直接command 的,貌似或许也是高版本CAD问题,高版本CAD有些是需要”command-S“.
发表于 2019-12-28 21:22 | 显示全部楼层
(command-S "NETLOAD" (STRCAT FILE "link40.dll"))
无法加载程序集。错误详细信息: System.IO.FileNotFoundException: 未能加载文件或程序集“file:///D:\myLisp\link40.dll”或它的某一个依赖项。系统找不到指定的文件。
文件名:“file:///D:\myLisp\link40.dll”
   在 System.Reflection.RuntimeAssembly._nLoad(AssemblyName fileName, String codeBase, Evidence assemblySecurity, RuntimeAssembly locationHint, StackCrawlMark& stackMark, IntPtr pPrivHostBinder, Boolean throwOnFileNotFound, Boolean forIntrospection, Boolean suppressSecurityChecks)
   在 System.Reflection.RuntimeAssembly.InternalLoadAssemblyName(AssemblyName assemblyRef, Evidence assemblySecurity, RuntimeAssembly reqAssembly, StackCrawlMark& stackMark, IntPtr pPrivHostBinder, Boolean throwOnFileNotFound, Boolean forIntrospection, Boolean suppressSecurityChecks)
   在 System.Reflection.RuntimeAssembly.InternalLoadFrom(String assemblyFile, Evidence securityEvidence, Byte[] hashValue, AssemblyHashAlgorithm hashAlgorithm, Boolean forIntrospection, Boolean suppressSecurityChecks, StackCrawlMark& stackMark)
   在 System.Reflection.Assembly.LoadFrom(String assemblyFile)
   在 Autodesk.AutoCAD.Runtime.ExtensionLoader.Load(String fileName)
   在 loadmgd()

警告: 程序集绑定日志记录被关闭。
要启用程序集绑定失败日志记录,请将注册表值 [HKLM\Software\Microsoft\Fusion!EnableLog] (DWORD)设置为 1。
注意: 会有一些与程序集绑定失败日志记录关联的性能损失。
要关闭此功能,请移除注册表值 [HKLM\Software\Microsoft\Fusion!EnableLog]。
nil
 楼主| 发表于 2020-1-1 03:50 | 显示全部楼层
G〆h 发表于 2019-12-28 21:22
(command-S "NETLOAD" (STRCAT FILE "link40.dll"))
无法加载程序集。错误详细信息: System.IO.FileNotFou ...

第一!路径名不对!第二,版本对应,高版本加载LINK40.DLL,低版本就是LINK35.DLL
发表于 2020-1-3 20:14 | 显示全部楼层
没有看明白!
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2020-7-15 16:09 , Processed in 0.593283 second(s), 31 queries , Gzip On.

Powered by Discuz! X3.3

© 2001-2013 Comsenz Inc.

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