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

zfsaaa

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

(defun C:NB ()
  (graphscr)
  (setq cmd (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  ;;输出文件选择
  (setq file_name "D:/BB.xls")
  (setq file_id (open file_name "a"))
  ;;对像选择
  (setq ent_list (ssget '((0 . "*TEXT"))))
 
  (setq ent_list_len (sslength ent_list))   ; 对像选择若空则失败
  (setq id 0)
  (repeat ent_list_len
    (setq ent_data (entget (ssname ent_list id)))
    (setq id (1+ id))
    (setq ent_data_lay (assoc 1 ent_data))
    (setq ent_data_name (cdr ent_data_lay))
    (setq ent_data_lay2 (assoc 0 ent_data))
    (princ ent_data_name file_id)
    (princ "\n" file_id)
  )
  ;;加入单文字名为序列
  (princ "\n已完成文字输出")
  (close file_id) ;_序列输出为文本文件
  (setvar "cmdecho" cmd)
  (princ)
)

以上问题有新发现,本贴待改

zfsaaa

以上问题有新发现,本贴待改

ljttjl

http://ljttjl.ys168.com  20080915将autocad中的文字内容按其排列序顺提取至文本  程序演示