Option Explicit
Private Sub cmdLine_Click() '畫直線
Text1.LinkExecute "[^3^3line 3,3 8,8 ^3]"
End Sub
Private Sub cmdText_Click() '標注文字
Text1.LinkExecute "[^3^3text 10,10 1 90 AUTOCAD!^10]"
End Sub
Private Sub cmdLink_click() '建立鏈接
Text1.LinkMode = 0
Text1.LinkTopic = "AutoCAD|System"
Text1.LinkMode = 2
End Sub
Private Sub cmdExit_click() '退出
End
End Sub
Sub linkapp(Link As Control, Appname As String, Topic As String)
Link.LinkMode = 0
Link.LinkTopic = Appname + "|" + Topic
Link.LinkMode = 2
End Sub
Private Sub Layer_Click()
AppActivate "AutoCAD "
SendKeys "open{Enter}"
linkapp Form1.Text1, "AutoCAD.DDE", "System"
Form1.Text1.LinkExecute "[Layer M center]"
Form1.Text1.LinkExecute "[Layer C red L center]"
End Sub
uj5u.com熱心網友回復：
uj5u.com熱心網友回復：
學生黨，求幫忙多謝uj5u.com熱心網友回復：
你先找個 Excel 的 DDE 例子試試能不能通。很可能防病毒軟體之類的阻止了DDE。
uj5u.com熱心網友回復：
你好，我的vb與EXCEL可以，而且我后來把電腦管家給關了。最重要的是我VB和CAD的通訊實在虛擬機的WIN7下寫的。為什么DDE連接不上，請問CAD需要設定嗎？
uj5u.com熱心網友回復：
幫幫忙，新人求罩，初入論壇不到一周。uj5u.com熱心網友回復：
在64位Windows下：64位exe和dll在目錄c:\windows\system32目錄下；
32位exe和dll在目錄c:\windows\syswow64目錄下；
所以要注意：
在win64位系統下注冊32位ocx或dll需要將32位ocx或dll拷貝到c:\windows\syswow64\目錄下。
且注冊要用c:\windows\syswow64\regsvr32 xxxxxxx.ocx或dll
uj5u.com熱心網友回復：
你好，我的本機是win1064位的，虛擬機win7是32位的。
uj5u.com熱心網友回復：
不太明白6樓的意思
uj5u.com熱心網友回復：
求助啊，新人學生啊，論壇uj5u.com熱心網友回復：
一般用com通信呀uj5u.com熱心網友回復：
有熱心人嘛？感謝路人，真的小問題uj5u.com熱心網友回復：
可是我是剛入門，所以得從基礎開始啊
uj5u.com熱心網友回復：
很抱歉，剛剛看到對于autocad的二次開發，不熟悉。
另外，如果目標是實用，最好不要糾纏aotucad，因為它屬于二維CAD。許多功能如三維物體建模，引數化驅動，進而變型設計、配置設計，在二維軟體上實作起來非常麻煩，也很少有人繼續在aotucad上下功夫了
三維CAD，中檔的有兩種，高檔的有三種（在國內常見的）
建議用三維軟體，資料通信也有專門的介面
轉載請註明出處，本文鏈接：https://www.uj5u.com/gongcheng/66964.html
標籤：VB基礎類
上一篇：vb里如何進行成績范圍查詢，代碼是以及清空串列的代碼
下一篇：VB執行動態代碼的變數作用域問題