明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1589|回复: 3

[OpenDCL] 为何在opendcl里面修改了面板的数量后(如下图),在CAD中操作界面依然是4行3列?

  [复制链接]
发表于 2021-6-18 16:15:05 | 显示全部楼层 |阅读模式
原贴见http://bbs.mjtd.com/forum.php?mo ... FE%B2%D8&page=1
有个问题想请教一下,为何在opendcl里面修改了面板的数量后(如下图),在CAD中操作界面依然是4行3列?

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
 楼主| 发表于 2021-6-18 16:32:14 | 显示全部楼层
(defun gxl-AutoLoadODclArx  (/ loaded fn v fnn)
  (if (not dcl_getversionex)
    (VL-CATCH-ALL-APPLY 'vl-cmdf (list "opendcl"))
    )
  (if (not dcl_getversionex)
  (cond
    ((= "16" (setq v (itoa (atoi (getvar 'acadver)))))
     (if
          (setq fnn (findfile (setq fn (strcat "opendcl." v ".arx"))))
           (setq loaded (arxload fnn "1"))
           (setq loaded "2")
           )
     )
    ((or (= "17" v) (= "18" v) (= "19" v))
     (if (= "x86" (getenv "PROCESSOR_ARCHITECTURE"))
       (if (setq fnn
                     (findfile (setq fn (strcat "opendcl." v ".arx"))))
            (setq loaded (arxload fnn "1"))
            (setq loaded "2")
            )
       (if (setq fnn
                     (findfile (setq fn (strcat "opendcl." v "x64.arx"))))
            (setq loaded
                   (arxload fnn
                            "1"))
            (setq loaded "2")
            )
       )
     )
    (t (Setq loaded "2"))
    )
    (setq loaded "3") ;_ 已加载
    )
  (if (= "1" loaded)
    (progn
      (princ (strcat fn "加载失败!程序将退出!"))
      (exit)
      )
    (if        (= "2" loaded)
      (progn
        (princ
          (strcat "未找到对应的\"" fn "\"文件!程序将退出!"))
        (exit)
        )
      )
    )
  loaded
  )
(defun gxl-Load_ODCL_Project ( projname reload password alias / bytes rtype Projects)
        (cond
            (        (null dcl_project_import)
                (princ "需OpenDCL 5.0 以上版本支持.\n")
                nil
            )
            ( (and
                (setq bytes (vl-get-resource projname))
                (eq 'str (setq rtype (type bytes)))
                (not (eq "" bytes))
              )
             (if reload
              (dcl_project_import bytes password alias)
               (if (or
                     (not (setq Projects (dcl_GetProjects)))
                     (not (member (strcase (vl-filename-base projname)) (mapcar 'strcase Projects)))
                     )
                 (dcl_project_import bytes password alias)
                 )
               )

            )
            ((dcl_project_load (findfile projname) reload alias )  )
        )
    )
;;鼠标移动隐藏对话框主程序加载   
(defun c:AutoHide  ()
  (gxl-AutoLoadODclArx)
  (gxl-Load_ODCL_Project "AutoHide.odcl" t nil nil)
  (setq bFlag t)
  (dcl_form_show AutoHide_Form1)
  (if (not (dcl_Form_IsActive AutoHide_Form1))
    (progn
      (dcl_form_show AutoHide_Form1)
      
      )
    )
  (princ)
  
  )
;;初始化对话框
(defun c:AutoHide_Form1_OnInitialize (/ scr pos)
  (setq scr (dcl_getscreensize))
  (setq pos (getenv "隐藏对话框初始位置"))
  (if pos
    (setq pos (read pos)
            *FormX (car pos) *FormY (cadr pos)
          )
    (setq *FormX (fix (* 0.5 (car scr))) *FormY 5)
    )
  (setenv "隐藏对话框初始位置" (strcat "(" (itoa *FormX) " " (itoa *FormY) ")"))
  (dcl_Control_SetPos AutoHide_Form1 *FormX *FormY 70 25)
  (princ)
)
;;对话框移动
(defun c:AutoHide_Form1_OnMove        (NewX NewY /)
  (if (not bFlag)
    (progn
      (setq *FormX NewX
            *FormY NewY)
      (setenv "隐藏对话框初始位置"
              (strcat "(" (itoa *FormX) " " (itoa *FormY) ")"))
      )
    (setq bFlag nil)
    )
  (princ)
  )




;;鼠标进入对话框,则展开对话框
(defun c:AutoHide_Form1_OnMouseEntered (/ scr)
  (vl-bb-set '*FormExtend* t)
  (setq scr (dcl_getscreensize))
  ;(dcl_Control_SetPos AutoHide_Form1 (fix (* 0.5 (car scr))) 5 240 150)
  (dcl_Control_SetPos AutoHide_Form1 *FormX *FormY 240 150)
  (princ)
)
;;自动隐藏对话框
(defun c:AutoHideForm (/ scr)
  (if (not (vl-bb-ref '*FormExtend*))
    (progn
      (setq scr (dcl_getscreensize))
      ;(dcl_Control_SetPos AutoHide_Form1 (fix (* 0.5 (car scr))) 5 70 25)
      (dcl_Control_SetPos AutoHide_Form1 *FormX *FormY 70 25)
      )
    )
  (princ)
  )
;;鼠标离开对话框,则隐藏对话框
(defun c:AutoHide_Form1_OnMouseMovedOff (/ )
  (vl-bb-set '*FormExtend* nil)
  (dcl_delayedinvoke 800 "c:AutoHideForm") ;_ 延迟800毫秒隐藏对话框
  (princ)
)
;;关闭对话框
(defun c:AutoHide_Form1_TextButtonOK_OnClicked (/)
  (dcl_form_close AutoHide_Form1)
  (setq *FormX nil  *FormY nil)
  (princ)
)
;;无文档时自动关闭对话框
(defun c:AutoHide_Form1_OnEnteringNoDocState (/)
  (vl-bb-set '*FormExtend* nil)
  (dcl_form_close AutoHide_Form1)
  (setq *FormX nil  *FormY nil)
  (princ)
)
;;单行文字命令
(defun c:AutoHide_Form1_TextButton0_OnClicked (/)
  (dcl_sendstring "text ")
)
;;其他命令可自行添加代码
 楼主| 发表于 2021-6-19 08:35:19 | 显示全部楼层
本帖最后由 注册 于 2021-6-20 10:00 编辑

这个问题自己解决了,修改70和25两个数值即可

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
 楼主| 发表于 2022-4-1 19:49:14 | 显示全部楼层
6666pppp哈哈
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-11-1 07:48 , Processed in 0.146772 second(s), 24 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表