利用LISP程序隐藏界址边长的实现视频

heart

利用LISP程序隐藏界址边长的实现

利用LISP程序隐藏界址边长的实现.part2.rar (4.47 MB, 下载次数: 2075)

2011-9-23 10:33 上传

点击文件名下载附件
利用LISP程序隐藏界址边长的实现.part1.rar (4.86 MB, 下载次数: 344)

2011-9-23 10:32 上传

点击文件名下载附件

LISP程序

bcg界址线注记边长关闭(最新可用）.rar (884 Bytes, 下载次数: 157)

2011-9-23 10:34 上传

点击文件名下载附件

丈量大地

顶一个{:soso__13585677261962887982_2:}


在加一个办法：


     第一步：首先设置“地籍参数”，在"地籍图注记"中不要选择“界址点距离”；如下图所示：

   

     第二步：用“快速选择”功能把界址线层的所有文字选定，并将其删除（Delete）；

   

     第三步：执行“地籍”菜单下的“宗地重构”命令，窗选所有红线并执行即可；

     


视频如下


          删除红线上的距离标注.rar (2.1 MB, 下载次数: 55)

2011-9-23 13:29 上传

点击文件名下载附件

gjzero

好东西，得顶！

丈量大地

大家如果是破解版的，要用LISP程序实现那个功能，一定要把“编辑”中的“编组选择”关了（OFF）

zhb236623

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

复制代码

楼上的说得很对．这个忘记提醒了．．．．．．．．．．．

可以在LISP中加入这句就可以了．


(setvar  "pickstyle" 0)

露天煤矿9625

好东东，支持！收藏了。

137910729

好东东，支持！收藏了。

一个人的好天气

花钱下载几个视频教程看看，谢谢楼主。

jxxwft

2楼的方法不错

rainboy303

好东西，支持