设为首页收藏本站转
发帖领奖家园QQ群申请版主版主评价切换到宽版

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › [LISP程序]：练习 点到线上最近点.lsp
返回列表 发新帖
查看: 2181|回复: 13

[LISP程序]：练习 点到线上最近点.lsp

[复制链接]
zml84

已领礼包: 2个

财富等级: 恭喜发财
发表于 2008-4-26 19:10:49 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要 登录 才可以下载或查看，没有账号？立即注册

×
<pre><font face="Fixedsys" color="#990099"><span style="BACKGROUND-COLOR: #cccccc">;;;========================================================</span></font>
<font face="Fixedsys" color="#990099"><span style="BACKGROUND-COLOR: #cccccc">;;;      练习                                              </span></font>
<font face="Fixedsys" color="#990099"><span style="BACKGROUND-COLOR: #cccccc">;;;功能：点到线上最近点                                    </span></font>
<font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">vl-load-com</font><font face="Fixedsys" color="#ff0000">)</font>
<font face="Fixedsys" color="#990099"><span style="BACKGROUND-COLOR: #cccccc">;;;========================================================</span></font>
<font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">defun</font> <font face="Fixedsys">C:TT</font> <font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">/</font> <font face="Fixedsys">TEST</font> <font face="Fixedsys">SS</font> <font face="Fixedsys">TMP</font> <font face="Fixedsys">MODE</font> <font face="Fixedsys">PT</font> <font face="Fixedsys">PT0</font><font face="Fixedsys" color="#ff0000">)</font>
    <font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">if</font>        <font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">and</font>
            <font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">setq</font> <font face="Fixedsys">SS</font> <font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">entsel</font> <font face="Fixedsys" color="#ff00ff">&quot;\n点取线: &quot;</font><font face="Fixedsys" color="#ff0000">)</font><font face="Fixedsys" color="#ff0000">)</font>
            <font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">princ</font> <font face="Fixedsys" color="#ff00ff">&quot;\n&quot;</font><font face="Fixedsys" color="#ff0000">)</font>
            <font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">setq</font> <font face="Fixedsys">TEST</font> <font face="Fixedsys" color="#0000ff">t</font><font face="Fixedsys" color="#ff0000">)</font>
        <font face="Fixedsys" color="#ff0000">)</font>
        <font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">while</font> <font face="Fixedsys">TEST</font>
            <font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">setq</font> <font face="Fixedsys">TMP</font>  <font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">grread</font> <font face="Fixedsys" color="#009900">4</font> <font face="Fixedsys" color="#009900">2</font><font face="Fixedsys" color="#ff0000">)</font>
                  <font face="Fixedsys">MODE</font> <font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">car</font> <font face="Fixedsys">TMP</font><font face="Fixedsys" color="#ff0000">)</font>
                  <font face="Fixedsys">PT</font>   <font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">cadr</font> <font face="Fixedsys">TMP</font><font face="Fixedsys" color="#ff0000">)</font>
            <font face="Fixedsys" color="#ff0000">)</font>
            <font face="Fixedsys" color="#990099"><span style="BACKGROUND-COLOR: #cccccc">;;        (princ MODE)</span></font>
            <font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">cond</font>
                <font face="Fixedsys" color="#990099"><span style="BACKGROUND-COLOR: #cccccc">;;移动</span></font>
                <font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">=</font> <font face="Fixedsys">MODE</font> <font face="Fixedsys" color="#009900">5</font><font face="Fixedsys" color="#ff0000">)</font>
                 <font face="Fixedsys" color="#990099"><span style="BACKGROUND-COLOR: #cccccc">;;计算最近点</span></font>
                 <font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">setq</font> <font face="Fixedsys">PT0</font> <font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">vlax-curve-getclosestpointto</font> <font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">car</font> <font face="Fixedsys">SS</font><font face="Fixedsys" color="#ff0000">)</font> <font face="Fixedsys">PT</font><font face="Fixedsys" color="#ff0000">)</font><font face="Fixedsys" color="#ff0000">)</font>
                 <font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">princ</font>
                     <font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">strcat</font> <font face="Fixedsys" color="#ff00ff">&quot;\r距离: &quot;</font> <font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">vl-princ-to-string</font> <font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">distance</font> <font face="Fixedsys">PT</font> <font face="Fixedsys">PT0</font><font face="Fixedsys" color="#ff0000">)</font><font face="Fixedsys" color="#ff0000">)</font><font face="Fixedsys" color="#ff0000">)</font>
                 <font face="Fixedsys" color="#ff0000">)</font>
                 <font face="Fixedsys" color="#990099"><span style="BACKGROUND-COLOR: #cccccc">;;</span></font>
                 <font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys">redraw</font><font face="Fixedsys" color="#ff0000">)</font>
                 <font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys">grdraw</font> <font face="Fixedsys">PT</font> <font face="Fixedsys">PT0</font> <font face="Fixedsys" color="#009900">1</font><font face="Fixedsys" color="#ff0000">)</font>
                <font face="Fixedsys" color="#ff0000">)</font>
                <font face="Fixedsys" color="#990099"><span style="BACKGROUND-COLOR: #cccccc">;;左击</span></font>
                <font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">=</font> <font face="Fixedsys">MODE</font> <font face="Fixedsys" color="#009900">3</font><font face="Fixedsys" color="#ff0000">)</font>
                 <font face="Fixedsys" color="#990099"><span style="BACKGROUND-COLOR: #cccccc">;;计算最近点</span></font>
                 <font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">setq</font> <font face="Fixedsys">PT0</font> <font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">vlax-curve-getclosestpointto</font> <font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">car</font> <font face="Fixedsys">SS</font><font face="Fixedsys" color="#ff0000">)</font> <font face="Fixedsys">PT</font><font face="Fixedsys" color="#ff0000">)</font><font face="Fixedsys" color="#ff0000">)</font>
                 <font face="Fixedsys" color="#990099"><span style="BACKGROUND-COLOR: #cccccc">;;绘制直线</span></font>
                 <font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">entmake</font> <font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">list</font>        <font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">cons</font> <font face="Fixedsys" color="#009900">0</font> <font face="Fixedsys" color="#ff00ff">&quot;LINE&quot;</font><font face="Fixedsys" color="#ff0000">)</font>
                                <font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">cons</font> <font face="Fixedsys" color="#009900">62</font> <font face="Fixedsys" color="#009900">2</font><font face="Fixedsys" color="#ff0000">)</font>
                                <font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">cons</font> <font face="Fixedsys" color="#009900">10</font> <font face="Fixedsys">PT</font><font face="Fixedsys" color="#ff0000">)</font>
                                <font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">cons</font> <font face="Fixedsys" color="#009900">11</font> <font face="Fixedsys">PT0</font><font face="Fixedsys" color="#ff0000">)</font>
                          <font face="Fixedsys" color="#ff0000">)</font>
                 <font face="Fixedsys" color="#ff0000">)</font>
                <font face="Fixedsys" color="#ff0000">)</font>
                <font face="Fixedsys" color="#990099"><span style="BACKGROUND-COLOR: #cccccc">;;右击</span></font>
                <font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">=</font> <font face="Fixedsys">MODE</font> <font face="Fixedsys" color="#009900">11</font><font face="Fixedsys" color="#ff0000">)</font>
                 <font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys">redraw</font><font face="Fixedsys" color="#ff0000">)</font>
                 <font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">setq</font> <font face="Fixedsys">TEST</font> <font face="Fixedsys" color="#0000ff">NIL</font><font face="Fixedsys" color="#ff0000">)</font>
                <font face="Fixedsys" color="#ff0000">)</font>
                <font face="Fixedsys" color="#990099"><span style="BACKGROUND-COLOR: #cccccc">;;</span></font>
                <font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">t</font>
                 <font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">princ</font> <font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">strcat</font> <font face="Fixedsys" color="#ff00ff">&quot;\r&quot;</font> <font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">vl-princ-to-string</font> <font face="Fixedsys">TMP</font><font face="Fixedsys" color="#ff0000">)</font><font face="Fixedsys" color="#ff0000">)</font><font face="Fixedsys" color="#ff0000">)</font>
                <font face="Fixedsys" color="#ff0000">)</font>
            <font face="Fixedsys" color="#ff0000">)</font>
        <font face="Fixedsys" color="#ff0000">)</font>
    <font face="Fixedsys" color="#ff0000">)</font>
    <font face="Fixedsys" color="#ff0000">(</font><font face="Fixedsys" color="#0000ff">princ</font><font face="Fixedsys" color="#ff0000">)</font>
