2007年9月27日 星期四

Visual LISP 與 ActiveX/VBA 的比較

 
Visual LISP 與 ActiveX/VBA 的比較   
Visual LISP 與 ActiveX/VBA 的比較
 

下表比較了 Visual LISP 函數與相似的 ActiveX®、VBA 及 Visual Basic 6 函數和運算子。 ActiveX Automation 對等值由「AutoCAD.Application」指示,並將 Visual Basic 6 對等值列示為函數或運算子。

Visual LISP 與 ActiveX/VBA 的比較

AutoLISP 函數

ActiveX、VBA 或 Visual Basic 6 對等值

+ (加)

+ (加運算子)

- (減)

- (減運算子)

* (乘)

* (乘運算子)

/ (除)

/ (除運算子)

= (等於)

= (等於比較運算子)

/= (不等於)

<> (不等於比較運算子)

< (小於)

< (小於比較運算子)

<= (小於或等於)

<= (小於或等於比較運算子)

/= (不等於)

<> (不等於比較運算子)

> (大於)

> (大於比較運算子)

>= (大於或

等於)

>= (大於或等於比較運算子)

~ (按位元否)

Not 運算子

1+ (增量)

使用 + (加運算子)

1- (減量)

使用 - (減運算子)

abs

Abs 函數

acad_colordlg

未提供

acad_helpdlg

搜尋線上說明索引中的 HELP

acad_strlsort

搜尋線上說明索引中的 SORT

action_tile

使用對話方塊編輯器

add_list

使用對話方塊編輯器

ads

AutoCAD.Application.ListADS 方法

alert

MsgBox 函數

and

And 運算子

angle

AutoCAD.Application.ActiveDocument.Utility.

AngleFromXAxis 方法

angtof

AutoCAD.Application.ActiveDocument.Utility.GetInteger 方法

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<entityname> 方法

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

使用對話方塊編輯器

距離

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(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.物件.

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.物件.

IntersectWith

itoa

Str 函數

lambda

未提供

last

arrayname(UBound(arrayname))

長度

UBound 函數

list

ReDim 陳述式

listp

IsArray 函數

load_dialog

使用對話方塊編輯器

load

AutoLISP 不會經由 Automation 受到支援

log

Log 函數

logand

And 函數

logior

Or 函數

lsh

Imp 函數

mapcar

未提供

max

Max 函數

mem

未提供

member

Use 集合

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。)

環形

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.物件.

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 函數

數位板

未提供

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 語法

    

沒有留言: