求煮，为什么不能调用我的取值程序阿！
为什么不运行我的取值程序？(defun getdata()
(setq a $key1)
....
)
(defun dialogs ()
(setq dcl_id (load_dialog "lispPs.dcl"))
(if (not (new_dialog "dcl_show" dcl_id))
(exit)
)
(setq x (dimx_tile "image")
y (dimy_tile "image")
)
(start_image "image")
(slide_image 0 0 x y "lispPs")
(end_image)
(action_tile "accept" " (getdata)(done_dialog 1) ")
(setq ret (start_dialog))
(unload_dialog dcl_id)
)
怎么就是不运行我的getdata呢？
dcl_show : dialog{
label = "dialog";
:row{
:boxed_row {
:image{
key = "image";
width= 35;
aspect_ratio = 1.5;
//fixed_height = false;
//fixed_width = false;
color = -2;
}
}
:boxed_row{
:column{//第一列
:edit_box{
key = "r1";
label = "r1:";
}
:edit_box{
key = "r2";
label = "r2:";
}
:edit_box{
key = "r3";
label = "r3:";
}
:edit_box{
key = "r4";
label = "r4:";
}
:edit_box{
key = "r5";
label = "r5:";
}
:edit_box{
key = "r6";
label = "r6:";
}
:edit_box{
key = "d1";
label = "d1:";
}
:edit_box{
key = "h1";
label = "h1:";
}
:edit_box{
key = "h2";
label = "h2:";
}
:edit_box{
key = "h3";
label = "h3:";
}
}
: column {// 第二列
:edit_box{
key = "h4";
label = "h4:";
}
:edit_box{
key = "h5";
label = "h5:";
}
:edit_box{
key = "h6";
label = "h6:";
}
:edit_box{
key = "b1";
label = "b1:";
}
:edit_box{
key = "b2";
label = "b2:";
}
:edit_box{
key = "b3";
label = "b3:";
}
:edit_box{
key = "b4";
label = "b4:";
}
//:boxed{
//:button{
//key = "basep";
//label = "select point";
//}
:edit_box{
key = "p0_x";
label = "p0_X:";
}
:edit_box{
key = "p0_y";
label = "p0_Y:";
}
//}
}
}
}
ok_cancel;
} 给出DCL文件内容看看先。。。 lisp。lsp
;;;;;;;;;;;;;
(defun c:aa1()
;(setq p0 (getpoint "\n please select a base point:"))
;;;(setq r1 (getreal "\n input r1:"))
;;;(setq r2 (getreal "\n input r2:"))
;;;(setq r3 (getreal "\n input r3:"))
;;;(setq r4 (getreal "\n input M:"))
;;;(setq r5 (getreal "\n input r5:"))
;;;(setq r6 (getreal "\n input r6:"))
;;;(setq d1 (getreal "\n input d1:"))
;;;(setq h1 (getreal "\n input h1:"))
;;;(setq h2 (getreal "\n input h2:"))
;;;(setq h3 (getreal "\n input h3:"))
;;;(setq h4 (getreal "\n input h4:"))
;;;(setq h5 (getreal "\n input h5:"))
;;;(setq h6 (getreal "\n input h6:"))
;;;(setq b1 (getreal "\n input b1:"))
;;;(setq b2 (getreal "\n input b2:"))
;;;(setq b3 (getreal "\n input b3:"))
;;;(setq b4 (getreal "\n input b4:"))
(defun getdata ()
;;; (setq r1 (atof (get_tile "r1"))
;;; r2 (atof (get_tile "r2"))
;;; r3 (atof (get_tile "r3"))
;;; r4 (atof (get_tile "r4"))
;;; r5 (atof (get_tile "r5"))
;;; r6 (atof (get_tile "r6"))
;;; d1 (atof (get_tile "d1"))
;;; h1 (atof (get_tile "h1"))
;;; h2 (atof (get_tile "h2"))
;;; h3 (atof (get_tile "h3"))
;;; h4 (atof (get_tile "h4"))
;;; h5 (atof (get_tile "h5"))
;;; h6 (atof (get_tile "h6"))
;;; b1 (atof (get_tile "b1"))
;;; b2 (atof (get_tile "b2"))
;;; b3 (atof (get_tile "b3"))
;;; b4 (atof (get_tile "b4"))
;;; )
(setq r1 (atof$r1)
r2 (atof r2$)
r3 (atof (get_tile "r3"))
r4 (atof (get_tile "r4"))
r5 (atof (get_tile "r5"))
r6 (atof (get_tile "r6"))
d1 (atof (get_tile "d1"))
h1 (atof (get_tile "h1"))
h2 (atof (get_tile "h2"))
h3 (atof (get_tile "h3"))
h4 (atof (get_tile "h4"))
h5 (atof (get_tile "h5"))
h6 (atof (get_tile "h6"))
b1 (atof (get_tile "b1"))
b2 (atof (get_tile "b2"))
b3 (atof (get_tile "b3"))
b4 (atof (get_tile "b4"))
)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun draw()
(setq p0 (getpoint "\n please select a base point:"))
(setq r1 14
r2 19
r3 23
r4 3
r5 28
r6 5
d1 6
h1 10
h2 30
h3 65
h4 3
h5 2
h6 6
b1 32
b2 40
b3 52
b4 62
)
(command "-layer" "n" "cen,1,2,3" "c" "1" "cen" "c" "3" "1" "L" "center" "cen" "s" "0" "")
(setq p1 (polar p0 (/ pi 2.0) r2))
(setq p2 (polar p1 (* pi (/ -80.0 180.0)) r4))
(command "circle" p0 r1)
(command "-layer" "s" "cen" "")
(command "circle" p0 r2)
(command "layer" "s" "0" "")
(command "circle" p0 r3)
(setq ent0 (entlast))
(command "zoom" "e")
(setq tempr (* 0.8 r4))
(command "circle" p1 tempr)
(setq ent1 (entlast))
(command "arc" "c" p1 p2 "Angle" "270")
(setq ent2 (entlast))
;(command "array" ent1 ent2 "" "p" p0 "3" "360" "y")
(command "zoom" "p")
(setq p6 (polar p0 (/ pi -2.0) r5))
(command "arc" "c" p0 p6 "a" "90")
(setq entarc (entlast))
(setq p4 (polar p0 0 (/ b2 2.0)))
(setq p5 (polar p4 (/ pi -2.0) (- h3 h1)))
(command "line" p4 p5 "")
(setq ent3 (entlast))
(command "trim" ent0 "" p4 "")
(setq ent3 (entlast))
(setq pb (polar p0 (/ pi -2.0) h3))
(command "_mirror" ent3 "" p0 pb "n")
(setq p7 (polar p0 0 (/ b1 2.0)))
(setq p8 (polar pb 0 (/ b1 2.0)))
(command "line" p7 p8 "")
(setq ent4 (entlast))
(setq p9 (polar pb 0 (/ b4 2.0)))
(setq p10 (polar p9 (/ pi 2.0) h1))
(setq p11 (polar p10 pi (/ (- b4 b1) 2.0)))
(setq x (car pb))
(setq x (+ x (/ b3 2.0)))
(setq y (cadr pb))
(setq y (- y 5.0))
(setq p13 (list x y 0))
(setq p12 (polar p13 (/ pi 2.0) (+ h1 10)))
(setq p14 (polar p8 (/ pi 2.0) h2))
(setq p15 (polar p14 0 (/ (- b2 b1) 2.0)))
(command "line" p8 p9 p10 p11 "")
(command "line" p12 p13 "")
(setq entcen (entlast))
(command "line" p14 p15 "")
;;;(setq ptemp1 (polar p0 0 r5))
;;;(command "circle" "T" "tan" p6 "tan" p14 r6)
;;;(setq ent5 (entlast))
;;;(setq ent_data (entget ent5))
;;;(setq ce_ent5 (cdr (assoc 10 ent_data)))
;;;(setq ptemp2 (polar ce_ent5 (/ pi -2.0) r6))
;;;(command "zoom" "e")
;;;(command "trim" ent5 "" p7 ptemp1 "")
;;;(command "trim" entarc ent4 "" ptemp2 "")
(command "_fillet" "r" r6 "fillet" p6 p14)
;;;(command "_fillet" "r" r6 p6 p14)
(command "zoom" "e")
(command "_mirror" "w" p0 p9 entcen "" p0 pb "n")
(command "array" ent1 ent2 "" "p" p0 "3" "360" "y")
(setq x (car p12))
(setq x (- x (/ d1 2.0)))
(setq y (cadr p10))
(setq p16 (list x y))
(setq p17 (polar p16 (/ pi -2.0) h1))
(command "line" p16 p17 "")
(setq ent6 (entlast))
(command "mirror" ent6 "" p12 p13 "n")
(setq x1 (car p11))
(setq x2 (car p16))
(setq x (/ (+ x1 (/ (- b2 b1) 2.0) x2) 2.0))
(setq y (cadr p16))
(setq p18 (list x y))
(setq x (car p5))
(setq y (cadr p8))
(setq y (+ y (/ h1 2.0)))
(setq p19 (list x y))
(setq p20 (polar p18 (/ pi -2.0) h1))
(command "line" p18 p19 p20 "")
(bpoly (inters p16 p20 p18 p13))
(setq ent7 (entlast))
(setq ptemp1 (polar p16 0 d1))
(setq ptemp2 (polar p17 0 d1))
(bpoly (inters p10 ptemp2 p9 ptemp1))
(setq ent8 (entlast))
(command "zoom" "w" pb p10)
(command "hatch" "ansi31" 1 0 ent7 ent8 "")
(command "zoom" "p")
(setq x (car pb))
(setq x (- x (/ b1 2.0)))
(setq y (cadr pb))
(setq y (+ y h4))
(setq ps3 (list x y))
(setq pe3 (polar ps3 0 b1))
(setq ps2 (polar ps3 (/ pi 2.0) h5))
(setq pe2 (polar ps2 0 b1))
(setq ps1 (polar ps2 (/ pi 2.0) h6))
(setq pe1 (polar ps1 0 b1))
(command "line" ps1 pe1 "")
(command "line" ps2 pe2 "")
(command "line" ps3 pe3 "")
(setq ps (polar p0 pi (+ 3 r3)))
(setq pe (polar p0 0 (+ 3 r3)))
(command "line" ps pe "")
(setq ps (polar p0 (/ pi 2.0) (+ 3 r3)))
(setq pe (polar p0 (/ pi -2.0) (+ 3 h3)))
(command "line" ps pe "")
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun dialogs ()
(setq dcl_id (load_dialog "lispPs.dcl"))
(if (not (new_dialog "dcl_show" dcl_id))
(exit)
)
(setq x (dimx_tile "image")
y (dimy_tile "image")
)
(start_image "image")
(slide_image 0 0 x y "lispPs")
(end_image)
(action_tile "accept" " (getdat)(done_dialog 1) ")
(setq ret (start_dialog))
(unload_dialog dcl_id)
)
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(dialogs)
(if (= ret 1)
(draw)
)
) 就是" (getdat) (done_dialog 1) "前面的空格作怪，为什么这里要写空格？而且后面也写？ 这个是照着例子来的，很奇怪的，有时候你必须要加上空格
现在函数到时可以走到了。得到编辑框的值还是个问题 这里是不用空格的。
空格是函数和参数之间才用。
得到编辑框值这样就可以了
(get_tile "edit1")
edit1是编辑框的key 好了，是这样的
还有一个问题就是slide显示的图像特别小，该怎么拉伸到整个image控件阿？ 那是你幻灯片做小了吧。
你可以这样，slide_image就是填充幻灯片的，4个位置参数可以调一下（可以为负数的），使其只显示中间部分，不过这样分辨率就小了 ;;(action_tile "accept" " (getdat)(done_dialog 1) ")
(getdat)→(getdata)
;;(setq r1 (atof$r1)
;; r2 (atof r2$)
(setq r1 (atof (get_tile "r1"))
r2 (atof (get_tile "r2"))
页:
[1]