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

如何执行此代码

您好#65292；每个人#65292；谁能告诉我如何为图片#65281
点击选择按钮选择多个cad闭合图形，然后计算数据框后面所选图形显示区域的总和！在“价格”列中设置价格。总字段=单位面积，此外；谢谢

赵阳 发表于 2011-4-27 08:21:21

就这样我&#039；我清楚了…你选择了多条闭合多段线&nbsp；总面积是多少？？

网友俱乐部 发表于 2011-4-27 08:48:20

你还需要所有的代码，其中一些，什么&nbsp&nbsp；你知道如何为多段线设置选择集吗&nbsp；基本上，您的过程如下所示：dim sset as selectionset将对象dim objent as acadentity将答案dim answer as double为sset中的每个对象创建包括多段线和lw多段线的选择集；答案=答案+objent。区域下一个对象

励志 发表于 2011-4-27 20:54:31

是的，就是这样！

超级粽子 发表于 2011-4-27 21:03:12


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

陆风哥哥 发表于 2011-4-27 23:47:20

textbox1.value=答案

随心所欲 发表于 2011-4-28 02:19:45

谢谢~~

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

私有子cdmpick11\u Click（）
；弗里曼。将SS隐藏为AcadSelectionSet。选择集。添加（“SS”）
SS。对于SS中的每个对象，在屏幕上选择Dim object As a Identity（将对象作为身份设置为Dim Marea As Double）；Marea=Marea+对象。面积下一个。删除&#039；要删除选择集，存在tabaa11.Value=Marea.Value=ThisDrawing.Utility。GetString（0，vbCrLf，输入铣削深度（mm）&lt；5&gt：&quot；）
fee10=（tabaa10-tabaa11）*（深度10/0.25）*0.0357*0.01；弗里曼。显示结束子文件；弗里曼。将SS隐藏为AcadSelectionSet。选择集。添加（“SS”）
SS。对于SS中的每个对象，在屏幕上选择Dim object As a Identity（将对象作为身份设置为Dim Marea As Double）；Marea=Marea+对象。面积下一个。删除&#039；删除存在的选择集。Value=Marea；弗里曼。显示结束子菜单；弗里曼。将SS隐藏为AcadSelectionSet。选择集。添加（“SS”）
SS。对于SS中的每个对象，在屏幕上选择Dim object As a Identity（将对象作为身份设置为Dim Marea As Double）；Marea=Marea+对象。面积下一个。删除&#039；要删除选择集，存在tabaa13.Value=Marea.Value=ThisDrawing.Utility。GetString（0，vbCrLf，输入铣削深度（mm）&lt；5&gt：&quot；）
fee11=（tabaa12-tabaa13）*（deep11/0.07）*0.05*0.01；弗里曼。显示如何更改深度。然后更新费用！以及；Tfee=（fee1+fee2+fee10+fee12）*1“；如何做？该用户是&#039；t当前已忽略
；谢谢

演员 发表于 2011-4-28 11:17:43

试试看[代码如果是我，我会去掉autocad提示的深度，只让用户在表单上填写，但是&#039；这是你的决定
但是需要做的一件事是过滤选择集，以便只能选择具有面积特性的对象，或者在尝试访问面积特性之前检查内联&nbsp；例如，如果用户选择了一行，您的程序将按原样崩溃。
页: [1]
查看完整版本: 如何执行此代码