အေျကြးက်န္ေနတဲ့ 3dေဘာလံုးေလးပါ

ခ်န္းခ်န္းျပန္လုပ္ျဖစ္တဲ့ 3d soccer flash file ေလးပါ...
အသံေတာ့ထည့္မထားပါ၀ူး
point file အတြက္ lisp ကိုဒီကယူပါ..

ခင္မင္ေလးစားလ်က္
ခ်န္းခ်န္း

ဆက္လက္ဖတ္ရွဳရန္

ျပန္ပိတ္ရန္

သံုးဖက္ျမင္ drill ေလးတခုပါ....

ဘာပဲျဖစ္ျဖစ္ စိတ္၀င္စားစရာေတာ့ေကာင္းပါတယ္...
တကယ္တန္းက auto CAD ဟာ ဒီလို model ေတြဆြဲဖို့အတြက္ဆိုရင္ေတာ့သိပ္မသင့္ေတာ္မွန္းသိပါတယ္
ဘာပဲျဖစ္ျဖစ္ ပံုေလးျဖစ္ေအာင္ဆြဲလို့ရႏိုင္တာေလးတခုကေတာ့စိတ္ေက်နပ္စရာေကာင္းပါတယ္...
ဒီလင့္ ကေန flash file ေလးယူၾကည့္ႏိုင္ပါတယ္ေနာ္ ခ်န္းခ်န္းရဲ့ ငွက္ဆိုးထိုးသံေလးကို ခနျဖဳတ္ထားတယ္ ..ခုႏွစ္ရက္သားသမီးကို အသံနဲ့မႏိွပ္စက္ခ်င္လို့... :D

ခင္မင္ေလးစားလ်က္
ခ်န္းခ်န္း(mg mine)

ဆက္လက္ဖတ္ရွဳရန္

ျပန္ပိတ္ရန္

သံုးဖတ္ျမင္ Screw Driver ေလးပါ....

ပထမ စၾကၤာပံုေလးက auto CAD 2007 မွပါလာတဲ့ sweep ဆိုတဲ့ command အသစ္ေလးကို အဓိက သံုးထားတာပါ...ခု 3d Screw Driver ေလးကေတာ့ Loft ဆိုတဲ့ command ကို အဓိကသံုးျပီး ဆြဲထားတာပါ...
ဘာပဲျဖစ္ျဖစ္ အပ်င္းေျပေပါ့....
loft ဆိုတဲ့ command ရဲ့သေဘာက section ( polyline, spline....) စတဲ့ ေဘာင္ပိတ္ေတြကို ေျပျပစ္တဲ့ solid တခုအျဖစ္ဖန္တီးေပးတာပါ.. ခုပံုမွာေတာ့
Guide ဆိုတဲ့ option ကို သံုးထားတာပါ...
loft command ကို auto CAD 2007 မွာရွင္းခဲ့တာက ေတာင္ကုန္း ေတာင္တန္းေတြရဲ့ ကြန္တို ေတြကို section အျဖစ္သံုးျပီး ထုတစ္ခုျဖစ္ေအာင္ဖန္တီးတဲ့ဥပမာပံုေလးနဲ့ပါ...

ခင္မင္ေလးစားလ်က္

ဆက္လက္ဖတ္ရွဳရန္

ျပန္ပိတ္ရန္

ငယ္ငယ္တုန္းက စကၠဴပန္ကာမ်ိဳးေလးေပါ့...

ခ်န္းခ်န္း ဆြဲျပီး capture လုပ္ဖို့ေမ့သြားတယ္.. တကယ္လို့ စမ္းဆြဲခ်င္တဲ့သူေတြ ဒီလင့္ခ္ကေန pdf ဖိုင္ေလး ယူဖတ္လိုက္ပါေနာ္. အခ်ိန္ရရင္ flash file ေလးလုပ္ျပီး ျပန္တင္ထားေပးပါ့မယ္.. တခုဆိုးတာက ဒါေလးကို ၂၀၀၇ ထက္နိမ့္တဲ့ version နဲ့ဘယ္လို ဆြဲရမယ္ဆိုတာ စဥ္းစားလို့ မရေသးတာပါ.... ဒီပံုေလးအတြက္ အဓိက အေရးအၾကီးဆံုးက sweep ဆိုတဲ့ auto CAD 2007 မွာပါတဲ့ command ေလးပါ....
ခ်န္းခ်န္းကေတာ့ ဒီပံုကို ကိုဖိုးဆန္း ေပးတဲ့ auto CAD 2009 နဲ့ ဆြဲၾကည့္တာပါ... (ကိုဖိုးဆန္းေရ ေက်းဇူးအထူးပါ)

