[LISP程序]：帮忙看看小弟的小程序那里有毛病！

langzg01 · 发表于 2005-12-23 08:46:54

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun c:tj()
   (setq pt_base(getpoint"\n输入绘制基点：")
      diameter(getpoint"\n输入直径：")
      );setq
   (setq pt1(polar pt_base 0 (/ diameter 2))
      pt2(polar pt_base 0 diameter)
      pt3(polar pt_base 0 (/ diameter 4))
      pt4(polar pt_base 0 (* 0.75 diameter))
      );setq
(command "arc" "C" pt3 pt_base pt1
   "arc" "C" pt4 pt2 pt1
   "circle" pt1 "D" diameter)
);defun
老出现“参数类型错误: numberp: (1248.23 428.134 0.0)
”
各位大大帮帮忙啊！~~

taner · 发表于 2005-12-23 08:58:44

(setq pt_base(getpoint"\n输入绘制基点：")
diameter(getdist"\n输入直径：")
);setq

langzg01 · 发表于 2005-12-23 09:08:03

谢谢大大啊！~~终于做出来了，第一个程序啊。。。。

lhz917 · 发表于 2005-12-23 09:41:43

(setq pt_base(getpoint"\n输入绘制基点：")
diameter(getpoint"\n输入直径：")
上面一句中，diameter是一个点。
(setq pt1(polar pt_base 0 (/ diameter 2))
这一句中，polar 的第三个参数应为一个数值，产生了错误！

nigma · 发表于 2005-12-23 09:46:25

你的第二句diameter(getpoint"\n输入直径：")有问题啊
改为diameter(getdist"\n输入直径：")就可以了
画出来是个太极图

langzg01 · 发表于 2005-12-23 09:50:53

最初由 nigma 发布
[B]你的第二句diameter(getpoint"\n输入直径：")有问题啊
改为diameter(getdist"\n输入直径：")就可以了
画出来是个太极图 [/B]

嘿嘿，是了，已经做出来了，感谢各位大大啊！~~~
开心ing！~~~~

账号		自动登录	找回密码
密码			立即注册

[LISP程序]：帮忙看看小弟的小程序那里有毛病！

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子