设为首页收藏本站

晓东CAD家园-论坛

 找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 1850|回复: 59

[分享] 选取点的DCL

  [复制链接]

已领礼包: 217个

财富等级: 日进斗金

发表于 2017-6-4 11:07:46 | 显示全部楼层 |阅读模式

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

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

x
本帖最后由 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))

)



QQ截图20170604110221.png

评分

参与人数 1D豆 +5 收起 理由
newer + 5 很给力!经验;技术要点;资料分享奖!

查看全部评分

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 10个

财富等级: 恭喜发财

发表于 2017-6-4 11:36:44 来自手机 | 显示全部楼层
嗯,我也是DCL刚入门。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 1331个

财富等级: 财源广进

发表于 2017-6-4 11:58:04 | 显示全部楼层
我还不会用dcl进来学习下!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 1664个

财富等级: 堆金积玉

发表于 2017-6-4 13:06:10 | 显示全部楼层
记事本里敲代码的情形浮现……
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 811个

财富等级: 财运亨通

发表于 2017-6-5 07:57:53 | 显示全部楼层
感谢楼主分享
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2017-6-8 21:15:37 来自手机 | 显示全部楼层
同刚学dcl。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

已领礼包: 1个

财富等级: 恭喜发财

发表于 2017-6-14 11:48:56 | 显示全部楼层
滴答滴答滴答滴答滴答滴答滴答滴答滴答滴答滴答滴答滴答滴答滴答滴答滴答
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 15个

财富等级: 恭喜发财

发表于 2017-6-22 15:43:29 | 显示全部楼层
来看看思路  一起学习
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 42个

财富等级: 招财进宝

发表于 2017-8-9 22:24:24 | 显示全部楼层
回复 正好拿来参考
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 1891个

财富等级: 堆金积玉

发表于 2017-8-30 22:25:18 | 显示全部楼层
学习学习,谢谢额
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 45个

财富等级: 招财进宝

发表于 2017-9-17 16:55:41 | 显示全部楼层
嗯,我也是DCL刚入门
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2017-9-18 09:24:03 | 显示全部楼层
嗯,我也是DCL刚入门。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 5个

财富等级: 恭喜发财

发表于 2017-9-21 22:40:07 来自手机 | 显示全部楼层
现在正在学习dcl,想看看这个
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2017-9-28 01:38:35 | 显示全部楼层
规划局快乐可能
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

已领礼包: 5个

财富等级: 恭喜发财

发表于 2017-10-12 18:31:20 | 显示全部楼层
不错,正在学习DCL相关,这个可以参考下
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|小黑屋|手机版|Archiver|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )  

GMT+8, 2020-5-28 14:42 , Processed in 0.095234 second(s), 92 queries , Gzip On, WinCache On.

Powered by Discuz! X3.4

Copyright © 2001-2020, Tencent Cloud.

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