ခ်န္းခ်န္း ေျပာမယ့္ Auto CAD

Text in custom linetype (Line ထဲတြင္ စာလံုးမ်ားထည္႕သြင္းအသံုးျပဳျခင္း)

2011-02-18T05:30:00.000-08:00

၁၈လက္မ ေရေအး ပိုက္လိုင္း အတြက္ စာေလးနဲ့ လိုင္းေလးျဖစ္ခ်င္တာ...
["text",textstylename,scale,rotation,xoffset,yoffset]

စာအတြက္ အဓိက မွတ္ဖို့လိုတာက အဲ့ဒိပံုစံေလးထဲ၀င္ေနဖို့ပါ...ခ်န္းခ်န္း အဲ့ဒိလိုင္းအတြက္ ဒီလိုေရးပါတယ္...

*18"cold_WATER_SUPPLY,---- 18"CW ---- 18"CW ---- 18"CW ---- 18"CW ---- 18"CW ----

A,.5,-.2,["18'' CW",STANDARD,S=.1,R=0.0,X=-0.1,Y=-.05],-.6

* နဲ့စတဲ့ ပထမတေၾကာင္း ကိုေတာ့ ေျပာဖို့ မလိုေတာ့၀ူးလို့ထင္ပါတယ္... ေနာက္တေၾကာင္းအတြက္က ထံုးစံအတိုင္း A နဲ့စတယ္...၀.၅ ယူနစ္ ရွည္တဲ့ dash လိုင္း space ၀.၂ အရွည္.. စာအတြက္ 18" CW .. standard ဆိုတဲ့ နာမည္နဲ့ text style ၊ စေကး က ၀.၁ ၊ relative rotation က သံုည ဒီဂရီ.. X offset 0.1, Yoffset 0.5 နဲ့ space 0.6 ကေန ၀.၅ အရွည္ရိွတယ္ dash line ျပန္စမယ္...

အဲ့ဒိမွာခ်န္းခ်န္း နဲနဲ ပိုေျပာခ်င္တာက double quote ထဲမွာရိွမယ့္ text string အေၾကာင္းပါ.. ခ်န္းခ်န္း လိုခ်င္တာက 18" CW ဆိုတဲ့စာပါ.. အဲ့ဒါကို "18" CW" လို ခ်န္းခ်န္းေရးရင္ အဲ့ဒိ ေရးသားခ်က္မွာ "18" ထိကို ပဲ text string အျဖစ္ယူသြားတဲ့ အတြက္ (တိုင္ပတ္မယ့္ကိန္းပါ...) အဲ့ေတာ့ " 18 ေနာက္ကေန single quote 2 ခု သံုးျပီးမွ CW" ဆိုျပီး ေရးထားပါတယ္..

မိမိရဲ့ drawing ထဲမွာ ဘယ္လို Load လုပ္တယ္ဆိုတာလည္း ထပ္မေျပာေတာ့၀ူးေနာ္... (ခ်န္းခ်န္းတို့က အဲ့လို ပ်င္းတာ... ဟိဟိ)

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

ခ်န္းခ်န္း(mg mine)

2010-03-23T06:34:00.001-07:00

flash ဖိုင္ေလးက ဒီမွာhttp://www.esnips.com/doc/656171e4-d013-41a4-8ec9-bf1573037288/ENGINE-MOUNT

dimension ကို အဲ့ဒိကေနၾကည့္ျပီးဆြဲၾကည့္လို့ရတာေပါ့ ...

ခင္မင္ေလးစားလ်က္
ခ်န္းခ်န္း(Mg Mine)

2010-03-23T06:33:00.002-07:00

ဒီပံုေလးအတြက္ flash file ေလးပါ..
ၾကည့္မယ္ဆို ရင္ http://www.ebaumsworld.com/flash/play/80946874click လုပ္လိုက္ေနာ္.....

ခင္မင္ေလးစားလ်က္
ခ်န္းခ်နး္ (ေမာင္မိုင္း)

2010-03-23T06:33:00.001-07:00

ဒီပံုေလးအတြက္ flash file ေလးပါ.. အသံေတာ့မထည့္ထားပါ၀ူး သယ္ရင္းေတြစိတ္ညစ္မွာစိုးလို့.. ဟိဟိ
ၾကည့္မယ္ဆို ရင္ http://www.ebaumsworld.com/flash/play/80946871click လုပ္လိုက္ေနာ္.....

ခင္မင္ေလးစားလ်က္
ခ်န္းခ်နး္ (ေမာင္မိုင္း)

2010-03-23T06:31:00.000-07:00

ဒီပံုေလးအတြက္ flash file ေလးပါ..
ၾကည့္မယ္ဆို ရင္ http://www.ebaumsworld.com/flash/play/80946872click လုပ္လိုက္ေနာ္.....
ဒီပံုနဲ့ အေပၚကပံု ေတြကို ခ်န္းခ်န္း loft ဆိုတဲ့ command ကိုအဓိကသံုးထားတယ္ ၂၀၀၇ မတိုင္ခင္ကေတာ့ slice နဲ့မွဆြဲလို့အဆင္ေျပတဲ့ ပံုမ်ိဳးေလးေတြပါ...
အရင္ တုန္းက ၂၀၀၄ နဲ့ဆြဲခဲ့ဖူးတယ္ flash ဖိုင္ေလး ကိုၾကည့္ခ်င္ရင္ေတာ့..http://www.ebaumsworld.com/flash/play/80947004 click လုပ္ပါ...
ခ်န္းခ်န္း ရဲ့ ငွက္ဆိုးထိုးသံ ေလးအတြက္ေတာ့ ေဆာရီးပါ.....

ခင္မင္ေလးစားလ်က္
ခ်န္းခ်နး္ (ေမာင္မိုင္း)

2010-03-23T06:30:00.001-07:00

flash ဖိုင္ေလးက ဒီမွာhttp://www.esnips.com/doc/4e9f9d14-abf0-4754-a154-96db5bf115d0/03

ခင္မင္ေလးစားလ်က္
ခ်န္းခ်န္း(Mg Mine)

line type ဖန္တီးျခင္း..

2009-09-29T07:00:00.000-07:00

ခ်န္းခ်န္းရဲ့ စီဗုန္းမွာ ကိုZin MiNN ဆိုတဲ့ မိတ္ေဆြၾကီးက ခုလိုရိုက္သြားလို့ပါ..
ZiN MiNN: hey chan, do you know how to create new line type?
ေမးခြန္းကေတာ့ စာတေၾကာင္းပါပဲ .. ခ်န္းခ်န္း ေျပာျပရမွာက ေတာ့ မ်ားမွာမို့ ပိုစ္တခုတင္လိုက္ရပါတယ္...

တကယ္လို့ Auto CAD မွာ line type ေတြထပ္ဖန္တီးခ်င္တယ္ဆိုရင္ နဂို ရိွျပီးသား line type ေတြကို နမူနာ ယူဖတ္ရႈ့ေလ့လားထားသင့္ပါတယ္... အဲ့ဒိအတြက္ acad.lin
နဲ့ acadiso.lin ကို ရင္းႏွီးကြ်မ္း၀င္ရိွေနဖို့လိုတာပါ..note pad ေလးနဲ့ဖြင့္ၾကည့္မယ္ဆိုရင္ ခုလိုေတြ့ရပါလိမ့္မယ္...
;;
;; AutoCAD Linetype Definition file
;; Version 3.0
;; Copyright (C) 1991-2007 by Autodesk, Inc. All Rights Reserved.
;;
;; Note: in order to ease migration of this file when upgrading
;; to a future version of AutoCAD, it is recommended that you add
;; your customizations to the User Defined Linetypes section at the
;; end of this file.
;;
*BORDER,Border __ __ . __ __ . __ __ . __ __ . __ __ .
A,.5,-.25,.5,-.25,0,-.25
*BORDER2,Border (.5x) __.__.__.__.__.__.__.__.__.__.__.
A,.25,-.125,.25,-.125,0,-.125
*BORDERX2,Border (2x) ____ ____ . ____ ____ . ___
A,1.0,-.5,1.0,-.5,0,-.5

*CENTER,Center ____ _ ____ _ ____ _ ____ _ ____ _ ____
A,1.25,-.25,.25,-.25
*CENTER2,Center (.5x) ___ _ ___ _ ___ _ ___ _ ___ _ ___
A,.75,-.125,.125,-.125
*CENTERX2,Center (2x) ________ __ ________ __ _____
A,2.5,-.5,.5,-.5

scroll ကို ေအာက္ဆံုးထိဆြဲၾကည့္လိုက္ရင္
;; User Defined Linetypes
;;
;; Add any linetypes that you define to this section of
;; the file to ensure that they migrate properly when
;; upgrading to a future AutoCAD version. If duplicate
;; linetype definitions are found in this file, items
;; in the User Defined Linetypes section take precedence
;; over definitions that appear earlier in the file.
;;
ဆိုတဲ့ စာသားေတြကိုပါေတြ့ရပါလိမ့္မယ္...
line type တခုစီအတြက္ စာ၂ေၾကာင္းစီပါ၀င္တာကို သတိထားမိမယ္ထင္ပါတယ္...
ပထမစာေၾကာင္းက *လိုင္းtype အမည္ နဲ့ , ရွင္းလင္းခ်က္ သေဘာ မ်ိဳးေလးပါ..
*linetype name[, description]
ဆိုလိုတာက ပထမစာေၾကာင္းကို အျမဲတန္း asterisk"*" နဲ့စပါတယ္..ျပီးရင္ linetype ရဲ့ Name ပါName မွာspace မပါရပါ၀ူး..description ကမေပးလဲရပါတယ္ ေပးမယ္ဆိုရင္ ေကာ္မာ ခံျပီး ေရးသြားႏိုင္ပါတယ္ စာလံုးေရ ၄၇ လံုးထိပဲလက္ခံပါတယ္.. ဒီေလာက္ဆို ပထမစာေၾကာင္းအတြက္ သိေလာက္ျပီထင္ပါရဲ့..
ဒုတိယစာေၾကာင္းက ေတာ့ linetype ရဲ့ defination ပါ.. A နဲ့အျမဲတန္းစပါတယ္..item တခုခ်င္းစီကို ေကာ္မာကုတ္ျပီးေရးသြားယံုပါပဲ.. ဒုတိယလိုင္းအတြက္ စာလံုးေရ ၈၀ ထိလက္ခံပါတယ္.
ဂဏာန္းေတြအတြက္ အဓိပၼါယ္ ဖြင့္ ပံုကေတာ့ အေပါင္းကိန္းဟာ dash ကိုိကုယ္စားျပဳျပီး တန္ဖို့းကေတာ့ အလ်ားေပါ့ခင္ဗ်ာ.. အႏုတ္ကိန္းကေတာ့ space ကို ကိုယ္စားျပဳပါတယ္ တကယ္လို့ dot အတြက္ဆိုရင္ေတာ့ zero "0" ပါ..ပံမွန္ဆိုရင္ေတာ့ acad.lin ရဲ့ေအာက္ဆံုးကေန မိမိအသစ္ထည့္လိုတဲ့ line type ကို ထည့္ျဖည့္ေရးသြင္းျပီး တခါတည္းသံုးႏိုင္ပါတယ္ ဒါမွမဟုတ္ note pad မွာေရးျပီး ႏွစ္သက္ရာ name.lin နဲ့save လုပ္သိမး္ျပီးလဲသံုးႏိုင္ပါတယ္...မိမိဖန္တီးခ်င္တဲ့ line design က ရႈပ္ေထြးေလ ေရးရတာ နဲနဲ လက္၀င္ေလပါပဲ..
အလြယ္တကူ ဖန္တီးႏိုင္မယ့္ ေနာက္တနည္းကေတာ့ express menu က mkltype ကိုသံုးတာပါ..

mkltype ကေတာ့ အင္မတန္အသံုး၀င္လွပါတယ္.. တကယ္လို့ ခပ္ရႈပ္ရႈပ္ေတြအတြက္ဆိုရင္ mkshape နဲ့လည္းတြဲဖတ္သံုးႏုိင္ပါတယ္...
ေက်နပ္ႏွစ္သိမ့္ႏိုင္မယ္လို့ေမွ်ာ္လင့္ပါတယ္..

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

ေၾကာ္ျငာေတြမွာပါေလ့ရိွတဲ့ alum designer ရဲ့တာ၀န္ေတြ.....

2009-08-03T07:56:00.000-07:00

To prepare the detailed engineering drawings, allocation and work order for curtain walling, façade/ Aluminium works in proper for further use by production and installation

KEY RESPONSIBILITIES of this JOB:

To review structural and architectural drawings and prepare detailed drawings for Aluminium and glazing work of the project in accordance with the complete scope of work in terms of quantity and specification in line with the BOQ for approval of Client/Consultant.

Make sure that structural check done for all necessary components (Glass, Aluminium Mullion, Transoms, Brackets etc.).

Effect any alterations on the Alunimium Shop drawings in coordination with the Project Managers as agreed.

Provide approved detailed Aluminium shop drawing to the production department for final production.

To ensure that the approvals of Drawings and sample materials obtained as per specified/approved within the time scale of programme.

Responsible for pre-ordering of materials in coordination with Sr. Designer (i.e. releasing the related information to Purchase Department) in time to meet the programme.

Preparing Work orders, Material allocation and Material Take off.

Preparing Aluminium Fabrication drawings and cutting list of profiles, Glass and Steel work order.

Provide approved detailed engineering drawings to installation for the proper coordination of different trades at the site.

Prepare ‘As Built’ drawings to the Client/Consultant for final handover of the Project.

Keeping record for all incoming and out going project related documents such as submission, rejection approvals.

IMPORTANT FEATURES OF THIS JOB:

· The job holder manager Draftsman/designer team, identifying the requirements of items and deadlines to complete target specified activities in the project schedule.

· Planning requires microscopic detailed study of a project, accuracy and precision are utmost important and critical for successful completion of a project with in the budget.

· As a result of complexity and diversity of projects there is a lot of stress in the job including time pressures, coordination and handling conflicting priority issues.

COMUNICATIONS REQUIRED:

Internal
Internal communications on daily basis with peers in other departments like Sr.

Designer, Production, Project Managers to meet deadlines of a project on a

timely basis.

External
Maintain an interface with valued clients on quality issues.

AUTHORITY AND REPONSIBILITY TO SOLVE PROBLEMS AND MAKE DECISIONS:

Provide a wide range of solutions, for complex issues; alterations in specification of items, quality of produced items etc.

AutoCAD CURTAIN WALL DESIGNER / DRAFTSMAN

Learngin AutoCAD CD vol ( 1,2,3 ) By ခ်န္းခ်န္း ( Mg Mine )

2009-06-16T09:36:00.000-07:00

Volume ( 1 )
part 1 - http://www.sendspace.com/file/aqzcyq
part 2 - http://www.sendspace.com/file/9jhi9l
(OR)
part 1 - http://ifile.it/9qmla07/learning_acad_vol-1.part1.rar
part 2 - http://ifile.it/uh0ld9n/learning_acad_vol-1.part2.rar

Volume ( 2 )
part 1 - http://www.sendspace.com/file/r1mxp1
part 2 - http://www.sendspace.com/file/pvkr8f
(OR)
part 1 - http://ifile.it/vdjpeca/vol-2.part1.rar
part 2 - http://ifile.it/8uvht91/vol-2.part2.rar

Volume ( 3 )
part 1 - http://www.sendspace.com/file/jtegcm
part 2 - http://www.sendspace.com/file/7tbi9h
(OR)
part 1 - http://ifile.it/8zbhak5/learning_acad_vol-3.part1.rar
part 2 - http://ifile.it/kl4h5yj/learning_acad_vol-3.part2.rar

PASSWORD
WWW.Myanmarengineer.Org

ျမန္မာအင္ဂ်င္နီယာ ဆိုဒ္က ရာမညဖိုးလျပည့္ တင္ထားေပးတဲ့ လင့္ေလးေတြကို ျပန္ရွဲတာပါ....

To bcome a keyboard fighter.....

2009-06-14T07:23:00.000-07:00

AutoCAD user ေတြဟာ key board အသံုးျပဳတဲ့အေပၚမူတည္ျပီး အသက္၀င္တယ္လို့ ခ်န္းခ်န္းေတာ့ ယူဆတယ္....(ဘာပဲျဖစ္ျဖစ္ရိွန္တာေပါ... :D...)

Drawing Navigation

