（完成）[编程申请]：两个或者几个数字相减----点选数字

dhxf

有数字相加命令,可是相减就需要在数字另外一个数字前面加- 号比较麻烦---
谢谢高手试写~

alwaysbin

不太明白你的意思，如果是纯粹的相减，就很容易，把相加的命令改一下就可以了。
如果是混和运算，那怎么知道你是什么时候要加，什么时候要减呢？如果点选的数字前面已经带了负号，那还是加啊。

dhxf

是这样;框选,点选数字A,B,----->A-B或者B-A都可以----->标出结果数字;
做统计计算用;
谢谢

ll_j

如果只要这个功能，下载我这里的ce（http://xdcad.net/forum/showthread.php?threadid=27605）。如果需要更多的文字功能，可以下载文字修改大师（http://xdcad.net/forum/showthrea ... y=&pagenumber=1）。

dhxf

十分感谢4楼的CE命令;问题解决---
CE稍微不如意的是---数字的加减乘除用了一个命令然后二次选择,我的本意是一个LSP或者一个自定义按钮就只能实现+ 再一个实现- 再一个乘再一个除;
文修大师我也一直用,里面数字的[自身计算]也没实现这个方便的傻瓜功能;
关于数字的相加我个人十分推崇[XDSOFT]里面的[数字相加,很简单方便;也一直用那个相加;
减乘除就一直没找到对应的;

eachy

最初由 dhxf 发布
[B]十分感谢4楼的CE命令;问题解决---
CE稍微不如意的是---数字的加减乘除用了一个命令然后二次选择,我的本意是一个LSP或者一个自定义按钮就只能实现+ 再一个实现- 再一个乘再一个除;
文修大师我也一直用,里面数字的[... [/B]

减法、除法拾取第一个数然后其他只能一个个拾取，乘法可以框选，是这样吗？

dhxf

6楼说的对;
实现步骤比我想的深;
谢谢

eachy

最初由 dhxf 发布
[B]6楼说的对;
实现步骤比我想的深;
谢谢 [/B]

[PHP]
(defun $XDTB_sxys (tf / e1 ss txt p1)
  (xdrx_begin)
  (xdrx_sysvar_push "osmode" "dimzin")
  (setvar "dimzin" 0)
  (if (and (setq e1 (xdrx_entsel "\n选择基数: " '((0 . "text"))))
           (progn
             (princ (if        tf
                      "\n选择被除数字...."
                      "\n选择被减数字...."
                    )
             )
             (setq ss (ssget '((0 . "text"))))
           )
      )
    (progn
      (xdrx_setenttodb (car e1))
      (setq txt (atof (xdrx_getentdxf 1)))
      (xdrx_setsstodb ss 0)
      (while (xdrx_getentdata 0)
        (setq txt (if tf
                    (/ txt (atof (xdrx_getentdxf 1)))
                    (- txt (atof (xdrx_getentdxf 1)))
                  )
        )
      )
      (princ (strcat "\Return = " (rtos txt 2 4)))
      (if (setq p1 (getpoint "\n插入点: "))
        (command ".text" p1 "" "" (rtos txt 2 4))
      )
    )
  )
  (xdrx_sysvar_pop)
  (xdrx_end)
  (princ)
)
;;除法
(defun c:XDTB_DivNum ()
  ($xdtb_sxys t)
  (princ)
)
;;减法
(defun c:XDTB_SubNum ()
  ($xdtb_sxys nil)
  (princ)
)
;;乘法
(defun c:XDTB_MulNum (/ ss txt)
  (if (setq ss (ssget '((0 . "text"))))
    (progn
      (xdrx_begin)
      (xdrx_setsstodb ss 0)
      (while (xdrx_getentdata 0)
        (if (not txt)
          (setq txt (atof (xdrx_getentdata 0)))
          (setq txt (* txt (xdrx_getentdata 0)))
        )
      )
      (princ (strcat "\Return = " (rtos txt 2 4)))
      (if (setq p1 (getpoint "\n插入点: "))
        (command ".text" p1 "" "" (rtos txt 2 4))
      )
      (xdrx_end)
    )
  )
  (princ)
)[/PHP]

dhxf

我在公司从6点憋到快8点，学习怎么使用，是加载到菜单还是怎么。。。。。。。。
。。。。。。。
汗，还是不懂如何应用；
费心告诉我怎么样做；
谢谢

eachy

最初由 dhxf 发布
[B]我在公司从6点憋到快8点，学习怎么使用，是加载到菜单还是怎么。。。。。。。。
。。。。。。。
汗，还是不懂如何应用；
费心告诉我怎么样做；
谢谢 [/B]

将上面的代码保存为LSP文件或者直接下载附件，并将文件保存到工具箱的 LISP 目录下，然后使用 appload 命令加载保存的LSP文件，剩下的就是输入命令了

xdtb_subnum
xdtb_mulnum
xdtb_divnum

dhxf

谢谢谢谢~
起先没看到shxue~