社区 › VB › 如何执行此代码

kimmy 发表于 2011-4-27 04:59:19

如何执行此代码

大家好，谁能告诉我如何为图片编写vba代码
单击选择按钮选择多个cad闭合图形，然后计算数据框后面所选图形显示区域的总和！在“价格”列中设置价格。总字段=单位面积，此外
谢谢

**** Hidden Message *****

Matt__W 发表于 2011-4-27 08:21:21

让我说清楚...你选择多个封闭折线？？它总计它们的面积？？

kimmy 发表于 2011-4-27 08:48:20

还有，你需要所有的代码，其中一些，什么？您知道如何为多段线设置选择集吗？基本上，您的过程如下：＜br＞将sset设置为选择集＜br＞将对象设置为身份集＜br＞将答案设置为双＜br＞为sset＜br＞中的每个对象创建包括多段线和lw多段线＜br＞的选择集＜br＞答案=答案+对象。下一个objent的区域

kimmy 发表于 2011-4-27 20:54:31

对，就是这样！

kimmy 发表于 2011-4-27 21:03:12

谢谢！！ 但是如何做这个结果显示在代码的文本框中

kimmy 发表于 2011-4-27 23:47:20

textbox1.value=答案

kimmy 发表于 2011-4-28 02:19:45

谢谢~~

kimmy 发表于 2011-4-28 04:23:16

private Sub CDM pick 11 _ Click()
frmMain。hide
Dim SS As AcadSelectionSet
Set SS = this drawing。SelectionSets.Add("SS")
SS。为SS中的每个对象选择屏幕上的
Dim object As acad entity
Dim Marea As Double
Marea = Marea+object . area
Next
SS。用于删除选择集的“删除”选项卡11。Value = Marea
deep10。值=该图纸。Utility.GetString(0，vbCrLf & " enter mill deep(mm)
:)
fee 10 =(Taba a10-Taba a11)*(deep 10/0.25)* 0.0357 * 0.01
frmMain。show
End Sub
Private Sub CDM pick 12 _ Click()
frmMain。hide
Dim SS As AcadSelectionSet
Set SS = this drawing。SelectionSets.Add("SS")
SS。为SS中的每个对象选择屏幕上的
Dim object As acad entity
Dim Marea As Double
Marea = Marea+object . area
Next
SS。用于删除选择集的“删除”存在
选项卡a12。Value = Marea
frmMain。show
End Sub
Private Sub CDM pick 13 _ Click()
frmMain。hide
Dim SS As AcadSelectionSet
Set SS = this drawing。SelectionSets.Add("SS")
SS。为SS中的每个对象选择屏幕上的
Dim object As acad entity
Dim Marea As Double
Marea = Marea+object . area
Next
SS。用于删除选择集的“删除”存在
选项卡13。Value = Marea
deep11。值=该图纸。Utility.GetString(0，vbCrLf & " enter mill deep(mm)
:")
fee 11 =(Taba 12-Taba 13)*(deep 11/0.07)* 0.05 * 0.01
Tfee =(fee 1+fee 2+fee 10+fee 12)* 1
frmMain。展示如何改变深度。然后更新费！而“Tfee = (fee1 + fee2 + fee10 + fee12) * 1”怎么办呢？该用户当前未被忽略！谢谢

Matt__W 发表于 2011-4-28 11:17:43

试试这个吧代码0]
如果是我，我会取消autocad的深度提示，只让用户在表单上填写，但这是您的决定。
但是，您需要做的一件事是过滤您的选择集，以便只能选择具有面积特性的对象，或者在尝试访问面积特性之前检查内嵌。例如，如果用户选择了一行，你的程序就会崩溃。

查看完整版本: 如何执行此代码