- 博客(7)
- 资源 (1)
- 收藏
- 关注
RSS订阅原创 datagridview 右键创建菜单项（插入 复制 删除等操作）
// TX_Math.ContextMenuWrapusing System;using System.Collections.Generic;using System.Drawing;using System.Windows;using System.Windows.Forms;public class ContextMenuWrap{ public ContextMenuStrip contextMenuStrip; public ToolStripMenuItem copyCo.
2021-12-21 09:40:54
930
原创 CAD二次开发（Vba）------select和selectbypolygon选择不到object问题解决
cad使用select和selectbypolygon时出现选择范围正确但选择范围内object选择不到selectionset集合中，在进行绘图过程中发现不停的狂按鼠标中键(zoomall)时会选择到object，建议在使用select和selectbypolygon时添加一行zoomall语句，尤其是循环搜索时。代码放一段官方的帮助文档，添加了一行ZoomALL。Sub Example_SelectByPolygon() ' This example adds objects to .
2021-08-26 17:00:58
1819
原创 CAD二次开发（Vba）------SETXDATA使用
首先发一下组码值类型查询网址和按数字次序排列的组码大家可以参考按数字次序排列的组码进行XDATA的设置通过以下两组代码大家一定要注意在使用xdata时，首先的组码值类型一定要是1001，定义你的扩展数据的注册应用程序名，后面的组码值类型也要和你的组码值相对应。这是官方帮助文档给的代码Sub Example_SetXdata() ' This example creates a line and attaches extended data to that line.
2021-08-25 20:35:58
1810
2
原创 CAD二次开发（Vba）------ 查找不同图层中（直线、多段线）的相交点，并进行标注、将编号、坐标点输出到excel文件中
使用插件前判断蓝色线与红色线的交点（标注的圆与数字另设图层）输出到excel文件中，第一列为两图层名合并，第二列为标记点编号，与上图对应，后三列为xyz坐标。
2021-08-11 14:52:01
2253
原创 CAD二次开发（Vba）------鼠标与vba交互
1.使用utility方法sub test1() Dim ptPick As Variant tPick =ThisDrawing. Utility. GetPoint （， " 指 定 点："） tbPtX = ptPick（0） tbPtY = ptPick（1） tbPtZ = ptPick（2） msgbox cstr(tbptx) & "," & cstr(tbpty) & "," & cstr(tbptz)
2021-05-17 17:56:29
1584
1
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人