[r]
(1)S
SOO SSÁÁNNHH VViissuuaall LLIISSPP VVÀÀ A
AccttiivveeXX//VVBBAA
A
Trong phụ lục
So sánh Visual LISP ActiveX/VBA
(2)AutoLISP với ActiveX/VBA Các ActiveX Automation tương đương được chỉ bằng cụm từ “AutoCAD.Application.”
Các thiết lập cho Paper space, model space TILEMODE
Hàm AutoLISP Tương đương 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ỏ bằng) <= (toán tử so sánh nhỏ bằng) > (lớn hơn) > (toán tử so sánh lớn hơn)
>= (lớn bằng) >= (toán tử so sánh lớn 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 mục online Help acad_strlsort Tìm SORT 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
(3)Các thiết lập cho Paper space, model space TILEMODE
Hàm AutoLISP Tương đương 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 hàm xử lý mảng 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 mục online Help atoms-family Khơng có
autoarxload Khơng có
autoload Khơng có
Boole Sử dụng phép tốn logic Visual Basic boundp Tìm kiếm IS mục online Help
car/cdr Sử dụng hàm xử lý mảng Visual Basic
chr Hàm Chr
(4)cond Câu lệnh Select Case
cons Sử dụng hàm xử lý mảng phương thức AutoCAD.Application.collection.Add<tên thực thể>
cos Hàm Cos
cvunit Sử dụng hàm đảo
defun Từ khoá Visual Basic: Function 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 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 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ể>
(5)Các thiết lập cho Paper space, model space TILEMODE
Hàm AutoLISP Tương đương ActiveX/Visual Basic
e>
entmod Sử dụng thuộc tính đọc-ghi đố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 Tố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 tố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
(6)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 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 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 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
(7)Các thiết lập cho Paper space, model space TILEMODE
Hàm AutoLISP Tương đương 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 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 <
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