[编程申请]：自己编辑函数计算公式，手动提取变量~

Russ

有一些经常应用的函数，用计算器很麻烦，求一个LISP
能够编辑完函数后，手动在CAD中提取变量，自动计算出结果，
并将结果输出到一个指定位置或添加到一个原有文本上替换原有文本。

谢谢大侠们帮忙了！

可以用勾股定理做例子，手动提取两个变量（直角边），自动输出结果（斜边）

多多多谢了！

zelotous

呵呵，lisp我就不会，vba的行不行？要的话我上传一个

Russ

好的，多谢了~

xyp1964

2. [FONT=courier new](defun c:test ()
   
3.   (setq mode 1)
   
4.   (while mode
   
5.     (setq s1 (car (entsel "\n选择数字文本1 : "))
   
6.           s2 (car (entsel "\n选择数字文本2 : "))
   
7.           a1 (distof (cdr (assoc 1 (entget s1))))
   
8.           a2 (distof (cdr (assoc 1 (entget s2))))
   
9.     )
   
10.     (if        (and a1 a2)
    
11.       (setq mode nil
    
12.             c         (sqrt (+ (* a1 a1) (* a2 a2)))
    
13.       )
    
14.     )
    
15.   )
    
16.   c
    
17. )[/FONT]

[FONT=courier new](defun c:test ()<br />   (setq mode 1)<br />   (while mode<br />     (setq s1 (car (entsel "\n选择数字文本1 : "))<br />           s2 (car (entsel "\n选择数字文本2 : "))<br />           a1 (distof (cdr (assoc 1 (entget s1))))<br />           a2 (distof (cdr (assoc 1 (entget s2))))<br />     )<br />     (if        (and a1 a2)<br />       (setq mode nil<br />             c         (sqrt (+ (* a1 a1) (* a2 a2)))<br />       )<br />     )<br />   )<br />   c<br /> )[/FONT]

yanghui0216

不愧是斑竹，厉害.......

chen10jing

二个建议：
1、能不能任意选择多个数据；
2、能不能在图中选择一个数字，把这个数字用计算结果代替。