(setup3d)
)
(setq *Voltage
* (Getint "Select Voltage for Substation: ") *HighBus
* (getint "Select High Bus Height: ") *LowBus
* (getint "Select Low Bus Height: ") *BusDiameter
* (getint "Select Bus Diameter: ") *PhaseSpace
* (getint "Select Phase Spacing: ") *VerticalBusSpace
* (getint "Select Vertical Bus Spacing: ") )
)
*HighBus* 162
*LowBus* 90
*BusDiameter*
4
*PhaseSpace*
120
*VerticalBusSpace*
72
)
)
)
(if (= *BusDiameter
* nil) (setup3d)
)
(Draw3DBus *highbus*)
)
(if (= *BusDiameter
* nil) (setup3d)
)
(Draw3DBus *lowbus*)
)
(defun Draw3DBus
(bushgt
) pt2
(getpoint pt1
"Select Ending Point of Bus: ") )
)
(command "circle" pt1
"D" *BusDiameter
*) (command "rotate3d" "l" "" "2" pt1 pt2
90) )
(defun insblk
(blkname msg1 msg2
) (command "-layer" "m" "0" "C" 7 "0" "") blkname
pt1
1
1
(r->d ang)
)
)
(Alert "Drawing not found!\nContact D. Hall 3483") )
)
(defun 3dSwitch
(operator BsHgt
/ BLKNAME
*error*) )
)
(setup3d)
)
)
)
)
)
)
)
)
VOLT
"-"
OPERATOR
"-"
"-"
BSHGT
".DWG"
)
)
(setq ms1
"\nPick Insertion Point: " ms2 "Pick Operator Side: "
)
(insblk blkname ms1 ms2)
;;; (if (findfile BLKNAME)
;;; (progn
;;; (setq clay (getvar "clayer"))
;;; (setq osm (getvar "osmode"))
;;; (setvar "3dosmode" 0)
;;; (setq oth (getvar "orthomode"))
;;; (setvar "orthomode" 1)
;;; (setvar "osmode" 32)
;;; (setq pt1 (getpoint "\nPick Insertion Point: "))
;;; (setvar "osmode" 512)
;;; (setq ang (getangle pt1 "Pick Operator Side: "))
;;; (command "-layer" "m" "0" "C" 7 "0" "")
;;; (setvar "osmode" 0)
;;; (command "-insert"
;;; BLKNAME
;;; pt1
;;; 1
;;; 1
;;; (r->d ang)
;;; )
;;; (setvar "orthomode" oth)
;;; (setvar "osmode" osm)
;;; (setvar "clayer" clay)
;;; )
;;; (Alert "Drawing not found!\nContact D. Hall 3483")
;;; )
(*error* nil)
)
(defun 3dInsBS
(BsType BsPhase BsHgt
/ BsSpace blkname
) (setup3d)
)
)
)
)
)
)
blkname
(strcat "BS-" volt
"-" BsType
"-" BsPhase
"-" BsHgt
".dwg"
)
)
)
blkname
(strcat "BS-" volt
"-" BsType
"-" BsPhase
"-" BsSpace
"-" BsHgt ".dwg"
)
)
)
)
(setq ms1
"\nPick Insertion Point: " ms2 "Pick Working Bus: "
)
(insblk blkname ms1 ms2)
;;; (if (findfile BS)
;;; (progn
;;; (setq clay (getvar "clayer"))
;;; (setq osm (getvar "osmode"))
;;; (setq oth (getvar "orthomode"))
;;; (setvar "orthomode" 1)
;;; (setvar "osmode" 32)
;;; (setvar "3dosmode" 0)
;;; (setq pt1 (getpoint "\nPick Insertion Point: "))
;;; (setvar "osmode" 512)
;;; (setq ang (getangle pt1 "Pick Working Bus: "))
;;; (command "-layer" "m" "0" "C" 7 "0" "")
;;; (setvar "osmode" 0)
;;; (command "-insert"
;;; BS
;;; pt1
;;; 1
;;; 1
;;; (r->d ang)
;;; )
;;; (setvar "orthomode" oth)
;;; (setvar "osmode" osm)
;;; (setvar "clayer" clay)
;;; )
;;; (Alert "Drawing not found!\nContact D. Hall 3483")
;;; )
)
(defun c:3dInsBkr
(/ blkname volt
) (setup3d)
)
)
)
)
(setq ms1
"\nPick Insertion Point: " ms2 "Pick Breaker Cabinet Location: "
)
(insblk blkname ms1 ms2)
;;; (if (findfile bkr)
;;; (progn
;;; (setq clay (getvar "clayer"))
;;; (setq osm (getvar "osmode"))
;;; (setvar "3dosmode" 0)
;;; (setq oth (getvar "orthomode"))
;;; (setvar "orthomode" 1)
;;; (setvar "osmode" 32)
;;; (setq pt1 (getpoint "\nPick Insertion Point: "))
;;; (setvar "osmode" 512)
;;; (setq ang (getangle pt1 "Pick Breaker Cabinet Location: "))
;;; (command "-layer" "m" "0" "C" 7 "0" "")
;;; (setvar "osmode" 0)
;;; (command "-insert"
;;; bkr
;;; pt1
;;; 1
;;; 1
;;; (r->d ang)
;;; )
;;; (setvar "orthomode" oth)
;;; (setvar "osmode" osm)
;;; (setvar "clayer" clay)
;;; )
;;; (Alert "Drawing not found!\nContact D. Hall 3483")
;;; )
)
(defun elbow
(direction busheight
) (if (= *Busdiameter
* nil) (setup3d)
)
)
)
(SETQ busheight
*HIGHBUS
*) (SETQ busheight
*LOWBUS
*) )
(setq elb
(strcat "EL-" BusDiameter direction
".dwg") )
;;; (setq ms1 "\nPick Insertion Point: "
;;; ms2 "Pick Working Bus: "
;;; )
;;; (insblk blkname ms1 ms2)
)
(command "-layer" "m" "0" "C" 7 "0" "") elb
pt1
1
1
(r->d ang)
)
)
(Alert "Drawing not found!\nContact D. Hall 3483") )
)
;;;transition
(defun transition
(direction
/ blkname height BusDiameter
) (if (= *VerticalBusSpace
* nil) (setup3d)
)
)
)
)
BusDiameter
(itoa *VerticalBusSpace
*) "-"
direction
".dwg"
)
)
)
(command "-layer" "m" "0" "C" 7 "0" "") blkname
pt1
1
1
(r->d ang)
)
)
(Alert "Drawing not found!\nContact D. Hall 3483") )
)
;;;end transition
(defun 3dendcap
(captype height
) (if (= *Busdiameter
* nil) (setup3d)
)
)
)
)
(setq endcapblk
(strcat "EN-" BusDiameter captype
".dwg") )
)
(command "-layer" "m" "0" "C" 7 "0" "") endcapblk
pt1
1
1
(r->d ang)
)
)
(Alert "Drawing not found!\nContact D. Hall 3483") )
)
(defun 3dInlineNema
(direction height
) (if (= *Busdiameter
* nil) (setup3d)
)
)
)
)
(strcat "IN-" BusDiameter direction
".dwg") )
)
(command "-layer" "m" "0" "C" 7 "0" "") inlineNema
pt1
1
1
(r->d ang)
)
)
(Alert "Drawing not found!\nContact D. Hall 3483") )
)
(command "-layer" "m" "3d-Layout" "C" 6 "" "") )
