用过cass的人请进，问一个属性获取的问题

changyiran · 发表于 2012-6-6 17:42:24

xujinhua 发表于 2012-6-5 21:07
(setq a(entget(car(entsel))'("*")))
(-3 ("SOUTH" 实体编码 (1000 . "300000") 宗地号(1000 . "111 ...

我要的是界址边长中的本宗地指界人的属性，即关键字为bzjr的扩展数据。我发现，如果界址边长中有bzjr扩展数据那么用entnext通过权属线图元就可以找到界址边长图元，反之则找不到，真是奇怪。

quanguang · 发表于 2012-6-6 23:35:47

对于cass里面的界址线，如果画完界址线后没有对界址线赋过属性，那他的本宗指界人属性、临宗指界人等属性就不会有，只是保持最原始的界址线属性，所以你是不会找到的，只有你修改过界址线属性，才会有相关的扩展属性项！其实有没有都没有关系，如果有的话你就修改，没有的话你就添加，效果相同

changyiran · 发表于 2012-6-7 07:50:08

quanguang 发表于 2012-6-6 23:35
对于cass里面的界址线，如果画完界址线后没有对界址线赋过属性，那他的本宗指界人属性、临宗指界人等属性就 ...

老师我想问下，如果没有的话用程序能够添加吗？如果能的话该如何添加呢？

quanguang · 发表于 2012-6-7 22:59:09

今天晚上太忙，明天吧，我把添加、修改的程序发给你

changyiran · 发表于 2012-6-8 07:47:22

quanguang 发表于 2012-6-7 22:59
今天晚上太忙，明天吧，我把添加、修改的程序发给你

非常感谢老师的帮助！！

changyiran · 发表于 2012-6-13 23:07:58

quanguang 发表于 2012-6-5 19:47 不是我说你，高级会员这个都不清楚，确实应该加强学习啊，实话实说，别生气啊！程序不难，只要用entnext就 ...

老师，给界址边长用代码加本宗地指界人属性能实现吗？

changyiran · 发表于 2012-6-26 19:16:23

quanguang 发表于 2012-6-7 22:59
今天晚上太忙，明天吧，我把添加、修改的程序发给你

老师能实现吗？

zhanglangjing · 发表于 2012-8-7 13:21:38

(setq e(entsel"\n请在图面上选择高程注记"))
(setq e1(car e));读出当前选择的任意图斑线的图元名
(setq th(entget e1 '("*")));读出所有图元名的图元属性及扩展属性

账号		自动登录	找回密码
密码			注册