图层管理.lsp

;&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
;*****************************************************************************************
(defun c:xx ()(SCALE) (xxx13))
(defun c:sca () (scale1 nil))

(DEFUN C:f ( )
(XXX)
(command "-layer" "on" b2 "")
(command "-layer" "set" b2 "")
(command "color""Bylayer" "-LINETYPE""SET""Bylayer""")
(prompt "\n当前层:")(prin1 b2)(prompt " ")
);end

(DEFUN C:m0 () (COMMAND "CHPROP" PAUSE "" "P" "LA" "0" ""))
(defun c:m1 () (command "chprop" pause "" "p" "la" "幕墙-铝材" ""))
(defun c:m2 () (command "chprop" pause "" "p" "la" "幕墙-钢材" ""))
(defun c:m3 () (command "chprop" pause "" "p" "la" "幕墙-填充" ""))
(defun c:m4 () (command "chprop" pause "" "p" "la" "幕墙-标注" ""))
(defun c:m5 () (command "chprop" pause "" "p" "la" "幕墙-文字" ""))
(defun c:m6 () (command "chprop" pause "" "p" "la" "幕墙-轴线" ""))
(defun c:m7 () (command "chprop" pause "" "p" "la" "幕墙-预埋件" ""))
(defun c:m8 () (command "chprop" pause "" "p" "la" "幕墙-索引" ""))
(defun c:m9 () (command "chprop" pause "" "p" "la" "幕墙-配件类" ""))
(defun c:m00 () (command "chprop" pause "" "p" "la" "结构或其他" ""))
(defun c:m11 () (command "chprop" pause "" "p" "la" "幕墙-玻璃" ""))
(defun c:m22 () (command "chprop" pause "" "p" "la" "幕墙-铝板" ""))
(defun c:m33 () (command "chprop" pause "" "p" "la" "幕墙-石材" ""))
(defun c:m44 () (command "chprop" pause "" "p" "la" "幕墙-百叶" ""))
(defun c:m55 () (command "chprop" pause "" "p" "la" "幕墙-防火" ""))
(defun c:m66 () (command "chprop" pause "" "p" "la" "幕墙-横向" ""))
(defun c:m77 () (command "chprop" pause "" "p" "la" "幕墙-竖向" ""))
(defun c:m88 () (command "chprop" pause "" "p" "la" "幕墙-胶@胶条" ""))

