pete
/
psc
1
0
Fork 0
Code Releases Activity

Fab: update to hole diameters

Browse Source
pan-dims
Pete Ley 1 year ago
parent 17c38e3576
commit 49a14eddd0
6 changed files with 44 additions and 23 deletions
Show Stats Download Patch File Download Diff File

BIN
blocks/lookleft.dwg
View File

Binary file not shown.

BIN
blocks/lookright.dwg
View File

Binary file not shown.

41
fab/fab.lsp
Unescape View File

@ -174,20 +174,24 @@
path (vla-get-Path acadDoc)
assemblies (car data)
data (cdr data)
stairno (cadr (assoc "number" data))
jobno (cadr (assoc "number" job-info))
galv-p (= finish "Galvanized")
std-hole-dia (if galv-p 0.75 0.6875)
stairno (value "number" data)
jobno (value "number" job-info)
galv-p (= (value "finish" data) "Galvanized")
std-hole-dia (apply 'min (mapcar 'x2x-hole-dia (strip-nil (list (value "top_hdw" data)
(value "bot_hdw" data)))))
notes (strcat "{\\LSHOP NOTES}:\n"
"1. ALL MATERIAL TO BE ASTM-A36\n"
"2. GRIND BURRS & ROUGH EDGES SMOOTH\n"
(if galv-p
(strcat
"3. ALL OPEN HOLES TO BE 3/4\"%%c U.N.O.\n"
"4. HOT DIP GALVANIZE AFTER FAB")
(strcat
"3. ALL OPEN HOLES TO BE 11/16\"%%c U.N.O.\n"
(if (tk '(begins-with finish "Bare")) "" "4. SHOP PRIME PAINT AFTER FAB"))))
((lambda(/ hole-str)
(setq hole-str (strcat "3. ALL OPEN HOLES TO BE "
(frac std-hole-dia)
"\"%%c U.N.O.\n"))
(if galv-p
(strcat hole-str "4. HOT DIP GALVANIZE AFTER FAB")
(strcat hole-str
(if (begins-with (value "finish" data) "Bare")
""
"4. SHOP PRIME PAINT AFTER FAB"))))))
fab-p T)
(cond ((= ent-type 'stair)
@ -195,16 +199,16 @@
piece-mark "S"
dwg-width 603
dwg-height 387
notes-loc (3dpt 360 36)
notes-loc (list 360 36)
notes-width 90
style "STAIRS"))
((= ent-type 'land)
(setq template "fab/fab24.dwt"
(setq template "fab/fab24.dwt"
piece-mark "P"
dwg-width 403
dwg-height 258
notes-width 60
notes-loc (3dpt 240 24)
notes-loc (list 240 24)
style "LANDINGS")))
(setq dwgno (calc-dwg-no jobno stairno piece-mark))
@ -225,7 +229,14 @@
(write-title-block job-info stairno login style)
;; insert sheet notes
(vla-AddMText modelSpace notes-loc notes-width notes)
(vla-AddMText modelSpace (3dpt notes-loc) notes-width notes)
(if (/= std-hole-dia 0.6875)
((lambda(/ textsize)
(setq textsize (vla-getvar 'textsize))
(insert-lib-block modelSpace
(displace-pt notes-loc (list (- dimspace) (- (* 5.5 textsize))))
"lookright"
(* 2 textsize)))))
;; set up assembly table rows
(table-insert-rows ass-table

2
stair/details/beams.lsp
Unescape View File

@ -114,7 +114,7 @@
iang-hlen (distof (cadr (strsplit iang-size "x")))
iang-y (- 0 (?f tread_thick) (?f pan_thick))
len (- btwn_stringers 0.25)
hole-dia (if (begins-with (tbkey "hdw") "5/8") 0.6875 0.75)
hole-dia (x2x-hole-dia (tbkey "hdw"))
h1 (- (tbkey "hbolt") l-string_wid 0.125)
h2 (- (tbkey "hbolt") r-string_wid 0.125)
bolt-y (if (and (begins-with tread_style "1")

16
stair/details/landings.lsp
Unescape View File

@ -139,12 +139,14 @@
(defun detail-top-221 () (detail-top-x21 4.0 0.375 2))
(defun detail-top-251 () (detail-top-x21 4.0 0.375 4))
(defun x2x-hole-dia (hdw) (+ (distof (substr hdw 1 3)) (if galv-p 0.125 0.0625)))
(defun material-x21 (bolt-qty ang-size
/ len ang-y hole-dia gusset-qty material-list ang-hlen h1 h2 bolt-y detail)
(setq len (- btwn_stringers 0.25)
ang-y (- 0 (?f tread_thick) (?f pan_thick))
ang-hlen (distof (cadr (strsplit ang-size "x")))
hole-dia (if (begins-with bot_hdw "5/8") 0.6875 0.75)
hole-dia (x2x-hole-dia top_hdw)
gusset-qty (+ (if (bot-triangle-gusset-p ang-y ang-hlen "i" nil) 1 0)
(if (bot-triangle-gusset-p ang-y ang-hlen "o" nil) 1 0))
h1 (- bot_hbolt l-string_wid 0.125)
@ -252,7 +254,7 @@
(defun material-x22 (bolt-qty ang-size min-vbury
/ len hole-dia gusset-qty material-list h1 h2 bolt-y detail)
(setq len (- btwn_stringers 0.25)
hole-dia (if (begins-with top_hdw "5/8") 0.6875 0.75)
hole-dia (x2x-hole-dia top_hdw)
gusset-qty (+ (if (< (x22-vbury "i") min-vbury) 1 0)
(if (< (x22-vbury "o") min-vbury) 1 0))
h1 (- top_hbolt l-string_wid 0.125)
@ -369,7 +371,7 @@
(setq len (- btwn_stringers 0.25)
h1 (- top_hbolt r-string_wid 0.125)
h2 (- top_hbolt l-string_wid 0.125)
hole-dia (if (begins-with top_hdw "5/8") 0.6875 0.75)
hole-dia (x2x-hole-dia top_hdw)
bolt-y (- top_vbolt 3.5)
detail (if (= bolt-qty 2)
(list "detail" (list '2h-angle "L3x2x1/4" 'long len h1 h2 bolt-y hole-dia 1))
@ -431,7 +433,7 @@
(setq len (- btwn_stringers 0.25)
h1 (- top_hbolt r-string_wid 0.125)
h2 (- top_hbolt l-string_wid 0.125)
hole-dia (if (begins-with top_hdw "5/8") 0.6875 0.75)
hole-dia (x2x-hole-dia top_hdw)
bolt-y (- top_vbolt pan_thick)
detail
(if (= bolt-qty 2)
@ -505,7 +507,7 @@
(setq len (- btwn_stringers 0.25)
h1 (- bot_hbolt r-string_wid 0.125)
h2 (- bot_hbolt l-string_wid 0.125)
hole-dia (if (begins-with bot_hdw "5/8") 0.6875 0.75)
hole-dia (x2x-hole-dia bot_hdw)
bolt-y (- bot_vbolt 3.5)
detail (if (= bolt-qty 2)
(list "detail" (list '2h-angle "L3x2x1/4" 'long len h1 h2 bolt-y hole-dia 1))
@ -565,7 +567,7 @@
(setq len (- btwn_stringers 0.25)
h1 (- bot_hbolt r-string_wid 0.125)
h2 (- bot_hbolt l-string_wid 0.125)
hole-dia (if (begins-with bot_hdw "5/8") 0.6875 0.75)
hole-dia (x2x-hole-dia bot_hdw)
bolt-y (- bot_vbolt pan_thick)
detail
(if (= bolt-qty 2)
@ -647,7 +649,7 @@
(setq len (- btwn_stringers 0.25)
h1 (- bot_hbolt r-string_wid 0.125)
h2 (- bot_hbolt l-string_wid 0.125)
hole-dia (if (begins-with bot_hdw "5/8") 0.6875 0.75)
hole-dia (x2x-hole-dia bot_hdw)
bolt-y (- bot_vbolt pan_thick)
)
(#! '((

8
util/object/block.lsp
Unescape View File

@ -39,6 +39,14 @@
(setq ins (3dpt ins)))
(vla-InsertBlock container ins block 1 1 1 0))
;; insert a block from the block library
(defun insert-lib-block (container ins name scale)
(vla-AttachExternalReference container
(findfile (strcat "blocks/" name ".dwg"))
name
(3dpt ins)
scale scale 1 0 :vlax-false))
;; searches the blocks collection for a Block by name
;; returns VL Object name if it is found, otherwise nil
(defun vla-block-defined (blockName)

Write Preview
Loading…
Cancel
Save