找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 799|回复: 2

[求助] [求助]:请高手帮忙看看哪里出问题了?

[复制链接]
发表于 2007-5-31 11:07:16 | 显示全部楼层 |阅读模式

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

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

×
我想实现把多段线的顶点输出到一个文件,为什么输出的文件总是空的?请高手指点!谢谢!
(defun C:sjsc ()
   (setq oce (getvar "cmdecho"))
   (setvar "cmdecho" 0)
   (setq ent_data (entget (car (entsel "\n请选择多义线: "))))
   (setq str_0 (cdr (assoc 0 ent_data)))
   (while (/= str_0 "LWPOLYLINE")
      (setq ent_data (entget (car (entsel "\n参数错误,请重新选择多义线: "))))
      (setq str_0 (cdr (assoc 0 ent_data)))
   )
   ;(setq file_dir (getfiled "请选择存储路径" "C:/autoCAD2002/support/" "txt" 1))
   (setq file_data (open "f:\\lisp\\aaa.txt" "w"))
   (setq nn (length ent_data))
   (repeat (- nn 1)
      (setq aa (car (nth (- nn 1) ent_data)))
      (if (= aa 10)
         (progn
            (setq ept_data (nth (- nn 1) ent_data))
            (setq ept_x (cadr ept_data))
            (setq ept_y (caddr ept_data))
            (prin1 ept_x file_data)
            (prin1 ept_y file_data)
            (princ "\n" file_data)
            
         )
      )
   )
   (close file_data)
   (setvar "cmdecho" oce)
   (princ)
)
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 2个

财富等级: 恭喜发财

发表于 2007-5-31 12:45:08 | 显示全部楼层

  1. <PRE><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="#FF0000">)</FONT>
  2.     <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">setq</FONT> <FONT face="Fixedsys">OCE</FONT> <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">getvar</FONT> <FONT face="Fixedsys" COLOR="#FF00FF">"cmdecho"</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  3.     <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>
  4.     <FONT face="Fixedsys" COLOR=#990099><SPAN STYLE="BACKGROUND-COLOR: #CCCCCC">;;选择对象</SPAN></FONT>
  5.     <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">while</FONT>
  6.         <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">SS</FONT> <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">entsel</FONT> <FONT face="Fixedsys" COLOR="#FF00FF">"\n请选择多段线: "</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</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">ENT</FONT> <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">entget</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" COLOR="#FF0000">)</FONT>
  8.                       <FONT face="Fixedsys">STR</FONT> <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">cdr</FONT> <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">assoc</FONT> <FONT face="Fixedsys" COLOR="#009900">0</FONT> <FONT face="Fixedsys">ENT</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  9.                       <FONT face="Fixedsys">TMP</FONT> <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">=</FONT> <FONT face="Fixedsys">STR</FONT> <FONT face="Fixedsys" COLOR="#FF00FF">"LWPOLYLINE"</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  10.                 <FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  11.                 <FONT face="Fixedsys" COLOR="#0000FF">NIL</FONT>
  12.                 <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">princ</FONT>
  13.                     <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">strcat</FONT> <FONT face="Fixedsys" COLOR="#FF00FF">"\n错误:选择的对象是"</FONT> <FONT face="Fixedsys">STR</FONT> <FONT face="Fixedsys" COLOR="#FF00FF">",不是多段线。"</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  14.                 <FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  15.             <FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  16.             <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">princ</FONT> <FONT face="Fixedsys" COLOR="#FF00FF">"\n错误:没有选择对象。"</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  17.         <FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  18.     <FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  19.     <FONT face="Fixedsys" COLOR=#990099><SPAN STYLE="BACKGROUND-COLOR: #CCCCCC">;;打开文件</SPAN></FONT>
  20.     <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">setq</FONT> <FONT face="Fixedsys">F1</FONT> <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">open</FONT> <FONT face="Fixedsys" COLOR="#FF00FF">"D:\\aaa.txt"</FONT> <FONT face="Fixedsys" COLOR="#FF00FF">"w"</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  21.     <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">setq</FONT> <FONT face="Fixedsys">I</FONT> <FONT face="Fixedsys" COLOR="#009900">0</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  22.     <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">repeat</FONT> <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys">length</FONT> <FONT face="Fixedsys">ENT_DATA</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  23.         <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">setq</FONT> <FONT face="Fixedsys">A</FONT> <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">nth</FONT> <FONT face="Fixedsys">I</FONT> <FONT face="Fixedsys">ENT_DATA</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  24.         <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" COLOR="#0000FF">car</FONT> <FONT face="Fixedsys">A</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT> <FONT face="Fixedsys" COLOR="#009900">10</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  25.             <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">progn</FONT>
  26.                 <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">cdr</FONT> <FONT face="Fixedsys">A</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  27.                       <FONT face="Fixedsys">X</FONT>         <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">car</FONT> <FONT face="Fixedsys">PT</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  28.                       <FONT face="Fixedsys">Y</FONT>         <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">cadr</FONT> <FONT face="Fixedsys">PT</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  29.                 <FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  30.                 <FONT face="Fixedsys" COLOR=#990099><SPAN STYLE="BACKGROUND-COLOR: #CCCCCC">;;显示</SPAN></FONT>
  31.                 <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">princ</FONT> <FONT face="Fixedsys" COLOR="#FF00FF">"\n"</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  32.                 <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">princ</FONT> <FONT face="Fixedsys">PT</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  33.                 <FONT face="Fixedsys" COLOR=#990099><SPAN STYLE="BACKGROUND-COLOR: #CCCCCC">;;写入文件</SPAN></FONT>
  34.                 <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">princ</FONT> <FONT face="Fixedsys">X</FONT> <FONT face="Fixedsys">F1</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  35.                 <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">princ</FONT> <FONT face="Fixedsys" COLOR="#FF00FF">"    "</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  36.                 <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">princ</FONT> <FONT face="Fixedsys">Y</FONT> <FONT face="Fixedsys">F1</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  37.                 <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">princ</FONT> <FONT face="Fixedsys" COLOR="#FF00FF">"\n"</FONT> <FONT face="Fixedsys">F1</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  38.             <FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  39.         <FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  40.         <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">setq</FONT> <FONT face="Fixedsys">I</FONT> <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">1+</FONT> <FONT face="Fixedsys">I</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  41.     <FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  42.     <FONT face="Fixedsys" COLOR=#990099><SPAN STYLE="BACKGROUND-COLOR: #CCCCCC">;;关闭文件</SPAN></FONT>
  43.     <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">close</FONT> <FONT face="Fixedsys">FILE_DATA</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  44.     <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">setvar</FONT> <FONT face="Fixedsys" COLOR="#FF00FF">"cmdecho"</FONT> <FONT face="Fixedsys">OCE</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  45.     <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">princ</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  46. <FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  47. </PRE>

获取多段线顶点坐标的代码片段参见:http://zml84.blog.sohu.com/46666296.html
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

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

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2024-3-29 20:25 , Processed in 0.391053 second(s), 35 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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