api 填充，面积为0，是bug么

brainstorm · 发表于 2017-8-26 17:05:10

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

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

×

问题 1
(setq e (xdrx_hatch_make (ssget)))
此时生成的填充没有面积
如果(xdrx_setpropertyvalue e "patternscale" ... ...)之后可正常显示面积
问题 2
(setq ss (ssget '((0 . "*line,arc,ellipse,circle"))))
  (setq ss (xdrx_curve_intersectbreak ss))
  (setq ss (xdrx_region_make ss))
  (setq ss (xdrx_region->curve ss))
(setq mp (xdrx_mpolygon_make ss))

此时生成mpolygon，
即便用cad的填充命令填充，填充图案依然没有面积

Hatch作为cad的一个图元，一方面是制图需要，另一方面进行面积统计，
面积统计是很重要的功能

XDSoft · 发表于 2017-8-26 21:27:30

问题1，下版本修正

问题2，不清楚，你生成MPOLYGON后，是怎么生成的HATCH? 用ACAD命令点选边界生成的吗？

MPOLYGON本身就带HATCH的，只是API默认没显示出来。你可以点特性框查看下。

MPOLYGON转填充，API有  xdrx_mpolygon->hatch
MP转多段线                   xddrx_mpolygon->polyline
MP转面域                      xdrx_mpolygon->region

填充也可以转MP             xdrx_hatch->mpolygon
面域也可以转MP             xdrx_region->mpolygon
多段线也可以                xdrx_polyline->mpolygon

XDSoft · 发表于 2017-8-26 21:38:32

让MP显示出来填充用

(xdrx_setpropertyvalue (car (entsel)) "pattern" '(1 "solid"))

搜狗截图20170826213726.png

brainstorm · 发表于 2017-8-27 13:35:06

本帖最后由 brainstorm 于 2017-8-27 13:36 编辑

XDSoft 发表于 2017-8-26 21:38

(xdrx_region->mpolygon (ssget)) 或 (xdrx_region->mpolygon (car(entsel)))我这里都不能生成
Mpolygon，图面上有用region命令生成的region

下面的代码生成的填充都没有面积，请老大帮忙分析原因，谢谢

;;;-----------------------------------------------------------

(defun zgx-add-hatch-byloop
(mp bdlst patten scale / hch outer inner hch patten ss)
(xdrx_setmark)
(setq outer (car bdlst)
outer (xdrx_polyline_make
(xdrx_getpropertyvalue mp "MPolygonLoopAt" outer)
)
)
(if (and outer
(setq ss (ssadd)
ss (ssadd outer ss)
)
(setq inner (cadr bdlst))
)
(progn
(foreach n inner
(setq
ss (ssadd
(xdrx_polyline_make
(xdrx_getpropertyvalue mp "MPolygonLoopAt" n)
)
ss
)
)
)
)
)
(setq hch (xdrx_hatch_make ss))
(xdrx_setpropertyvalue
hch
"patternname"
(list 1 patten)
"patternscale"
scale
"color"
251
)
(xdrx_getss)
)
;;;-----------------------------------------------------------
(defun zgx-get-boundary-loop (mp pt / outer inner)
(setq outer
(car (xdrx_getpropertyvalue
mp
"IsPointInsideMPolygon"
pt
)
)
)
(if (not (eq (type outer) 'list))
(progn
(setq inner (xdrx_getpropertyvalue
mp
"ChildLoops"
outer
)
)
;;;--????---------------------------------------------------
(setq inner
(vl-remove-if-not
'(lambda (x)
(eq outer (xdrx_getpropertyvalue mp "parentloop" x))
)
inner
)
)
(list outer inner)
)
)
)
;;;-------------------------------------------------------------
;;;-------------------------------------------------------------
(defun c:tt1 (/ mp bdlst tmpss pos curposoldtmpss *error* oldtmpss)
(defun *error* (msg)
(xdrx_pointmonitor)
(xdrx_entity_delete mp tmpss)
)
(defun #addhatch (p)
(setq curpos (xdrx_getpropertyvalue mp "ispointinsidempolygon" p))
(if (and (not (equal pos curpos))
curpos
)
(progn
(if oldtmpss
(xdrx_entity_delete oldtmpss)
)
(setq
bdlst
(zgx-get-boundary-loop mp p)
)
(if bdlst
(setq tmpss (ZGX-ADD-HATCH-BYLOOP mp bdlst "ANSI31" 1000))
)
(setq oldtmpss tmpss)
) ;progn
) ;if
)
(prompt "\nselect curves")
(setq ss0 (ssget '((0 . "*line,arc,ellipse,circle"))))
(setq ss (xdrx_entity_copy ss0))
(setq ss (xdrx_curve_intersectbreak ss))
;;????????
(setq ss (xdrx_region_make ss))
;;??region
(setq ss (xdrx_region->curve ss))
;;region????(????????)
(setq mp (xdrx_mpolygon_make ss))
(xdrx_entity_delete ss)
(setq pos t
curpos nil
loop t
)
(while loop
(xdrx_pointmonitor "#addhatch" mp ss0)
(setq pt (getpoint "\nÑ¡Ôñìî3äμã:"))
(xdrx_pointmonitor)
(if pt
(progn
(setq pos t
curpos nil
)
(xdrx_setsstodb tmpss 0)
(while (setq e (xdrx_getentdata 0))
(xdrx_setenttodb e)
(if (wcmatch (xdrx_getentdxf 0) "*LINE")
(xdrx_entity_delete e)
)
)
(setq oldtmpss nil)
)
(progn
(setq loop nil)
(if oldtmpss
(xdrx_entity_delete oldtmpss)
)
)
)
)
(xdrx_entity_delete mp)
)

(defun zgx-add-hatch-byloop 
       (mp bdlst patten scale / hch outer inner hch patten ss) 
  (xdrx_setmark) 
  (setq        outer (car bdlst) 
        outer (xdrx_polyline_make 
                (xdrx_getpropertyvalue mp "MPolygonLoopAt" outer) 
              ) 
  ) 
  (if (and outer 
           (setq ss (ssadd) 
                 ss (ssadd outer ss) 
           ) 
           (setq inner (cadr bdlst)) 
      ) 
    (progn 
      (foreach n inner 
        (setq 
          ss (ssadd 
               (xdrx_polyline_make 
                 (xdrx_getpropertyvalue mp "MPolygonLoopAt" n) 
               ) 
               ss 
             ) 
        ) 
      ) 
    ) 
  ) 
  (setq hch (xdrx_hatch_make ss)) 
  (xdrx_setpropertyvalue 
    hch 
    "patternname" 
    (list 1 patten) 
    "patternscale" 
    scale 
    "color" 
    251 
  ) 
  (xdrx_getss) 
) 
 
;;;----------------------------------------------------------- 
(defun zgx-get-boundary-loop (mp pt / outer inner) 
  (setq        outer 
         (car (xdrx_getpropertyvalue 
                mp 
                "IsPointInsideMPolygon" 
                pt 
              ) 
         ) 
  ) 
  (if (not (eq (type outer) 'list)) 
    (progn 
      (setq inner (xdrx_getpropertyvalue 
                    mp 
                    "ChildLoops" 
                    outer 
                  ) 
      ) 
;;;--????--------------------------------------------------- 
      (setq inner 
             (vl-remove-if-not 
               '(lambda        (x) 
                  (eq outer (xdrx_getpropertyvalue mp "parentloop" x)) 
                ) 
               inner 
             ) 
      ) 
      (list outer inner) 
    ) 
  ) 
) 
;;;------------------------------------------------------------- 
;;;------------------------------------------------------------- 
 
(defun c:tt1 (/ mp bdlst tmpss pos curposoldtmpss *error* oldtmpss) 
  (defun *error* (msg) 
    (xdrx_pointmonitor) 
    (xdrx_entity_delete mp tmpss) 
  ) 
  (defun #addhatch (p) 
    (setq curpos (xdrx_getpropertyvalue mp "ispointinsidempolygon" p)) 
    (if        (and (not (equal pos curpos)) 
             curpos 
        ) 
      (progn 
        (if oldtmpss 
          (xdrx_entity_delete oldtmpss) 
        ) 
        (setq 
          bdlst 
           (zgx-get-boundary-loop mp p) 
        ) 
        (if bdlst 
          (setq tmpss (ZGX-ADD-HATCH-BYLOOP mp bdlst "ANSI31" 1000)) 
        ) 
        (setq oldtmpss tmpss) 
      )                                        ;progn       
    )                                        ;if 
  ) 
 
 
  (prompt "\nselect curves") 
  (setq ss0 (ssget '((0 . "*line,arc,ellipse,circle")))) 
  (setq ss (xdrx_entity_copy ss0)) 
  (setq ss (xdrx_curve_intersectbreak ss)) 
  ;;???????? 
  (setq ss (xdrx_region_make ss)) 
  ;;??region 
  (setq ss (xdrx_region->curve ss)) 
  ;;region????(????????) 
  (setq mp (xdrx_mpolygon_make ss)) 
  (xdrx_entity_delete ss) 
  (setq        pos t 
        curpos nil 
        loop t 
  ) 
  (while loop 
    (xdrx_pointmonitor "#addhatch" mp ss0) 
    (setq pt (getpoint "\n&#209;&#161;&#212;&#241;ì&#238;3&#228;μ&#227;:")) 
    (xdrx_pointmonitor) 
    (if        pt 
      (progn 
        (setq pos t 
              curpos nil 
        ) 
        (xdrx_setsstodb tmpss 0) 
        (while (setq e (xdrx_getentdata 0)) 
          (xdrx_setenttodb e) 
          (if (wcmatch (xdrx_getentdxf 0) "*LINE") 
            (xdrx_entity_delete e) 
          ) 
        ) 
        (setq oldtmpss nil) 
      ) 
      (progn 
        (setq loop nil) 
        (if oldtmpss 
          (xdrx_entity_delete oldtmpss) 
        ) 
      ) 
    ) 
  ) 
  (xdrx_entity_delete mp) 
)

newer · 发表于 2017-8-27 16:52:08

brainstorm 发表于 2017-8-27 13:35

请把不能转化MP的 REGION 存盘，附件发上来，测试下。

brainstorm · 发表于 2017-8-27 16:59:35

newer 发表于 2017-8-27 16:52

见附件,wn10+cad2014
另外填充面积你那里正常么？

请点击此处下载

查看状态：需购买或无权限

您的用户组是：游客

文件名称:region.rar
下载次数:2 文件大小:25.74 KB
下载权限: 不限以上 [免费赚D豆]

newer · 发表于 2017-8-27 22:31:45

brainstorm 发表于 2017-8-27 13:35

用MP处理是一个解决方案。

不过，API有个更好的函数 xdrx_geom_bpoly 可以构建filter去点选生成边界，更狠的是能深入到INSERT里面。下面是演示。

TT2命令，没有使用过滤，红色和251色的都参与
TT3命令，使用了过滤，只找颜色号等于251的。

下面是代码：

(defun c:tt2 (/ mp bdlst tmpss pos curposoldtmpss *error* oldtmpss
oldregion)
(defun *error* (msg)
(xdrx_pointmonitor)
(xdrx_entity_delete mp tmpss)
)
(defun _makehatch
(ent patten scale / hch)
(setq hch (xdrx_hatch_make ent))
(xdrx_setpropertyvalue
(entlast)
"patternname"
(list 1 patten)
"patternscale"
scale
"color"
251
)
hch
)
(defun #addhatch (p)
(if (xdrx_point_isinside p oldregion)
(progn
)
(progn
(xdrx_entity_delete oldregion oldhatch)
(if (setq ss (xdrx_geom_bpoly p))
(progn
(setq oldregion (ssname ss 0))
(setq oldhatch (_makehatch oldregion "ANSI31" 1000))
)
(progn
)
)
)
)
)
(xdrx_begin)
(setq oldregion nil)
(setq oldhatch nil)
(xdrx_pointmonitor "#addhatch")
(while (setq pt (getpoint "\n移动鼠标:"))
(if pt
(progn
(setq oldregion nil)
(setq oldhatch nil)
)
)
)
(xdrx_entity_delete oldregion oldhatch)
(xdrx_pointmonitor)
(xdrx_end)
(princ)
)

(defun c:tt2 (/        mp bdlst tmpss pos curposoldtmpss *error* oldtmpss 
              oldregion) 
  (defun *error* (msg) 
    (xdrx_pointmonitor) 
    (xdrx_entity_delete mp tmpss) 
  ) 
  (defun _makehatch 
                    (ent patten scale / hch) 
    (setq hch (xdrx_hatch_make ent)) 
    (xdrx_setpropertyvalue 
      (entlast) 
      "patternname" 
      (list 1 patten) 
      "patternscale" 
      scale 
      "color" 
      251 
    ) 
    hch 
  ) 
  (defun #addhatch (p) 
    (if        (xdrx_point_isinside p oldregion) 
      (progn 
      ) 
      (progn 
        (xdrx_entity_delete oldregion oldhatch) 
        (if (setq ss (xdrx_geom_bpoly p)) 
          (progn 
            (setq oldregion (ssname ss 0)) 
            (setq oldhatch (_makehatch oldregion "ANSI31" 1000)) 
          ) 
          (progn 
          ) 
        ) 
      ) 
    ) 
  ) 
  (xdrx_begin) 
  (setq oldregion nil) 
  (setq oldhatch nil) 
  (xdrx_pointmonitor "#addhatch") 
  (while (setq pt (getpoint "\n移动鼠标:")) 
    (if        pt 
      (progn 
        (setq oldregion nil) 
        (setq oldhatch nil) 
      ) 
    ) 
  ) 
  (xdrx_entity_delete oldregion oldhatch) 
  (xdrx_pointmonitor) 
  (xdrx_end) 
  (princ) 
)

下面的同上面的，仅仅是 (setq ss (xdrx_geom_bpoly p '((62 . 251)))) 这行不同。

(defun c:tt3 (/ mp bdlst tmpss pos curposoldtmpss *error* oldtmpss
oldregion)
(defun *error* (msg)
(xdrx_pointmonitor)
(xdrx_entity_delete mp tmpss)
)
(defun _makehatch
(ent patten scale / hch outer inner hch patten ss)
(setq hch (xdrx_hatch_make ent))
(xdrx_setpropertyvalue
(entlast)
"patternname"
(list 1 patten)
"patternscale"
scale
"color"
251
)
hch
)
(defun #addhatch (p)
(if (xdrx_point_isinside p oldregion)
(progn
)
(progn
(xdrx_entity_delete oldregion oldhatch)
(if (setq ss (xdrx_geom_bpoly p '((62 . 251))))
(progn
(setq oldregion (ssname ss 0))
(setq oldhatch (_makehatch oldregion "ANSI31" 1000))
)
(progn
)
)
)
)
)
(xdrx_begin)
(setq oldregion nil)
(setq oldhatch nil)
(xdrx_pointmonitor "#addhatch")
(while (setq pt (getpoint "\n移动鼠标:"))
(if pt
(progn
(setq oldregion nil)
(setq oldhatch nil)
)
)
)
(xdrx_entity_delete oldregion oldhatch)
(xdrx_pointmonitor)
(xdrx_end)
(princ)
)

(defun c:tt3 (/        mp bdlst tmpss pos curposoldtmpss *error* oldtmpss 
              oldregion) 
  (defun *error* (msg) 
    (xdrx_pointmonitor) 
    (xdrx_entity_delete mp tmpss) 
  ) 
  (defun _makehatch 
                    (ent patten scale / hch outer inner hch patten ss) 
    (setq hch (xdrx_hatch_make ent)) 
    (xdrx_setpropertyvalue 
      (entlast) 
      "patternname" 
      (list 1 patten) 
      "patternscale" 
      scale 
      "color" 
      251 
    ) 
    hch 
  ) 
  (defun #addhatch (p) 
    (if        (xdrx_point_isinside p oldregion) 
      (progn 
      ) 
      (progn 
        (xdrx_entity_delete oldregion oldhatch) 
        (if (setq ss (xdrx_geom_bpoly p '((62 . 251)))) 
          (progn 
            (setq oldregion (ssname ss 0)) 
            (setq oldhatch (_makehatch oldregion "ANSI31" 1000)) 
          ) 
          (progn 
          ) 
        ) 
      ) 
    ) 
  ) 
  (xdrx_begin) 
  (setq oldregion nil) 
  (setq oldhatch nil) 
  (xdrx_pointmonitor "#addhatch") 
  (while (setq pt (getpoint "\n移动鼠标:")) 
    (if        pt 
      (progn 
        (setq oldregion nil) 
        (setq oldhatch nil) 
      ) 
    ) 
  ) 
  (xdrx_entity_delete oldregion oldhatch) 
  (xdrx_pointmonitor) 
  (xdrx_end) 
  (princ) 
)

生成的HATCH有面积，演示里面能看到。不过我的API应该比你新，我不知道是不是API的原因。你用我上面的代码执行下，看看有面积没。

liuyj · 发表于 2017-8-27 23:24:24

第一个能生成，有面积。第二个不能生成hatch

newer · 发表于 2017-8-28 00:09:06

liuyj 发表于 2017-8-27 23:24

你是说我的代码？

第二个，你的多段线颜色要设置成251，程序设置了过滤条件，做演示。只找颜色251的，其他颜色过滤掉。你可以多画几种颜色，其中要有251的。

brainstorm · 发表于 2017-8-28 08:34:05

newer 发表于 2017-8-27 22:31

xdrx_geom_bpoly 是忽略内部的，如果不忽略内部还得增加判断？
跟boundary不同，boundary没有忽略内部

marting · 发表于 2017-8-28 09:26:03

brainstorm 发表于 2017-8-28 08:34

两种方法要结合下，就更好，是最终发展的方向。既能过滤，深入图块，又能有MPOLYGON的灵活。

brainstorm · 发表于 2017-8-28 09:41:19

marting 发表于 2017-8-28 09:26

严重同意超赞

XDSoft · 发表于 2017-8-28 09:53:43

brainstorm 发表于 2017-8-28 09:41

API更新了，请测试下最近反映的问题，谢谢！

brainstorm · 发表于 2017-8-28 13:46:19

XDSoft 发表于 2017-8-28 09:53

试了.几个问题没有解决
打包文件内是8.18不是8.28是不是文件错了，另外没有xdrx.lsp文件

XDSoft · 发表于 2017-8-28 14:27:52

brainstorm 发表于 2017-8-28 13:46

传错了，更新了，重新下载下。

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

[求助] api 填充，面积为0，是bug么

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