Phát triển AutoCAD bằng ActiveX & VBA - Phụ lục A pptx

Phát triển ứng dụng ActiveX và VBA

|
|


3
3
1
1
5
5
S
S
O
O


S
S
Á
Á
N
N
H
H


V

V
i
i
s
s
u
u
a
a
l
l


L
L
I
I
S
S
P
P


V
V
À
À


A

A
c
c
t
t
i
i
v
v
e
e
X
X
/
/
V
V
B
B
A
A

A

Trong phụ lục này
 So sánh Visual LISP và

ActiveX/VBA

Hầu hết các khả năng của các giao diện Visual LISP
đều có trong giao diện của ActiveX/VBA. Bảng so
sánh trong chương này dùng để tham khảo cho
những người đã quen lập trình với Visual LISP tìm
kiếm các chức năng tương ứng trong AcitveX/VBA.

3
3
1
1
6
6


|
| Phụ lục A: So sánh Visual LISP và ActiveX/VBA
1. So sánh Visual LISP và ActiveX/VBA
Bảng sau đây liệt kê các so sánh tương đương giữa các hàm và các toán tử trong
AutoLISP với ActiveX/VBA. Các ActiveX Automation tương đương được chỉ ra
bằng cụm từ “AutoCAD.Application.”
Các thiết lập cho Paper space, model space và TILEMODE
Hàm của AutoLISP Tương đương trong ActiveX/Visual Basic
+ (cộng) + (toán tử cộng)
- (trừ) - (toán tử trừ)
* (nhân) * (toán tử nhân)
/ (chia) / (toán tử chia)
= (bằng) = (toán tử so sánh bằng)
/= (khác) <> (toán tử so sánh khác)

< (nhỏ hơn) < (toán tử so sánh nhỏ hơn)
<= (nhỏ hơn hoặc bằng) <= (toán tử so sánh nhỏ hơn hoặc bằng)
> (lớn hơn) > (toán tử so sánh lớn hơn)
>= (lớn hơn hoặc bằng) >= (toán tử so sánh lớn hơn hoặc bằng)
~ (phủ định bit) Toán tử Not
1+ (tăng) Dùng dấu + (toán tử cộng)
1- (giảm) Dùng dấu - (toán tử trừ)
abs Hàm Abs
acad_colordlg
Không có
acad_helpdlg Tìm HELP trong mục online Help
acad_strlsort Tìm SORT trong mục online Help
action_tile Sử dụng Visual Basic Dialog Editor
add_list Sử dụng Visual Basic Dialog Editor
ads Phương thức AutoCAD.Application.ListADS
alert Hàm MsgBox
and Toán tử And


Phát triển AutoCAD bằng ActiveX và VBA

|
|


3
3
1
1
7

7
Các thiết lập cho Paper space, model space và TILEMODE
Hàm của AutoLISP Tương đương trong ActiveX/Visual Basic
angle Phương thức
AutoCAD.Application.ActiveDocument.Utility.AngleFromXAxis
angtof AutoCAD.Application.ActiveDocument.Utility.AngleToReal
angtos AutoCAD.Application.ActiveDocument.Utility.AngleToString
append Sử dụng các hàm xử lý mảng của Visual Basic
apply
Không có
arx AutoCAD.Application.ListARX
arxload AutoCAD.Application.LoadARX
arxunload AutoCAD.Application.UnloadARX
ascii Hàm Asc
assoc
Không có
atan Hàm Atn
atof Hàm CDbl
atoi Hàm CInt
atom Tìm kiếm IS trong mục online Help
atoms-family
Không có
autoarxload
Không có
autoload
Không có
Boole Sử dụng phép toán logic của Visual Basic
boundp Tìm kiếm IS trong mục online Help
car/cdr Sử dụng các hàm xử lý mảng của Visual Basic
chr Hàm Chr

client_data_tile Sử dụng Visual Basic Dialog Editor
close AutoCAD.Application.Documents.Close
command AutoCAD.ActiveDocument.SendCommand

3
3
1
1
8
8


|
| Phụ lục A: So sánh Visual LISP và ActiveX/VBA
Các thiết lập cho Paper space, model space và TILEMODE
Hàm của AutoLISP Tương đương trong ActiveX/Visual Basic
cond Câu lệnh Select Case
cons Sử dụng hàm xử lý mảng hoặc phương thức
AutoCAD.Application.collection.Add<tên thực thể>
cos Hàm Cos
cvunit Sử dụng các hàm đảo
defun Từ khoá của Visual Basic: Function và End Function
dictadd AutoCAD.Application.ActiveDocument.Dictionaries.Add
dictnext AutoCAD.Application.ActiveDocument.Dictionaries.Item
dictremove AutoCAD.Application.ActiveDocument.Dictionaries.Dictionary.Delet
e
dictrename AutoCAD.Application.ActiveDocument.Dictionaries.Dictionary.Rena
me
dictsearch AutoCAD.Application.ActiveDocument.Dictionaries.Dictionary.GetN
ame and GetObject

