明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
分享 块内填充对象置后显示
Gu_xl 2014-7-17 15:54
块内填充对象后置显示.LSP 块内填充对象后置显示.LSP 本源代码由 Gu_xl 编写发布! 联系方式: Email: Gu_xl@sohu.com ;;块内填充对象置后显示,CAD2005以上版本适用 By Gu_xl 2014.07.17 ( defun c:tt ( / en sortents dict blockdef lst Doc ) ( if ( and ( s ...
2838 次阅读|3 个评论 热度 8
分享 [收藏]递归 — 从斐波那契数列的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 ...
3852 次阅读|3 个评论 热度 17
分享 动态添加自定义工具条
Gu_xl 2014-6-12 23:05
动态添加自定义工具条
自定义添加工具条.LSP 态添加自定义工具条.LSP 本源代码由 Gu_xl 编写发布! 联系方式: Email: Gu_xl@sohu.com ;;功能:添加工具条 ;;参数: ;;MenuGroupName 菜单组名 ;;toolbarItems 要添加的工具条列表,格式如下: ;| '( (toolBarName ;_ 工具条名 ...
5967 次阅读|3 个评论 热度 23
分享 自定义菜单的自动加载
Gu_xl 2014-6-9 12:53
AutoLoadMenuPop.LSP AutoLoadMenuPop.LSP 本源代码由 Gu_xl 编写发布! 联系方式: Email: Gu_xl@sohu.com ;;程序功能:自动添加菜单项 By Gu_xl 明经通道 ;;菜单加载测试测试 ( defun c:tt ( / items items1 ) ;;'((标签 命令 帮助字串 次级菜单项)) 表为菜单 ...
4061 次阅读|4 个评论 热度 11
分享 多选物体绘制包围框
Gu_xl 2014-5-13 09:17
MBox.LSP MBox.LSP 本源代码由 Gu_xl 编写发布! 联系方式: Email: Gu_xl@sohu.com ;;框选物体画框 By Gu_xl 明经通道 2014.05.12 ( defun c:mBox ( / BOX INTERSECT RECTANG SS N L A L1 FLAG B C ) ( defun box ( e / p1 p2 p3 p4 obj ) ...
3635 次阅读|5 个评论 热度 16
分享 用arx方法创建南方CASS的高程点
Gu_xl 2014-4-15 09:06
//By Gu_xl // AcGePoint3d insPt 插入点 // double scale 图块比例,1:1000比例尺 scale = 1.0 // AcDbObjectId objId 返回的高程点ID // double height 标注的高程值 ,默认 = -9999.0,高程值采用insPt的Z值 Acad::ErrorStatus CreateGC200(AcDbDatabase *pDb,AcGePoint3d insPt,double scale,AcDbObjectId ...
2864 次阅读|1 个评论 热度 6
分享 按弦高限差值回返曲线拟合样本点
Gu_xl 2014-3-12 10:04
Gxl-GetSamplet.LSP Gxl-GetSamplet.LSP 本源代码由 Gu_xl 编写发布! 联系方式: Email: Gu_xl@sohu.com ;;(gxl-GetSamplet CURVE d) 按弦高返回曲线拟合样本点 ;;参数 curve = 曲线图元名/对象名 ;; d = 弦高限差值 ;; By Gu_xl 明经通道,2015.04.01修正了SPLIN ...
5085 次阅读|7 个评论 热度 19
分享 text文字头尾除空格,文字位置保持不动
Gu_xl 2014-3-4 14:13
;;text文字头尾除空格,文字位置保持不动 (defun c:tt (/ LLPT SC P1 P2 DOC E) (defun llpt (E / ENX B R L N M P) (setq enx (entget e)) (setq b (cdr (assoc 10 enx)) r (cdr (assoc 50 enx)) l (textbox enx) ...
1756 次阅读|1 个评论 热度 6
分享 米生活 创意家居
Gu_xl 2014-2-28 13:59
我小妹自主创业,开了个淘宝店 , “米生活 创意家居” , 欢迎大家有空去逛逛,给捧捧场!
1456 次阅读|0 个评论 热度 6

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-4-29 16:39 , Processed in 0.171407 second(s), 8 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

返回顶部