明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 6164|回复: 10

[基础] 刷界址点,不改变属性,只更改界址点号.

  [复制链接]
发表于 2011-6-6 17:54:22 | 显示全部楼层 |阅读模式
做证时经常一个CAD里面有N张土地证,里面界址点号都是(1,2,3,4.。。。。。)南方CASS自动生成的界址点号是
按大小顺序排序,1,2,3,4,5,6,7,8.。。。。。。。。。。。。。如果要把5,6,7,8,-》1,2,3,4,的话此程序就用得着。不过要手动改,不能自动。因为有些图纸界址点号有6个或者7个。不好判断。
;;此函数参照此论坛源码改写,但是具体是哪个作者没找到。不好意思就没标出来了。
;;刷界址点,不改变属性,只更改界址点号

(defun c:dd(/ n1 wz insertp)
(princ"函数功能:刷界址点,不改变属性,只更改界址点号.     ")
(if (not (setq n1 (getint "\n请输入起始顺序号 <1>: ")))
    (setq n1 1)
)

(setq wz (itoa n1))
   (while (<= n1 300) ;;这里不知道用什么判断好,用这个也可以(ent),随便写了个。一般改号只要改7,8个就好了。所以;;;怎     ;;么判断倒无所谓。
   
    (setq ent (car (entsel "\n选择目标文字:")))
                (setq ent (entget ent))
         (setq ent
    (subst (cons 1 wz) (assoc 1 ent) ent)
         )
         (entmod ent)
     (setq
      n1   (+ n1 1)
      wz (itoa n1)
     )
   )
(princ)
);end defun
发表于 2011-6-6 19:23:42 | 显示全部楼层
正需要,正为这个头疼呢,谢谢分享!
发表于 2011-6-6 19:46:35 | 显示全部楼层
本帖最后由 mandala 于 2011-6-6 21:00 编辑

程序很简单,不过用意我不太明白。我的理解是:每宗地的界址点应该分别是1.2.3.4,但是cad图纸中是连续标宗地号的,也就是说第二宗地是从5.6.7.8这样开始。现在你想把每宗地都变成从1开始,是吗?

那为何不干脆删掉所有已有的界址点号,然后编个程序自动重新编号并标注呢。当然,前提是每宗地的界址线同属一个层,并且都是独立的闭合多义线。
发表于 2011-6-6 21:31:05 | 显示全部楼层
本帖最后由 ljttjl 于 2011-6-8 13:20 编辑

http://ljttjl.ys168.com   2009-2试用程序及演示   20090805多段线上标注点号并提取坐标   目录下载bzjdg.vlx
以下为此程序演示:


本帖子中包含更多资源

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

x
 楼主| 发表于 2011-6-8 01:05:53 | 显示全部楼层
本帖最后由 zhb236623 于 2011-6-8 01:26 编辑

回复 mandala 的帖子

想法是好的,比如12345,6 7 8 9 10 11 ,12 13 14 15
-〉12345       123456     1234  这 样子,用南方CASS软件制作的。不好实现。只能手动判断。

本帖子中包含更多资源

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

x
 楼主| 发表于 2011-6-8 01:09:50 | 显示全部楼层
回复 ljttjl 的帖子

南方CASS大概可以实现这个功能 ,所以就暂时不用楼主这处程序 ,我想实现的功能是下楼所述
 楼主| 发表于 2011-6-8 01:25:49 | 显示全部楼层
回复 ljttjl 的帖子

楼主只发图片不发程序要怎么用呢。
发表于 2011-6-8 09:10:43 | 显示全部楼层
 楼主| 发表于 2011-6-8 11:58:59 | 显示全部楼层
发表于 2011-6-8 13:21:16 | 显示全部楼层
本帖最后由 ljttjl 于 2011-6-8 13:22 编辑

回复 zhb236623 的帖子

4楼已贴出程序下载地址。
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2025-7-26 08:54 , Processed in 0.195783 second(s), 26 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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