求助按线自动编宗地号码

yn1985321 · 发表于 2014-5-22 20:50:17

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

思路：画一条符合线并和宗地相交。自动识别出每宗地，然后按顺序编号00001-99999之间。

dnbcgrass · 发表于 2014-5-22 23:17:43

上一份样图!

st788796 · 发表于 2014-5-23 12:02:07

(defun c:tt (/ ss num lst p pts)
(if **GlobleZDNum**
(princ (strcat "\nCurrent Numbers is "
(xd::string:strpad **GlobleZDNum** 5 "0" 0)
)
)
)
(while (setq p (if pts
(getpoint (car pts) "\nNext Point: ")
(getpoint "\nFirst Point: ")
)
)
(setq pts (cons p pts))
)
(if (and pts
(> (length pts) 1)
(setq ss (ssget "F"
(reverse pts)
'((0 . "LWPOLYLINE") (-4 . "&=") (70 . 1))
)
)
)
(progn
(if **GlobleZDNum**
(setq num **GlobleZDNum**)
(setq **GlobleZDNum**
1
num 1
)
)
(mapcar '(lambda (x / str pt txt)
(setq str (xd::string:strpad num 5 "0" 0)
num (1+ num)
)
(if (> (length (cadr x)) 1)
(setq pt (xdrx_line_midp (caadr x) (last (cadr x))))
(setq pt (caadr x))
)
(setq txt (xdrx_text_make pt str 2.5 0.))
(xdrx_text_setvermode txt 2)
(xdrx_text_sethozmode txt 1)
(xdrx_text_setalignmentpoint txt pt)
(xdrx_group_make "*U" txt (car x))
)
(mapcar '(lambda (a)
(list (cadr a)
(mapcar 'cadr (cdddr a))
)
)
(ssnamex ss)
)
)
(setq **GlobleZDNum** num)
)
)
(princ)
)

(defun c:tt (/ ss num lst p pts) 
  (if **GlobleZDNum** 
    (princ (strcat "\nCurrent Numbers is " 
                   (xd::string:strpad **GlobleZDNum** 5 "0" 0) 
           ) 
    ) 
  ) 
  (while (setq p (if pts 
                   (getpoint (car pts) "\nNext Point: ") 
                   (getpoint "\nFirst Point: ") 
                 ) 
         ) 
    (setq pts (cons p pts)) 
  ) 
  (if (and pts 
           (> (length pts) 1) 
           (setq ss (ssget "F" 
                           (reverse pts) 
                           '((0 . "LWPOLYLINE") (-4 . "&=") (70 . 1)) 
                    ) 
           ) 
      ) 
    (progn 
      (if **GlobleZDNum** 
        (setq num **GlobleZDNum**) 
        (setq **GlobleZDNum** 
               1 
              num 1 
        ) 
      ) 
      (mapcar '(lambda (x / str pt txt) 
                 (setq str (xd::string:strpad num 5 "0" 0) 
                       num (1+ num) 
                 ) 
                 (if (> (length (cadr x)) 1) 
                   (setq pt (xdrx_line_midp (caadr x) (last (cadr x)))) 
                   (setq pt (caadr x)) 
                 ) 
                 (setq txt (xdrx_text_make pt str 2.5 0.)) 
                 (xdrx_text_setvermode txt 2) 
                 (xdrx_text_sethozmode txt 1) 
                 (xdrx_text_setalignmentpoint txt pt) 
                 (xdrx_group_make "*U" txt (car x)) 
               ) 
              (mapcar '(lambda (a) 
                         (list (cadr a) 
                               (mapcar 'cadr (cdddr a)) 
                         ) 
                       ) 
                      (ssnamex ss) 
              ) 
      ) 
      (setq **GlobleZDNum** num) 
    ) 
  ) 
  (princ) 
)

yn1985321 · 发表于 2014-5-24 09:31:12

选择线后自动编号

yn1985321 · 发表于 2014-5-24 09:32:06

no function definition: XD::STRING:STRPAD
怎么解决啊

yn1985321 · 发表于 2014-5-24 09:37:52

XDRX_LINE_MIDP，又找不到这个了

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

[编程申请] 求助按线自动编宗地号码

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。