付费求开发
我想做一个CASS中权属线批量处理的程序，多段线是画好 的，顺序也对，现在在多段线内有户主名字，我用S把多段线属成了权属线，里面少着三个属性，要求加在里面（户主名、宗地号按顺序编、土地类别用同一个251），可以加我QQ直接和我联系QQ：863866648.(-3 ("SOUTH" (1000 . "300000")))
(-3 ("SOUTH" (1000 . "300000") (1000 . "1110036") (1000 . "一") (1000 . "251")))
;-------------------------
;根据注记修改属性
;-------------------------
(defun c:zdsx (/ puzhuo zdhi ss ename data en su
pt1pt2 pt d nn lb x y kk bh lqss
lqss1 xm
)
(setvar "CMDECHO" 0)
(setq puzhuo (getvar "OSMODE"))
(setvar "OSMODE" 0)
(setq zdh (getreal "\n 输入起始宗地号(固定位数用0补位)："))
(setq ss (ssget)
i0
)
(if ss
(progn
(setq ename (ssname ss 0))
(while ename
(setq d nil
lb (entget ename)
)
(setq nn (length lb)
kk 1
)
(while (< kk nn)
(if (= 10 (car (nth kk lb)))
(progn
(setq x (nth 1 (nth kk lb))
y (nth 2 (nth kk lb))
)
(setq d (cons (list x y) d))
)
)
(setq kk (1+ kk))
)
(setq lqss (ssget "WP" d (list (cons 0 "TEXT"))))
(if lqss
(progn
(setq lqss1 (ssname lqss 0))
(setq xm (cdr (assoc 1 (entget lqss1))))
(setq data ename)
(setq en (entget data))
(setq su (list -3
(list "SOUTH"
(cons 1000 "300000")
(cons 1000 (rtos zdh 2 0))
(cons 1000 xm)
(cons 1000 "251")
)
)
)
(regapp "SOUTH")
(setq en (append en (list su)))
(entmod en)
(setq zdh (1+ zdh))
)
)
(setq ss (ssdel ename ss))
(setq ename (ssname ss 0))
)
)
)
(setvar "OSMODE" puzhuo)
(princ)
) lq8000 发表于 2013-6-4 15:09 static/image/common/back.gif
;-------------------------
;根据注记修改属性
;-------------------------
非常感谢 lq8000 发表于 2013-6-4 15:09 static/image/common/back.gif
;-------------------------
;根据注记修改属性
;-------------------------
高手，，好东西，，，，，，，，，
页:
[1]