日志

分享 转载 狂刀的实体偏移程序

gtj116600 2013-6-1 00:17

增强的offset 已有 607 次阅读 2005-8-3 23:37 | 系统分类: 开发 ;| xff.lsp=增强的offset,-(原fff.lsp)--------------梁雄啸.2003.12 调用:command:xff 功能:可以 undo;中途改变 偏移距离; (未选中物体不退出) v1.0.2001 注明: 如要在r14下运行,将 vl-cmdf 改为 command   ...

650 次阅读|0 个评论 热度 1

分享 转载飞刀的 实体面积计算器

gtj116600 2013-6-1 00:14

实体面积计算器 已有 648 次阅读 2005-8-3 23:47 | 系统分类: 开发 ;| (aax) = 实体面积计算器---v1.1 ok!!!-----------------------------lxx.2004.7.30 说明: 1.支持封闭区域内取点，支持孤岛. 2.支持加，减方式. 3.支持一次多选方式(可以是ssget支持的所有选择方式). 4.支持中途计算步骤 ...

769 次阅读|0 个评论

分享 忙呀！！

duanshui83 2013-5-15 12:24

好久没有写东西了，有点怀念熬夜写代码的日子，现在改成熬夜加班了，悲哀啊！！

616 次阅读|0 个评论

分享 转载 学习正则表达式的一点心得

gtj116600 2013-5-15 10:18

学习正则表达式的一点心得 http://bbs.mjtd.com/forum.php?mod=viewthreadtid=101425fromuid=7301404 经常听说正则表达式在字符串处理方面的强大。也曾看了下正则的文章。但却被哪些乱七八糟的字符吓退了。 今天上午有时间，特意仔细的学习了下。 发现他并没多数人说的那么复杂。 特将一点心得分享。 ...

684 次阅读|0 个评论 热度 3

分享 cadtoexcel (CAD转EXCEL)

gtj116600 2013-5-15 10:10

http://bbs.mjtd.com/thread-93510-1-1.html

669 次阅读|0 个评论 热度 1

分享 矩阵相关的一点点！

wowan1314 2013-5-6 00:10

一、矩阵 1.矩阵与向量的学习是很有必要从原理公式根源上来学习的， 不然你无法理解其转换及运行原理 不了解透彻也就不能随心所欲的利用及构建。 2.高飞鸟已分享很多lisp中矩阵向量的函数，可作参考。还是要自己根据公式再写一遍。 有空再说 ...

3891 次阅读|1 个评论 热度 11

分享 已知方向、边长 绘制矩形 lisp

skg123 2013-5-5 21:50

;;;任意角度绘制矩形，已知方向、边长 ;;;命令名：3p-juxing1 ;;;日 期：Zo Roo 于 2012-10-27 (defun C:3p-juxing1(/ PT1 PT2 PT3 PT4 H ANG ANG2 TEST TMP) (prompt "BY Zo Roo 武赤公路 命令：3p-juxing1") (while (setq PT1 (getpoint "\n第一点:")) (if (setq PT2 (getpoint PT1 " \n 指定 ...

1774 次阅读|0 个评论 热度 1

分享 钢筋替换程序之一

baiyier1112 2013-5-5 21:31

(defun c:d6 (/ ss obj str en) (while (setq ss (ssget '((0 . "text") (1 . "%%13*`@*")))) (foreach en (x_ssn ss) ;(foreach name list expr...)此函数是将 list 中的每一个元素按顺序对应至name,然后再判别其在 expr 中的值。 &nbs ...

488 次阅读|0 个评论

分享 打开网页 lisp 代码

skg123 2013-5-4 21:06

构想，点击工具栏的工具 链接到自己的公司、 博客或空间上。 经过百度 ，源代码如下网址中 http://www.afralisp.net/archive/methods/lista/launchbrowserdialog_method.htm 案例Example : (defun c:al-launchbrowserdialog () (vl-load-com) (setq util (vla-get-utility ...

1388 次阅读|2 个评论 热度 1

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