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

德芬-没有乐趣！

我做错了什么？？啊！
我有这个功能。。。在我例程的主lisp文件中。每当我调用这个函数时，我都会得到类似error bad function的结果，然后是L的第一个元素（类似error bad function 2.4）
对这个函数的调用就在主函数的末尾，就像
（df）
 
该函数类似于：
 
(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。
 
如果你支持所有的代码，那就容易多了。
 
(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

(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

 
 
对于初学者，您有以下几点：
 
 
(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)
 
 
我认为P2需要去掉，因为你没有这个名字的变量。
我还在检查另一个问题。此外，赫拉兹似乎并不正确，因为我只看到了花环。
您正在调用代码中不存在的变量。

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

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

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

 
您可以在上面看到：
   (setq wReaz nil)
(repeat nSup
   (setq wReaz(append wReaz (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不在同一个循环中。
 
   (repeat nOp
   (setq L(append L (list (getreal "\nL: ")))))
(setq wReaz nil)
(repeat nSup
   (setq wReaz(append wReaz (list (getreal "\nSupport: ")))))
 
 
我不知道你在这里想做什么。
页: [1] 2
查看完整版本: 德芬-没有乐趣！