[求助]有哪们高手能否编一个CAD条件下的计算LISP

tc405003

[求助]有哪们高手能否编一个CAD条件下的计算LISP


如，点取两个数字，再提示加减或除等，并且结果可以在图中标出

meflying

2. (defun c:test( / ent1 ent2 n1 n2 act re pt)
3.    (setq ent1 (car (entsel "\n选择数字1...")))
4.    (setq ent2 (car (entsel "\n选择数字2...")))
5.    (setq n1 (read (cdr (assoc 1 (entget ent1)))))
6.    (setq n2 (read (cdr (assoc 1 (entget ent2)))))
7.    (if (and (numberp n1) (numberp n2))
8.        (progn
9.            (setq act (getstring "\n选择符号[+|-|*|/]<+>:"))
10.            (if (= "" act) (setq act "+"))
11.            (setq re ((eval (read act)) n1 n2))
12.            (setq pt (getpoint "\n输入结果位置:"))
13.            (command "_.text" pt "" "" re)
14.        )
15.        (princ "\n未选择数字!")
16.    )
17.    (princ)
18. )

(defun c:test( / ent1 ent2 n1 n2 act re pt)    (setq ent1 (car (entsel "\n选择数字1...")))    (setq ent2 (car (entsel "\n选择数字2...")))    (setq n1 (read (cdr (assoc 1 (entget ent1)))))    (setq n2 (read (cdr (assoc 1 (entget ent2)))))    (if (and (numberp n1) (numberp n2))        (progn            (setq act (getstring "\n选择符号[+|-|*|/]<+>:"))            (if (= "" act) (setq act "+"))            (setq re ((eval (read act)) n1 n2))            (setq pt (getpoint "\n输入结果位置:"))            (command "_.text" pt "" "" re)        )        (princ "\n未选择数字!")    )    (princ) )

toosimple

可不可以在把求得的数字标在图上之前加上这样的提示啊，如：输入文字高度，宽度系数，小数位数等等信息。这样就更完善了

meflying

既然是详细的要求,就不要等等了,把所有要求都说出来再做吧,否则,我做一点,你又说一点,,,

toosimple

就是这些了，可以输入小数位数，字体高度，宽度系数。


先谢谢了，我现在还是个小菜鸟，希望您能够解惑

xiaomihu

afeng0712

武汉市政设计院献

hpy

如果能在选择时自动过滤掉非数字文本那就更好了。因为在选择时不可避免会出现选中非数字文本的情况。

afeng0712

楼上的，有时可也需要把一行文本或许替换给一列啊！比如桥梁设计里面做桥型布置图跟下部墩的设计图就存在桩号转置的情况！！！

toosimple

(setq tt (ssget '((0 . "text")))),这样就可以只选中文字了