[转贴]：AutoLISP函数与ActiveX/VBA比较

zyjcad

AutoLISP函数与ActiveX/VBA比较

以下列出了AutoLISP函数与ActiveX或Visual Basic函数相类似的操作。ActiveX自动操作的相当功能标明为"AutoCAD.Application."， Visual Basic相当功能则以函数或操作列出。

AutoLISP 函数
ActiveX 或 Visual Basic 等同功能

+ (加)
+ (加操作)

- (减)
- (减操作)

* (乘)
* (乘操作)

/ (除)
/ (除操作)

= (等于)
= (等于比较操作)

/= (不等于)
<> (不等于比较操作)

< (小于)
< (小于比较操作)

<= (小于等于)
<= (小于等于比较操作)

> (大于)
> (大于比较操作)

>= (大于等于)
>= (大于等于比较操作)

~ (逐位非)
Not 操作

1+ (增量)
使用 + (加操作)

1- (减量)
使用 - (减操作)

abs
Abs 函数

acad_colordlg
未提供

acad_helpdlg
在在线索引中搜索HELP

acad_strlsort
在在线索引中搜索SORT

action_tile
使用 Visual Basic 对话框编辑器

add_list
使用 Visual Basic 对话框编辑器

ads
AutoCAD.Application.ListADS 方法

alert
MsgBox 函数

and
And 操作

angle
AutoCAD.Application.ActiveDocument.Utility. AngleFromXAxis 方法

angtof
AutoCAD.Application.ActiveDocument.Utility. AngleToReal 方法

angtos
AutoCAD.Application.ActiveDocument.Utility. AngleToString 方法

append
使用 Visual Basic 阵列处理函数

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
使用 Visual Basic 逻辑操作

boundp
在在线帮助索引中搜索IS

car/cdr
使用 Visual Basic 阵列处理函数

chr
Chr 函数

client_data_tile
使用 Visual Basic 对话框编辑器

close
AutoCAD.Application.Documents.Close 方法

command
AutoCAD.ActiveDocument.SendCommand 方法

cond
Select Case 语句

cons
使用阵列处理函数或AutoCAD.Application.collection.Add< entityname >方法

cos
Cos 函数

cvunit
使用转换函数

defun
Visual Basic 关键字函数和 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 and GetObject 方法s

dimx_tile and dimy_tile
使用 Visual Basic 对话框编辑器

distance
AutoCAD.Application.Utility.GetDistance 的交互式方法。也可通过以下自定义函数实现

Function distance(sp As Variant, ep As Variant) _
As Double
   Dim x As Double
   Dim y As Double
   Dim z As Double
   x = sp(0) - ep(0)
   y = sp(1) - ep(1)
   z = sp(2) - ep(2)
   distance = Sqr((Sqr((x ^ 2) + (y ^ 2)) ^ 2) + (z ^ 2))
End Function

distof
未提供

done_dialog
使用 Visual Basic 对话框编辑器

end_image
使用 Visual Basic 对话框编辑器

end_list
使用 Visual Basic 对话框编辑器

entdel
AutoCAD.Application.ActiveDocument.collection_object.Delete 方法

entget
AutoCAD.Application.ActiveDocument.collection_object.property 属性

entlast
AutoCAD.Application.ActiveDocument.Modelspace.Item(count-1)

entmake
AutoCAD.Application.ActiveDocument. Modelspace.Add<entityname> 方法

entmakex
AutoCAD.Application.ActiveDocument. Modelspace.Add<entityname> 方法

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
使用 Visual Basic 对话框编辑器

findfile
Dir 函数

fix
Fix, Int, Cint 函数

float
CDbl 函数

foreach
For Each...Next 语句

gc
AutoCAD.Application.ActiveDocument.PurgeAll

gcd
未提供

get_attr
使用 Visual Basic 对话框编辑器

get_tile
使用 Visual Basic 对话框编辑器

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
使用 Visual Basic 文件对话框

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
使用 Visual Basic 对话框编辑器

load
在自动操作过程中不支持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
使用 Visual Basic 对话框编辑器

namedobjdict
AutoCAD.Application.ActiveDocument.
Dictionaries 集合

nentsel
AutoCAD.Application.ActiveDocument.
SelectionSets.SelectionSet.SelectAtPoint 方法

nentselp
AutoCAD.Application.ActiveDocument.
SelectionSets.SelectionSet.SelectAtPoint 方法

new_dialog
使用 Visual Basic 对话框编辑器

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
Line Input 函数

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
使用 Visual Basic 对话框编辑器

setcfg
AutoCAD.Application.Preferences.property
属性

setfunhelp
未提供

setq
Set 函数

setvar
AutoCAD.Application.SetVariable 方法

sin
Sin 函数

setview
AutoCAD.Application.ActiveDocument.Viewports.Viewport.SetView 方法

slide_image
使用 Visual Basic 对话框编辑器

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
使用 Visual Basic 对话框编辑器

start_image
使用 Visual Basic 对话框编辑器

start_list
使用 Visual Basic 对话框编辑器

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
使用 Visual Basic 对话框编辑器

terpri
未提供

textbox
AutoCAD.Application.ActiveDocument.space.
object.GetBoundingBox 方法

textpage
未提供

textscr
未提供

trace
未提供

trans
AutoCAD.Application.ActiveDocument.Utility.
TranslateCoordinates 方法

type
TypeName 函数

unload_dialog
使用 Visual Basic 对话框编辑器

untrace
未提供

vector_image
使用 Visual Basic 对话框编辑器

ver
AutoCAD.Application.Version 属性

vports
AutoCAD.Application.ActiveDocument.Viewports 集合

wcmatch
Like 操作

while
While... Wend

write-char
Print 函数

write-line
Print 函数

xdroom
未提供

xdsize
未提供

zerop
使用 = 0 语法

活塞

真谦虚啊。

urljit

楼主提供的内容很好呀，为什么至今也没有人回应呢？