[编程申请]：ODCL有预览图形的控件吗？

daziran

在LISP用户自定义对话框内预览DWG图形，这是老话题了，有解吗？
晓东似乎说过ODCL能解。

hqd9639

有。

daziran

我急需这个功能，hqd9639一定要帮忙，我请您吃饭如何：）
我熟悉LISP , DCL,但不熟悉ODCL
我需要实现下图中的图形预览。如何实现呀？
这是我在ACAD R13上做的题库，但其中的图形预览函数在R14后已经不能使用 ：（

hqd9639

谢谢你的好意，吃饭就不必了。

用ODCL实现你的要求不难，只是如你对ODCL一点也不熟悉的话，我一下也难说得明白。
直接写了个例子，供你参考。

CODE：
(defun ObjectDCL_LoadArx ()
   (if (not (member "objectdcl.arx" (arx)))
      (arxload "objectdcl.arx" "ObjectDCL.arx not found.")
   )
)
(defun c:dwgv ()
   (ObjectDCL_LoadArx)
   (Odcl_LoadProject "dwgview.odc" T)
   (Odcl_Form_Show dwgview_DclForm1)
   (princ)
)

(defun c:DclForm1_OnInitialize ()
  (Odcl_Form_SetTitleBarText dwgview_DclForm1 "DWG图形浏览")

)

(defun c:DclForm1_ListBox1_OnSelChanged (nSelection sSelText /)

   (Odcl_DwgPreview_LoadDwg dwgview_DclForm1_DwgPreview1 sSelText)
)

(defun c:DclForm1_TextButton1_OnClicked ()
  (setq dwg_lst (Odcl_MultiFileDialog
                "CAD图形文件(*.dwg)|*.dwg"
                "选取DWG图形"
                ""
          )
  )
  (Odcl_ListBox_AddList dwgview_DclForm1_ListBox1 dwg_lst)
)

(defun c:DclForm1_TextButton2_OnClicked ()
  (Odcl_Form_Close dwgview_DclForm1)
)

daziran

能解决我就有信心了。我好好学学，遇到问题再请教HQD。
吃饭不是贿赂，随缘之庆呀，到天津时怎么不能聚聚？

hqd9639

最初由 daziran 发布
[B]能解决我就有信心了。我好好学学，遇到问题再请教HQD。
吃饭不是贿赂，随缘之庆呀，到天津时怎么不能聚聚？ [/B]

学ODCL不难，有了信心，你肯定能学好。

daziran

谢谢HQD9639，我基本了解了odcl的简单用法
但是DwgPreview 控件的分辨率怎么这么低呀。是不是显示的缩微预览图像？
有解吗？
另外，老是显示 “This dialog box was created using an evaluation Version of ObjectDCL ”,
这也不是事呀 ：（

hqd9639

DwgPreview 控件显示的是微缩图像,不能缩放，看复杂大图不太好用。用Blockview控件来显示会更好些，它可以PAN、ZOOM、Orbit.

另外，因为你用的ODCL是试用版，才会出现那个提示。

daziran

确实如此