找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 7661|回复: 70

[推荐]:有用的lisp小工具集合

[复制链接]
发表于 2004-1-12 00:06:51 | 显示全部楼层 |阅读模式

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

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

×
在工作中随手编的一些小程序,简单实用,趁有空的时候在这里慢慢的贴出来,说不定能帮大伙一点小忙。欢迎试用和提意见:

1)这个小程序用于选取图中的text实体,计算其数字和:

  1. ;;;拾取数字求和       
  2. (defun c:pickad        (/ ss n totn adn)
  3.   (prompt "\n拾取数字求和: ")
  4.   (setq        ss (ssget '((0 . "TEXT")))
  5.         n  0
  6.   )
  7.   (setq totn 0.0)
  8.   (while (setq en (ssname ss n))
  9.     (setq adn (atof (cdr (assoc 1 (entget en)))))
  10.     (setq totn (+ totn adn))
  11.     (setq n (1+ n))
  12.   )
  13.   (princ (strcat "\n数字和: "))
  14.   (princ totn)
  15.   (princ)
  16. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
发表于 2004-1-13 23:08:15 | 显示全部楼层
请问如果数字求减怎么写啊?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2004-1-14 22:43:15 | 显示全部楼层
很简单,这样就可以了:

  1. (defun c:pickad1 (/ psub1 ss totn)                ;拾取数字和(可作减法)
  2.   (defun psub1 (ss / tot n en adn)
  3.     (setq tot 0.0
  4.           n   0
  5.     )
  6.     (while (setq en (ssname ss n))
  7.       (setq adn (atof (cdr (assoc 1 (entget en)))))
  8.       (setq tot        (+ tot adn)
  9.             n        (1+ n)
  10.       )
  11.     )
  12.     tot
  13.   )

  14.   (prompt "\n拾取数字求差: ")
  15.   (prompt "\n请先选择被减的数字: ")
  16.   (setq        ss   (ssget '((0 . "TEXT")))
  17.         totn (psub1 ss)
  18.   )
  19.   (prompt "\n再选择要减去的数字: ")
  20.   (setq        ss   (ssget '((0 . "TEXT")))
  21.         totn (- totn (psub1 ss))
  22.   )
  23.   (princ (strcat "\n数字和: "))
  24.   (princ totn)
  25.   (princ)
  26. )
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2004-1-16 18:37:29 | 显示全部楼层
晓东工具箱中已有次功能了
不知搂主发现没有???
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2004-1-17 08:50:37 | 显示全部楼层
谢谢
用的时候要注意,MT写的字不能计算.
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2004-2-2 23:32:51 | 显示全部楼层

[日积月累]:有用的lisp小工具(7)--直接修改圆角半径

我继续贴:
改变已有的圆角半径:点选圆角弧,输入新半径值,自动重新圆角。
我用它修改过道路转角半径,还算不错:}
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2004-2-4 11:32:06 | 显示全部楼层

[日积月累]:有用的lisp小工具(8)--点选实体进行绘制。

这个程序基于这样的想法:
作图的时候,要作的对象在图中已有同类的实体,则点取这个同类的实体,程序根据其类型调用相应的绘制命令。
更有意义的是:程序会自动匹配颜色、线形、图层等参数,省去了许多转换操作。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2004-2-8 22:16:51 | 显示全部楼层
对于本贴的问题,论坛上已有更好的解决方法:
http://www.xdcad.net/forum/showt ... d=762057#post762057
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2004-2-8 22:37:02 | 显示全部楼层
进入下面链接,加减乘除都有。
http://www.xdcad.net/forum/showt ... =&threadid=5561
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2004-2-10 13:03:30 | 显示全部楼层
最初由 sseaa 发布
[B]晓东工具箱中已有次功能了
不知搂主发现没有??? [/B]


不要老是说这种话,难道有了晓东工具箱,就不用学习了?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2004-2-11 23:56:38 | 显示全部楼层
呵呵,很有使用价值啊
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2004-2-18 18:19:36 | 显示全部楼层
还可以,请多努力
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2004-2-18 18:38:29 | 显示全部楼层
很好啊   很上手  谢谢
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2004-2-20 10:42:06 | 显示全部楼层
哦哦派
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2004-3-16 11:50:28 | 显示全部楼层
加油呀,楼主,好像还有似的。
我们都在等着呢。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-11-17 22:34 , Processed in 0.396267 second(s), 60 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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