sfae 发表于 2011-3-11 11:58:47

弱弱的问下如何获取宗地和界址线属性？

刚学lisp，不懂如何获取CASS宗地和界址线的属性并进行修改。
谢谢大家

skg123 发表于 2019-12-9 09:46:13

https://blog.csdn.net/hb_ljj/article/details/91125582

(defun c:tt ()
(setq a (entsel))
  (setq b (car a))
  (setq d (entget b))
  (setq c (entget b '("*")))
  (setq e (assoc -3 c))
  (setq f (cdr e))

(setq g (assoc "SOUTH" f))
(setq h (cddr g))
 (setq i (assoc 1000 h))
  (setq j (cdr i))
)

(defun c:tt ()

(setq en1_data(cdr (assoc -3 (entget (car (entsel)) '("*")))));获取宗地扩展属性

）



提取宗地编号

(defun c:tt ()
(setq en1_data(cdr (assoc -3 (entget (car (entsel)) '("*")))))
  (setq g (assoc "SOUTH" en1_data))
  (cdr (nth 2 g));提取宗地编号
)
————————————————
版权声明：本文为CSDN博主「李建军」的原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接及本声明。
原文链接：https://blog.csdn.net/hb_ljj/article/details/91125582

夏思恩 发表于 2018-1-14 10:10:08

提示字体文件不存在

happy336 发表于 2019-10-15 12:04:14

谢谢分享，支持

yshf 发表于 2011-3-11 19:24:01

没有*.dwg样图,不好说.

sfae 发表于 2011-3-12 00:01:16

http://bbs.mjtd.com/forum.php?mod=viewthread&tid=69220&extra=&highlight=%BD%E7%D6%B7%CF%DF&page=1
论坛上的一个帖子里也遇到同一个问题，这个帖子有样图。谢谢

yshf 发表于 2011-3-12 18:12:40

本帖最后由 yshf 于 2011-3-12 18:13 编辑

用附件中的程序，在命令行中键入 tqzdsx回车后选择宗地界址线即可

yshf 发表于 2011-3-12 18:18:48

补充说明一下：在宗地界址线的扩展数据中，用于描述四至的数据中误将点号748写成了148。

sfae 发表于 2011-3-13 23:49:13

谢谢yshf ，但是能介绍一下怎么实现的吗

sy100 发表于 2011-3-14 17:54:39

谢谢！下载学习

yshf 发表于 2011-3-15 23:05:18

读取图元的扩展数据。

sfae 发表于 2011-3-18 17:37:52

(entget en '("south"))
这样就可以 读取南方的扩展属性了

guangyaola 发表于 2011-6-28 23:14:02

扩展数据，一般是1001和1000
页: [1] 2
查看完整版本: 弱弱的问下如何获取宗地和界址线属性？