(defun c:0 () (LAYER1 "0"))
(defun c:1 () (LAYER1 "幕墙-铝材"))
(defun c:2 () (LAYER1 "幕墙-钢材" ))
(defun c:3 () (LAYER1 "幕墙-填充"))
(defun c:4 () (LAYER1 "幕墙-标注"))
(defun c:5 () (LAYER1 "幕墙-文字"))
(defun c:6 () (LAYER1 "幕墙-轴线"))
(defun c:7 () (LAYER1 "幕墙-预埋件"))
(defun c:8 () (LAYER1 "幕墙-索引"))
(defun c:9 () (LAYER1 "幕墙-配件类"))
(defun c:00 () (LAYER1 "结构或其他"))
(defun c:11 () (LAYER1 "幕墙-玻璃"))
(defun c:22 () (LAYER1 "幕墙-铝板"))
(defun c:33 () (LAYER1 "幕墙-石材"))
(defun c:44 () (LAYER1 "幕墙-百叶"))
(defun c:55 () (LAYER1 "幕墙-防火"))
(defun c:66 () (LAYER1 "幕墙-横向"))
(defun c:77 () (LAYER1 "幕墙-竖向"))
(defun c:88 () (LAYER1 "幕墙-

胶@胶条"))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;

(defun c:LLL ()(command "-layer" "off" "N-ha" ""))

;&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&


;&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&
;LA---LAYER
;LT---LINETYPE
;&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&&

;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
;选择对象SE，并取其图层名b2
(defun xxx()
(setq se (entsel))(setq sd (entget (car se)))
(setq b1 (assoc 8 sd))
(setq b2 (cdr b1)))
;$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$$

(defun xxx-1();单层显示
(setq a(ssget "x"))(setq i 0.000)
(repeat(sslength a)
(setq se(entget(ssname a i)))
(setq b1 (assoc 8 se)) (setq b3 (cdr b1))
(if(/= b2 b3)(command "-layer" "off" b3 ""))
(SETQ i(1+ i))
);end-repeat
);end
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(DEFUN LAYER1(XX)
(command "color""Bylayer"
"-layer" "on" XX """-layer""set" XX ""
"-LINETYPE""SET""Bylayer"""))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(DEFUN LAYER2(XX)
(setq s(ssget))
(setq i 0)
(repeat(sslength S)
(setq sd1(entget(ssname s i))) ;把选择集S的第i个对象给变量sd1
(COMMAND "change" sd1 "" "P" "LA" XX "")
(setq i(1+ i)))
);end

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;
;;; ;;;
;;; SCALE ;;;
;;; ;;;
;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun scale1(a)
(IF(= a nil)
(progn(if (= c nil)(setq c 100.0))
(setq rr1 c )
(setq rr (rtos c 2 2 ))
(setq c (getreal (strcat "\n请输入比例<" rr ">:")))
(if (= c nil)(setq c rr1))
)
(setq b c)
));END-if,defun
(defun scale()(scale1 t)
(prompt "\n比例1:b=1:")(prin1 b)(prompt " "))
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(DEFUN xxx13()
(prompt "\n自动设置层,字体,线形,标注样式;比例为 1:")(prin1 b)(prompt "。")
(setq vvv(getstring"确认比例:"))
(if (= vvv "")
(progn
(setq d (/ b 1.0))
(command "-layer" "new" "幕墙-铝材" "color" "127" "幕墙-铝材" ""
"-layer" "new" "幕墙-钢材"

"color" "53" "幕墙-钢材" ""
"-layer" "new" "幕墙-填充" "color" "33" "幕墙-填充" ""
"-layer" "new" "幕墙-标注" "color" "3" "幕墙-标注" ""
"-layer" "new" "幕墙-文字" "color" "221" "幕墙-文字" ""
"-layer" "new" "幕墙-轴线" "color" "1" "幕墙-轴线" ""
"-layer" "new" "幕墙-预埋件" "color" "11" "幕墙-预埋件" ""
"-layer" "new" "幕墙-索引" "color" "1" "幕墙-索引" ""
"-layer" "new" "幕墙-配件类" "color" "175" "幕墙-配件类" ""
"-layer" "new" "幕墙-横向" "color" "245" "幕墙-横向" ""
"-layer" "new" "幕墙-竖向" "color" "11" "幕墙-竖向" ""
"-layer" "new" "幕墙-玻璃" "color" "30" "幕墙-玻璃" ""
"-layer" "new" "幕墙-铝板" "color" "4" "幕墙-铝板" ""
"-layer" "new" "幕墙-石材" "color" "2" "幕墙-石材" ""
"-layer" "new" "幕墙-百叶" "color" "144" "幕墙-百叶" ""
"-layer" "new" "幕墙-防火" "color" "1" "幕墙-防火" ""
"-layer" "new" "幕墙-胶@胶条" "color" "4" "幕墙-胶@胶条" ""
"-layer" "new" "结构或其他" "color" "7" "结构或其他" ""
"-style" "dim" "romans.shx,hztxt.shx" 0 "0.50" "0" "n" "n" "n"
"-style" "font" "txt.shx,ctxt.shx" 0 "0.60" "0" "n" "n" "n"
"-style" "standard" "simplex.shx,ctxt.shx" 0 "0.70" "0" "n" "n" "n"
"-style" "汉字" "simplex.shx,hztxt2.shx" 0 "0.80" "0" "n" "n" "n"
"-style" "双实" "romand.shx,st.shx" 0 "0.70" "0" "n" "n" "n"
"-style" "双空" "complex.shx,st64f.shx" 0 "0.70" "0" "n" "n" "n"
"-style" "文字标注" "宋体" 0 "0.70" "0" "n" "n" "n"
"-linetype" "load" "acad_iso02w100" "" ""
"-linetype" "load" "acad_iso04w100" "" ""
"LTSCALE" d
"-layer" "L" "acad_iso04w100" "幕墙-轴线" ""
"units" "2" "0" "1" "0" "0" "n"
"limits" "0,0" "100000,80000"
"zoom" "e"
"-osnap" "end,int,mid"

"COORDS" "2"
"mirrtext" "0"
"UCSICON" "OFF"
"edgemode" "1"
"fillmode" "1"
"gripcolor" "2" "griphot" "1" "grips" "1"
"chamfera" "0" "chamferb" "0"

)
;;;;;;;;;;;;dim**********************************************************************
;;;;Geometry
(setvar "dimsd1" 0)
(setvar "dimsd2" 0)
(setvar "dimdle" 0)
(set

var "dimdli" 9)
(setvar "dimclrd" 3)

(setvar "dimse1" 0)
(setvar "dimse2" 0)
(setvar "dimexe" 1)
(setvar "dimexo" 3)
(setvar "dimclre" 3)

(setvar "dimsah" 1)
(setvar "dimblk" "_archtick")
(setvar "dimblk1" "_archtick")
(setvar "dimblk2" "_archtick")
(setvar "dimasz" 1)
(setvar "dimscale" b)

;;;;;;;format
(setvar "dimupt" 0)
(setvar "dimtofl" 1)
(setvar "dimfit" 5)

(setvar "dimtih" 0)
(setvar "dimtoh" 0)
(setvar "dimjust" 0)
(setvar "dimtad" 1)

;;;;;;;Annotation
(setvar "dimunit" 2)
(setvar "dimaunit" 0)
(setvar "dimadec" -1)
(setvar "dimdec" 0)
(setvar "dimaltd" 0)
(setvar "dimlfac" 1)
(setvar "dimtxsty" "dim")
(setvar "dimtxt" 3.0)
(setvar "dimgap" 0.7)
(setvar "dimclrt" 3)
;;;;;;savestyle
(command "dimstyle" "s" "line")

(setvar "dimfit" 3)
(setvar "dimsah" 1)
(setvar "dimblk" "_closed")
(setvar "dimblk1" "_closed")
(setvar "dimblk2" "_closed")
(command "dimstyle" "s" "angler")
;%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
(prompt "\n加油哦--呵呵")
);end-progn
(prompt "\n请加载ACAD.LSP ")

);end-if
);end
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun fill-windows( / pp1 pp2 ppa plw ppb osn redent eedel ptlist i olderr)

(setq
*error* ff_err)
(if (= (getvar "hpname") "")
(prompt " NO hatch pattern selected: ")
(progn

(setvar "cmdecho" 0)

(setq blipm(getvar "blipmode"))
(setvar "blipmode" 0)
(setq pp1(getpoint "getpoint : "))
(setq pp2(getcorner pp1 "nextpoint : "))
(if (or (= pp1 nil) (= pp2 nil)) "" (progn
(setq osn (getvar "osmode"))
(command "undo" "group")
(setvar "osmode" 0)

(setq ppa (list (car pp2)(cadr pp1)))
(setq ppb(list (car pp1) (cadr pp2)))
(setq ptlist ( list pp1 ppa pp2 ppb))
(setq plw(getvar "plinewid"))
(setvar "plinewid" 0)
(command "pline" pp1 ppa pp2 ppb "c")
(setvar "plinewid" plw)
(setq eedel(entlast))
(if (tblsearch "layer" "幕墙-填充") ""
(command "layer" "New" "幕墙-填充" "c" "GREEN" "幕墙-填充" "")
)

(command "hatch" "" "" "" "l" "")
(command "change" (entlast) "" "P" "la" "幕墙-填充" "")
(entdel eedel)
(setvar "blipmode" blipm)
(setq redent(ssget "f" ptlist))
(if (= redent nil) ""
(progn
(setq i 1)
(setq rden (ssname redent 0))
(while rden
(redra

w rden)
(setq rden (ssname redent i))
(setq i (+ i 1))
)
) ;; progn
) ;;end if
(setvar "osmode" osn)
))
(command "undo" "end")
) ;end progn hpname
) ;;end if hpname

; (setq *error* olderr)
)

