sanjeeve 发表于 2022-7-5 21:05:04

减

大家好，任何人都可以帮我写一个lisp，我必须在绘图中选择数字，减去我用键盘输入的数字，然后它必须在屏幕上显示值。

paulmcz 发表于 2022-7-5 21:47:27

你在哪里卡住了？到目前为止你有什么？你具体需要什么帮助？这应该很容易。

BIGAL 发表于 2022-7-5 22:30:57

试试这个
 

(setq en1 (entget (car (entsel "\nSelect first text number:" ))))
(setq val1 (atof (cdr (assoc 1 en1))))
(setq val2 (getreal "\nEnter value"))
(alert (strcat "Answer is " (rtos (- val1 val2) 2 3)))
页: [1]
查看完整版本: 减