ခင္မင္ေလးစားလ်က္...

ဆက္လက္ဖတ္ရွဳရန္

ျပန္ပိတ္ရန္

သံုးဖတ္ျမင္ ေဘာလံုးေလးပါ....

ဒီ 3d soccer ေလးက ခ်န္းခ်န္းအတြက္ တျခားနည္းလမ္းရွာမေတြ့ေစခဲ့တဲ့ auto CAD drwing ေလးပါ..

auto CAD forum ထဲမွာ ဆြဲနည္းကို ကိုေဆြးေႏြးေပးတာကိုဖတ္ျပီး အဲ့ဒိအတိုင္းဆြဲခဲ့ရပါတယ္...
ပိုလြယ္မယ့္တျခားနည္းလမ္းကို မစဥ္းစားတတ္ေအာင္ပါပဲ...
နည္းလမ္းသိမယ့္သူမ်ားရိွရင္ share ေပးေစခ်င္ပါတယ္..
ခ်န္းခ်န္းဆြဲတုန္းက ေတာ့ point file တစ္ဖိုင္ကို run ျပီး coordinate ေတြကို အရင္ ယူျပီးဆြဲခဲ့တာပါ။
လက္လည္း၀င္ပါတယ္ ...အေရွ့က ေနာင္ေတာ္ၾကီးေတြသာ ဆြဲနည္းကို မေဆြးေႏြးေပးရင္ ခ်န္းခ်န္းေတာ္ေတာ္ေခါင္းကိုက္ရမယ့္ ပံုပါ..

ခင္မင္ေလးစားလ်က္
ခ်န္းခ်န္း

ဆက္လက္ဖတ္ရွဳရန္

ျပန္ပိတ္ရန္

ေရွ့မွာ Nut ဆြဲတာေျပာခဲ့ျပီးေပမယ့္ thread အတြက္ အေၾကြးက်န္ေနလို့ပါ....

ဒီမွာခ်န္းခ်န္းဆြဲခဲ့တဲ့ dimension ေလးေတြပါ...rectangle ကို20x8 နဲ့ဆြဲထားျပီ thread ရဲ့ pitch ကို 1 mm နဲ့ဆြဲဖို့ပါ႕႕႕႕


ခ်န္းခ်န္းဆြဲခ်င္တဲ့ thread က 60 degree V slotted thread ပါ...




























ိ ျတိဂံႏွစ္ခုကိုသက္ဆိုင္ရာအေျခေတြကေန revolve ဆိုတဲ့ command ကိုသံုးျပီး solid အျဖစ္ဖန္တီးပါတယ္..

၈ မီလီ အခ်င္းရိွတဲ့ ဆလင္ဒါတခုဆြဲပါတယ္႕႕႕

အေပၚျခမ္းကို slice command သံုးျပီးလွီးထုတ္လိုက္ပါတယ္ ျပီးရင္ mirror လုပ္ျပီး ေနာက္တျခမ္းကို ဖန္တီးပါတယ္ ျပီးရင္ေတာ့ ေကာ္ပီ လုပ္ေတာ့တာေပါ့႕႕႕႕႕႕

နဲနဲ အဆင့္မ်ားပါတယ္..ဒါေပမယ့္ Auto CAD 2007 ေအာက္က version ေတြအသံုးမ်ားတဲ့ ခ်န္းခ်န္းအတြက္ကေတာ့ ဒီလိုကိစၥမ်ိဳးကို ေရွာင္ဖို့မလြယ္ပါဘူး..ခ်န္းခ်န္းေျပာသလိုပဲဆြဲရမယ္လို့လည္း သတ္မွတ္ခ်က္မရိွတဲ့အတြက္ သူငယ္ခ်င္းတို့က ပိုလြယ္ေအာင္ ဆြဲလို့ရတဲ့နည္းေလးမ်ားရိွရင္လည္း Share ေပးၾကပါလို့ ေတာင္းဆိုခ်င္ပါတယ္...

ခင္မင္ေလးစားလ်က္
ခ်န္းခ်န္း

ဆက္လက္ဖတ္ရွဳရန္

ျပန္ပိတ္ရန္

Spring လိုလိုဘာလိုလိုေလးဆြဲၾကည့္ရေအာင္ေနာ္...