<font face="Fixedsys" color="#ff0000">)</font>
<font face="Fixedsys" color="#990099"><span style="BACKGROUND-COLOR: #cccccc">;;;========================================================</span></font>
<font face="Fixedsys" color="#990099"><span style="BACKGROUND-COLOR: #cccccc">;;;后记：暂没有考虑选择对象的类型、坐标系的转换。</span></font>
</pre>
quot, princ, MODE

相关帖子

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

animal212
发表于 2008-5-2 21:45:25 | 显示全部楼层
这材料不错哦。学到了不少。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

qjcpj
发表于 2008-5-3 09:58:12 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
感谢分享!
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

tow
发表于 2008-5-7 14:27:26 | 显示全部楼层
入門中﹗
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

coolsnake
发表于 2008-5-7 17:21:02 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
谢谢啊！先拿来看看，这里发源码的人不少啊，下次我也发源码大家分享。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

softbird
发表于 2008-5-14 23:07:50 | 显示全部楼层
使用了很不错，不知道能否加上对点的捕捉，以方便精确的定位
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

雨箭风刀
发表于 2008-5-15 13:24:22 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
(command ".xline" "per" pause)
这句代码虽然短，但却有异曲同工之妙
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

leeyuan
发表于 2008-5-15 23:07:17 | 显示全部楼层
学习了下grread的用法
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

黄河之水
发表于 2008-5-18 12:59:03 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
已试过，有创意
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

god1478
发表于 2008-5-19 19:25:14 | 显示全部楼层
这个东西有时很实用的  需要自己把握 谢谢了  楼主
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

wawbt
发表于 2008-5-31 21:36:14 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
同意六楼的意见,确实应增加捕捉功能,方便做图
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

zml84

已领礼包: 2个

财富等级: 恭喜发财
 楼主| 发表于 2024-11-23 14:00:17 | 显示全部楼层
作为入门练习，还是可以的。
https://tool.zml84.xyz/lisp/view/?uuid=cc54cbe6-ff61-4877-94d2-a6ed16df2c7f
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

zml84

已领礼包: 2个

财富等级: 恭喜发财
 楼主| 发表于 2024-11-23 14:00:23 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
作为入门练习，还是可以的。
https://tool.zml84.xyz/lisp/view/?uuid=cc54cbe6-ff61-4877-94d2-a6ed16df2c7f
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

tungping_pan
发表于 前天 18:15 | 显示全部楼层
学习一下！
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复

使用道具 举报

返回列表 发新帖
高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-12-19 02:09 , Processed in 0.490247 second(s), 57 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表