Примеры кодов

Примеры демонстрируют, как объединить VBA с мощью интерфейса ActiveX c AutoCAD, для его эфективного использования.

Код может быть скопирован непосредственно в AutoCAD VBA. Перед выполнением примера, активный рисунок AutoCAD должен быть пустым и открытым в пространстве модели.

A

action пример  

activate пример  

activate_method пример  

active пример  

activedimstyle пример  

activedocument пример  

activelayer пример  

activelayout пример  

activelinetype пример  

activeprofile пример  

activepviewport пример  

activeselectionset пример  

activespace пример  

activetextstyle пример  

activeucs пример  

activeviewport пример  

adcinsertunitsdefaultsource пример  

adcinsertunitsdefaulttarget пример  

add пример  

add3dface пример  

add3dmesh пример  

add3dpoly пример  

addarc пример  

addattribute пример  

addbox пример  

addcircle пример  

addcone пример  

addcustomobject пример  

addcylinder пример  

adddim3pointangular пример  

adddimaligned пример  

adddimangular пример  

adddimdiametric пример  

adddimordinate пример  

adddimradial пример  

adddimrotated пример  

addellipse пример  

addellipticalcone пример  

addellipticalcylinder пример  

addextrudedsolid пример  

addextrudedsolidalongpath пример  

addfitpoint пример  

addhatch пример  

additems пример  

addleader пример  

addlightweightpolyline пример  

addline пример  

addmenuitem пример  

addminsertblock пример  

addmline пример  

addmtext пример  

addobject пример  

addpoint пример  

addpolyfacemesh пример  

addpolyline пример  

addpviewport пример  

addraster пример  

addray пример  

addregion пример  

addrevolvedsolid пример  

addseparator пример  

addshape пример  

addsolid пример  

addsphere пример  

addspline пример  

addsubmenu пример  

AddTable пример  

addtext пример  

addtolerance пример  

addtoolbarbutton пример  

addtorus пример  

addtrace пример  

addvertex пример  

addwedge пример  

addxline пример  

addxrecord пример  

AffectsGraphics пример  

algorithm пример  

alignment пример  

alignmentpointacquisition пример  

allowlongsymbolnames пример  

altfontfile пример  

altpstemplate пример  

altrounddistance пример  

altsuppressleadingzeros пример  

altsuppresstrailingzeros пример  

altsuppresszerofeet пример  

altsuppresszeroinches пример  

alttabletmenu пример  

alttextprefix пример  

alttextsuffix пример  

alttoleranceprecision пример  

alttolerancesuppressleadingzeros пример  

alttolerancesuppresstrailingzeros пример  

alttolerancesuppresszerofeet пример  

alttolerancesuppresszeroinches пример  

altunits пример  

altunitsformat пример  

altunitsprecision пример  

altunitsscale пример  

angle пример  

angleformat пример  

anglefromxaxis пример  

angletoreal пример  

angletostring пример  

anglevertex пример  

annotation пример  

appactivate пример  

appdeactivate пример  

appendinnerloop пример  

appenditems пример  

appendouterloop пример  

appendvertex пример  

application пример  

arclength пример  

arcsmoothness пример  

area пример  

arraypolar пример  

arrayrectangular пример  

arrowhead1block пример  

arrowhead1type пример  

arrowhead2block пример  

arrowhead2type пример  

arrowheadblock пример  

arrowheadsize пример  

arrowheadtype пример  

arxloaded пример  

arxunloaded пример  

associativehatch пример  

attachexternalreference пример  

attachmentpoint пример  

attachtoolbartoflyout пример  

auditinfo пример  

autoaudit пример  

automaticplotlog пример  

autosaveinterval пример  

autosavepath пример  

autosnapaperture пример  

autosnapaperturesize пример  

autosnapmagnet пример  

autosnapmarker пример  

autosnapmarkercolor пример  

autosnapmarkersize пример  

autosnaptooltip пример  

autotrackingveccolor пример  

autotracktooltip пример  

B

BackgroundFill пример  

backward пример  

basepoint пример  

batchplotprogress пример  

beeponerror пример  

beginclose пример  

begincommand пример  

BeginDocClose пример  

begindoubleclick пример  

beginfiledrop пример  

beginlisp пример  

beginmodal пример  

beginopen пример  

beginplot пример  

beginquit пример  

beginrightclick пример  

beginsave пример  

beginshortcutmenucommand пример  

beginshortcutmenudefault пример  

beginshortcutmenuedit пример  

