cad线段总和lisp_晓东CAD家园-论坛-LISP/VLISP程序库-[LISP程序]：文本工具：面积文字累加求和

[FONT=courier new]

(princ "\nc:txta===面积文字累加求和---txtas设置--------lxx.2001.5")

(princ "\ntxtaa===面积文字累加求和'(txtaa 字高精度后缀)-----------lxx.2001.5")

;;/;;;

(defun txtadd (/ ss tta i tt pt)

(setq ss (ssget '((0 . "TEXT")) )

tta 0

i 0

)

(repeat (sslength ss)

(setq tt (cdr(assoc 1 (entget(ssname ss i))))

tta (+ tta (atof tt))

i (1+ i)

)

(princ "\n累加总和:")(princ tta)

(if (not txtdec) (setq txtdec (getint "\n小数点后位数:")) )

(if (not txthz) (setq txthz (getstring "\n后缀:1-m2/2-米2/3-m/<>:")))

(cond

((= "1" txthz)(setq txthz "m%%132"))

((= "2" txthz)(setq txthz "米%%132"))

((= "3" txthz)(setq txthz "m"))

)

(setq tta (strcat (rtos tta 2 txtdec) txthz)

pt (getpoint "\n标注位置:")

)

(if (not txth) (setq txth (rtos (getdist pt "\n字高:"))) )

(command "text" pt txth "" tta ^c)

)

;;;;;;;;;;;;;;;;;;;;

(defun c:txtas ()

(setq txth (rtos (getdist "\n字高:"))

txtdec (getint "\n小数点后位数:")

txthz (getstring "\n后缀: 1-m2/ 2-米2/ 3-m/<>:")

)

(cond

((= "1" txthz)(setq txthz "m%%132"))

((= "2" txthz)(setq txthz "米%%132"))

((= "3" txthz)(setq txthz "m"))

)

(princ (strcat "\n 字高=" txth " 精度=" (itoa txtdec) " 后缀=" txthz))

(princ)

)

;;;;;;;;;;;;;;;;;;;;

(defun c:txta ()

(princ "\ntxta===面积文字累加求和c:------txtas设置-----lxx.2001.5")

(txtadd)

(princ)

)

;;;;;;;;;;;;;;;;;;;;

;;;;;用法:(txtaa 字高精度后缀);;;;;;;;;;eg. (txtaa 300 3 "m%%132");;;

(defun txtaa (txth txtdec txthz)

(princ "\ntxtaa===面积文字累加求和'()-----------lxx.2001.5")

(txtadd)

(princ)

)

;;;;;;;;;;;;

[/FONT]

cad线段总和lisp_晓东CAD家园-论坛-LISP/VLISP程序库-[LISP程序]：文本工具：面积文字累加求和 - Powered by Discuz!...相关推荐

标注线段长度批量lisp_晓东CAD家园-论坛-每日插件-求批量多线段长度标注-求批量多线段长度标注插件！万分感谢！！！ - Powered by Discuz!...
(DEFUN C:LX1 ();|按GTC 标志的模式注记全部实地边长|; (setvar "cmdecho" 0) (COMMAND "-SNAP" &quo ...
cad批量交点打断 lisp_晓东CAD家园-论坛-A/VLISP-批量交点打断-各位有批量交点打断！！各自塞下总有个你觉得很好 - Powered by Discuz!...
贴一个复杂的 [pcode=lisp,true](defun c:Ea:ssbrk (/ THINKING removedups ybl-pts-sorton ...
块内拉升lisp_晓东CAD家园-论坛-LISP/VLISP程序库-[原创]：一个递增复制文字和属性块的程序 - Powered by Discuz!...
最初由 xuyu 发布 [B]楼主是否可以做到这样呢,在做图纸的编号时复制,增量复制时只递增前面的数字,如01/12复制时变成02/12,03*12,04/12等,谢谢楼主的程序 [/B] 将主程序改 ...
LISP 圆孔标记_晓东CAD家园-论坛-A/VLISP-获取当前标注样式-;;希望大家来完善它 - Powered by Discuz!...
(defun C:get_current_dimStyle (/ L LST Y) (setq Lst (list "blipmode" ...
lisp画垫圈_晓东CAD家园-论坛-LISP/VLISP程序库-[LISP程序]：俺的画内六角圆柱头螺钉的LISP程序-见附件 - Powered by Discuz!...
b_screw_column.dcl /*;这是一个基于AutoCad 14.0下画螺钉的程序 ;本程序作者b.w ;本程序无偿使用 ;如有更好建议,请联系b.w ;版本:2.0.01 ;日期:14/ ...
cad线段总和lisp_求一个线段长度总和与生成文本 - AutoLISP/Visual LISP 编程技术 - CAD论坛 - 明经CAD社区 - Powered by Discuz!...
像这种 ;;;;;计算面积,周长.显视在图面上 (defun C:am (/ s text1 text2 ss l i totalarea ename obj insertpt insertpt1) ...
lisp把选集转成表_晓东CAD家园-论坛-LISP/VLISP程序库-[LISP程序]：把text转为属性图块 - Powered by Discuz!...
;;把text转为属性图块 ;;By LUCAS (defun C:C_DEF (/ HOLDECHO HOLDBLIP HOLDREQ SS SSS N A AA A1 A73 HH LST_210 ...
lisp 天正标高_天正lisp文件夹_晓东CAD家园-论坛-A/VLISP-[求助]：怎样设置这个lisp里的读取文件...
马上注册,结交更多好友,享用更多功能,让你轻松玩转社区. 您需要登录才可以下载或查看,没有帐号?立即注册 x 这时一个别人很久以前的lisp文件,可能是cadR12版就有了.文件语句如下: (se ...
如何用lisp画蔓叶线_晓东CAD家园-论坛-晓东工具箱、编程申请-求帮忙，编写一个，快速填充图案的 LISP程序 - Powered by Discuz!...
这是我根据从网络上收集到的填充LISP插件,加以修改的的结果.虽然不完美,但还是能达到,60%的期望.发出来,大家帮忙修改一下. ;填充图案的 LISP插件 (defun c:HH(/ kw lay ...

cad线段总和lisp_晓东CAD家园-论坛-LISP/VLISP程序库-[LISP程序]：文本工具：面积文字累加求和 - Powered by Discuz!...

cad线段总和lisp_晓东CAD家园-论坛-LISP/VLISP程序库-[LISP程序]：文本工具：面积文字累加求和 - Powered by Discuz!...相关推荐

最新文章

热门文章