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

 找回密码
 立即注册

QQ登录

只需一步，快速开始

扫一扫，访问微社区

晓东CAD家园-论坛»论坛 › ╃CAD编程开发 › A/VLISP › [求助]：请高手帮忙看看哪里出问题了？ ...
返回列表 发新帖
查看: 938|回复: 2

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

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

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

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

×
我想实现把多段线的顶点输出到一个文件，为什么输出的文件总是空的？请高手指点！谢谢！
(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)
)
data, setq, file

相关帖子

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

使用道具 举报

zml84

已领礼包: 2个

财富等级: 恭喜发财
发表于 2007-5-31 12:45:08 | 显示全部楼层

  3. <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>
  4.     <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>
  5.     <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>
  6.     <FONT face="Fixedsys" COLOR=#990099><SPAN STYLE="BACKGROUND-COLOR: #CCCCCC">;;选择对象</SPAN></FONT>
  7.     <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">while</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">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>
  9.             <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>
  10.                       <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>
  11.                       <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>
  12.                 <FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  13.                 <FONT face="Fixedsys" COLOR="#0000FF">NIL</FONT>
  14.                 <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">princ</FONT>
  15.                     <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>
  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">princ</FONT> <FONT face="Fixedsys" COLOR="#FF00FF">"\n错误：没有选择对象。"</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  19.         <FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  20.     <FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  21.     <FONT face="Fixedsys" COLOR=#990099><SPAN STYLE="BACKGROUND-COLOR: #CCCCCC">;;打开文件</SPAN></FONT>
  22.     <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>
  23.     <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>
  24.     <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>
  25.         <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>
  26.         <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>
  27.             <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">progn</FONT>
  28.                 <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>
  29.                       <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>
  30.                       <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>
  31.                 <FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  32.                 <FONT face="Fixedsys" COLOR=#990099><SPAN STYLE="BACKGROUND-COLOR: #CCCCCC">;;显示</SPAN></FONT>
  33.                 <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>
  34.                 <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">princ</FONT> <FONT face="Fixedsys">PT</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  35.                 <FONT face="Fixedsys" COLOR=#990099><SPAN STYLE="BACKGROUND-COLOR: #CCCCCC">;;写入文件</SPAN></FONT>
  36.                 <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>
  37.                 <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>
  38.                 <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>
  39.                 <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>
  40.             <FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  41.         <FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  42.         <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>
  43.     <FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  44.     <FONT face="Fixedsys" COLOR=#990099><SPAN STYLE="BACKGROUND-COLOR: #CCCCCC">;;关闭文件</SPAN></FONT>
  45.     <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>
  46.     <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>
  47.     <FONT face="Fixedsys" COLOR="#FF0000">(</FONT><FONT face="Fixedsys" COLOR="#0000FF">princ</FONT><FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  48. <FONT face="Fixedsys" COLOR="#FF0000">)</FONT>
  49. </PRE>

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

使用道具 举报

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

使用道具 举报

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

本版积分规则

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

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

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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