Visual LISP 与 ActiveX/VBA 的比较

Visual LISP 与 ActiveX/VBA 的比较

AutoLISP 函数

ActiveX、VBA 或 Visual Basic 6 等价对象

+（加）

+（加运算符）

-（减）

-（减运算符）

*（乘）

*（乘运算符）

/（除）

/（除运算符）

=（等于）

=（等于比较运算符）

/=（不等于）

<>（不等于比较运算符）

<（小于）

<（小于比较运算符）

<=（小于或等于）

<=（小于等于比较运算符）

/=（不等于）

<>（不等于比较运算符）

>（大于）

>（大于比较运算符）

>= （大于或

等于）

>=（大于等于比较运算符）

~（按位取反）

非运算符

1+（递增）

使用 +（加运算符）

1-（递减）

使用 -（减运算符）

abs

Abs 函数

acad_colordlg

未提供

acad_helpdlg

在联机帮助索引中搜索 HELP

acad_strlsort

在联机帮助索引中搜索 SORT

action_tile

使用对话框编辑器

add_list

使用对话框编辑器

ads

AutoCAD.Application.ListADS 方法

alert

MsgBox 函数

and

与运算符

angle

AutoCAD.Application.ActiveDocument.Utility.

AngleFromXAxis 方法

angtof

AutoCAD.Application.ActiveDocument.Utility.AngleToReal 方法

angtos

AutoCAD.Application.ActiveDocument.Utility.

AngleToString 方法

append

使用数组操作函数

apply

未提供

arx

AutoCAD.Application.ListARX 方法

arxload

AutoCAD.Application.LoadARX 方法

arxunload

AutoCAD.Application.UnloadARX 方法

ascii

Asc 函数

assoc

未提供

atan

Atn 函数

atof

CDbl 函数

atoi

CInt 函数

atom

在联机帮助索引中搜索 IS

atoms-family

未提供

autoarxload

未提供

autoload

未提供

Boole

使用逻辑运算符

boundp

在联机帮助索引中搜索 IS

car/cdr

使用数组操作函数

chr

Chr 函数

client_data_tile

使用对话框编辑器

close

AutoCAD.Application.Documents.Close 方法

command

AutoCAD.ActiveDocument.SendCommand 方法

cond

Select Case 语句

cons

使用数组操作函数或 AutoCAD.Application.collection.Add<图元名称> 方法

cos

Cos 函数

cvunit

使用转换函数

defun

关键字函数和 End 函数

dictadd

AutoCAD.Application.ActiveDocument.Dictionaries.Add 方法

dictnext

AutoCAD.Application.ActiveDocument.Dictionaries.Item 方法

dictremove

AutoCAD.Application.ActiveDocument.Dictionaries.

Dictionary.Delete 方法

dictrename

AutoCAD.Application.ActiveDocument.Dictionaries.

Dictionary.Rename 方法

dictsearch

AutoCAD.Application.ActiveDocument.Dictionaries.

Dictionary.GetName 和 GetObject 方法

dimx_tile 和 dimy_tile

使用对话框编辑器

distance

AutoCAD.Application.Utility.GetDistance，用于交互式方法。

distof

未提供

done_dialog

使用对话框编辑器

end_image

使用对话框编辑器

end_list

使用对话框编辑器

entdel

AutoCAD.Application.ActiveDocument.collection_object.

Delete 方法

entget

AutoCAD.Application.ActiveDocument.collection_object.

property 特性

entlast

AutoCAD.Application.ActiveDocument.Modelspace.

Item（总数 - 1）

entmake

AutoCAD.Application.ActiveDocument.Modelspace.

Add<图元名称> 方法

entmakex

AutoCAD.Application.ActiveDocument.Modelspace.

Add<图元名称> 方法

entmod

使用对象的任何读写特性

entnext

AutoCAD.Application.ActiveDocument.collection.Item 方法

entsel

AutoCAD.Application.ActiveDocument.SelectionSets 对象/方法/特性

entupd

AutoCAD.Application.ActiveDocument.Modelspace.object.

Update 方法

eq

未提供

equal

Eqv 运算符

*error*

Error 对象/方法/特性

eval

未提供

exit

AutoCAD.Application.Quit 方法

exp

Exp 函数

expand

未提供

expt

^（指数运算符）

fill_image

使用对话框编辑器

findfile

Dir 函数

fix

Fix、Int、Cint 函数

float

CDbl 函数

foreach

For Each...Next 语句

gc

AutoCAD.Application.ActiveDocument.PurgeAll

gcd

未提供

get_attr

使用对话框编辑器

get_tile

使用对话框编辑器

getangle

AutoCAD.Application.ActiveDocument.Utility.GetAngle 方法

getcfg

AutoCAD.Application.Preferences.property 特性

getcname

未提供

getcorner

AutoCAD.Application.ActiveDocument.Utility.GetCorner 方法

getdist

AutoCAD.Application.ActiveDocument.Utility.GetDistance 方法

getenv

AutoCAD.Application.Preferences.property 特性

getfiled

使用文件对话框

getint

AutoCAD.Application.ActiveDocument.Utility.GetInteger 方法

getkword

AutoCAD.Application.ActiveDocument.Utility.GetKeyword 方法

getorient

AutoCAD.Application.ActiveDocument.Utility.

GetOrientation 方法

getpoint

AutoCAD.Application.ActiveDocument.Utility.GetPoint 方法

getreal

