[LISP]請問那位大大可以替小弟解釋一下

ljs026

请问那位大大可以替小弟解释一下以下的每一句程序的意思，小弟十分感激 (defun c:111()
(setq pt1 (getpoint"\nThe center of plate cam:"))
(setq cmr(getdist"\nEnter the radius of cam follower:"))
(setq x1(car pt1))
(setq ys(cadr pt1))
(setq y1(+ ys 0))
(setq x2(+ x1 129.999))
(setq y2(+ y1 0.454))
(setq pt2(list x2 y2))
(command"circle"
pt2 cmr)
(setq x2(+ x1 129.997))
(setq y2(+ y1 0.908))
(setq pt2(list x2 y2))
(command"circle"
pt2 cmr)
)

BDYCAD

(defun c:111();定义一个新指令为111, 意思是当这个程序加载后可以用 111 执行下列代码组成的功能.
(setq pt1 (getpoint"\nThe center of plate cam:")); 确定圆中心点
(setq cmr(getdist"\nEnter the radius of cam follower:"));确定圆的半径
(setq x1(car pt1)) ; 取中心点的X坐标数值
(setq ys(cadr pt1));取中心点的Y坐标数值
(setq y1(+ ys 0));设 Y1 = YS
(setq x2(+ x1 129.999));中心点的X坐标数值加上129.999
(setq y2(+ y1 0.454));中心点的Y坐标数值加上0.454
(setq pt2(list x2 y2));组成一个坐标点
(command"circle"pt2 cmr);以上面的坐标点和所输入的半径画个圆
(setq x2(+ x1 129.997));中心点的X坐标数值加上129.9997
(setq y2(+ y1 0.908));中心点的Y坐标数值加上0.908
(setq pt2(list x2 y2));组成一个坐标点
(command"circle"pt2 cmr);以上面的坐标点和所输入的半径画个圆
) ;程序结束

CADghost

BDYCAD!

ljs026

真的很感谢BDYCAD大大，大大真是好人，小弟没有人教，都要慢慢学，感谢大大不吝指教，再请教cmr、getdist、cadr、list是什么意思丫

无痕

cmr 是自定义的变量


后面的lisp函数，看cad帮助很清楚，还有实例。


简单的说：getdist ＝ 取距离（实数），cadr＝取表的第二个原子，list＝组表。

梁旭武

BDYCAD,厚街男孩，真是一个好男孩，感动!!!!!!!!