[求助]：有没人高手有加减等LISP文件

tc405003 · 发表于 2005-5-9 13:11:23

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

有没人高手有加减等LISP文件；可以直接在CAD中点取数值进行计算，并且将计算结果可标在图中

skypaty · 发表于 2005-5-15 09:42:01

对啊要

zymsnoopy · 发表于 2005-6-2 11:09:58

上传的3个lsp其中一个是对象数字＋固定值，把固定值输负的就实现减的功能，不晓得是否是你要得http://www.xdcad.net/forum/showt ... 1960503#post1960503

zlnzy · 发表于 2005-6-2 12:50:42

越来越不明白

它山之石 · 发表于 2005-6-3 13:11:01

你自己搜索一下吧，满世界都是的。

yjrun · 发表于 2005-6-22 19:58:04

不是太明白你的意思

jjgfsj · 发表于 2005-6-24 08:22:23

就是啊,这里很多啊

dadilaoshu · 发表于 2005-6-28 16:37:32

不知道怎么用啊

taotao · 发表于 2005-7-18 09:49:53

;;加法程序－－by taotao
(defun c:adtxt (/ A_TXT SS EN ED AS POT old_cmde)
  ;(setierr)
  (setvar "dimzin" 8)
  (setq A_txt 0)
  (PROMPT "\n选择要进行加法运算的数据 : ")
  (SETQ SS (SSGET))
  (WHILE (> (SSLENGTH SS) 0)
(SETQ EN (SSNAME SS 0))
(SETQ ED (ENTGET EN))
(SETQ AS (CDR (ASSOC '0 ED)))
(IF (= AS "TEXT")
   (SETQ A_TXT (+ (ATOF (CDR (ASSOC '1 ED))) A_TXT))
)
(SSDEL EN SS)
  )
  (SETQ
POT (GETPOINT (STRCAT "\n加法运算之和: "
   (RTOS A_TXT 2 3)
   "\n请问您要将计算结果放在何处?<否则回车>:"
   )
)
  )
  (IF POT
(COMMAND "TEXT" POT "" 0 (RTOS A_TXT 2 3))
  )
  ;(ReErr)
  (princ)
)

冰棱无剑 · 发表于 2005-7-25 10:46:48

三楼的，那三个是怎么命令啊。要不然不知道怎么用啊。

jieao200 · 发表于 2005-8-5 15:06:08

我这有个小插件，是上海冶金设计院周海兵编的文字修改大师，能对文字进行编辑排版统计，还能对数字进行数学计算，应该能满足1楼楼主的要求。我觉得它的功能很强大。

jieao200 · 发表于 2005-8-5 15:15:49

我这有个小插件，是上海冶金设计院周海兵编的文字修改大师，能对文字进行编辑排版统计，还能对数字进行数学计算，应该能满足1楼楼主的要求。我觉得它的功能很强大。

tsy_sds_chwr · 发表于 2005-8-9 21:37:44

我有一个，不过得等几天。

zhurongjun · 发表于 2005-8-11 15:46:59

我也下载一个试试

xiu19791981 · 发表于 2005-8-21 12:53:07

我下了个文字修改大师,用了用还不错,有些功能还有用

账号		自动登录	找回密码
密码			立即注册

[求助]：有没人高手有加减等LISP文件

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子