beginshortcutmenugrip пример  

beginshortcutmenuosnap пример  

bigfontfile пример  

bind пример  

block пример  

blocks пример  

Blue пример  

BookName пример  

boolean пример  

brightness пример  

C

canonicalmedianame пример  

caption пример  

center пример  

centermarksize пример  

centerplot пример  

centertype пример  

centroid пример  

certissuer пример  

certsernum пример  

certsubject пример  

check пример  

checkinterference пример  

circumference пример  

clear пример  

clipboundary пример  

clipped пример  

clippingenabled пример  

close пример  

closed пример  

color пример  

ColorBookPath пример  

ColorIndex пример  

ColorMethod пример  

ColorName пример  

columns пример  

columnspacing пример  

configfile пример  

configname пример  

constant пример  

constantwidth пример  

continuousplotlog пример  

contourlinespersurface пример  

contrast пример  

controlpoints пример  

coordinate пример  

coordinates пример  

copy пример  

copyfrom пример  

copyobjects пример  

copyprofile пример  

count пример  

createbackup пример  

CreateEntry пример  

createtypedarray пример  

cursorsize пример  

customdictionary пример  

customscale пример  

D

database пример  

deactivate пример  

decimalseparator пример  

defaultinterneturl пример  

defaultoutputdevice пример  

defaultplotstyleforlayer пример  

defaultplotstyleforobjects пример  

defaultplotstyletable пример  

degree пример  

delete пример  

deleteconfiguration пример  

deletefitpoint пример  

deleteprofile пример  

delta пример  

demandloadarxapp пример  

description пример  

detach пример  

diameter пример  

dictionaries пример  

dimensionlinecolor пример  

dimensionlineextend пример  

dimensionlineweight пример  

dimline1suppress пример  

dimline2suppress пример  

dimlineinside пример  

dimlinesuppress пример  

dimstyles пример  

direction пример  

directionvector пример  

display пример  

displaygrips пример  

displaygripswithinblocks пример  

displaylayouttabs пример  

displaylocked пример  

displayolescale пример  

displayplotpreview пример  

displayproperty пример  

displayscreenmenu пример  

displayscrollbars пример  

displaysilhouette пример  

distancetoreal пример  

dock пример  

dockedvisiblelines пример  

dockstatus пример  

document пример  

documents пример  

drafting пример  

drawingdirection пример  

driverspath пример  

E

elevateorder пример  

elevation пример  

elevationmodelspace пример  

elevationpaperspace пример  

enable пример  

enablestartupdialog пример  

endangle пример  

endcommand пример  

endlisp пример  

endmodal пример  

endopen пример  

endparameter пример  

endplot пример  

endpoint пример  

endsave пример  

endshortcutmenu пример  

endtangent пример  

endundomark пример  

EntityColor пример  

erase пример  

eval пример  

evaluate пример  

explode пример  

export пример  

exportprofile пример  

extensionlinecolor пример  

extensionlineextend пример  

extensionlineoffset пример  

extensionlineweight пример  

extline1endpoint пример  

extline1point пример  

extline1startpoint пример  

extline1suppress пример  

extline2endpoint пример  

extline2point пример  

extline2startpoint пример  

extline2suppress пример  

F

fade пример  

Feature пример  

FieldCode пример  

fieldlength пример  

FileName пример  

files пример  

FileSize пример  

FingerprintGUID пример  

fit пример  

fitpoints пример  

fittolerance пример  

float пример  

floatingrows пример  

flyout пример  

fontfile пример  

fontfilemap пример  

forcelineinside пример  

FoundPath пример  

fractionformat пример  

freeze пример  

fullcrcvalidation пример  

FullFileName пример  

fullname пример  

fullscreentrackingvector пример  

G

generateusagedata пример  

getacadstate пример  

getallprofilenames пример  

getangle пример  

getattributes пример  

getbitmaps пример  

getboundingbox пример  

getbulge пример  

getcanonicalmedianames пример  

getconstantattributes пример  

getcontrolpoint пример  

getcorner пример  

getcustomscale пример  

getdistance пример  

getentity пример  

getextensiondictionary пример  

getfitpoint пример  

getfont пример  

getgridspacing пример  

getinput пример  

getinteger пример  

getinterfaceobject пример  

getinvisibleedge пример  

getkeyword пример  

getlocalemedianame пример  

getloopat пример  

getname пример  

getobject пример  

getorientation пример  

getpapermargins пример  

getpapersize пример  

