设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › [LISP函数]：很好用的LISP计算函数（加、乘） ...
返回列表 发新帖
查看: 1098|回复: 3

[LISP函数]：很好用的LISP计算函数（加、乘）

[复制链接]
lgmandy
发表于 2005-7-2 18:12:15 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

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

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

×
(defun c:add0()
(graphscr)
  (setq result 0.0)
  (setq number1 (car (entsel "\nClick the first number选择第一个数字:")))
  (setq number1 (cdr (assoc 1  (entget number1))))    ;返回第一个数字的实体名称
  (setq number1 (atof number1))                   ;返回将第一个数字文本本身转化为整数
  (setq result (+ result number1))
  (setq number2 (car (entsel "\nClick the second number 选择第二个数字:")))

  (while  number2 ;判断number2是否为空,如返回nil 则退出循环
    (setq number2 (cdr (assoc 1  (entget number2))))    ;返回第二个数字的实体名称
    (setq number2 (atof number2))               ;返回将第二个数字文本本身转化为整数
    (setq result  (+ result number2))          ;计算两数之和
    (setq number2 (car (entsel "\nClick the next number 选择下一个数字:")))
  )

  (setq number1 (car (entsel "\nSelect the object be taken placed:")));选择要修改的数字,返回实体名称
  (setq number2 (entget number1))             ;返回实体的关联表
  (setq result (rtos result 2 0))             ;将计算结果转化为字符串
  (setq result (cons 1 result))               ;组成关联表的表项
  (setq result (subst result (assoc 1 (entget number1)) number2));用新表项替换旧表项
  (entmod result)                             ;实体更新
)


(defun c:add()
(graphscr)
  (setq result 0.0)
  (setq number1 (car (entsel "\nClick the first number选择第一个数字:")))
  (setq number1 (cdr (assoc 1  (entget number1))))    ;返回第一个数字的实体名称
  (setq number1 (atof number1))                   ;返回将第一个数字文本本身转化为整数
  (setq result (+ result number1))
  (setq number2 (car (entsel "\nClick the second number 选择第二个数字:")))

  (while  number2 ;判断number2是否为空,如返回nil 则退出循环
    (setq number2 (cdr (assoc 1  (entget number2))))    ;返回第二个数字的实体名称
    (setq number2 (atof number2))               ;返回将第二个数字文本本身转化为整数
    (setq result  (+ result number2))          ;计算两数之和
    (setq number2 (car (entsel "\nClick the next number 选择下一个数字:")))
  )

  (setq number1 (car (entsel "\nSelect the object be taken placed:")));选择要修改的数字,返回实体名称
  (setq number2 (entget number1))             ;返回实体的关联表
  (setq result (rtos result 2 1))             ;将计算结果转化为字符串
  (setq result (cons 1 result))               ;组成关联表的表项
  (setq result (subst result (assoc 1 (entget number1)) number2));用新表项替换旧表项
  (entmod result)                             ;实体更新
)

(defun c:add2()
(graphscr)
  (setq result 0.0)
  (setq number1 (car (entsel "\nClick the first number选择第一个数字:")))
  (setq number1 (cdr (assoc 1  (entget number1))))    ;返回第一个数字的实体名称
  (setq number1 (atof number1))                   ;返回将第一个数字文本本身转化为整数
  (setq result (+ result number1))
  (setq number2 (car (entsel "\nClick the second number 选择第二个数字:")))

  (while  number2 ;判断number2是否为空,如返回nil 则退出循环
    (setq number2 (cdr (assoc 1  (entget number2))))    ;返回第二个数字的实体名称
    (setq number2 (atof number2))               ;返回将第二个数字文本本身转化为整数
    (setq result  (+ result number2))          ;计算两数之和
    (setq number2 (car (entsel "\nClick the next number 选择下一个数字:")))
  )

  (setq number1 (car (entsel "\nSelect the object be taken placed:")));选择要修改的数字,返回实体名称
  (setq number2 (entget number1))             ;返回实体的关联表
  (setq result (rtos result 2 2))             ;将计算结果转化为字符串
  (setq result (cons 1 result))               ;组成关联表的表项
  (setq result (subst result (assoc 1 (entget number1)) number2));用新表项替换旧表项
  (entmod result)                             ;实体更新
)

