(x^ a n) = 求a的n次方

无痕

alin

(EXP (* n (LOG a)))

NetBee

呵呵，还能这么求呀！vla-eval函数真是强大呀！！！！！
由此可得扩展到对基本的算术表达式求值呀：

2. (defun op (a)
3.   (vla-eval (vlax-get-acad-object)
4.         (strcat "ThisDrawing.SetVariable "users1",cstr("a")")
5.   )
6.   (read (getvar "users1"))
7. )

(defun op (a)   (vla-eval (vlax-get-acad-object)         (strcat "ThisDrawing.SetVariable "users1",cstr("a")")   )   (read (getvar "users1")) )

算例：

1. _$ (op "2+3-3*5")
2. -10
3. _$

复制代码

highflybir

好思路，感谢无痕和NetBee又为我们提供了一种方法。
---这样的话cal函数（自己定义的cal函数）就可以计算弧度值了，而不是默认的角度值。

3. (defun fun (a x / a)
4.   (while (Wcmatch a "*x*")
5.     (setq a (vl-string-subst (rtos x 2 20) "x" a))
6.   )
7.   (vla-eval
8.     (vlax-get-acad-object)
9.     (strcat "ThisDrawing.SetVariable "users1",cstr(" a ")"))
10.   (read (getvar "users1"))
11. )

(defun fun (a x / a)   (while (Wcmatch a "*x*")     (setq a (vl-string-subst (rtos x 2 20) "x" a))   )   (vla-eval     (vlax-get-acad-object)     (strcat "ThisDrawing.SetVariable "users1",cstr(" a ")"))   (read (getvar "users1")) )

例如fun(x^2-3*x+2  1)返回值为0；

tcsl9621

好帖子，顶。

highflybir

(read (getvar "users1"))

建议把这句改为 (atof (getvar "users1"))

因为这个程序是通过VBA来解释表达式的。请看下面的区别：

(read "-.123") 结果为：-

(read ".123")  结果为 .

这显然不是我们需要的，如果放到lisp程序中，就可能出错。

而改为:

(atof "-.123") 结果为：-0.123

(atof ".123") 结果为：0.123

显然这样做更合理。