求！求！求！解决LISP基础问题

zhangbxx

请各位高手指教！

 

ZZXXQQ

;学生做作业呢。

游客，本帖隐藏的内容需要发帖数高于 1 才可浏览，你当前发帖数只有 0

crazylsp

版主真强，喜欢喜欢这样简单的程序, ( 清晰朴实 纯兰辽阔)

zhangbxx

不妨直说，我对LISP基本上是不会，现在有这个任务，才找到这里。

zhangbxx

多谢2楼！

xyp1964

;; 矩形绘制
(defun c:tt (/ ilst l1 l2)
  (cmdla0)
  ;; __________________________________________________________________
  (defun main-pro (/ p1 p2 s1)
    (setq p1 (list x y)
   p2 (xyp-get-Pt2XY p1 wide high)
   s1 (xyp-rectang p1 p2)
    )
  )
  ;; __________________________________________________________________
  (defun aaa ()
    (xyp-dcl-VectorImagePtn "k0" '(((0 0) (2000 0) (2000 1000) (0 1000) (0 0))) 5 2)
  )
  ;; __________________________________________________________________
  (setq l1 '(x y wide high)
 l2 '(0. 0. 2000. 1000.)
  )
  (defun ajbcs () (xyp-Multiple-Settile l1 l2))
  (xyp-initSet l1 l2)
  (setq Ilst '(("k0" nil "imagebutton" "-2" "24" "" "(XYP-ABOUTME)")
        (nil nil "spacer;")
        ("x" "X" "real" "8")
        ("y" "Y" "real" "8")
        ("wide" "宽" "real" "8")
        ("high" "高" "real" "8")
        (nil nil "spacer;")
        ("jbcs" "缺省参数" "button1" "(ajbcs)")
        (nil nil "spacer;")
        (nil nil "user" "(aaa)")
       )
  )
  (if (= (xyp-Dcl-Init Ilst "【矩形绘制】" t) 1)
    (main-pro)
  )
  (cmdla1)
)

效果：

zhangbxx

ZZXXQQ发表于2010-4-8 19:25:00;学生做作业呢。

好像第二个有点问题，我是真的不懂！能麻烦改下吗？

ZZXXQQ

少了读数据函数。2楼已经加上。

ZZXXQQ

少了读数据函数。2楼已经加上。

123426006

二楼的可行

凡人修仙传全文阅读 重生之官道全文阅读 陈二狗的妖孽人生全文阅读 卡徒全文阅读
近身保镖全文阅读  间客全文阅读 重生之官路商途全文阅读
即时比分