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

牢固

Terry Miller 有个DCL版的图库管理工具可以借鉴一下！

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:Blk_Lib.doc 
下载次数:108  文件大小:188.5 KB 
下载权限: 学生 以上  [免费赚D豆]

源程序代码:

游客，本帖隐藏的内容需要积分高于 50 才可浏览，您当前积分为 0

XDSoft

牢固 发表于 2013-5-6 09:14

                               
登录/注册后可看大图

Terry Miller 有个DCL版的图库管理工具可以借鉴一下！

源程序代码:

这个应该是模式框的了，我认为模式框的也不错，插的时候就打开，停靠窗口的地方太小了。

sachindkini

DEAR SIR,

XDSoft

sachindkini 发表于 2013-5-6 16:41

                               
登录/注册后可看大图

DEAR SIR,

Dear SIR

     想听听你的建议，是采用 dockbar 还是 modal 或者 Modeless ?

     另外，如果要用LISP去存取数据库，你有什么好的建议或者现成的应用？

     再如果，用LISP去读取INSERNET上的服务器数据库的信息又有什么好的建议？

Thx

sachindkini

XDSoft 发表于 2013-5-6 17:23

                               
登录/注册后可看大图

Dear SIR

     想听听你的建议，是采用 dockbar 还是 modal 或者 Modeless ?

dear sir,
modeless dialog box ,
but stilt not working on this project

sachindkini

dear sir,

another suggeation

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:BlockManager.odcl 
下载次数:65  文件大小:21.92 KB 
下载权限: 不限 以上  [免费赚D豆]

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:BlockManager.lsp 
下载次数:66  文件大小:44.84 KB 
下载权限: 不限 以上  [免费赚D豆]

sachindkini

dear sir,

one more
Get All Files

Function Syntax	(LM:GetAllFiles <Dir> <Subs> [Filetype])
Current Version	1.0

Arguments
Symbol	Type	Description
Dir	String	Directory to search
Subs	Boolean	If True, subdirectories of 'Dir' are included
Filetype	String	[Optional] Filter for filetype (DOS pattern e.g. "*.dwg")
Returns
List of filenames, else nil if none are found

Program Description

Retrieves a list of all filenames or those of a specific type residing in the target directory (and, optionally, subdirectories of such directory).

[pcode=lisp,true];;--------------------=={ Get All Files }==-------------------;;
;;                                                            ;;
;;  Retrieves all files or those of a specified filetype that ;;
;;  reside in a directory (and, optionally, subdirectories)   ;;
;;------------------------------------------------------------;;
;;  Author: Lee Mac, Copyright © 2011 - www.lee-mac.com       ;;
;;------------------------------------------------------------;;
;;  Arguments:                                                ;;
;;  Dir      - Directory to search                            ;;
;;  Subs     - Boolean, if T, subdirectories are included     ;;
;;  Filetype - (optional) Filter for filetype (DOS pattern)   ;;
;;------------------------------------------------------------;;
;;  Returns:  List of filenames, else nil if none are found   ;;
;;------------------------------------------------------------;;

(defun LM:GetAllFiles ( Dir Subs Filetype / _GetSubFolders )
  
  (defun _GetSubFolders ( folder )
    (apply 'append
      (mapcar
        (function
          (lambda ( f )
            (cons (setq f (strcat folder "\\" f)) (_GetSubFolders f))
          )
        )
        (vl-remove "." (vl-remove ".." (vl-directory-files folder nil -1)))
      )
    )
  )

  (apply 'append
    (mapcar
      (function
        (lambda ( Filepath )
          (mapcar
            (function
              (lambda ( Filename ) (strcat Filepath "\\" Filename))
            )
            (vl-directory-files Filepath Filetype 1)
          )
        )
      )
      (cons Dir (if subs (_GetSubFolders Dir)))
    )
  )
)[/pcode]
       Example Calling Function

This example will list all DWG files in the working directory.

[pcode=lisp,true](mapcar 'print (LM:GetAllFiles (vl-string-right-trim "\\" (getvar 'DWGPREFIX)) nil "*.dwg"))[/pcode]
     Compact Version

This is a concise version of the above and will include subdirectories by default.

[pcode=lisp,true](defun LM:GetAllFiles ( dir typ )
  (append (mapcar '(lambda ( x ) (strcat dir "\\" x)) (vl-directory-files dir typ 1))
    (apply 'append
      (mapcar '(lambda ( x ) (LM:GetAllFiles (strcat dir "\\" x) typ))
        (vl-remove-if '(lambda ( x ) (wcmatch x "`.,`.`.")) (vl-directory-files dir "*" -1))
      )
    )
  )
)[/pcode]

XDSoft

sachindkini 发表于 2013-5-6 18:16

                               
登录/注册后可看大图

dear sir,

one more

dear sir,

      你贴的这个API的函数库和函数的手册可以一起打包传到论坛上吗？谢谢！

sachindkini

dear sir,

one more

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:BlockPreviewV1-0.lsp 
下载次数:93  文件大小:15.08 KB 
下载权限: 不限 以上  [免费赚D豆]

XDSoft

sachindkini 发表于 2013-5-6 18:41

                               
登录/注册后可看大图

dear sir,

one more

dear sir, thx

You put the API function library and function of the manual can be packaged together to the forum? Thank you.

cxjzxf

有谁知道图库中的图片是怎样显示出来的。用的是什么文件?

牢固

cxjzxf 发表于 2013-5-6 22:16
有谁知道图库中的图片是怎样显示出来的。用的是什么文件?

幻灯片啊!看一下楼上给的例子代码吧！

yxpxa

我咋看不见二楼的程序，难道是级别不够？

XDSoft

yxpxa 发表于 2013-5-7 18:12

                               
登录/注册后可看大图

我咋看不见二楼的程序，难道是级别不够？

二楼那是个占位，留着以后发布程序，现在还没有呢，你怎么能看到呢。:D

cxjzxf

牢固 发表于 2013-5-6 22:45
幻灯片啊!看一下楼上给的例子代码吧！

问题是在MFC用是把幻灯片重画出来，速度慢得很