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

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › [求助]：如何实现系统画PL线时的效果?
返回列表 发新帖
查看: 1003|回复: 5

[求助] [求助]：如何实现系统画PL线时的效果?

[复制链接]
oyxx_1023
发表于 2007-5-28 12:17:54 | 显示全部楼层 |阅读模式
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

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

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

×
就是每拾取完一个点后,在下一个点未确定时有橡皮线的效果,我写了几句发现不行.

  3. (defun c:tt ()
  4.   (setq spt (getpoint "\n指点起点:"))
  5.   (command ".pline" spt pause)
  6.   (while (setq pt (getpoint "\npick point:")) (command pt pause))
  7.   (command "")
  8.   (princ)
  9. )

是不是要用GRREAD?
command, 橡皮线, getpoint

相关帖子

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

使用道具 举报

adisonmaster
发表于 2007-5-28 12:23:11 | 显示全部楼层
你要实现什么功能呢?试试下面的程序！
(setq pt1 (getpoint  "\npick point:"))
(setq pt2 (getpoint pt1 "\npick next point:"))
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

zml84

已领礼包: 2个

财富等级: 恭喜发财
发表于 2007-5-28 13:58:22 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略

  3. (defun C:TT ()
  4.     (if        (setq SPT (getpoint "\n指点起点:"))
  5.         (progn
  6.             (command "_.pline" "non" SPT)
  7.             (while (setq PT (getpoint SPT "\npick point:"))
  8.                 (command "non" PT)
  9.                 (setq SPT PT)
  10.             )
  11.             (command "")            
  12.         )
  13.     )
  14.     (princ)
  15. )


在getpoint函数中加入点参数，就可以实现橡皮筋效果；
另外，想要实现矩形框效果，请揣摩(getcorner pt [msg]) 的用法。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

oyxx_1023
 楼主| 发表于 2007-5-30 08:44:00 | 显示全部楼层
谢谢.ZML84,我想再在这程序中加入可以逐步UNDO的处理,也像系统画PLINE时的UNDO一步时取消上一个点,能否指点一二?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

zml84

已领礼包: 2个

财富等级: 恭喜发财
发表于 2007-5-30 13:16:16 | 显示全部楼层
【广而告之】积分规则、D豆获取攻略       窝窝空间装扮攻略
使用initget函数添加选项，可以实现要求。

  3. <PRE><FONT face="Fixedsys" COLOR=#990099><SPAN STYLE="BACKGROUND-COLOR: #CCCCCC">;;;练习------在响应中添加选项</SPAN></FONT>
  4. <FONT face="Fixedsys" COLOR=#990099><SPAN STYLE="BACKGROUND-COLOR: #CCCCCC">;;;日期：zml84 于 2007-05-30</SPAN></FONT>
  5. <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">PT</FONT> <FONT face="Fixedsys">LST</FONT> <FONT face="Fixedsys">STR</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  6.     <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">setvar</FONT> <FONT face="Fixedsys" COLOR="#FF00FF">"CMDECHO"</FONT> <FONT face="Fixedsys" COLOR="#009900">0</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  7.     <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">if</FONT>        <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">setq</FONT> <FONT face="Fixedsys">PT</FONT> <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">getpoint</FONT> <FONT face="Fixedsys" COLOR="#FF00FF">"\n指定起点:"</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  8.         <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">progn</FONT>
  9.             <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">command</FONT> <FONT face="Fixedsys" COLOR="#FF00FF">"_.pline"</FONT> <FONT face="Fixedsys" COLOR="#FF00FF">"non"</FONT> <FONT face="Fixedsys">PT</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  10.             <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">setq</FONT> <FONT face="Fixedsys">LST</FONT> <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">list</FONT> <FONT face="Fixedsys">PT</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  11.             <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">while</FONT> <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">progn</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">=</FONT> <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys">length</FONT> <FONT face="Fixedsys">LST</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT> <FONT face="Fixedsys" COLOR="#009900">1</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  12.                               <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">setq</FONT> <FONT face="Fixedsys">STR</FONT> <FONT face="Fixedsys" COLOR="#FF00FF">"\n下一点:"</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  13.                               <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">progn</FONT>
  14.                                   <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">setq</FONT> <FONT face="Fixedsys">STR</FONT> <FONT face="Fixedsys" COLOR="#FF00FF">"\n下一点或 [回撤(U)]:"</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  15.                                   <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys">initget</FONT> <FONT face="Fixedsys" COLOR="#FF00FF">"U"</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  16.                               <FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  17.                           <FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  18.                           <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">setq</FONT> <FONT face="Fixedsys">PT</FONT> <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">getpoint</FONT> <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">car</FONT> <FONT face="Fixedsys">LST</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT> <FONT face="Fixedsys">STR</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  19.                    <FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  20.                 <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">command</FONT> <FONT face="Fixedsys" COLOR="#FF00FF">"non"</FONT> <FONT face="Fixedsys">PT</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  21.                 <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">if</FONT> <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">=</FONT> <FONT face="Fixedsys">PT</FONT> <FONT face="Fixedsys" COLOR="#FF00FF">"U"</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  22.                     <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">setq</FONT> <FONT face="Fixedsys">LST</FONT> <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">cdr</FONT> <FONT face="Fixedsys">LST</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  23.                     <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">setq</FONT> <FONT face="Fixedsys">LST</FONT> <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">cons</FONT> <FONT face="Fixedsys">PT</FONT> <FONT face="Fixedsys">LST</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  24.                 <FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  25.             <FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  26.             <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">command</FONT> <FONT face="Fixedsys" COLOR="#FF00FF">""</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  27.         <FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  28.     <FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  29.     <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">princ</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  30. <FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  31. </PRE>

关于添加选项更进一步的用法，参见：http://zml84.blog.sohu.com/47343318.html
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

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

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-10-19 15:45 , Processed in 0.371155 second(s), 41 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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