付费求开发

永不言弃 · 发表于 2013-5-12 20:11:21

我想做一个CASS中权属线批量处理的程序，多段线是画好的，顺序也对，现在在多段线内有户主名字，我用S把多段线属成了权属线，里面少着三个属性，要求加在里面（户主名、宗地号按顺序编、土地类别用同一个251），可以加我QQ直接和我联系QQ：863866648.
(-3 ("SOUTH" (1000 . "300000")))
(-3 ("SOUTH" (1000 . "300000") (1000 . "1110036") (1000 . "一") (1000 . "251")))

永不言弃 · 发表于 2013-5-12 20:27:02

lq8000 · 发表于 2013-6-4 15:09:20

;-------------------------
;根据注记修改属性
;-------------------------
(defun c:zdsx (/ puzhuo zdh  i ss ename    data en    su
         pt1  pt2    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)
i  0
  )
  (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)
)

永不言弃 · 发表于 2013-6-14 15:49:12

lq8000 发表于 2013-6-4 15:09
;-------------------------
;根据注记修改属性
;-------------------------

非常感谢

xiabin68 · 发表于 2014-11-10 00:02:30

lq8000 发表于 2013-6-4 15:09
;-------------------------
;根据注记修改属性
;-------------------------

高手，，好东西，，，，，，，，，

账号		自动登录	找回密码
密码			注册

付费求开发

本帖子中包含更多资源

相关帖子

本帖子中包含更多资源