2013-07-14 明经AutoCAD.VBA编程(45054712) 群聊记录：[image={C6AB87EA-AD59-47BD-EDD0-D4AC7F

明经快报

有声 06:54:56

[qqimg]201307/{C6AB87EA-AD59-47BD-EDD0-D4AC7F8FC3A5}.jpg[/qqimg]

“手机充电时，千万不要打电话。”

    “马爱伦，南航空姐，一个马上要结婚的新娘，8月8日就是她的婚礼！16日就是她的生日，2013年7月11日晚，用买不到一年的正品iPhone5充电时通了个电话，突然被一股强烈的电流电倒……就这样永远地离开了，离开了她的新郎！年仅23岁！为她默哀，大家慎用苹果及充电宝。”

明经快报

CL 09:56:56

各位朋友早上好

一缕阳光 09:59:01

不是真的

CL 09:59:46

高版本的cadvba需要自己下载

是不是可以预示某些未来趋势

不然cad也不会这么干吧

小学生 10:07:38

ACAD的VBA也是买的，估计他们不想买了

无痕/ws 10:08:26

请问下图中点坐标是什么类型数据。
pt1是个图中的点，Dim pt(0 To 2) As Double
赋值pt(0)=pt1(0)提示类型不匹配

无痕/ws 10:11:04

还有，问一下，CAD有没有什么插件能象excel那样录制宏

CL 10:11:20

cad有录制宏功能啊

胡日查 10:12:18

没听过什么插件

无痕/ws 10:12:31

没有呀，我怎么没看到。。。

胡日查 10:12:34

录制功能比excel弱上几千倍

CL 10:12:38

cad自身就有录制宏啊

CL 10:13:12

[qqimg]201307/{E217E614-559E-05C3-C9F7-EC9BAD8776BE}.jpg[/qqimg]

鼠标右键就有录制宏功能

绘图小秘 10:14:16

CAD2010以上吧

[Lemuel0z]Lemuel 10:14:28

录制的宏也不是vba的代码，没什么用处

无痕/ws 10:14:37

我怎么没这东西

CL 10:15:07

你没那东东

少长了一样东西

无痕/ws 10:15:41

哦。。。我就想能否象excel那样操作几个，然后在录制宏上修改一个就成一个VBA了，哈

CL 10:16:24

CAD已经不怎么看好vba了 ，就算可以给你代码，cad也会考虑其他的代码格式吧

无痕/ws 10:16:35

我是天正暖通+2007CAD的没见到这

无痕/ws 10:17:26

晕，VBA去掉的话跟office的连接就麻烦了。

CL 10:17:49

好像是说lffice要先丢掉vba

cad紧跟其上

据说而已

无痕/ws 10:18:40

。。。那不会想另收钱吧，让二次开发的须交使用费。。。

CL 10:18:42

微软不看好vba了，cad没办法了

无痕/ws 10:18:58

无痕/ws 10:19:46

回归原先问题：
请问下图中点坐标是什么类型数据。
pt1是个图中的点，Dim pt(0 To 2) As Double
赋值pt(0)=pt1(0)提示类型不匹配

无痕/ws 10:20:16

这个要怎么处理。

明经快报

小学生 10:31:11

VBA有可能丢掉，但是，COM的方式不太可能丢掉

小学生 10:31:55

pt1(0)呢，帖出来

胡日查 10:36:35

谁有纬地的地址？

给我下

有声 10:39:18

[qqimg]201307/{966C7452-91F7-6B17-492A-906F4489BCA4}.gif[/qqimg]

无痕/ws 10:41:33

就是这段代码，提示pt(0) = pt1(0)类型不匹配

无痕/ws 10:42:14

其中ent 是acadtext

小学生 10:42:23

pt1(0)在哪呢？

你没有声明啊

也没赋值

无痕/ws 10:45:33

[qqimg]201307/{83A075F3-069C-9A8A-3C5F-ACE4F3F9A182}.jpg[/qqimg]现在问题在这句了，无效的过程调用与参数

小学生 10:46:25

你的意思，是让我们给你你调试程序？

无痕/ws 10:47:03

呵呵，我再试，每句都有问题，

轻舞飞扬 10:49:49

TM都没声明，没赋值，调试个毛线

无痕/ws 10:51:18

可以了

无痕/ws 10:52:24

对选择区的文本，直线，圆自动取坐标点与文本内容，并输出到excel

对文本进行自动编号，以便对应。

明经快报

小学生 11:03:13

抄一段代码就可以用

无痕/ws 11:04:37

嗯，通用性强。不象lisp是CAD专用。

在路上26 11:11:47

哪位有组的资料啊

明经快报

VBA 17:32:07

请问一下 getboundingbox 取的是wcs 的坐标 ，有没有函数取ucs的坐标？

VBA 17:32:40

cad vba里面的

明经快报

十字路口 17:57:13

[qqimg]201307/{BF9A1FD6-DCC6-28C7-D108-8C7D66504E79}.jpg[/qqimg]

怎么让这个按钮打开文件
新手

小学生 18:02:00

添加一个打开文件对话框

明经快报

十字路口 18:22:35

[qqimg]201307/{40CDBC61-952C-7AEA-D943-41EC94B87D35}.jpg[/qqimg]这是什么控件

明经快报

[zhoumh989][x星空]魂 20:26:15

请问怎么获取一个图形的第一个顶点的坐标，

想对每个区进行编号

一缕阳光 20:27:41

顶点是什么?

[zhoumh989][x星空]魂 20:28:03

就是每个区的第一个点

[zhoumh989][x星空]魂 20:28:39

想对宗地，根据坐标从左到右，从上到下，顺序编号

一缕阳光 20:28:41

什么叫第一个点

[zhoumh989][x星空]魂 20:29:20

或者矩形左上角的点的坐标

一缕阳光 20:31:59

不明白

vba是按图元进行处理的

分类型

是一个图形 还是一批图形

[zhoumh989][x星空]魂 20:32:30

我说的事cass里面，一个图层 宗地层

一缕阳光 20:32:31

是一个图形 是什么图形

[zhoumh989][x星空]魂 20:32:50

宗地是一个闭合的线

一缕阳光 20:33:00

cass与cad有区别吗?

[zhoumh989][x星空]魂 20:33:15

cass是cad的开发，用于测绘行业

一缕阳光 20:33:55

然后呢

那你进错群了

[zhoumh989][x星空]魂 20:34:17

没有了

一缕阳光 20:34:18

这里是cad的vba群

[zhoumh989][x星空]魂 20:34:26

我就是研究vba的

一缕阳光 20:34:28

你去cass群玩玩嘛

[zhoumh989][x星空]魂 20:35:00

cass算是cad的定制版

语言的对象属性什么的，还是得用cad的

[zhoumh989][x星空]魂 20:36:44

主要想问问，cad的一个线的，顶点坐标怎么读取

一缕阳光 20:36:57

知道什么叫图元的对象类型吗?

小学生 20:37:25

有开始点和结束点

一缕阳光 20:37:31

线就很多 有直线 射线 多段线...

[zhoumh989][x星空]魂 20:38:15

恩，我能选出我想要的线，现在想读出第一点坐标，根据第一点坐标的位置，顺序编号

一缕阳光 20:38:18

你知道他的图形是什么鬼线啊 你就说开始点 结束点

[zhoumh989][x星空]魂 20:38:31

就是多线段

闭合的线

小学生 20:39:06

多段线的话还有顶点

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

Polyline

一缕阳光 20:39:46

Pline.Coordinate()

[zhoumh989][x星空]魂 20:39:49

对象类型 LWPOLYLINE，8

一缕阳光 20:39:52

Pline.Coordinate(0)

[zhoumh989][x星空]魂 20:40:05

恩，好的，谢谢

一缕阳光 20:40:22

Pline是你的多段线对象

[zhoumh989][x星空]魂 20:40:49

恩，

包括 横坐标和纵坐标吗

轻舞飞扬 20:49:40

这什么基础都没的，上来就是需求，没什么好说的。看过基础再问吧

[zhoumh989][x星空]魂 20:49:59

ok

[zhoumh989][x星空]魂 20:50:56

至于说基础，我知道我需要问什么就行，可能不熟，但是不熟才问的，我会自学的

轻舞飞扬 20:51:49

怎么画直线会了吗

小学生 20:51:53

ACAD有个帮助文档，先看一下

一缕阳光 20:58:42

一点思路都没有还编程

说实话连cad应用都不熟悉

[zhoumh989][x星空]魂 20:59:37

嗨，不熟悉不一定不能编程，编完了，我给你看看代码好不好

一缕阳光 20:59:59

啥叫横坐标和纵坐标

你自家发明的啊

[zhoumh989][x星空]魂 21:00:20

x,y

一缕阳光 21:00:53

看了你的所有提问

[zhoumh989][x星空]魂 21:00:57

这是地理学的问题，或者叫经纬度，

一缕阳光 21:01:09

没有一句是cad专业

还是认为你进错群

你去测量群那里 讨论经纬度比较合适

[zhoumh989][x星空]魂 21:02:33

我是通过vba做cad的一些批处理，这个群不是做这个的吗？

一缕阳光 21:03:17

cad应用和开发就按其 对象模型的名称统一名称

[zhoumh989][x星空]魂 21:03:22

cass算是cad平台下一个很大的插件，主要用户测绘行业，但是都是基于cad的

一缕阳光 21:03:37

不是你自己搞一套 谁知道你说什么

我也没学过测量

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

语言通用的，来这个群没问题

一缕阳光 21:05:42

那你看看 谁鸟你

[zhoumh989][x星空]魂 21:06:43

那现在谁我和在对话啊

有声 21:09:10

[qqimg]201307/{9B7A8727-25CC-6F87-CEAC-267A1224856A}.gif[/qqimg]

小山 21:10:38

也许你把图发出来，会有人看明白

[zhoumh989][x星空]魂 21:12:53

知道Coordinate这个属性足够了，谢谢

明经快报

有声 21:29:51

[qqimg]201307/{4BB8F889-24E0-6B13-EBC5-0A4F3572A247}.jpg[/qqimg]空姐跪拜“正点”图走红