(defun c:add3()
(graphscr)
  (setq result 0.0)
  (setq number1 (car (entsel "\nClick the first number选择第一个数字:")))
  (setq number1 (cdr (assoc 1  (entget number1))))    ;返回第一个数字的实体名称
  (setq number1 (atof number1))                   ;返回将第一个数字文本本身转化为整数
  (setq result (+ result number1))
  (setq number2 (car (entsel "\nClick the second number 选择第二个数字:")))

  (while  number2 ;判断number2是否为空,如返回nil 则退出循环
    (setq number2 (cdr (assoc 1  (entget number2))))    ;返回第二个数字的实体名称
    (setq number2 (atof number2))               ;返回将第二个数字文本本身转化为整数
    (setq result  (+ result number2))          ;计算两数之和
    (setq number2 (car (entsel "\nClick the next number 选择下一个数字:")))
  )

  (setq number1 (car (entsel "\nSelect the object be taken placed:")));选择要修改的数字,返回实体名称
  (setq number2 (entget number1))             ;返回实体的关联表
  (setq result (rtos result 2 3))             ;将计算结果转化为字符串
  (setq result (cons 1 result))               ;组成关联表的表项
  (setq result (subst result (assoc 1 (entget number1)) number2));用新表项替换旧表项
  (entmod result)                             ;实体更新
)




(defun c:mult()
(graphscr)
  (setq number1 (car (entsel "\nClick the first number选择第一个数字:")))
  (setq number2 (car (entsel "\nClick the second number 选择第二个数字:")))
  (setq number1 (cdr (assoc 1  (entget number1))))    ;返回第一个数字的生态名称
  (setq number2 (cdr (assoc 1  (entget number2))))    ;返回第二个数字的生态名称
  (setq number1 (atof number1))                   ;返回将第一个数字文本本身转化为整数
  (setq number2 (atof number2))               ;返回将第二个数字文本本身转化为整数

  (setq result  (* number1 number2))          ;计算两数之和
  (setq result  (/ result 100.0))             ;将单位由厘米转化为米

  (setq number1 (car (entsel "\nSelect the object be taken placed:")));选择要修改的数字,返回实体名称
  (setq number2 (entget number1));返回实体的关联表
  (setq result (rtos result 2 2));将计算结果转化为字符串
  (setq result (cons 1 result));组成关联表的表项
  (setq result (subst result (assoc 1 (entget number1)) number2));用新表项替换旧表项
  (entmod result);实体更新
)
(defun c:mult0()
(graphscr)
  (setq number1 (car (entsel "\nClick the first number选择第一个数字:")))
  (setq number2 (car (entsel "\nClick the second number 选择第二个数字:")))
  (setq number1 (cdr (assoc 1  (entget number1))))    ;返回第一个数字的生态名称
  (setq number2 (cdr (assoc 1  (entget number2))))    ;返回第二个数字的生态名称
  (setq number1 (atof number1))                   ;返回将第一个数字文本本身转化为整数
  (setq number2 (atof number2))               ;返回将第二个数字文本本身转化为整数
  (setq result  (* number1 number2))          ;计算两数之和
  (setq result  (/ result 1.0))            
  (setq number1 (car (entsel "\nSelect the object be taken placed:")));选择要修改的数字,返回实体名称
  (setq number2 (entget number1));返回实体的关联表
  (setq result (rtos result 2 0));将计算结果转化为字符串
  (setq result (cons 1 result));组成关联表的表项
  (setq result (subst result (assoc 1 (entget number1)) number2));用新表项替换旧表项
  (entmod result);实体更新
  (princ  "     欢迎使用本程序！ ")
)

