大家一起用OPENDCL开发建立个开源图库

cxjzxf · 发表于 2013-5-13 09:19:32

如果我用MFC可以用Block View这个控件么

Lisphk · 发表于 2013-5-13 09:21:41

cxjzxf 发表于 2013-5-13 09:19
如果我用MFC可以用Block View这个控件么

用VC了，那就用MFC的对话框啊。

Lisphk · 发表于 2013-5-13 09:23:16

cxjzxf 发表于 2013-5-13 09:19
如果我用MFC可以用Block View这个控件么

你是用LISP编程呢，还是用ARX啊？

cxjzxf · 发表于 2013-5-13 09:24:09

MFC我用JPG和幻灯片都显示过。总感觉这种方法不行

cxjzxf · 发表于 2013-5-13 10:43:04

用ARX编程呢

XDSoft · 发表于 2013-5-13 10:49:11

cxjzxf 发表于 2013-5-13 10:43
用ARX编程呢

那欢迎多到ARX板块发言，贴贴你的代码函数啥的。谢谢！

cxjzxf · 发表于 2013-5-13 10:58:12

好的，图库还没有开始写，现在在构思如何显示图片。

Gdlprfcu · 发表于 2013-5-13 18:37:48

偶然在Autodesk博客上发现有疑似晓东大哥的博客：http://adndevblog.typepad.com/autocad/xiaodong-liang/不知道是不是，求真相。{:soso_e120:}

XDSoft · 发表于 2013-5-13 18:46:42

Gdlprfcu 发表于 2013-5-13 18:37
偶然在Autodesk博客上发现有疑似晓东大哥的博客：http://adndevblog.typepad.com/autocad/xiaodong-liang/ ...

真的不是我。:D

Gdlprfcu · 发表于 2013-5-13 19:05:32

本帖最后由 Gdlprfcu 于 2013-5-13 19:41 编辑

XDSoft 发表于 2013-5-13 18:46
真的不是我。

不信！名字一样，又有lisp怎样访问数据库的日记，怎么可能不是！别骗我们了{:soso_e104:}

yxpxa · 发表于 2013-5-16 05:20:12

本帖最后由 yxpxa 于 2013-5-16 05:42 编辑

东东老大，我觉得表结构就挺好啊，为啥一定要用数据库？
调用数据的时候用 assoc + 关键词，或者其他各种表操作函数
存盘的时候可以用 vl-prin1-to-string 将表直接转换为字符串保存，要加密的话转为二进制也行。
读取数据的时候用 read 可以一次将字符串转换为表，速度超快

设计个好的数据结构，编程的时候，真的事半功倍，反正lisp的强项就是表处理。

