土木在线论坛 \ 建筑设计 \ CAD下载及教程 \ 自己编的一些LISP程序,以下程序适合批量化处理数据

自己编的一些LISP程序,以下程序适合批量化处理数据

发布于:2010-10-21 20:47:21 来自:建筑设计/CAD下载及教程 [复制转发]
;自身乘一个倍数
(DEFUN C:zc1()
(setvar "cmdecho" 0)
(PRINT "(Copyright- aningtang)")
(SETQ s0 (GETREAL "请输入乘数:"))
(PRINT "PLEASE SELECT THE object")
(SETQ S (SSGET ))
(SETQ N (SSLENGTH S))
(SETQ M 0)
(REPEAT N
(SETQ SN (SSNAME S M))
(SETQ e (ENTGET SN))
(IF (= (cdr (assoc 0 e)) "TEXT")
(PROGN
(setq oldr (assoc 1 e))
(setq old0 (cdr oldr))
(setq newr (rtos (* (atof old0) s0) 2 1))
(setq e1 (subst (cons (car (assoc 1 e)) newr) (assoc 1 e) e))
(entmod e1)
)
)
(SETQ M (+ M 1))
)
)
;自身除一个倍数
(DEFUN C:zc2()
(setvar "cmdecho" 0)
(PRINT "(Copyright- aningtang)")
(SETQ s0 (GETREAL "请输入被除数:"))
(PRINT "PLEASE SELECT THE object")
(SETQ S (SSGET ))
(SETQ N (SSLENGTH S))
(SETQ M 0)
(REPEAT N
(SETQ SN (SSNAME S M))
(SETQ e (ENTGET SN))
(IF (= (cdr (assoc 0 e)) "TEXT")
(PROGN
(setq oldr (assoc 1 e))
(setq old0 (cdr oldr))
(setq newr (rtos (/ (atof old0) s0) 2 1))
(setq e1 (subst (cons (car (assoc 1 e)) newr) (assoc 1 e) e))
(entmod e1)
)
)
(SETQ M (+ M 1))
)
)

;自身加一个数
(DEFUN C:zj1()
(setvar "cmdecho" 0)
(PRINT "(Copyright- aningtang)")
(SETQ s0 (GETREAL "请输入增加的数值:"))
(PRINT "PLEASE SELECT THE object")
(SETQ S (SSGET ))
(SETQ N (SSLENGTH S))
(SETQ M 0)
(REPEAT N
(SETQ SN (SSNAME S M))
(SETQ e (ENTGET SN))
(IF (= (cdr (assoc 0 e)) "TEXT")
(PROGN
(setq oldr (assoc 1 e))
(setq old0 (cdr oldr))
(setq newr (rtos (+ (atof old0) s0) 2 1))
(setq e1 (subst (cons (car (assoc 1 e)) newr) (assoc 1 e) e))
(entmod e1)
)
)
(SETQ M (+ M 1))
)
)


;自身减一个数
(DEFUN C:zj2()
(setvar "cmdecho" 0)
(PRINT "(Copyright- aningtang)")
(SETQ s0 (GETREAL "请输入减少的数值:"))
(PRINT "PLEASE SELECT THE object")
(SETQ S (SSGET ))
(SETQ N (SSLENGTH S))
(SETQ M 0)
(REPEAT N
(SETQ SN (SSNAME S M))
(SETQ e (ENTGET SN))
(IF (= (cdr (assoc 0 e)) "TEXT")
(PROGN
(setq oldr (assoc 1 e))
(setq old0 (cdr oldr))
(setq newr (rtos (- (atof old0) s0) 2 1))
(setq e1 (subst (cons (car (assoc 1 e)) newr) (assoc 1 e) e))
(entmod e1)
)
)
(SETQ M (+ M 1))
)
)

[ 本帖最后由 erjijiegou2 于 2010-10-21 22:00 编辑 ]

申明:内容来自用户上传,著作权归原作者所有,如涉及侵权问题,请点击此处联系,我们将及时处理!

全部回复(55 )

只看楼主 我来说两句
  • xiaoyu.wd
    xiaoyu.wd 沙发
    不错,不错。刚开始学LISP,解决了不少工作中的问题。提高了画图效率。虽然得不到别人的肯定与赞扬。坚持下去,走自己认为正确的道路,让别人说去吧。同勉!
    2014-11-16 17:21:16

    回复 举报
    赞同0
  • 郭小城zweibo
    复制下看看
    2014-11-14 09:02:14

    回复 举报
    赞同0
加载更多
这个家伙什么也没有留下。。。

CAD下载及教程

返回版块

52.08 万条内容 · 665 人订阅

猜你喜欢

阅读下一篇

Autodesk.AutoCAD.2006.简体中文版

《Autodesk AutoCAD 2006 简体中文版》(带keygen,添加AutoCAD 2006 Express Tools 汉化版)[ISO] 电驴资源下面是用户共享的文件列表,您可以点击这些文件名进行下载 AutoCAD2006简体中文版.iso 详情 620MB [Autodesk.AutoCAD.2006.简体中文版].keygen.exe 详情 69.5KB

回帖成功

经验值 +10