Auto CAD 2007 ကေနစျပီး helix command နဲ့ spiral ဆြဲတာကို သိျပီးၾကျပီျဖစ္မွာပါ..
ခု ခ်န္းခ်န္း ေျပာခ်င္တာက Auto CAD version အေဟာင္းေတြနဲ့ စပရင္လိုလိုဘာလိုလိုေလး ဆြဲၾကည့္တဲ့ အေၾကာင္းပါ....ခ်န္းခ်န္းကေတာ့ auto CAD 2000 ကိုသံုးထားပါတယ္....
စက္၀ို္င္းေလးတခုအရင္ဆြဲတာေပါ့..
c ဆိုတဲ့ command နဲ့ေလ..

အဲ့ဒိ စက္၀ိုင္းေလးကို စက္၀ို္င္းျခမ္းႏွစ္ခုအျဖစ္ break လုပ္တယ္ေလ...


အဲ့ဒိ ၀ိုင္းျပထားတဲ့ေနရာကို rotation point အျဖစ္ထားျပီး ဆန့္က်င္ဘက္လားရာဆီကို rotate ( command ) သံုးျပီး လွည့္ပါတယ္ ..command line မွာ ro လို့ပဲရိုက္ရမွာေလ




ျပီးေတာ့ copy ထပ္ပြားျပီး အစကေန စက္၀ိုင္းေလးတ၀ိုင္းဆြဲပါတယ္..
ျပီးရင္ ext command ကို path သံုးျပီး extrude လုပ္မယ္ေလ..



ျပီးရင္ solid edit toobar ကေန extrude face ဆိုတဲ့ tool ေလးကို path သံုးျပီးက်န္တဲ့ စက္၀ိုင္းျခမ္းေတြနဲ့ extrude လံုးလိုက္ရင္ ခ်န္းခ်န္းတို့ လိုခ်င္တဲ့ spring လိုလိုဘာလိုလိုေလးရျပီေပါ့.....

ဆက္လက္ဖတ္ရွဳရန္

ျပန္ပိတ္ရန္

solid nut head အတြက္ ...

အခ်ိန္သိပ္မရလိုက္လို့ ျဖစ္ကတတ္ဆန္းျဖစ္သြားပါတယ္..
အမွားကိုသိတဲ့သူေတြ ျပင္ေပးမယ္ဆိုရင္လည္း လက္ခံပါတယ္..
ဒီlsp file ေလးမွာ error ေတြရိွပါတယ္ ..
ေနာက္ျပီး ခ်န္းခ်န္း ကာ..ကာဒါ..ကာဒစ္ဒါ ေတြမသံုးထားပါ၀ူး
List ကိုလညး္ လ်စ္လူရႈထားပါတယ္...
အလြယ္လမ္းလိုက္ထားတယ္ဆိုပါေတာ့..
ဖိုင္အသစ္ဖြင့္ျပီးပဲစမ္းေစခ်င္ပါတယ္....
ဘာလိုု့လဲဆိုေတာ့ ခ်န္းခ်န္းက အင္တာဆက္ရွင္ကို select all နဲ့ အလြယ္လုပ္ထားလို့ေလ....
ေအာက္က code ေလးကို notepad မွာပဲျဖစ္ျဖစ္ကူးျပီး nuth.lsp နာမည္နဲ့သိမ္းျပီး run ၾကည့္ပါ...

ဒါက ခ်န္းခ်န္းေရးတဲ့ မျပည့္စံုတဲ့ အႏုပညာဆိုပါေတာ့..

(defun C:nuth()
(setvar "cmdecho" 0)
(setq r (getdist "\nEnter Nut Radius: "))
(setq h (getdist "\Enter Nut Height: "))
(command "polygon" "6" "0,0,0" "c" r)
(command "extrude" "l" "" h "")
(command "circle" "0,0,0" r "")
(command "extrude" "l" "" "t""-45" h "")
(command "intersect" "all" "")
(command "-view" "_swiso" "")
(setvar "cmdecho" 1)
(princ)
)

ဒါကေတာ့ ကိုဖိုးဆန္းျပန္ေရးေပးထားတဲ့ ျပည့္ျပည့္စံုစံု Program ပါ...

