2013-07-09 明经AutoCAD.VBA编程(45054712) 群聊记录：大家好

明经快报

[zhoumh989][x星空]魂 12:55:31

大家好

[zhoumh989][x星空]魂 12:56:12

请教个问题，在vba 中能执行cass的命令吗

一缕阳光 12:57:58

直接在cass命令不是更好

[zhoumh989][x星空]魂 12:58:18

想批处理呢

一缕阳光 12:58:44

cad与cass有什么区别?

[zhoumh989][x星空]魂 12:58:58

cass属于cad的二次开发吧

一缕阳光 12:59:43

那用sendcommand不是可以了?

[zhoumh989][x星空]魂 12:59:56

现在是一个宗地一个cass 文件（dwg格式），想得到每个宗地的界址点成果表，但是太多了一个个点太麻烦，想通过vba实现，如果单独一个的话，通过cass中地籍---绘制地籍表格--界址点成果表（excel)---1手工选择宗地，确定，系统自动打开excel得到成果表，至此结束。我想的是，在cad中，执行vba命令，打开一个宗地文件，执行界址点成果表（excel)（命令:  JZDCGB_EXCEL），然后关闭保存此excel，然后关闭此cass文件，以此类推再打开另外一个

一缕阳光 13:01:59

要是画点  直接编辑好坐标 然后在cass 输入点命令

然后把excel里面的坐标粘贴到命令行就可以了

几万行都可以

[zhoumh989][x星空]魂 13:03:02

不是画点，是把点坐标表导入excel中，有几百个宗地，想挨个执行

绘图小秘 13:12:43

又一测量佬

[zhoumh989][x星空]魂 13:13:21

一缕阳光 13:18:33

那用sendcommand

[zhoumh989][x星空]魂 13:18:59

怎么使用啊

明经快报

[zhoumh989][x星空]魂 13:39:25

BuildFilter 怎么提示函数未定义啊

明经快报

[zhoumh989][x星空]魂 14:05:34

SendCommand JZDCGB_EXCEL后，
图形文件中不存在实体。JZDCGB_EXCEL 怎么回事

vba小伟 14:08:45

cass

？

[zhoumh989][x星空]魂 14:09:50

哦，

质地了

恩

怎么获取这个宗地的宗地号呢

vba小伟 14:11:18

扩展属性

vba小伟 14:20:03

可以用选择对象吧

不输宗地号

静水深流 14:21:38

GetObject(, "AutoCAD.Application")运行的时候出错是怎么回事

明经快报

新儿 14:34:48

If MsgBox("", vbOKCancel) = vbOK Then......

msgbox中的cancel按钮怎么设置呢？

新儿 14:35:44

我想把取消设置成不做任何修改，请问大家怎么设置呀

一缕阳光 14:36:06

If MsgBox("", vbOKCancel) = vbOK Then......else......end if

新儿 14:36:27

else后边怎么写语句

一缕阳光 14:36:28

else......end if

一缕阳光 14:36:58

不点ok就是点cancle

新儿 14:37:09

嗯

ok后边执行一个操作

但是else后边我不知道怎么表达

不做任何修改，怎么表示

轻舞飞扬 14:39:09

用undomark。编组操作。不需要就回退

轻舞飞扬 14:42:00

只需要一系列操作中间不执行某几步操作，只能在程序中设置这几步操作的反操作

明经快报

新儿 14:59:30

[qqimg]201307/{2FCC27A4-EC86-883B-1C4A-C9D485360E9B}.jpg[/qqimg]

大家好，我现在想通过这个实现图层的颜色填充

新儿 15:00:59

按照text的值进行颜色填充，现在可以实现了，我现在想在text后面加个调色板或者别的东西能动态显示text中文本对应的颜色，该怎么做到呢

新儿 15:02:15

是不是应该调用调色板呢，或者做个标签，把标签的背影色和text联系起来，我试验了下，不大行

谁知道该怎么做呢

Jing 15:02:25

这是啥专业？

新儿 15:02:56

？

[zhoumh989][x星空]魂 15:11:44

cass 导出excel坐标表，执行完了后，怎么在cad的vba环境，关闭保持此excel，我这样一执行代码就停止了，怎么回事
 ThisDrawing.SendCommand "JZDCGB_EXCEL" & vbCr & "2" & vbCr & ZDH & vbCr
         Windows("Book1").Activate
         ActiveWorkbook.SaveAs FileName:="D: emp" & ZDH & ".xls", FileFormat:= _
         xlExcel8, assword:="", WriteResPassword:="", ReadOnlyRecommended:=False _
         , CreateBackup:=False
       ActiveWindow.Close
       appexcel.Quit

vba小伟 15:16:17

获取excel保存关闭 quit

[zhoumh989][x星空]魂 15:16:49

恩，我这获取怎么不对啊Windows("Book1").Activate

?欢乐 15:25:04

你没打开excel吧

[zhoumh989][x星空]魂 15:25:39

执行ThisDrawing.SendCommand "JZDCGB_EXCEL" & vbCr & "2" & vbCr & ZDH & vbCr
后自动生成一个book1的坐标表excel

小学生 15:26:22

不同步

[zhoumh989][x星空]魂 15:29:01

我计划用选择宗地层，获取此宗地宗地号，然后调用命令SendCommand JZDCGB_EXCEL加参数

有没有示例语句啊

恩，用GetXData

明经快报

[zhoumh989][x星空]魂 16:39:07

Excel.Application.Quit后，怎么进程里还有excel 如果人工关掉excel并保存，进程中就没有excel

vba小伟 16:40:49

我也发现了

[zhoumh989][x星空]魂 16:41:13

轻舞飞扬 16:41:22

引用的worksheet、workbook、application变量全部set nothing

小学生 16:44:22

操作系统没有给你及时释放

[zhoumh989][x星空]魂 16:45:09

恩，可是我没有引用啊

[zhoumh989][x星空]魂 16:45:51

没有用set xx = creatobject()

[zhoumh989][x星空]魂 16:46:51

cass 的命令JZDCGB_EXCEL 本身就创建一个excel,
我想要的就是关闭保存，然后重复

[zhoumh989][x星空]魂 16:53:46

nothing了，进程里还是存在啊

小学生 16:53:50

可以用杀死进程的方式

[zhoumh989][x星空]魂 16:54:10

怎么杀死，vb中

小学生 16:56:01

百度

明经快报

関吣 17:24:05

求助：有没有把柱表转化成平面图的办法啊？

小学生 17:27:19

柱表是什么东东

関吣 17:28:34

[qqimg]201307/{CED293F9-80A5-2339-1AF8-55189D43DAEE}.jpg[/qqimg]

类似这种东东的咧

马乐群 17:29:27

我知道，我是做结构专业的

関吣 17:30:05

额。这个怎么互转啊，求帮助

怎么转化。说错了

马乐群 17:30:25

你想转到那里去啊？

関吣 17:30:45

转成平面图啊

马乐群 17:31:02

这就是平面啦

関吣 17:31:17

额。我可能没说清楚。

带轴网的平面图来着

関吣 17:33:17

[qqimg]201307/{346E215F-921F-0AF7-F371-2E25F6A35CA9}.jpg[/qqimg]转到轴网里面的

明经快报

[zhoumh989][x星空]魂 18:59:48

http://bbs.mjtd.com/forum.php?mo ... mp;extra=#pid596484

谁能帮我改改代码啊