发个自己写的小程序(五金模_圆冲绘制)
<p>发个自己写的小程序(五金模_圆冲绘制) 希望给同行业带来方便</p><p> 不过自己加了个次数限制. .我也刚学做的不好大家指教.</p><p>正在完善................现在的数据都是死的 以后回做成动态的打开后自动带入上次的数据.</p><p>虽然很简单,但是正在学OPENDCL哪个做出来的对话框比较美化一点. 所以没有改.</p><p>要是哪个老师能收我这学生就好了.........自学真的好辛苦.</p><p>顺便问下为什么</p><p>(defun c:pii (/ confine_a confine_b)<br/> (setvar "cmdecho" 0)<br/> (if (setq confine_a(vl-registry-read "注册表路径1" "文件名1"))<br/> (progn<br/> (if (setq confine_b(vl-registry-read "注册表路径2" "文件名2" ))<br/> (progn<br/> (if (= (atoi confine_a) (atoi confine_a))<br/> (progn<br/> (if (>= (atoi confine_a) 500)(progn (alert "警告:试用次数已满500次.") (exit)))<br/> )<br/> (progn (alert "警告:非法操作.") (exit))<br/> )<br/> );confine_b存在<br/> (progn (alert "警告:非法操作.") (exit))<br/> )<br/> );confine_a存在<br/> (progn (alert "初次使用通告:可试用500次.")<br/> (vl-registry-write "注册表路径2" "文件名2" "0")<br/> (vl-registry-write "注册表路径1" "文件名1" "0"))<br/> )<br/> (alert (strcat"温馨提示:适当休息,以免用眼疲劳" "\n剩余使用次数"(itoa(- 500(atoi confine_a)))))<br/> (vl-registry-write "注册表路径2" "文件名2"(itoa (1+ (atoi confine_a))))<br/> (vl-registry-write "注册表路径1" "文件名1" (itoa (1+ (atoi confine_a))));;;<br/> (dcl_punch)<br/> (prin1)<br/>)</p><p>在第一次执行的时候为什么不能正常执行.</p><p></p><p>下面翻体的</p><p></p>
页:
[1]