JONTHEPOPE 发表于 2022-7-6 15:22:02

平方根

有人能帮我计算一下嘴唇的动作吗
这是我到目前为止得到的任何帮助都会很好。
我尽可能地分解公式，使其易于编程。
孔口面积。lsp

David Bethel 发表于 2022-7-6 15:27:21

我不认为我掌握了整个过程，但这里有一个更好的起点：
 
大卫

Lee Mac 发表于 2022-7-6 15:32:08

嗨，大卫，很快，initget的第7位代码是什么？

JONTHEPOPE 发表于 2022-7-6 15:34:00

看起来不错，谢谢，真的很干净。
这个，语言真的能用啊。
这肯定有助于发展。
我喜欢lisp，但不知道如何使用vbaide。
再次感谢

David Bethel 发表于 2022-7-6 15:39:28

李，
 
1（位0）通过只输入ENTER来防止用户响应请求。
2（位1）通过输入零防止用户响应请求。
4（位2）通过输入负值防止用户响应请求。
 
 
1 + 2 + 4 = 7
 
它强制输入正数值-大卫

Lee Mac 发表于 2022-7-6 15:44:00

不错，大卫。

Lee Mac 发表于 2022-7-6 15:45:44

谢谢David提供的信息，
 
我对你的日常生活有了一些改进：（希望这就是乔恩想要的！）
 

(defun c:orifice (/ g q1 hl oa od)
   (or g (setq g 9.81))
   (initget 7)
   (setq q1 (getreal "\nQ1 Data:   "))
   (initget 7)
   (setq hl (getreal "\nHL Data:   "))
   (initget 6)
   (or
   (setq g (getreal (strcat "\nG Data <" (rtos g) "> : ")))
   (setq g 9.81)
   ) ;_end or
   (setq oa (/ q1 (* 0.61 (sqrt (* 2 g hl)))))
   (setq od (* 2 (sqrt (/ oa pi))))
   (princ (strcat "Orifice Area: "
          (rtos oa)
          "\nOrifice Diameter: "
          (rtos od)
      ) ;_end strcat
   ) ;_end princ
   (prin1)
) ;_end defun

flowerrobot 发表于 2022-7-6 15:50:39

继续李的评论。
他们还有其他的位子吗？
还是仅仅是3？

JONTHEPOPE 发表于 2022-7-6 15:53:16

我配不上这样的天才。

CarlB 发表于 2022-7-6 15:57:16

”继续李的评论。
他们还有其他的位子吗？
还是仅仅是3？"
 
是的，有很多，请参见AutoCAD帮助>>自定义指南>>等，，。。。Autolisp参考。
 
在“initget”下，您可以找到10位左右的讨论。
页: [1] 2
查看完整版本: 平方根