[教学]：ObjiectDCL应用一例:预览DWG图形

daziran

这个例子建立一个对话框，预览一个图文件的图形。
1．        准备工作
  (1)安装AutoCAD 2002。
  (2)安装ObjectDCL 2.0 (要正版? 找晓东吧)。
  (3)将ObjectDCL.arx 所在路径加入到ACAD的“支持文件搜索路径”。
  (4)本实例分别由“ODCLviewdwg.odc” 和“ODCLviewdwg.lsp” 两个文件构成。将这两个文件所在路径加入到ACAD的“支持文件搜索路径”。
2．        实现览图
  (1)启动AutoCAD
    (2)装入“ODCLviewdwg.lsp”
  (3)运行VIEWDWG,通过“浏览”查找图形文件，得到结果如图。

daziran

jixu

daziran

2. [Font=宋体]
   
3.    3．ODCLviewdwg.odc内容
   
4.   ODCL工程文件由ObjectDCL.exe来管理。如下图所示。
   
5. 
   
6. 本例ODC工程的内容包括：
   
7. (1) 建立Modal对话框，名称为viewdwg  ,标题名称为“预览DWG图形”
   
8. (2) 建立BlockView 控件，名称为BlockView
   
9. (3) 建立TextButton控件，名称为Browse，标题名称为“浏览”。
   
10.    单击事件(Events)函数名为：  :ODCLviewdwg_Browse_OnClicked
    
11. (4) 建立TextButton控件，名称为Cancel，标题名称为“退出”
    
12.        单击事件函数名为：c:ODCLviewdwg_Cancel_OnClicked
    
13. (5) 建立Label控件，名称为Label1，
    
14.        内容为“显示控制：鼠标左键动态显示，鼠标中键平移，鼠标滑轮缩放。”
    
15. 
    
16. 
    
17.   4．ODCLviewdwg.lsp 内容
    
18. 
    
19. (print "命令：ViewDwg   功能：预览DWG图形")  
    
20. 
    
21. ;定义函数: 装入 ObjectDCL.arx (如果未装入的话)
    
22. 
    
23. (defun ObjectDCL_LoadArx ()
    
24.    (if (not (member "objectdcl.arx" (arx)))
    
25.       (arxload "objectdcl.arx" "ObjectDCL.arx 未找到。")
    
26.    )
    
27. )
    
28. 
    
29. ;定义浏览按钮事件函数
    
30. (defun c:ODCLviewdwg_Browse_OnClicked ()
    
31.    (setq sFileName (GetFiled "Select a drawing file" "" "dwg" 8))
    
32.    (if (/= sFileName nil)
    
33.        (Odcl_BlockView_LoadDwg  ;ODCL-LisP函数，在BlockView控件内显示图形。
    
34.                 "ODCLviewdwg"
    
35.                 "viewdwg"
    
36.                 "BlockView"
    
37.                  sFileName
    
38.        )
    
39.    )
    
40. )
    
41. 
    
42. ;定义退出按钮事件函数
    
43. (defun c:ODCLviewdwg_Cancel_OnClicked ()
    
44.    (Odcl_Form_Close "ODCLviewdwg" "viewdwg") ;这是ODCL-LisP函数，关闭对话框。
    
45. )
    
46. 
    
47. ;定义览图函数
    
48. (defun c:viewdwg ()
    
49.    (ObjectDCL_LoadArx)   ;用户定义函数，装入 ObjectDCL.arx (如果未装入的话)
    
50.    (Odcl_LoadProject "ODCLviewdwg" T)         ;ODCL-LisP函数，装入该工程
    
51.    (Odcl_Form_Show "ODCLviewdwg" "viewdwg" )  ;ODCL-LisP函数，显示该窗体
    
52.    (princ)
    
53. )
    
54. 
    

[Font=宋体]<br />    3．ODCLviewdwg.odc内容<br />   ODCL工程文件由ObjectDCL.exe来管理。如下图所示。<br /> <br /> 本例ODC工程的内容包括：<br /> (1) 建立Modal对话框，名称为viewdwg  ,标题名称为“预览DWG图形”<br /> (2) 建立BlockView 控件，名称为BlockView<br /> (3) 建立TextButton控件，名称为Browse，标题名称为“浏览”。<br />    单击事件(Events)函数名为：  :ODCLviewdwg_Browse_OnClicked<br /> (4) 建立TextButton控件，名称为Cancel，标题名称为“退出”<br />        单击事件函数名为：c:ODCLviewdwg_Cancel_OnClicked<br /> (5) 建立Label控件，名称为Label1，<br />        内容为“显示控制：鼠标左键动态显示，鼠标中键平移，鼠标滑轮缩放。”<br /> <br /> <br />   4．ODCLviewdwg.lsp 内容<br /> <br /> (print "命令：ViewDwg   功能：预览DWG图形")  <br /> <br /> ;定义函数: 装入 ObjectDCL.arx (如果未装入的话) <br /> <br /> (defun ObjectDCL_LoadArx ()<br />    (if (not (member "objectdcl.arx" (arx)))<br />       (arxload "objectdcl.arx" "ObjectDCL.arx 未找到。")<br />    )<br /> )<br /> <br /> ;定义浏览按钮事件函数<br /> (defun c:ODCLviewdwg_Browse_OnClicked ()<br />    (setq sFileName (GetFiled "Select a drawing file" "" "dwg" 8))<br />    (if (/= sFileName nil)<br />        (Odcl_BlockView_LoadDwg  ;ODCL-LisP函数，在BlockView控件内显示图形。<br />                 "ODCLviewdwg"<br />                 "viewdwg"<br />                 "BlockView"<br />                  sFileName<br />        )<br />    )<br /> )<br /> <br /> ;定义退出按钮事件函数<br /> (defun c:ODCLviewdwg_Cancel_OnClicked ()<br />    (Odcl_Form_Close "ODCLviewdwg" "viewdwg") ;这是ODCL-LisP函数，关闭对话框。<br /> )<br /> <br /> ;定义览图函数<br /> (defun c:viewdwg ()<br />    (ObjectDCL_LoadArx)   ;用户定义函数，装入 ObjectDCL.arx (如果未装入的话) <br />    (Odcl_LoadProject "ODCLviewdwg" T)         ;ODCL-LisP函数，装入该工程<br />    (Odcl_Form_Show "ODCLviewdwg" "viewdwg" )  ;ODCL-LisP函数，显示该窗体<br />    (princ)<br /> )<br /> <br />

晓东、Qlin 、HQD9639等即使抽出难得的时间，也要用来深入研究ObjectDCL，没时间作普及工作。万事开头难，不管学习ODCL几天，抛砖引玉总不会挨批的吧。