弯头autolisp项目。。someon公司

tatofastar · 发表于 2022-7-5 23:55:20

这是最终产品。

BIGAL · 发表于 2022-7-6 00:02:25

两件事（dtr 0）是0.0，没有SW提示，因此没有pt1

MSasu · 发表于 2022-7-6 00:07:53

我已经在您的代码中指出了一些错误：

(defun C:Elbow [color=red](/IP[/color] P1 P2)             [color=red];add spaces
[/color](defun newerr (msg)
(princ ([color=red]strcar[/color] "\n *ERROR* : "msg))    [color=red];wrong function name - should be STRCAT
[/color](setvar "MENUECHO" me)
(setvar "CMDECHO" ce)
(setvar "clayer" cl)
(gc) (princ)
)
(setq acaderr *error*
*error* newerr
me (getvar "MENUECHO")
ce (getvar "CMDECHO")
cl (getvar "CLAYER"[color=red])                   ;missing parenthesis
[/color])
(setvar "menuecho" 0)
(setvar "cmdecho" 0)
(graphscr)
(defun dtr (A)
([color=red]*PI[/color] (/ A 180.0))                      [color=red];missing space after function
[/color][color=red])                                      ;missing parenthesis
[/color](defun rtd (A)
(/ (* A 180.0) PI)
)
(setq IP (getpoint "\nPick Insertion Point: "))
(setq P1 (Polar IP (dtr 0) [color=red]SW[/color]))        [color=red];SW variable isn't defined
[/color](setq CP (Polar P1 (dtr 0) 4))
(setq P2 (Polar CP (dtr 90) 4))
[color=red];OSMODE system variable must be disabled prior of calling commands
[/color](command "line" IP P1 "")
(command "arc" P2 "C" CP P1)
(command "line" P2 P3 "")              [color=red];P3 variable isn't defined
[/color][color=red]                                     ;wrong placed parenthesis
[/color](setvar "MENUECHO" me)
(setvar "CMDECHO" ce)
(setq *error* acaderr)(gc)
(princ)
)

此外，请根据代码发布规则编辑您的帖子。

tatofastar · 发表于 2022-7-6 00:14:13

非常感谢你们的反馈。。我将应用所有内容并再次运行它。。祝我好运！

MSasu · 发表于 2022-7-6 00:18:01

祝你好运让我们知道进展如何。

Tharwat · 发表于 2022-7-6 00:26:09

试试这个简单的代码

copy


(defun c:Elbow (/ dtr w r p p1 p2 p3)
 (defun dtr (A)
   (* PI (/ A 180.0))
 )
 (if (and (setq w (getdist "\n Specify the width :"))
          (setq r (getdist "\n Specify the radius of small arc :"))
          (setq p (getpoint "\nPick Insertion Point: "))
     )
   (progn
     (setq p1 (Polar p pi w)
           p2 (polar (polar p 0. r) (dtr 90.) (+ w r))
           p3 (Polar p2 (dtr 270) w)
     )
     (command "_.line"
              "_none"
              p
              "_none"
              p1
              ""
              "_.arc"
              "_none"
              p2
              "_E"
              p1
              "_a"
              90.
              "_.line"
              "_none"
              p2
              "_none"
              p3
              ""
              "_.arc"
              "_none"
              p3
              "_e"
              p
              "_a"
              90.
     )
   )
 )
 (princ)
)

MSasu · 发表于 2022-7-6 00:31:34

再次出现了一些错位/括号缺失；SW变量仍未定义；您忽略了我关于OSMODE系统变量的建议。

copy

(defun C:Elbow (/ IP P1 P2)
(defun newerr (msg)
(princ (STRCAT "\n *ERROR* : "msg))
(setvar "MENUECHO" me)
(setvar "CMDECHO" ce)
(setvar "clayer" cl)
(gc) (princ)
)
(setq acaderr *error*
*error* newerr
me (getvar "MENUECHO")
ce (getvar "CMDECHO")
cl (getvar "CLAYER")
)
(setvar "menuecho" 0)
(setvar "cmdecho" 0)
(graphscr)
(defun dtr (A)
(* PI (/ A 180.0))
)
(defun rtd (A)
(/ (* A 180.0) PI)
)
(setq IP (getpoint "\nPick Insertion Point: "))
(setq P1 (Polar IP (dtr 0) SW))
(getpoint "\nPick the second point: ")[color=red][s])[/s][/color]
(setq CP (Polar P1 (dtr 0) 4))
(setq P2 (Polar CP (dtr 90) 4))
(setq P3 (Polar P2 (dtr 0))[color=red])[/color]
(command "line" IP P1 "")
(command "arc" P2 "C" CP P1)
(command "line" P2 P3 "")
(setvar "MENUECHO" me)
(setvar "CMDECHO" ce)
(setq *error* acaderr)(gc)
(princ)
)