日志

分享 无可用源 没有为任何调用堆栈框架加载任何符号 无法显示源代码 VS2010 CAD2012

虎子 2015-1-26 23:16

VS2010+vs2012 创建了一个项目，添加了一个Form 调试时发现Form里的代码设置断点就出现如题所示的错误 开始以为是VS的问题 尝试新建了一个最简单的WinForm程序 窗体里的代码好好的，能用断点 应该就还是CAD出的拐 后来查到，是我在显示窗体的时候直接用show不得行，要这样写 Form1 main = new Form1(); ...

828 次阅读|0 个评论

分享 分离CAD对象，并将cad对象分类，依次输出各种cad的总长

charlesli8 2014-12-19 22:43

Option Explicit '创建选择集 Public Function createSSet(ByVal SSetName As String) As AcadSelectionSet Dim SSet As AcadSelectionSet Dim i As Integer For i = 0 To ThisDrawing.SelectionSets.Count - 1 Set SSet = ThisDrawing.S ...

704 次阅读|0 个评论

分享 今天写第一篇日志

yx5277 2014-11-15 23:49

陶艺-恋泥坊

452 次阅读|0 个评论

分享 框选缩放

听话别关注我 2014-11-2 13:51

如何将CAD中鼠标的中键设置成框选缩放， 如何将CAD中鼠标的 右键设置成缩放回前次，或者设置成某个命令 已同步至 听话别关注我的微博

780 次阅读|0 个评论

分享 曲线两点间的距离

77077 2014-7-3 16:41

;曲线两点间的距离 (defun c:dd ( / obj pt1 pt2 l1 l2) (vl-load-com) (setq obj(vlax-ename-vla-object (car (nentsel "\n 选择一条线"))) pt1 (getpoint "\n 第一点!") pt2 (getpoint "\n 第二点!") ) (setq l1 (vlax-curve-getDistAtPoint ...

1584 次阅读|1 个评论

分享 [收藏]递归 — 从斐波那契数列的Lisp求法开始

77077 2014-6-23 23:44

收集和总结一下递归的用法，不足之处请大家指正。 从下面例子可以看出递归的算法如同数学归纳法，在函数内部会一直倒推至n=0（1）的值，如果不能收敛(缺少递归结束条件)，就会出现堆栈溢出。因此对于短表尚可，长表运行效率较低。 斐波那契数列 也叫黄金分割数列，从第三项开始值为前两项之和 '(1 1 2 3 5 8 13 21 34 5 ...

491 次阅读|0 个评论 热度 4

分享 计算多段线自交点函数

Gu_xl 2014-6-21 21:21

计算多段线自交点.LSP 计算多段线自交点.LSP 本源代码由 Gu_xl 编写发布！ 联系方式: Email: Gu_xl@sohu.com ;;计算多段线自交点 By 明经通道 Gu_xl 2014.06.21 ( defun gxl-polyselfinters ( OBJ / LST I ISCLOSED FLAG OBJ1 LST1 FLAG1 OBJ2 L ...

3838 次阅读|3 个评论 热度 17

分享 动态添加自定义工具条

Gu_xl 2014-6-12 23:05

自定义添加工具条.LSP 态添加自定义工具条.LSP 本源代码由 Gu_xl 编写发布！ 联系方式: Email: Gu_xl@sohu.com ;;功能:添加工具条 ;;参数: ;;MenuGroupName 菜单组名 ;;toolbarItems 要添加的工具条列表,格式如下: ;| '( (toolBarName ;_ 工具条名 ...

5953 次阅读|3 个评论 热度 23

本页有 2 篇日志因作者的隐私设置或未通过审核而隐藏