发个自己写的小程序(五金模_圆冲绘制)

QUAN2518

发个自己写的小程序(五金模_圆冲绘制) 希望给同行业带来方便

 不过自己加了个次数限制.  .我也刚学做的不好大家指教.

正在完善................现在的数据都是死的 以后回做成动态的打开后自动带入上次的数据.

虽然很简单,但是正在学OPENDCL哪个做出来的对话框比较美化一点. 所以没有改.

要是哪个老师能收我这学生就好了.........自学真的好辛苦.

顺便问下为什么

(defun c:pii (/ confine_a confine_b)
  (setvar "cmdecho" 0)
    (if (setq confine_a(vl-registry-read "注册表路径1" "文件名1"))
    (progn
      (if (setq confine_b(vl-registry-read "注册表路径2" "文件名2" ))
 (progn
   (if (= (atoi confine_a) (atoi confine_a))
     (progn
       (if (>= (atoi confine_a) 500)(progn (alert "警告:试用次数已满500次.") (exit)))
     )
     (progn (alert "警告:非法操作.") (exit))
   )
 );confine_b存在
 (progn (alert "警告:非法操作.") (exit))
      )
    );confine_a存在
    (progn (alert "初次使用通告:可试用500次.")
    (vl-registry-write "注册表路径2" "文件名2" "0")
    (vl-registry-write "注册表路径1" "文件名1" "0"))
  )
  (alert (strcat"温馨提示:适当休息,以免用眼疲劳" "\n剩余使用次数"(itoa(- 500(atoi confine_a)))))
  (vl-registry-write "注册表路径2" "文件名2"(itoa (1+ (atoi confine_a))))
  (vl-registry-write "注册表路径1" "文件名1" (itoa (1+ (atoi confine_a))));;;
  (dcl_punch)
  (prin1)
)

在第一次执行的时候为什么不能正常执行.

下面翻体的

TPG辉