dimx_tile và
dimy_tile
Sử dụng Visual Basic Dialog Editor
distance Sử dụng phương thức tương tác
AutoCAD.Application.Utility.GetDistance. Tham khảo thêm phần
“Tính khoảng cách giữa hai điểm”.
distof
Không có
done_dialog Sử dụng Visual Basic Dialog Editor
end_image Sử dụng Visual Basic Dialog Editor
end_list Sử dụng Visual Basic Dialog Editor
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<tên thực
thể>
entmakex AutoCAD.Application.ActiveDocument.Modelspace.Add<entitynam


Phát triển AutoCAD bằng ActiveX và VBA

|
|


3
3
1
1
9

9
Các thiết lập cho Paper space, model space và TILEMODE
Hàm của AutoLISP Tương đương trong ActiveX/Visual Basic
e>
entmod Sử dụng bất kỳ thuộc tính đọc-ghi nào của đối tượng
entnext AutoCAD.Application.ActiveDocument.collection.Item
entsel AutoCAD.Application.ActiveDocument.SelectionSets đối
tượng/phương thức/thuộc tính
entupd AutoCAD.Application.ActiveDocument.Modelspace.object.Update
eq
Không có
equal Toán tử Eqv
*error* đối tượng/phương thức/thuộc tính Error
eval
Không có
exit AutoCAD.Application.Quit
exp Hàm Exp
expand
Không có
expt ^ (Phép toán lấy luỹ thừa)
fill_image Sử dụng Visual Basic Dialog Editor
findtệp Hàm Dir
fix Hàm Fix, Int, Cint
float Hàm CDbl
foreach Câu lệnh For Each Next
gc AutoCAD.Application.ActiveDocument.PurgeAll
gcd
Không có
get_attr Sử dụng Visual Basic Dialog Editor
get_tile Sử dụng Visual Basic Dialog Editor

getangle AutoCAD.Application.ActiveDocument.Utility.GetAngle
getcfg AutoCAD.Application.Preferences.property
getcname
Không có

3
3
2
2
0
0


|
| Phụ lục A: So sánh Visual LISP và ActiveX/VBA
Các thiết lập cho Paper space, model space và TILEMODE
Hàm của AutoLISP Tương đương trong ActiveX/Visual Basic
getcorner AutoCAD.Application.ActiveDocument.Utility.GetCorner
getdist AutoCAD.Application.ActiveDocument.Utility.GetDistance
getenv AutoCAD.Application.Preferences.property
gettệpd Sử dụng hộp thoại tệp của 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

Hàm Obsolete (Hàm không còn được sử dụng)
grdraw
Không có
grread
Không có
grtext AutoCAD.Application.ActiveDocument.Utility.Prompt
grvecs
Không có
handent AutoCAD.Application.ActiveDocument.ModelSpace.object.Handle
help Tìm HELP trong mục online Help
if Câu lệnh If… Then… Else
initget AutoCAD.Application.ActiveDocument.Utility.InitializeUserInput
inters AutoCAD.Application.ActiveDocument.Modelspace.object.Intersect
With
itoa Hàm Str
lambda
Không có


Phát triển AutoCAD bằng ActiveX và VBA

|
|


3
3
2
2
1

1
Các thiết lập cho Paper space, model space và TILEMODE
Hàm của AutoLISP Tương đương trong ActiveX/Visual Basic
last Tên mảng(UBound(ten_mang))
length Hàm Ubound
list Câu lệnh ReDim
listp Hàm IsArray
load_dialog Sử dụng Visual Basic Dialog Editor
load AutoLISP không được hỗ trợ qua Automation
log Hàm Log
logand Hàm And
logior Hàm Or
lsh Hàm Imp
mapcar
Không có
max Hàm Max
mem
Không có
member Sử dụng tập hợp
menucmd Đối tượng AutoCAD.Application.MenuBar
menugroup Đối tượng AutoCAD.Application.MenuGroup
min Hàm Min
minusp Dùng cú pháp < 0
mode_tile Sử dụng Visual Basic Dialog Editor
namedobjdict AutoCAD.Application.ActiveDocument.Dictionaries
nentsel AutoCAD.Application.ActiveDocument.SelectionSets.SelectionSet.S
electAtPoint
nentselp AutoCAD.Application.ActiveDocument.SelectionSets.SelectionSet.S
electAtPoint
new_dialog Sử dụng Visual Basic Dialog Editor