Ctrl + Tab *	Cycle Through Multiple Drawings: Much like Alt + Tab let’s you cycle through different applications, Ctrl + Tab lets you cycle through your open drawings.
Ctrl + Pg Up * Ctrl + Pg Dn	Cycle Through Tabs: Want to switch between layout tabs without ever touching the mouse? Use Ctrl + Page Up or Ctrl + Page Down to cycle through the layout tabs in your drawing. Use in Microsoft Excel to cycle through worksheets.
Ctrl + Directional Arrow	Move Drawing Cursor

Drawing File Tools

Ctrl + N *	Create New Drawing: Like running the QNEW command.
Ctrl + S *	Save Drawing: aka the QSAVE command
Ctrl + Shift + S	Save Drawing As: aka the SAVEAS command
Ctrl + O *	Open Drawing
Ctrl + P *	Plot the current drawing
Ctrl + Q	Quit/Exit AutoCAD

AutoCAD Palettes & Palette Sets

Ctrl + 1	Properties Palette Set
Ctrl + 2	Design Center
Ctrl + 3	Tool Palettes
Ctrl + 4	Sheet Set Manager Palette Set
Ctrl + 6	db Connect Manager
Ctrl + 7	Markup Set Manager: For working with DWF markup sets
Ctrl + 8	Quick Calc
Ctrl + 9	Command Line: Toggles On/Off
Ctrl + 0	Clean Screen: AutoCAD for the true Keyboard Warrior

Drawing Editing Tools

Ctrl + C *	Copy Uses arbitrary insertion point.
Ctrl + Shift + C	Copy with Base Point Lets you enter or select an insertion point (this is my preferred method)
Ctrl + V *	Paste
Ctrl + X *	Cut Deletes from the drawing, but places items on your Windows clipboard.
Ctrl + Z *	Undo Perfectly placed in the lower left corner of the keyboard, I hardly use U for undo anymore.
Ctrl + Y *	Redo

Drawing Aids

Ctrl + A *	Select All Selects every object in the drawing. Warning, do not combine with Delete key.
Ctrl + D	Dynamic UCS [On/Off]
Ctrl + F	OSNAP [On/Off] Or you can press F3
Ctrl + G	Grid [On/Off]
Ctrl + L	ORTHO [On/Off]
Ctrl + B	Snap [On/Off]
Ctrl + W	Object Snap Tracking [On/Off]
Ctrl + E	Isoplane Used for 2D isometric drawings.
Ctrl + U	Polar Tracking [On/Off]
Ctrl + M	Repeat Last Command

MTEXT Editor

Ctrl + F	Insert Field
Ctrl + R	Find / Replace
Ctrl + Shift + Space	Insert a Non-Breaking Space
Ctrl + Shift + U	Change Text Case – Uppercase
Ctrl + Shift + L	Change Text Case – Lowercase
Ctrl + Enter	Exit MTEXT Editor and save changes.

auto CAD Ebook......

2009-04-29T08:39:00.001-07:00

auto CAD ကို ျမန္မာလိုေလးဖတ္ခ်င္ရင္ ေဒါင္း လိုက္ပါေနာ္... ဒီတအုပ္က နဲနဲေတာ့ ၾကာပါျပီ...
ဒါကေတာ့ဦးေအာင္ျမင့္ရဲ့ Auto CAD စာအုုပ္ေလးပါ... အရမ္းေကာင္းပါတယ္ လို့ မေျပာႏိုင္ေပမယ့္ ျမန္မာလိုဆိုေတာ့ ဖတ္ရလြယ္တာေပါ့ ခင္ဗ်ာ....
ဦးေရာဘတ္တင္ေအးရဲ့ apply auto CAD ...vol 1 ပါ အင္မတန္ေကာင္းပါတယ္...
ဦးေရာဘတ္တင္ေအးရဲ့ vol 2

ခင္မင္ေလးစားလ်က္
ခ်န္းခ်န္း(Mg Mine)

Auto CAD user တေယာက္ microstation ဆီကူးေတာ့မယ္ဆိုရင္..

2009-04-27T07:18:00.000-07:00

Table1: AutoCAD vs. MicroStation Terminology
AutoCAD MicroStation
Layers = Levels
Blocks = Cells
Attributes = Tags
Polyline = Linestring
Linetype = Linestyle
Xref = Reference File

အက်ယ္ထပ္သိခ်င္ေသးရင္ ဒီမွာပါ....

2009-04-22T09:16:00.000-07:00

2009-04-21T09:02:00.000-07:00

2009-04-18T08:38:00.001-07:00

Learning Auto CAD

Vol:2

by
Chan Chan (Mg Mine)

CHAPTER-7	CHAPTER-8	CHAPTER-9
7.1unisuint.swf 7.2extmvface.swf 7.3extfacepath.swf 7.4fcoedco.swf 7.5soledit2.swf	8.1expressload.swf 8.2layexpress.swf 8.3textext.swf 8.3textext.swf 8.4extrim.swf 8.5overkill.swf 8.6pu.swf 8.7slide.swf 8.8superhatch.swf	9.1lspeditor.swf 9.2macro1.swf
CHAPTER-10	CHAPTER-11	CHAPTER-12
10.1perspective1.swf 10.2dvper.swf 10.33dobitper.swf	11.22stair.swf 11.33bedstage.swf 11.41table.swf 11.5bedplan.swf	12.1flatten.swf 12.2wmf.swf 12.3dxbplotter.swf 12.4dxbin.swf
CHAPTER-13
13.1modelplotting.swf 13.2layout-plot.swf 13.3layoutscale.swf

Auto CAD Freefall

2009-01-01T04:22:00.000-08:00

This AutoCAD game is a time-speed game.

It has a ModelSpace, PaperSpace and aCommand: prompt.

Initially 9 icons are present at the top of ModelSpace.

When you click Begin, the icons start falling down.

Type a command name and press Enter before its icon reaches the PaperSpace.

The speed of falling icons can be adjusted between 1 (slowest) to 5 (Fastest).

Download the game -
Freefall.zip (14 kb)

Auto CAD နဲ့ပစ္မယ္ ခက္မယ္.....

2008-12-30T04:55:00.000-08:00

Beach Ahead လို အပစ္အခက္မ်ိဳးကိုမွစိတ္၀င္စားတဲ့သူေတြအတြက္ Auto CAD နဲ့ေပ်ာ္ေပ်ာ္ၾကီးပစ္ခက္ႏိုင္ပါတယ္...

Code:


; Notes:        Troy is an Asteroids AutoLISP game driven by the grread function.

;               It can be run inside of an existing drawing. When it's finished,

;               it purges all entities, styles and layers it created. You have

;               three ships to use to shoot down as many Troys as possible. If

;               a Troy runs into your ship, it blows up your ship and you loose

;               10 points. Each Troy you blow up, you gain its value in points.

;               Use the mouse to keep the game moving. Pick the mouse to fire

;               at Troys. Each fire cost you 1 point. Press P to pause the game.

;               Press Q to quit the game before it ends, in order to purge all

;               entities, styles and layers it created. If you press the escape

;               key to abort the game, simply rerun Troy again and select the

;               Clear option. So do not press the escape key to abort the game.

; Disclaimer:   This program is free to download and share and learn from. It

;               contains many useful functions that may be applied else where.

;               Every effort on my part has been to create a grread game that

;               will run in most versions of AutoCAD, and when finished it will

;               return to the environment before it started.  Troy is now yours

;               to tweak, debug, add to, rename, use parts of, or create another

;               grread game from. It is now your responsibility when, and within

;               what drawings you should run it. If you are unsure of how it may

;               affect certain drawing environments, do a saveas before running

;               it. Do not save a drawing without running the Troy Clear option.

;-------------------------------------------------------------------------------

; Revision History

; Rev  By     Date    Description

;-------------------------------------------------------------------------------

; 1    TM   1-20-06   Initial version.

; 2    TM   6-20-06   Revised PurgeGroups function.

; 3    TM   6-24-06   Revised program to switch to the Model tab if there are

;                     viewports on the current Layout tab.

; 4    TM   6-26-06   Added Settings option to adjust number of Troys, speed of

;                     Troys and Color Scheme.

; 5    TM   1-1-07    The *_nth list functions were revised for maximum speed.

;-------------------------------------------------------------------------------

; c:Troy - Asteroids AutoLISP game

;-------------------------------------------------------------------------------