AutoCAD.Application.ActiveDocument.Utility.GetReal 方法

getstring

AutoCAD.Application.ActiveDocument.Utility.GetString 方法

getvar

AutoCAD.Application.GetVariable 方法

graphscr

AppActivate AutoCAD.Application.Caption

grclear

Obsolete 函数

grdraw

未提供

grread

未提供

grtext

AutoCAD.Application.ActiveDocument.Utility.Prompt

grvecs

未提供

handent

AutoCAD.Application.ActiveDocument.ModelSpace.object.

Handle 特性

help

在联机帮助索引中搜索 HELP

if

If… Then… Else 语句

initget

AutoCAD.Application.ActiveDocument.Utility.

InitializeUserInput

inters

AutoCAD.Application.ActiveDocument.Modelspace.object.

IntersectWith

itoa

Str 函数

lambda

未提供

last

arrayname(UBound(arrayname))

length

UBound 函数

list

ReDim 语句

listp

IsArray 函数

load_dialog

使用对话框编辑器

load

Automation 不支持 AutoLISP

log

Log 函数

logand

And 函数

logior

Or 函数

lsh

Imp 函数

mapcar

未提供

max

Max 函数

mem

未提供

member

使用集合

menucmd

AutoCAD.Application.MenuBar 对象

menugroup

AutoCAD.Application.MenuGroup 对象

min

Min 函数

minusp

使用 < 0 语法

mode_tile

使用对话框编辑器

namedobjdict

AutoCAD.Application.ActiveDocument.Dictionaries 集合

nentsel

AutoCAD.Application.ActiveDocument.SelectionSets.

SelectionSet.SelectAtPoint 方法

nentselp

AutoCAD.Application.ActiveDocument.SelectionSets.

SelectionSet.SelectAtPoint 方法

new_dialog

使用对话框编辑器

not

使用逻辑运算符

nth

使用 object(n) 语法

null

IsNull 函数

numberp

TypeName 函数

open

Open 函数

or

使用逻辑运算符

osnap

未提供（用户可以使用 SetVariable 方法控制 OSMODE 系统变量。）

polar

AutoCAD.Application.ActiveDocument.Utility.PolarPoint 方法

prin1

AutoCAD.Application.ActiveDocument.Utility.Prompt

princ

AutoCAD.Application.ActiveDocument.Utility.Prompt

print

AutoCAD.Application.ActiveDocument.Utility.Prompt

progn

未提供

prompt

AutoCAD.Application.ActiveDocument.Utility.Prompt

quit

AutoCAD.Application.Quit 方法

quote

未提供

read

未提供

read-char

Input 函数

read-line

行输入函数

redraw

AutoCAD.Application.ActiveDocument.Modelspace.object.

Update 方法

regapp

AutoCAD.Application.ActiveDocument.

RegisteredApplications.Add 方法

rem

Mod 函数

repeat

For… Each, While,

reverse

未提供

rtos

AutoCAD.Application.ActiveDocument.Utility.RealToString 方法

set

Set 函数

set_tile

使用对话框编辑器

setcfg

AutoCAD.Application.Preferences.property 特性

setfunhelp

未提供

setq

Set 函数

setvar

AutoCAD.Application.SetVariable 方法

sin

Sin 函数

setview

AutoCAD.Application.ActiveDocument.Viewports.Viewport.

SetView 方法

slide_image

使用对话框编辑器

snvalid

未提供

sqrt

Sqr 函数

ssadd

AutoCAD.Application.ActiveDocument.SelectionSets.Add 方法

ssdel

AutoCAD.Application.ActiveDocument.SelectionSets.

SelectionSet.Delete 方法

ssget

AutoCAD.Application.ActiveDocument.SelectionSets.

SelectionSet.SelectOnScreen 方法

ssgetfirst

未提供

sslength

AutoCAD.Application.ActiveDocument.SelectionSets.

SelectionSet.Count 方法

ssmemb

比较对象的 ID 和 SelectionSet 成员

ssname

AutoCAD.Application.ActiveDocument.SelectionSets.

SelectionSet.Name 特性

ssnamex

未提供

sssetfirst

AutoCAD.Application.ActiveDocument.PickfirstSelectionSet

startapp

Shell 函数

start_dialog

使用对话框编辑器

start_image

使用对话框编辑器

start_list

使用对话框编辑器

strcase

StrConv 函数

strcat

& 运算符

strlen

Len 函数

subst

未提供

substr

Mid 函数

tablet

未提供

tblnext

AutoCAD.Application.ActiveDocument.collection_object.

Item 方法

tblobjname

AutoCAD.Application.ActiveDocument.collection_object.

Name 方法

tblsearch

AutoCAD.Application.ActiveDocument.collection_object.

Name 方法

term_dialog

使用对话框编辑器

terpri

未提供

textbox

AutoCAD.Application.ActiveDocument.space.object.

GetBoundingBox 方法

textpage

未提供

textscr

未提供

trace

未提供

trans

AutoCAD.Application.ActiveDocument.Utility.

TranslateCoordinates 方法

type

TypeName 函数

unload_dialog

使用对话框编辑器

untrace

未提供

vector_image

使用对话框编辑器

ver

AutoCAD.Application.Version 特性

vports

AutoCAD.Application.ActiveDocument.Viewports 集合

wcmatch

Like 运算符

while

While… Wend

write-char

Print 函数

write-line

Print 函数

xdroom

未提供

xdsize

未提供

zerop

使用 = 0 语法