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

飞诗(fsxm)

前时间有网友提出说
最好可以将配置文件与FSTL一起打包！本人认为这个点子很好哦！
以后真的只要用一只Ｕ盘带上FSTL，就完全实现自己的ＣＡＤ随身带了！
自己的程序，自己的配置一切都是自己的操作习惯．．．强！
附：1.保存当前配置到FSTL　2.输入保存的配置,设为当前！

2. ;;输出当前配置
3. (defun c:Fstl_ExportProfile (/ date path profiles us)
4.   (foreach arg (vl-directory-files *fstl_sys* "*.arg")
5.     (vl-file-delete (strcat *fstl_sys* "\" arg))
6.   )
7.   (setq us (getvar "CPROFILE"))
8.   (setq Profiles (vla-get-Profiles (vla-get-Preferences *acad*)))
9.   (setq date (rtos (getvar "cdate") 2 0))
10.   (setq Path (strcat *fstl_sys* "\\FSTL" date ".arg"))
11.   (vla-ExportProfile Profiles us path)
12.   (alert (strcat "\n[飞诗CAD程序管理大一统]友情提示："
13.    "\n\n当前配置文件已输出至：\n\n"
14.    Path
15.   )
16.   )
17.   (princ)
18. )
19. ;;输入配置,设为当前
20. (defun c:Fstl_ImportProfile (/ lst name path profiles)
21.   (cond ((setq Path (vl-directory-files *fstl_sys* "*.arg"))
22.   (setq path (strcat *fstl_sys* "\" (car Path)))
23.   (setq name (vl-filename-base path))
24. )
25. (t
26.   (alert (strcat
27.     "\n[飞诗CAD程序管理大一统]友情提示："
28.     "\n\n没有找到用户配置文件【Fstl*.arg】"
29.     "\n\n请先保存你的配置文件!"
30.   )
31.   )
32.   (fsxm-silenceexit)
33. )
34.   )
35.   (setq Profiles (vla-get-Profiles (vla-get-Preferences *acad*)))
36.   (vlax-make-variant lst)
37.   (vla-GetAllProfileNames Profiles 'lst)
38.   (setq lst (vlax-safearray->list lst))
39.   (cond ((vl-position name lst)
40.   (alert (strcat "\n[飞诗CAD程序管理大一统]友情提示："
41.    "\n\n保存的配置文件已存在于配置列表中！"
42.   )
43.   )
44. )
45. (T
46.   (vla-ImportProfile Profiles name path :vlax-true)
47.   (alert (strcat "\n[飞诗CAD程序管理大一统]"
48.    "\n\n友情提示：用户配置文件：\n\n"
49.    Path
50.    "\n\n已成功输入！"
51.   )
52.   )
53. )
54.   )
55.   (if (/= (getvar "CPROFILE") name)
56.     (vla-put-ActiveProfile Profiles name)
57.   )
58.   (fstl_Init_path)
59.   (princ)
60. )

;;输出当前配置 (defun c:Fstl_ExportProfile (/ date path profiles us)   (foreach arg (vl-directory-files *fstl_sys* "*.arg")     (vl-file-delete (strcat *fstl_sys* "\" arg))   )   (setq us (getvar "CPROFILE"))   (setq Profiles (vla-get-Profiles (vla-get-Preferences *acad*)))   (setq date (rtos (getvar "cdate") 2 0))   (setq Path (strcat *fstl_sys* "\\FSTL" date ".arg"))   (vla-ExportProfile Profiles us path)   (alert (strcat "\n[飞诗CAD程序管理大一统]友情提示："    "\n\n当前配置文件已输出至：\n\n"    Path   )   )   (princ) ) ;;输入配置,设为当前 (defun c:Fstl_ImportProfile (/ lst name path profiles)   (cond ((setq Path (vl-directory-files *fstl_sys* "*.arg"))   (setq path (strcat *fstl_sys* "\" (car Path)))   (setq name (vl-filename-base path)) ) (t   (alert (strcat     "\n[飞诗CAD程序管理大一统]友情提示："     "\n\n没有找到用户配置文件【Fstl*.arg】"     "\n\n请先保存你的配置文件!"   )   )   (fsxm-silenceexit) )   )   (setq Profiles (vla-get-Profiles (vla-get-Preferences *acad*)))   (vlax-make-variant lst)   (vla-GetAllProfileNames Profiles 'lst)   (setq lst (vlax-safearray->list lst))   (cond ((vl-position name lst)   (alert (strcat "\n[飞诗CAD程序管理大一统]友情提示："    "\n\n保存的配置文件已存在于配置列表中！"   )   ) ) (T   (vla-ImportProfile Profiles name path :vlax-true)   (alert (strcat "\n[飞诗CAD程序管理大一统]"    "\n\n友情提示：用户配置文件：\n\n"    Path    "\n\n已成功输入！"   )   ) )   )   (if (/= (getvar "CPROFILE") name)     (vla-put-ActiveProfile Profiles name)   )   (fstl_Init_path)   (princ) )

coolyxw

上面这个点子确实不错！fs将程序的说明也智能化把，自动读取一文本并显示出来。。。
870706670666970665152704848484848
coolyxw
948707066706669706657507048484848
coolyxw

谢谢！

飞诗(fsxm)

coolyxw:荣誉验证与上面的对应：

23-23-35-101-85-101-85-101-85-19-85-23-81-19-86-16-82-98-81-99-82-98-87-102-84

0-52-6-64-112-64-112-64-112-54-112-50-116-54-115-53-119-71-116-70-119-71-114-67-113

程序文本说明这个暂不在考虑这中了～以后有空再做吧！不是很急～！

你说的直接运行绿色可执行小软件，这个功能我做好了，下次更新时再传上吧！

飞诗(fsxm)

铸造精典－＜飞诗CAD词库＞

高度支持自定义，可加入静态词，公式词．

多层次树形目录结构管理词条．

支持修改单行文字，多行文字，块内文字，属性，标注．．．．

压缩包内有两个文件：

1.飞诗CAD词库.fs_lib　－　请放在ＣＡＤ支持目录中

2.fs_txtlib.VLX　－　主程序　命令名: fs_txtlib

本程序需要FSTL函数支持，限FSTL用户下载使用．

aicr317

这么好的程序为什么要设定期限，不理解，真的不理解，是不是想让别人实时关心你的发展动态还是为了打响知名度啊，但无论如何，好程序没理由不支持，强顶！

coolyxw

偶然间遇到的问题：
; error: bad argument type: consp "main_dcl"
Command: Specify opposite corner: (Fstl_DoubleClickNo) ; error: bad argument
type: VLA-OBJECT nil

问题原因不得而知。


列表中要是能自定义显示的列就好了。

hounengwei

这是一个很有用的工具呀，支持呀

wuwangwo48

http://bbs.icax.cn/488716p1p1

到时再向你要荣誉号

飞诗(fsxm)

嗯！随时为你准备着荣誉注册！