【视频】线和文字快速分层

丈量大地

CAD线和文字快速分层：

今天遇见一位网友的问题：

        他所画好的宗地图，因为图面上宗地面积较小，导致界址线上面的距离标注文字排列的杂乱，为了使宗地图清晰、美观，网友就想把那些界址点间的距离标注文字，全部隐藏起来使其清晰些。

暂时想到的办法就是：用快速选择把那些文字选择上，然后刷到0层上面，最后把0层关闭了


下面录制的视频是线和文字的快速分层，最后刚好实现基本目的，其中的红线的特性也没有变，可惜宗地面积的文字标注也刷过去了，不知哪位大侠还有什么更好的办法使其宗地面积不被选择上，（注：因为网友的图太复杂，内容较多，最好不要想一个个去选择了，那样太慢了）

      线和文字快速分层.rar (513.44 KB, 下载次数: 98)

2011-9-19 21:15 上传

点击文件名下载附件


大虾们快跟帖吧，发表你们更好的办法，有奖励哟

lsjia2088

一个字“好”，两个字“很好”。

1105051953

已经下了！！可就是有点不爽，就是标价和售价不符，存在欺诈行为，虽然不多，但是整个网站这种现象比较普遍！！

希望有关人士，能够规范下载收费机制！！

xjx

学习学习，谢谢分享

丈量大地

1105051953 发表于 2011-9-20 08:42
已经下了！！可就是有点不爽，就是标价和售价不符，存在欺诈行为，虽然不多，但是整个网站这种现象比较普遍 ...

售价是2个铜板，另外下载时候扣除的那一个铜板是系统规定的，也就是不管你有没有给帖子标价，系统在您下载的时候都会扣除的，不知您还有什么疑问？

敏敏特穆尔

路过，支持一下{:soso_e100:}

1105051953

丈量大地 发表于 2011-9-20 09:37
售价是2个铜板，另外下载时候扣除的那一个铜板是系统规定的，也就是不管你有没有给帖子标价，系统在您下载 ...

是这样的话，还可以理解！！
感谢你的回复及解释！！

yxylove1

支持一下
顶顶

zhb236623

可惜宗地面积的文字标注也刷过去了，


如果 只有一个宗地面积那只要按shift再点选宗地面积就可以不选它了再换到0层就可以了。

zhb236623

如果是批量很多的话就可以用这个程序。。。在CASS下输入命令APPLOAD加载然后输入BCG即可

1. (defun c:bcg ()   ;;注记边长关
   
2. (vl-load-com)
   
3. (if (= (tblobjname "layer" "zhb") nil)
   
4. (progn
   
5.   (princ "图层zhb不存在，新建图层zhb完成，导入数据将存放在zhb层")
   
6.   (command ".layer" "n" "zhb" "s" "zhb" "")
   
7.   
   
8. )
   
9. (progn
   
10. (command "layer" "s" "zhb" "")
    
11.   (princ "zhb图层已存在，导入数据将存放在zhb层")
    
12. )
    
13. )
    
14. (setq new_ss (ssadd))    ;;建立空选择集
    
15. (setq appname "south")
    
16. (regapp (setq rname appname))
    
17. 
    
18. (setq ss (ssget '((0 . "text")(8 . "JZD"))))         
    
19. (setq i 0)
    
20.     (repeat (sslength ss)
    
21.       (setq entname (ssname ss i))  
    
22.       (setq xxdata (entget entname (list rname)))
    
23.       (setq south_sx1 (cdr (assoc -3 xxdata)))
    
24.       (setq bcbz (cdr (assoc 1000 (cdr (car south_sx1)))))  ;;获取图元扩展属性＂CASS＂,bcbz边长标注
    
25.                         　 (if (= bcbz (itoa 302010))
    
26.            (progn
    
27.                 　　　　　
    
28.                                                         (ssadd entname new_ss)    　;;如果是注记边长则把此图元加入new_ss 选择集
    
29.                                         )
    
30.                                        
    
31.                                         (progn
    
32.               　(princ)    ;;如果不是注记边长则不操作，下一图元继续判断
    
33.                                                                 　
    
34.                                         )
    
35.         );end if         
    
36.                         (setq i (1+ i))
    
37.      );EDN Repeat
    
38.   (command "change" new_ss "" "p" "la" "zhb" "")　　　;;把选择集＂注记边长＂换层
    
39.         (princ "宗地面积，地类，地号不换层")　　　　　　
    
40.   (command "layer" "s" "JZD" "")　　　　　　　　;;把JZD置为当前层，否则zhb层为当前层不能关闭
    
41.         (command "layer" "off" "zhb" "")　　　　　　　　;;关闭zhb层，则边长注记不显示了，达到要求．
    
42. )
    

复制代码

请下载这个文件bcg界址线注记边长关闭(最新可用）.rar　　之前的附件不知道要怎么删除．．请不要下载．

发到网页代码可能会换行，如有需要的可以直接下载附件使用．．．．．．试用有什么问题欢迎后面跟贴提出．．．

GIF视频看起来太小不好看，可以双击在另外一个窗口打开就可以很清晰了．

顺便在这里求助下大家，有没有人可以把这个文件（CASS9.0 for cad2004破解.part1.rar ）下载下来发给我呢邮箱：zhb236623@126.com    ．我等级不够下了三个最后一个不能下载了．
[url]http://bbs.3s001.com/thread-66806-1-1.html