明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 4138|回复: 12

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

[复制链接]
发表于 2011-3-11 11:58 | 显示全部楼层 |阅读模式
刚学lisp,不懂如何获取CASS宗地和界址线的属性并进行修改。
谢谢大家
发表于 2019-12-9 09:46 | 显示全部楼层
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 | 显示全部楼层
提示字体文件不存在
发表于 2019-10-15 12:04 来自手机 | 显示全部楼层
谢谢分享,支持
发表于 2011-3-11 19:24 | 显示全部楼层
没有*.dwg样图,不好说.
 楼主| 发表于 2011-3-12 00:01 | 显示全部楼层
http://bbs.mjtd.com/forum.php?mo ... B7%CF%DF&page=1
论坛上的一个帖子里也遇到同一个问题,这个帖子有样图。谢谢
发表于 2011-3-12 18:12 | 显示全部楼层
本帖最后由 yshf 于 2011-3-12 18:13 编辑

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

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?注册

x
发表于 2011-3-12 18:18 | 显示全部楼层
补充说明一下:在宗地界址线的扩展数据中,用于描述四至的数据中误将点号748写成了148。
 楼主| 发表于 2011-3-13 23:49 | 显示全部楼层
谢谢yshf ,但是能介绍一下怎么实现的吗
发表于 2011-3-14 17:54 | 显示全部楼层
谢谢!下载学习
发表于 2011-3-15 23:05 | 显示全部楼层
读取图元的扩展数据。
 楼主| 发表于 2011-3-18 17:37 | 显示全部楼层
(entget en '("south"))
这样就可以 读取南方的扩展属性了
发表于 2011-6-28 23:14 | 显示全部楼层
扩展数据,一般是1001和1000
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 15:24 , Processed in 0.226131 second(s), 28 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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