(defun c:Troy (/ Colors$ Loop Option$ Settings$)

  (initget "Intro Clear Settings Play")

  (if (not (setq Option$ (getkword "\nTroy options [Intro/Clear/Settings/]: ")))

    (setq Option$ "Play")

  );if

  (cond

    ((= Option$ "Clear")(TroyClear)(princ "\nTroy objects Cleared."))

    ((= Option$ "Settings")

      (initget "Troys Speed Colors Defaults")

      (if (not (setq Settings$ (getkword "\nSettings [Troys/Speed/Colors/]: ")))

        (setq Settings$ "Defaults")

      );if

      (cond

        ((= Settings$ "Troys")

          (setq Loop t)

          (while Loop

            (if (not (setq *MinTroys#* (getint "\nMinimum number of Troys <5>: ")))

              (setq *MinTroys#* 5)

            );if

            (if (not (setq *MaxTroys#* (getint "\nMaximum number of Troys <10>: ")))

              (setq *MaxTroys#* 10)

            );if

            (if (or (< *MinTroys#* 1) (<= *MaxTroys#* *MinTroys#*))

              (princ "\nThe maximum number must be greater than the minimum number,\nand the minimum number must be greater than 0.")

              (setq Loop nil)

            );if

          );while

          (if (> *MaxTroys#* 20)

            (princ "\nIncreasing the maximum number of Troys may slow down the game.")

          );if

        );case

        ((= Settings$ "Speed")

          (setq Loop t)

          (while Loop

            (if (not (setq *TroySpeed~* (getreal "\nAdjust speed of Troys\nEnter a number between 0.5 and 5.0 <1.0>: ")))

              (setq *TroySpeed~* 1.0)

            );if

            (if (or (< *TroySpeed~* 0.5)(> *TroySpeed~* 5.0))

              (princ "\nThe number must in the range of 0.5 to 5.0.\nThe larger the number the faster the Troys move.")

              (setq Loop nil)

            );if

          );while

        );case

        ((= Settings$ "Colors")

          (initget "Bright Dim Ghost")

          (if (not (setq Colors$ (getkword "\nColor Scheme [/Dim/Ghost]: ")))

            (setq Colors$ "Bright")

          );if

          (setq *ColorScheme#*

            (cond

              ((= Colors$ "Bright") 1)

              ((= Colors$ "Dim")    2)

              ((= Colors$ "Ghost")  3)

            );cond

          );setq

        );case

        ((= Settings$ "Defaults")

          (setq *MinTroys#* 5 *MaxTroys#* 10 *TroySpeed~* 1.0 *ColorScheme#* 1)

        );case

      );cond

      (c:Troy)

    );case

    (t (Troy Option$))

  );if

  (princ)

);defun c:Troy

;-------------------------------------------------------------------------------

; Troy - Troy main function

;-------------------------------------------------------------------------------

(defun Troy (Option$ / AddArray: Ang~ AxisPt BuildShip: CenPt ChangeArray: CirAng~

  CirEnt^ CirLimits~ CirPt1 CirPt2 Color1 Color1_5 Color2 Color3 Color4 Color5

  Color6 Color7 Color8 Cnt# Code# Counter# CreateArray: Dia1~ Dia2~ Direction#

  Dist~ Ent^ Ent1^ Ent2^ Flame$ Flame^ FlameArray@ HalfStep~ Inc# Inc1~ Inc2~

  Increase~ Item Limit# Loop MainEnt^ MainList@ MainNum# NorthEast NorthWest

  Nth# Nths@ Num# NumSteps# Offset~ OldDirection# Option$ Passed Pnts# Points#

  Previous@ Pt Pt1 Pt2 Pt3 Pt4 Pt5 Pt6 Pt7 Pt8 Pt9 Pt10 Pt11 Pt12 Radius~ Read@

  Refresh: Rotate~ ShipName$ SouthEast SouthWest SS& StepDist~ SubList@ TextEnt^

  Total# TroyArray@ Unit~ Value ViewExtents@ ViewSize~ Xmin~ Xmax~ Ymin~ Ymax~)

  ;-----------------------------------------------------------------------------

  ; AddArray: - Add new Troy entity specs to the TroyArray@ list

  ; Arguments: 1

  ;   StartPt = Specify starting point or nil

  ; Returns: A list of a new random Troy specs to be added to TroyArray@ list

  ;-----------------------------------------------------------------------------

  (defun AddArray: (StartPt / Ang~ Num#)

    (if StartPt

      (setq CirPt1 StartPt)

      (setq CirPt1 (polar CenPt (* (GetRnd 6283) 0.001) CirLimits~))

    );if

    (setq Num# (GetRnd 8))

    (setq StepDist~;Determines Troys Speed

      (cond;                                   Points Dia Units

        ((= Num# 0)(* Unit~ 0.100 *TroySpeed~*));50     2.0

        ((= Num# 1)(* Unit~ 0.125 *TroySpeed~*));75     2.5

        ((= Num# 2)(* Unit~ 0.150 *TroySpeed~*));100    3.0

        ((= Num# 3)(* Unit~ 0.175 *TroySpeed~*));125    3.5

        ((= Num# 4)(* Unit~ 0.200 *TroySpeed~*));150    4.0

        ((= Num# 5)(* Unit~ 0.225 *TroySpeed~*));175    4.5

        ((= Num# 6)(* Unit~ 0.250 *TroySpeed~*));200    5.0

        ((= Num# 7)(* Unit~ 0.275 *TroySpeed~*));225    5.5

        ((= Num# 8)(* Unit~ 0.300 *TroySpeed~*));250    6.0

      );cond

    );setq

    (setq HalfStep~ (/ StepDist~ 2.0))

    (setq Points# (+ (* Num# 25) 50));50 to 250

    (setq Radius~ (/ (* Unit~ (* 0.1 (+ (+ (* Num# 5) 10) 10))) 2.0))

    (command "_CIRCLE" CirPt1 Radius~)

    (setq Ent1^ (entlast))

    (command "_CHPROP" Ent1^ "" "_C" Color8 "")

    (command "_HATCH" "AR-CONC" (* (getvar "VIEWSIZE") 0.0045) "" Ent1^ "")

    (setq Ent2^ (entlast))

    (command "_CHPROP" Ent2^ "" "_C" Color8 "")

    (command "_-GROUP" "_C" (UniqueName) "" Ent1^ Ent2^ "")

    (setq CirEnt^ (entlast))

    (setq CirAng~ (+ (- (angle CirPt1 CenPt) (dtr 30)) (* (GetRnd 1047) 0.001)))

    (setq CirPt2 (polar CirPt1 CirAng~ StepDist~))

    (setq Offset~ (+ (* Radius~ 2)(* Radius~ (GetRnd 10))))

    (setq Ang~ (atan (/ HalfStep~ Offset~)))

    (setq Pt (polar CirPt1 CirAng~ HalfStep~))

    (if (< CirAng~ (angle CirPt1 CenPt))

      (setq AxisPt (polar Pt (+ CirAng~ (dtr 90)) Offset~) Direction# 1)

      (setq AxisPt (polar Pt (- CirAng~ (dtr 90)) Offset~) Direction# -1)

    );if

    (setq NumSteps# (+ (GetRnd 10) 2))

    (list CirEnt^ CirPt1 CirPt2 AxisPt Radius~ Direction# NumSteps# Points#)

  );defun AddArray:

  ;-----------------------------------------------------------------------------

  ; ChangeArray: - Change or Move entity in the TroyArray@ list

  ; Arguments: 1

  ;   List@ = A sublist within the TroyArray@ list

  ; Returns: Changes or Moves Troy entities in the TroyArray@ list

  ;-----------------------------------------------------------------------------

  (defun ChangeArray: (List@ / Ang~ Num#)

    (setq CirEnt^ (nth 0 List@)

          CirPt1 (nth 1 List@)

          CirPt2 (nth 2 List@)

          AxisPt (nth 3 List@)

          Radius~ (nth 4 List@)

          Direction# (nth 5 List@)

          NumSteps# (nth 6 List@)

          Points# (nth 7 List@)

          StepDist~ (distance CirPt1 CirPt2)

          HalfStep~ (/ StepDist~ 2.0)

          Ang~ (- (* pi 0.5)(acos (/ HalfStep~ (distance AxisPt CirPt2))))

    );setq

    (command "_MOVE" CirEnt^ "" CirPt1 CirPt2)

    (setq NumSteps# (1- NumSteps#))

    (if (= NumSteps# 0)

      (progn

        (setq NumSteps# (+ (GetRnd 10) 2))

        (setq OldDirection# Direction#)

        (setq Num# (GetRnd 10))

        (if (> Num# 5)

          (setq Direction# 1);ccw

          (setq Direction# -1);cw

        );if

        (setq Offset~ (+ (* Radius~ 2)(* Radius~ (GetRnd 10))))

        (if (= OldDirection# 1);ccw

          (if (= Direction# 1);ccw

            (setq AxisPt (polar CirPt2 (angle CirPt2 AxisPt) Offset~))

            (setq AxisPt (polar CirPt2 (angle AxisPt CirPt2) Offset~))

          );if

          (if (= Direction# -1);cw

            (setq AxisPt (polar CirPt2 (angle CirPt2 AxisPt) Offset~))

            (setq AxisPt (polar CirPt2 (angle AxisPt CirPt2) Offset~))

          );if

        );if

        (setq Ang~ (- (* pi 0.5)(acos (/ HalfStep~ Offset~))))

        (if (= Direction# 1);ccw

          (setq Pt (polar AxisPt (+ (angle AxisPt CirPt2) (* Ang~ 2)) (distance AxisPt CirPt2)))

          (setq Pt (polar AxisPt (- (angle AxisPt CirPt2) (* Ang~ 2)) (distance AxisPt CirPt2)))

        );if

        (setq CirPt1 CirPt2 CirPt2 Pt)

      );progn

      (if (= Direction# 1);ccw

        (progn

          (setq Pt (polar AxisPt (+ (angle AxisPt CirPt2) (* Ang~ 2)) (distance AxisPt CirPt2)))

          (setq CirPt1 CirPt2 CirPt2 Pt)

        );progn

        (progn

          (setq Pt (polar AxisPt (- (angle AxisPt CirPt2) (* Ang~ 2)) (distance AxisPt CirPt2)))

          (setq CirPt1 CirPt2 CirPt2 Pt)

        );progn

      );if

    );if

    ;(command "LINE" AxisPt CirPt1 ""); Uncomment to see Troys paths while debuging

    ;If you're tweaking or debugging this code, you've got to uncommend the above line

    ;at least once to see these patterns. Run Troy in the Intro or Play mode for about

    ;10 seconds then press the escape key to abruptly abort the game. Then turn off

    ;all layers except for the Troy layer, and do a zoom extents and print it.

    (list CirEnt^ CirPt1 CirPt2 AxisPt Radius~ Direction# NumSteps# Points#)

  );defun ChangeArray:

  ;-----------------------------------------------------------------------------

  ; CreateArray: - Creates the initial TroyArray@ list

  ; Arguments: 1

  ;   TowardCenter = 1 for toward center, else away from center

  ; Returns: Creates the initial TroyArray@ list moving in direction specified.

  ;-----------------------------------------------------------------------------

  (defun CreateArray: (TowardCenter)

    (setq TroyArray@ nil)

    (if (= TowardCenter 1)

      (progn

        (setq Rotate~ (* (GetRnd 6283) 0.001))

        (repeat 10

          (setq TroyArray@ (append TroyArray@ (list (AddArray: (polar CenPt Rotate~ CirLimits~)))))

          (setq Rotate~ (+ Rotate~ (/ pi 5.0)))





        );repeat

      );progn

      (progn

        (setq Rotate~ (* (GetRnd 6283) 0.001)

              Dist~ (/ (distance NorthWest NorthEast) 7)

              Increase~ (/ (* Dist~ 3) 20.0)

        );setq

        (repeat 10

          (setq Pt (polar CenPt Rotate~ Dist~))

          (setq List@ (AddArray: Pt))

          (setq List@ (Switch_nth 1 2 List@))

          (setq List@ (Change_nth 5 (* (nth 5 List@) -1) List@))

          (setq TroyArray@ (append TroyArray@ (list List@)))

          (setq Rotate~ (+ Rotate~ 0.897 (* (GetRnd 359) 0.001))

                Dist~ (+ Dist~ Increase~)

          );setq

        );repeat

      );progn

    );if

  );defun CreateArray:

  ;-----------------------------------------------------------------------------

  ; BuildShip: - Draws Ships

  ; Arguments: 2

  ;   Num# = The number of ship created in the function BuildShip:

  ;   InsPt = Insertion base point of the ship

  ; Returns: Draws and makes a block of ship at the insertion point specified.

  ; Also creates the variables MainEnt^ and MainList@ of the ships specs.

  ;-----------------------------------------------------------------------------

  (defun BuildShip: (Num# InsPt / SS&)

    (if (not (member Num# (list 0 1 2 3)))(setq Num# 1))

    (cond

      ((= Num# 0);Red Ship in Intro

        (setq Pt1 (polar InsPt (dtr 90) (* Unit~ 0.5))

              Pt1 (polar Pt1 pi (* Unit~ 0.875))

              Pt2 (polar Pt1 pi (* Unit~ 0.375))

              Pt2 (polar Pt2 (dtr 270) (* Unit~ 0.125))

              Pt3 (polar Pt2 pi (* Unit~ 0.25))

              Pt3 (polar Pt3 (dtr 270) (* Unit~ 0.125))

              Pt4 (polar Pt3 (dtr 270) (* Unit~ 0.75))

              Pt4 (polar Pt4 0 (* Unit~ 0.5))

              Pt5 (polar Pt4 0 (* Unit~ 1.25))

              Pt5 (polar Pt5 (dtr 270) (* Unit~ 0.5))

              Pt6 (polar InsPt 0 (* Unit~ 2.5))

              Pt7 (polar Pt6 (dtr 90) (* Unit~ 0.5))

              Pt7 (polar Pt7 pi Unit~)

              Pt8 (polar Pt7 pi (* Unit~ 0.5))

              Pt8 (polar Pt8 (dtr 90) (* Unit~ 0.125))

              Pt9 (polar Pt3 0 (* Unit~ 0.5))

              Pt10 (polar InsPt (dtr 270) (* Unit~ 0.25))

              Pt11 (polar Pt9 0 (* Unit~ 2.25))

              Pt12 (polar InsPt (dtr 90) Unit~)

        );setq

        (setq SS& (ssadd))

        (command "_COLOR" Color1);Red

        (command "_ARC" Pt1 Pt2 Pt3)(ssadd (entlast) SS&)

        (command "_ARC" Pt3 Pt4 Pt5)(ssadd (entlast) SS&)

        (command "_ARC" "" Pt6)(ssadd (entlast) SS&)

        (command "_ARC" Pt6 Pt7 Pt8)(ssadd (entlast) SS&)

        (command "_COLOR" Color4);Cyan

        (command "_ARC" Pt9 Pt10 Pt11)(ssadd (entlast) SS&)

        (command "_ARC" Pt11 Pt12 Pt9)(ssadd (entlast) SS&)

        (command "_COLOR" "_BYLAYER")

        (setq ShipName$ (UniqueName))

        (command "_BLOCK" ShipName$ InsPt SS& "")

        (command "_INSERT" ShipName$ InsPt 1 1 0)

        (setq MainEnt^ (entlast))

        (setq MainList@ (entget MainEnt^))

      );case

      ((= Num# 1);Green Ship

        (setq Pt (polar InsPt pi Unit~) Pt (polar Pt (dtr 90) (* Unit~ 0.5)))

        (command "_PLINE" Pt (polar Pt (dtr 270) Unit~) (polar InsPt 0 (* Unit~ 2)) "_C")

        (command "_CHPROP" "_L" "" "_C" Color3 "");Green

        (setq ShipName$ (UniqueName))

        (command "_BLOCK" ShipName$ InsPt "_L" "")

        (command "_INSERT" ShipName$ InsPt 1 1 0)

        (setq MainEnt^ (entlast))

        (setq MainList@ (entget MainEnt^))

      );case

      ((= Num# 2);Cyan Ship

        (setq Pt (polar InsPt pi Unit~) Pt1 (polar Pt (dtr 270) Unit~)

              Pt4 (polar Pt1 (dtr 90) (* Unit~ 2)) Pt (polar InsPt 0 Unit~)

              Pt2 (polar Pt (dtr 270) (* Unit~ 0.5)) Pt3 (polar Pt2 (dtr 90) Unit~)

        );setq

        (command "_PLINE" (polar InsPt pi (* Unit~ 0.5)) Pt1 (polar InsPt (dtr 270) (* Unit~ 0.5))

          Pt2 (polar InsPt 0 (* Unit~ 2)) Pt3 (polar InsPt (dtr 90) (* Unit~ 0.5)) Pt4 "_C"

        );command

        (command "_CHPROP" "_L" "" "_C" Color4 "");Cyan

        (setq ShipName$ (UniqueName))

        (command "_BLOCK" ShipName$ InsPt "_L" "")

        (command "_INSERT" ShipName$ InsPt 1 1 0)

        (setq MainEnt^ (entlast))

        (setq MainList@ (entget MainEnt^))

      );case

      ((= Num# 3);Magenta Ship

        (setq Pt (polar InsPt pi Unit~) Pt1 (polar Pt (dtr 270) (* Unit~ 0.5))

              Pt4 (polar Pt1 (dtr 90) Unit~) Pt2 (polar Pt1 0 (* Unit~ 1.5))

              Pt3 (polar Pt4 0 (* Unit~ 1.5))

        );setq

        (command "_PLINE" InsPt Pt1 (polar InsPt (dtr 270) Unit~) Pt2

          (polar InsPt 0 (* Unit~ 2)) Pt3 (polar InsPt (dtr 90) Unit~) Pt4 "_C"

        );command

        (command "_CHPROP" "_L" "" "_C" Color6 "");Magenta

        (setq ShipName$ (UniqueName))

        (command "_BLOCK" ShipName$ InsPt "_L" "")

        (command "_INSERT" ShipName$ InsPt 1 1 0)

        (setq MainEnt^ (entlast))

        (setq MainList@ (entget MainEnt^))

      );case

    );cond

    (princ)

  );defun BuildShip:

  ;-----------------------------------------------------------------------------

  ; Refresh: - Erases Troy entities and creates a new TroyArray@ list

  ;-----------------------------------------------------------------------------

  (defun Refresh: ()

    (setq SS& (ssget "_x" (list '(8 . "Troy"))))

    (command "_ERASE" SS& "")

    (setq FlameArray@ nil TroyArray@ nil Counter# 0 MainNum# (1+ MainNum#))

    (CreateArray: (GetRnd 1))

    (princ)

  );defun Refresh:

  ;=============================================================================

  ; Start of Main Function

  ;=============================================================================

  (if (not *MinTroys#*) (setq *MinTroys#* 5))

  (if (not *MaxTroys#*) (setq *MaxTroys#* 10))

  (if (not *TroySpeed~*) (setq *TroySpeed~* 1.0))

  (if (not *ColorScheme#*) (setq *ColorScheme#* 1))

  (if (not *Speed#) (Speed))

  (if (not *Clayer$*) (setq *Clayer$* (getvar "CLAYER")))

  (if (not *Osmode#*) (setq *Osmode#* (getvar "OSMODE")))

  (if (not *TextStyle$*) (setq *TextStyle$* (getvar "TEXTSTYLE")))

  (if (not *TextSize~*) (setq *TextSize~* (getvar "TEXTSIZE")))

  (setvar "BLIPMODE" 0)(setvar "CMDECHO" 0)

  (setvar "OSMODE" 0)(setvar "GRIDMODE" 0)(graphscr)

  (if (>= (atoi (getvar "ACADVER")) 15)

    (progn

      (if (not *CTab$*) (setq *CTab$* (getvar "CTAB")))

      (if (/= (getvar "CTAB") "Model")

        (progn

          (command "_PSPACE")

          (if (setq SS& (ssget "_x" (list '(-4 . ""))))

            (if (> (sslength SS&) 1)

              (command "_LAYOUT" "_S" "Model")

            );if

          );if

        );progn

      );if

      (setq *TroyTab$* (getvar "CTAB"))

    );progn

  );if

  (if (tblsearch "LAYER" "Troy")

    (command "_LAYER" "_T" "Troy" "_U" "Troy" "_ON" "Troy" "_M" "Troy" "")

    (command "_LAYER" "_M" "Troy" "")

  );if

  (if (setq SS& (ssget "_x" (list '(8 . "Troy"))))

    (command "_ERASE" SS& "")

  );if

  (setq ViewExtents@ (ViewExtents))

  (command "_ZOOM" "_W" (car ViewExtents@)(cadr ViewExtents@))

  (setq Xmin~ (car (nth 0 ViewExtents@))

        Ymax~ (cadr (nth 0 ViewExtents@))

        Xmax~ (car (nth 1 ViewExtents@))

        Ymin~ (cadr (nth 1 ViewExtents@))

        NorthWest (car ViewExtents@)

        SouthEast (cadr ViewExtents@)

        SouthWest (list Xmin~ Ymin~)

        NorthEast (list Xmax~ Ymax~)

        CenPt (getvar "VIEWCTR")

        ViewSize~ (getvar "VIEWSIZE")

        Unit~ (/ (getvar "VIEWSIZE") 50.0)

        Limit# (1+ (fix (/ (distance CenPt (car ViewExtents@)) Unit~)))

        CirLimits~ (* (+ Limit# 3) Unit~)

        North (polar CenPt (dtr 90) (+ (* Unit~ 3) (/ (getvar "VIEWSIZE") 2.0)))

        South (polar CenPt (dtr 270) (+ (* Unit~ 3) (/ (getvar "VIEWSIZE") 2.0)))

        East (polar CenPt 0 (+ (* Unit~ 3) (/ (distance NorthWest NorthEast) 2.0)))

        West (polar CenPt pi (+ (* Unit~ 3) (/ (distance NorthWest NorthEast) 2.0)))

  );setq

  ; Customize Color Schemes as desired and add to top menu in c:Troy

  (cond

    ((= *ColorScheme#* 1);  Bright colors

      (setq Color1     1 ;Red      Red ship

            Color1_5  30 ;Orange   Exploding Troys

            Color2     2 ;Yellow   Bonus points

            Color3     3 ;Green    1st ship

            Color4     4 ;Cyan     2nd ship

            Color5     5 ;Blue     Letter O in TroyIntro

            Color6     6 ;Magenta  3rd ship

            Color7     7 ;White    Not used

            Color8    33 ;Grey     Troys

      );setq

    );case

    ((= *ColorScheme#* 2);  Dim colors

      (setq Color1    12 ;Red      Red ship

            Color1_5  32 ;Orange   Exploding Troys

            Color2    52 ;Yellow   Bonus points

            Color3    86 ;Green    1st ship

            Color4   152 ;Cyan     2nd ship

            Color5   162 ;Blue     Letter O in TroyIntro

            Color6   192 ;Magenta  3rd ship

            Color7     7 ;White    Not used

            Color8   250 ;Grey     Troys

      );setq

    );case

    ((= *ColorScheme#* 3);  Ghost colors

      (setq Color1   250 ;Red      Red ship

            Color1_5 250 ;Orange   Exploding Troys

            Color2   250 ;Yellow   Bonus points

            Color3   250 ;Green    1st ship

            Color4   250 ;Cyan     2nd ship

            Color5   250 ;Blue     Letter O in TroyIntro

            Color6   250 ;Magenta  3rd ship

            Color7   250 ;White    Not used

            Color8   250 ;Grey     Troys

      );setq

    );case

  );cond

  ; Create Flame$ block

  (setq SS& (ssadd))(setq Pt SouthEast)

  (command "_COLOR" Color2);Yellow

  (command "_LINE" Pt (setq Pt (polar Pt 0 Unit~)) "")(ssadd (entlast) SS&)

  (command "_COLOR" Color1);Red

  (command "_LINE" Pt (setq Pt (polar Pt 0 Unit~)) "")(ssadd (entlast) SS&)

  (command "_COLOR" "_BYLAYER")(setq Flame$ (UniqueName))

  (command "_BLOCK" Flame$ SouthEast SS& "")

  (if (= Option$ "Intro")(TroyIntro))

  ;(command "RECTANG" (car ViewExtents@)(cadr ViewExtents@)); Uncomment while debuging

  ;(command "CIRCLE" CenPt CirLimits~); Uncomment while debuging

  ; Build Ship 1

  (BuildShip: 1 CenPt)

  ; Create first Troys

  (CreateArray: (GetRnd 1))

  (command "_STYLE" "Troy" "ROMANS" "0.0" "0.75" "" "" "" "")

  ;-----------------------------------------------------------------------------

  ; Start of grread Loop

  ;-----------------------------------------------------------------------------

  (setq Loop t Counter# 0 Total# 100 MainNum# 1)

  (setq Previous@ (list 5 (polar CenPt 0 Unit~)));Start the Loop moving

  (princ (strcat "\nCommand:\nTotal: " (itoa Total#) "\n"))

  (while Loop

    ; Read the mouse movements and picks

    (if (not (setq Read@ (grread t 8)))

      (setq Read@ Previous@)

    );if

    (setq Code# (nth 0 Read@))

    (setq Value (nth 1 Read@))

    (cond

      ((= Code# 3); Fire if picked

        (setq Ang~ (angle CenPt Value)

              Pt1 (polar CenPt Ang~ (* Unit~ 2))

              Pt2 (polar Pt1 Ang~ Unit~)

        );setq

        (command "_INSERT" Flame$ Pt1 1 1 (rtd Ang~))

        (setq FlameArray@ (append FlameArray@ (list (list (entlast) Pt1 Pt2 Ang~))))

        (setq Total# (1- Total#))

        (princ (strcat "\nCommand:\nTotal: " (itoa Total#) "\n"))

      );case

      ((= Code# 5); Rotate if moved

        (setq Previous@ Read@)

        (setq Ang~ (angle CenPt Value))

        (setq MainList@ (entmod (subst (cons 50 Ang~) (assoc 50 MainList@) MainList@)))

      );case

      ((= Code# 2); Key was pressed

        (cond

          ((or (= Value 80)(= Value 112));P or p then pause

            (getpoint "\nTroy paused.  Pick mouse to continue. ")

            (princ (strcat "\nCommand:\nTotal: " (itoa Total#) "\n"))

          );case

          ((or (= Value 81)(= Value 113));Q or q then quit

            (setq Loop nil)

          );case

          (t (princ "\nMove mouse to rotate ship, pick mouse to fire, press P to Pause, or Q to quit.")

             (princ (strcat "\nTotal: " (itoa Total#) "\n"))

          );case

        );case

      );case

    );cond

    ; Move flame objects

    (if FlameArray@

      (progn

        (setq Cnt# 0 Nths@ nil)

        (foreach List@ FlameArray@

          (setq Flame^ (nth 0 List@)

                Pt1 (nth 1 List@)

                Pt2 (nth 2 List@)

                Ang~ (nth 3 List@)



          );setq

          (if (or (and (> (car Pt2)(car East))(> (car Pt2)(car Pt1)))

                  (and (< (car Pt2)(car West))(< (car Pt2)(car Pt1)))

                  (and (> (cadr Pt2)(cadr North))(> (cadr Pt2)(cadr Pt1)))

                  (and (< (cadr Pt2)(cadr South))(< (cadr Pt2)(cadr Pt1)))

              );or

            (progn

              (command "_ERASE" Flame^ "")

              (setq Nths@ (append Nths@ (list Cnt#)))

            );progn

            (progn

              (command "_MOVE" Flame^ "" Pt1 Pt2)

              (setq Pt1 Pt2 Pt2 (polar Pt2 Ang~ Unit~))

              (setq List@ (list Flame^ Pt1 Pt2 Ang~))

              (setq FlameArray@ (Change_nth Cnt# List@ FlameArray@))

            );progn

          );if

          (setq Cnt# (1+ Cnt#))

        );foreach

        (if Nths@

          (setq FlameArray@ (Remove_nths Nths@ FlameArray@))

        );if

      );progn

    );if

    ; Check if Troys are hit

    (setq Cnt# 0 Nths@ nil)

    (foreach List@ TroyArray@ ; Troy list

      (if FlameArray@ ; Flame list

        (progn

          (setq CirEnt^ (nth 0 List@)

                CirPt1 (nth 1 List@)

                Radius~ (nth 4 List@)

                Points# (nth 7 List@)

          );setq

          (setq Num# 0 Num@ nil)

          (foreach SubList@ FlameArray@

            (setq Flame^ (nth 0 SubList@)

                  Pt2 (nth 2 SubList@)

            );setq

            (if (and (> (car Pt2) (+ Xmin~ Radius~))(< (car Pt2) (- Xmax~ Radius~))

                     (> (cadr Pt2) (+ Ymin~ Radius~))(< (cadr Pt2) (- Ymax~ Radius~)))

              (if (<= (distance Pt2 CirPt1) Radius~)

                (progn

                  (command "_ERASE" CirEnt^ Flame^ "")

                  (setq Num@ (append Num@ (list Num#)))

                  (setq Nths@ (append Nths@ (list Cnt#)))

                  (command "_TEXT" "_M" CirPt1 Unit~ 0 (itoa Points#))

                  (command "_CHPROP" "_L" "" "_C" Color2 "")

                  (setq TextEnt^ (entlast))

                  (setq Total# (+ Total# Points#))

                  (princ (strcat "\nCommand:\nTotal: " (itoa Total#) "\n"))

                  (command "_COLOR" Color1_5)

                  (setq Dia1~ (* Radius~ 2) Dia2~ (* Radius~ 3) Ang~ (dtr 270) Pnts# 7)

                  (repeat 3

                    (StarBurst CirPt1 Dia1~ Dia2~ Pnts# Ang~)(delay 0.125)

                    (setq Dia2~ (* Radius~ 3.5) Ang~ (+ Ang~ (/ (* pi 2) (* Pnts# 3))))

                    (command "_ERASE" (entlast) "")

                    (StarBurst CirPt1 Dia1~ Dia2~ Pnts# Ang~)(delay 0.125)

                    (setq Dia2~ (* Radius~ 3) Ang~ (dtr 90))

                    (command "_ERASE" (entlast) "")

                    (StarBurst CirPt1 Dia1~ Dia2~ Pnts# Ang~)(delay 0.125)

                    (setq Dia2~ (* Radius~ 3.5) Ang~ (- Ang~ (/ (* pi 2) (* Pnts# 3))))

                    (command "_ERASE" (entlast) "")

                    (StarBurst CirPt1 Dia1~ Dia2~ Pnts# Ang~)(delay 0.125)

                    (setq Dia2~ (* Radius~ 3) Ang~ (dtr 270))

                    (command "_ERASE" (entlast) "")

                    (StarBurst CirPt1 Dia1~ Dia2~ Pnts# Ang~)(delay 0.125)

                    (setq Dia2~ (* Radius~ 3.5) Ang~ (- Ang~ (/ (* pi 2) (* Pnts# 3))))

                    (command "_ERASE" (entlast) "")

                    (StarBurst CirPt1 Dia1~ Dia2~ Pnts# Ang~)(delay 0.125)

                    (setq Dia2~ (* Radius~ 3) Ang~ (dtr 90))

                    (command "_ERASE" (entlast) "")

                    (StarBurst CirPt1 Dia1~ Dia2~ Pnts# Ang~)(delay 0.125)

                    (setq Dia2~ (* Radius~ 3.5) Ang~ (+ Ang~ (/ (* pi 2) (* Pnts# 3))))

                    (command "_ERASE" (entlast) "")

                    (StarBurst CirPt1 Dia1~ Dia2~ Pnts# Ang~)(delay 0.125)

                    (setq Dia2~ (* Radius~ 3) Ang~ (dtr 270))

                    (command "_ERASE" (entlast) "")

                  );repeat

                  (command "_COLOR" "_BYLAYER")

                  (command "_ERASE" TextEnt^"")

                );progn

              );if

            );if

            (setq Num# (1+ Num#))

          );foreach

          (if Num@

            (setq FlameArray@ (Remove_nths Num@ FlameArray@))

          );if

        );progn

      );if

      (if TroyArray@

        (setq TroyArray@ (Change_nth Cnt# (ChangeArray: List@) TroyArray@))

        (CreateArray: 1)

      );if

      (setq Cnt# (1+ Cnt#))

    );foreach

    (if Nths@

      (setq TroyArray@ (Remove_nths Nths@ TroyArray@))

    );if

    (if (not TroyArray@)

      (CreateArray: 1)

    );if

    ; Erase Troys that are out of limits

    (setq Cnt# 0)

    (foreach List@ TroyArray@

      (setq CirEnt^ (nth 0 List@)

            CirPt1 (nth 1 List@)

            CirPt2 (nth 2 List@)

      );setq

      (if (or (and (> (car CirPt1)(car East))(> (car CirPt2)(car CirPt1)))

              (and (< (car CirPt1)(car West))(< (car CirPt2)(car CirPt1)))

              (and (> (cadr CirPt1)(cadr North))(> (cadr CirPt2)(cadr CirPt1)))

              (and (< (cadr CirPt1)(cadr South))(< (cadr CirPt2)(cadr CirPt1)))

          );or

        (progn

          (command "_ERASE" CirEnt^ "")

          (setq TroyArray@ (Change_nth Cnt# (AddArray: nil) TroyArray@))

          (setq Counter# (1+ Counter#))

          (if (= Counter# 3);Add Troys per Counter#

            (progn

              (setq Counter# 0)

              (if (< (length TroyArray@) *MaxTroys#*)

                (setq TroyArray@ (append TroyArray@ (list (AddArray: nil))))

              );if

            );progn

          );if

        );progn

      );if

      (setq Cnt# (1+ Cnt#))

    );foreach

    ; Check if Troys ran into Ship or total points is <= 0

    (setq Cnt# 0 Passed t)

    (while Passed

      (setq List@ (nth Cnt# TroyArray@)

            CirEnt^ (nth 0 List@)

            CirPt1 (nth 1 List@)

            Radius~ (nth 4 List@)

      );setq

      (if (or (< (distance CenPt CirPt1) (+ Radius~ (* Unit~ 2.5))) (<= Total# 0))

        (progn

          (command "_ERASE" MainEnt^ "")

          (cond

            ((= MainNum# 1)(setq Color# Color3));Green

            ((= MainNum# 2)(setq Color# Color4));Cyan

            ((= MainNum# 3)(setq Color# Color6));Magenta

          );cond

          (command "_COLOR" Color#)

          (setq Dia1~ 1 Dia2~ 4 Ang~ (dtr 270) Inc# 0 Inc1~ 0.125 Inc2~ 0.375)

          (repeat 20

            (if (= Inc# 11)(setq Inc1~ -0.125 Inc2~ -0.375))

            (StarBurst CenPt (* Unit~ Dia1~) (* Unit~ Dia2~) 5 Ang~)(delay 0.5)

            (setq Dia1~ (+ Dia1~ Inc1~) Dia2~ (+ Dia2~ Inc2~))

            (setq Ang~ (+ Ang~ (/ (* pi 2) 3)))

            (command "_ERASE" (entlast) "")

            (setq Inc# (1+ Inc#))

          );repeat

          (command "_COLOR" "_BYLAYER")

          (setq Total# (- Total# 10))

          (if (<= Total# 0)

            (progn

              (setq MainNum# 3)

              (princ "\nCommand:\nTotal: 0")

            );progn

            (princ (strcat "\nCommand:\nTotal: " (itoa Total#) "\n"))

          );if

          (cond

            ((= MainNum# 1); Build Ship 2

              (Refresh:)

              (BuildShip: 2 CenPt)

            );case

            ((= MainNum# 2); Build Ship 3

              (Refresh:)

              (BuildShip: 3 CenPt)

            );case

            ((= MainNum# 3); Finished!

              (setq Passed nil Loop nil)

            );case

          );cond

          (setq Passed nil)

        );progn

      );if

      (setq Cnt# (1+ Cnt#))

      (if (> Cnt# (1- (length TroyArray@)))

        (setq Passed nil)

      );if

    );while

    (if (< (length TroyArray@) *MinTroys#*)

      (setq TroyArray@ (append TroyArray@ (list (AddArray: nil))))

    );if

    (if (or (/= (getvar "VIEWCTR") CenPt)(/= (getvar "VIEWSIZE") ViewSize~))

      (command "_ZOOM" "_W" (car ViewExtents@)(cadr ViewExtents@))

    );if

  );while

  (TroyClear)

  (princ (strcat "\nCommand:\nTotal: " (itoa Total#) " Finished!"))

  (princ)

);defun Troy

;-------------------------------------------------------------------------------

; TroyIntro - Introduction

;-------------------------------------------------------------------------------

(defun TroyIntro (/ Color# Divisions# Fire# Fourth# Inc~ Increase~ Ltr# Move#

  O-Ang~ O-Cnt# O-Ent^ O-Ins O-List@ O-Pt O-Pts@ O-Size~ Path# Path@ Path1@

  Path2@ Path3@ Path4@ R-Ang~ R-Cen R-Cnt# R-Ent^ R-Ins R-List@ R-Pt R-Pts@

  R-Size~ Rotate~ Rnd# RndLtr@ Sevenths Step~ T-Ang~ T-Cen T-Cnt# T-Ent^ T-Ins

  T-List@ T-Pt T-Pts@ T-Size~ Tl-Ang~ TxSize~ TxSizeInc~ TxSizeMax~ TxSizeMin~

  Y-Ang~ Y-Cnt# Y-Ent^ Y-Ins Y-List@ Y-Pt Y-Pts@ Y-Size~)

  (princ "\nTroy Intro.\n")

  (command "_STYLE" "Troy" "ROMAND" "0.0" "1" "" "" "" "")

  (setq T-Pt (polar CenPt pi (* Unit~ 4.5))

        R-Pt (polar CenPt pi (* Unit~ 1.5))

        O-Pt (polar CenPt 0 (* Unit~ 1.5))

        Y-Pt (polar CenPt 0 (* Unit~ 4.5))

        TxSizeMax~ (* Unit~ 3)

        TxSizeMin~ (* Unit~ 0.5)

        Inc~ (* Unit~ 2);Speed of letters

        Pt0 (polar R-Pt (- (angle R-Pt SouthWest) 0.009) (distance R-Pt SouthWest))

        Pt (polar R-Pt (angle R-Pt Pt0) (/ (distance R-Pt Pt0) 2.0))

        Pt (polar Pt (+ (angle R-Pt Pt0) (* pi 0.5)) (/ (distance R-Pt Pt0) 7.0))

        R-Cen (Center3Pt R-Pt Pt Pt0)

        Radius~ (distance R-Pt R-Cen)

        Ang~ (* (- (* pi 0.5) (acos (/ (/ Inc~ 2.0) Radius~))) 2)

        Inc# (fix (/ (- (angle R-Cen R-Pt) (angle R-Cen SouthWest)) Ang~))

        Pt0 (polar T-Pt (- (angle T-Pt NorthWest) 0.043) (distance R-Pt SouthWest))

        Pt (polar T-Pt (angle T-Pt Pt0) (/ (distance R-Pt Pt0) 2.0))

        Pt (polar Pt (+ (angle T-Pt Pt0) (* pi 0.5)) (/ (distance R-Pt Pt0) 7.0))

        T-Cen (Center3Pt T-Pt Pt Pt0)

        TxSizeInc~ (/ (- TxSizeMax~ TxSizeMin~) (float Inc#))

        TxSize~ TxSizeMax~

        T-Pts@ (list T-Pt)

        R-Pts@ (list R-Pt)

        O-Pts@ (list O-Pt)

        Y-Pts@ (list Y-Pt)

        T-Ang~ 0

  );setq

  (repeat Inc#

    (setq T-Pt (polar T-Cen (- (angle T-Cen T-Pt) Ang~) Radius~)

          T-Pts@ (append T-Pts@ (list T-Pt))

          R-Pt (polar R-Cen (- (angle R-Cen R-Pt) Ang~) Radius~)

          R-Pts@ (append R-Pts@ (list R-Pt))

          O-Pt (polar CenPt (angle R-Pt CenPt) (distance R-Pt CenPt))

          O-Pts@ (append O-Pts@ (list O-Pt))

          Y-Pt (polar CenPt (angle T-Pt CenPt) (distance T-Pt CenPt))

          Y-Pts@ (append Y-Pts@ (list Y-Pt))

          T-Ang~ (- T-Ang~ (dtr 30))

          TxSize~ (- TxSize~ TxSizeInc~)

    );setq

  );repeat

  (setq T-Pts@ (reverse T-Pts@)

        R-Pts@ (reverse R-Pts@)

        O-Pts@ (reverse O-Pts@)

        Y-Pts@ (reverse Y-Pts@)

        R-Ang~ T-Ang~ O-Ang~ T-Ang~ Y-Ang~ T-Ang~

        T-Size~ TxSize~ R-Size~ TxSize~ O-Size~ TxSize~ Y-Size~ TxSize~

        T-Cnt# 0 R-Cnt# 0 O-Cnt# 0 Y-Cnt# 0 Fourth# (/ Inc# 4)

  );setq

  (setq T-Pt (last T-Pts@) R-Pt (last R-Pts@) O-Pt (last O-Pts@) Y-Pt (last Y-Pts@) RndLtr@ (list 0))

  (while (/= (length RndLtr@) 5)

    (setq Rnd# (1+ (GetRnd 3)))

    (cond

      ((= Rnd# 1)(setq Pt T-Pt))

      ((= Rnd# 2)(setq Pt R-Pt))

      ((= Rnd# 3)(setq Pt O-Pt))

      ((= Rnd# 4)(setq Pt Y-Pt))

    );cond

    (if (not (member Pt RndLtr@))

      (setq RndLtr@ (append RndLtr@ (list Pt)))

    );if

  );while

  (setq Rotate~ (* (GetRnd 6283) 0.001)

        Dist~ (/ (distance NorthWest NorthEast) 10)

        Increase~ (/ (* Dist~ 3) 20.0)

  );setq

  (repeat 20

    (setq Pt (polar CenPt Rotate~ Dist~))

    (setq List@ (AddArray: Pt))

    (setq List@ (Switch_nth 1 2 List@))

    (setq List@ (Change_nth 5 (* (nth 5 List@) -1) List@))

    (setq TroyArray@ (append TroyArray@ (list List@)))

    (setq Rotate~ (+ Rotate~ 0.897 (* (GetRnd 359) 0.001))

          Dist~ (+ Dist~ Increase~)

    );setq

  );repeat

  (setq Step~ (* Unit~ 1.5);Speed of red ship

        Pt1 (polar SouthWest (dtr 90) (/ (distance SouthWest NorthWest) 6.0))

        Pt2 (polar Pt1 0 (/ (distance SouthWest SouthEast) 3.0))

        Pt (polar Pt1 0 (/ (distance Pt1 Pt2) 2.0))

        Pt (polar Pt (dtr 90) (* Unit~ 2))

        Pt (Center3Pt Pt1 Pt Pt2)

        Radius~ (distance Pt Pt1)

        Tl-Ang~ (- (angle Pt Pt1) (angle Pt Pt2))

        Ang~ (* 2 (- (* pi 0.5) (acos (/ (* Step~ 0.5) Radius~))))

        Divisions# (fix (1+ (/ Tl-Ang~ Ang~)))

        Pt2 (polar Pt (- (angle Pt Pt1) (* Ang~ Divisions#)) Radius~)

  );setq

  (setq Path1@ (list Pt1))

  (repeat Divisions#

    (setq Pt1 (polar Pt (- (angle Pt Pt1) Ang~) Radius~))

    (setq Path1@ (append Path1@ (list Pt1)))

  );repeat

  (setq Pt (polar Pt (angle Pt Pt2) (* Radius~ 2)))

  (repeat (fix (1+ (/ Divisions# 2.0)))

    (setq Pt1 (polar Pt (+ (angle Pt Pt1) Ang~) Radius~))

    (if (< (angle Pt Pt1) (dtr 270))

      (setq Path1@ (append Path1@ (list Pt1)))

    );if

  );repeat

  (setq Pt1 (last Path1@)

        Pt2 (inters Pt1 (polar Pt1 0 Unit~) NorthEast SouthEast nil)

        Ang~ (atan (/ 1 2.0))

        Radius~ (* (distance Pt1 Pt2) (tan Ang~))

        Pt (polar Pt1 (dtr 90) Radius~)

        Tl-Ang~ (atan (/ (distance Pt1 Pt2) Radius~))

        Ang~ (* 2 (- (* pi 0.5) (acos (/ (* Step~ 0.5) Radius~))))

        Divisions# (fix (1+ (/ Tl-Ang~ Ang~)))

  );setq

  (repeat Divisions#

    (setq Pt1 (polar Pt (+ (angle Pt Pt1) Ang~) Radius~))

    (setq Path1@ (append Path1@ (list Pt1)))

  );repeat

  (setq Pt Pt2

        Radius~ (distance Pt Pt1)

        Ang~ (* 2 (- (* pi 0.5) (acos (/ (* Step~ 0.5) Radius~))))

        Tl-Ang~ (- (angle Pt Pt1) (* pi 0.5))

        Divisions# (fix (1+ (/ Tl-Ang~ Ang~)))

  );setq

  (repeat Divisions#

    (setq Pt2 Pt1)

    (setq Pt1 (polar Pt (- (angle Pt Pt1) Ang~) Radius~))

    (if (> (angle Pt Pt1) (* pi 0.5))

      (setq Path1@ (append Path1@ (list Pt1)))

    );if

  );repeat

  (setq Ang~ (angle Pt2 Pt1))

  (repeat 5

    (setq Pt1 (polar Pt1 Ang~ Step~))

    (setq Path1@ (append Path1@ (list Pt1)))

  );repeat

  (setq Ang~ (angle (nth 1 Path1@) (nth 0 Path1@)))

  (repeat 5

    (setq Pt (polar (nth 0 Path1@) Ang~ Step~))

    (setq Path1@ (Insert_nth 0 Pt Path1@))

  );repeat

  (foreach Item Path1@

    (setq Pt2 (MirrorPt Item CenPt 0))

    (setq Path2@ (append Path2@ (list Pt2)))

    (setq Pt3 (MirrorPt Item CenPt (dtr 90)))

    (setq Path3@ (append Path3@ (list Pt3)))

    (setq Pt4 (MirrorPt Pt3 CenPt 0))

    (setq Path4@ (append Path4@ (list Pt4)))

  );foreach

  (setq Path# (1+ (GetRnd 3)))

  (cond

    ((= Path# 1)(setq Path@ Path1@))

    ((= Path# 2)(setq Path@ Path2@))

    ((= Path# 3)(setq Path@ Path3@))

    ((= Path# 4)(setq Path@ Path4@))

  );cond

  ;-----------------------------------------------------------------------------

  ; First Loop

  ;-----------------------------------------------------------------------------

  (setq Loop t)

  (while Loop

    (if (<= T-Cnt# Inc#)

      (if (= T-Cnt# 0)

        (progn

          (command "_TEXT" "_M" (nth T-Cnt# T-Pts@) T-Size~ (rtd T-Ang~) "T")

          (setq T-Ent^ (entlast))

          (command "_CHPROP" T-Ent^ "" "_C" Color3 "");Green

          (setq T-List@ (entget T-Ent^)

                T-Size~ (+ T-Size~ TxSizeInc~)

                T-Ang~ (+ T-Ang~ (dtr 30))

                T-Cnt# (1+ T-Cnt#)

                T-Ins (nth T-Cnt# T-Pts@)

          );setq

        );progn

        (progn

          (setq T-List@ (entmod (subst (cons 50 T-Ang~) (assoc 50 T-List@) T-List@)))

          (setq T-List@ (entmod (subst (cons 11 T-Ins) (assoc 11 T-List@) T-List@)))

          (setq T-List@ (entmod (subst (cons 40 T-Size~) (assoc 40 T-List@) T-List@)))

          (setq T-Size~ (+ T-Size~ TxSizeInc~)

                T-Ang~ (+ T-Ang~ (dtr 30))

                T-Cnt# (1+ T-Cnt#)

          );setq

          (if (<= T-Cnt# Inc#) (setq T-Ins (nth T-Cnt# T-Pts@)))

        );progn

      );if

    );if

    (if (>= T-Cnt# Fourth#)

      (if (<= R-Cnt# Inc#)

        (if (= R-Cnt# 0)

          (progn

            (command "_TEXT" "_M" (nth R-Cnt# R-Pts@) R-Size~ (rtd R-Ang~) "R")

            (setq R-Ent^ (entlast))

            (command "_CHPROP" R-Ent^ "" "_C" Color4 "");Cyan

            (setq R-List@ (entget R-Ent^)

                  R-Size~ (+ R-Size~ TxSizeInc~)

                  R-Ang~ (+ R-Ang~ (dtr 30))

                  R-Cnt# (1+ R-Cnt#)

                  R-Ins (nth R-Cnt# R-Pts@)

            );setq

          );progn

          (progn

            (setq R-List@ (entmod (subst (cons 50 R-Ang~) (assoc 50 R-List@) R-List@)))

            (setq R-List@ (entmod (subst (cons 11 R-Ins) (assoc 11 R-List@) R-List@)))

            (setq R-List@ (entmod (subst (cons 40 R-Size~) (assoc 40 R-List@) R-List@)))

            (setq R-Size~ (+ R-Size~ TxSizeInc~)

                  R-Ang~ (+ R-Ang~ (dtr 30))

                  R-Cnt# (1+ R-Cnt#)

            );setq

            (if (<= R-Cnt# Inc#) (setq R-Ins (nth R-Cnt# R-Pts@)))

          );progn

        );if

      );if

    );if

    (if (>= R-Cnt# Fourth#)

      (if (<= O-Cnt# Inc#)

        (if (= O-Cnt# 0)

          (progn

            (command "_TEXT" "_M" (nth O-Cnt# O-Pts@) O-Size~ (rtd O-Ang~) "O")

            (setq O-Ent^ (entlast))

            (command "_CHPROP" O-Ent^ "" "_C" Color5 "");Blue

            (setq O-List@ (entget O-Ent^)

                  O-Size~ (+ O-Size~ TxSizeInc~)

                  O-Ang~ (+ O-Ang~ (dtr 30))

                  O-Cnt# (1+ O-Cnt#)

                  O-Ins (nth O-Cnt# O-Pts@)

            );setq

          );progn

          (progn

            (setq O-List@ (entmod (subst (cons 50 O-Ang~) (assoc 50 O-List@) O-List@)))

            (setq O-List@ (entmod (subst (cons 11 O-Ins) (assoc 11 O-List@) O-List@)))

            (setq O-List@ (entmod (subst (cons 40 O-Size~) (assoc 40 O-List@) O-List@)))

            (setq O-Size~ (+ O-Size~ TxSizeInc~)

                  O-Ang~ (+ O-Ang~ (dtr 30))

                  O-Cnt# (1+ O-Cnt#)

            );setq

            (if (<= O-Cnt# Inc#) (setq O-Ins (nth O-Cnt# O-Pts@)))

          );progn

        );if

      );if

    );if

    (if (>= O-Cnt# Fourth#)

      (if (<= Y-Cnt# Inc#)

        (if (= Y-Cnt# 0)

          (progn

            (command "_TEXT" "_M" (nth Y-Cnt# Y-Pts@) Y-Size~ (rtd Y-Ang~) "Y")

            (setq Y-Ent^ (entlast))

            (command "_CHPROP" Y-Ent^ "" "_C" Color6 "");Magenta

            (setq Y-List@ (entget Y-Ent^)

                  Y-Size~ (+ Y-Size~ TxSizeInc~)

                  Y-Ang~ (+ Y-Ang~ (dtr 30))

                  Y-Cnt# (1+ Y-Cnt#)

                  Y-Ins (nth Y-Cnt# Y-Pts@)

            );setq

          );progn

          (progn

            (setq Y-List@ (entmod (subst (cons 50 Y-Ang~) (assoc 50 Y-List@) Y-List@)))

            (setq Y-List@ (entmod (subst (cons 11 Y-Ins) (assoc 11 Y-List@) Y-List@)))

            (setq Y-List@ (entmod (subst (cons 40 Y-Size~) (assoc 40 Y-List@) Y-List@)))

            (setq Y-Size~ (+ Y-Size~ TxSizeInc~)

                  Y-Ang~ (+ Y-Ang~ (dtr 30))

                  Y-Cnt# (1+ Y-Cnt#)

            );setq

            (if (<= Y-Cnt# Inc#) (setq Y-Ins (nth Y-Cnt# Y-Pts@)))

          );progn

        );if

      );if

    );if

    ; Erase Troys that are out of limits

    (setq Cnt# 0)

    (foreach List@ TroyArray@

      (setq CirEnt^ (nth 0 List@)

            CirPt1 (nth 1 List@)

            Radius~ (nth 4 List@)

      );setq

      (if (> (distance CenPt CirPt1) CirLimits~)

        (progn

          (command "_ERASE" CirEnt^ "")

          (setq TroyArray@ (Change_nth Cnt# (AddArray: nil) TroyArray@))

        );progn

        (setq TroyArray@ (Change_nth Cnt# (ChangeArray: List@) TroyArray@))

      );if

      (setq Cnt# (1+ Cnt#))

    );foreach

    (delay 0.15);Speed of Loop

    (if (> Y-Cnt# Inc#)(setq Loop nil))

    (if (or (/= (getvar "VIEWCTR") CenPt)(/= (getvar "VIEWSIZE") ViewSize~))

      (command "_ZOOM" "_W" (car ViewExtents@)(cadr ViewExtents@))

    );if

  );while

  ;-----------------------------------------------------------------------------

  ; Second Loop

  ;-----------------------------------------------------------------------------

  (setq Loop t Move# 0 Ltr# 0 Sevenths# (/ (length Path@) 7) Fire# (1+ Sevenths#))

  (BuildShip: 0 (nth 0 Path@))

  (if (> Path# 2)

    (setq MainList@ (entmod (subst (cons 42 -1.0) (assoc 42 MainList@) MainList@)))

  );if

  (while Loop

    ; Move Ship

    (setq Pt1 (nth Move# Path@)

          Pt2 (nth (1+ Move#) Path@)

          Ang~ (angle Pt1 Pt2)

    );setq

    ;(command "LINE" Pt1 Pt2 "");Uncomment while debuging

    (setq MainList@ (entmod (subst (cons 50 Ang~) (assoc 50 MainList@) MainList@)))

    (setq MainList@ (entmod (subst (cons 10 Pt1) (assoc 10 MainList@) MainList@)))

    ; Fire at Troy Letters

    (setq Fire# (1+ Fire#))

    (if (= Fire# (fix (* Sevenths# 2.5)))(setq Fire# Sevenths#));First time

    (if (= Fire# Sevenths#);Fire in these intervals

      (progn

        (setq Fire# 0 Ltr# (1+ Ltr#))

        (if (member Ltr# (list 1 2 3 4))

          (progn

            (setq Pt (nth Ltr# RndLtr@)

                  Ang~ (angle Pt1 Pt)

                  Pt1 (polar Pt1 Ang~ (* Unit~ 2))

                  Pt2 (polar Pt1 Ang~ Unit~)

            );setq

            (command "_INSERT" Flame$ Pt1 1 1 (rtd Ang~))

            (setq FlameArray@ (append FlameArray@ (list (list (entlast) Pt1 Pt2 Ang~))))

          );progn

        );if

      );progn

    );if

    ; Move flame objects

    (if FlameArray@

      (progn

        (setq Cnt# 0 Nth# nil)

        (foreach List@ FlameArray@

          (setq Flame^ (nth 0 List@)

                Pt1 (nth 1 List@)

                Pt2 (nth 2 List@)

                Ang~ (nth 3 List@)

          );setq

          (if (or (and (> (car Pt2)(car East))(> (car Pt2)(car Pt1)))

                  (and (< (car Pt2)(car West))(< (car Pt2)(car Pt1)))

                  (and (> (cadr Pt2)(cadr North))(> (cadr Pt2)(cadr Pt1)))

                  (and (< (cadr Pt2)(cadr South))(< (cadr Pt2)(cadr Pt1)))

              );or

            (progn

              (command "_ERASE" Flame^ "")

              (setq Nth# Cnt#)

            );progn

            (progn

              (command "_MOVE" Flame^ "" Pt1 Pt2)

              (setq Pt1 Pt2 Pt2 (polar Pt2 Ang~ Unit~))

              (setq List@ (list Flame^ Pt1 Pt2 Ang~))

              (setq FlameArray@ (Change_nth Cnt# List@ FlameArray@))

            );progn

          );if

          (setq Cnt# (1+ Cnt#))

        );foreach

        (if Nth#

          (setq FlameArray@ (Delete_nth Nth# FlameArray@))

        );if

      );progn

    );if

    ; Check to see if Troy Letters are hit

    (if FlameArray@

      (progn

        (setq Num# 0)

        (foreach List@ FlameArray@

          (setq Ent^ (nth 0 List@)

                Pt2 (nth 2 List@)

                Pt nil

          );setq

          (cond

            ((<= (distance Pt2 T-Pt) Unit~)

              (command "_ERASE" T-Ent^ Ent^ "")

              (setq FlameArray@ (Delete_nth Num# FlameArray@))

              (setq Pt T-Pt T-Pt SouthWest Color# Color3);Green

            );case

            ((<= (distance Pt2 R-Pt) Unit~)

              (command "_ERASE" R-Ent^ Ent^ "")

              (setq FlameArray@ (Delete_nth Num# FlameArray@))

              (setq Pt R-Pt R-Pt SouthWest Color# Color4);Cyan

            );case

            ((<= (distance Pt2 O-Pt) Unit~)

              (command "_ERASE" O-Ent^ Ent^ "")

              (setq FlameArray@ (Delete_nth Num# FlameArray@))

              (setq Pt O-Pt O-Pt SouthWest Color# Color5);Blue

            );case

            ((<= (distance Pt2 Y-Pt) Unit~)

              (command "_ERASE" Y-Ent^ Ent^ "")

              (setq FlameArray@ (Delete_nth Num# FlameArray@))

              (setq Pt Y-Pt Y-Pt SouthWest Color# Color6);Magenta

            );case

          );cond

          ; Explode Letter

          (if Pt

            (progn

              (command "_COLOR" Color#)

              (setq Dia1~ 0.5 Dia2~ 3 Ang~ (* (GetRnd 6283) 0.001) Inc# 0 Inc1~ 0.125 Inc2~ 0.375)

              (repeat 10

                (if (= Inc# 6)(setq Inc1~ -0.125 Inc2~ -0.375))

                (StarBurst Pt (* Unit~ Dia1~) (* Unit~ Dia2~) (+ (GetRnd 5) 5) Ang~)(delay 0.125)

                (setq Dia1~ (+ Dia1~ Inc1~) Dia2~ (+ Dia2~ Inc2~))

                (setq Ang~ (* (GetRnd 6283) 0.001))

                (command "_ERASE" (entlast) "")

                (setq Inc# (1+ Inc#))

              );repeat

              (command "_COLOR" "_BYLAYER")

            );progn

          );if

          (setq Num# (1+ Num#))

        );foreach

      );progn

    );if

    ; Erase Troys that are out of limits

    (setq Cnt# 0)

    (foreach List@ TroyArray@

      (setq CirEnt^ (nth 0 List@)

            CirPt1 (nth 1 List@)

            Radius~ (nth 4 List@)

      );setq

      (if (> (distance CenPt CirPt1) CirLimits~)

        (progn

          (command "_ERASE" CirEnt^ "")

          (setq TroyArray@ (Change_nth Cnt# (AddArray: nil) TroyArray@))

        );progn

        (setq TroyArray@ (Change_nth Cnt# (ChangeArray: List@) TroyArray@))

      );if

      (setq Cnt# (1+ Cnt#))

    );foreach

    (delay 0.15);Speed of Loop

    (setq Move# (1+ Move#))

    (if (= Move# (1- (length Path@)))(setq Loop nil))

    (if (or (/= (getvar "VIEWCTR") CenPt)(/= (getvar "VIEWSIZE") ViewSize~))

      (command "_ZOOM" "_W" (car ViewExtents@)(cadr ViewExtents@))

    );if

  );while

  (setq SS& (ssget "x" (list '(8 . "Troy"))))

  (command "_ERASE" SS& "")

  (princ)

);defun TroyIntro

;-------------------------------------------------------------------------------

; TroyClear - Troy clear function

;-------------------------------------------------------------------------------

(defun TroyClear (/ Block$ Passed SS&)

  (if *TroyTab$* (command "_LAYOUT" "_S" *TroyTab$*))

  (if *Clayer$* (setvar "CLAYER" *Clayer$*))

  (if *Osmode#* (setvar "OSMODE" *Osmode#*))

  (if *TextStyle$* (setvar "TEXTSTYLE" *TextStyle$*))

  (if *TextSize~* (setvar "TEXTSIZE" *TextSize~*))

  (command "_COLOR" "_BYLAYER")

  (if (setq SS& (ssget "_x" (list '(8 . "Troy"))))

    (command "_ERASE" SS& "")

  );if

  (setq Block$ (strcat (substr (UniqueName) 1 5) "*"))

  (foreach Item (GetBlockList)

    (if (wcmatch Item Block$) (setq Passed t))

  );foreach

  (if Passed (command "_PURGE" "_BL" Block$ "_N"))

  (if (tblsearch "LAYER" "Troy") (command "_PURGE" "_LA" "Troy" "_N"))

  (if (tblsearch "STYLE" "Troy") (command "_PURGE" "_ST" "Troy" "_N"))

  (setq *Clayer$* nil *Osmode#* nil *TextStyle$* nil *TextSize~* nil)

  (PurgeGroups)

  (if *CTab$*

    (progn (command "_LAYOUT" "_S" *CTab$*)(setq *CTab$* nil *TroyTab$* nil))

  );if

  (repeat 45 (princ (strcat "\n" (chr 160))))

  (princ)

);defun TroyClear

;-------------------------------------------------------------------------------

; Start of Troy Support Utility Functions

;-------------------------------------------------------------------------------

; acos

; Arguments: 1

;   x = real number between 0 and 1. May be passed as the sum of dividing two

;       sides of a right triangle.

; Returns: acos of x, the radian degrees between sides of a right triangle

;-------------------------------------------------------------------------------

(defun acos (x)

  (atan (/ (sqrt (- 1 (* x x))) x))

);defun acos

;-------------------------------------------------------------------------------

; asin

; Arguments: 1

;   sine = real number between -1 to 1

; Returns: arcsin of sine

;-------------------------------------------------------------------------------

(defun asin (sine / cosine)

  (setq cosine (sqrt (- 1.0 (expt sine 2))))

  (if (zerop cosine)

    (setq cosine 0.000000000000000000000000000001)

  );if

  (atan (/ sine cosine))

);defun asin

;-------------------------------------------------------------------------------

; Center3Pt - Center point of 3 points on a circle

; Arguments: 3

;   Pt1 = First point

;   Pt2 = Second point

;   Pt3 = Third point

; Returns: Center point of 3 points on a circle

;-------------------------------------------------------------------------------

(defun Center3Pt (Pt1 Pt2 Pt3 / Pt Pt4 Pt5 Pt6 Pt7)

  (setq Pt4 (polar Pt1 (angle Pt1 Pt2) (/ (distance Pt1 Pt2) 2.0))

        Pt5 (polar Pt4 (+ (angle Pt1 Pt2) (* pi 0.5)) 1)

        Pt6 (polar Pt2 (angle Pt2 Pt3) (/ (distance Pt2 Pt3) 2.0))

        Pt7 (polar Pt6 (+ (angle Pt2 Pt3) (* pi 0.5)) 1)

        Pt (inters Pt4 Pt5 Pt6 Pt7 nil)

  );setq

);defun Center3Pt

;-------------------------------------------------------------------------------

; Change_nth - Changes the nth item in a list with a new item value.

; Arguments: 3

;   Num# = Nth number in list to change

;   Value = New item value to change to

;   OldList@ = List to change item value

; Returns: A list with the nth item value changed.

;-------------------------------------------------------------------------------

(defun Change_nth (Num# Value OldList@)

  (if (<= 0 Num# (1- (length OldList@)))

    (if (> Num# 0)

      (cons (car OldList@) (Change_nth (1- Num#) Value (cdr OldList@)))

      (cons Value (cdr OldList@))

    );if

    OldList@

  );if

);defun Change_nth

;-------------------------------------------------------------------------------

; delay - time delay function

; Arguments: 1

;   Percent~ - Percentage of *Speed# variable

; Returns: time delay

;-------------------------------------------------------------------------------

(defun delay (Percent~ / Number~)

  (if (not *Speed#) (Speed))

  (repeat (fix (* *Speed# Percent~)) (setq Number~ pi))

  (princ)

);defun delay

;-------------------------------------------------------------------------------

; Delete_nth - Deletes the nth item from a list.

; Arguments: 2

;   Num# = Nth number in list to delete

;   OldList@ = List to delete the nth item

; Returns: A list with the nth item deleted.

;-------------------------------------------------------------------------------

(defun Delete_nth (Num# OldList@)

  (setq Num# (1+ Num#))

  (vl-remove-if '(lambda (x) (zerop (setq Num# (1- Num#)))) OldList@)

);defun Delete_nth

;-------------------------------------------------------------------------------

; dtr - Degrees to Radians.

; Arguments: 1

;   Deg~ = Degrees

; Syntax: (dtr Deg~)

; Returns: Value in radians.

;-------------------------------------------------------------------------------

(defun dtr (Deg~)

  (* pi (/ Deg~ 180.0))

);defun dtr

;-------------------------------------------------------------------------------

; GetBlockList

;-------------------------------------------------------------------------------

(defun GetBlockList (/ BlockList@ Block$ List@)

  (if (setq List@ (tblnext "BLOCK" 't))

    (while List@

      (setq Block$ (cdr (assoc 2 List@)))

      (if (/= (substr Block$ 1 1) "*")

        (setq BlockList@ (append BlockList@ (list Block$)))

      );if

      (setq List@ (tblnext "BLOCK"))

    );while

  );if

  (if BlockList@

    (setq BlockList@ (Acad_StrlSort BlockList@))

  );if

  BlockList@

);defun GetBlockList

;-------------------------------------------------------------------------------

; GetRnd - Generates a random number

; Arguments: 1

;   Num# = Maximum random integer number range greater than or less than 0.

; Returns: Random integer number between 0 and Num#.

;-------------------------------------------------------------------------------

(defun GetRnd (Num# / MaxNum# PiDate$ RndNum# Minus Loop)

  (if (or (/= (type Num#) 'INT)(= Num# 0))

    (progn

      (princ "\nSyntax: (GetRnd Num#) Num# = Maximum random integer number range\ngreater than or less than 0.")

      (exit)

    );progn

  );if

  (if (< Num# 0)

    (setq MaxNum# (abs (1- Num#)) Minus t)

    (setq MaxNum# (1+ Num#))

  );if

  (if (not *RndNum*) (setq *RndNum* 10000))

  (setq Loop t)

  (while Loop

    (if (or (null *int*)(> *int* 100))

      (setq *int* 1)

      (setq *int* (1+ *int*))

    );if

    (setq PiDate$ (rtos (* (getvar "cdate") (* pi *int*)) 2 8 ))

    (cond

      ((>= MaxNum# 10000)

        (setq RndNum# (fix (* (atof (substr PiDate$ 13 5)) (* MaxNum# 0.00001))))

      )

      ((>= MaxNum# 1000)

        (setq RndNum# (fix (* (atof (substr PiDate$ 14 4)) (* MaxNum# 0.0001))))

      )

      ((>= MaxNum# 100)

        (setq RndNum# (fix (* (atof (substr PiDate$ 15 3)) (* MaxNum# 0.001))))

      )

      ((>= MaxNum# 10)

        (setq RndNum# (fix (* (atof (substr PiDate$ 16 2)) (* MaxNum# 0.01))))

      )

      ((>= MaxNum# 1)

        (setq RndNum# (fix (* (atof (substr PiDate$ 17 1)) (* MaxNum# 0.1))))

      )

      (t (setq RndNum# 0))

    );cond

    (if (/= RndNum# *RndNum*)

      (setq Loop nil)

    );if

  );while

  (setq *RndNum* RndNum#)

  (if Minus

    (setq RndNum# (* RndNum# -1))

  );if

  RndNum#

);defun GetRnd

;-------------------------------------------------------------------------------

; Insert_nth - Inserts a new item value into the nth number in list.

; Arguments: 3

;   Num# = Nth number in list to insert item value

;   Value = Item value to insert

;   OldList@ = List to insert item value

; Returns: A list with the new item value inserted.

;-------------------------------------------------------------------------------

(defun Insert_nth (Num# Value OldList@ / Temp@)

  (if (< -1 Num# (1+ (length OldList@)))

    (progn

      (repeat Num#

        (setq Temp@ (cons (car OldList@) Temp@)

              OldList@ (cdr OldList@)

        );setq

      );repeat

      (append (reverse Temp@) (list Value) OldList@)

    );progn

    OldList@

  );if

);defun Insert_nth

;-------------------------------------------------------------------------------

; MirrorPt - Mirror point

; Arguments: 3

;   Pt = Point to mirror

;   BasePt = Base point

;   Angle~ = Mirror angle in radians

; Returns: Returns location of mirrored point

;-------------------------------------------------------------------------------

(defun MirrorPt (Pt BasePt Angle~ / Pt1)

  (if (> Angle~ pi)

    (setq Angle~ (- Angle~ pi))

  );if

  (setq Pt1 (inters Pt (polar Pt (+ Angle~ (* pi 0.5)) 1)

                    BasePt (polar BasePt Angle~ 1) nil)

        Pt1 (polar Pt1 (angle Pt Pt1) (distance Pt Pt1))

  );setq

);defun MirrorPt

;-------------------------------------------------------------------------------

; Move_nth - Moves the nth Num1# item value to the nth Num2# location in a list.

; Arguments: 3

;   Num1# = Nth number in list to move item value

;   Num2# = Nth number in list to move item value of nth Num1# into

;   OldList@ = List to move item values

; Returns: A list with nth item value moved.

;-------------------------------------------------------------------------------

(defun Move_nth (Num1# Num2# OldList@ / Move_nth:)

  (defun Move_nth: (Num1# Num2# OldList@ Nth# Item)

    (cond

      ((and (> Nth# Num1#) (> Nth# Num2#))

        OldList@

      );case

      ((= Nth# Num1#)

        (Move_nth: Num1# (1+ Num2#) (cdr OldList@) (1+ Nth#) Item)

      );case

      ((= Nth# Num2#)

        (cons Item (Move_nth: (1+ Num1#) Num2# OldList@ (1+ Nth#) Item))

      );case

      ((cons (car OldList@)

        (Move_nth: Num1# Num2# (cdr OldList@) (1+ Nth#) Item))

      );case

    );cond

  );defun Move_nth:

  (if (and (/= Num1# Num2#) (<= 0 Num1# (1- (length OldList@))) (<= 0 Num2# (1- (length OldList@))))

    (Move_nth: Num1# Num2# OldList@ 0 (nth Num1# OldList@))

    OldList@

  );if

);defun Move_nth

;-------------------------------------------------------------------------------

; PurgeGroups - Purge Unused Groups

;-------------------------------------------------------------------------------

(defun PurgeGroups (/ AllGroups@ Cnt# Dictionary^ EntFirst^ EntList@ FirstGroup$

  Group^ GroupName$ Item Previous$ Pt SS& UsedGroups@)

  (setq Pt (polar (getvar "VIEWCTR") (* pi 1.5)(/ (getvar "VIEWSIZE") 2.0)))

  (command "_LINE" Pt (polar Pt (* pi 1.5) 0.00000001) "")

  (setq EntFirst^ (entlast))

  (setq FirstGroup$ (UniqueName))

  (command "_-GROUP" "_C" FirstGroup$ "" EntFirst^ "")

  (setq EntList@ (entget EntFirst^))

  (setq Group^ (cdr (assoc 330 EntList@)))

  (setq EntList@ (entget Group^))

  (setq Dictionary^ (cdr (assoc 330 EntList@)))

  (setq EntList@ (entget Dictionary^))

  (foreach Item EntList@

    (if (= (car Item) 3)

      (if (not (member (cdr Item) AllGroups@))

        (setq AllGroups@ (append AllGroups@ (list (cdr Item))))

      );if

    );if

  );foreach

  (setq SS& (ssget "_X"))

  (setq Cnt# 0)

  (repeat (sslength SS&)

    (setq EntList@ (entget (ssname SS& Cnt#)))

    (if (= (cdr (assoc 102 EntList@)) "{ACAD_REACTORS")

      (progn

        (setq Group^ (cdr (assoc 330 EntList@)))

        (setq EntList@ (entget Group^))

        (if (setq Dictionary^ (cdr (assoc 330 EntList@)))

          (progn

            (setq EntList@ (entget Dictionary^))

            (setq Previous$ "")

            (foreach Item EntList@

              (setq Item (cdr Item))

              (if (equal Item Group^)

                (setq GroupName$ Previous$)

              );if

              (setq Previous$ Item)

            );foreach

            (if (not (member GroupName$ UsedGroups@))

              (setq UsedGroups@ (append UsedGroups@ (list GroupName$)))

            );if

          );progn

        );if

      );progn

    );if

    (setq Cnt# (1+ Cnt#))

  );repeat

  (foreach GroupName$ AllGroups@

    (if (not (member GroupName$ UsedGroups@))

      (command "_-GROUP" "_E" GroupName$)

    );if

  );foreach

  (command "_-GROUP" "_E" FirstGroup$)

  (command "_ERASE" EntFirst^ "")

  (princ)

);defun PurgeGroups

;-------------------------------------------------------------------------------

; Remove_nths - Removes the RemoveList@ of nths from a list.

; Arguments: 2

;   RemoveList@ = List of nths to remove

;   OldList@ = List to remove the list of nths from

; Returns: A list with the list of nths removed.

;-------------------------------------------------------------------------------

(defun Remove_nths (RemoveList@ OldList@)

  (if (and RemoveList@ OldList@)

    (if (zerop (car RemoveList@))

      (Remove_nths (mapcar '1- (cdr RemoveList@)) (cdr OldList@))

      (cons (car OldList@) (Remove_nths (mapcar '1- RemoveList@) (cdr OldList@)))

    );if

    OldList@

  );if

);defun Remove_nths

;-------------------------------------------------------------------------------

; rtd - Radians to degrees

; Arguments: 1

;   Rad~ = radians

; Syntax: (rtd R)

; Returns: value in degrees.

;-------------------------------------------------------------------------------

(defun rtd (Rad~)

  (* 180.0 (/ Rad~ pi))

);defun rtd

;-------------------------------------------------------------------------------

; Speed - Determines the computer processing speed and sets the global variable

; *speed# which may be used in delay loops.

;-------------------------------------------------------------------------------

(defun Speed (/ Cdate~ Cnt# NewSecond# OldSecond#)

  (setq Cdate~ (getvar "CDATE"))

  (setq NewSecond# (fix (* (- (* (- Cdate~ (fix Cdate~)) 100000)(fix (* (- Cdate~ (fix Cdate~)) 100000))) 10)))

  (repeat 2

    (setq Cnt# 0)

    (setq OldSecond# NewSecond#)

    (while (= NewSecond# OldSecond#)

      (setq Cdate~ (getvar "CDATE"))

      (setq NewSecond# (fix (* (- (* (- Cdate~ (fix Cdate~)) 100000)(fix (* (- Cdate~ (fix Cdate~)) 100000))) 10)))

      (setq Cnt# (1+ Cnt#))

    );while

  );repeat

  (setq *Speed# Cnt#)

  (princ)

);defun Speed

;-------------------------------------------------------------------------------

; StarBurst - Draws a starburst shape

; Arguments: 5

;   CenPt = Center of starburst

;   Dia1~ = Inside diameter

;   Dia2~ = Outside diameter

;   Sides# = Number of points

;   StartAng~ = Radian angle of first point

; Returns: Draws a starburst shape

;-------------------------------------------------------------------------------

(defun StarBurst (CenPt Dia1~ Dia2~ Sides# StartAng~ / Ang~ Ang1~ List@ List1@

  List2@ List3@ Cnt1# Cnt2# Pt)

  (setq Ang~ (/ pi Sides#))

  (setq Ang1~ (+ StartAng~ (/ Ang~ 2.0)))

  (repeat (* Sides# 2)

    (setq Pt (polar CenPt Ang1~ (/ Dia1~ 2.0)))

    (setq List1@ (append List1@ (list Pt)))

    (setq Ang1~ (+ Ang1~ Ang~))

  );repeat

  (setq Ang1~ (+ StartAng~ Ang~))

  (repeat Sides#

    (setq Pt (polar CenPt Ang1~ (/ (+ Dia1~ Dia2~) 4.0)))

    (setq List2@ (append List2@ (list Pt)))

    (setq Ang1~ (+ Ang1~ (* Ang~ 2)))

  );repeat

  (setq Ang1~ StartAng~)

  (repeat Sides#

    (setq Pt (polar CenPt Ang1~ (/ Dia2~ 2.0)))

    (setq List3@ (append List3@ (list Pt)))

    (setq Ang1~ (+ Ang1~ (* Ang~ 2)))

  );repeat

  (setq Cnt1# 0 Cnt2# 0)

  (repeat Sides#

    (setq List@ (append List@ (list (nth Cnt1# List3@))))

    (setq List@ (append List@ (list (nth Cnt2# List1@))))

    (setq Cnt2# (1+ Cnt2#))

    (setq List@ (append List@ (list (nth Cnt1# List2@))))

    (setq List@ (append List@ (list (nth Cnt2# List1@))))

    (setq Cnt2# (1+ Cnt2#))

    (setq Cnt1# (1+ Cnt1#))

  );repeat

  (setq List@ (append List@ (list (nth 0 List3@))))

  (command "_PLINE" (foreach Pt List@ (command Pt)))

  (princ)

);defun StarBurst

;-------------------------------------------------------------------------------

; Switch_nth - Switches the nth Num1# and Num2# item values in a list.

; Arguments: 3

;   Num1# = nth number in list to switch with nth Num2#

;   Num2# = nth number in list to switch with nth Num1#

;   OldList@ = List to switch item values

; Returns: A list with two item values switched.

;-------------------------------------------------------------------------------



(defun Switch_nth (Num1# Num2# OldList@ / Index#)

  (setq Index# -1)

  (if (and (< -1 Num1# (length OldList@)) (< -1 Num2# (length OldList@)))

    (mapcar '(lambda (x) (setq Index# (1+ Index#))

      (cond

        ((= Index# Num2#) (nth Num1# OldList@))

        ((= Index# Num1#) (nth Num2# OldList@))

        (x)

      )) OldList@

    );mapcar

    OldList@

  );if

);defun Switch_nth

;-------------------------------------------------------------------------------

; tan - Tangent of radian degrees

; Arguments: 1

;   radians = Radian degrees

; Returns: Tangent of radian degrees

;-------------------------------------------------------------------------------

(defun tan (radians)

  (/ (sin radians) (cos radians))

);defun tan

;-------------------------------------------------------------------------------

; UniqueName - Creates a unique name for temp blocks and groups

;-------------------------------------------------------------------------------

(defun UniqueName (/ Loop Name$)

  (setq Loop t)

  (while Loop

    (setq Name$ (rtos (getvar "CDATE") 2 8))

    (setq Name$ (strcat (substr Name$ 4 5)(substr Name$ 10 8)))

    (if (/= Name$ *UniqueName$)

      (setq *UniqueName$ Name$ Loop nil)

    );if

  );while

  *UniqueName$

);defun UniqueName

;-------------------------------------------------------------------------------

; ViewExtents

; Returns: List of upper left and lower right points of current view

;-------------------------------------------------------------------------------

(defun ViewExtents (/ A B C D X)

  (setq B (getvar "VIEWSIZE")

        A (* B (/ (car (getvar "SCREENSIZE")) (cadr (getvar "SCREENSIZE"))))

        X (trans (getvar "VIEWCTR") 1 2)

        C (trans (list (- (car X) (/ A 2.0)) (+ (cadr X) (/ B 2.0))) 2 1)

        D (trans (list (+ (car X) (/ A 2.0)) (- (cadr X) (/ B 2.0))) 2 1)

  );setq

  (list C D)

);defun ViewExtents

;-------------------------------------------------------------------------------

(princ)

အဲ့ဒိကုဒ္ေတြကို copy လုပ္ျပီး note pad ထဲမွာျဖစ္ျဖစ္... Auto CAD visual lisp editor မွာျဖစ္ျဖစ္ troy.lsp နာမည္ေလးနဲ့ save လုပ္သိမ္းပါ..
auto CAD command line မွာ ap လို့ရိုက္ျပီး enter ေခါက္...ျပီးရင္ command line မွာ troy လို့ရိုက္ျပီး enter ေခါက္ရင္ စတင္ပစ္ခတ္ႏိုင္ပါျပီ....

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

ခ်န္းခ်န္းေဟာတဲ့ auto CAD အိမ္ေထာင္ေရး ေဗဒင္...ဟိဟိ

2008-12-17T03:56:00.000-08:00

ခ်န္းခ်န္းက programming ဆိုရင္ ေတာ္ေတာ္အားနည္းပါတယ္..
coding ကိုဘယ္ေတာ့မွ အမွားကင္းေအာင္မေရးႏိုင္ေသးပါ၀ူး
အဲ့ဒါေၾကာင့္သူမ်ားေတြကို ခ်ျပရမွာလည္းမ၀ံပါ၀ူး..
ခုေျပာခ်င္တာက auto CAD ေပၚမွာ ေဗဒင္ program ေလးတခု ေရးၾကည့္မိလို့ပါ...
ဒီေဗဒင္ က ဦးပုညရဲ့ေတးထပ္တခုက ယူထားတာပါ...
ေတးထပ္မွာပါတာက အိမ္ေထာင္ျပဳၾကမယ့္ ေယာက်ၤားေလးရဲ့ ေမြးနဲ့ နဲ့ မိန္းကေလးရဲ့ ေမြးနံကိုေပါင္း.. ငါးနဲ့ေျမွာက္ ၇ နဲ့စား ျပီးအၾကြင္းကို ေဟာတာပါ..
ေတးထပ္ကို ေတာ့မရြတ္ျပေတာ့၀ူးေနာ္..
တြက္ၾကည့္ခ်င္ရင္ေတာ့ astro.vlx file ေလးကိုဒီကေဒါင္းလုပ္ဆြဲပါ...
ျပီးရင္ Auto CAD command line မွာ astro လိုရိုက္ျပီး enter ေခါက္ရံုပါပဲ..
Enter your date: ဆိုရင္ တနဂၤေႏြဆို ၁ enter , တနလၤာဆို ၂ enter ....အဲ့လိုပါ...
အပ်င္းေျပေပါ့ဗ်ာ...

ဒါေလးက missing word game ေလးပါ...

2008-12-17T03:53:00.000-08:00

ကေလးကစားနည္းလို့ ေျပာလို့ရေပမယ့္...အတည္လို့သေဘာထားေပးပါ..
သယ္ရင္းမွားရင္ သယ္ရင္ ကိုၾကိဳးဆြဲခ်မယ္ဆို သယ္ရင္းမွားရဲပါ့မလား...
ဒီကစားနည္းမွာ autocad က english vocus... 151 လံုးကို က်ပန္း ေမးမွာျဖစ္ပါတယ္..
သယ္ရင္းမွန္ရင္ၾကိဳးမိန့္ကလြတ္မယ္ေလ...
ကိုယ့္ကုိယ္ကို ၾကိဳးမိန့္က်ျပီးသားလူလို့သေဘာထားျပီး ေနာက္ဆံုးရတဲ့ အခြင့္အေရးနဲ့
လြမ္းလမ္းရွာတဲ့ကစားနည္းေလးပါ...

hm.vlx file ကိုဒီကယူပါ...

မံမီမ်ားႏွင့္ကခုန္ျခင္း...

2008-12-17T03:50:00.000-08:00

ဒါေလးကေတာ့ နဲနဲရင္ခုန္ခ်င္စရာေကာင္းပါတယ္...
မံမီတေကာင္နဲ့ မိတ္ေဆြနဲ့ ၀မ္းဘိုင္၀မ္း ေဆာ့ရမွာပါ...
မိတ္ေဆြက တခါေျပးရင္ တလွမ္းပဲ လွမ္း လို့ရေပမယ့္ မံမီက ၂ လွမ္းလွမ္းႏိုင္တဲ့ ပါ၀ါရိွပါတယ္
ဒါေပမယ့္ ဒီမံမီက ဦးေႏွာက္ကို ပါပါတ္တီးစည္းထားတာတခုကေတာ့ မိတ္ေဆြကံေကာင္းတာပါပဲ...
auto CAD ရဲ့ model space ေပၚမွာ ဆက္လက္ ရူ့စားေစခ်င္ပါတယ္...
မိတ္ေဆြမွာက အသက္ ၃ ခုရိွမယ္.. ဒီကစားနည္းက level 10 အထိ တဆင့္ျခင္းခက္သြားမွာျဖစ္ပါတယ္...
ဘယ္လိုလုပ္ျပီးကစားပြဲစတင္ရမယ္ဆိုတာမေျပာေတာ့၀ူးေနာ္...

.vlx file ကို ဒီကယူပါ...

(ကစားပြဲစတင္ဖို့ mummy လို့ရိုက္ျပီး enter ေခါက္ရမွာပါ.... (ေျသာ္မေျပာေတာ့ပါ၀ူးဆိုမွ))

ငယ္ငယ္တုန္းက Tic Tac Toe ...

2008-12-17T03:42:00.000-08:00

ငယ္ငယ္တုန္းက ေဆာ့ခဲ့ၾကတဲ့ ကစားနည္းေလးပါ..
သိပ္ေတာ့ဦးေႏွာက္ေျခာက္စရာမဟုတ္ပါ၀ူး...
၃ပြဲေလာက္ေဆာ့ျပီးရင္ ကိုယ္ကခ်ည္းပဲႏိုင္ေနလို့ ကြန္ျပဴတာကိုေတာ့ စိတ္မပ်က္သြားနဲ့အံုးေနာ္...
ဒီ vlx file ေလးကို down load လုပ္ပါ
auto CAD ရဲ့ command line မွာ ap .. enter
ျပီးရင္ ttt.vlx ကို load လုပ္ျပီး
command line မွာ ttt လုိ့ရိုက္ျပီး enter ေခါက္ရင္ေဆာ့လို့ရပါျပီ...
အပ်င္းေျပေပ့ါ ဗ်ာ...

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

Auto CAD ျဖင့္ေဆာ့ကစားျခင္း...

2008-12-15T03:50:00.000-08:00

ခ်န္းခ်န္း Auto CAD Drafter ျဖစ္လာခဲ့တဲ့ အခ်ိန္အတြင္းမွာ မညာတမ္း၀န္ခံရရင္ အိေယာင္၀ါးလုပ္ခဲ့ရတဲ့ အခ်ိန္ေတြရိွပါတယ္..
ဆြဲစရာပံုေတြကလည္း ျပီးျပီ.. ဖတ္စရာ help file ၾကီးကလည္း ၾကာေတာ့ ပ်င္းလာတယ္... အဲ့ေတာ့ manager လွမ္းၾကည့္တဲ့ အခ်ိန္ေတြမွာ zooom လုပ္လိုက္ pan လုပ္လိုက္ ေယာင္ေျခာက္ဆယ္လား ေယာင္ ၃၀ လား တခုခုေတာ့ လုပ္ေနမိပါတယ္... အလုပ္မရိွ၀ူးလို့လည္း အေျပာမခံခ်င္လို့ေလ...
ဒါနဲ့ပဲ Auto CAD နဲ့ ကစားဖို့ စတင္ၾကိဳးစားမိတာပါ...
ပထမဆံုးအေနနဲ့ Auto CAD နဲ့ ေလာင္းကစားတာေလးတခုမိတ္ဆတ္ေပးလိုပါတယ္...(အေပ်ာ္ေပ့ါဗ်ာ)
ဒီကစားနည္းမွာ လို မယ့္ Game Board ကို http://www.esnips.com/doc/648015f9-7af9-46c5-8d40-1a276e92df18/roulette
ဒီကယူပါ... ကစားတဲ့အခါလိုမယ့္ .vlx file ကိုေတာ့ http://www.esnips.com/doc/f77da28a-7b93-4e83-b8d0-248f0297248a/PLAY ဒီက ယူေပါ့ ဗ်ာ...
ဒီကစားနည္းကို ၂၀၀၆ ဇူလိုင္ မွာ Paul Silva ေရးသားခဲ့တာျဖစ္ပါတယ္...
၁-download လုပ္ျပီးရင္ roulette.dwg ကို open လုပ္ပါ

၂- command line မွာ ap လို့ရိုက္ျပီး enter ေခါက္ပါ.. ျပီးရင္ download လုပ္ထားျပီးျဖစ္တဲ့ play.vlx ကို load လုပ္ရပါမယ္...

၃- Play .vlx ကို load လုပ္ျပီးျပီဆိုရင္ command line မွာ play လိုရုိက္ျပီး enter ေခါက္ပါ..
ဒါဆိုကစားပြဲစတင္ႏိုင္ပါျပီ...

ကစားပြဲစတင္တဲ့ အခ်ိန္မွာ မိတ္ေဆြမွာ $2000 ရိွထားပါမယ္... (တကယ္ဆိုေကာင္းမယ္ေနာ္) မိတ္ေဆြရံူးရင္အဲ့ဒိထဲက ေလ်ာ့မယ္ ႏိုင္ရင္ တိုးလာမယ္... ေဆာ့ၾကည့္ေစခ်င္ပါတယ္...

What's New in AutoCAD 2009

2008-04-25T10:27:00.000-07:00

AutoCAD® software lets you design, visualize, and document your ideas clearly and efficiently. Autodesk redesigned the user interface of AutoCAD® 2009 software to accelerate tasks, allow commands to be easily found, and help rapidly train new users.

Features

Take a Tour of AutoCAD
See the new features and enhancements in AutoCAD software in this interactive demo.

View Larger

Ribbon
With the ribbon interface, overall drafting productivity is increased as the number of steps to reach a command is decreased. The ribbon interface presents command options in a concise visual format. allowing you to quickly select commands based on the work you're doing . Moving between applications is now quick and intuitive. The ribbon is both customizable and expandable so that it can be optimized for each user and meet each company's standards.

View Larger

ViewCube™ and SteeringWheels™
The ViewCube™ is an interactive tool used to rotate and orient any solid or surface model in AutoCAD. Selecting a face, edge, or corner of the cube brings the model quickly to that predefined orientation. Clicking and holding the ViewCube allows the model to be freely roated in any direction. Since the cube is in a fixed location on the screen, it provides at-a-glance orientation. The ViewCube will be introduced in all Autodesk products as a common tool for working with 3D models.

In addition to allowing quick access to the orbit command, the new SteeringWheels™ tool allows quick access to the pan, center, and zoom commands. The SteeringWheels is highly customizable so you can add walk through commands to help create and record a walk-through of your model.

View Larger

Menu Browser
Reviewing and working with several files is no longer a tedious and time-consuming process. The new menu browser interface allows you to browse files and examine thumbnail images and provides detailed information about file size and file creator. Plus, you can organize recently used files by name, date, or title.

View Larger

Action Recorder
The new action recorder saves time and increases productivity by automating repetitive tasks without requiring the skill or assistance of a professional CAD manager. Users can quickly record a task, add text messages and requests for input, then quickly select and play back recorded files.

View Larger

Layer Dialog
The new layer dialog makes creating and editing layer properties faster and less prone to error. Changes are instantly reflected in the drawing as they are made in the dialog. The manipulation of the dialog box has been simplified, and columns in the dialog can be individually resized so the contents of that column or its title are not truncated. Individual columns can be fixed in place so that the rest of the columns can be scrolled through and referenced to a fixed column such as the layer name.

View Larger

Quick Properties
The easily customizable quick properties menu increases productivity by reducing the steps to access properties information, ensuring that information presented is optimized for that particular user and project.

View Larger

Quick View
The quick view feature uses thumbnails instead of file names, making opening the correct drawing file and layout faster and decreasing the time spent opening incorrect dra

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

2008-04-07T14:07:00.001-07:00

3d soccer flashThis is my created flash animation file , but have no voice. For point file, Click herelisp
to download.

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

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

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

2008-04-06T09:27:00.000-07:00

Whichever may be, really interested thing. Actually auto CAD is not suitable for like that model . But I thought is that flash file is not so bad. I have been temporary remove my bad vocal, I don't wanna to get ur listening pain lol...:D
ဘာပဲျဖစ္ျဖစ္ စိတ္၀င္စားစရာေတာ့ေကာင္းပါတယ္...
တကယ္တန္းက auto CAD ဟာ ဒီလို model ေတြဆြဲဖို့အတြက္ဆိုရင္ေတာ့သိပ္မသင့္ေတာ္မွန္းသိပါတယ္
ဘာပဲျဖစ္ျဖစ္ ပံုေလးျဖစ္ေအာင္ဆြဲလို့ရႏိုင္တာေလးတခုကေတာ့စိတ္ေက်နပ္စရာေကာင္းပါတယ္...
ဒီလင့္ ကေန flash file ေလးယူၾကည့္ႏိုင္ပါတယ္ေနာ္ ခ်န္းခ်န္းရဲ့ ငွက္ဆိုးထိုးသံေလးကို ခနျဖဳတ္ထားတယ္ ..ခုႏွစ္ရက္သားသမီးကို အသံနဲ့မႏိွပ္စက္ခ်င္လို့... :D

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

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

2008-03-24T09:24:00.000-07:00

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

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

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

2008-03-22T22:56:00.000-07:00

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

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

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

2008-02-29T16:49:00.001-08:00

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

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

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

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

2008-02-29T07:34:00.000-08:00

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

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

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

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

ဆလင္ဒါထဲကေန ခုနက rev လုပ္ထားတဲ့ ကေတာ့ပံုႏွစ္ခုက္ subtract လုပ္ျခင္းျဖင့္ ခ်န္းခ်န္းလိုခ်င္တဲ့ shape ေလးကို ပံုေဖၚမွာပါ..

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

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

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

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

2008-02-27T05:46:00.000-08:00

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 အတြက္ ...

2008-02-25T08:01:00.000-08:00

အခ်ိန္သိပ္မရလိုက္လို့ ျဖစ္ကတတ္ဆန္းျဖစ္သြားပါတယ္..
အမွားကိုသိတဲ့သူေတြ ျပင္ေပးမယ္ဆိုရင္လည္း လက္ခံပါတယ္..
ဒီ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")


)

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

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

2008-02-24T00:48:00.000-08:00

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

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 (list (* r 1.15470054) (* r 0) 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 -0.57735027) (* r 1) 0))(cons 70 192)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 -159)(cons 72 -158)(cons 73 -157)(cons 74 -156)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 -156)(cons 72 -157)(cons 73 -155)(cons 74 -154)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 153)(cons 72 152)(cons 73 151)(cons 74 150)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 152)(cons 72 149)(cons 73 148)(cons 74 151)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 149)(cons 72 147)(cons 73 146)(cons 74 148)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 147)(cons 72 145)(cons 73 144)(cons 74 146)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 145)(cons 72 143)(cons 73 142)(cons 74 144)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 143)(cons 72 141)(cons 73 140)(cons 74 142)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 139)(cons 72 138)(cons 73 137)(cons 74 136)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 138)(cons 72 135)(cons 73 134)(cons 74 137)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 135)(cons 72 133)(cons 73 132)(cons 74 134)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 133)(cons 72 131)(cons 73 130)(cons 74 132)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 131)(cons 72 129)(cons 73 128)(cons 74 130)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 129)(cons 72 127)(cons 73 126)(cons 74 128)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 125)(cons 72 124)(cons 73 123)(cons 74 122)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 124)(cons 72 121)(cons 73 120)(cons 74 123)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 121)(cons 72 119)(cons 73 118)(cons 74 120)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 119)(cons 72 117)(cons 73 116)(cons 74 118)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 117)(cons 72 115)(cons 73 114)(cons 74 116)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 115)(cons 72 113)(cons 73 112)(cons 74 114)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 111)(cons 72 110)(cons 73 109)(cons 74 108)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 110)(cons 72 107)(cons 73 106)(cons 74 109)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 107)(cons 72 105)(cons 73 104)(cons 74 106)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 105)(cons 72 103)(cons 73 102)(cons 74 104)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 103)(cons 72 101)(cons 73 100)(cons 74 102)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 101)(cons 72 99)(cons 73 98)(cons 74 100)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 97)(cons 72 96)(cons 73 95)(cons 74 94)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 96)(cons 72 93)(cons 73 92)(cons 74 95)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 93)(cons 72 91)(cons 73 90)(cons 74 92)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 91)(cons 72 89)(cons 73 88)(cons 74 90)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 89)(cons 72 87)(cons 73 86)(cons 74 88)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 87)(cons 72 85)(cons 73 84)(cons 74 86)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 83)(cons 72 82)(cons 73 81)(cons 74 80)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 82)(cons 72 79)(cons 73 78)(cons 74 81)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 79)(cons 72 77)(cons 73 76)(cons 74 78)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 77)(cons 72 75)(cons 73 74)(cons 74 76)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 75)(cons 72 73)(cons 73 72)(cons 74 74)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 73)(cons 72 71)(cons 73 70)(cons 74 72)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 158)(cons 72 140)(cons 73 150)(cons 74 159)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 157)(cons 72 69)(cons 73 140)(cons 74 158)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 155)(cons 72 68)(cons 73 69)(cons 74 157)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 154)(cons 72 122)(cons 73 68)(cons 74 155)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 156)(cons 72 67)(cons 73 122)(cons 74 154)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 159)(cons 72 150)(cons 73 67)(cons 74 156)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 -66)(cons 72 -66)(cons 73 141)(cons 74 -143)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 -66)(cons 72 -66)(cons 73 65)(cons 74 -64)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 -66)(cons 72 -66)(cons 73 63)(cons 74 -62)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 -66)(cons 72 -66)(cons 73 61)(cons 74 -60)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 -66)(cons 72 -66)(cons 73 59)(cons 74 -58)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 -66)(cons 72 -66)(cons 73 57)(cons 74 -56)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 -66)(cons 72 -66)(cons 73 127)(cons 74 -129)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 -66)(cons 72 -66)(cons 73 129)(cons 74 -55)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 -66)(cons 72 -66)(cons 73 54)(cons 74 -53)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 -66)(cons 72 -66)(cons 73 52)(cons 74 -51)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 -66)(cons 72 -66)(cons 73 50)(cons 74 -49)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 -66)(cons 72 -66)(cons 73 48)(cons 74 -47)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 -66)(cons 72 -66)(cons 73 113)(cons 74 -115)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 -66)(cons 72 -66)(cons 73 46)(cons 74 -45)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 -66)(cons 72 -66)(cons 73 44)(cons 74 -43)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 -66)(cons 72 -66)(cons 73 42)(cons 74 -41)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 -66)(cons 72 -66)(cons 73 40)(cons 74 -39)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 -66)(cons 72 -66)(cons 73 38)(cons 74 -37)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 -66)(cons 72 -66)(cons 73 36)(cons 74 -35)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 -66)(cons 72 -66)(cons 73 34)(cons 74 -33)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 -66)(cons 72 -66)(cons 73 32)(cons 74 -31)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 -66)(cons 72 -66)(cons 73 30)(cons 74 -29)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 -66)(cons 72 -66)(cons 73 28)(cons 74 -27)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 -66)(cons 72 -66)(cons 73 26)(cons 74 -25)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 -66)(cons 72 -66)(cons 73 24)(cons 74 -23)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 -66)(cons 72 -66)(cons 73 22)(cons 74 -21)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 -66)(cons 72 -66)(cons 73 20)(cons 74 -19)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 -66)(cons 72 -66)(cons 73 18)(cons 74 -17)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 -66)(cons 72 -66)(cons 73 16)(cons 74 -15)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 -66)(cons 72 -66)(cons 73 14)(cons 74 -13)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 -66)(cons 72 -66)(cons 73 12)(cons 74 -11)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 -66)(cons 72 -66)(cons 73 10)(cons 74 -9)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 -66)(cons 72 -66)(cons 73 8)(cons 74 -7)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 -66)(cons 72 -66)(cons 73 6)(cons 74 -5)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 -66)(cons 72 -66)(cons 73 4)(cons 74 -3)))

(entmake (list (cons 0 "VERTEX")(cons 10 (list (* r -0.57735027) (* r 1) 0))(cons 70 128)(cons 71 -66)(cons 72 -66)(cons 73 2)(cons 74 -1)))

(entmake (list (cons 0 "SEQEND")))

(entlast))

အဲ့ဒိ code ေတြကို copy ကူးျပီး notepad ထဲမွာ bolthead.lsp ဆိုတဲ့ နာမည္နဲ့ မိမိစက္ထဲက တေနရာရာမွာ save လုပ္လိုက္ပါ...
autocad command line မွာ ap လို့ရိုက္ျပီး enter ေခါက္ရင္ loadapplication dialoug box ေပၚပါမယ္..
မိမိဖန္တီးခဲ့တဲ့ bolthead.lsp ကိုload လုပ္ျပီး load application dialoug box ကို close လုပ္ပါ..
autocad command line မွာ bolthead လို့ရိုက္ျပီး enter ေခါက္ျကည့္ပါ...
Wrench Sizeကို ေမးပါလိမ့္မယ္..(တခုခုထည့္ေပးပါ)
Both Side Height ကိုလည္း ကိန္းတခုထည့္ေပးရင္ bolt head တခုကို ရရိွပါလိမ့္မယ္.....
ရလာတဲ့ object ဟာ solid ေတာ့မဟုတ္ပါဘူး...polyface mesh တခုပါ......

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

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

2008-02-24T00:27:00.000-08:00

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

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

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

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

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

Auto CAD ကို အသံုးျပဳျပီးNut ေခါင္းတခု ဆြဲၾကည့္ျခင္း....

2008-02-22T07:06:00.001-08:00

mechanical drawing ေတြတိုင္းေလာက္နီးနီး မကင္းႏိုင္တဲ့ပစၥည္းေလးေတြပါ...
ပထမဦးစြာ auto CAD command line မွာ အနား၆ ဘက္ပါတဲ့ ပိုလီဂြန္ေလးကို pol (enter) လို့ရိုက္ျပီးွဆြဲရပါမယ္.
အဲ့ဒိ ဆဌဂံရဲ့ အတြင္းထိတဲ့ စက္၀ိုင္းေလးတ၀ိုင္းပါဆြဲထားရပါမယ္..

ျပီးရင္ေတာ့ ထံုးစံအတိုင္း ext (enter ေခါက္) ျပီးအထူတခုနဲ့ ဒု တင္ရေအာင္ေလ..

polygon ကိုပဲ extrude အရင္လုပ္ထားရမွာေနာ္..ျပီးရင္ အတြင္းထဲက စက္၀ိုင္းကိုေတာ့ tapper angle ကို ၄၅ ဒီဂရီေပးျပီး extrude

ျပီးရင္ဟိုဘက္ဒီဘက္ရဖို့ အတြက္ကေတာ့
mirror command ကိုသံုးလိုက္တာလြယ္တာေပါ့...

ျပီးရင္သံုးခုလံုးကို intersection လုပ္လိုက္ရံုနဲ့
ခ်န္းခ်န္းတို့လိုခ်င္တဲ့ Nut တလံုးရျပီေလ...
ဆြဲၾကည့္ပါေနာ္ အဆင္ေျပ မွာပါ....

intersection အတြက္command က
in (enter)
ပဲေလ....

Thread အတြက္ ကေတာ့ ေနာက္မွထပ္တင္ေတာ့မယ္ ...ေနာ္..
ခင္မင္ေလးစားလ်က္..
ခ်န္းခ်န္း (ေမာင္မိုင္း)

Chapter-3

2008-02-03T02:44:00.000-08:00

Lesson 3.1
Lesson 3.2
Lesson 3.3
Lesson 3.4
Lesson 3.5
Lesson 3.6
Lesson 3.7
Lesson 3.8
Lesson 3.9
Lesson 3.10
Lesson 3.11
Lesson 3.12

Chapter-2

2008-02-02T21:51:00.000-08:00

Lesson-2
Lesson-2.1
Lesson-2.2
Lesson-2.3
Lesson-2.4
Lesson-2.5
Lesson-2.6
Lesson-2.7
Lesson-2.8
Lesson-2.9

Chapter-1

2008-02-02T21:48:00.000-08:00

Lesson-1

ပထမဆံုး Auto CAD စတင္ဖို့ပါ... ခ်န္းခ်န္းရဲ့မသိနားမလည္မႈမ်ားေၾကာင့္ အသံအရည္အေသြးညံ့ဖ်င္းမႈႏွင့္
စကားေျပာ အဆင္မေျပသည္မ်ားကို သီးခံခြင့္လႊတ္ေပးႏိုင္ဖို့ေမွ်ာ္လင့္ပါတယ္...
ဒီ post ကို လုပ္ျဖစ္တာဟာ ခ်န္းခ်န္းကို ကဲ့ရဲ့ၾကမွာကို လိုခ်င္လို့မဟုတ္ေပမယ့္ အမွန္တကယ္ လိုအပ္သူမ်ားအတြက္ ေစတနာပါတယ္ဆိုတာေတာ့ ေသခ်ာပါတယ္..
အစပိုင္း flash file .swf ေတြကို ကိုယ့္ဘာသာလညး္စိတ္ေက်နပ္မႈမရိွေပမယ့္ အသစ္ျပန္လုပ္ဖို့ကိုလညး္ အခ်ိန္နဲ့ အေျခအေနက မေပးေတာ့ တာေၾကာင့္ ဒီအတုိင္းပဲတင္လိုက္ရပါတယ္.......
ေက်နပ္ႏွစ္သိမ့္ႏိုင္ၾကပါေစ....

Microstation ကို စတင္ျခင္း......

2007-12-24T07:52:00.000-08:00

Microstation ဆိုတာ Auto CAD အသံဳးျပဳသူေတြ သိထားသင့္တဲ့
software တခုပါပဲ...ခ်န္းခ်န္း ရဲ့ ဘေလာဂ္ကို အားေပးတဲ့သူေတြကို
ၾကိဳတင္ေျပာျပထားခ်င္တာက ခ်န္းခ်န္းရဲ့ flash ဖိုင္ေတြက
connection အေပၚမူတည္ျပီး အတန္ငယ္ ေႏွးႏိုင္ပါတယ္..
အေကာင္းဆံဳးအၾကံေပးခ်င္တာက download လုပ္ျပီးၾကည့္တာက
ပိုအဆင္ေျပႏိုင္ပါတယ္...ခ်န္းခ်န္း ရဲ့အခ်ိန္ရွားပါးမႈေၾကာင့္ ဒီဘေလာဂ္
ေလးရဲ့အားနည္းခ်က္မ်ားကို နားလည္ခြင့္လႊတ္ေပးၾကပါလို့....
Microstation ကို ဒီကစလိုက္ရေအာင္ေနာ္....

ဒါက ဒုတိယ ေနာက္ဆက္တြဲ.....