(defun C:mynuth()
(setq cmdecho (getvar "cmdecho"))
(setvar "cmdecho" 0)
(setq osmode (getvar "osmode"))
(setvar "osmode" 0)
(setq Radius (getreal "Enter Radius of Nut: "))
(setq Height (getreal "Enter Height of Nut: "))
(setq HoleDiameter (getreal "Enter Diameter of hole of the Nut:"))
(setq Sides (getint "Enter the number of sides of the nut:"))
(setq NutCenter (getpoint "\nPick the center point of the Nut:"))
(setq Z_NutCenter (caddr NutCenter))
(setq CenterPointUpperCircle (list (car NutCenter) (cadr NutCenter) (+ Z_NutCenter Height)))

(command "_.Polygon" Sides NutCenter "C" Radius)
(setq Polygon (entlast))
(command "_.circle" NutCenter Radius)
(setq CircleLower (entlast))
(command "copy" CircleLower "" NutCenter CenterPointUpperCircle "")
(setq CircleUpper (entlast))
(command "_.extrude" Polygon "" Height)
(setq Polygon (entlast))
(command "_.extrude" CircleLower "" "t" -45 Height)
(setq CircleLower (entlast))
(command "_.extrude" CircleUpper "" "t" -45 (* Height -1))
(setq CircleUpper (entlast))
(command "_.intersect" Polygon CircleLower CircleUpper "")
(setq FilledNut (entlast))
(command "_.circle" NutCenter "d" HoleDiameter)
(setq Hole (entlast))
(command "_.extrude" Hole "" Height)
(setq Hole (entlast))
(command "_.subtract" FilledNut "" Hole "")

(setvar "cmdecho" cmdecho)
(setvar "osmode" osmode)
;(command "_.zoom" "extent")


)

ခင္မင္ေလးစားလ်က္
ခ်န္းခ်န္း

ဆက္လက္ဖတ္ရွဳရန္

ျပန္ပိတ္ရန္

Nut အတြက္ ေနာက္တစ္နည္း ပါ..

drawing တခုအတြက္ Auto CAD ဟာဒီလိုပဲဆြဲရမယ္ဆိုတဲ့ ကန့္သက္ခ်က္မရိွပါ၀ူး...
Nut ဆြဲဖို့အတြက္ ေနာက္ တနည္းကို ေဖၚျပလိုက္ပါတယ္..
ဒီနည္းက autocad forum ကေနမွတ္သားဖူးတာပါ....

extrude လုပ္ထားတဲ့ ဆဌဂံရဲ့ အေပၚမွာ ပံုမွာေဖၚျပထားသလို rectangal တခုဆြဲရပါမယ္

ဆဌဂံရဲ့ အလယ္မွတ္မွာရိွေနတဲ့ ေထာင့္မွန္စတုဂံကို အနားစြန္းကေန ၃၀ ဒီဂရီ rotate လုပ္ရပါမယ္...


ျပီးရင္ ဆဌဂံရဲ့ center ကေန revolve ၃၆၀ ဒီဂရီ လုပ္ျပီး solid တခု create လုပ္ရပါမယ္..
ဆဌဂံ solid ထဲကေန အေပၚက solid ကို substract လုပ္လိုက္ရင္ nut head ရဲ့ shape ကို ရျပီေပါ့...



ခင္မင္ေလးစားလ်က္
ခ်န္းခ်န္း

ဆက္လက္ဖတ္ရွဳရန္

ျပန္ပိတ္ရန္

Lisp function တခုကိုသံုးျပီး ဆြဲျခင္း...

ဒါကေတာ့ အင္မတန္အျမန္ၾကိဳက္တဲ့သူေတြအတြက္ပါ...

Code:

