; for blocks
(defun c:LinkLayerBlock
( / enx idx lay map sel
) map
'(
;points
("KORYFES" . "ΑΞΟΝΟΔΙΑΣΤΑΥΡΩΣΗ")
("KOROT" . "ΚΟΡΥΦΗ ΟΤ")
("KOKAEK" . "ΣΗΜΕΙΟ ΚΑΕΚ")
("odsta" . "ΟΔΕΥΣΗ")
("odtrig" . "ΟΔΕΥΣΗ")
("REPERS" . "REPERS")
("station" . "ΣΤΑΣΗ")
("point" . "ΤΑΧΥΜΕΤΡΙΚΑ")
("trigonom" . "ΤΡΙΓΩΝΟΜΕΤΡΙΚΑ")
("MES" . "MES")
("Podi" . "ΠΟΔΙ")
("Fridi" . "φΡΥΔΙ")
("Ypsom" . "ΤΥΧΑΙΟ_ΥΨΟΜΕΤΡΟ")
("Dexia" . "ΔΕΞΙΑ")
("Aristera" . "ΑΡΙΣΤΕΡΑ")
("Dianomi" . "ΔΙΑΝΟΜΗ")
;trees
("tree1" . "ΔΕΝΤΡΟ")
("tree2" . "ΔΕΝΤΡΟ")
("tree3" . "ΔΕΝΤΡΟ")
("tree4" . "ΔΕΝΤΡΟ")
("tree5" . "ΔΕΝΤΡΟ")
("tree6" . "ΚΥΠΑΡΙΣΣΙ")
("tree7" . "ΚΥΠΑΡΙΣΣΙ")
("tree8" . "ΦΟΙΝΙΚΑΣ")
("tree9" . "ΦΟΙΝΙΚΑΣ")
("tree10" . "ΕΛΑΤΟ")
("tree11" . "ΑΜΠΕΛΙ")
("tree12" . "ΕΛΙΑ")
("tree13" . "ΕΣΠΕΡΙΔΟΕΙΔΗ")
;symbols
("ARID1" . "ΑΡΙΘ. ΙΔΙΟΚΤΗΣΙΑΣ")
("AROT1" . "Ο.Τ")
("velos" . "ΒΕΛΟΣ")
("dvelos" . "ΔΙΠΛΟ ΒΕΛΟΣ")
("NORTH" . "ΒΟΡΡΑΣ")
("vrisi" . "ΒΡΥΣΗ")
("vana" . "ΒΑΝΑ")
("DEH1" . "ΔΕΗ")
("Eikonastasi" . "ΕΙΚΟΝΟΣΤΑΣΙ")
("kamera" . "ΚΑΜΕΡΑ")
("MPASKETA" . "ΜΠΑΣΚΕΤΑ")
("OTE1" . "ΟΤΕ")
("krounos" . "ΚΡΟΥΝΟΣ")
("stathmi" . "ΣΤΑΘΜΕΣ")
("stayros" . "ΣΤΑΥΡΟΣ")
("simaia" . "ΣΗΜΑΙΑ")
("THL1" . "ΤΗΛ. ΘΑΛΑΜΟΣ")
("fanari" . "ΦΑΝΑΡΙ ΚΥΚΛΟΦΟΡΙΑΣ")
("pinakida" . "ΠΙΝΑΚΙΔΑ - ΤΑΜΠΕΛΑ")
("shma1" . "ΣΗΜΑ_ΤΡΙΓ")
("shma2" . "ΣΗΜΑ_ΣΤΡΟΓ")
("shma3" . "ΣΗΜΑ_ΕΞΑΓ")
("shma4" . "ΣΗΜΑ_ΤΕΤΡ")
("PETRA1" . "ΠΕΤΡΑ")
("PETRA2" . "ΠΕΤΡΑ")
("PETRA3" . "ΠΕΤΡΑ")
("PETRA4" . "ΠΕΤΡΑ")
("FANMONO" . "ΦΑΝΑΡΑΡΑΚΙ ΜΟΝΟ")
("FANDIPLO" . "ΦΑΝΑΡΑΡΑΚΙ ΔΙΠΛΟ")
("FANTRIPLO" . "ΦΑΝΑΡΑΡΑΚΙ ΤΡΙΠΛΟ")
("FANMONO2" . "ΣΤΥΛΟΣ ΦΩΤΙΣΜΟΥ ΜΟΝΟΣ")
("fos1" . "ΦΩΤΙΣΜΟΣ ΟΔΟΥ")
;Annotation points
("AnnotKORYFES" . "_ΑΞΟΝΟΔΙΑΣΤΑΥΡΩΣΗ")
("AnnotKOROT" . "_ΚΟΡΥΦΗ ΟΤ")
("AnnotKOKAEK" . "_ΣΗΜΕΙΟ ΚΑΕΚ")
("Annotodsta" . "_ΟΔΕΥΣΗ")
("Annotodtrig" . "_ΟΔΕΥΣΗ")
("AnnotREPERS" . "_REPERS")
("Annotstation" . "_ΣΤΑΣΗ")
("Annotpoint" . "_ΤΑΧΥΜΕΤΡΙΚΑ")
("Annottrigonom" . "_ΤΡΙΓΩΝΟΜΕΤΡΙΚΑ")
("AnnotMes" . "_MES")
("AnnotPodi" . "_ΠΟΔΙ")
("AnnotFridi" . "_φΡΥΔΙ")
("AnnotYpsom" . "_ΤΥΧΑΙΟ_ΥΨΟΜΕΤΡΟ")
("AnnotDexia" . "_ΔΕΞΙΑ")
("AnnotAristera" . "_ΑΡΙΣΤΕΡΑ")
("AnnotDianomi" . "_ΔΙΑΝΟΜΗ")
;Annotation trees
("annottree1" . "_ΔΕΝΤΡΟ")
("annottree2" . "_ΔΕΝΤΡΟ")
("annottree3" . "_ΔΕΝΤΡΟ")
("annottree4" . "_ΔΕΝΤΡΟ")
("annottree5" . "_ΔΕΝΤΡΟ")
("annottree6" . "_ΚΥΠΑΡΙΣΣΙ")
("annottree7" . "_ΚΥΠΑΡΙΣΣΙ")
("annottree8" . "_ΦΟΙΝΙΚΑΣ")
("annottree9" . "_ΦΟΙΝΙΚΑΣ")
("annottree10" . "_ΕΛΑΤΟ")
("annottree11" . "_ΑΜΠΕΛΙ")
("annottree12" . "_ΕΛΙΑ")
("annottree13" . "_ΕΣΠΕΡΙΔΟΕΙΔΗ")
;Annotation symbols
("AnnotARID1" . "_ΑΡΙΘ. ΙΔΙΟΚΤΗΣΙΑΣ")
("AnnotAROT1" . "_Ο.Τ")
("Annotvelos" . "_ΒΕΛΟΣ")
("Annotdvelos" . "_ΔΙΠΛΟ ΒΕΛΟΣ")
("AnnotNORTH" . "_ΒΟΡΡΑΣ")
("Annotvrisi" . "_ΒΡΥΣΗ")
("Annotvana" . "_ΒΑΝΑ")
("AnnotDEH1" . "_ΔΕΗ")
("AnnotEikonastasi" . "_ΕΙΚΟΝΟΣΤΑΣΙ")
("mscale" . "ΚΛΙΜΑΚΑ")
("Annotkamera" . "_ΚΑΜΕΡΑ")
("AnnotMPASKETA" . "_ΜΠΑΣΚΕΤΑ")
("raga" . "ΟΣΕ")
("AnnotOTE1" . "_ΟΤΕ")
("Annotkrounos" . "_ΚΡΟΥΝΟΣ")
("Annotstathmi" . "_ΣΤΑΘΜΕΣ")
("Annotstayros" . "_ΣΤΑΥΡΟΣ")
("Annotsimaia" . "_ΣΗΜΑΙΑ")
("AnnotTHL1" . "_ΤΗΛ. ΘΑΛΑΜΟΣ")
("Annotfanari" . "_ΦΑΝΑΡΙ ΚΥΚΛΟΦΟΡΙΑΣ")
("ARI_KAN" . "Κάνναβος_Συντ")
("grtick" . "Κάνναβος_Σταυρός")
("Annotpinakida" . "_ΠΙΝΑΚΙΔΑ - ΤΑΜΠΕΛΑ")
("Annotshma1" . "_ΣΗΜΑ_ΤΡΙΓ")
("Annotshma2" . "_ΣΗΜΑ_ΣΤΡΟΓ")
("Annotshma3" . "_ΣΗΜΑ_ΕΞΑΓ")
("Annotshma4" . "_ΣΗΜΑ_ΤΕΤΡ")
("AnnotPETRA1" . "_ΠΕΤΡΑ")
("AnnotPETRA2" . "_ΠΕΤΡΑ")
("AnnotPETRA3" . "_ΠΕΤΡΑ")
("AnnotPETRA4" . "_ΠΕΤΡΑ")
("AnnotFANMONO" . "_ΦΑΝΑΡΑΡΑΚΙ ΜΟΝΟ")
("AnnotFANDIPLO" . "_ΦΑΝΑΡΑΡΑΚΙ ΔΙΠΛΟ")
("AnnotFANTRIPLO" . "_ΦΑΝΑΡΑΡΑΚΙ ΤΡΙΠΛΟ")
("AnnotFANMONO2" . "_ΣΤΥΛΟΣ ΦΩΤΙΣΜΟΥ ΜΟΝΟΣ")
("Annotfos1" . "_ΦΩΤΙΣΜΟΣ ΟΔΟΥ")
)
)
'(
( 0 . "INSERT")
(-4 . "<OR")
( 2 . "`*U*")
)
'(
(-4 . "OR>")
)
)
)
)
)
)
)
)
;; Block Name -> Effective Block Name - Lee Mac
;; blk - [str] Block name
(defun LM:name
->effectivename
( blk
/ rep
) '("AcDbBlockRepBTag")
)
)
)
)
)
blk
)
)
;;;;;;;;;; for images
(defun c:LinkLayerImage
(/ *error* acDoc layerName oLayer ss
)
)
)
)
((member msg '
("Function cancelled" "quit / exit abort"))) ; <esc> or (quit) ((princ (strcat "\n** Error: " msg
" ** "))) ; Fatal error, display it )
)
(if (ssget "_X" '
((0 .
"IMAGE") (8 .
"~Image"))) )
;; get or create layer
)
;; set image layer
)
)
)
(*error* nil)
)
;;;;;;;;;; for DIMENSIONS
(defun c:DLDL
(/ sel1 CLAYER
) ;Switch from Layout Tab To Model Tab before stating LISP
(command "_.Tilemode" 1) ; To model space (setq sel1
(ssget "X" '
((0 .
"DIMENSION")))) ; SELECT ALL DIMENSION (setq OLDLAYER
(getvar "CLAYER")) ;GET CURRENT LAYER (COMMAND "_layer" "_m" "DIM" "_c" "10""" "") ;CREATE NEW LAYER (setvar "CLAYER" OLDLAYER
) ; SET ACTIVE LAYER TO PREVIOUS (command "CHPROP" sel1
"" ; CHANGE DIMENSION LAYER TO NEW LAYER "LAYER" "DIM"
"")
(command "_.Tilemode" 0) ;And back to last current layout );END PROGRAM
;;;;;;;;;;for HATCH
(defun c:DLHATCH
(/ sel1 CLAYER
) ;Switch from Layout Tab To Model Tab before stating LISP
(command "_.Tilemode" 1) ; To model space (setq sel1
(ssget "X" '
((0 .
"HATCH")))) ; SELECT ALL HATCH (setq OLDLAYER
(getvar "CLAYER")) ;GET CURRENT LAYER (COMMAND "_layer" "_m" "HATCH" "_c" "155" "" "_lw" "0.18" "" "") ;CREATE NEW LAYER (setvar "CLAYER" OLDLAYER
) ; SET ACTIVE LAYER TO PREVIOUS (command "CHPROP" sel1
"" ; CHANGE HATCH LAYER TO NEW LAYER "LAYER" "HATCH"
"")
(command "_.Tilemode" 0) ;And back to last current layout
(setq sel1
(ssget "X" '
((0 .
"HATCH")))) ; SELECT ALL HATCH (setq OLDLAYER
(getvar "CLAYER")) ;GET CURRENT LAYER (COMMAND "_layer" "_m" "HATCH" "_c" "155" "" "_lw" "0.18" "" "") ;CREATE NEW LAYER (setvar "CLAYER" OLDLAYER
) ; SET ACTIVE LAYER TO PREVIOUS (command "CHPROP" sel1
"" ; CHANGE HATCH LAYER TO NEW LAYER "LAYER" "HATCH"
"")
);END PROGRAM
;;;;;;;;;; for VIEPORTS
(defun c:LV
( / idx lay obj sel
)
(setq lay
"VIEWPORT") ;; Viewport Layer
'(000 . "LAYER")
'(100 . "AcDbSymbolTableRecord")
'(100 . "AcDbLayerTableRecord")
'(070 . 0)
)
)
)
)
)
)
)
)
;load dcl lisp
; must match the list order
(if (not AH:Toggs
)(load "Multiple toggles.lsp"))) (setq ans
(ah:toggs '
("Tick off/on " "Blocks" "Dimension" "Hatch" "Images" "Viewports")))
(if (= (nth 0 ans
) 1) (c:LinkLayerBlock
)) ; Blocks (if (= (nth 1 ans
) 1) (c:DLDL
)) ;dimension (if (= (nth 2 ans
) 1) (c:DLHATCH
)) ;hatch (if (= (nth 3 ans
) 1) (c:LinkLayerImage
)) ;Images (if (= (nth 4 ans
) 1) (c:LV
)) ;Viewports )