not Sử dụng phép toán logic

3
3
2
2
2
2


|
| Phụ lục A: So sánh Visual LISP và ActiveX/VBA
Các thiết lập cho Paper space, model space và TILEMODE
Hàm của AutoLISP Tương đương trong ActiveX/Visual Basic
nth Sử dụng cú pháp doi_tuong(n)
null Hàm IsNull
numberp Hàm TypeName
open Hàm Open
or Sử dụng phép toán logic
osnap Không có (Có thể dùng phương thức SetVariable để điều khiển
biến hệ thống 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
Không có
prompt AutoCAD.Application.ActiveDocument.Utility.Prompt
quit AutoCAD.Application.Quit
quote

Không có
read
Không có
read-char Hàm Input
read-line Hàm Line Input
redraw AutoCAD.Application.ActiveDocument.Modelspace.object.Update
regapp AutoCAD.Application.ActiveDocument.RegisteredApplications.Add
rem Hàm Mod
repeat For…Each, While,
reverse
Không có
rtos AutoCAD.Application.ActiveDocument.Utility.RealToString
set Hàm Set


Phát triển AutoCAD bằng ActiveX và VBA

|
|


3
3
2
2
3
3
Các thiết lập cho Paper space, model space và TILEMODE
Hàm của AutoLISP Tương đương trong ActiveX/Visual Basic
set_tile Sử dụng Visual Basic Dialog Editor

setcfg AutoCAD.Application.Preferences.property
setfunhelp
Không có
setq Hàm Set
setvar AutoCAD.Application.SetVariable method
sin Hàm sin
setview AutoCAD.Application.ActiveDocument.Viewports.Viewport.SetView
slide_image Sử dụng Visual Basic Dialog Editor
snvalid
Không có
sqrt Hàm Sqr
ssadd AutoCAD.Application.ActiveDocument.SelectionSets.Add
ssdel AutoCAD.Application.ActiveDocument.SelectionSets.SelectionSet.D
elete
ssget AutoCAD.Application.ActiveDocument.SelectionSets.SelectionSet.S
electOnScreen
ssgetfirst
Không có
sslength AutoCAD.Application.ActiveDocument.SelectionSets.SelectionSet.C
ount
ssmemb So sánh ID của đối tượng với các đối tượng trong SelectionSet
ssname AutoCAD.Application.ActiveDocument.SelectionSets.SelectionSet.N
ame
ssnamex
Không có
sssetfirst AutoCAD.Application.ActiveDocument.PickfirstSelectionSet
Startapp` Hàm Shell
start_dialog Sử dụng Visual Basic Dialog Editor
start_image Sử dụng Visual Basic Dialog Editor
start_list Sử dụng Visual Basic Dialog Editor

3
3
2
2
4
4


|
| Phụ lục A: So sánh Visual LISP và ActiveX/VBA
Các thiết lập cho Paper space, model space và TILEMODE
Hàm của AutoLISP Tương đương trong ActiveX/Visual Basic
strcase Hàm StrConv
strcat Phép toán &
strlen Hàm Len
subst
Không có
substr Hàm Mid
tablet
Không có
tblnext AutoCAD.Application.ActiveDocument.collection_object.Item
tblobjname AutoCAD.Application.ActiveDocument.collection_object.Name
tblsearch AutoCAD.Application.ActiveDocument.collection_object.Name
term_dialog Sử dụng Visual Basic Dialog Editor
terpri
Không có
textbox AutoCAD.Application.ActiveDocument.space.object.GetBoundingBo
x
textpage

Không có
textscr
Không có
trace
Không có
trans AutoCAD.Application.ActiveDocument.Utility.TranslateCoordinates
type Hàm TypeName
unload_dialog Sử dụng Visual Basic Dialog Editor
untrace
Không có
vector_image Sử dụng Visual Basic Dialog Editor
ver AutoCAD.Application.Version
vports Tập đối tượng AutoCAD.Application.ActiveDocument.Viewports
wcmatch Phép toán Like
while While…Wend


Phát triển AutoCAD bằng ActiveX và VBA

|
|


3
3
2
2
5
5
Các thiết lập cho Paper space, model space và TILEMODE

Hàm của AutoLISP Tương đương trong ActiveX/Visual Basic
write-char Hàm Print
write-line Hàm Print
xdroom
Không có
xdsize
Không có
zerop Sử dụng cú pháp = 0