新手上路求帮忙看下找不到错误

retfjkl · 发表于 2013-1-3 11:41

(defun c:box9()
(setvar "cmdecho" 0)
    (dcl_box9)
    (princ)
  )
(defun dcl_box9()
(set dcl_id(load_dialog "box9"))
    (new_dialog "box9" dcl_id)
(set_tile "edit_1"(rtos(getreal "edit_1")))
    (set_tile "edit_2"(rtos(getreal "edit_2")))
    (set_tile "edit_3"(rtos(getreal "edit_3")))
    (set_tile "button_1"(rtos(getpoint "button_1")))
    (action_tile "accept" "(get_p1_a_b)(dialog 1)")
    (setq dd(stratt_dialog))
(if(=dd 1)(c:box10))
  )
(defun get_p1_a_b()
(setq p1(atof(get_tile"button_1"))
(setq a(atof(get_tile"edit_1"))
(setq b(atof(get_tile"edit_2"))
(setq h(atof(get_tile"edit_3"))
)
(defun c:box10()
(setvar "cmdecho" 0)
(get_input_date)
(command "line" p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16 p17 p18 p1 "")
    (command "line" p18 p19 "")
    (command "line" p19 p20 "")
   (command "line" p20 p21 "")
(command "line" p21 p12 "")
   (command "line" p3 p8 "")
   (command "line" p4 p7 "")
   (command "line" p16 p19 "")
   (command "line" p19 p2 "")
   (command "line" p15 p20 "")
   (command "line" p20 p3 "")
   (command "line" p14 p21 "")
   (command "line" p21 p8 "")
   (command "line" p12 p9 "")
(princ)
  )
(defun get_input_date()
    (setvar "cmdecho" 0)
    (setq p1 (getpoint "输入左下角点:"))
    (setq a (getreal "输入长a=:"))
    (setq b (getreal "输入宽b=:"))
    (setq h (getreal "输入高h=:"))
    (setq p2 (polar p1 0 a ))
    (setq p3 (polar p2 0 b ))
    (setq p4 (polar p3 (-(/ pi 2)) b ))
    (setq p5 (polar p4 (-(/ pi 2)) (/ h 4)))
    (setq p6 (polar p5 0 a))
    (setq p7 (polar p6 (/ pi 2) (/ h 4)))
   (setq p8 (polar p7 (/ pi 2) b))
    (setq p9 (polar p8 0 b))
(setq p10 (polar p9 0 (/ a 5 )))
   (setq p11 (polar p10 (/ pi 2) h))
    (setq p12 (polar p11 pi (/ a 5 )))
(setq p13 (polar p12 (/ pi 2) (/ b 2)))
(setq p14 (polar p13 pi b))
(setq p15 (polar p14 pi a))
(setq p16 (polar p15 pi b))
(setq p17 (polar p16 pi a))
(setq p18 (polar p17 (-(/ pi 2)) (/ b 2)))
(setq p19 (polar p18 0 a))
(setq p20 (polar p19 0 b))
(setq p21 (polar p20 0 a))
)

Andyhon · 发表于 2013-1-3 11:49

先改这个再试

(defun get_p1_a_b ()
  (setq p1 (atof (get_tile "button_1")))
  (setq a (atof (get_tile "edit_1")))
  (setq b (atof (get_tile "edit_2")))
  (setq h (atof (get_tile "edit_3")))
)

retfjkl · 发表于 2013-1-3 13:04

参数类型错误。。。

simpleye · 发表于 2013-1-3 13:23

对话框文件呢

retfjkl · 发表于 2013-1-3 13:37

DCL 是吗。。？

retfjkl · 发表于 2013-1-3 13:37

ox9:dialog{
label="折叠纸盒";
:row {
:boxed_column{
:edit_box {
label = "输入长度";
edit_width = 5;
key="edit_1";
}
:edit_box {
label = "输入宽度";
edit_width = 5;
key="edit_2";
}
:edit_box {
label = "输入高度";
edit_width = 5;
key="edit_3";
}
}
:boxed_column{
:image {
width=30;
height=15;
aspect_ratio=0.1;
key="img_1";
color= -2 ;
}
:button{
label="选取左下角点";
edit_width=12;
key="button_1";
}
}
}
spacer_1;
ok_cancel;
}

retfjkl · 发表于 2013-1-5 14:46

怎么没人呢？？？！

㊣▁▂▃▄▅ · 发表于 2013-1-5 17:25

不懂啊，比你还新呢

蒹葭_Keirll · 发表于 2013-1-5 18:02

ox9:dialog{
label="折叠纸盒";

是不是应该是box9?

sunny20102 · 发表于 2013-1-6 11:37

本帖最后由 sunny20102 于 2013-1-6 11:38 编辑

建议多学习下, 控件设置、动作表达式、隐藏对话框没有理解

初步实现了隐藏，其余的你自己修改吧

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

新手上路求帮忙看下找不到错误

本帖子中包含更多资源

浏览过的版块

新手上路 求帮忙看下 找不到错误

本帖子中包含更多资源

浏览过的版块

新手上路求帮忙看下找不到错误