SSGET "pt" 需要一个或两个点

852456

本人是论坛新人  最近自己研究了根据图框来建立文件夹并输出宗地图 但是不知道为啥有的能生成 有的生成不了 大神们帮忙看看。因为涉及到权属线所以不能上传附近。
以下是代码
(DEFUN C:1()
  (vl-load-com)
  ;;;(xlr-get-ptn  对象)获取奇点坐标列表
    (defun xlr-get-ptn (enmae / new_ls l2 l1)
;;;  (setq enmae (car (entsel )))
      (setq l1 (entget enmae))
      (setq new_ls nil)
      (foreach l2 l1
        (if (= 10 (car l2))
          (setq new_ls (cons (cdr l2) new_ls))
        )
      )
      (reverse new_ls)
    )
   (setq ss (ssget (list (cons 8 "111"))))
;;;  (setq ss nil)
(setq  AcadObject   (vlax-get-acad-object)
       AcadDocument (vla-get-ActiveDocument Acadobject)
       mSpace        (vla-get-ModelSpace Acaddocument))
  (setq docPath (vla-get-Path AcadDocument))
  (repeat (setq k (sslength ss))
    (setq ent (ssname ss (setq k (1- k))))
    (setq pl1 (xlr-get-ptn ent))
    (setq ss1 (ssget "WP" pl1 ));选择图框内的图元
    (setq ss2 (ssget "WP" pl1 (list (cons 0 "POLYLINE"))));选择图框内的宗地权属线
    (setq en1 (ssname ss2 0))
    (setq ent1 (entget en1 (list "*")))
    (if        (not (setq ent1_ls (assoc "south" (cdr (assoc -3 ent1)))))
      (setq ent1_ls (assoc "SOUTH" (cdr (assoc -3 ent1))))
    )
    (SETQ Zd (cdr (caddr ent1_ls)))
    (setq qlr (cdr (cadddr ent1_ls)))
    (vl-mkdir
      (setq ffn        (strcat
                  docPath
                  "\\"
                  "220283"
                  zd
                  "_"
                  qlr
                 )
      )
    );创建文件夹
;;;  (sslength ss2 )

    (setq
      pn (strcat docPath
                 "\\"                          "220283"
                 zd                          "_"
                 qlr                          "\\"
                 "220283"                  zd
                 "_宗地图"
                )
    );创建宗地图名称
    (xlrx-doc-wblock ss1 pn);输出宗地图 这里用的是G版的函数
))

llsheng_73

仔细看下只有文件夹而无图形的地方，也许它只是图框内的一条碎线，宗地线本身肯定是封闭的，但是制作成宗地图后，邻宗被打断是很正常的，根据你的ssget的过滤条件和固定取选择集第一条线作为要处理的宗地线，极为可能导致有的线它可能只有2个点,无法构成选择范围，另外就算能构成选择范围输出了图形，也不一定是正确的。
多检查几处有宗地碎线的地方，如果和前边的猜想差不多，那么得重新考虑ssget的过滤条件及处理方式

宗地图一般是直接在总图上导出，弄成这样了导出来也没多大用处（打印除外），因为它的坐标是完全不正确的

852456

llsheng_73 发表于 2018-10-7 00:38
仔细看下只有文件夹而无图形的地方，也许它只是图框内的一条碎线，宗地线本身肯定是封闭的，但是制作成宗地 ...

请问，如果我的宗地图太多了。弄的图形很小。范围却很大，会造成ssget根据点集选择不上对象呢？就是图中的错误