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

飞诗(fsxm) · 发表于 2009-5-27 22:55

前时间有网友提出说
最好可以将配置文件与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)
)

;;输出当前配置
(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 · 发表于 2009-5-31 09:58

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

谢谢！

飞诗(fsxm) · 发表于 2009-5-31 10:15

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) · 发表于 2009-6-3 22:06

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

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

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

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

压缩包内有两个文件：

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

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

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

liminnet · 发表于 2009-6-3 22:07

提示: 作者被禁止或删除内容自动屏蔽

aicr317 · 发表于 2009-6-4 22:30

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

coolyxw · 发表于 2009-6-5 14:05

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

问题原因不得而知。

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

hounengwei · 发表于 2009-8-25 22:34

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

wuwangwo48 · 发表于 2009-9-24 14:45

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

到时再向你要荣誉号

飞诗(fsxm) · 发表于 2009-9-25 11:59

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

账号		自动登录	找回密码
密码			注册

liminnet liminnet 当前离线积分 9737 明经币个注册时间 2007-8-22 在线时间小时威望金钱个贡献激情	发表于 2009-6-3 22:07 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

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

本帖子中包含更多资源

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