比如:
(
(文件夹名A (文件名1 文件名2 文件名3 .....)
(文件夹名B (文件名1 文件名2 文件名3 .....)
.....
)
两层应该够了吧，如果需要也能设计成多层的树结构，用 tree 控件来显示。

如果你觉得可行，布置个作业，大家来完善通用函数，
保存、加载、遍历、排序、任意位置表元素的提取、插入、更新、删除、交换等等，凡数据库能做到的
表处理只会更加方便快捷，好像表结构原本就是人工智能化的数据库。

yxpxa · 发表于 2013-5-16 15:54:39

本帖最后由 yxpxa 于 2013-5-16 17:33 编辑

;; 函数: (List_write_read <key> <path> <data> )
;; 功能: 数据交换，将内存数据写入硬盘，或者将硬盘文件读入内存
;; 参数:
;; key 字符型，"w" 保存数据，"r" 读入数据。
;; path 字符串型，读入或写磁盘的全路径(含文件名)
;; data 任意 CAD 类型数据
;; 返回值: 保存数据时，成功返回 T, 失败返回 nil, 当文件名有重复将直接覆盖
;; 读入数据时，成功返回数据，如果失败则返回 data
;;
;; 样例:
;; (List_write_read "w" "e:\\abc.txt" '("abc" 1 2 3.0))
;; (List_write_read "r" "e:\\abc.txt" nil)
;;
(defun List_write_read(Key Fpath Data / f k Lss ss ncn)
(setq k (strcase Key)) ;;将关键字统一转换为大写
(cond
((= k "W")(if (and Fpath Data (= (type Fpath) 'STR)) ;;未判断 Fpath 是否为合法的路径+文件名
(progn ;;有可能会导致失败
(setq Lss (vl-prin1-to-string Data)) ;;如果要进制转换可以在此进行
(setq ncn (File_Get_Attrib Fpath)) ;;读取文件属性
(File_Put_Attrib Fpath 0) ;;将文件属性归 0
(setq f (open Fpath "w")) ;;已排除文件为隐藏或只读时打开文件失败的bug
(princ Lss f) ;;此处用 prin1 能替代 vl-prin1-to-string 函数
(close f)
(File_Put_Attrib Fpath ncn) ;;恢复文件属性
t)))
((= k "R")(if (and Fpath (= (type Fpath) 'STR) (findfile Fpath)) ;;路径不合法将返回 nil
(progn
(setq f (open Fpath "r")
ss (read-line f)
Lss (read ss))
(close f)
Lss)
Data))
(t nil)) ;;如果关键字不为 "r" 或 "w" 时，返回 nil
)
;; 功能: 设置文件属性值，n = 2 时为隐藏
;; 参数: <file> 文件的全路径
;; 样例: (File_Put_Attrib "e:\\abc.txt" 34)
(defun File_Put_Attrib(file n / Fil ss k)
(if (findfile file) (progn
(setq Fil (vlax-get-or-create-object "Scripting.FileSystemObject"))
(setq ss (vlax-invoke fil 'getfile file))
(setq k (vlax-get-property ss 'Attributes))
(if (/= k n) (vlax-put-property ss 'Attributes n))
(vlax-release-object fil)
))
)
;; 功能: 读取文件的属性值
;; 参数: <file> 文件的全路径
;; 样例: (File_Get_Attrib "e:\\abc.txt")
(defun File_Get_Attrib(file / Fil ss k)
(if (findfile file) (progn
(setq Fil (vlax-get-or-create-object "Scripting.FileSystemObject"))
(setq ss (vlax-invoke fil 'getfile file))
(setq k (vlax-get-property ss 'Attributes ))
(vlax-release-object fil)
)) k
)

;; 函数: (List_write_read <key>  <path>  <data> ) 
;; 功能: 数据交换，将内存数据写入硬盘，或者将硬盘文件读入内存 
;; 参数: 
;; key  字符型，"w" 保存数据，"r" 读入数据。 
;; path 字符串型，读入或写磁盘的全路径(含文件名) 
;; data 任意 CAD 类型数据 
;; 返回值: 保存数据时，成功返回 T, 失败返回 nil, 当文件名有重复将直接覆盖 
;;         读入数据时，成功返回数据，如果失败则返回 data 
;; 
;; 样例: 
;;  (List_write_read "w" "e:\\abc.txt" '("abc" 1 2 3.0)) 
;;  (List_write_read "r" "e:\\abc.txt" nil) 
;; 
(defun List_write_read(Key Fpath Data / f k Lss ss ncn) 
  (setq k (strcase Key)) ;;将关键字统一转换为大写 
  (cond 
    ((= k "W")(if (and Fpath Data (= (type Fpath) 'STR)) ;;未判断 Fpath 是否为合法的路径+文件名 
       (progn                                            ;;有可能会导致失败 
           (setq Lss (vl-prin1-to-string Data)) ;;如果要进制转换可以在此进行 
           (setq ncn (File_Get_Attrib Fpath)) ;;读取文件属性 
           (File_Put_Attrib Fpath 0)     ;;将文件属性归 0 
           (setq f (open Fpath "w"))     ;;已排除文件为隐藏或只读时打开文件失败的bug 
           (princ Lss f)                 ;;此处用 prin1 能替代 vl-prin1-to-string 函数 
           (close f) 
           (File_Put_Attrib Fpath ncn)  ;;恢复文件属性 
           t))) 
    ((= k "R")(if (and Fpath (= (type Fpath) 'STR) (findfile Fpath)) ;;路径不合法将返回 nil 
       (progn 
           (setq f (open Fpath "r") 
                ss (read-line f) 
                Lss (read ss)) 
           (close f) 
           Lss) 
           Data)) 
    (t nil))  ;;如果关键字不为 "r" 或 "w" 时，返回 nil 
) 
 
 
;; 功能: 设置文件属性值，n = 2 时为隐藏 
;; 参数: <file> 文件的全路径 
;; 样例: (File_Put_Attrib "e:\\abc.txt" 34) 
(defun File_Put_Attrib(file n / Fil ss k) 
(if (findfile file) (progn 
  (setq Fil (vlax-get-or-create-object "Scripting.FileSystemObject")) 
  (setq ss (vlax-invoke fil 'getfile file)) 
  (setq k (vlax-get-property ss 'Attributes)) 
  (if (/= k n) (vlax-put-property ss 'Attributes n)) 
  (vlax-release-object fil) 
)) 
) 
 
 
;; 功能: 读取文件的属性值 
;; 参数: <file> 文件的全路径 
;; 样例: (File_Get_Attrib "e:\\abc.txt") 
(defun File_Get_Attrib(file / Fil ss k) 
(if (findfile file) (progn 
  (setq Fil (vlax-get-or-create-object "Scripting.FileSystemObject")) 
  (setq ss (vlax-invoke fil 'getfile file)) 
  (setq k (vlax-get-property ss 'Attributes )) 
  (vlax-release-object fil) 
)) k 
)

不好意思，把后面两个函数漏了。

XDSoft · 发表于 2013-5-16 17:18:49

yxpxa 发表于 2013-5-16 15:54

缺了几个函数，补上贴上来吧，谢谢！

yxpxa · 发表于 2013-5-16 17:26:42

XDSoft 发表于 2013-5-16 17:18
缺了几个函数，补上贴上来吧，谢谢！

已经补上，不好意思

pengfei2010 · 发表于 2013-6-12 21:32:25

这个好像需要很大的工作量，不知道坛主是做哪方面的图库，建筑吗？

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

[群策群力] 大家一起用OPENDCL开发建立个开源图库

评分

评分