德芬-没有乐趣！

firavolla · 发表于 2022-7-6 10:58:39

我做错了什么？？啊！
我有这个功能。。。在我例程的主lisp文件中。每当我调用这个函数时，我都会得到类似error bad function的结果，然后是L的第一个元素（类似error bad function 2.4）
对这个函数的调用就在主函数的末尾，就像
（df）

该函数类似于：

copy

(defun df ()
(setq wReazP2 (car L))
(setq p1 pStart)
(setq p0 (polar p1 (dtr 0.0) (wReazP2)))
(setq p2 (polar p1 (dtr 270.0) (hReaz)))
(setq p3 (polar p2 (dtr 0.0) (wReazP2)))
)

Tharwat · 发表于 2022-7-6 11:04:02

嗨，菲拉沃拉，
首先，最好在Lisp文件中提供完整的函数来识别主要问题，但到目前为止，这可能与（car L）有关，并且没有必要像您所做的那样重新修改起点（setq p1 pStart），我的意思是使用pStart而不是p1。

如果你支持所有的代码，那就容易多了。

copy

(defun df ()
(setq wReazP2 (car L))
(setq p1 pStart)
(setq p0 (polar p1 (dtr 0.0) (wReazP2)))
(setq p2 (polar p1 (dtr 270.0) (hReaz)))
(setq p3 (polar p2 (dtr 0.0) (wReazP2)))
)

当做
塔瓦特

The Buzzard · 发表于 2022-7-6 11:07:35

菲拉沃拉，

当代码的其余部分不存在时，很难回答这样的问题。你所能做的只是猜测。如果整个代码都在那里，那么可以对其进行测试，以便更好地了解问题所在。然后你会更快地得到准确的答案。

如果您决定发布代码，请使用代码标签。请参阅此链接了解如何做到这一点：http://www.cadtutor.net/forum/showthread.php?t=9184

firavolla · 发表于 2022-7-6 11:13:02

copy

(defun c:Grinda()
   (setq bBeam (getdist    "\n bBeam: "))
   (setq hBeam (getdist    "\n hBeam: "))
   
   (setq hSup   (* 3 hBeam))
   (setq nOp (getint "\n No.Op. "))
   (setq nSup (+ nOp 1))
   (setq L nil)
   (repeat nOp
       (setq L  (append L (list (getreal "\n L: "))))
   )
   (setq wReaz nil)
   (repeat nSup
       (setq wReaz  (append wReaz (list (getreal "\n Support: "))))
   )
   
   (setq pStart (getpoint "\n Start Point"))
   (df)
   (command "pline" p0 p1 p2 p3 "")
)   
(defun dtr (x)
   (* pi (/ x 180.0))
)    
(defun df ()
(setq wReazP2 (car L))
(setq p1 pStart)
(setq p0 (polar p1 (dtr 0.0) (wReazP2)))
(setq p2 (polar p1 (dtr 270.0) (hReaz)))
(setq p3 (polar p2 (dtr 0.0) (wReazP2)))
)
(princ)

The Buzzard · 发表于 2022-7-6 11:14:36

对于初学者，您有以下几点：

copy

 (defun df ()
 (setq wReaz[color="Red"]P2[/color] (car L))
 (setq p1 pStart)
 (setq p0 (polar p1 (dtr   0.0) (wReaz[color="red"]P2[/color])))
 (setq p2 (polar p1 (dtr 270.0) ([color="Red"]hReaz[/color])))
 (setq p3 (polar p2 (dtr   0.0) (wReaz[color="red"]P2[/color]))))
(princ)

我认为P2需要去掉，因为你没有这个名字的变量。
我还在检查另一个问题。此外，赫拉兹似乎并不正确，因为我只看到了花环。
您正在调用代码中不存在的变量。

firavolla · 发表于 2022-7-6 11:20:17

hreaz实际上是hbeam（我的坏），FREAZP2是一个变量的名称。

The Buzzard · 发表于 2022-7-6 11:22:23

您可以在上面看到：

copy

   (setq [color="red"]wReaz[/color] nil)
 (repeat nSup
   (setq [color="Red"]wReaz[/color]  (append [color="red"]wReaz [/color](list (getreal "\nSupport: ")))))

The Buzzard · 发表于 2022-7-6 11:26:17

对不起，我现在明白了。

The Buzzard · 发表于 2022-7-6 11:29:53

变量bBeam的目的是什么？它在代码中什么都不做。

The Buzzard · 发表于 2022-7-6 11:34:09

为什么把花环设为零？它和L不在同一个循环中。

copy

   (repeat nOp
   (setq L  (append L (list (getreal "\nL: ")))))
 [color="Red"](setq wReaz nil)[/color]
 (repeat nSup
   (setq wReaz  (append wReaz (list (getreal "\nSupport: ")))))

我不知道你在这里想做什么。

[编程交流] 德芬-没有乐趣！

发表回复

精选推荐