(defun c:mult1()
(graphscr)
  (setq number1 (car (entsel "\nClick the first number选择第一个数字:")))
  (setq number2 (car (entsel "\nClick the second number 选择第二个数字:")))
  (setq number1 (cdr (assoc 1  (entget number1))))    ;返回第一个数字的生态名称
  (setq number2 (cdr (assoc 1  (entget number2))))    ;返回第二个数字的生态名称
  (setq number1 (atof number1))                   ;返回将第一个数字文本本身转化为整数
  (setq number2 (atof number2))               ;返回将第二个数字文本本身转化为整数
  (setq result  (* number1 number2))          ;计算两数之和
  (setq result  (/ result 1.0))            
  (setq number1 (car (entsel "\nSelect the object be taken placed:")));选择要修改的数字,返回实体名称
  (setq number2 (entget number1));返回实体的关联表
  (setq result (rtos result 2 1));将计算结果转化为字符串
  (setq result (cons 1 result));组成关联表的表项
  (setq result (subst result (assoc 1 (entget number1)) number2));用新表项替换旧表项
  (entmod result);实体更新
  (princ  "     欢迎使用本程序！ ")
)
(defun c:mult2()
(graphscr)
  (setq number1 (car (entsel "\nClick the first number选择第一个数字:")))
  (setq number2 (car (entsel "\nClick the second number 选择第二个数字:")))
  (setq number1 (cdr (assoc 1  (entget number1))))    ;返回第一个数字的生态名称
  (setq number2 (cdr (assoc 1  (entget number2))))    ;返回第二个数字的生态名称
  (setq number1 (atof number1))                   ;返回将第一个数字文本本身转化为整数
  (setq number2 (atof number2))               ;返回将第二个数字文本本身转化为整数
  (setq result  (* number1 number2))          ;计算两数之和
  (setq result  (/ result 1.0))            
  (setq number1 (car (entsel "\nSelect the object be taken placed:")));选择要修改的数字,返回实体名称
  (setq number2 (entget number1));返回实体的关联表
  (setq result (rtos result 2 2));将计算结果转化为字符串
  (setq result (cons 1 result));组成关联表的表项
  (setq result (subst result (assoc 1 (entget number1)) number2));用新表项替换旧表项
  (entmod result);实体更新
  (princ  "     欢迎使用本程序！ ")
)
(defun c:mult3()
(graphscr)
  (setq number1 (car (entsel "\nClick the first number选择第一个数字:")))
  (setq number2 (car (entsel "\nClick the second number 选择第二个数字:")))
  (setq number1 (cdr (assoc 1  (entget number1))))    ;返回第一个数字的生态名称
  (setq number2 (cdr (assoc 1  (entget number2))))    ;返回第二个数字的生态名称
  (setq number1 (atof number1))                   ;返回将第一个数字文本本身转化为整数
  (setq number2 (atof number2))               ;返回将第二个数字文本本身转化为整数
  (setq result  (* number1 number2))          ;计算两数之和
  (setq result  (/ result 1.0))            
  (setq number1 (car (entsel "\nSelect the object be taken placed:")));选择要修改的数字,返回实体名称
  (setq number2 (entget number1));返回实体的关联表
  (setq result (rtos result 2 3));将计算结果转化为字符串
  (setq result (cons 1 result));组成关联表的表项
  (setq result (subst result (assoc 1 (entget number1)) number2));用新表项替换旧表项
  (entmod result);实体更新
  (princ  "        欢迎使用本程序！")
)
result, setq, number2

相关帖子

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

狂刀
发表于 2005-7-2 21:26:50 | 显示全部楼层
(defun c:test ()
(setq ss (ssget '((0 . "TEXT"))))
(apply '+ (mapcar '(lambda(x)(atof (cdr(assoc 1 (entget x)))))(ss2lst ss)))
)
;;ss2lst  ss 选集转为实体列表。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

xyp1964
发表于 2005-7-2 23:34:06 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
对话框数字运算：
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

xyp1964
发表于 2005-7-3 11:41:46 | 显示全部楼层
功能：数字运算
命令：szys
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-6-28 01:40 , Processed in 0.597521 second(s), 39 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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