高手帮忙讲解一下！！

h2023197 · 发表于 2004-10-26 09:35:00

这段程序什么意思？帮忙讲解一下！
(Defun 10libr02(sp / x1 o1 a1 b1 c1 pb sb o x)
   (setq x1 '(20 50) o1 (list (- (/ lfm0 2.0) 30) 50)
   a1 '(50 30 60) b1 '(90 10 90) c1 '(90 40 60)
   )
   (setq o (jp sp x1) x (jp sp o1))
   (l-ox)
   (setq pb (list a1 b1 c1) sb (list "a" "b" "c"))
   (trhv1 pb sb 0)
)

无痕 · 发表于 2004-10-26 09:50:00

没意思
就是赋值然后运行自定义函数

高手帮忙讲解一下！！

发表回复

精选推荐

浏览过的版块