(DEFUN C:LX1 ();|按GTC 标志的模式注记全部实地边长|;

(setvar "cmdecho" 0)

(COMMAND "-SNAP" "")

(COMMAND "-layer" "s" "0" "")

(setq TUCHENG (getstring "\n 请输入要注记的图层< * > : "))

(if (or (= TUCHENG nil) (= TUCHENG ""))

(setq TUCHENG "*")

)

(setq hei (getreal "\n 输入字高 < 1.5 > :"))

(if (= hei nil)

(setq hei 1.5)

)

(setq zjws (getint "\n 输入小数点后保留的位数 < 3 > : "))

(if (or (= zjws nil) (= zjws ""))

(setq zjws 3)

)

(setq BILICHI (getreal "\n 输入图形文件的比例尺 < 1000 > : "))

(if (= BILICHI nil)

(setq BILICHI 1000.0)

)

(setq bilixishu (/ BILICHI 1000.0))

(setq zwd1 (getpoint "注记范围第一点"))

(setq zwd5 (getcorner zwd1 "注记范围第五点"))

(setq        ss

(ssget        "w" zwd1 zwd5

(list (cons 0 "LINE,POLYLINE,LWPOLYLINE") (cons 8 TUCHENG))

)

)

(setq ZCD (sslength ss))

(setq ZXH 0)

(while (< ZXH ZCD)

(setq NE (ssname ss ZXH))

(setq ED (entget NE))

(setq TJ (CDR (assoc 0 ED))

)

(if        (= TJ "LINE")

(progn (setq kk2 (cdr (assoc 10 ED)))

(setq kk3 (cdr (assoc 11 ED)))

(setq dis (rtos (distance KK2 KK3) 2 zjws))

(setq an (angle KK2 KK3))

(setq kkm (polar KK2 an (/ (distance KK2 KK3) 2)))

(if (or (< (/ (* 3 pi) 4) an (/ (* 7 pi) 4))

(= an (/ (* 7 pi) 4))

)

(COMMAND "text" "J" "BC" kkm hei KK2 dis)

(COMMAND "text" "J" "BC" kkm hei KK3 dis)

)

)

)

(if        (= TJ "POLYLINE")

(progn

(setq pdtj (cdr (assoc 70 (entget NE))))

(setq kxy (cdr (assoc 10 (entget (entnext NE)))))

(while (and (setq NE (entnext NE))

(setq ED (entget NE))

(/= "SEQEND" (cdr (assoc 0 ED)))

)

(setq kk2 (cdr (assoc 10 ED)))

(if (= (setq kk3 (cdr (assoc 10 (entget (entnext NE))))) nil)

(setq kk3 kxy)

)

(setq dis (rtos (* (distance kk2 kk3) bilixishu) 2 zjws))

(setq an (angle kk2 kk3))

(setq kkm (polar kk2 an (/ (distance kk2 kk3) 2)))

(if (or (< (/ (* 3 pi) 4) an (/ (* 7 pi) 4))

(= an (/ (* 7 pi) 4))

)

(COMMAND "text" "J" "C" kkm hei kk2 dis)

(COMMAND "text" "J" "C" kkm hei kk3 dis)

)

)

(setq YUbeishanchu (entlast))

(if (= (LOGAND pdtj 128) 128)

(entdel YUbeishanchu)

)

)

)

(if        (= TJ "LWPOLYLINE")

(progn

(setq num (length ED))

(setq i 0)

(setq j 0)

(while (< i num)

(setq ss1 (nth i ED))

(setq ss2 (car ss1))

(if (= ss2 10)

(progn

(if (> j 0)

(progn

(setq ss3 ss4)

(setq ss4 (cdr ss1))

(setq dis (rtos (distance ss3 ss4) 2 zjws))

(setq an (angle ss3 ss4))

(setq kkm (polar ss3 an (/ (distance ss3 ss4) 2)))

(if (or (< (/ (* 3 pi) 4) an (/ (* 7 pi) 4))

(= an (/ (* 7 pi) 4))

)

(COMMAND "text" "J" "BC" kkm hei ss3 dis)

(COMMAND "text" "J" "BC" kkm hei ss4 dis)

)

);progn

(setq ss4 (cdr ss1))

);if

(setq j (+ j 1))

);progn

);if

(setq i (+ i 1))

)

)

)

(setq ZXH (+ ZXH 1))

)

(COMMAND "REDRAW")

)