利用API拓扑多边形

牢固 · 发表于 2013-7-12 23:39:42

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

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

×

本帖最后由牢固于 2013-7-13 00:05 编辑

(defun XD::Curve:TopoPoly (SS DISTFUZZ ANGFUZZ / E LST OUT PTS S1)
(xdrx_begin '("cmdecho" 0
"osmode" 0
)
)
(xdrx_document_ucson)
(xdrx_document_setprec DistFuzz AngFuzz)
(xdrx_setsstodb ss 0)
(xdrx_setmark)
(xdrx_pickset_removeDupLine ss)
(setq ss (xdrx_getss))
(if (not ss)
(setq ss (ssadd))
)
(while (setq e (xdrx_getentdata 0))
(ssadd e ss)
)
(setq ss (XDRX_CURVE_INTERSECTBREAK ss))
(setq ss (xdrx_geom_searchRegions ss 0.0))
(if ss
(progn
(setq lst (XDRX_PICKSET->ENTS ss))
(setq lst (vl-sort lst '(lambda (a b)
(> (car (xdrx_GETAREA a)) (car (xdrx_GETAREA b)))
)
)
)
(if (> (length lst) 1)
(progn
(setq out (car lst)
lst (cdr lst)
pts (xdrx_getsamplept out)
)
(entdel out)
(XDRX_DOCUMENT_ASSUREINCURRENTVIEW (apply
'mapcar
(cons 'min pts)
) (apply
'mapcar
(cons 'max pts)
)
)
(setq ss (ssget "CP" pts '((0 . "lwpolyline"))))
(setq lst (vl-remove-if '(lambda (x)
(ssmemb x ss)
) lst
)
)
(while lst
(if (> (length lst) 1)
(progn
(setq out (car lst)
lst (cdr lst)
pts (xdrx_getsamplept out)
)
(entdel out)
(XDRX_DOCUMENT_ASSUREINCURRENTVIEW (apply
'mapcar
(cons 'min pts)
) (apply
'mapcar
(cons 'max pts)
)
)
(setq s1 (ssget "CP" pts '((0 . "lwpolyline"))))
(setq lst (vl-remove-if '(lambda (x)
(ssmemb x s1)
) lst
)
)
(setq ss (XDRX_PICKSET_UNION ss s1))
)
(progn
(ssadd (car lst) ss)
(setq lst (cdr lst))
)
)
)
)
)
)
)
(xdrx_document_ucsoff)
(xdrx_end)
ss
)

(defun XD::Curve:TopoPoly (SS DISTFUZZ ANGFUZZ / E LST OUT PTS S1) 
  (xdrx_begin '("cmdecho" 0 
               "osmode" 0 
              ) 
  ) 
  (xdrx_document_ucson) 
  (xdrx_document_setprec DistFuzz AngFuzz) 
  (xdrx_setsstodb ss 0) 
  (xdrx_setmark) 
  (xdrx_pickset_removeDupLine ss) 
  (setq ss (xdrx_getss)) 
  (if (not ss) 
    (setq ss (ssadd)) 
  ) 
  (while (setq e (xdrx_getentdata 0)) 
    (ssadd e ss) 
  ) 
  (setq ss (XDRX_CURVE_INTERSECTBREAK ss)) 
  (setq ss (xdrx_geom_searchRegions ss 0.0)) 
  (if ss 
    (progn 
      (setq lst (XDRX_PICKSET->ENTS ss)) 
      (setq lst (vl-sort lst '(lambda (a b) 
                                (> (car (xdrx_GETAREA a)) (car (xdrx_GETAREA b))) 
                              ) 
                ) 
      ) 
      (if (> (length lst) 1) 
        (progn 
          (setq out (car lst) 
                lst (cdr lst) 
                pts (xdrx_getsamplept out) 
          ) 
          (entdel out) 
          (XDRX_DOCUMENT_ASSUREINCURRENTVIEW (apply 
                                               'mapcar 
                                               (cons 'min pts) 
                                             ) (apply 
                                                 'mapcar 
                                                 (cons 'max pts) 
                                               ) 
          ) 
          (setq ss (ssget "CP" pts '((0 . "lwpolyline")))) 
          (setq lst (vl-remove-if '(lambda (x) 
                                     (ssmemb x ss) 
                                   ) lst 
                    ) 
          ) 
          (while lst 
            (if (> (length lst) 1) 
              (progn 
                (setq out (car lst) 
                      lst (cdr lst) 
                      pts (xdrx_getsamplept out) 
                ) 
                (entdel out) 
                (XDRX_DOCUMENT_ASSUREINCURRENTVIEW (apply 
                                                     'mapcar 
                                                     (cons 'min pts) 
                                                   ) (apply 
                                                       'mapcar 
                                                       (cons 'max pts) 
                                                     ) 
                ) 
                (setq s1 (ssget "CP" pts '((0 . "lwpolyline")))) 
                (setq lst (vl-remove-if '(lambda (x) 
                                           (ssmemb x s1) 
                                         ) lst 
                          ) 
                ) 
                (setq ss (XDRX_PICKSET_UNION ss s1)) 
              ) 
              (progn 
                (ssadd (car lst) ss) 
                (setq lst (cdr lst)) 
              ) 
            ) 
          ) 
        ) 
      ) 
    ) 
  ) 
  (xdrx_document_ucsoff) 
  (xdrx_end) 
  ss 
)

Lisphk · 发表于 2013-7-13 00:36:48

G版，这个一般什么情况下用到呢？

牢固 · 发表于 2013-7-13 00:55:58

Lisphk 发表于 2013-7-13 00:36
G版，这个一般什么情况下用到呢？

用处是可以找出曲线中的封闭区域，可以统计面积，可以在封闭区域中心标注编号等！这个在统计宗地地块面积，房产测绘中统计房屋面积中有用！
其他应该还有不少用处吧！各专业不一样，可能会有不同需求！

zyhandw · 发表于 2013-7-13 09:09:04

这个用处可多了，在房产测绘、地籍测绘、GIS数据处理都有用，而且还很重要

q3_2006 · 发表于 2013-7-13 10:01:04

刚刚试用了一下，非常好用！

q3_2006 · 发表于 2013-7-13 10:21:36

样条线不行哟！

q3_2006 · 发表于 2013-7-13 10:22:35

多段线也不行！

q3_2006 · 发表于 2013-7-13 10:24:06

本帖最后由 q3_2006 于 2013-7-13 10:30 编辑

拓扑时会自动删除样条及多段线！不好意思，前面的回复请删除，新手，不知道怎么修改{:soso_e110:}

XDSoft · 发表于 2013-7-13 13:48:09

q3_2006 发表于 2013-7-13 10:24
拓扑时会自动删除样条及多段线！不好意思，前面的回复请删除，新手，不知道怎么修改

关于删除SPLINE,POLYLINE的等新的API发布。

样条曲线不能拓扑的，需要在LISP程序里面，先用POLYLINE模拟。

q3_2006 · 发表于 2013-7-13 14:27:09

本帖最后由 q3_2006 于 2013-7-13 14:30 编辑

XDSoft 发表于 2013-7-13 13:48
关于删除的等新的API发布。

样条曲线不能拓扑的，需要在LISP程序里面，先用POLYLINE模 ...

但G版之前的mkpoly程序是可以的呀，SPLINE，POLYLINE不能拓扑，函数就没有通用性了！

XDSoft · 发表于 2013-7-13 14:45:54

q3_2006 发表于 2013-7-13 14:27
但G版之前的mkpoly程序是可以的呀，SPLINE，POLYLINE不能拓扑，函数就没有通用性了！

等发布新版API后，再测试下。

q3_2006 · 发表于 2013-7-17 06:51:31

XDSoft 发表于 2013-7-13 14:45
等发布新版API后，再测试下。

0715版测试，04 12交点打断后退出，08未作任何处理就退出程序！

XDSoft · 发表于 2013-7-17 08:01:03

把你的测试图附件发上来，我看看。

q3_2006 · 发表于 2013-7-17 08:25:31

XDSoft 发表于 2013-7-17 08:01
把你的测试图附件发上来，我看看。

看来还有新问题，刚才我是每个版本CAD试了一次，现在04测试图又来一次，变成这样了。

newer · 发表于 2013-7-17 08:46:44

q3_2006 发表于 2013-7-17 08:25
看来还有新问题，刚才我是每个版本CAD试了一次，现在04测试图又来一次，变成这样了。

你用函数的时候，参数给的是多少？

DistFuzz AngFuzz

这两个值。

一个是距离精度，一个是角度精度，角度精度是度。

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

[几何] 利用API拓扑多边形

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

点评

点评

点评

点评

点评

点评

点评

点评