找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 924|回复: 1

[求助] [求助]:程序哪出错了?

[复制链接]
发表于 2006-9-5 21:01:42 | 显示全部楼层 |阅读模式

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

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

×
本人是菜鸟,编了个小程序,不知程序哪不对,出现如下问题:
点击“选点”按钮不能隐藏对话框,请教各位大侠指正。

DCL程序如下:
psel : dialog {
label = "选点";
: column {
    : edit_box {
        label = "X: ";
        key = "px";
        edit_width = 8;
    }
    : edit_box {
        label = "Y: ";
        key = "py";
        edit_width = 8;
    }   
}
: button {
     label = "选点<";
     key = "ins";
     width = 8;
     fixed_width = true;
   }
   ok_only;
}

LISP程序如下:
(defun c:psel ()
  (setq dcl_id (load_dialog "lianxi"))
  (if (not (new_dialog "psel" dcl_id)) (exit))
  (setq hid 5)
  (while (> hid 2)
    (action_tile "px" "(setq px1 $value)(pzb)")
    (action_tile "py" "(setq py1 $value)(pzb)")
    (action_tile "sel" "(done_dialog 3)")
    (action_tile "accept" "(done_dialog 1)")
    (setq hid (start_dialog))
    (if (= hid 3)
      (pse)
     )
   )
  (unload_dialog dcl_id)
  (princ p1)
  (princ)
)

(defun pzb ()
  (setq px (float (atof px1)))
  (setq py (float (atof py1)))
  (setq p1 (list px py))
  (princ)
)


(defun pse ()  
  (setq ps (getpoint "\n选点:"))
  (setq psx (car ps))
  (setq psy (cadr ps))
  (setq p1 (list psx psy))
  (setq psx1 (rtos psx 2 4))
  (setq psy1 (rtos psy 2 4))
  (set_tile "px" psx1)
  (set_tile "py" psy1)
  (princ)
)

另外,本程序是想要实现如下功能:
当点击对话框中的“选点”按钮后,对话框要暂时关闭,在绘图区指定一点后,对话框重新出现,并且在“X:”、“Y:”编辑框中显示该点的坐标值。不知要想实现该功能,还要做什么改动。
在这里,菜鸟先谢谢各位好心的大侠了!!!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 2729个

财富等级: 家财万贯

发表于 2006-9-6 10:31:06 | 显示全部楼层
这里不好调试,也一下子说不出程序运行语句哪里有问题,我看到的问题:
1.你"选点<"按钮的关键词是"ins",而你对话框运行中用的却是"sel"
2.你首先应该对变量(px1,py1等)进行初始化,在while语句后进行赋值,使得运行了pse程序后将新的坐标值显示出来

建议里多看看其他程序的例子,学习一下对话框操作的一些思路
还有就是学着用vl调试,象第一个问题就可以发现了
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-12-25 14:32 , Processed in 0.398836 second(s), 33 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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