- 博客(27)
- 资源 (6)
- 收藏
- 关注
原创 LispFunction:通过.netl定义Lisp函数
定义一个两数相加的lisp函数。编译下列代码用netload命令加载编译的dll文件后,在命令行里运行(AddNumber 45 69)可以得到两数的相加值返回114.Imports ZwSoft.ZwCAD.RuntimeImports ZwSoft.ZwCAD.DatabaseServicesNamespace test Public Class te
2013-07-31 17:15:04 1656
原创 通过设置注册表使得启动ZWCAD时自动加载.net程序
1. 运行regedit命令打开注册表。2. 找到如下路径:[HKEY_LOCAL_MACHINE\SOFTWARE\ZWSOFT\ZWCAD\2014\en-US\Applications]3. 添加一个项,如命名为test。4. 添加如下几个值:"DESCRIPTION"="Just a test!""LOADCTRLS"=dword:0000000e"LOADER
2013-07-31 17:02:24 1973
原创 判断块是否为匿名块
Imports ZwSoft.ZwCAD.RuntimeImports ZwSoft.ZwCAD.ApplicationServicesImports ZwSoft.ZwCAD.DatabaseServicesImports ZwSoft.ZwCAD.EditorInputPublic Class ZwcadApps _ Public Sub An
2013-07-25 16:27:17 768
原创 创建ZWCAD实体--弧长标注
Imports ZwSoft.ZwCAD.RuntimeImports ZwSoft.ZwCAD.ApplicationServicesImports ZwSoft.ZwCAD.DatabaseServicesImports ZwSoft.ZwCAD.EditorInputImports ZwSoft.ZwCAD.GeometryPublic Class ZwcadAp
2013-07-22 17:54:44 602
原创 创建ZWCAD实体--对齐标注
Imports ZwSoft.ZwCAD.RuntimeImports ZwSoft.ZwCAD.ApplicationServicesImports ZwSoft.ZwCAD.DatabaseServicesImports ZwSoft.ZwCAD.EditorInputImports ZwSoft.ZwCAD.GeometryPublic Class ZwcadAp
2013-07-22 17:29:59 856
原创 编辑ZWCAD实体--偏移对象
Imports ZwSoft.ZwCAD.RuntimeImports ZwSoft.ZwCAD.ApplicationServicesImports ZwSoft.ZwCAD.DatabaseServicesImports ZwSoft.ZwCAD.EditorInputImports ZwSoft.ZwCAD.GeometryPublic Class ZwcadAp
2013-07-22 09:52:44 631
原创 编辑ZWCAD实体--镜像对象
Imports ZwSoft.ZwCAD.RuntimeImports ZwSoft.ZwCAD.ApplicationServicesImports ZwSoft.ZwCAD.DatabaseServicesImports ZwSoft.ZwCAD.EditorInputImports ZwSoft.ZwCAD.GeometryPublic Class ZwcadAp
2013-07-22 09:24:01 637
原创 编辑ZWCAD实体--移动对象
Imports ZwSoft.ZwCAD.RuntimeImports ZwSoft.ZwCAD.ApplicationServicesImports ZwSoft.ZwCAD.DatabaseServicesImports ZwSoft.ZwCAD.EditorInputImports ZwSoft.ZwCAD.GeometryPublic Class ZwcadAp
2013-07-19 15:25:54 1453
原创 编辑ZWCAD实体--缩放对象
Imports ZwSoft.ZwCAD.RuntimeImports ZwSoft.ZwCAD.ApplicationServicesImports ZwSoft.ZwCAD.DatabaseServicesImports ZwSoft.ZwCAD.EditorInputImports ZwSoft.ZwCAD.GeometryPublic Class ZwcadAp
2013-07-19 15:21:49 587
原创 编辑ZWCAD实体--旋转对象
_ Public Sub RotateObject() Dim ZcDoc As Document = Application.DocumentManager.MdiActiveDocument Dim ZcDB As Database = ZcDoc.Database Dim ZcEd As Editor = ZcDoc.Edito
2013-07-19 15:13:09 5062
原创 编辑ZWCAD实体--复制对象
Imports ZwSoft.ZwCAD.RuntimeImports ZwSoft.ZwCAD.ApplicationServicesImports ZwSoft.ZwCAD.DatabaseServicesImports ZwSoft.ZwCAD.EditorInputImports ZwSoft.ZwCAD.GeometryPublic Class ZwcadAp
2013-07-19 14:51:39 767
原创 添加和获取XData扩展数据
Imports ZwSoft.ZwCAD.RuntimeImports ZwSoft.ZwCAD.ApplicationServicesImports ZwSoft.ZwCAD.DatabaseServicesImports ZwSoft.ZwCAD.EditorInputImports ZwSoft.ZwCAD.GeometryPublic Class ZwcadAp
2013-07-18 16:37:29 2008
原创 判断选择的两个图纸中的对象是否有交点(相交)
Imports ZwSoft.ZwCAD.RuntimeImports ZwSoft.ZwCAD.ApplicationServicesImports ZwSoft.ZwCAD.DatabaseServicesImports ZwSoft.ZwCAD.EditorInputImports ZwSoft.ZwCAD.GeometryPublic Class ZwcadAp
2013-07-18 14:26:45 4323
原创 获取选择PolyLine多段线的各个端点
Imports ZwSoft.ZwCAD.RuntimeImports ZwSoft.ZwCAD.ApplicationServicesImports ZwSoft.ZwCAD.DatabaseServicesImports ZwSoft.ZwCAD.EditorInputImports ZwSoft.ZwCAD.GeometryPublic Class ZwcadAp
2013-07-17 15:26:26 5600
原创 判断所选的对象是块参照还是外部参照
Imports ZwSoft.ZwCAD.RuntimeImports ZwSoft.ZwCAD.ApplicationServicesImports ZwSoft.ZwCAD.DatabaseServicesImports ZwSoft.ZwCAD.EditorInputPublic Class ZwcadApp _ Public Sub block
2013-07-16 17:18:54 2341
原创 获取模型空间图纸空间的ObjectId的几种方法
获取模型空间ObjectId的方法:方法一:Dim ZcDB As Database = Application.DocumentManager.MdiActiveDocument.DatabaseDim ModelSpaceID As ObjectId = SymbolUtilityServices.GetBlockModelSpaceId(ZcDB)方法二:
2013-07-16 16:35:58 2874
原创 点击按钮调出CHM帮助文档
Private Sub Help_Button_Click(ByVal sender As System.Object, ByVal e As System.Windows.RoutedEventArgs) Handles Help_Button.Click Dim preferences As ZcadPreferences = ThisDrawing.Application.
2013-07-12 10:30:12 685
原创 定义ThisDrawing属性
Public ReadOnly Property ThisDrawing() As ZcadDocument Get Return ZwSoft.ZwCAD.ApplicationServices.Application.DocumentManager.MdiActiveDocument.ZcadDocument() End Get
2013-07-12 09:57:29 1748
原创 获取对象类型及类型判断的几种方法
方法一:ent.GetType().name.ToString方法二:ent.GetRXClass.Name方法三:ent.GetType()方法四:Typeof(ent) Is type 'type:Line,DBpoint...方法五:ent Is type 'type:Line,DBpoint...
2013-07-11 18:15:12 1583
原创 获取当前数据库的两种方法
方法一:Dim ZcDb As Database = Application.DocumentManager.MdiActiveDocument.Database方法二: Dim ZcDb As Database = HostApplicationServices.WorkingDatabase
2013-07-11 17:54:42 1429
原创 历遍图纸中所有对象并删除
Imports ZwSoft.ZwCAD.RuntimeImports ZwSoft.ZwCAD.ApplicationServicesImports ZwSoft.ZwCAD.DatabaseServicesPublic Class ZwcadApp _ Public Sub DeleteEntity() Dim ZcDoc A
2013-07-11 17:49:19 986
原创 打开一张已存在的图纸并设置为当前
Imports ZwSoft.ZwCAD.RuntimeImports ZwSoft.ZwCAD.ApplicationServicesPublic Class ZwcadApp _ Public Sub OpenDocument() Dim FileName As String = "C:/test.dwg" Di
2013-07-11 17:30:56 757
原创 使用标准模板创建一个图纸文档
Imports ZwSoft.ZwCAD.RuntimeImports ZwSoft.ZwCAD.ApplicationServicesPublic Class ZwcadApp _ Public Sub CreateDocument() Dim ZcDocMgr As DocumentCollection = Application
2013-07-11 16:44:12 839
原创 锁定和解锁文档
Using lockDocument As DocumentLock = zcDoc.LockDocument '锁定文档 Using zcTran As Transaction = zcDB.TransactionManager.StartTransaction '打开事务。。。 End Using '关闭事务End Using ’解锁文档
2013-07-11 09:09:55 862
原创 修改(自定义)窗口的标题栏和图标
Imports ZwSoft.ZwCAD.RuntimeImports System.DrawingImports ZwApp = ZwSoft.ZwCAD.ApplicationServicesPublic Class ZwcadApp _ Public Sub ChangeWindow() Dim MWindow As ZwSoft.
2013-07-10 15:40:10 2585
转载 在WPF中自定义滚动条
STYLING A SCROLLVIEWER/SCROLLBAR IN WPFA while back I was looking at the Infragistics WPf showcase,Tangerine and I was quite jealous about the scrollbars that they managed to use. I mean styling
2013-07-04 14:49:50 1424
原创 将选择集中不不是当前空间中的对象去除
'*************将选择集中不不是当前空间中的对象去除******************** Public Sub FilterLayout(ByRef ss As ZcadSelectionSet, ByRef layoutName As String) Dim max As Integer Dim objArray() As ZcadE
2013-07-04 10:38:53 717
visual assist x crack 破解 补丁
2013-03-13
DCL对话框自学教程
2013-02-28
空空如也
TA创建的收藏夹 TA关注的收藏夹
TA关注的人