请看一下下面的AUTOLISP 程序有什么错误

来源：学生作业帮编辑：神马作文网作业帮分类：综合作业时间：2024/11/10 18:21:28

请看一下下面的AUTOLISP 程序有什么错误
(defun c:ap ()
(setq pt1 (getpoint "input the center"))
(setq r (getdisk " \ninput the r:"))
(command "circle" pt1 r)
(setq pt2(polar pt1 0 (* r 4)))
(command "circle" pt2 r)
(setq pt3(polar pt1 (\ pi 3) (* r 2)))
(setq pt4(polar pt1 0 (* r 2)))
(setq pt5(polar pt4 (\ pi 3) (* r 2)))
(setq pt6(polar pt3 (\ pi 3) (* r 2)))
(setq pt7(polar pt6 0 (* r)))(polar pt1 0 (* r 2)))
(command "line" pt4 pt2 "")
(command "line" pt4 pt5 "")\x09
(command "line" pt2 pt5 "")
(command "line" pt1 pt3 "")
(command "line" pt4 pt3 "")
(command "line" pt5 pt3 "")
(command "line" pt5 pt6 "")
(command "line" pt7 pt6 "")
(princ)
)
我想要二次开发一个简单的自行车图形

做了一些修改,可以绘制了.仔细看看里面修改内容.除以符号“/”,不是“\”.多了一个刮弧,还有getdisk应当为getdist
(setq pt7 (polar pt6 0 (* r 2)));这个少了2就没有办法乘以.(defun c:ap ( / pt1 pt2 pt3 pt4 pt5 pt6 pt7 r #os1)
(setq #os1 (getvar "osmode"));取得捕捉设置
(setvar "osmode" 0);关闭捕捉绘制图形
  (setq pt1 (getpoint "\n请选择基点"))
  (setq r (getdist "\n请输入半径长度"))
  (command "circle" pt1 r)
  (setq pt2 (polar pt1 0 (* r 4)))
  (command "circle" pt2 r)
  (setq pt3(polar pt1 (/ pi 3) (* r 2)))
  (setq pt4(polar pt1 0 (* r 2)))
  (setq pt5(polar pt4 (/ pi 3) (* r 2)))
  (setq pt6(polar pt3 (/ pi 3) (* r 2)))
  (setq pt7(polar pt6 0 (* r 2)))
  (polar pt1 0 (* r 2))
  (command "line" pt4 pt2 "")
  (command "line" pt4 pt5 "")\x09
  (command "line" pt2 pt5 "")
   (command "line" pt1 pt3 "")
(command "line" pt4 pt3 "")
  (command "line" pt5 pt3 "")
(command "line" pt5 pt6 "")
(command "line" pt7 pt6 "")
(setvar "osmode" #os1);还原捕捉设置
(prin1)
)

请看一下下面的AUTOLISP 程序有什么错误 matlab请看一下这个程序,有错误,不会改请看一下我这个求解一元二次方程的程序有什么错? autolisp中画两圆公切线的程序怎么写? 【AutoLISP】请教：下面这两句语言是一个程序里的两句, 麻烦看一下下面的程序有什么问题! 帮我看一下下面的matlab程序,运行时提示有错误, C语言：关于用辗转相除法递归求最大公约数,下面的程序有错误,请帮我改一下, 请看一下这几个英语句子有什么错误,或者是可以改得更好些? 请看下面的程序中的这句话是什么意思啊不懂英语或英语不好的别进来!一个句子,请看一下有没有错误能帮我找一下下面程序中的错误吗