选取点的DCL

yufeng37 · 发表于 2017-6-4 11:07:46

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

本帖最后由 yufeng37 于 2017-6-4 11:09 编辑

前天刚刚开始学习DCL，这是我测试通过的一个选取点的DCL，没啥用，就是学习写一下DCL。给学习DCL的同学一个参考。ptwin : dialog {
label = "窗口选择";
      : button {
         label = "拾取(&P) <";
         key = "pick";
         fixed_width = true;
      }
         : boxed_row {
            label = "第一角点(&F)";
            : edit_box {
                  label = " X: ";
                  key = "fpx";
                  edit_width = 10;
            }
            : edit_box {
                  label = " Y: ";
                  key = "fpy";
                  edit_width = 10;
            }
         }
         : boxed_row {
            label = "另一角点(&O)";
            : edit_box {
                  label = " X: ";
                  key = "spx";
                  edit_width = 10;
            }
            : edit_box {
                  label = " Y: ";
                  key = "spy";
                  edit_width = 10;
            }
         }
      ok_cancel_err;
}

lsp如下：

(defun c:pk ()
  (dcl_pkpt)
  (prin1)
)
(defun dcl_pkpt       ()
  (setq dcl_id (load_dialog "选取点.dcl"))
  (new_dialog "ptwin" dcl_id)
  (if (null pt1x)
(setq pt1x 0)
   )
  (set_tile "fpx" (rtos pt1x))
  (if (null pt1y)
(setq pt1y 0)
)
  (set_tile "fpy" (rtos pt1y))
  (if (null pt2x)
(setq pt2x 0)
   )
  (set_tile "spx" (rtos pt2x))
  (if (null pt2y)
(setq pt2y 0)
   )
  (set_tile "spy" (rtos pt2y))
  (action_tile "pick" "(done_dialog 1)")
  (setq dd (start_dialog))
  (cond       ((= dd 1) (getpt))
      (t (alert "未选择点！"))
  )
)
(defun getpt ()
  (setq pt1 (getpoint "在屏幕上点第一个点:"))
  (setq pt1x (car pt1))
  (setq pt1y (cadr pt1))
  (setq pt2 (getcorner pt1 "输入第二个点:"))
  (setq pt2x (car pt2))
  (setq pt2y (cadr pt2))

)

Bao_lai · 发表于 2017-6-4 11:36:44

嗯，我也是DCL刚入门。

434939575 · 发表于 2017-6-4 11:58:04

我还不会用dcl进来学习下！

aimisiyou · 发表于 2017-6-4 13:06:10

记事本里敲代码的情形浮现……

liunian0524 · 发表于 2017-6-5 07:57:53

感谢楼主分享

freefor5127 · 发表于 2017-6-8 21:15:37

同刚学dcl。

啊啊啊12z · 发表于 2017-6-14 11:48:56

滴答滴答滴答滴答滴答滴答滴答滴答滴答滴答滴答滴答滴答滴答滴答滴答滴答

zjh2785 · 发表于 2017-6-22 15:43:29

来看看思路一起学习

z397876224 · 发表于 2017-8-9 22:24:24

回复正好拿来参考

lhtfhc · 发表于 2017-8-30 22:25:18

学习学习，谢谢额

livewin · 发表于 2017-9-17 16:55:41

嗯，我也是DCL刚入门

yimanda · 发表于 2017-9-18 09:24:03

嗯，我也是DCL刚入门。

tension33 · 发表于 2017-9-21 22:40:07

现在正在学习dcl，想看看这个

aaaaqq · 发表于 2017-9-28 01:38:35

规划局快乐可能

tension33 · 发表于 2017-10-12 18:31:20

不错，正在学习DCL相关，这个可以参考下

账号		自动登录	找回密码
密码			立即注册

[分享] 选取点的DCL

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

评分