(defun c:bolthead (/ d r z)

(initget 7)
(setq d (getdist "\nWrench Size:   "))
(setq r (* d 0.5))

(initget 7)
(setq z (getdist "\nBolt Side Height:   "))

(entmake (list (cons 0 "POLYLINE")(cons 66 1)(cons 10 (list 0 0 0))(cons 70 64)(cons 71 159)(cons 72 80)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0.45) (* r 0.77942286) (+ z (* z 0.125))))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0.57850885) (* r 0.68944) (+ z (* z 0.125))))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0.57850885) (* r 0.68944) (+ z (* z 0.125))))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0.68944) (* r 0.57850885) (+ z (* z 0.125))))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0.68944) (* r 0.57850885) (+ z (* z 0.125))))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0.77942286) (* r 0.45) (+ z (* z 0.125))))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0.77942286) (* r 0.45) (+ z (* z 0.125))))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0.84572336) (* r 0.30781813) (+ z (* z 0.125))))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0.84572336) (* r 0.30781813) (+ z (* z 0.125))))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0.88632698) (* r 0.15628336) (+ z (* z 0.125))))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0.88632698) (* r 0.15628336) (+ z (* z 0.125))))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0.9) (* r 0) (+ z (* z 0.125))))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0.9) (* r 0) (+ z (* z 0.125))))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0.88632698) (* r -0.15628336) (+ z (* z 0.125))))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0.88632698) (* r -0.15628336) (+ z (* z 0.125))))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0.84572336) (* r -0.30781813) (+ z (* z 0.125))))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0.84572336) (* r -0.30781813) (+ z (* z 0.125))))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0.77942286) (* r -0.45) (+ z (* z 0.125))))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0.77942286) (* r -0.45) (+ z (* z 0.125))))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0.68944) (* r -0.57850885) (+ z (* z 0.125))))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0.68944) (* r -0.57850885) (+ z (* z 0.125))))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0.57850885) (* r -0.68944) (+ z (* z 0.125))))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0.57850885) (* r -0.68944) (+ z (* z 0.125))))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0.45) (* r -0.77942286) (+ z (* z 0.125))))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0.45) (* r -0.77942286) (+ z (* z 0.125))))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0.30781813) (* r -0.84572336) (+ z (* z 0.125))))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0.30781813) (* r -0.84572336) (+ z (* z 0.125))))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0.15628336) (* r -0.88632698) (+ z (* z 0.125))))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0.15628336) (* r -0.88632698) (+ z (* z 0.125))))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0) (* r -0.9) (+ z (* z 0.125))))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0) (* r -0.9) (+ z (* z 0.125))))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.15628336) (* r -0.88632698) (+ z (* z 0.125))))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.15628336) (* r -0.88632698) (+ z (* z 0.125))))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.30781813) (* r -0.84572336) (+ z (* z 0.125))))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.30781813) (* r -0.84572336) (+ z (* z 0.125))))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.45) (* r -0.77942286) (+ z (* z 0.125))))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.45) (* r -0.77942286) (+ z (* z 0.125))))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57850885) (* r -0.68944) (+ z (* z 0.125))))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57850885) (* r -0.68944) (+ z (* z 0.125))))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.68944) (* r -0.57850885) (+ z (* z 0.125))))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.68944) (* r -0.57850885) (+ z (* z 0.125))))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.77942286) (* r -0.45) (+ z (* z 0.125))))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.77942286) (* r -0.45) (+ z (* z 0.125))))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.84572336) (* r -0.30781813) (+ z (* z 0.125))))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.84572336) (* r -0.30781813) (+ z (* z 0.125))))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.88632698) (* r -0.15628336) (+ z (* z 0.125))))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.9) (* r 0) (+ z (* z 0.125))))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.88632698) (* r 0.15628336) (+ z (* z 0.125))))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.88632698) (* r 0.15628336) (+ z (* z 0.125))))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.84572336) (* r 0.30781813) (+ z (* z 0.125))))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.84572336) (* r 0.30781813) (+ z (* z 0.125))))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.77942286) (* r 0.45) (+ z (* z 0.125))))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.77942286) (* r 0.45) (+ z (* z 0.125))))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.68944) (* r 0.57850885) (+ z (* z 0.125))))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.68944) (* r 0.57850885) (+ z (* z 0.125))))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.45) (* r 0.77942286) (+ z (* z 0.125))))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.30781813) (* r 0.84572336) (+ z (* z 0.125))))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.30781813) (* r 0.84572336) (+ z (* z 0.125))))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.15628336) (* r 0.88632698) (+ z (* z 0.125))))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.15628336) (* r 0.88632698) (+ z (* z 0.125))))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0) (* r 0.9) (+ z (* z 0.125))))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0) (* r 0.9) (+ z (* z 0.125))))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0.15628336) (* r 0.88632698) (+ z (* z 0.125))))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0.15628336) (* r 0.88632698) (+ z (* z 0.125))))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0.30781813) (* r 0.84572336) (+ z (* z 0.125))))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0) (* r 0) (+ z (* z 0.125))))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -1.15470054) (* r 0) z))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0.57735027) (* r -1) z))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 1.15470054) (* r 0) z))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 1.15470054) (* r 0) z))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0.9) (* r 0) (+ z (* z 0.125))))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 1.05847549) (* r 0.16666667) z))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0.88632698) (* r 0.15628336) (+ z (* z 0.125))))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0.96225045) (* r 0.33333333) z))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0.84572336) (* r 0.30781813) (+ z (* z 0.125))))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0.8660254) (* r 0.5) z))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0.77942286) (* r 0.45) (+ z (* z 0.125))))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0.76980036) (* r 0.66666667) z))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0.68944) (* r 0.57850885) (+ z (* z 0.125))))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0.57735027) (* r 1) z))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0.67357531) (* r 0.83333333) z))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0.57850885) (* r 0.68944) (+ z (* z 0.125))))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0.45) (* r 0.77942286) (+ z (* z 0.125))))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0.57735027) (* r -1) z))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0.45) (* r -0.77942286) (+ z (* z 0.125))))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0.67357531) (* r -0.83333333) z))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0.57850885) (* r -0.68944) (+ z (* z 0.125))))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0.76980036) (* r -0.66666667) z))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0.68944) (* r -0.57850885) (+ z (* z 0.125))))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0.8660254) (* r -0.5) z))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0.77942286) (* r -0.45) (+ z (* z 0.125))))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0.96225045) (* r -0.33333333) z))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0.84572336) (* r -0.30781813) (+ z (* z 0.125))))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 1.15470054) (* r 0) z))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 1.05847549) (* r -0.16666667) z))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0.88632698) (* r -0.15628336) (+ z (* z 0.125))))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0.9) (* r 0) (+ z (* z 0.125))))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r -1) z))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.45) (* r -0.77942286) (+ z (* z 0.125))))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.38490018) (* r -1) z))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.30781813) (* r -0.84572336) (+ z (* z 0.125))))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.19245009) (* r -1) z))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.15628336) (* r -0.88632698) (+ z (* z 0.125))))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0) (* r -1) z))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0) (* r -0.9) (+ z (* z 0.125))))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0.19245009) (* r -1) z))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0.15628336) (* r -0.88632698) (+ z (* z 0.125))))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0.57735027) (* r -1) z))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0.38490018) (* r -1) z))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0.30781813) (* r -0.84572336) (+ z (* z 0.125))))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0.45) (* r -0.77942286) (+ z (* z 0.125))))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -1.15470054) (* r 0) z))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.9) (* r 0) (+ z (* z 0.125))))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -1.05847549) (* r -0.16666667) z))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.88632698) (* r -0.15628336) (+ z (* z 0.125))))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.96225045) (* r -0.33333333) z))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.84572336) (* r -0.30781813) (+ z (* z 0.125))))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.8660254) (* r -0.5) z))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.77942286) (* r -0.45) (+ z (* z 0.125))))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.76980036) (* r -0.66666667) z))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.68944) (* r -0.57850885) (+ z (* z 0.125))))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r -1) z))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.67357531) (* r -0.83333333) z))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57850885) (* r -0.68944) (+ z (* z 0.125))))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.45) (* r -0.77942286) (+ z (* z 0.125))))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) z))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.45) (* r 0.77942286) (+ z (* z 0.125))))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.67357531) (* r 0.83333333) z))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57850885) (* r 0.68944) (+ z (* z 0.125))))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.76980036) (* r 0.66666667) z))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.68944) (* r 0.57850885) (+ z (* z 0.125))))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.8660254) (* r 0.5) z))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.77942286) (* r 0.45) (+ z (* z 0.125))))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.96225045) (* r 0.33333333) z))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.84572336) (* r 0.30781813) (+ z (* z 0.125))))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -1.15470054) (* r 0) z))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -1.05847549) (* r 0.16666667) z))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.88632698) (* r 0.15628336) (+ z (* z 0.125))))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.9) (* r 0) (+ z (* z 0.125))))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0.57735027) (* r 1) z))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0.45) (* r 0.77942286) (+ z (* z 0.125))))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0.38490018) (* r 1) z))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0.30781813) (* r 0.84572336) (+ z (* z 0.125))))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0.19245009) (* r 1) z))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0.15628336) (* r 0.88632698) (+ z (* z 0.125))))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0) (* r 1) z))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0) (* r 0.9) (+ z (* z 0.125))))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.19245009) (* r 1) z))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.15628336) (* r 0.88632698) (+ z (* z 0.125))))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) z))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.38490018) (* r 1) z))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.30781813) (* r 0.84572336) (+ z (* z 0.125))))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.45) (* r 0.77942286) (+ z (* z 0.125))))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r -1) 0))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r 0.57735027) (* r -1) 0))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -1.15470054) (* r 0) 0))(cons 70 192)))
(entmake (list (cons 0 "VERTEX")(cons 10