[原创]飞诗CAD程序管理大一统 (CAD外挂管理+程序包 下载)

飞诗(fsxm)

下面可以取得
1.托动到窗口加载
2.appload加载
两种加载方式的路径～！FSTL就是用这个实现纯绿色模式

;;取得加载路径
(defun fstl_getmepath (/ n1 n2 reg str)
  (while (/= 0 (getvar "cmdactive")) (command))
  (princ "\n")
  (setq str (getvar "lastprompt"))
  (if (wcmatch (strcase str) "*(LOAD \"*")
    (setq n1  (vl-string-search "(LOAD \"" str)
   n2  (vl-string-search "\")" str)
   str (substr str (+ n1 8) (- n2 n1 7))
   str (vl-string-translate "/" "\\" str)
    )
    (setq reg (strcat "HKEY_CURRENT_USER\\Software\\Microsoft\\Windows\\"
        "CurrentVersion\\Explorer\\ComDlg32\\OpenSaveMRU\\*"
       )
   str (substr (vl-registry-read reg "MRUList") 1 1)
   str (vl-registry-read reg str)
    )
  )
)

coolyxw:你好！

问题一：我还有Ｎ多人用过Ｎ次都没有出现＂异常＂

问题二：好的啊！在6月1号更新时就加上这个功能！

问题三：我还有Ｎ多人用过Ｎ次都没有出现＂异常＂

另：多行显示问题因为受到DCL功能所限无法实现

1.程序项现在不是只能显示9行！只要你自己加入多少行就会显示多少行哦！你自己测试吧！

2.右键功能因为受到DCL功能所限无法实现．

3.可以实现，但因为很少用到，所以没有去做这个功能！

4.你说的是非模态的吧？我可以用vba做一个给大家测试一下！

飞诗(fsxm)

发一个我改写过的小程序：

复制块内实体，支持块内属性，标注等．不支持非等比块！

点两次同一物件就不复制了．

XIAOFEILONG

上面的程序和ET工具中的NCOPY不是一样的吗?

coolyxw

蛮奇怪的，问题一和三我那天试验时点取消要好多回才能取消，刚加载时，也看到飞诗的提示有好多行。是不是因为当时我开了多个窗口后，再其中一个窗口加载程序，就会有这种现象。

coolyxw

提个建议：有很多的程序我们一般会另设个文档写入该软件的相关说明。如果本软件的程序注释能读取相应的文档并显示出来，应该很方便我们对程序的整理。

飞诗(fsxm)

这个功能不难，！

只是现在很少有人去管他程序是谁写的！只想拿来能用就成！

就是程序下面的作者信息我想都没有几个人去填写的吧？

另：

飞诗fstl v1.3出来了!加入了你说说的功能：双击直接执行！

还有你可以将你的注册码给我，帮你注册一下永不过期！

以谢谢你对FSTL一直以为的关注与支持！

注：

今后只是要被采用的建议，建议者都可得荣誉版注册码一个！荣誉专用，永过过期！

还有就是：非荣誉版过期也可以正常使用，但会跳出软件更新提示！

nonsmall

下来试一次 ACAD2004:

命令: FSTL_RUN_LAST ; 错误: 参数类型错误: VLA-OBJECT #<%catch-all-apply-error%>

coolyxw

又来提问题了:循环执行问题
Command: fstl_run_last
飞诗正在为你执行【秋枫批量打印】
加载Lisp->C:\civil\fstl1.2\Program\块层群组\BatchPlotv3.3.7\BatchPlot.VLX

Command:
Command: batchplot Unknown command "BATCHPLOT".  Press F1 for help.

Command: fstl_run_last
飞诗正在为你执行【秋枫批量打印】
加载Lisp->C:\civil\fstl1.2\Program\块层群组\BatchPlotv3.3.7\BatchPlot.VLX
死循环了，但esc可让其退出。

对Program下的多级文件包类的单个文件支持似乎没问题，但是对多个文件支持似乎有问题
我试了BatchPlotv3.3.7，因其增加了个ini设置文件，在fstl中增加了其附加目录以及附加文件ini（下拉单中似乎不支持该格式）均不能执行该文件。包括在cad中直接加载执行也不行。但在支持文件中加上后即可运行该文件。

程序管理项中备注信息若较长，不能完整显示。应可自动增加水平滚动条。

程序的备注信息确实还是有文字个数限制。此备注信息要是能与具体的文档关联并显示出来就完美了。毕竟我们通常下载程序时会有文档对程序进行说明.

增加程序项选择程序时，能否将可支持的文件类型都罗列出来，不要单lsp或是单vlx罗列，相对麻烦。

增加对绿色可执行小软件的支持，类似程序中的计算器。

coolyxw

谢谢飞诗厚爱,能不能发两个注册码?一个家里用,一个单位用

飞诗(fsxm)

nonsmall:

你下载的是过期的版本么？过期了的就会出现你说的现像！在使用期内是不会的！

coolyxw：

1.循环执行问题在1.2是存在这个现象！

但只出现在你填写了一个错误的原始命令！

比如＂BATCHPLOT＂命令本来就不存在！（可能是BatchPlot.VLX文件损坏，所以加载失败）

请下载1.3，循环执行问题解决了！

2.备注信息,没有人会去写很长的哈！ＤＣＬ功能上不能实现水平滚动条！

3.好的！在下一版本中做到可以加载绿色可执行小软件！