;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
(defun fill-pline( / pt0 osm blipm pt1 ptn pl0 pln ptlist obj i)
(setq *error* ff_err)
(if (= (getvar "hpname") "")
(prompt " NO hatch pattern selected: ")
(progn


(command "undo" "group")
(setvar "cmdecho" 0)
(setq blipm(getvar "blipmode"))
(setvar "blipmode" 0)
(setq pt0 (getpoint "get first point : "))
(if pt0
(progn

(setq ptlist nil)
(setq pt1 pt0)
(setq osm(getvar "osmode"))
(setvar "osmode" 0)
(command ".pline" pt0 pt1 "")
(setvar "osmode" osm)
(setq pl0(entlast))
(while pt0
(setq ptlist(cons pt0 ptlist))
(setq ptn pt0)
(setq pt0(getpoint pt0 "next point: "))
(if (or (equal pt0 pt1) (= pt0 nil))
(setq pt0 nil) ""
) (if pt0
(progn
(setvar "osmode" 0)
(command ".pline" ptn pt0 "")
(setvar "osmode" osm)
(setq pln(entlast))
(command "pedit" pl0 "j" pln "" "")
(setq pl0(entlast))
(redraw pl0 3)
)
(progn
(command ".pline" ptn pt1 "")
(command "pedit" pl0 "j" (entlast) "" "")
)
) ;; end if
) ;;end while
(setq pl0(entlast))
(command ".hatch" "" "" "" "l" "")
(entdel pl0)
(if (tblsearch "layer" "幕墙-填充") ""
(command "layer" "New" "幕墙-填充" "c" "red" "幕墙-填充" "")
)
(command "change" (entlast) "" "P" "la" "幕墙-填充" "")

(setq i 0)
(if (setq obj(ssget "f" ptlist))
(repeat (sslength obj)
(redraw (ssname obj i) )
(setq i(+ i 1))
)
""
)
) (prompt "cancel") )
(setvar "blipmode" blipm)
(command "undo" "end")
)
))


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

(setvar "modemacro"
(strcat
"$(substr,$(getvar,clayer),1,8) "
"$(if,$(getvar,orthomode),Ortho) ""**谨*敏*慎**"
"$(substr,$(getvar,dwgname),$(strlen,$(getvar,dwgprefix))) "
"时间：""$(edtime,$(getvar,date),2010-m-d h:mm:ss ddd) "
))