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

牢固

cxjzxf 发表于 2013-5-13 09:13
问题是在MFC用是把幻灯片重画出来，速度慢得很

用OpenDcl就不需要幻灯片了，Block View控件可以直接显示块！

cxjzxf

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

Lisphk

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

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

Lisphk

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

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

cxjzxf

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

cxjzxf

用ARX编程呢

XDSoft

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

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

cxjzxf

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

Gdlprfcu

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

XDSoft

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

真的不是我。:D

Gdlprfcu

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

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

yxpxa

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

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

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

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

yxpxa

2. 
   
3. ;; 函数: (List_write_read <key>  <path>  <data> )
   
4. ;; 功能: 数据交换，将内存数据写入硬盘，或者将硬盘文件读入内存
   
5. ;; 参数:
   
6. ;; key  字符型，"w" 保存数据，"r" 读入数据。
   
7. ;; path 字符串型，读入或写磁盘的全路径(含文件名)
   
8. ;; data 任意 CAD 类型数据
   
9. ;; 返回值: 保存数据时，成功返回 T, 失败返回 nil, 当文件名有重复将直接覆盖
   
10. ;;         读入数据时，成功返回数据，如果失败则返回 data
    
11. ;;
    
12. ;; 样例:
    
13. ;;  (List_write_read "w" "e:\\abc.txt" '("abc" 1 2 3.0))
    
14. ;;  (List_write_read "r" "e:\\abc.txt" nil)
    
15. ;;
    
16. (defun List_write_read(Key Fpath Data / f k Lss ss ncn)
    
17.   (setq k (strcase Key)) ;;将关键字统一转换为大写
    
18.   (cond
    
19.     ((= k "W")(if (and Fpath Data (= (type Fpath) 'STR)) ;;未判断 Fpath 是否为合法的路径+文件名
    
20.        (progn                                            ;;有可能会导致失败
    
21.            (setq Lss (vl-prin1-to-string Data)) ;;如果要进制转换可以在此进行
    
22.            (setq ncn (File_Get_Attrib Fpath)) ;;读取文件属性
    
23.            (File_Put_Attrib Fpath 0)     ;;将文件属性归 0
    
24.            (setq f (open Fpath "w"))     ;;已排除文件为隐藏或只读时打开文件失败的bug
    
25.            (princ Lss f)                 ;;此处用 prin1 能替代 vl-prin1-to-string 函数
    
26.            (close f)
    
27.            (File_Put_Attrib Fpath ncn)  ;;恢复文件属性
    
28.            t)))
    
29.     ((= k "R")(if (and Fpath (= (type Fpath) 'STR) (findfile Fpath)) ;;路径不合法将返回 nil
    
30.        (progn
    
31.            (setq f (open Fpath "r")
    
32.                 ss (read-line f)
    
33.                 Lss (read ss))
    
34.            (close f)
    
35.            Lss)
    
36.            Data))
    
37.     (t nil))  ;;如果关键字不为 "r" 或 "w" 时，返回 nil
    
38. )
    
39. 
    
40. 
    
41. ;; 功能: 设置文件属性值，n = 2 时为隐藏
    
42. ;; 参数: <file> 文件的全路径
    
43. ;; 样例: (File_Put_Attrib "e:\\abc.txt" 34)
    
44. (defun File_Put_Attrib(file n / Fil ss k)
    
45. (if (findfile file) (progn
    
46.   (setq Fil (vlax-get-or-create-object "Scripting.FileSystemObject"))
    
47.   (setq ss (vlax-invoke fil 'getfile file))
    
48.   (setq k (vlax-get-property ss 'Attributes))
    
49.   (if (/= k n) (vlax-put-property ss 'Attributes n))
    
50.   (vlax-release-object fil)
    
51. ))
    
52. )
    
53. 
    
54. 
    
55. ;; 功能: 读取文件的属性值
    
56. ;; 参数: <file> 文件的全路径
    
57. ;; 样例: (File_Get_Attrib "e:\\abc.txt")
    
58. (defun File_Get_Attrib(file / Fil ss k)
    
59. (if (findfile file) (progn
    
60.   (setq Fil (vlax-get-or-create-object "Scripting.FileSystemObject"))
    
61.   (setq ss (vlax-invoke fil 'getfile file))
    
62.   (setq k (vlax-get-property ss 'Attributes ))
    
63.   (vlax-release-object fil)
    
64. )) k
    
65. )

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

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

XDSoft

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

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

yxpxa

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

已经补上，不好意思