社区 › Auto Lisp › 我的代码有问题吗？第

Wwx95 发表于 2022-7-5 17:35:55

我的代码有问题吗？第

(defun c:sbb(/a b)
((setq a 10 b 5)
   (if (> a b)
   (progn (princ a)
(setq a (+ a 5) b (+ b 6))
   ((princ a)(princ))
   ((princ b)(princ))
)
   )
)
)

BIGAL 发表于 2022-7-5 17:55:31

有很多括号

SLW210 发表于 2022-7-5 17:58:08

请张贴在适当的论坛，我把你的线程到AutoLISP，Visual LISP和DCL论坛。
 
请阅读代码发布指南并编辑您的帖子，将代码包含在代码标签中。
 

Your Code Here=
 
Your Code Here

Lee Mac 发表于 2022-7-5 18:08:08

(defun c:sbb ( / a b )
;( this isn't required
   (setq a 10 b 5)
   (if (> a b)
       (progn
         (princ a)
         (setq a (+ a 5) b (+ b 6))
          ;( this isn't required
         (princ a)
          ;(princ) This can be replaced by one final (princ)
         this isn't required
          ;( this isn't required
         (princ b)
          ;(princ) This can be replaced by one final (princ)
         this isn't required
       ) ;; end progn
   ) ;; end if
   (princ) ;; This can replace the earlier (princ) expressions
   this isn't required
) ;; end defun

BIGAL 发表于 2022-7-5 18:18:08

谢谢李，我想我会给Wwx95一个先试的时间。触摸得好；；我经常这样做；如果是等，你可以保持计数，并确保关闭括号。

Wwx95 发表于 2022-7-5 18:34:29

谢谢，我是新来的，我根据你的代码更改了代码，是这样吗？
 
(defun c:sbb (/ a b)
   (if (> a b)
       (progn
         (princ a)
         (setq a (+ a 5) b (+ b 6))
       )
   )
)
 
但是我如何在CAD中运行它？这样地？
 
(setq a 10 b 5)
(sbb a b)
 
它不工作，并告诉我“错误：没有函数定义：SBB”

Lee Mac 发表于 2022-7-5 18:45:12

 
谢谢你，艾尔
 
 
如果希望使用参数计算函数，则需要按以下方式定义：
(defun sbb ( a b )
   (if (> a b)
       (progn
         (princ a)
         (setq a (+ a 5) b (+ b 6))
       )
   )
)

查看完整版本: 我的代码有问题吗？第