QUAN2518 发表于 2008-7-18 00:17:00

[求助]请教个 有关DCL的问题?

本帖最后由 作者 于 2008-7-18 0:30:32 编辑 <br /><br /> <p></p><p>上面开关控制后面的单选按钮是怎么实现的</p><p><font color="#f70938">我想用开关来控制DCL的一些输入项目</font> ?哪个高手给个相关的 DCL和LISP源码来学习一下 谢谢了先</p><p><font color="#f70938">在请教下 :我想将一组选集复制后,对复制出来的图元进行操作 ;如何得到复制所产生的新图元集?</font></p>

byghbcx 发表于 2008-7-18 07:47:00

<p>(action_tile&nbsp;&nbsp; "key"&nbsp; "(mode_tile&nbsp; \"key1\" 0)")</p><p><a href="http://bbs.mjtd.com/forum.php?mod=viewthread&tid=68694&amp;replyID=&amp;skin=1">http://bbs.mjtd.com/forum.php?mod=viewthread&tid=68694&amp;replyID=&amp;skin=1</a></p>

QUAN2518 发表于 2008-7-19 00:21:00

byghbcx发表于2008-7-18 7:47:00static/image/common/back.gif(action_tile&nbsp;&nbsp; \"key\"&nbsp; \"(mode_tile&nbsp; \\"key1\\" 0)\")http://bbs.mjtd.com/forum.php?mod=viewthread&tid=68694&amp;replyID=&amp;skin=1

<p>(action_tile&nbsp;&nbsp; "key"&nbsp; "(mode_tile&nbsp; \"key1\" 0)")</p><p>着句不太理解 能给个</p><p>mode_tile设置对话框控件的状态</p><p>但是具体使用上还是不太了解该如何操作</p><p>\"key1\"&nbsp; (指定控件操作名的字符串。区分大小写。) 若控制下面的项目 \"key1\"字符因该如何写</p><p class="0"><span style="FONT-SIZE: 10.5pt; FONT-FAMILY: 'Times New Roman'; mso-spacerun: 'yes';">&nbsp;:edit_box{label="<font face="宋体">厚度";key="dcl-cov-t";edit_width=5;}</font></p><p class="0">&nbsp;:edit_box{label="<font face="宋体">材质";key="dcl-cov-m";edit_width=5;}</font></p><!--Element not supported - Type: 8 Name: #comment--></span><!--Element not supported - Type: 8 Name: #comment-->

byghbcx 发表于 2008-7-19 10:00:00

<p>(action_tile&nbsp;&nbsp; "key"&nbsp; "(mode_tile&nbsp; \"dcl-cov-t\" (abs (1- (atoi (get_tile \"dcl-cov-t\")))))")</p><p>(action_tile&nbsp;&nbsp; "key"&nbsp; "(mode_tile&nbsp; \"dcl-cov-m\" (abs (1- (atoi (get_tile \"dcl-cov-m\")))))")</p>

xyp1964 发表于 2008-7-20 10:59:00

<p>;; 对话框测试<br/>(defun c:test711 ()<br/>&nbsp; (cmdla0)<br/>&nbsp; (defun aaa ()<br/>&nbsp;&nbsp;&nbsp; (xyp-Dcl-Gettile '("k1"))<br/>&nbsp;&nbsp;&nbsp; (cond ((= k1 "1")<br/>&nbsp;&nbsp;&nbsp; (mode_tile "k2" 0)<br/>&nbsp;&nbsp;&nbsp; (mode_tile "k3" 0)<br/>&nbsp;&nbsp; )<br/>&nbsp;&nbsp; ((= k1 "0")<br/>&nbsp;&nbsp;&nbsp; (mode_tile "k2" 1)<br/>&nbsp;&nbsp;&nbsp; (mode_tile "k3" 1)<br/>&nbsp;&nbsp; )<br/>&nbsp;&nbsp;&nbsp; )<br/>&nbsp; )<br/>&nbsp; (xyp-initSet '(k1 k2 k3) '("1" "1" "0"))<br/>&nbsp; (setq&nbsp;Ilst '(("k1" "自动保存打印并发布日志(A)" "bool" "(aaa)")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (nil nil ":boxed_radio_column{")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ("k2" "保存一个连续打印日志(C)" "radio")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; ("k3" "每次打印保存一个日志(L)" "radio")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (nil nil "}")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (nil nil "user" "(aaa)")<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; )<br/>&nbsp; )<br/>&nbsp; (if (= (xyp-Dcl-Init Ilst "【打印并发布日志文件】" t) 1)<br/>&nbsp;&nbsp;&nbsp; (alert "\n对话框测试")<br/>&nbsp; )<br/>&nbsp; (cmdla1)<br/>)</p><p></p>
页: [1]
查看完整版本: [求助]请教个 有关DCL的问题?