设为首页收藏本站CAD论坛CAD教程CAD下载明经币充值
切换到宽版

明经CAD社区

 找回密码
 注册

QQ登录

只需一步，快速开始

搜索
明经CAD社区»社区 › 开发篇 › AutoLISP/Visual LISP 编程技术 › [分享]數字加减的lsp
返回列表 发新帖
查看: 2955|回复: 8

[分享]數字加减的lsp

[复制链接]
sammywuhkg
发表于 2006-5-29 23:00:00 | 显示全部楼层 |阅读模式

ta.lsp 可把text文字裹的数目字加起来

td.lsp 把text文字的数目字减起来

例如: 21 +12 = 33

只要选取文字21及12,再选取任可的一个文字,它就可以便成答案33了.

如此类推.

请给我回覆Ｏ

本帖子中包含更多资源

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

x
回复

使用道具 举报

carrot82
发表于 2007-10-24 18:47:00 | 显示全部楼层
Ｏ
回复 支持 0 反对 1

使用道具 举报

lxq810125
发表于 2006-5-30 15:53:00 | 显示全部楼层
大哥!咋是乱码呀?
回复 支持 反对

使用道具 举报

lxq810125
发表于 2006-5-30 16:00:00 | 显示全部楼层

老兄!你的TA.LSP咋解不了密呀?

回复 支持 反对

使用道具 举报

jaminth
发表于 2007-10-24 20:13:00 | 显示全部楼层
  2. (defun c:td (/ #1 #2 #3 #4 #5 #6 e)
  3. (prompt "\nSelect the text to total area:")
  4. (setq #1 (ssget))
  5. (setq #2 (getstring T "\nType character in front of the number: "))
  6. (if (= #2 "") (setq #2 " "))
  7. (setq #2a (strlen #2))
  8. (setq _total 0 con 0)
  9. (IF #1
  10.    (repeat (sslength #1)
  11.      (setq #3(entget (ssname #1 con)))
  12.      (if (= (cdr (assoc 0 #3)) "TEXT")
  13.        (PROGN
  14.          (setq #4 (cdr (assoc 1 #3)))
  15.          (setq #4(substr #4 #2a))
  16.          (setq _total (+ _total (atof #4)))
  17.          (setq con (1+ con))
  18.        )
  19.      )
  20.    )
  21. )
  22. (prompt "\nSelect the text of deduct area:")
  23. (setq #1 (ssget))
  24. (setq #2a (strlen #2))
  25. (setq _total1 0 con 0)
  26. (IF #1
  27.    (repeat (sslength #1)
  28.      (setq #3(entget (ssname #1 con)))
  29.      (if (= (cdr (assoc 0 #3)) "TEXT")
  30.        (PROGN
  31.          (setq #4(cdr (assoc 1 #3)))
  32.          (setq #4(substr #4 #2a))
  33.          (setq _total1 (+ _total1 (atof #4)))
  34.          (setq con (1+ con))
  35.        )
  36.      )
  37.    )
  38. )
  39. (setq _total2 (- _total _total1))
  40. (setvar "cmdecho" 0)
  41. (setq #5 (CAR (ENTSEL "\nSelect a text change to total area:")))
  42. (setq #6 (entget #5))
  43. (setq #e (subst (cons 1 (strcat #2 (strcat (rtos _total2 2 3) " " "m")))
  44.         (assoc 1 #6) #6))
  45. (princ (substr (cdr (assoc 1 #e)) #2a))
  46. (entmod #e)
  47. (princ)
  48.     (setq sqp (cdr (assoc 10 #e)))
  49.     (setq sqlen (strlen (cdr (assoc 1 #e))))
  50.     (setq sqth (cdr (assoc 40 #e)))
  51.     (setq sqp1 (polar sqp (dtr 0) (* (- sqlen 1.75) sqth)))
  52.     (setq sqp2 (polar sqp1 (dtr 90) (/ sqth 1.025)))
  53.     (setq sqth1 (/ sqth 1.200))
  54.     (command "text" sqp2 sqth1 "0" "2")
  55. (princ))
  56. ;(defun c:td () (c:tot-d))
  57. ;(princ
  58. ;  "\n\tC:TOT-d loaded.  Start command with TD or TOT-D.")
  59. ;(princ)
回复 支持 反对

使用道具 举报

jaminth
发表于 2007-10-24 20:15:00 | 显示全部楼层
  2. (defun DTR (a)
  3. (* pi (/ a 180.00)))
  4. (defun c:ta ()
  5. (setq #oldla (getvar "clayer"))
  6. (prompt "\nSelect the text to total area:")
  7. (setq #1 (ssget))
  8. (setq #2 (getstring T "\nType character in front of the number: "))
  9. (if (= #2 "") (setq #2 "1"))
  10. (setq #2a (strlen #2))
  11. (setq _total 0 con 0)
  12. (IF #1
  13.    (repeat (sslength #1)
  14.      (setq #3(entget (ssname #1 con)))
  15.      (if (= (cdr (assoc 0 #3)) "TEXT")
  16.        (PROGN
  17.          (setq #3a (strlen (cdr (assoc 1 #3))))
  18.          (setq #3b (+ (- #3a #2a) 1))
  19.          (setq #4(cdr (assoc 1 #3)))
  20.          (setq #4(substr #4 #2a #3b))
  21.          (setq _total(+ _total (atof #4)))
  22.          (setq con (1+ con))
  23.        )
  24.      )
  25.    )
  26. )
  27. (setvar "cmdecho" 0)
  28. (setq #5 (CAR (ENTSEL "\nSelect a text change to total area:")))
  29. (setq #6 (entget #5))
  30. (if (= #2 "1")
  31. (progn
  32. (setq #e (subst (cons 1 (strcat (rtos _total 2 3) "m"))
  33.         (assoc 1 #6) #6))
  34. )
  35. )
  36. (if (> #2a 1)
  37. (progn
  38. (setq #e (subst (cons 1 (strcat #2 (strcat (rtos _total 2 3)" " "m")))
  39.         (assoc 1 #6) #6))
  40. )
  41. )
  42. (princ (substr (cdr (assoc 1 #e)) #2a))
  43. (entmod #e)
  44.     (setq sqp (cdr (assoc 10 #e)))
  45.     (setq sqlen (strlen (cdr (assoc 1 #e))))
  46.     (setq sqth (cdr (assoc 40 #e)))
  47.     (setq #la (cdr (assoc 8 #e)))
  48.     (setq sqp1 (polar sqp (dtr 0) (* (- sqlen 1.75) sqth)))
  49.     (setq sqp2 (polar sqp1 (dtr 90) (/ sqth 1.025)))
  50.     (setq sqth1 (/ sqth 1.200))
  51.     (command "layer" "s" #la "")
  52.     (command "text" sqp2 sqth1 "0" "2")
  53. (command "layer" "s" #oldla "")
  54. (princ))
回复 支持 反对

使用道具 举报

phoenixdjq
发表于 2007-10-24 21:09:00 | 显示全部楼层

这种程序网上有好多呢

我现在就有一个这样的程序呢，也是从网上下载的

回复 支持 反对

使用道具 举报

dkj0322
发表于 2010-10-12 09:09:00 | 显示全部楼层
谢谢楼上的分享，参考下，很感激
回复 支持 反对

使用道具 举报

白色微風1991
发表于 2023-8-31 10:21:44 | 显示全部楼层
謝謝樓上的分享，參考下，很感激
回复 支持 反对

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码，在未取得本站及作者授权的情况下，不得用于商业用途

GMT+8, 2024-11-17 05:33 , Processed in 0.271274 second(s), 28 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表