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

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


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

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

问题2：为什么我写



Dim app As Autodesk.AutoCAD.Interop.AcadApplication _<BR>                                                       = GetObject(, "Autocad.application")


或       Dim app As Autodesk.AutoCAD.Interop.AcadApplication _<BR>                                                       = 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:00

类型名应该给全呀

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

lzh741206发表于2004-4-22 22:17:00static/image/common/back.gif类型名应该给全呀

<BR><b><EM>lzh741206兄：我水平低，你的话我不懂啊！</EM></b>我到底错在哪呢？能否再说得细一点，谢谢！！

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

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

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

这是我的改进版的界面


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

lzh741206发表于2004-4-23 13:19:00static/image/common/back.gif这是我的改进版的界面

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

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

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

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

本帖最后由 作者 于 2004-4-26 18:14:31 编辑 <br /><br /> TlsCad1.0改进版及源代码



将文件解压至2005目录下


在支援目录中加入AutoCAD 2005\TlsCad\Bin，并设为第一个


在acad2005doc.lsp文件中加入：


(SetVar "cmdecho" 0)<BR>(Setvar "filedia" 0)<BR>(command "netload" "tlscad.dll")<BR>(command "TlsCadInit")<BR>(Setvar "filedia" 1)<BR>(SetVar "cmdecho" 1)


命令格式：


TlsEntityInsert

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

在这里：


页: 1 [2]
查看完整版本: 抛砖引玉