用vba编程,分别得出这两个圆圆心的坐标和中间文本框里的字。

一个cad图
图层1里有一个圆,圆里有一个文本框,文本框里有一个数字1
图层2里有一个圆,圆里有一个文本框,文本框里有一个字母A
现在要用vba编程,分别得出这两个圆圆心的坐标和中间文本框里的字。

使用ThisDrawing.Utility.GetEntity得到圆的圆心坐标:
X=center(0)
Y=center(1)
Z=center(2)
还是一样的办法得到文字的文字内容
最后使用ThisDrawing.ModelSpace.AddText在cad里面把这三个文字(X,Y,文字)添加到模型空间里面。
但是这样有一个弊端就是鼠标不能空选,一旦空选就出错。
另外还有个办法就是创建选择集,判断图元的类型,如果是圆就取圆心坐标,如果是文字就取文字内容,但问题又出来了:没办法批量选择,因为几个图如果挨着的话,文字和对应的圆心坐标就容易混乱了。
代码没有,就两条思路。昨天写你这个代码,把cad搞崩溃了。还没来得急重装。追问

思路不会呀,我想要代码呢

温馨提示:内容为网友见解,仅供参考
无其他回答

vb中,已知圆上两点和半径值,求圆心坐标的程序。
假设已知圆上的两点坐标分别为N(X1,Y1)和M(X2,Y2),半径为R,圆心坐标为o(a,b),根据数学知识可得到:(x1-a)^2 + (y1-b)^2 = R^2---(1)式 (x2-a)^2 + (y2-b)^2 = R^2---(2)式 分别展开上述两个式子得到 (x1)^2 - 2*x1*a + a^2 + (y1)^2 - 2*y1*b...

学习Excel VBA中……前后两次回车,分别在两个不同文本框中显示内容...
public cisu sub test()cisu=cisu+1 cisu=cisu mod 2 if cisu=1 then '显示第一个内容 else '显示第二个内容 end if end sub

access 如何用VBA清除文本框里的文字
假设文本框的名字为textbox1,那么在代码里这样写就可以:textbox1.text=""如果有多个控件需要同样的操作,可以用控件数组来实现。

如何用vba循环读取多个文本框控件中的内容,比如TB1,TB2,TB3
建议使用控件数组。举个例子:判断这些文本框中的数字是否大于10,若是的话则将这些文本框中的内容改成红色的字体 将TB1、TB2、TB3...创建为一个名为Text1的控件数组 For i=0 to ListCount-1 If Val(Text1(i).Text)>10 Then Text1(i).ForeColor=VbRed Next i ...

如何在EXCEL中用VBA读取一个文本框(非控件)的字符
右击文本框,选“指定宏(N)...",新建一个过程,注意文本框的名字,代码如下:本代码在Excel2010中测试成功

怎么样让vba文本框里的字在框里分散对齐
= 1 '右对齐。Text1Alignment = 2 '分散对齐。对齐方式这个词一般出现在办公软件中,操作一般在编辑窗口的最上端,图标显示。对齐方式是段落内容在文档的左右边界之间的横向排列方式。Word共有5种对齐方式:左对齐、右对齐、居中对齐、两端对齐和分散对齐。分散对齐是将文字段落的左右两端的边缘都对齐。

VBA中,窗体上有两个文本框,如何使第二文本框在回车键后或空格键后显示...
使用窗体控件的事件即可。Private Sub UserForm_Initialize()UserForm1.TextBox1 = "文本"End SubPrivate Sub TextBox1_Enter()UserForm1.TextBox2 = "文本"End SubPrivate Sub TextBox2_Change()UserForm1.TextBox1 = "文本"End Sub

...中用控件制作两个文本框TextBox1和TextBox2用VBA实现两文本框_百度...
就是在word空白文档中用控件制作两个文本框TextBox1和TextBox2用VBA实现两文本框 就是在word空白文档中用控件制作两个文本框TextBox1和TextBox2用VBA实现两文本框自动链接,1文本框中写满后光标自动到2文本桩。... 就是在word空白文档中用控件制作两个文本框TextBox1和TextBox2用VBA实现两文本框自动链接,1...

access的vba编程题:一个文本框,可以有两个选择,选择黑体,下面的字就是...
这里面要用到一个属性:FontName 就可以了。需要配合命令按钮或组合框或列表框来辅助判定字体。

vba编程中 使窗体里的文本框控件 在运行时 显示inputbox所输入的值
直接在模块里 设置窗体控件的值,复制后 加载窗体 Sub a()UserForm1.Label1.Caption = InputBox("请输入")UserForm1.Show End Sub

相似回答