(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 "等分数:"))

(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" 20655)

(command "layer" "m" "6文字层" "c" 3 "6文字层" "l" "continuous" "6文字层" "");6文字层

(command "text" "m" p1 h1 0 "长度mm")

(command "text" "m" (polar p1 (* 1.5 pi) (* 1.1 h1)) h1 0 (rtos LL 2 2))

(command "text" "m" (polar p1 (* 1.5 pi) (* 2.2 h1)) h1 0 (strcat (itoa cn3) "等分长度" (rtos LL1 2 2)));;整数实数转字符

(command "text" "m" (polar p1 (* 1.5 pi) (* 3.3 h1)) h1 0 (rtos LL1 2 2))

(princ)

)

(defun c:LL1 ();;根据比例自动变换

(setvar "cmdecho" 0)

(prompt"长度及总长从下往上标注")(terpri)

(command "layer" "m" "6文字层" "c" 3 "6文字层" "l" "continuous" "6文字层" "");6文字层

(setq p1 (getpoint "\n 文字标注点:空白处"))

(setq hh1 (getvar "dimSCALE"))

(setq h1 (* 6 hh1))

(setvar "osmode" 20655)

(setq en (ssget '((0 . "ARC,ELLIPSE,CIRCLE,*LINE"))))

(setq i 0)

(setq ll 0)

(repeat (sslength en)

(setq ss (ssname en i))

(setq endata (entget ss))

(command "lengthen" ss "")

(setq dd (getvar "perimeter"))

(setq ll (+ dd ll))

(setq i (1+ i))

(setq p1 (polar p1 (* 0.5 pi) (* 1.1 h1)))

(command "text" "m" p1 h1 0 (rtos dd 2 2))

)

(princ "\n 所选线条总长为:")(princ ll)

;(setvar "osmode" 20655)

(command "text" "m" (polar p1 (* 0.5 pi) (* 1.1 h1)) h1 0 "长度及总长mm")

(command "text" "m" (polar p1 (* 0.5 pi) (* 2.2 h1)) h1 0 (rtos LL 2 2))

(princ)

)

(defun c:GT ()

(setvar"cmdecho"0)

(prompt"从下往上提取文字")(terpri)

(setq i 0)

(princ "\n选择文字: ")

(if (and (setq ss (ssget '((0 . "text"))))

(setq ff (open (getfiled "文件保存为" "E:\cad\lsp提取文字" "txt" 1) "w")) ;保存路径

)

(repeat (sslength ss)

(setq en (entget (ssname ss i))

sn (itoa (+ i 1))

pt (cdr (assoc 10 en))

x  (rtos (cadr pt) 2 3)

y  (rtos (car pt) 2 3)

z  (cdr (assoc 1 en))

i  (1+ i)

)

(write-line (strcat z) ff)

)

)

(princ)

)

(defun c:BH ()

(setvar"cmdecho"0)

(prompt"标注号码")(terpri)

(setq i (getint " 起始编号:"))

(if (null i)(setq i 1))

(setq n1 (getint " 总数:"))

(if (null n1)(setq n1 10))

(setq hh1 (getvar "LTSCALE"))

;(setq hh (getdist " 文字倍数:"))

;(if (null hh)(setq hh hh1))

(setq h1 (* 0.6 hh1))

(setq s (getstring "前缀:"))

(if (null s)(setq s "前缀"))

(command "layer" "m" "6文字层" "c" 3 "6文字层" "l" "continuous" "6文字层" "");6文字层

(setq p1 (getpoint "\n 文字标注点:"))

(repeat n1

(command "text" "m" p1 h1 0 (strcat s (rtos i 2 0)))

(setq i (1+ i))

(setq p1 (getpoint "\n 文字标注点:"))

)

(princ)

)