Leaderboard

Remember the columns themselves are attached to the baseplates. The baseplates are anchored to the slab via "J" hooks.

Plate 2 should only show the building elevation. The details you refer to are shown on a separate drawing. Re: drawing shown above. Think about how a building goes up. The footing (or piers) are poured first, followed by the slab, then the columns with their baseplates. Look at your drawing. The columns should begin at the top of the poured concrete slab and not be embedded in the slab.

another, delta (defun c:tt (/ p1 p2 en obj ) (and (setq p1 (getpoint "Specify point ")) (setq p2 (getcorner p1 "opposite corner ")) (setq en (entmakex (list '(0 . "LINE") (cons 10 p1) (cons 11 p2)))) (setq obj (vlax-ename->vla-object en)) (princ (strcat "\nArea=" (rtos (apply '* (mapcar '(lambda (a b) (+ a (abs b))) '(0 0) (vlax-get obj 'delta) ) ) 2 3 ) " M\U+00B2" ) ) (entdel en) ) (princ) ) WCS

A couple of answers you can code what is left and right, but for me I use a more manual method pick an end this implies go away from this point then you always know left and right it takes a little bit of care but you get used to it. So looking at a rectang pick left top line and on bottom line pick right end they are the same direction right is inside. This is like 30 year old code but works. Need variation for plines. (SETQ TP1 (entsel "\nSelect Line near left end: ")) ; implies which way for holes (setq tpp1 (entget (car tp1)) p1 (cdr (assoc 10 tpp1)) p2 (cdr (assoc 11 tpp1)) p3 (cadr tp1) ) (setq d1 (distance p1 p3) d2 (distance p2 p3) ) (if (> d1 d2) (progn (setq temp p1) (setq p1 p2) (setq p2 temp) ) ) (setq ang (angle p1 p2) dist (distance p1 p2) )

Should have posted this earlier, when you do Getstring and type 123 once space is hit it stops, but if you do Getstring and type "123 456 789" it will work the string input waits for the closing double quote. So use the convert list to make into ((123)(456)(789))

Like Steven P pick 2 points then pop a dcl and just pick the correct settings, here is multi radio button.lsp example code. (setq ansp (ah:butts but "V" '("Choose printer " " A3 laser" " A1 Plotter" " A3 PDF" " A1 PDF" ))) (setq ansc (ah:butts but "V" '("Choose scale" " 1:100" " 1:200" " 1:50" " 1:10" ))) (setq anss (ah:butts but "V" '("Choose printer " " A4" " A3 " " A2" " A1" ))) Multi radio buttons.lsp

(type Text1) = STR? try distof & atof (setq xyzCombo (list (atof Text1) (cadr aPLow) 0 ))

No the outside edge will be at the outside edge of the colunm flange. Remember that in this elevation you are looking at the Flange of the column, not the web. So this requires that the bolts be drawn on the hidden layer.