求大神指点哪里错误，运行不了

cjf160204

(vl-load-com)  ; 加载所需的库(defun c:draw_arc_custom ()  (prompt "请输入圆心坐标（x,y）: ")  (setq center (getpoint))  (prompt "请输入半径: ")  (setq radius (vl-catch-all-apply 'getreal))  (if (vl-catch-all-error-p radius)      (progn        (princ "\n输入的半径无效，请重新输入。")        (exit)      )  )  (prompt "请输入起点坐标（x,y）: ")  (setq start_point (getpoint))  (prompt "请输入圆弧角度的度: ")  (setq deg (vl-catch-all-apply 'getint))  (if (vl-catch-all-error-p deg)      (progn        (princ "\n输入的度无效，请重新输入。")        (exit)      )  )  (prompt "请输入圆弧角度的分: ")  (setq min (vl-catch-all-apply 'getint))  (if (or (vl-catch-all-error-p min) (< min 0) (> min 59))      (progn        (princ "\n输入的分无效，请重新输入。")        (exit)      )  )  (prompt "请输入圆弧角度的秒: ")  (setq sec (vl-catch-all-apply 'getint))  (if (or (vl-catch-all-error-p sec) (< sec 0) (> sec 59))      (progn        (princ "\n输入的秒无效，请重新输入。")        (exit)      )  )  (setq radian_angle (+ (* deg pi) (* min (/ pi 60)) (* sec (/ pi 3600))))  (setq vec1 (mapcar '- start_point center))  (setq radian_start (atan (cadr vec1) (car vec1)))  ; 直接获取圆心的坐标值  (setq center_real (list (car center) (cadr center)))  (command "ARC" center_real radius radian_start radian_angle))

MZ_li

你真是个人才

sniper1111

MZ_li 发表于 2024-6-26 07:46
你真是个人才

严重支持你的想法。

自贡黄明儒

先用vlide格式化一下，看起来就容易了。

xiao1984

分号全部注释掉了你还怎么运行；剩一个（vl-load-com)

czb203

2. (vl-load-com)  
   
3. (defun c:draw_arc_custom ()
   
4.   (prompt "请输入圆心坐标（x,y）: ")
   
5.   (setq center (getpoint))
   
6.   (prompt "请输入半径: ")
   
7.   (setq radius (vl-catch-all-apply 'getreal))
   
8.   (if (vl-catch-all-error-p radius) (progn (princ "\n输入的半径无效，请重新输入。") (exit)))
   
9.   (prompt "请输入起点坐标（x,y）: ")
   
10.   (setq start_point (getpoint))
    
11.   (prompt "请输入圆弧角度的度: ")
    
12.   (setq deg (vl-catch-all-apply 'getint))
    
13.   (if (vl-catch-all-error-p deg) (progn (princ "\n输入的度无效，请重新输入。") (exit)))
    
14.   (prompt "请输入圆弧角度的分: ")
    
15.   (setq min (vl-catch-all-apply 'getint))
    
16.   (if (or (vl-catch-all-error-p min) (< min 0) (> min 59))
    
17.     (progn (princ "\n输入的分无效，请重新输入。") (exit))
    
18.   )
    
19.   (prompt "请输入圆弧角度的秒: ")
    
20.   (setq sec (vl-catch-all-apply 'getint))
    
21.   (if (or (vl-catch-all-error-p sec) (< sec 0) (> sec 59))
    
22.     (progn (princ "\n输入的秒无效，请重新输入。") (exit))
    
23.   )
    
24.   (setq radian_angle (+ (* deg pi) (* min (/ pi 60)) (* sec (/ pi 3600))))
    
25.   (setq vec1 (mapcar '- start_point center))
    
26.   (setq radian_start (atan (cadr vec1) (car vec1))) ;直接获取圆心的坐标值   
    
27.         (setq center_real (list (car center) (cadr center)))  
    
28.         (command "ARC" center_real radius radian_start radian_angle)       
    
29. )

(vl-load-com)  <br /> (defun c:draw_arc_custom () <br />   (prompt "请输入圆心坐标（x,y）: ")<br />   (setq center (getpoint))<br />   (prompt "请输入半径: ")<br />   (setq radius (vl-catch-all-apply 'getreal))<br />   (if (vl-catch-all-error-p radius) (progn (princ "\n输入的半径无效，请重新输入。") (exit)))<br />   (prompt "请输入起点坐标（x,y）: ")<br />   (setq start_point (getpoint))<br />   (prompt "请输入圆弧角度的度: ")<br />   (setq deg (vl-catch-all-apply 'getint))<br />   (if (vl-catch-all-error-p deg) (progn (princ "\n输入的度无效，请重新输入。") (exit)))<br />   (prompt "请输入圆弧角度的分: ")<br />   (setq min (vl-catch-all-apply 'getint))<br />   (if (or (vl-catch-all-error-p min) (< min 0) (> min 59)) <br />     (progn (princ "\n输入的分无效，请重新输入。") (exit))<br />   )<br />   (prompt "请输入圆弧角度的秒: ")<br />   (setq sec (vl-catch-all-apply 'getint))<br />   (if (or (vl-catch-all-error-p sec) (< sec 0) (> sec 59)) <br />     (progn (princ "\n输入的秒无效，请重新输入。") (exit))<br />   )<br />   (setq radian_angle (+ (* deg pi) (* min (/ pi 60)) (* sec (/ pi 3600))))<br />   (setq vec1 (mapcar '- start_point center))<br />   (setq radian_start (atan (cadr vec1) (car vec1))) ;直接获取圆心的坐标值   <br />         (setq center_real (list (car center) (cadr center)))  <br />         (command "ARC" center_real radius radian_start radian_angle)        <br /> )

cjf160204

czb203 发表于 2024-6-26 08:59

显示   需要二维角点或选项关键字。
; 错误: 函数已取消

jun470

不回车的话，分号后面都是注释啦

228378553

你自己看看，如果别人提问，贴上你这种不换行的代码，你会去看吗？

228378553

czb203 发表于 2024-6-26 08:59

你是个好人