getplotdevicenames пример  

getplotstyletablenames пример  

getpoint пример  

getprojectfilepath пример  

getreal пример  

getremotefile пример  

getsnapspacing пример  

getstring пример  

getsubentity пример  

getucsmatrix пример  

getvariable пример  

getweight пример  

getwidth пример  

getwindowtoplot пример  

getxdata пример  

getxrecorddata пример  

GradientAngle пример  

GradientCentered пример  

GradientColor1 пример  

GradientColor2 пример  

GradientName пример  

graphicswinlayoutbackgrndcolor пример  

graphicswinmodelbackgrndcolor пример  

Green пример  

gridon пример  

gripcolorselected пример  

gripcolorunselected пример  

gripsize пример  

groups пример  

H

handle пример  

handletoobject пример  

hasattributes пример  

hasextensiondictionary пример  

HatchObjectType пример  

hatchstyle пример  

height пример  

helpfilepath пример  

helpstring пример  

highlight пример  

historylines пример  

horizontalalignment пример  

horizontaltextposition пример  

hwnd пример  

hyperlinkdisplaycursor пример  

hyperlinkdisplaytooltip пример  

hyperlinks пример  

I

imagefile пример  

imageframehighlight пример  

imageheight пример  

imagevisibility пример  

imagewidth пример  

import пример  

importprofile пример  

incrementalsavepercent пример  

index пример  

IndexFDL пример  

IndexOf пример  

initializeuserinput пример  

insertblock пример  

insertinmenubar пример  

insertionpoint пример  

insertloopat пример  

insertmenuinmenubar пример  

intersectwith пример  

invisible пример  

iscloned пример  

islayout пример  

IsModified пример  

isopenwidth пример  

isownerxlated пример  

isperiodic пример  

isplanar пример  

isprimary пример  

isquiescent пример  

isrational пример  

isremotefile пример  

isurl пример  

isxref пример  

item пример  

K

key пример  

keyboardaccelerator пример  

keyboardpriority пример  

keylen пример  

knots пример  

L

label пример  

largebuttons пример  

lastheight пример  

launchbrowserdialog пример  

layer пример  

layeron пример  

layers пример  

layout пример  

layoutcreateviewport пример  

layoutcrosshaircolor пример  

layoutdisplaymargins пример  

layoutdisplaypaper пример  

layoutdisplaypapershadow пример  

layouts пример  

layoutshowplotsetup пример  

layoutswitched пример  

leaderlength пример  

left пример  

length пример  

lenslength пример  

limits пример  

linearscalefactor пример  

LineSpacingDistance пример  

linespacingfactor пример  

linespacingstyle пример  

linetype пример  

linetypegeneration пример  

linetypes пример  

linetypescale пример  

lineweight пример  

lineweightdisplay пример  

lispcancelled пример  

listarx пример  

load пример  

loadacadlspinalldocuments пример  

loadarx пример  

loaddvb пример  

loadshapefile пример  

localeid пример  

lock пример  

logfileon пример  

logfilepath пример  

lowerleftcorner пример  

M

macro пример  

maindictionary пример  

majoraxis пример  

majorradius пример  

mask пример  

maxactiveviewports пример  

maxautocadwindow пример  

mclose пример  

mdensity пример  

measurement пример  

menubar пример  

menufile пример  

menufilename пример  

menugroups пример  

menus пример  

minoraxis пример  

minorradius пример  

mirror пример  

mirror3d пример  

mode пример  

modelcrosshaircolor пример  

modelspace пример  

modeltype пример  

modified пример  

momentofinertia пример  

move пример  

mrunumber пример  

mspace пример  

mvertexcount пример  

N

name пример  

namenomnemonic пример  

nclose пример  

ndensity пример  

new пример  

newdrawing пример  

normal пример  

numberofcontrolpoints пример  

numberofcopies пример  

numberoffaces пример  

numberoffitpoints пример  

numberofloops пример  

numberofvertices пример  

nvertexcount пример  

O

objectadded пример  

objecterased пример  

objectid пример  

objectidtoobject пример  

objectmodified пример  

objectname пример  

objectsnapmode пример  

objectsortbyplotting пример  

objectsortbypsoutput пример  

objectsortbyredraws пример  

objectsortbyregens пример  

objectsortbyselection пример  

objectsortbysnap пример  

obliqueangle пример  

offset пример  

olelaunch пример  

olequality пример  

onmenubar пример  

open пример  

opensave пример  

origin пример  

orthoon пример  

