批量输出宗地信息

原创已于 2022-06-18 22:46:15 修改 · 1.1k 阅读

1 ·

CC 4.0 BY-SA版权

文章标签：

#lisp

于 2019-06-09 00:00:57 首次发布

AutoLisp 专栏收录该内容

7 篇文章

订阅专栏

本文介绍了一种使用AutoCAD Lisp编程技术批量提取图形中特定属性数据的方法，包括宗地编号、权利人、坐落等信息，并将其写入指定的文本文件中。此过程通过创建并操作数据文件、获取图形实体集合、提取所需属性数据、格式化输出以及关闭文件等步骤实现。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

(defun c:tt ()
  (setq dat_file (getfiled "写文件" "c:\lsptools\numtest1" "num" 1))
  (setq ff (open dat_file "w"))
(setq ss (ssget))
(setq n 0)
 (repeat (sslength ss)
(setq en (ssname ss n))
   (setq en1_data(cdr (assoc -3 (entget en '("*")))))
   (setq en1_zdbh(cdr (nth 2 (assoc "SOUTH" en1_data))));提取宗地编号
   (setq en1_qlr(cdr (nth 3 (assoc "SOUTH" en1_data))));提取权利人
   (setq en1_zl(cdr (nth 1 (assoc "TXDZ" en1_data))));坐落
   (setq en1_sfz(cdr (nth 1 (assoc "FRDBZMS" en1_data))));坐落
   (setq en1_fwzh(cdr (nth 1 (assoc "TDZH" en1_data))));房屋证号
   (setq kg "	")
  ; (strcat en1_zdbh kg en1_qlr)
(write-line  (strcat en1_zdbh kg en1_qlr kg en1_zl kg en1_sfz kg en1_fwzh) ff)
(prin1 en1_zdbh)
(setq n (1+ n))
)
  (close ff)

)