- 积分
- 3320
- 明经币
- 个
- 注册时间
- 2008-3-23
- 在线时间
- 小时
- 威望
-
- 金钱
- 个
- 贡献
-
- 激情
-
|
做证时经常一个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
|
|