cad中面积及重量、长度及等分、长度及总长、导出文字、数字编号等lisp应用VIP专享

（defun c:AW1（）;；根据比例自动变换(setvar"cmdecho”0）(prompt"重量面积标注"）（terpri） （setvar ”osmode” 4271)(command "area" ”O" （car(entsel "\n 单选闭合对象："）)) （setq t1 （getdist ”\n 板厚〈4>：”）)（if （null t1）（setq t1 4）） (setq f1 (getreal ” 密度 304 为 7.93 316L 为 7.98〈7。85〉：”)）（if (null f1）（setq f1 7.85))（setq aa1 (＊ (/ （getvar ”area"） 1000000） f1 t1）)(setq aa2 (/ （getvar "area") 1000000)）（setq aa3 (getvar "area")） （print "重量 kg”）（princ aa1） (print ”平米"）(princ aa2） （print "平方毫米”）(princ aa3） （setq p1 (getpoint ”\n 文字标注点:"）） （setq hh1 (getvar ”dimSCALE")) (setq h1 (＊ 6 hh1)) （setvar ”osmode" 20655)（command "layer” ”m” ”6 文字层” ”c" 3 "6 文字层” "l” "continuous" ”6 文字层” "”）;6 文字层 （command ”text" ”m" p1 h1 0 (strcat （rtos t1 2 2) ”mm 密度” (rtos f1 2 2) "重量kg”)） （command "text" ”m" (polar p1 (* 1.5 pi） (＊ 1。1 h1)） h1 0 (rtos aa1 2 2）） ；(command "text" ”m" （polar p1 （* 1。5 pi） 130） h1 0 ”平米”） ；(command "text" "m" （polar p1 （＊ 1.5 pi） 195) h1 0 (rtos aa2 2 2）) （command "text" ”m” (polar p1 (* 1.5 pi） (＊ 2.2 h1）) h1 0 ”平方毫米"） (command "text" "m” (polar p1 （* 1。5 pi) （＊ 3.3 h1)) h1 0 （rtos aa3 2 0)） (princ)）(defun c:CD1();；根据比例自动变换（setvar”cmdecho”0)(prompt"长度及等分长度标注")（terpri） （setvar "osmode” 4271)(setq ssl （car （entsel ”\n 单选标注对象："））)；;选择首个所选对象(command ”lengthen" ssl "")（setq LL (getvar ”PERIMETER”)）;；猎取周长 （Setq cn3 (GetInt ”等分数<默认:1〉：”））（if （null cn3)（setq cn3 1）) (setq LL1 (/ (＊ LL 1。0） cn3）） (setq p1 (getpoint ”\n 文字标注点：”）) (setq hh1 (getvar ”dimSCALE”）） （setq h1 (＊ 6 hh1)) （setvar "osmode” 206...