明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
分享 插入文件并更新已有图块定义
Gu_xl 2013-4-2 15:58
问题来源: http://bbs.mjtd.com/thread-100770-1-1.html 解决方案代码: ;;选择文件插入,同时更新本图的图块 By Gu_xl 2013.04.02 (defun c:ins (/ DWGNAME DBXDOC ACVER & ...
2583 次阅读|2 个评论 热度 4
分享 AutoCAD R2000的文件格式
efan2000 2013-3-14 15:35
1、十六进制0D—10字节,为图像地址,如:DC 00 00 00,表示图像开始地址在DC。接下来为开始保留区,16字节,内容为:1F 25 6D 07 D4 36 28 28 9D 57 CA 3F 9D 44 10 2B,中间为图像数据,末尾为结束保留区,16字节,内容为:E0 DA 92 F8 2B C9 D7 D7 62 A8 35 C0 62 BB EF D4。如:00EC—413E,为图像数据。 2、19,00 ...
1917 次阅读|0 个评论 热度 1
分享 [函数]AutoCAD Lisp获取表中的前n个元素和其后的元素,并切分表。
snddd2000 2012-12-27 17:13
(defun sn:leftnthlst (n lst) ;;;返回一个表中的前n个元素的表 ;;;示例:(sn:leftnthlst 2 '(1 2 3 4 5 6));返回表(1 2) ;;;如果输入的n值大于表长返回原表;小于1返回nil (vl-remove nil (mapcar '(lambda (x) (if (= (setq n (1- n)) 0) x nil ) ) lst ) ) ) (defun sn:rightnthlst (n lst) ;;;返回一个表中的第n个 ...
1750 次阅读|2 个评论 热度 1
分享 动画
crazylsp 2012-12-24 17:07
;;模仿英雄无敌大师的框选导角,我的效果离他的只有一步之遥了嘿。 ;;框选导角 ;;动态移动尺寸 ;;直线片断的多边形外部修剪 ;;哈哈再来两个 ;;记忆拉伸和移动 ;;多个文挡图纸切换并最大缩放 切换
921 次阅读|2 个评论 热度 1
分享 从CASS中提取高程点坐标输出到文本
skg123 2012-12-17 11:42
CASS中高程点坐标提取,CASS自带的高程提取是整体(全部)高程点提取,当用户需要选择性的提取时就不方便了,本程序针对该问题进行了修改。 命令:gcdtq ;By 2012-12-17 宜昌 (defun c:gcdtq() (setvar "cmdecho" 0) ;指令执行过程不响应 (setq ff (open (getfiled "文件保存为" "f:/" "dat" 1) "a")) (se ...
2881 次阅读|1 个评论 热度 5
分享 世界末日到了
cabinsummer 2012-12-13 20:46
很久没有编程,几个月前的一次Ghost,竟然把以前的不少心血都付诸东流了。以后再也不把程序放到C盘了。悲夫!哀哉!苦矣!痛也!
1875 次阅读|6 个评论 热度 12
分享 转载不开图查找替换文字 红色是我增加的注释
crazylsp 2012-12-13 17:20
转载不开图查找替换文字 红色是我增加的注释
Option Explicit Private Sub cmdCancel_Click() End End Sub Private Sub cmdDelete_Click() ' 确认列表框包含列表项 If lstFil ...
1108 次阅读|3 个评论 热度 2
分享 文字前中后递增序号
crazylsp 2012-12-11 23:02
文字前中后递增序号
'原作于201208 20121211修改,相应递增字母部分以后有空再增加完善。
851 次阅读|0 个评论
分享 画线打断于交点处
Gu_xl 2012-12-11 18:29
画线打断于交点处.lsp 问题来源: http://bbs.mjtd.com/thread-99481-1-1.html 画线打断于交点处.lsp 本源代码由 Gu_xl 编写发布! 联系方式: Email: Gu_xl@sohu.com ;;画线打断于交点处 By Gu_xl 2012.12.11 ( defun c:tt ( / LA P0 PT S PL A d ) ( if ( n ...
2533 次阅读|2 个评论 热度 8
分享 点在封闭曲线内外判断
Gu_xl 2012-12-11 09:08
点在封闭曲线内外判断
点在曲线内外判断.LSP 本源代码由 Gu_xl 编写发布! 联系方式: Email: Gu_xl@sohu.com ;;功能:判断点在封闭曲线内外,自交曲线不适用 By Gu_xl 2012.07.31 ;;返回: 点在封闭曲线上或曲线内,返回T,否则返回nil ;;测试: (gxl-PtInCurveP (car(entsel "\n选择曲线:")) (getpo ...
3433 次阅读|1 个评论 热度 14

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

GMT+8, 2024-4-25 20:11 , Processed in 0.154090 second(s), 8 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

返回顶部