output пример  

ownerid пример  

P

paperspace пример  

paperunits пример  

parent пример  

password пример  

path пример  

patternangle пример  

patterndouble пример  

patternname пример  

patternscale пример  

patternspace пример  

patterntype пример  

perimeter пример  

pickadd пример  

pickauto пример  

pickboxsize пример  

pickdrag пример  

pickfirst пример  

pickfirstselectionset пример  

pickgroup пример  

plot пример  

plotconfigurations пример  

plothidden пример  

plotlegacy пример  

plotlogpath пример  

plotorigin пример  

plotpolicy пример  

plotrotation пример  

plotstylename пример  

plottable пример  

plottodevice пример  

plottofile пример  

plottofilepath пример  

plottype пример  

plotviewportborders пример  

plotviewportsfirst пример  

plotwithlineweights пример  

plotwithplotstyles пример  

polarpoint пример  

polartrackingvector пример  

postscriptprologfile пример  

preferences пример  

preset пример  

primaryunitsprecision пример  

principaldirections пример  

principalmoments пример  

printerconfigpath пример  

printerdescpath пример  

printerpapersizealert пример  

printerspoolalert пример  

printerstylesheetpath пример  

printfile пример  

printspoolerpath пример  

printspoolexecutable пример  

productofinertia пример  

profiles пример  

prompt пример  

promptstring пример  

provname пример  

provtype пример  

proxyimage пример  

purgeall пример  

purgefitdata пример  

putremotefile пример  

Q

QNewTemplate пример  

quieterrormode пример  

quit пример  

R

radiiofgyration пример  

radius пример  

radiusratio пример  

readonly пример  

realtostring пример  

Red пример  

ReferenceCount пример  

refreshplotdeviceinfo пример  

regen пример  

registeredapps пример  

reload пример  

remove пример  

RemoveEntry пример  

removefrommenubar пример  

removehiddenlines пример  

removeitems пример  

removemenufrommenubar пример  

rename пример  

renameprofile пример  

rendersmoothness пример  

replace пример  

resetprofile пример  

restore пример  

reverse пример  

rotate пример  

rotate3d пример  

rotation пример  

rounddistance пример  

rows пример  

rowspacing пример  

runmacro пример  

S

save пример  

saveas пример  

saveastype пример  

saved пример  

savepreviewthumbnail пример  

scaleentity пример  

scalefactor пример  

scalelineweights пример  

scmcommandmode пример  

scmdefaultmode пример  

scmeditmode пример  

SCMTimeMode пример  

SCMTimeValue пример  

secondpoint пример  

sectionsolid пример  

segmentperpolyline пример  

select пример  

selectatpoint пример  

selectbypolygon пример  

selection пример  

selectionchanged пример  

selectionsets пример  

selectonscreen пример  

sendcommand пример  

setbitmaps пример  

setbulge пример  

SetColorBookColor пример  

setcontrolpoint пример  

setcustomscale пример  

setdatabase пример  

setfitpoint пример  

setfont пример  

setgridspacing пример  

setinvisibleedge пример  

setlayoutstoplot пример  

SetNames пример  

setpattern пример  

setprojectfilepath пример  

SetRGB пример  

setsnapspacing пример  

setvariable пример  

setview пример  

setweight пример  

setwidth пример  

setwindowtoplot пример  

setxdata пример  

setxrecorddata пример  

ShadePlot пример  

shortcutmenu пример  

shortcutmenudisplay пример  

showplotstyles пример  

showproxydialogbox пример  

showrasterimage пример  

showrotation пример  

showwarningmessages пример  

sigcomment пример  

sigtimesrvr пример  

singledocumentmode пример  

slicesolid пример  

snapbasepoint пример  

snapon пример  

snaprotangle пример  

solidfill пример  

SortentsTable пример  

split пример  

standardscale пример  

startangle пример  

startbatchmode пример  

startparameter пример  

startpoint пример  

starttangent пример  

startundomark пример  

statusid пример  

storesqlindex пример  

stylename пример  

stylesheet пример  

submenu пример  

SummaryInfo_AddCustomInfo пример  

SummaryInfo_Author пример  

SummaryInfo_Comments пример  

SummaryInfo_GetCustomByIndex пример  

SummaryInfo_GetCustomByKey пример  

SummaryInfo_HyperlinkBase пример  

SummaryInfo_Interface пример  

SummaryInfo_Keywords пример  

SummaryInfo_LastSavedBy пример  

