前时间有网友提出说
最好可以将配置文件与FSTL一起打包！本人认为这个点子很好哦！
以后真的只要用一只Ｕ盘带上FSTL，就完全实现自己的ＣＡＤ随身带了！
自己的程序，自己的配置一切都是自己的操作习惯．．．强！
附：1.保存当前配置到FSTL 2.输入保存的配置,设为当前！
;;输出当前配置
(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)
)
上面这个点子确实不错！<font face="Verdana" color="#61b713"><b>fs将程序的说明也智能化把，自动读取一文本并显示出来。。。<br/>870706670666970665152704848484848<br/>coolyxw<br/>948707066706669706657507048484848<br/>coolyxw<br/><br/>谢谢！<br/></b></font>
<p><strong><font face="Verdana" color="#61b713">coolyxw:</font></strong>荣誉验证与上面的对应：</p><p>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</p><p>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</p><p>程序文本说明这个暂不在考虑这中了～以后有空再做吧！不是很急～！</p><p>你说的直接运行绿色可执行小软件，这个功能我做好了，下次更新时再传上吧！</p><p></p>
<p>铸造精典－＜飞诗CAD词库＞</p><p>高度支持自定义，可加入静态词，公式词．</p><p>多层次树形目录结构管理词条．</p><p>支持修改单行文字，多行文字，块内文字，属性，标注．．．．</p><p></p><p>压缩包内有两个文件：</p><p>1.飞诗CAD词库.fs_lib － 请放在ＣＡＤ支持目录中</p><p>2.fs_txtlib.VLX － 主程序 命令名: fs_txtlib</p><p>本程序需要FSTL函数支持，限FSTL用户下载使用．</p><p></p>
这么好的程序为什么要设定期限，不理解，真的不理解，是不是想让别人实时关心你的发展动态还是为了打响知名度啊，但无论如何，好程序没理由不支持，强顶！
偶然间遇到的问题：<br/>; error: bad argument type: consp "main_dcl"<br/>Command: Specify opposite corner: (Fstl_DoubleClickNo) ; error: bad argument <br/>type: VLA-OBJECT nil<br/><br/>问题原因不得而知。<br/><br/><br/>列表中要是能自定义显示的列就好了。<br/>
<p>这是一个很有用的工具呀，支持呀</p>
<p><a href="http://bbs.icax.cn/488716p1p1">http://bbs.icax.cn/488716p1p1</a></p><p>到时再向你要荣誉号</p>
嗯！随时为你准备着荣誉注册！