ghl_729 发表于 2010-6-7 11:12:00

[求助]dck中把点取的坐标赋给textt中？

本帖最后由 作者 于 2010-6-7 15:13:12 编辑 <br /><br /> <p>大家好 我做了下面的界面</p>
<p>&nbsp;<img src="file:///C:/DOCUME~1/ADMINI~1/LOCALS~1/Temp/FZNG15~~DATZ)]E)%25C)8[2H.jpg"/> </p>
<p>现在我点取“点击坐标”后怎么不能把点取的坐标值赋给X 和 Y中呢？但是我取得的变量还是有的啊</p>
<p>下面是我的程序</p>
<p>&nbsp;</p>
<p><font face="Verdana">&nbsp;(while (&gt;= dow 2)<br/>&nbsp;&nbsp; (if(not(new_dialog "fgw" dcl_dtszh)) (exit))<br/>&nbsp;&nbsp; (if (/= tfm "") (set_tile "tfm" tfm))<br/>&nbsp;&nbsp; (if (= blc 0.5) (set_tile "bl_1" "1"))<br/>&nbsp;&nbsp; (if (= blc 1.0) (set_tile "bl_2" "1"))<br/>&nbsp;&nbsp; (if (= blc 2.0) (set_tile "bl_3" "1"))<br/>&nbsp;&nbsp; (if (= blc 5.0) (set_tile "bl_4" "1"))<br/>&nbsp;&nbsp; <br/>&nbsp;&nbsp; (action_tile "gpoint" "(done_dialog 2)")<br/>&nbsp;&nbsp;&nbsp; </font></p>
<p><font face="Verdana">&nbsp;&nbsp; (action_tile "accept" "(fgw_ok) (done_dialog 1)")<br/>&nbsp;&nbsp; (action_tile "cancel" "(progn (done_dialog) (setq bz 0))")<br/>&nbsp;&nbsp; (setq dow (start_dialog))<br/>&nbsp;&nbsp; (if (= dow 2)<br/>&nbsp;&nbsp;&nbsp;&nbsp; (progn<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<strong> (setq pt (getpoint "/n请选择图幅的左下角坐:"))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq x1_pt (cadr pt))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq y1_pt (car pt))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (set_tile "x" (rtos x1_pt))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (set_tile "y" (rtos y1_pt))&nbsp;；这两句是应该把坐标赋给上面的XY中的 为什么没有变化呢<br/></strong>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp; )</font></p>
<p><font face="Verdana">&nbsp;)<br/></font></p>

ghl_729 发表于 2010-6-13 09:15:00

<p><font face="Verdana">&nbsp;(while (&gt;= dow 2)<br/>&nbsp;&nbsp; (if(not(new_dialog "fgw" dcl_dtszh)) (exit))<br/>&nbsp;&nbsp; (if (/= tfm "") (set_tile "tfm" tfm))<br/>&nbsp;&nbsp; (if (= blc 0.5) (set_tile "bl_1" "1"))<br/>&nbsp;&nbsp; (if (= blc 1.0) (set_tile "bl_2" "1"))<br/>&nbsp;&nbsp; (if (= blc 2.0) (set_tile "bl_3" "1"))<br/>&nbsp;&nbsp; (if (= blc 5.0) (set_tile "bl_4" "1"))<br/>&nbsp;&nbsp; <br/>&nbsp;&nbsp; (action_tile "gpoint" "(done_dialog 2)")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;(set_tile "x" (rtos x1_pt))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (set_tile "y" (rtos y1_pt))&nbsp;；这两句是应该把坐标赋给上面的XY中的 为什么没有变化呢<br/></font></p>
<p><font face="Verdana">&nbsp;&nbsp; (action_tile "accept" "(fgw_ok) (done_dialog 1)")<br/>&nbsp;&nbsp; (action_tile "cancel" "(progn (done_dialog) (setq bz 0))")<br/>&nbsp;&nbsp; (setq dow (start_dialog))<br/>&nbsp;&nbsp; (if (= dow 2)<br/>&nbsp;&nbsp;&nbsp;&nbsp; (progn<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;<strong> (setq pt (getpoint "/n请选择图幅的左下角坐:"))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq x1_pt (cadr pt))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (setq y1_pt (car pt))<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;</strong>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp;&nbsp; )</font></p>
<p><font face="Verdana">&nbsp;)<br/></font></p>

ghl_729 发表于 2010-6-13 09:15:00

这样就可以了 呵呵
页: [1]
查看完整版本: [求助]dck中把点取的坐标赋给textt中？