zfsaaa 发表于 2010-5-18 17:48:00

[讨论]有无办法使程序运行时执行框选图上数字,输出也按CAD排列输出?

本帖最后由 作者 于 2010-5-19 8:50:13 编辑 <br /><br /> <p>有无办法使程序运行时执行框选图上数字,输出也按CAD排列顺序输出?</p><p>(defun C:NB ()<br/>&nbsp; (graphscr)<br/>&nbsp; (setq cmd (getvar "cmdecho"))<br/>&nbsp; (setvar "cmdecho" 0)<br/>&nbsp; ;;输出文件选择<br/>&nbsp; (setq file_name "D:/BB.xls")<br/>&nbsp; (setq file_id (open file_name "a"))<br/>&nbsp; ;;对像选择<br/>&nbsp; (setq ent_list (ssget '((0 . "*TEXT"))))<br/>&nbsp; <br/>&nbsp; (setq ent_list_len (sslength ent_list))&nbsp;&nbsp; ; 对像选择若空则失败<br/>&nbsp; (setq id 0)<br/>&nbsp; (repeat ent_list_len<br/>&nbsp;&nbsp;&nbsp; (setq ent_data (entget (ssname ent_list id)))<br/>&nbsp;&nbsp;&nbsp; (setq id (1+ id))<br/>&nbsp;&nbsp;&nbsp; (setq ent_data_lay (assoc 1 ent_data))<br/>&nbsp;&nbsp;&nbsp; (setq ent_data_name (cdr ent_data_lay))<br/>&nbsp;&nbsp;&nbsp; (setq ent_data_lay2 (assoc 0 ent_data))<br/>&nbsp;&nbsp;&nbsp; (princ ent_data_name file_id)<br/>&nbsp;&nbsp;&nbsp; (princ "\n" file_id)<br/>&nbsp; )<br/>&nbsp; ;;加入单文字名为序列<br/>&nbsp; (princ "\n已完成文字输出")<br/>&nbsp; (close file_id) ;_序列输出为文本文件<br/>&nbsp; (setvar "cmdecho" cmd)<br/>&nbsp; (princ)<br/>)</p><p>以上问题有新发现,本贴待改</p>

zfsaaa 发表于 2010-5-18 21:49:00

本帖最后由 作者 于 2010-5-19 8:49:19 编辑 <br /><br /> <p>以上问题有新发现,本贴待改</p>

ljttjl 发表于 2010-5-19 10:29:00

<p><a href="http://ljttjl.ys168.com/">http://ljttjl.ys168.com</a>&nbsp; 20080915将autocad中的文字内容按其排列序顺提取至文本&nbsp; 程序演示</p><p></p>
页: [1]
查看完整版本: [讨论]有无办法使程序运行时执行框选图上数字,输出也按CAD排列输出?