#Cable tray autocad blocks free download code#

(setq *traysheight* (_getdist 'Enter Height' *traysheight*)) (setq *trayswidth* (_getdist 'Enter Width' *trayswidth*)) ((getkword (strcat ' Pick tray type: : ')) (or *traysdefault* (setq *traysdefault* 'Radius')) (or *traysradius* (setq *traysradius* 100)) (or *trayschamfer* (setq *trayschamfer* 75)) (or *traysheight* (setq *traysheight* 200)) (or *trayswidth* (setq *trayswidth* 200)) (cons 10 (setq p (list (car p) (- (cadr p) c)))) (cons 10 (setq p (list (car p) (+ c (cadr p)))))

(cons 10 (setq p (list (+ c (car p)) (cadr p)))) (cons 10 (setq p (list (car p) (+ (cadr p) h)))) (cons 10 (setq p (list (car p) (- (cadr p) h)))) (cons 10 (setq p (list (+ w (car p)) (cadr p)))) (defun c:trays (/ _getdist _makeradtray _makechamtray p) (command 'PLINE' pt1 'w' 0.0 0.0 pt2 pt3 pt4 pt5 pt6 pt7 pt8 pt9 pt10 'Close')Ĭode could be tidied up a bit but seems to work well for the two examples in your drawing. (setq pt1 (getpoint 'Pick lower left corner ')) (defun c:chtray ( / pt1 pt2 pt3 pt4 pt5 pt6 pt7 pt8 pt9 pt10 w cham oldsnap oldang) (setq pt1 (getpoint ' Pick lower left corner ')) (defun c:ctray ( / pt1 pt2 pt3 pt4 pt5 pt6 w rad oldsnap oldang) (action_tile 'key2' '(setq val2 $value)') (action_tile 'key1' '(setq val1 $value)')

(if (not (new_dialog 'ddcabtray' dcl_id)) (setq dcl_id (load_dialog 'C:\acadtemp\cabtray.dcl')) change directory to user directory

#Cable tray autocad blocks free download code#

very simple cable routine only uses 1 width but dialog has two so code can be changed easily Same as trays on an angle could be added also. I do appreciate that I have probably used the wrong start point but that can be adressed. Please note I am using the sample dwg as my guide as I dont do cable trays.