sub gettext()
dim sset as acadselectionset '宣告定義選擇集
dim ent as acadentity '宣告實體
set sset = thisdrawing.selectionsets.add("ss1") '新增選擇集
sset.selectonscreen '在螢幕上選擇物件
dim myfileno as string '宣告檔案號
myfileno = freefile '用freefile獲取空閒檔案號
dim filename as string '宣告檔案字串
filename = "d:/a.txt" '指定檔案的路徑和檔名
dim str as string
for each ent in sset
str = ent.textstring '實體中的文字內容賦給字元str
print #myfileno, , str '用print # 方法將字串str直接寫到檔案中
print #myfileno, , vbcrlf '寫完一行後就自動換行
next
close #myfileno '關閉開啟的文字檔案
sset.delete '刪除選擇集
set sset = nothing '將選擇集置空
'close #myfileno
end sub
VBA中的彩色訊息框
vba中顯示訊息框實在太簡單了,一句msgbox就可以了。千篇一律的風格,不能漂亮一點兒嗎?我們來給它點兒顏色看看,哈哈 private declare function setsyscolors lib user32 byval nchanges as long,lpsyscolor as lon...
用VBA實現課件中的智慧型互動
用vba實現課件中的智慧型互動 powerpoint中的vba可以實現很多複雜的互動,但很多老師面對vba程式設計,都會覺得無從下手。所以本期我們為大家安排了乙個關於powerpoint中vba的小專題,以後在課件中實現互動就不會那麼費勁了。vba基礎 說到vba程式設計,就不得不提到控制項工具箱,...
vba遍歷字串 迴圈遍歷VBA中的指定工作表
您在問題中顯示的 因以下原因而失敗 assets array pipe mat tables pipe diam tables pipe length tables assets是一種工作表,它是一種object,在為物件賦值時必須使用set set assets array pipe mat ta...