2013-07-18 明经AutoCAD.VBA编程(45054712) 群聊记录：获取圆心坐标用哪个命令啊

明经快报

[zhoumh989][x星空]魂 09:46:03

获取圆心坐标用哪个命令啊

小学生 09:48:46

获取圆，圆心是圆的一个属性

[zhoumh989][x星空]魂 09:49:03

O

怎么让圆心显示呢

小学生 09:51:31

有个系统变量

?欢乐 09:52:09

查下帮助文件不就知道了

[zhoumh989][x星空]魂 09:52:23

好的，谢谢了

明经快报

巴山夜雨 10:47:20

有人吗

[zhoumh989][x星空]魂 10:47:27

恩

巴山夜雨 10:48:28

Dim FilterYype(0 To 3) As Integer
Dim FilterData(0 To 3) As Variant
FilterYype(0) = -4
FilterData(0) = ""
Set S_DXD1 = Chect_select("ALL_GCD")
Call S_DXD1.Select(acSelectionSetAll, , , FilterYype, FilterData)

巴山夜雨 10:49:02

就是select这个调用，我转到 VS2008中，提示FilterYype定义错误

?欢乐 10:49:28

选名称是GC200的和在图层在GCD上的？

巴山夜雨 10:49:33

但是在VB6中却能正常运行

是的

?欢乐 10:50:36

那在那里不正常？

巴山夜雨 10:51:17

[qqimg]201307/{D5913ED9-3869-FD2D-7529-3759BEA0A68C}.jpg[/qqimg]

这是在VB.net (2008中)

我运行一下，看看那个错误描叙我捕捉出来

小学生 10:52:24

typedvalue

巴山夜雨 10:52:35

[qqimg]201307/{5FEEB4C4-B755-6388-DCBA-2DD1534EDA0D}.jpg[/qqimg]

提示filterType 无效

小学生 10:53:36

过滤器类型

?欢乐 10:53:45

我觉得不用那个-4的那个组码试试？

and的好像是默认的

小学生 10:54:26

不行

巴山夜雨 10:54:54

我感觉是VB.net中有问题

同样代码我在VB中运行非常好

巴山夜雨 10:55:45

这个不用过滤器，能选择实体，用了过滤器就不行

巴山夜雨 10:57:47

你们那个做一个VS2008的选择集例子给我一个我学学

小学生 10:59:31

过滤器的值的类型是错的

巴山夜雨 11:00:11

VS中只能定义成 Object类型

巴山夜雨 11:01:14

VB中我定义的是 Variant类型

Dim FilterYype(0 To 3) As Integer
Dim FilterData(0 To 3) As Variant

vs2008中      
 Dim FilterYype(0 To 3) As Integer
        Dim FilterData(0 To 3) As Object

小学生 11:02:21

你在用COM方式，你该换换脑筋了

巴山夜雨 11:02:34

是的

巴山夜雨 11:03:51

我在用学ARX

巴山夜雨 11:04:57

ARX速度快点，但是还不太适应，以前用Vb写了N多的小工具，要转换也麻烦，所以能迁就就迁就，实在不行就换呗

巴山夜雨 11:05:41

有没有好的ARX的书推荐一本

小学生 11:06:46

才鸟

巴山夜雨 11:08:06

我是个懒人，平时制图时就写了些小工具，提高工作效率，腾出更多时间去玩玩。

所以加进来向各位大虾学学！

小学生 11:09:39

网上搜

巴山夜雨 11:09:54

书名是啥

小学生 11:10:25

搜

?欢乐 11:16:56

那个是C#的哇

巴山夜雨 11:17:19

.net都差不多

巴山夜雨 11:19:11

关键是的是解决问题的算法，其语言、接口函数调用都很好学，找本基本函数用法的书籍就行

?欢乐 11:20:00

?欢乐 11:20:37

vba下语言、接口函数调用都很好学，。net平台下就不一样了

都一堆english……

巴山夜雨 11:21:28

就是想找本中文的，所以我问问

?欢乐 11:25:45

.net平台的很少……

巴山夜雨 11:27:07

估计要过几年吧

明经快报

[zhoumh989][x星空]魂 12:32:10

BuildFilter TypeArray, DataArray, 0, "text", 8, "JZD"
这是选择jzd层 的文字的过滤器，怎么实现对所有层的文字的过滤呢

明经快报

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

BuildFilter TypeArray, DataArray, 0, "text", 8, "*"

明经快报

测≮沙漠≯ 13:36:14

BuildFilter TypeArray, DataArray, 0, "text"

明经快报

[zhoumh989][x星空]魂 14:21:51

执行vba命令，怎么设置一个快捷键，

明经快报

巴山夜雨 14:37:11

我的一个多义线是由2个线段与一段弧连接而成，现在的问题是：我如何知道这段弧的圆心、半径等参数

[qqimg]201307/{674409E8-551E-95B3-3911-2E9DA7F3D821}.jpg[/qqimg]

巴山夜雨 14:38:01

那个大虾帮解答一下

小学生 14:38:05

炸开

巴山夜雨 14:38:39

我的目的就是不炸开来求

小学生 14:39:08

你是编程，怕啥

编程，原来的不删

巴山夜雨 14:39:43

编程

小学生 14:39:47

炸开的不加入数据库，就行

巴山夜雨 14:40:52

编程有点麻烦，

小学生 14:41:44

你是编程的人，还怕编程麻烦？

一缕阳光 14:41:54

其实就是已知2点坐标和圆弧中点到2点直线的距离 求圆心

巴山夜雨 14:42:32

但是我在多义线上，我就没法判别这段是圆弧呀

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

还是炸开，读完在合并起来

小学生 14:43:05

凸度

一缕阳光 14:43:17

现在的cad官方资料 都叫多段线

巴山夜雨 14:43:28

凸度概念不对

一缕阳光 14:43:32

线段都叫直线

对的

小学生 14:44:35

炸开省事，用凸度，麻烦

一缕阳光 14:45:57

有很多圆弧的时候 炸开不好控制

巴山夜雨 14:46:36

凸度：是指多段线经过平滑拟合后的某点的凸度

[qqimg]201307/{10AAC91D-943C-6813-D1B0-E47695461785}.jpg[/qqimg]

对于连接的这个多段线，中部圆弧就只有2个点

巴山夜雨 14:47:57

圆弧的中间一个点是查不出来坐标的

小学生 14:48:39

你可以画一条带圆弧的多段线，就知道我们说的是对是错了

一缕阳光 14:49:16

你查的是啥资料哦

查多段线的

巴山夜雨 14:50:19

SECTL1.Coordinates

巴山夜雨 14:50:54

我通过Coordinates读出多段线的坐标，就查不出来

巴山夜雨 14:52:30

[qqimg]201307/{635C30B9-4728-A2E0-B98B-FEACF22DF0B5}.jpg[/qqimg]

在这属性窗口也查不到

看来只有炸开这个办法了

一缕阳光 14:53:07

是方法

[qqimg]201307/{0042E1B8-810C-E199-FB00-1FF2F293140A}.jpg[/qqimg]

巴山夜雨 14:54:11

这个我到是没试，我读读看

明经快报

22:08:51

但是没啥用是凸度，

明经快报

22:08:51

凸度还要再求圆心，和直径

读出来了

简单问题被我复杂化了

明经快报

?欢乐 23:13:32

遍历实体?i不知道选择集能过滤不