[求助]：那位DX帮忙！多谢！

sfjlx

那位dx帮忙用lisp编个程序！多谢！
  就是在cad图中有两个数字，如何点取后把他们相加！
例如在图中有10 和 12 两个数，用鼠标点取后重新生成
10+12=22，然后写道图中！再次多谢！

xyp1964

[php]
;;;加载通用函数
;;;下载：http://www.xdcad.net/forum/showthread.php?s=&threadid=325268
(load "xyp_lib")


;;;选择数据-数据选择
(defun xzsj ()
  (while (not (setq a1 (entsel "\n\t屏幕拾取数值1 : "))))
  (while (not (setq a2 (entsel "\n\t屏幕拾取数值2 : "))))
  (Setq b1 (atof (cdr (assoc 1 (entget(car a1))))))
  (Setq b2 (atof (cdr (assoc 1 (entget(car a2))))))
)  
(defun xzsj1 ()
  (while (not (setq a1 (entsel "\n\t屏幕拾取数值 : "))))
  (Setq b1 (atof (cdr (assoc 1 (entget(car a1))))))
)  
(defun xzsj2 ()
  (CMDLA0)
  (while (not (setq a1 (getreal "\n\t屏幕拾取数值 : "))))
  (Setq b1 (* pi (/ a1 180)))
)  

;;;计算结果
(defun jsjg (jhml)
  (while (not (setq p1 (getpoint "\n\t放置点 : "))))
  (JZHZ)
  (command "text" "j" "mc" p1 (dxf 40 (entget(car a1)))  "0" b3)
  (CMDLA1)
  (PXYP jhml)
);defun
;;;计算结果:除法
(defun jsjg1 (jhml)               
  (if (/= b2 0)
    (progn
      (setq b3 (rtos (/ b1 b2) 2))
      (while (not (setq p1 (getpoint "\n\t放置点 : "))))
      (zzstz)
      (command "text" "j" "mc" p1 "0" b3)
      (CMDLA1)
      (PXYP jhml)
    )
    (princ"\n\t错误 : 除数为0 ! ")
  )
  (princ)
)
;;;*
(defun c:+f (/ a1 a2 b1 b2 p1)
  (XZSJ)(setq b3 (rtos (+ b1 b2) 2))(JSJG"+F(加法)"))
(defun c:-f (/ a1 a2 b1 b2 p1)
  (XZSJ)(setq b3 (rtos (- b1 b2) 2))(JSJG"-F(减法)"))
(defun c:*f (/ a1 a2 b1 b2 p1)
  (XZSJ)(setq b3 (rtos (* b1 b2) 2))(JSJG"*F(乘法)"))
(defun c:/f (/ a1 a2 b1 b2 p1)(XZSJ)(JSJG1"/F(除法)"))
(defun c:PF (/ a1 a2 b1 b2 p1)
  (XZSJ1)(setq b3 (rtos (* b1 b1) 2))(JSJG"PF(平方)"))
(defun c:pfg (/ a1 a2 b1 b2 p1)
  (XZSJ1)(setq b3 (rtos (sqrt b1) 2))(JSJG"PFG(平方根)"))
(defun c:zrds (/ a1 a2 b1 b2 p1)
  (XZSJ1)(setq b3 (rtos (log b1) 2))(JSJG"ZRDS(自然对数)"))
(defun c:zhx (/ a1 a2 b1 b2 p1)
  (XZSJ2)(setq b3  (sin b1) )(JSJG"ZHX(正弦)"))
(ptinc)
[/php]

sfjlx

如此迅速，真是太谢谢了！