抛砖引玉

雪山飞狐_lzh · 发表于 2004-4-22 17:47

strAppName是个常量，当然可以也必须在声明的同时赋值

在VB。NET中可在声明的同时赋值

ahlzl · 发表于 2004-4-22 22:12

问题2：为什么我写 Dim app As Autodesk.AutoCAD.Interop.AcadApplication _
= GetObject(, "Autocad.application") 或 Dim app As Autodesk.AutoCAD.Interop.AcadApplication _
= application.acadapplication 都能通过。而写 Dim app As AcadApplication = application.acadapplication 却通不过？另：好象在CAD中操纵EXCEL只能这样： Dim ex As Excel.Application = GetObject(, "Excel.application") （假设EXCEL已打开）

雪山飞狐_lzh · 发表于 2004-4-22 22:17

类型名应该给全呀

ahlzl · 发表于 2004-4-22 22:26

lzh741206发表于2004-4-22 22:17:00类型名应该给全呀

lzh741206兄：我水平低，你的话我不懂啊！

我到底错在哪呢？能否再说得细一点，谢谢！！

雪山飞狐_lzh · 发表于 2004-4-22 22:36

反正把它当成公式理解就行了

雪山飞狐_lzh · 发表于 2004-4-23 13:19

这是我的改进版的界面

ahlzl · 发表于 2004-4-23 22:45

lzh741206发表于2004-4-23 13:19:00这是我的改进版的界面

to lzh741206：你的代码我运行了，高！能否把这个程序的代码也发上来！

雪山飞狐_lzh · 发表于 2004-4-23 22:52

程序代码在公司里，上班再说吧

雪山飞狐_lzh · 发表于 2004-4-26 13:04

本帖最后由作者于 2004-4-26 18:14:31 编辑

TlsCad1.0改进版及源代码将文件解压至2005目录下在支援目录中加入AutoCAD 2005\TlsCad\Bin，并设为第一个在acad2005doc.lsp文件中加入： (SetVar "cmdecho" 0)
(Setvar "filedia" 0)
(command "netload" "tlscad.dll")
(command "TlsCadInit")
(Setvar "filedia" 1)
(SetVar "cmdecho" 1) 命令格式： TlsEntityInsert

雪山飞狐_lzh · 发表于 2004-4-27 15:12

在这里：

账号		自动登录	找回密码
密码			注册

抛砖引玉

本帖子中包含更多资源

本帖子中包含更多资源