├── LayFooting.lsp ├── LayOutColumnGrid.lsp ├── LayOutColumnX.lsp ├── LayOutColumnXIrr.lsp ├── LayOutColumnY.lsp ├── LayOutColumnYIrr.lsp ├── LayWall.lsp └── TotalLengthOnLayer.lsp /LayFooting.lsp: -------------------------------------------------------------------------------- 1 | (defun C:LAYFooting( / Sol_th PCC_th footX Origin Origin_X Origin_Y S_P1 P_P0 P_P1 rect trap f_Proj colX slpX P_f1 P_f2 P_f3 P_f4 P_f5 P_f6 P_f7 P_f8 TBeamY Col_Below Col_Above TotalCol P_C2 P_C3 P_C4 P_TB1 P_TB2 2 | Sol_Hatch PCC_Hatch P_TxtPCC P_TxtSol P_Title P_TBm Extline1 Extline2 GL_Lvl P_GL1 P_GL2 P_TxtGL distDim osm offorigin Arrowsize TxtHt Dec Gap TxtVerPos 3 | DmToh DmTih) 4 | ;This autoLisp program is written by Ajay Yadav (AY) and named as L-AY-Footing i.e. LAYFooting. 5 | ;Download from https://github.com/ajayyadavay/AutocadAutoLisp 6 | ;Choose origin of footing 7 | ;Enter depth of rectangular and trapezoidal footing then enter length of column below and above tie beam. 8 | 9 | ;(setq Sol_th 125 PCC_th 75) 10 | (setq footX (getint "Enter width of footing mm:")) 11 | (setq Sol_th (getint "Enter thickness of Soling mm:")) 12 | (setq PCC_th (getint "Enter thickness of PCC mm:")) 13 | (setq Origin (getpoint "Choose Origin:")) 14 | (setq Origin_X (car Origin)) 15 | (setq Origin_Y (car (cdr Origin))) 16 | 17 | (setq osm (getvar "osmode")) 18 | (setvar "osmode" 0) 19 | 20 | (setq S_P1 (list (+ Origin_X footX) (+ Origin_Y Sol_th))) 21 | (command "-layer" "m" "Soling" "c" "t" "207,37,233" "Soling" "") 22 | (command "rectangle" Origin S_P1) 23 | (setq P_P0 (list Origin_X (+ Origin_Y Sol_th))) 24 | (setq P_P1 (list (+ Origin_X footX) (+ Origin_Y PCC_th Sol_th))) 25 | 26 | (command "-layer" "m" "Footing" "c" "t" "23,23,232" "Footing" "") 27 | (setq rect (getint "Enter thickness of rect footing mm:") trap (getint "Enter thickness of trapez footing mm:")) 28 | (princ) 29 | (setq f_Proj 100 colX 230) 30 | (setq slpX (/ (- footX (+ colX (* 2 f_Proj))) 2)) 31 | (setq P_f1 (list (+ Origin_X slpX f_Proj) (+ Origin_Y Sol_th PCC_th rect trap))) 32 | (setq P_f2 (list (- (car P_f1) f_Proj) (car (cdr P_f1)))) 33 | (setq P_f3 (list (- (car P_f2) slpX) (- (car (cdr P_f2)) trap))) 34 | (setq P_f4 (list (+ (car P_f3) 0) (- (car (cdr P_f3)) rect))) 35 | (setq P_f5 (list (+ (car P_f4) footX) (+ (car (cdr P_f4)) 0))) 36 | (setq P_f6 (list (+ (car P_f5) 0) (+ (car (cdr P_f5)) rect))) 37 | (setq P_f7 (list (- (car P_f6) slpX) (+ (car (cdr P_f6)) trap))) 38 | (setq P_f8 (list (- (car P_f7) f_Proj) (+ (car (cdr P_f7)) 0))) 39 | (command "line" P_f1 P_f2 P_f3 P_f4 P_f5 P_f6 P_f7 P_f8 "") 40 | (command "-layer" "m" "PCC" "c" "t" "34,247,247" "PCC" "") 41 | (command "rectangle" P_P0 P_P1) 42 | (setq TBeamY 230) 43 | (setq Col_Below (getint "Enter height of column below tie beam mm:")) 44 | (command "-layer" "m" "TBeam" "c" "t" "66,241,50" "TBeam" "") 45 | (setq P_TB1 (list (+ (car P_f1) 0) (+ (car (cdr P_f1)) Col_Below))) 46 | (setq P_TB2 (list (+ (car P_TB1) colX) (+ (car (cdr P_TB1)) TBeamY))) 47 | (command "rectangle" P_TB1 P_TB2) 48 | (setq Col_Above (getint "Enter height of column above tie beam mm:")) 49 | (setq TotalCol (+ Col_Below Col_Above TbeamY)) 50 | (command "-layer" "m" "Column" "c" "t" "255,0,0" "Column" "") 51 | (setq P_C2 (list (+ (car P_f1) 0) (+ (car (cdr P_f1)) TotalCol))) 52 | (setq P_C3 (list (+ (car P_C2) colX) (+ (car (cdr P_C2)) 0))) 53 | (setq P_C4 (list (+ (car P_C3) 0) (- (car (cdr P_C3)) TotalCol))) 54 | (command "line" P_f1 P_C2 P_C3 P_C4 "") 55 | ;dimension 56 | 57 | (setq offorigin (getvar "dimexo")) 58 | (setq Arrowsize (getvar "dimasz")) 59 | (setq TxtHt (getvar "dimtxt")) 60 | (setq Dec (getvar "dimdec")) 61 | (setq Gap (getvar "dimgap")) 62 | ;(setq TxtVerPos (getvar "dimtad")) 63 | (setq Extline1 (getvar "dimse1")) 64 | (setq Extline2 (getvar "dimse2")) 65 | (setq DmToh (getvar "dimtih")) 66 | (setq DmTih (getvar "dimtoh")) 67 | (setvar "dimexo" 150) 68 | (setvar "dimasz" 80) 69 | (setvar "dimtxt" 80) 70 | (setvar "dimdec" 0) 71 | (setvar "dimgap" 50) 72 | ;(setvar "dimtad" 2) 73 | (setvar "dimse1" 1) 74 | (setvar "dimse2" 1) 75 | (setvar "dimtih" 0) 76 | (setvar "dimtoh" 0) 77 | 78 | (command "-layer" "m" "Dimension" "c" "t" "249,245,6" "Dimension" "") 79 | (setq distDim (+ slpX f_Proj 200)) 80 | (command "dimaligned" P_C2 (list (car P_TB1) (car (cdr P_TB2))) (list(-(car P_C2) distDim) (+(cadr P_C2) 0)));column above tie beam 81 | (command "dimaligned" P_TB1 P_f1 (list(-(car P_TB1) distDim) (+(cadr P_TB1) 0)));column below tie beam 82 | (command "dimaligned" P_f3 (list (car P_f3) (car (cdr P_f2))) (list(-(car P_f3) distDim) (+(cadr P_f3) 0)));trap 83 | (command "dimaligned" P_f4 P_f3 (list(-(car P_f3) (- distDim 220)) (+(cadr P_f3) 0)));rect 84 | (command "dimaligned" P_C2 P_C3 (list(+(car P_C3) 0) (+(cadr P_C3) 200)));col 85 | (command "dimaligned" Origin (list (car S_P1) (car (cdr Origin))) (list(+(car Origin) 0) (-(cadr Origin) 200)));footing 86 | 87 | (command "-layer" "m" "Text" "c" "t" "237,102,18" "Text" "") 88 | 89 | (setq P_TBm (list (+ (car P_TB2) 150) (- (car (cdr P_TB2)) (/ TBeamY 2)))) 90 | (command "_.Text" "_Style" "standard" "_Justify" "Left" P_TBm 60 0 "Tie Beam") 91 | 92 | (setq P_TxtPCC (list (+ (car S_P1) 220) (+ (car (cdr S_P1)) (/ 0 2)))) 93 | (command "_.Text" "_Style" "standard" "_Justify" "Left" P_TxtPCC 60 0 (strcat "PCC " (itoa PCC_th) "mm")) 94 | 95 | (setq P_TxtSol (list (+ (car S_P1) 220) (- (car (cdr S_P1)) (/ Sol_th 1)))) 96 | (command "_.Text" "_Style" "standard" "_Justify" "Left" P_TxtSol 60 0 (strcat "Soling " (itoa Sol_th) "mm")) 97 | 98 | (setq P_Title (list (+ (car Origin) (/ footX 2)) (- (car (cdr Origin)) 350))) 99 | (command "_.Text" "_Style" "standard" "_Justify" "MC" P_Title 150 0 "Section of Footing") 100 | 101 | (command "-layer" "m" "GL" "c" "t" "39,149,252" "GL" "") 102 | (setq GL_Lvl (getint "Enter Depth of Excavation mm:")) 103 | (setq P_GL1 (list (+ (car P_TB2) 0) (+ (car (cdr Origin)) GL_Lvl))) 104 | (setq P_GL2 (list (+ (car P_TB2) distDim) (+ (car (cdr Origin)) GL_Lvl))) 105 | (command "line" P_GL1 P_GL2 "") 106 | 107 | (command "-layer" "m" "Dimension" "c" "t" "249,245,6" "Dimension" "") 108 | (command "dimaligned" P_GL2 (list (car P_GL2) (car (cdr Origin))) (list(+(car P_GL2) 0) (+(cadr P_GL2) 0)));GL 109 | 110 | (command "-layer" "m" "Text" "c" "t" "237,102,18" "Text" "") 111 | (setq P_TxtGL (list (+ (car P_GL2) (/ 0 2)) (+ (car (cdr P_GL2)) 50))) 112 | (command "_.Text" "_Style" "standard" "_Justify" "MC" P_TxtGL 60 0 "GL") 113 | 114 | (command "-layer" "m" "PCC" "c" "t" "34,247,247" "PCC" "") 115 | (setq PCC_Hatch (list (+ (car P_P0) (/ footX 2)) (+ (car (cdr P_P0)) (/ PCC_th 2)))) 116 | (command "-Hatch" "Properties" "AR-CONC" "10" "0" PCC_Hatch "") 117 | 118 | (command "-layer" "m" "Soling" "c" "t" "207,37,233" "Soling" "") 119 | (setq Sol_Hatch (list (+ (car Origin) (/ footX 2)) (+ (car (cdr Origin)) (/ Sol_th 2)))) 120 | (command "-Hatch" "Properties" "GRAVEL" "100" "0" Sol_Hatch "") 121 | 122 | 123 | 124 | (setvar "dimexo" offorigin) 125 | (setvar "dimasz" Arrowsize) 126 | (setvar "dimtxt" TxtHt) 127 | (setvar "dimdec" Dec) 128 | (setvar "dimgap" Gap) 129 | ;(setvar "dimtad" TxtVerPos) 130 | (setvar "dimse1" Extline1) 131 | (setvar "dimse2" Extline2) 132 | (setvar "osmode" osm) 133 | (setvar "dimtoh" DmToh) 134 | (setvar "dimtih" DmTih) 135 | 136 | (gc) 137 | (princ) 138 | ) -------------------------------------------------------------------------------- /LayOutColumnGrid.lsp: -------------------------------------------------------------------------------- 1 | (defun C:LAYOutColumnGrid( / i j osm Origin Origin_X Origin_Y ColSizeX ColSizeY P_G1 PG2 P_D1 PD2 2 | GridRows GridColumns LstRows LstColumns CoordLstRows CoordLstColumns EqInterval offorigin Arrowsize TxtHt Dec Gap Extline1 Extline2 distDim Out_In 3 | DmToh DmTih) 4 | ;This autoLisp program is written by Ajay Yadav (AY) and named as L-AY-OutColumnGrid i.e. LAYOutColumnGrid. 5 | ;Download from https://github.com/ajayyadavay/AutocadAutoLisp 6 | ;Choose origin 7 | ;Enter interval of grid in x and y axis 8 | 9 | ;(setq ColSizeX 0.23 ColSizeY 0.23) 10 | (setq ColSizeX (getreal "\nEnter Column size in X direction: " )); ColumnsizeX 11 | (setq ColSizeY (getreal "\nEnter Column size in Y direction: " )); ColumnsizeY 12 | 13 | (setq Origin (getpoint "\nChoose Origin:")) 14 | (setq Origin_X (car Origin)) 15 | (setq Origin_Y (car (cdr Origin))) 16 | (setq LstRows (append LstRows (list Origin_Y))) 17 | (setq LstColumns (append LstColumns (list Origin_X))) 18 | 19 | (setq osm (getvar "osmode")) 20 | (setvar "osmode" 0) 21 | 22 | ;input data of interval between grids 23 | (setq GridRows (getint "\nEnter no. of grid in rows (in X Dir):")); X-axis gridlines 24 | (setq GridColumns (getint "\nEnter no. of grid in columns (in Y Dir):")); Y-axis gridlines 25 | 26 | (setq i 0) 27 | (repeat (- GridRows 1) 28 | (setq i (+ i 1)) 29 | (setq EqInterval (getreal (strcat "\nEnter interval of GridRows " (itoa i) " : "))); Gridline Row interval 30 | (setq LstRows (append LstRows (list EqInterval))) 31 | ) 32 | ;LstRows contains list in string data type 33 | ;(princ LstRows) 34 | 35 | (setq j 0) 36 | (repeat (- GridColumns 1) 37 | 38 | (setq j (+ j 1)) 39 | 40 | (setq EqInterval (getreal (strcat "\nEnter interval of GridColumns " (itoa j) " : "))); Gridline Column interval 41 | (setq LstColumns (append LstColumns (list EqInterval))) 42 | 43 | ) 44 | ;LstColumns contains list in string data type 45 | ;(princ LstColumns) 46 | ;end input data 47 | 48 | ;Create center to center coordinates 49 | ;CoordLstRows contains list in real data type 50 | (setq CoordLstRows (append CoordLstRows (list (nth 0 LstRows)))) 51 | (setq i 0) 52 | (repeat (- GridRows 1) 53 | (setq i (+ i 1)) 54 | (setq CoordLstRows (append CoordLstRows (list(+ (nth (- i 1) CoordLstRows) (nth i LstRows))))) 55 | ) 56 | 57 | ;CoordLstColumns contains list in real data type 58 | (setq CoordLstColumns (append CoordLstColumns (list (nth 0 LstColumns)))) 59 | (setq i 0) 60 | (repeat (- GridColumns 1) 61 | (setq i (+ i 1)) 62 | (setq CoordLstColumns (append CoordLstColumns (list(+ (nth (- i 1) CoordLstColumns) (nth i LstColumns))))) 63 | ) 64 | ;end coordinates 65 | 66 | ;dimension 67 | 68 | (setq offorigin (getvar "dimexo")) 69 | (setq Arrowsize (getvar "dimasz")) 70 | (setq TxtHt (getvar "dimtxt")) 71 | (setq Dec (getvar "dimdec")) 72 | (setq Gap (getvar "dimgap")) 73 | (setq Extline1 (getvar "dimse1")) 74 | (setq Extline2 (getvar "dimse2")) 75 | (setvar "dimexo" 0.15) 76 | (setvar "dimasz" 0.4) 77 | (setvar "dimtxt" 0.3) 78 | (setvar "dimdec" 3) 79 | (setvar "dimgap" 0.25) 80 | (setvar "dimse1" 1) 81 | (setvar "dimse2" 1) 82 | (setvar "dimtih" 0) 83 | (setvar "dimtoh" 0) 84 | 85 | 86 | ;Draw Grid lines along X direction 87 | (setq i -1) 88 | (repeat (+ GridRows 0) 89 | (setq i (+ i 1)) 90 | (setq j -1) 91 | (repeat (- GridColumns 1) 92 | 93 | (setq j (+ j 1)) 94 | 95 | (setq P_G1 (list (+ (nth j CoordLstColumns) 0) (+ (nth i CoordLstRows) 0))) 96 | (setq P_G2 (list (+ (nth (+ j 1) CoordLstColumns) 0) (+ (nth (+ i 0) CoordLstRows) 0) )) 97 | (command "-layer" "m" "Grindline" "c" "t" "34,247,247" "Grindline" "") 98 | (command "line" P_G1 P_G2 "") 99 | ;column 100 | (command "-layer" "m" "Column" "c" "t" "255,0,0" "Column" "") 101 | (setq P_D1 (list (- (car P_G1) (/ ColSizeX 2)) (- (car (cdr P_G1)) (/ ColSizeY 2)))) 102 | (setq P_D2 (list (+ (car P_G1) (/ ColSizeX 2)) (+ (car (cdr P_G1)) (/ ColSizeY 2)))) 103 | (command "rectangle" P_D1 P_D2) 104 | 105 | 106 | ) 107 | ;column 108 | (command "-layer" "m" "Column" "c" "t" "255,0,0" "Column" "") 109 | (setq P_D1 (list (- (car P_G2) (/ ColSizeX 2)) (- (car (cdr P_G2)) (/ ColSizeY 2)))) 110 | (setq P_D2 (list (+ (car P_G2) (/ ColSizeX 2)) (+ (car (cdr P_G2)) (/ ColSizeY 2)))) 111 | (command "rectangle" P_D1 P_D2) 112 | ) 113 | 114 | ;End drawing grid lines along X direction 115 | 116 | ;dimension along X direction bottom 117 | (repeat 1 118 | (setq i 0) 119 | (setq j -1) 120 | (repeat (- GridColumns 1) 121 | 122 | (setq j (+ j 1)) 123 | 124 | (setq P_G1 (list (+ (nth j CoordLstColumns) 0) (+ (nth i CoordLstRows) 0))) 125 | (setq P_G2 (list (+ (nth (+ j 1) CoordLstColumns) 0) (+ (nth (+ i 0) CoordLstRows) 0) )) 126 | 127 | (command "-layer" "m" "Dimension" "c" "t" "249,245,6" "Dimension" "") 128 | (setq distDim (+ ColSizeY 0.5) Out_In -1) 129 | (command "dimaligned" P_G1 P_G2 (list(+(car P_G1) 0) (+ (cadr P_G1) (* Out_In distDim))));center to center distance 130 | ) 131 | ) 132 | ;End dimension along X direction bottom 133 | 134 | 135 | ;dimension along X direction Top 136 | (repeat 1 137 | (setq i (- GridRows 1)) 138 | (setq j -1) 139 | (repeat (- GridColumns 1) 140 | 141 | (setq j (+ j 1)) 142 | 143 | (setq P_G1 (list (+ (nth j CoordLstColumns) 0) (+ (nth i CoordLstRows) 0))) 144 | (setq P_G2 (list (+ (nth (+ j 1) CoordLstColumns) 0) (+ (nth (+ i 0) CoordLstRows) 0) )) 145 | 146 | (command "-layer" "m" "Dimension" "c" "t" "249,245,6" "Dimension" "") 147 | (setq distDim (+ ColSizeY 0.5) Out_In 1) 148 | (command "dimaligned" P_G1 P_G2 (list(+(car P_G1) 0) (+ (cadr P_G1) (* Out_In distDim))));center to center distance 149 | ) 150 | ) 151 | ;End dimension along X direction Top 152 | 153 | 154 | ;Draw Grid lines along Y direction 155 | (setq i -1) 156 | (repeat (+ GridColumns 0) 157 | (setq i (+ i 1)) 158 | (setq j -1) 159 | (repeat (- GridRows 1) 160 | 161 | (setq j (+ j 1)) 162 | 163 | (setq P_G1 (list (+ (nth i CoordLstColumns) 0) (+ (nth j CoordLstRows) 0))) 164 | (setq P_G2 (list (+ (nth (+ i 0) CoordLstColumns) 0) (+ (nth (+ j 1) CoordLstRows) 0) )) 165 | (command "-layer" "m" "Grindline" "c" "t" "34,247,247" "Grindline" "") 166 | (command "line" P_G1 P_G2 "") 167 | 168 | ) 169 | ) 170 | ;End drawing grid lines along Y direction 171 | 172 | 173 | ;dimension along Y direction Left 174 | (setq i -1) 175 | (repeat 1 176 | (setq i (+ i 1)) 177 | (setq j -1) 178 | (repeat (- GridRows 1) 179 | 180 | (setq j (+ j 1)) 181 | 182 | (setq P_G1 (list (+ (nth i CoordLstColumns) 0) (+ (nth j CoordLstRows) 0))) 183 | (setq P_G2 (list (+ (nth (+ i 0) CoordLstColumns) 0) (+ (nth (+ j 1) CoordLstRows) 0) )) 184 | 185 | (command "-layer" "m" "Dimension" "c" "t" "249,245,6" "Dimension" "") 186 | (setq distDim (+ ColSizeX 0.5) Out_In -1) 187 | (command "dimaligned" P_G1 P_G2 (list(+(car P_G1) (* Out_In distDim)) (+ (cadr P_G1) 0)));center to center distance 188 | ) 189 | ) 190 | ;End dimension along Y direction Left 191 | 192 | 193 | ;dimension along Y direction Right 194 | ;(setq i -1) 195 | (repeat 1 196 | (setq i (- GridColumns 1)) 197 | (setq j -1) 198 | (repeat (- GridRows 1) 199 | 200 | (setq j (+ j 1)) 201 | 202 | (setq P_G1 (list (+ (nth i CoordLstColumns) 0) (+ (nth j CoordLstRows) 0))) 203 | (setq P_G2 (list (+ (nth (+ i 0) CoordLstColumns) 0) (+ (nth (+ j 1) CoordLstRows) 0) )) 204 | 205 | (command "-layer" "m" "Dimension" "c" "t" "249,245,6" "Dimension" "") 206 | (setq distDim (+ ColSizeX 0.5) Out_In 1) 207 | (command "dimaligned" P_G1 P_G2 (list(+(car P_G1) (* Out_In distDim)) (+ (cadr P_G1) 0)));center to center distance 208 | ) 209 | ) 210 | ;End dimension along Y direction Right 211 | 212 | ;Reset values 213 | (setvar "dimexo" offorigin) 214 | (setvar "dimasz" Arrowsize) 215 | (setvar "dimtxt" TxtHt) 216 | (setvar "dimdec" Dec) 217 | (setvar "dimgap" Gap) 218 | (setvar "dimse1" Extline1) 219 | (setvar "dimse2" Extline2) 220 | (setvar "osmode" osm) 221 | (setvar "dimtoh" DmToh) 222 | (setvar "dimtih" DmTih) 223 | (gc) 224 | (princ) 225 | ) -------------------------------------------------------------------------------- /LayOutColumnX.lsp: -------------------------------------------------------------------------------- 1 | (defun C:LAYOutColumnX( / osm C2C Origin Origin_X Origin_Y End End_X End_Y ColSizeX ColSizeY P_C0 P_C1 P_C00 P_C11 P_C0_i P_C1_i P_C0_c 2 | ColIntr EqInterval temp_Origin offorigin Arrowsize TxtHt Dec Gap Extline1 Extline2 distDim P_Txt1 Txt1 Out_In 3 | DmToh DmTih) 4 | ;This autoLisp program is written by Ajay Yadav (AY) and named as L-AY-OutColumn i.e. LAYOutColumn. 5 | ;Download from https://github.com/ajayyadavay/AutocadAutoLisp 6 | ;Choose origin of wall 7 | ;Enter length of wall below and above tie beam. 8 | 9 | (setq ColSizeX 0.23 ColSizeY 0.23) 10 | 11 | (setq Origin (getpoint "\nChoose Origin:")) 12 | (setq Origin_X (car Origin)) 13 | (setq Origin_Y (car (cdr Origin))) 14 | 15 | (setq C2C (getreal "\nEnter Center to Center distance m:")) 16 | (setq End (list (+ Origin_X C2C) (+ Origin_Y 0))) 17 | (setq End_X (car End)) 18 | (setq End_Y (car (cdr End))) 19 | 20 | (setq osm (getvar "osmode")) 21 | (setvar "osmode" 0) 22 | 23 | (command "-layer" "m" "Centerline" "c" "t" "207,37,233" "Centerline" "") 24 | (command "line" Origin End "");Centerline 25 | 26 | (command "-layer" "m" "Column" "c" "t" "255,0,0" "Column" "") 27 | (setq P_C0 (list (- Origin_X (/ ColSizeX 2)) (- Origin_Y (/ ColSizeY 2)))) 28 | (setq P_C1 (list (+ Origin_X (/ ColSizeX 2)) (+ Origin_Y (/ ColSizeY 2)))) 29 | (command "rectangle" P_C0 P_C1) 30 | 31 | (setq P_C00 (list (- End_X (/ ColSizeX 2)) (- End_Y (/ ColSizeY 2)))) 32 | (setq P_C11 (list (+ End_X (/ ColSizeX 2)) (+ End_Y (/ ColSizeY 2)))) 33 | (command "rectangle" P_C00 P_C11) 34 | 35 | (setq ColIntr (getint "\nEnter no. of interior columns:")); interior column number 36 | (setq EqInterval (/ C2C (+ ColIntr 1))) 37 | 38 | (setq temp_Origin Origin) 39 | (repeat ColIntr 40 | (setq P_C0_c (list (+ (car temp_Origin) EqInterval) (+ (car (cdr temp_Origin)) 0))) 41 | 42 | (setq P_C0_i (list (- (car P_C0_c) (/ ColSizeX 2)) (- (car (cdr P_C0_c)) (/ ColSizeY 2)))) 43 | (setq P_C1_i (list (+ (car P_C0_c) (/ ColSizeX 2)) (+ (car (cdr P_C0_c)) (/ ColSizeY 2)))) 44 | (command "rectangle" P_C0_i P_C1_i) 45 | 46 | (setq temp_Origin P_C0_c) 47 | ) 48 | 49 | ;dimension 50 | 51 | (setq offorigin (getvar "dimexo")) 52 | (setq Arrowsize (getvar "dimasz")) 53 | (setq TxtHt (getvar "dimtxt")) 54 | (setq Dec (getvar "dimdec")) 55 | (setq Gap (getvar "dimgap")) 56 | (setq Extline1 (getvar "dimse1")) 57 | (setq Extline2 (getvar "dimse2")) 58 | (setvar "dimexo" 0.15) 59 | (setvar "dimasz" 0.8) 60 | (setvar "dimtxt" 0.6) 61 | (setvar "dimdec" 3) 62 | (setvar "dimgap" 0.5) 63 | (setvar "dimse1" 1) 64 | (setvar "dimse2" 1) 65 | (setvar "dimtih" 0) 66 | (setvar "dimtoh" 0) 67 | 68 | (command "-layer" "m" "Dimension" "c" "t" "249,245,6" "Dimension" "") 69 | (setq distDim (+ ColSizeY 0.5)) 70 | (setq Out_In (getint "\nEnter 1 for above and -1 for below text:")); Above = 1 and Below = -1 71 | (command "dimaligned" Origin End (list(+(car Origin) 0) (+ (cadr Origin) (* Out_In distDim))));center to center distance 72 | 73 | ;text 74 | (command "-layer" "m" "Text" "c" "t" "237,102,18" "Text" "") 75 | 76 | (setq P_Txt1 (list(/ (+(car Origin) (car End)) 2) (+ (cadr Origin) (* Out_In (+ distDim 1))))) 77 | (setq Txt1 (strcat (itoa ColIntr) " nos. of interior column @ " (rtos EqInterval 2 3) " m c/c")) 78 | (command "_.Text" "_Style" "standard" "_Justify" "MC" P_Txt1 0.6 0 Txt1) 79 | 80 | ;Reset values 81 | (setvar "dimexo" offorigin) 82 | (setvar "dimasz" Arrowsize) 83 | (setvar "dimtxt" TxtHt) 84 | (setvar "dimdec" Dec) 85 | (setvar "dimgap" Gap) 86 | (setvar "dimse1" Extline1) 87 | (setvar "dimse2" Extline2) 88 | (setvar "osmode" osm) 89 | (setvar "dimtoh" DmToh) 90 | (setvar "dimtih" DmTih) 91 | (gc) 92 | (princ osm) 93 | ) -------------------------------------------------------------------------------- /LayOutColumnXIrr.lsp: -------------------------------------------------------------------------------- 1 | (defun C:LAYOutColumnXIrr( / osm C2C Origin Origin_X Origin_Y End End_X End_Y ColSizeX ColSizeY P_C0 P_C1 P_C00 P_C11 P_C0_i P_C1_i P_C0_c 2 | ColIntr EqInterval temp_Origin offorigin Arrowsize TxtHt Dec Gap Extline1 Extline2 distDim P_Txt1 Txt1 Out_In 3 | DmToh DmTih) 4 | ;This autoLisp program is written by Ajay Yadav (AY) and named as L-AY-OutColumn i.e. LAYOutColumn. 5 | ;Download from https://github.com/ajayyadavay/AutocadAutoLisp 6 | ;Choose origin of wall 7 | ;Enter length of wall below and above tie beam. 8 | 9 | (setq ColSizeX 0.23 ColSizeY 0.23) 10 | 11 | (setq Origin (getpoint "\nChoose Origin:")) 12 | (setq Origin_X (car Origin)) 13 | (setq Origin_Y (car (cdr Origin))) 14 | 15 | (setq C2C (getreal "\nEnter Center to Center distance m:")) 16 | (setq End (list (+ Origin_X C2C) (+ Origin_Y 0))) 17 | (setq End_X (car End)) 18 | (setq End_Y (car (cdr End))) 19 | 20 | (setq osm (getvar "osmode")) 21 | (setvar "osmode" 0) 22 | 23 | (command "-layer" "m" "Centerline" "c" "t" "207,37,233" "Centerline" "") 24 | (command "line" Origin End "");Centerline 25 | 26 | (command "-layer" "m" "Column" "c" "t" "255,0,0" "Column" "") 27 | (setq P_C0 (list (- Origin_X (/ ColSizeX 2)) (- Origin_Y (/ ColSizeY 2)))) 28 | (setq P_C1 (list (+ Origin_X (/ ColSizeX 2)) (+ Origin_Y (/ ColSizeY 2)))) 29 | (command "rectangle" P_C0 P_C1) 30 | 31 | (setq P_C00 (list (- End_X (/ ColSizeX 2)) (- End_Y (/ ColSizeY 2)))) 32 | (setq P_C11 (list (+ End_X (/ ColSizeX 2)) (+ End_Y (/ ColSizeY 2)))) 33 | (command "rectangle" P_C00 P_C11) 34 | 35 | (setq ColIntr (getint "\nEnter no. of interior columns:")); interior column number 36 | ;(setq EqInterval (/ C2C (+ ColIntr 1))) 37 | 38 | 39 | (setq Out_In (getint "\nEnter 1 for above and -1 for below text:")); Above = 1 and Below = -1 40 | 41 | (setq offorigin (getvar "dimexo")) 42 | (setq Arrowsize (getvar "dimasz")) 43 | (setq TxtHt (getvar "dimtxt")) 44 | (setq Dec (getvar "dimdec")) 45 | (setq Gap (getvar "dimgap")) 46 | (setq Extline1 (getvar "dimse1")) 47 | (setq Extline2 (getvar "dimse2")) 48 | (setvar "dimexo" 0.15) 49 | (setvar "dimasz" 0.8) 50 | (setvar "dimtxt" 0.6) 51 | (setvar "dimdec" 3) 52 | (setvar "dimgap" 0.5) 53 | (setvar "dimse1" 1) 54 | (setvar "dimse2" 1) 55 | (setvar "dimtih" 0) 56 | (setvar "dimtoh" 0) 57 | 58 | (setq temp_Origin Origin) 59 | (setq i 0) 60 | (repeat ColIntr 61 | (setq i (+ i 1)) 62 | 63 | (setq EqInterval (getreal (strcat "\nEnter interval of interior column " (itoa i)))); interior column number 64 | 65 | (setq P_C0_c (list (+ (car temp_Origin) EqInterval) (+ (car (cdr temp_Origin)) 0))) 66 | ;column 67 | (command "-layer" "m" "Column" "c" "t" "255,0,0" "Column" "") 68 | (setq P_C0_i (list (- (car P_C0_c) (/ ColSizeX 2)) (- (car (cdr P_C0_c)) (/ ColSizeY 2)))) 69 | (setq P_C1_i (list (+ (car P_C0_c) (/ ColSizeX 2)) (+ (car (cdr P_C0_c)) (/ ColSizeY 2)))) 70 | (command "rectangle" P_C0_i P_C1_i) 71 | ;dimension 72 | (command "-layer" "m" "Dimension" "c" "t" "249,245,6" "Dimension" "") 73 | (setq distDim (+ ColSizeY 0.5)) 74 | (command "dimaligned" temp_Origin P_C0_c (list(+(car temp_Origin) 0) (+ (cadr temp_Origin) (* Out_In distDim))));center to center distance 75 | 76 | (setq temp_Origin P_C0_c) 77 | ) 78 | 79 | ;dimension 80 | 81 | (command "-layer" "m" "Dimension" "c" "t" "249,245,6" "Dimension" "") 82 | (command "dimaligned" temp_Origin End (list(+(car temp_Origin) 0) (+ (cadr temp_Origin) (* Out_In distDim))));center to center distance 83 | (command "dimaligned" Origin End (list(+(car Origin) 0) (+ (cadr Origin) (* Out_In (+ distDim 0.7)))));center to center distance orign to end 84 | 85 | ;text 86 | ;(command "-layer" "m" "Text" "c" "t" "237,102,18" "Text" "") 87 | 88 | ;(setq P_Txt1 (list(/ (+(car Origin) (car End)) 2) (+ (cadr Origin) (* Out_In (+ distDim 1))))) 89 | ;(setq Txt1 (strcat (itoa ColIntr) " nos. of interior column @ " (rtos EqInterval 2 3) " m c/c")) 90 | ;(command "_.Text" "_Style" "standard" "_Justify" "MC" P_Txt1 0.6 0 Txt1) 91 | 92 | ;Reset values 93 | (setvar "dimexo" offorigin) 94 | (setvar "dimasz" Arrowsize) 95 | (setvar "dimtxt" TxtHt) 96 | (setvar "dimdec" Dec) 97 | (setvar "dimgap" Gap) 98 | (setvar "dimse1" Extline1) 99 | (setvar "dimse2" Extline2) 100 | (setvar "osmode" osm) 101 | (setvar "dimtoh" DmToh) 102 | (setvar "dimtih" DmTih) 103 | (gc) 104 | (princ) 105 | ) -------------------------------------------------------------------------------- /LayOutColumnY.lsp: -------------------------------------------------------------------------------- 1 | (defun C:LAYOutColumnY( / osm C2C Origin Origin_X Origin_Y End End_X End_Y ColSizeX ColSizeY P_C0 P_C1 P_C00 P_C11 P_C0_i P_C1_i P_C0_c 2 | ColIntr EqInterval temp_Origin offorigin Arrowsize TxtHt Dec Gap Extline1 Extline2 distDim P_Txt1 Txt1 Out_In 3 | DmToh DmTih) 4 | ;This autoLisp program is written by Ajay Yadav (AY) and named as L-AY-OutColumn i.e. LAYOutColumn. 5 | ;Download from https://github.com/ajayyadavay/AutocadAutoLisp 6 | ;Choose origin of wall 7 | ;Enter length of wall below and above tie beam. 8 | 9 | (setq ColSizeX 0.23 ColSizeY 0.23) 10 | 11 | (setq Origin (getpoint "\nChoose Origin:")) 12 | (setq Origin_X (car Origin)) 13 | (setq Origin_Y (car (cdr Origin))) 14 | 15 | (setq C2C (getreal "\nEnter Center to Center distance m:")) 16 | (setq End (list (+ Origin_X 0) (+ Origin_Y C2C))) 17 | (setq End_X (car End)) 18 | (setq End_Y (car (cdr End))) 19 | 20 | (setq osm (getvar "osmode")) 21 | (setvar "osmode" 0) 22 | 23 | (command "-layer" "m" "Centerline" "c" "t" "207,37,233" "Centerline" "") 24 | (command "line" Origin End "");Centerline 25 | 26 | (command "-layer" "m" "Column" "c" "t" "255,0,0" "Column" "") 27 | (setq P_C0 (list (- Origin_X (/ ColSizeX 2)) (- Origin_Y (/ ColSizeY 2)))) 28 | (setq P_C1 (list (+ Origin_X (/ ColSizeX 2)) (+ Origin_Y (/ ColSizeY 2)))) 29 | (command "rectangle" P_C0 P_C1) 30 | 31 | (setq P_C00 (list (- End_X (/ ColSizeX 2)) (- End_Y (/ ColSizeY 2)))) 32 | (setq P_C11 (list (+ End_X (/ ColSizeX 2)) (+ End_Y (/ ColSizeY 2)))) 33 | (command "rectangle" P_C00 P_C11) 34 | 35 | (setq ColIntr (getint "\nEnter no. of interior columns:")); interior column number 36 | (setq EqInterval (/ C2C (+ ColIntr 1))) 37 | 38 | (setq temp_Origin Origin) 39 | (repeat ColIntr 40 | (setq P_C0_c (list (+ (car temp_Origin) 0) (+ (car (cdr temp_Origin)) EqInterval))) 41 | 42 | (setq P_C0_i (list (- (car P_C0_c) (/ ColSizeX 2)) (- (car (cdr P_C0_c)) (/ ColSizeY 2)))) 43 | (setq P_C1_i (list (+ (car P_C0_c) (/ ColSizeX 2)) (+ (car (cdr P_C0_c)) (/ ColSizeY 2)))) 44 | (command "rectangle" P_C0_i P_C1_i) 45 | 46 | (setq temp_Origin P_C0_c) 47 | ) 48 | 49 | ;dimension 50 | 51 | (setq offorigin (getvar "dimexo")) 52 | (setq Arrowsize (getvar "dimasz")) 53 | (setq TxtHt (getvar "dimtxt")) 54 | (setq Dec (getvar "dimdec")) 55 | (setq Gap (getvar "dimgap")) 56 | (setq Extline1 (getvar "dimse1")) 57 | (setq Extline2 (getvar "dimse2")) 58 | (setvar "dimexo" 0.15) 59 | (setvar "dimasz" 0.8) 60 | (setvar "dimtxt" 0.6) 61 | (setvar "dimdec" 3) 62 | (setvar "dimgap" 0.5) 63 | (setvar "dimse1" 1) 64 | (setvar "dimse2" 1) 65 | (setvar "dimtih" 0) 66 | (setvar "dimtoh" 0) 67 | 68 | (command "-layer" "m" "Dimension" "c" "t" "249,245,6" "Dimension" "") 69 | (setq distDim (+ ColSizeX 0.7)) 70 | (setq Out_In (getint "\nEnter -1 for left and 1 for right text:")); Left = -1 and Right = +1 71 | (command "dimaligned" Origin End (list(+ (car Origin) (* Out_In distDim)) (+(cadr Origin) 0)));center to center distance 72 | 73 | ;Text 74 | (command "-layer" "m" "Text" "c" "t" "237,102,18" "Text" "") 75 | 76 | (setq P_Txt1 (list (+ (car Origin) (* Out_In (+ distDim 1))) (/ (+(cadr Origin) (cadr End)) 2))) 77 | (setq Txt1 (strcat (itoa ColIntr) " nos. of interior column @ " (rtos EqInterval 2 3) " m c/c")) 78 | (command "_.Text" "_Style" "standard" "_Justify" "MC" P_Txt1 0.6 90 Txt1) 79 | 80 | ;Reset values 81 | (setvar "dimexo" offorigin) 82 | (setvar "dimasz" Arrowsize) 83 | (setvar "dimtxt" TxtHt) 84 | (setvar "dimdec" Dec) 85 | (setvar "dimgap" Gap) 86 | (setvar "dimse1" Extline1) 87 | (setvar "dimse2" Extline2) 88 | (setvar "osmode" osm) 89 | (setvar "dimtoh" DmToh) 90 | (setvar "dimtih" DmTih) 91 | (gc) 92 | (princ) 93 | ) -------------------------------------------------------------------------------- /LayOutColumnYIrr.lsp: -------------------------------------------------------------------------------- 1 | (defun C:LAYOutColumnYIrr( / osm C2C Origin Origin_X Origin_Y End End_X End_Y ColSizeX ColSizeY P_C0 P_C1 P_C00 P_C11 P_C0_i P_C1_i P_C0_c 2 | ColIntr EqInterval temp_Origin offorigin Arrowsize TxtHt Dec Gap Extline1 Extline2 distDim P_Txt1 Txt1 Out_In i 3 | DmToh DmTih) 4 | ;This autoLisp program is written by Ajay Yadav (AY) and named as L-AY-OutColumn i.e. LAYOutColumn. 5 | ;Download from https://github.com/ajayyadavay/AutocadAutoLisp 6 | ;Choose origin of wall 7 | ;Enter length of wall below and above tie beam. 8 | 9 | (setq ColSizeX 0.23 ColSizeY 0.23) 10 | 11 | (setq Origin (getpoint "\nChoose Origin:")) 12 | (setq Origin_X (car Origin)) 13 | (setq Origin_Y (car (cdr Origin))) 14 | 15 | (setq C2C (getreal "\nEnter Center to Center distance m:")) 16 | (setq End (list (+ Origin_X 0) (+ Origin_Y C2C))) 17 | (setq End_X (car End)) 18 | (setq End_Y (car (cdr End))) 19 | 20 | (setq osm (getvar "osmode")) 21 | (setvar "osmode" 0) 22 | 23 | (command "-layer" "m" "Centerline" "c" "t" "207,37,233" "Centerline" "") 24 | (command "line" Origin End "");Centerline 25 | 26 | (command "-layer" "m" "Column" "c" "t" "255,0,0" "Column" "") 27 | (setq P_C0 (list (- Origin_X (/ ColSizeX 2)) (- Origin_Y (/ ColSizeY 2)))) 28 | (setq P_C1 (list (+ Origin_X (/ ColSizeX 2)) (+ Origin_Y (/ ColSizeY 2)))) 29 | (command "rectangle" P_C0 P_C1) 30 | 31 | (setq P_C00 (list (- End_X (/ ColSizeX 2)) (- End_Y (/ ColSizeY 2)))) 32 | (setq P_C11 (list (+ End_X (/ ColSizeX 2)) (+ End_Y (/ ColSizeY 2)))) 33 | (command "rectangle" P_C00 P_C11) 34 | 35 | (setq ColIntr (getint "\nEnter no. of interior columns:")); interior column number 36 | ;(setq EqInterval (/ C2C (+ ColIntr 1))) 37 | 38 | (setq Out_In (getint "\nEnter -1 for left and 1 for right text:")); Left = -1 and Right = +1 39 | 40 | (setq offorigin (getvar "dimexo")) 41 | (setq Arrowsize (getvar "dimasz")) 42 | (setq TxtHt (getvar "dimtxt")) 43 | (setq Dec (getvar "dimdec")) 44 | (setq Gap (getvar "dimgap")) 45 | (setq Extline1 (getvar "dimse1")) 46 | (setq Extline2 (getvar "dimse2")) 47 | (setvar "dimexo" 0.15) 48 | (setvar "dimasz" 0.8) 49 | (setvar "dimtxt" 0.6) 50 | (setvar "dimdec" 3) 51 | (setvar "dimgap" 0.5) 52 | (setvar "dimse1" 1) 53 | (setvar "dimse2" 1) 54 | (setvar "dimtih" 0) 55 | (setvar "dimtoh" 0) 56 | 57 | (setq i 0) 58 | 59 | (setq temp_Origin Origin) 60 | (repeat ColIntr 61 | 62 | (setq i (+ i 1)) 63 | (setq EqInterval (getreal (strcat "\nEnter interval of interior column " (itoa i)))); interior column number 64 | 65 | (setq P_C0_c (list (+ (car temp_Origin) 0) (+ (car (cdr temp_Origin)) EqInterval))) 66 | ;column 67 | (command "-layer" "m" "Column" "c" "t" "255,0,0" "Column" "") 68 | (setq P_C0_i (list (- (car P_C0_c) (/ ColSizeX 2)) (- (car (cdr P_C0_c)) (/ ColSizeY 2)))) 69 | (setq P_C1_i (list (+ (car P_C0_c) (/ ColSizeX 2)) (+ (car (cdr P_C0_c)) (/ ColSizeY 2)))) 70 | (command "rectangle" P_C0_i P_C1_i) 71 | 72 | ;dimension 73 | (command "-layer" "m" "Dimension" "c" "t" "249,245,6" "Dimension" "") 74 | (setq distDim (+ ColSizeX 0.7)) 75 | (command "dimaligned" temp_Origin P_C0_c (list(+ (car temp_Origin) (* Out_In distDim)) (+(cadr temp_Origin) 0)));center to center distance 76 | (setq temp_Origin P_C0_c) 77 | ) 78 | 79 | ;dimension 80 | (command "-layer" "m" "Dimension" "c" "t" "249,245,6" "Dimension" "") 81 | ;(setq distDim (+ ColSizeX 0.7)) 82 | ; (setq Out_In (getint "\nEnter -1 for left and 1 for right text:")); Left = -1 and Right = +1 83 | (command "dimaligned" temp_Origin End (list(+ (car temp_Origin) (* Out_In distDim)) (+(cadr temp_Origin) 0)));center to center distance 84 | (command "dimaligned" Origin End (list(+ (car Origin) (* Out_In ( + distDim 0.9))) (+(cadr Origin) 0)));center to center distance 85 | 86 | ;Text 87 | ;(command "-layer" "m" "Text" "c" "t" "237,102,18" "Text" "") 88 | ;(setq P_Txt1 (list (+ (car Origin) (* Out_In (+ distDim 1))) (/ (+(cadr Origin) (cadr End)) 2))) 89 | ;(setq Txt1 (strcat (itoa ColIntr) " nos. of interior column @ " (rtos EqInterval 2 3) " m c/c")) 90 | ;(command "_.Text" "_Style" "standard" "_Justify" "MC" P_Txt1 0.6 90 Txt1) 91 | 92 | ;Reset values 93 | (setvar "dimexo" offorigin) 94 | (setvar "dimasz" Arrowsize) 95 | (setvar "dimtxt" TxtHt) 96 | (setvar "dimdec" Dec) 97 | (setvar "dimgap" Gap) 98 | (setvar "dimse1" Extline1) 99 | (setvar "dimse2" Extline2) 100 | (setvar "osmode" osm) 101 | (setvar "dimtoh" DmToh) 102 | (setvar "dimtih" DmTih) 103 | (gc) 104 | (princ) 105 | ) -------------------------------------------------------------------------------- /LayWall.lsp: -------------------------------------------------------------------------------- 1 | (defun C:LAYWall( / Sol_th PCC_th footX Origin Origin_X Origin_Y S_P1 P_P0 P_P1 slpX P_f1 TBeamY Col_Below Col_Above P_C2 P_C3 P_C4 P_TB1 P_TB2 2 | WallBelowTH WallAboveTH Sol_Hatch PCC_Hatch WA_Hatch WB_Hatch P_TxtPCC P_TxtSol P_Title P_TBm Extline1 Extline2 GL_Lvl P_GL1 P_GL2 P_TxtGL distDim osm offorigin Arrowsize TxtHt Dec Gap TxtVerPos 3 | DmToh DmTih) 4 | ;This autoLisp program is written by Ajay Yadav (AY) and named as L-AY-Wall i.e. LAYWall. 5 | ;Download from https://github.com/ajayyadavay/AutocadAutoLisp 6 | ;Choose origin of wall 7 | ;Enter length of wall below and above tie beam. 8 | 9 | ;(setq Sol_th 125 PCC_th 75) 10 | (setq footX (getint "Enter width of wall footing mm:")) 11 | (setq Sol_th (getint "Enter thickness of wall Soling mm:")) 12 | (setq PCC_th (getint "Enter thickness of wall PCC mm:")) 13 | (setq WallBelowTH 230 WallAboveTH 230) 14 | (setq slpX (/ (- footX WallBelowTH) 2)) 15 | 16 | (setq Origin (getpoint "Choose Origin:")) 17 | (setq Origin_X (car Origin)) 18 | (setq Origin_Y (car (cdr Origin))) 19 | 20 | (setq osm (getvar "osmode")) 21 | (setvar "osmode" 0) 22 | 23 | (setq S_P1 (list (+ Origin_X footX) (+ Origin_Y Sol_th))) 24 | (command "-layer" "m" "Soling" "c" "t" "207,37,233" "Soling" "") 25 | (command "rectangle" Origin S_P1);soling 26 | (setq P_P0 (list Origin_X (+ Origin_Y Sol_th))) 27 | (setq P_P1 (list (+ Origin_X footX) (+ Origin_Y PCC_th Sol_th))) 28 | (command "-layer" "m" "PCC" "c" "t" "34,247,247" "PCC" "") 29 | (command "rectangle" P_P0 P_P1);pcc 30 | (setq P_f1 (list (+ (car P_P0) slpX) (car (cdr P_P1)))) 31 | (setq TBeamY 230) 32 | 33 | (setq Col_Below (getint "Enter height of wall below tie beam mm:")) 34 | (command "-layer" "m" "TBeam" "c" "t" "66,241,50" "TBeam" "") 35 | (setq P_TB1 (list (+ (car P_f1) 0) (+ (car (cdr P_f1)) Col_Below))) 36 | (setq P_TB2 (list (+ (car P_TB1) WallBelowTH) (+ (car (cdr P_TB1)) TBeamY))) 37 | (command "rectangle" P_TB1 P_TB2) 38 | 39 | (setq Col_Above (getint "Enter height of wall above tie beam mm:")) 40 | 41 | (command "-layer" "m" "Wall" "c" "t" "255,0,0" "Wall" "") 42 | (setq P_C2 (list (+ (car P_TB2) 0) (+ (car (cdr P_TB1)) 0))) 43 | (command "rectangle" P_f1 P_C2);wall below tie beam 44 | 45 | (setq P_C3 (list (- (car P_TB2) WallAboveTH) (+ (car (cdr P_TB2)) 0))) 46 | (setq P_C4 (list (+ (car P_TB2) 0) (+ (car (cdr P_TB2)) Col_Above))) 47 | (command "rectangle" P_C3 P_C4);wall above tie beam 48 | 49 | ;dimension 50 | (setq offorigin (getvar "dimexo")) 51 | (setq Arrowsize (getvar "dimasz")) 52 | (setq TxtHt (getvar "dimtxt")) 53 | (setq Dec (getvar "dimdec")) 54 | (setq Gap (getvar "dimgap")) 55 | ;(setq TxtVerPos (getvar "dimtad")) 56 | (setq Extline1 (getvar "dimse1")) 57 | (setq Extline2 (getvar "dimse2")) 58 | (setvar "dimexo" 150) 59 | (setvar "dimasz" 80) 60 | (setvar "dimtxt" 80) 61 | (setvar "dimdec" 0) 62 | (setvar "dimgap" 50) 63 | ;(setvar "dimtad" 2) 64 | (setvar "dimse1" 1) 65 | (setvar "dimse2" 1) 66 | (setvar "dimtih" 0) 67 | (setvar "dimtoh" 0) 68 | 69 | (command "-layer" "m" "Dimension" "c" "t" "249,245,6" "Dimension" "") 70 | (setq distDim (+ slpX 200)) 71 | (command "dimaligned" P_C3 (list (- (car P_C4) WallAboveTH) (car (cdr P_C4))) (list(-(car P_C3) distDim) (+(cadr P_C3) 0)));column above tie beam 72 | (command "dimaligned" P_TB1 P_f1 (list(-(car P_TB1) distDim) (+(cadr P_TB1) 0)));column below tie beam 73 | (command "dimaligned" P_C4 (list (- (car P_C4) WallAboveTH) (car (cdr P_C4))) (list(+(car P_C4) 0) (+(cadr P_C4) 200)));col 74 | (command "dimaligned" Origin (list (car S_P1) (car (cdr Origin))) (list(+(car Origin) 0) (-(cadr Origin) 200)));footing 75 | 76 | ;Text 77 | (command "-layer" "m" "Text" "c" "t" "237,102,18" "Text" "") 78 | (setq P_TBm (list (+ (car P_TB2) 150) (- (car (cdr P_TB2)) (/ TBeamY 2)))) 79 | (command "_.Text" "_Style" "standard" "_Justify" "Left" P_TBm 60 0 "Tie Beam") 80 | (setq P_TxtPCC (list (+ (car S_P1) 220) (+ (car (cdr S_P1)) (/ 0 2)))) 81 | (command "_.Text" "_Style" "standard" "_Justify" "Left" P_TxtPCC 60 0 (strcat "PCC " (itoa PCC_th) "mm")) 82 | (setq P_TxtSol (list (+ (car S_P1) 220) (- (car (cdr S_P1)) (/ Sol_th 1)))) 83 | (command "_.Text" "_Style" "standard" "_Justify" "Left" P_TxtSol 60 0 (strcat "Soling " (itoa Sol_th) "mm")) 84 | (setq P_Title (list (+ (car Origin) (/ footX 2)) (- (car (cdr Origin)) 350))) 85 | (command "_.Text" "_Style" "standard" "_Justify" "MC" P_Title 150 0 "Section of Wall") 86 | 87 | ;GL 88 | (command "-layer" "m" "GL" "c" "t" "39,149,252" "GL" "") 89 | (setq GL_Lvl (getint "Enter Depth of Excavation mm:")) 90 | (setq P_GL1 (list (+ (car P_TB2) 0) (+ (car (cdr Origin)) GL_Lvl))) 91 | (setq P_GL2 (list (+ (car P_TB2) distDim) (+ (car (cdr Origin)) GL_Lvl))) 92 | (command "line" P_GL1 P_GL2 "") 93 | 94 | ;Dimension 95 | (command "-layer" "m" "Dimension" "c" "t" "249,245,6" "Dimension" "") 96 | (command "dimaligned" P_GL2 (list (car P_GL2) (car (cdr Origin))) (list(+(car P_GL2) 0) (+(cadr P_GL2) 0)));GL 97 | 98 | (command "-layer" "m" "Text" "c" "t" "237,102,18" "Text" "") 99 | (setq P_TxtGL (list (+ (car P_GL2) (/ 0 2)) (+ (car (cdr P_GL2)) 50))) 100 | (command "_.Text" "_Style" "standard" "_Justify" "MC" P_TxtGL 60 0 "GL") 101 | 102 | ;Hatch 103 | (command "-layer" "m" "Soling" "c" "t" "207,37,233" "Soling" "") 104 | (setq Sol_Hatch (list (+ (car Origin) (/ footX 2)) (+ (car (cdr Origin)) (/ Sol_th 2)))) 105 | (command "-Hatch" "Properties" "GRAVEL" "100" "0" Sol_Hatch "") 106 | 107 | (command "-layer" "m" "PCC" "c" "t" "34,247,247" "PCC" "") 108 | (setq PCC_Hatch (list (+ (car P_P0) (/ footX 2)) (+ (car (cdr P_P0)) (/ PCC_th 2)))) 109 | (command "-Hatch" "Properties" "AR-CONC" "10" "0" PCC_Hatch "") 110 | 111 | (command "-layer" "m" "Wall" "c" "t" "255,0,0" "Wall" "") 112 | (setq WA_Hatch (list (+ (car P_C3) (/ WallAboveTH 2)) (+ (car (cdr P_C3)) (/ Col_Above 2)))) 113 | (command "-Hatch" "Properties" "ANSI32" "200" "0" WA_Hatch "") 114 | 115 | (setq WB_Hatch (list (+ (car P_f1) (/ WallBelowTH 2)) (+ (car (cdr P_f1)) (/ Col_Below 2)))) 116 | (command "-Hatch" "Properties" "ANSI32" "200" "0" WB_Hatch "") 117 | 118 | ;Reset values 119 | (setvar "dimexo" offorigin) 120 | (setvar "dimasz" Arrowsize) 121 | (setvar "dimtxt" TxtHt) 122 | (setvar "dimdec" Dec) 123 | (setvar "dimgap" Gap) 124 | ;(setvar "dimtad" TxtVerPos) 125 | (setvar "dimse1" Extline1) 126 | (setvar "dimse2" Extline2) 127 | (setvar "osmode" osm) 128 | (setvar "dimtoh" DmToh) 129 | (setvar "dimtih" DmTih) 130 | 131 | (gc) 132 | (princ) 133 | ) -------------------------------------------------------------------------------- /TotalLengthOnLayer.lsp: -------------------------------------------------------------------------------- 1 | (defun c:TotalLengthOnLayer () 2 | (setq total-length 0) 3 | (setq selset (ssget '((0 . "LINE")))) 4 | (setq layer (cdr (assoc 8 (entget (car (entsel "\nSelect a line to get layer: ")))))) 5 | (if selset 6 | (progn 7 | (setq cnt 0) 8 | (repeat (sslength selset) 9 | (setq ent (ssname selset cnt)) 10 | (setq obj (vlax-ename->vla-object ent)) 11 | (if (equal layer (vla-get-Layer obj)) 12 | (setq total-length (+ total-length (vla-get-Length obj)))) 13 | (setq cnt (1+ cnt)) 14 | ) 15 | (prompt (strcat "\nTotal length of lines on layer " layer " is: " (rtos total-length 2 2))) 16 | ) 17 | (prompt "\nNo lines found.") 18 | ) 19 | (princ) 20 | ) 21 | --------------------------------------------------------------------------------