日志

分享 留个痕迹

wowan1314 2022-12-11 15:49

读高飞鸟关于trans的帖子有感写两个函数，不知对否。 ;;======== { NO 点到两点表示的线;三个返回值，垂线距离+线起点到垂足距离+垂足坐标 } =========;; ;; (defun yy-pts-dispt2pt11 (pt pta ptb / ba) ;求点到线的垂线距离 ;(car (trans (mapcar '- pt pta) 0 (mapcar '- ptb pta))) (setq ba (mapcar ' ...

3580 次阅读|0 个评论 热度 5

分享 【抛砖引玉】新奇有趣的程序

wowan1314 2019-11-13 15:07

最近翻看了几年来的帖子。 感觉这几年也没出现什么新鲜有趣的新程序。 大家有发现有什么新鲜有趣的程序，发个动画图片出来到论坛也好啊~ 开阔下眼界。 发不了贴，就发这里吧~ 给大家起个头。

6753 次阅读|5 个评论 热度 9

分享 矩阵相关的一点点！

wowan1314 2013-5-6 00:10

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

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

分享 随手收集的技巧，资料。

wowan1314 2013-4-15 11:00

可以生成编组，但操作编组不靠谱： 1、不能在文档间复制，会丢失编组 2、添加新实体到已有编组，不靠谱，有时会出错。 3、分解有实体的编组不靠谱。尤其是一个实体的编组。生成nil的编组。复制后会还原。删除编组后马上重启CAD才可以。 把编组当做是扩展数据的补充数据仅此而已。以上测试在CAD2010与CAD2012上测得 ...

3131 次阅读|1 个评论 热度 12

分享 VLA方法处理面域,含数字排序，切换快捷键，快速打印，PL3种画法。

wowan1314 2012-12-13 19:35

( vl-load-com ) ( setvar "cmdecho" 0 ) ( setq *AcadDoc* ( vla-get-ActiveDocument ( vlax-get-Acad-Object ) ) ) ( setq *MoSpace* ( vla-get-ModelSpace*AcadDoc* ) ) ( defun c:test ( /&n ...

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

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