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

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › [求助]：怎样用循环画pl线?
返回列表 发新帖
查看: 1050|回复: 4

[求助] [求助]：怎样用循环画pl线?

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

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

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

×
想用一个程序将其中的点的坐标用循环全部求出来,然后将这些点一个一个连接起来,应该怎么办呢?

我写的一个不能通过的程序,高手帮我看看应该怎么办,怎么做到,谢谢!!!
(DEFUN C:cs()
  (SETQ p0 (GETPOINT "\n插入点 : "))
  (setq mm 6)   ;循环次数
  (setq k 1)     
  (command "pline")        ;先用pline可以不?
    (repeat mm
  (setq p1 (polar p0 k k))   ;p1的坐标用循环求出来
      (setq k (+ 1 k))
    )
    (command "")
  )
循环, SETQ, 一个

相关帖子

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

使用道具 举报

Underway

已领礼包: 7230个

财富等级: 富甲天下
发表于 2007-5-13 09:25:05 | 显示全部楼层

Re: [求助]：怎样用循环画pl线?


  3.   [FONT=courier new]
  4. (DEFUN C:cs ()
  5.   (SETQ p0 (GETPOINT "\n插入点 : "))
  6.   (setq mm 6)                        ;循环次数
  7.   (setq k 1)
  8.   (command "pline")                ;先用pline可以不?
  9.   (repeat mm
  10.     (setq p1 (polar p0 k k))                ; !????  角度= k !?
  11.     (command p1)                        ; 加这一句
  12.     (setq k (+ 1 k))
  13.   )
  14.   (command "")
  15. )
  16.   [/FONT]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

zml84

已领礼包: 2个

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

  3. <CENTER><H1>连续画线.lsp</H1></CENTER>
  4. <SCRIPT LANGUAGE="JavaScript">document.write("最后修改时间: " + document.lastModified)
  5. </SCRIPT>
  6. <HR SIZE=5><PRE><FONT face="Fixedsys" COLOR=#990099><SPAN STYLE="BACKGROUND-COLOR: #CCCCCC">;;;定义命令 CS</SPAN></FONT>
  7. <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">defun</FONT> <FONT face="Fixedsys">C:CS</FONT> <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">/</FONT> <FONT face="Fixedsys">P0</FONT> <FONT face="Fixedsys">MM</FONT> <FONT face="Fixedsys">ANG</FONT> <FONT face="Fixedsys">K</FONT> <FONT face="Fixedsys">P1</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  8.     <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">P0</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>
  9.         <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">progn</FONT>
  10.             <FONT face="Fixedsys" COLOR=#990099><SPAN STYLE="BACKGROUND-COLOR: #CCCCCC">;;循环次数</SPAN></FONT>
  11.             <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">setq</FONT> <FONT face="Fixedsys">MM</FONT> <FONT face="Fixedsys" COLOR="#009900">100</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  12.             <FONT face="Fixedsys" COLOR=#990099><SPAN STYLE="BACKGROUND-COLOR: #CCCCCC">;;初始化</SPAN></FONT>
  13.             <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">setq</FONT> <FONT face="Fixedsys">ANG</FONT> <FONT face="Fixedsys" COLOR="#009900">0</FONT>
  14.                   <FONT face="Fixedsys">K</FONT>   <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">/</FONT> <FONT face="Fixedsys" COLOR="#0000FF">pi</FONT> <FONT face="Fixedsys" COLOR="#009900">10</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  15.             <FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  16.             <FONT face="Fixedsys" COLOR=#990099><SPAN STYLE="BACKGROUND-COLOR: #CCCCCC">;;开始绘制</SPAN></FONT>
  17.             <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">command</FONT> <FONT face="Fixedsys" COLOR="#FF00FF">"_.pline"</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  18.             <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">repeat</FONT> <FONT face="Fixedsys">MM</FONT>
  19.                 <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">setq</FONT> <FONT face="Fixedsys">P1</FONT> <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">polar</FONT> <FONT face="Fixedsys">P0</FONT> <FONT face="Fixedsys">ANG</FONT> <FONT face="Fixedsys">ANG</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT><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">P1</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  21.                 <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">setq</FONT> <FONT face="Fixedsys">P0</FONT>  <FONT face="Fixedsys">P1</FONT>
  22.                       <FONT face="Fixedsys">ANG</FONT> <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">+</FONT> <FONT face="Fixedsys">ANG</FONT> <FONT face="Fixedsys">K</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  23.                 <FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  24.             <FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  25.             <FONT face="Fixedsys" COLOR=#990099><SPAN STYLE="BACKGROUND-COLOR: #CCCCCC">;;结束绘制</SPAN></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=#990099><SPAN STYLE="BACKGROUND-COLOR: #CCCCCC">;;静默退出</SPAN></FONT>
  30.     <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">princ</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  31. <FONT face="Fixedsys" COLOR="#FF0000">)</FONT> <FONT face="Fixedsys" COLOR=#990099><SPAN STYLE="BACKGROUND-COLOR: #CCCCCC">;_结束 defun</SPAN></FONT>
  32. </PRE>
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能，那里可能会有你要找的答案；
如果你在论坛求助问题，并且已经从坛友或者管理的回复中解决了问题，请把帖子标题加上【已解决】；
如何回报帮助你解决问题的坛友，一个好办法就是给对方加【D豆】，加分不会扣除自己的积分，做一个热心并受欢迎的人！
回复 支持 反对

使用道具 举报

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

使用道具 举报

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

使用道具 举报

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

本版积分规则

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

GMT+8, 2024-11-17 11:36 , Processed in 0.195852 second(s), 40 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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