Autodraw Home Page

Find Text 5t.lsp

Must load subs.lsp

Autolisp Programs for Autocad

Buy Autolisp

Autodraw Home

Autolisp in Autodraw2.zip

3d Excitement Sample

Basic Commands Tutorial

News Release

Stand Alone Lsps

Welcome

Autolisp Programs worked on Autocad 11 - Autocad 2007

Tested and worked on XP, Vista 32, Vista 64

Works with Vista Certification process Completed

Read Me

Autodraw Version 2.0

Double Click to run in Autocad

Download Tester

Drawing with layers named 0 thru 9

3d Elevation Any Ucs Pick Point - evv
3d Elevation World Pick Point - ev
3d Hole Diameter D - ho
3d Make Shell - 3sh
3d Origin To Z = D - zor
3d Pline Pick 2 Adjacent Edges - g4
3d project line to xy - tww
3d Rotate Last 90 Any Ucs - vc
3d Select & Move To Z = 0 - p0
3d Setup Command - 3s
3d Slice At Near - scn
3d Subtract Command - sbb
3d Subtract Pick Two 3dsolids - sb
3d Ucs Front - uf
3d Ucs Left - ul
3d Ucs Previous - up
3d Ucs Restore - ur
3d Ucs Save - us
3d Ucs View - uv
3d Ucs World - uw
3d Ucs X 90 - ux
3d Ucs Y 90 - uy
3d Ucs Z 90 - uz
3d Union Command - unn
3d Union Pick 2 - un
3dorbit - 3r
3dsolid Add D To Length - adz
3dsolid Copy + Union By D Last - cu
3dsolid Copy + Union By D Pick - cuu
3dsolid Slice Along Z Save Both - bv
3dsolid Subtract D From Length - iy
Add 1 To Last Number On Screen - a1
Add 1 To Number On Screen Pick - a11
Add Distances Select Lines - add
Add Inches To Variable D - aby
Add Numbers On Screen - ad
Add To D Millimeters - amm
Align Crossing Multiple Objects - ac
Align Text In Horizontal Left Just - y6
Align Text In Horizontal Mid Just - y6m
Align Text With Leader Left Side - r5
Align Text With Leader Right Side - r6
Angle Variable a = a x 2.0 - a2
Angle Variable a = a/2.0 - ha
Arrows At Ends Of Lines - aa
Attreq Command - aq
Attributes From Insert To Text - af
Block At 0,0 Bname Redefine - b00
Block At Origin New - b0
Block Command Using Bname Variable - bb
Block Drawing To Bname At 0,0 - dwg
Block List - bbb
Break At Word Number Pick Text - bw
Break Command - br
Break Intersecting Lines - bi
Break Long Side Of Line - bl
Break Short Side Of Line - bs
Centerline Command - cli
Change Entity Colors All - chh
Change Entity Colors Select - ch
Change Linetype To ty - 55
Circle Command - cr
Circle Diameter D - cd
Circle Diameter D At Origin - cd0
Circle Half Circle On Line - hc
Circle On Arc Or Circle + Move - coc
Circle On Line As Diameter - crl
Clipboard Restore Entities - 4e
Clipboard Restore Entity - 4d
Clipboard Send Entity To Memory Pick - d4
Clipboard Send Last Entity To Memory - d4l
Color Bylayer All - byy
Color Bylayer Select Entities - by
Copy Center to Center - ccc
Copy Crossing Near to Perpendicular - cx
Copy Last Entity X-Direction Distance D - xd
Copy Last Entity Y-Direction Distance D - yd
Copy Last Entity Z-Direction Distance D - zd
Copy Last From Its Insert Point - cc
Copy Window Near to Perpendicular - cw
Crosshairs To A Degrees - ssa
Crosshairs To Last Entity + Move - ytt
Crosshairs To Last Line, Text, Insert - yt
D = D Times Dimscale - dds
Delete Last But 1 Entity - 4
Dim Diameter - ddia
Dim Edit Dim Location - dw
Dim Edit Dim Location Last - dq
Dim Horizontal - dh
Dim Last Line - y77
Dim Line Single Pick - y7
Dim Radius - drad
Dimension Aligned - dma
Dimension Angle - dn
Dimension Text To Existing Text - dte
Dimension Update Last Dimension - dul
Dimension Update Single - dus
Dimension Vertical - dv
Dimensions Update With Crossing Window - duc
Dimscale Command - dm
Dimstyle Save Current With Overrides - ssy
Dimstyle Set Current Pick Dimension - sds
Distance (Length) And Angle Of Last Line - dl
Distance And Angle of Line Pick Line - p
Distance D From Near To Perpendicular - dnp
Distance D To Dimension Text - dtd
Distance D To Fractional (Decimal) Feet - frf
Distance Set D To D Divided By 2 - hd
Distance Set D To D Times 2 - d2
Distance Set D to Meters - sm
Distance Set D to Millimeters - smm
Distance Set Distance - sd
Distance Set Feet And Inches Only - fi
Distance Set Feet Inches 1/16ths - sdd
Distance Set Feet Only - ft
Distance Set Fillet Radius Variable Fr - sr
Distance Set Inches And Sixteenths - i6
Distance Set Variable D To 1/16ths Only - 16
Distance Set X And Stretch - sxx
Distance Set X Distance Between 2 Points - sx
Distance Set Y And Stretch - syy
Distance Set Y Distance Between 2 Points - sy
Distance Set Z And Stretch - szz
Distance Set Z Distance Between 2 Points - sz
Divide D By Number - dby
Drawing Name Prompt - gn
Drawing Scale & Text Height Set - ds
Edit Attribute Single Without Dialog - ea
Erase All Entities In Database - ew
Erase All Points - -p
Erase All Remove Window - e2
Erase Crossing Repeating - 5
Erase Single - es
Explode Block And Save Entities - xe
Explode Inserts Global - xg
Explode One - [
Export Text - xt
Extend Entire Drawing - 5t
Extend Last Line To First Object - jy
Extend Lines To Line - 6
Extend Or Trim To First Intersections - fg
Extrude Along Path - eex
Extrude Equally In Z Direction Pick - xee
Extrude Last - ex
Extrude Pick - exx
Fillet 3dsolid Edge Radius D - 3f
Fillet Radius Set Fr = D - frd
Fillet With Fillet Radius = 0 - f
Fillet With Fillet Radius = Fr - fr
Find Dimstyles - fd
Go (Select & Move) Entity From Insert - gi
Go (Select & Move) Entity From Mid - gm
Go (Select & Move) Entity Near To Perp - gb
Go (Select & Move) Mid Justified Text - gw
Go (Select And Move) Entity From Near - ge
Hatch Properties Pick Bhatch - hp
Insert Block Rotate To Line - iba
Interfere Pick Two 3dSolids - fe
Join Last - jla
Join Line - jli
Keep Layer 0 Only - =0
Keep Layer Of Entity Picked On Only - =
Keep Layer Text Only - =t
Last Line Rotate From End Point -90 - rre
Last Line Rotate From Start Point -90 - rrs
Last To Current Layer - tcc
Layer - Change To Current Layer - tc
Layer Keep Layer In Variable Lay Only - ==
Layer Lock Layer Pick - lkp
Layer Make Layer In Variable Lay - mll
Layer Name Off In Variable Lay - --
Layer Off All - 9
Layer Off Dim - -d
Layer Off Pick Entity - -
Layer Off Text - -t
Layer Set Last Entity's Layer Current - =l
Layer Set Layer Pick - 8
Layer Set Layer Pick - 88
Layer Unlock Layer Pick - ulp
Layers Change To Layer In Variable Lay - 3
Layers Keep Layers - kp
Layers Lock All But Current Layer - lk
Layers Off Crossing Window - -l
Layers On All - 7
Layers Restore Layers - rla
Layers Unlock All Layers - ull
Layers Unlock Thaw And On All - 888
Leader - qw
Leader Edit Start Point - qwe
Leader One Segment Near To End - dd
Leader Two Segments Near To End - ddd
Line At Angle A Length D - dr
Line From Center - l[
Line From Current Origin - l0
Line From End Ortho Off - ,,
Line From End Ortho On - ,
Line From End To First Intersection - ,,,
Line From End To Perpendicular - 0p
Line From Insert - li
Line From Intersection - vn
Line From Mid Point Of Two Points - mi
Line From Near To Perpendicular - np
Line Horizontal Between Objects - hf
Line Length D Horizontal View Center - hv
Line To Z = 0 - lz0
Line Vertical To Nearest Intersections - vf
Lines Divide Space Between Two Lines - ldiv
Make Last - ml
Make Layers - mla1
Make Layers 0 - 9 - mla
Mirror Across Line (Keep Old Objects) - mir
Mirror Across Line Delete - mird
Mirror Across Perp At Mid Keep Old - mip
Mirror Across Perp At Mid Point Delete - mipd
Mirror Last Across Line - Pick Line - mil
Mirror Last Across Perpendicular At Mid - milp
Move Last - n
Move Last Entity From Its Insert Point - nn
Move Till Interfere - mti
Move To Last Line - mtll
Move X-Direction Last Entity Distance D - mx
Move Y-Direction Last Entity Distance D - my
Move Z-Direction Last Entity Distance D - mz
Multiply D By Number (D = D x Number) - mby
Negative Angle A - nga
Negative Distance D - ng
Numbers In Sequence At Distance D - nis
Offset Distance D - oo
Offset Last Line To Left - jh
Offset Last Line To Right - hj
Offset Lines Equally Both Sides - gg
Pan D X-Direction - pn
Pasteblock and set bname variable - pbl
Pick Insert For Bname - pi
Pick Radius - prad
Pick Text For D - pd
Pipes On Lines Select Lines - pip
Pline Width Change Arcs Circles Lines - pw
Purge All - ppa
Purge Blocks - ppb
Purge Bname - pbn
Purge Dimstyles - ppd
Purge Layer Name - pln
Purge Layers - ppl
Read File Left Justified - rf
Read File Mid Justified - rfm
Rectangle At Angle With 3 Points - raa
Rectangle D From Last Line Left - kh
Rectangle D From Last Line Right - hk
Rectangle Polyline With 2 Points - gt
Rectangle Using B and D - rg
Rename Block - reb
Restore Entities Saved With e3 - 3e
Restore Parameters And Prompt Variables - 1
Reverse Last Line - r4
Rotate Till Interfere - rti
Scale Arrow Single - sca
Scale Crossing To Scale Factor - scf
Scale Factor From Two Inserts - sfi
Scale Factor From Two Text Sizes - sft
Scale Factor Pick Insert - pk
Scale Factor Pick Two Lines - sf
Scale One Entity From Its Insert Point - ss
Scale Window To Scale Factor - swf
Section At Current X-Y Plane - sec
Select And Align Single Pick Pick - e5
Select And Copy From End - ce
Send Entities To Memory 3e Restores - e3
Send Entities To Memory 4e Restores - e4
Set A Degrees - de
Set Angle Pick 2 Lines - sa
Set Architectural Units - ah
Set B To D - sbd
Set Block Name - nm
Set Crosshairs - xh
Set Decimal Units - dec
Set Degrees Minutes And Seconds - dms
Set Layer + Lock Rest Pick - 8l
Set Layer 0 Current - 0
Set Layer Name In Variable Lay - 2
Set Pc Precision Variable - pc
Set Pcc Precision Variable - pcc
Set Sf Scale Factor Variable - ssf
Set Variables To Nil - tni
Set X-Direction Pick Line - xr
Set Z-Direction Pick Line - zr
Slice 3dSolid (Last Entity) And Move Last - sc
Slice 3dSolid And Move Last - Pick 3dSolid - cs
Slice 3dSolids - Select 3dSolids - vx
Spell Check Select Text - scc
Stretch Distance D Along X - tx
Stretch Distance D Along Y - ty
Stretch Distance D Along Z - tz
Stretch To Last Line - ju
Subtract 1 From Last Number On Screen - s1
Subtract 1 From Number On Screen Pick - s11
Subtract Number From D - sby
Subtract One 3dsolid From Another - bt
Switch Last Move Last - ws
Switch Last Two Entities - sw
Text Align Above Line - t6
Text Align Left Justified + Move - jl
Text Align Mid Justified + Move - jm
Text Align Right Justified + Move - jr
Text Copy Text Contents To Destination Text - xc
Text Height Prompt - th
Text Height Set New - ht
Text Height To 0.0 - ht0
Text Join Two Texts Left Justified - jtl
Text Join Two Texts Mid Justified - jt
Text Justification To Left - jll
Text Justification To Mid - jmm
Text Justification To Mid Global - jg
Text Justification To Right - jrr
Text or Attribute Copy From To - fa
Text Pick Text Parameters - tp
Text Type Text Again Left Justified - ta
Text Type Text Again Mid Justified - tm
Text Underline Multiple - tuu
Text Underline Single - tu
Text Upper Case Left Justified - uc
Trim - Entire Drawing - t5
Trim Last - tt
Type A Degrees on Screen - tye
Type Distance D Architectural Units - tya
Type Distance D Both Units - tyb
Type Distance D Decimal Units - tyd
Type Distance D Meters - tym
Type Distance D Millimeters - tymm
Ucs Entity - Pick Entity - ue
Ucs Front - uf
Ucs Left - ul
Undo Back - Carefully! - ub
Undo Mark - um
Update Block To That On Hard Drive - i=
View Direction - Enter Two Angles - vd
View Restore - vr
View Save - vs
Vport Scale - Set - Enter Vport Scale Factor - vse
Vport Scale Show - vge
Wblock Bname - Overwrite - bny
Wblock Bname - wbn
Write One Line To Script File - w1
Zoom 0.2x - z2
Zoom 0.8x - z8
Zoom Extents - ze
Zoom Extents And Zoom 0.8x - z4
Zoom Previous - zs
Zoom Window - zw