[lumiar]

(defun c:3d_bolt (/ raz_g h_g fas_g bp osm osm3 3dgon r1 p1 p2 a1 p3 3dp bpo
3dsh d_s h_s dl_r sh_r r_s 3db pk pkn kol_v ps1 ps2 spir1
spir2 is_X is_Z pt1 pt2 vis pt3 bps pts)
(command "_-view" "_swiso")
(setq raz_g 24)
(setq h_g 10)
(setq fas_g 3.055)
(setq bp (getpoint "\nУкажите базовую точку : "))
;-------------------------------------------
(setq osm (getvar "osmode"))
(setq osm3 (getvar "3dosmode"))
(setvar "osmode" 0)
(setvar "3dosmode" 0)
;-------------------------------------------
(command "_polygon" 6 bp "_c" (/ raz_g 2))
(command "_extrude" (entlast) "" h_g)
(setq 3dgon (entlast))

(setq r1 (/ (/ raz_g 2) (sin (/ pi 3))))
(setq p1 (mapcar '+ (list r1 0 0) bp))
(setq p2 (mapcar '+ (list (- fas_g) 0 0) p1))
(setq a1 (* fas_g (/ (cos (/ pi 3)) (sin (/ pi 3)))))
(setq p3 (mapcar '+ (list 0 0 a1) p1))

(command "_3dpoly" p1 p2 p3 p1 "")
(setq 3dp (entlast))

(setq bpo (mapcar '+ (list 0 0 10) bp))
(command "_REVOLVE" 3dp "" bp bpo 360)
(command "_subtract" 3dgon "" (entlast) "")
(setq 3dsh (entlast))