SummaryInfo_NumCustomInfo пример  

SummaryInfo_RemoveCustomByIndex пример  

SummaryInfo_RemoveCustomByKey пример  

SummaryInfo_RevisionNumber пример  

SummaryInfo_SetCustomByIndex пример  

SummaryInfo_SetCustomByKey пример  

SummaryInfo_Subject пример  

SummaryInfo_Title пример  

supportpath пример  

suppressleadingzeros пример  

suppresstrailingzeros пример  

suppresszerofeet пример  

suppresszeroinches пример  

system пример  

sysvarchanged пример  

T

tablesreadonly пример  

Table_Object пример  

taborder пример  

tagstring пример  

target пример  

tempfileextension пример  

tempfilepath пример  

templatedwgpath пример  

tempxrefpath пример  

textalignmentpoint пример  

textcolor пример  

texteditor пример  

textfont пример  

textfontsize пример  

textfontstyle пример  

textframedisplay пример  

textgap пример  

textgenerationflag пример  

textheight пример  

textinside пример  

textinsidealign пример  

textmovement пример  

textoutsidealign пример  

textoverride пример  

textposition пример  

textprecision пример  

textprefix пример  

textrotation пример  

textstring пример  

textstyle пример  

textstyles пример  

textsuffix пример  

texturemappath пример  

textwinbackgrndcolor пример  

textwintextcolor пример  

thickness пример  

TimeStamp пример  

tolerancedisplay пример  

toleranceheightscale пример  

tolerancejustification пример  

tolerancelowerlimit пример  

toleranceprecision пример  

tolerancesuppressleadingzeros пример  

tolerancesuppresstrailingzeros пример  

tolerancesuppresszerofeet пример  

tolerancesuppresszeroinches пример  

toleranceupperlimit пример  

toolbars пример  

ToolPalettePath пример  

top пример  

totalangle пример  

transformby пример  

translatecoordinates пример  

translateids пример  

transparency пример  

truecolorimages пример  

TrueColor_property пример  

TS_BitFlags пример  

TS_FlowDirection пример  

TS_GetAlignment пример  

TS_GetBkColor пример  

TS_GetBkColorNone пример  

TS_GetColor пример  

TS_GetGridColor пример  

TS_GetGridLineWeight пример  

TS_GetGridVisibility пример  

TS_GetTextHeight пример  

TS_GetTextStyle пример  

TS_Header_Suppress пример  

TS_Horzcell_Margin пример  

TS_SetAlignment пример  

TS_SetBkColor пример  

TS_SetBkColorNone пример  

TS_SetColor пример  

TS_SetGridColor пример  

TS_SetGridLineweight пример  

TS_SetGridVisibility пример  

TS_SetTextHeight пример  

TS_SetTextStyle пример  

TS_Title_Suppress пример  

TS_Vertcell_Margin пример  

twistangle пример  

type пример  

U

ucsiconatorigin пример  

ucsiconon пример  

ucsperviewport пример  

ucss пример  

unitsformat пример  

unload пример  

unloadarx пример  

unloaddvb пример  

update пример  

UpdateEntry пример  

upperrightcorner пример  

upsidedown пример  

url пример  

urldescription пример  

urlnamedlocation пример  

used пример  

uselastplotsettings пример  

user пример  

usestandardscale пример  

utility пример  

V

value пример  

vbe пример  

verify пример  

version пример  

VersionGUID пример  

verticalalignment пример  

verticaltextposition пример  

viewportdefault пример  

viewporton пример  

viewports пример  

views пример  

viewtoplot пример  

view_categoryname пример  

view_hasvpassociation пример  

view_layerstatename пример  

view_layoutid пример  

visibilityedge1 пример  

visibilityedge2 пример  

visibilityedge3 пример  

visibilityedge4 пример  

visible пример  

volume пример  

W

wblock пример  

weights пример  

width пример  

windowchanged пример  

windowleft пример  

windowmovedorresized пример  

windowstate пример  

windowtitle пример  

windowtop пример  

workspacepath пример  

X

xrefdatabase пример  

xrefdemandload пример  

xrefedit пример  

xreffadeintensity пример  

xreflayervisibility пример  

xscalefactor пример  

xvector пример  

Y

yscalefactor пример  

yvector пример  

Z

zoomall пример  

zoomcenter пример  

zoomextents пример  

zoompickwindow пример  

zoomprevious пример  

zoomscaled пример  

zoomwindow пример  

zscalefactor пример  

Сайт управляется системой uCoz