[测试]：关于XDRX_API的BUG,请到此贴下发表

taner

XDSoft 发表于 2018-7-28 21:09
请测试下 2018.07.28日更新的API。

(xdrx_mpolygon->region(ssget)) 现象依然!

newer

taner 发表于 2018-7-28 23:47
(xdrx_mpolygon->region(ssget)) 现象依然!

什么现象？

taner

;http://bbs.xdcad.net/thread-716801-1-1.html
;http://bbs.xdcad.net/thread-715868-1-1.html
;缘起上面两个主题.
;一直想学习API解决一些工作中的实际问题,但总是有些问题!详细请看附件(应该是API方面的一些BUG)

(defun test1 (ss dst / 1ste_of_mps_new_lst but_1ste_of_mps_new_lst
                 but_outloop_lst ent ents_offset ge index layer
                 length_outloop_lst lst mps mps_new mps_new_lst mps1_new
                 outloop_lst topo x y
             )
  (xdrx_setmark)
  (setq mps (xdrx_mpolygon_make ss))
  (setq topo (xdrx_get_topology mps t))
  (setq lst (xd::list:flat-point topo))
  (setq outloop_lst (vl-remove-if-not (function (lambda (x)
                                                  (= 0 (car x))
                                                )
                                      ) lst
                    )
  )
  (setq length_outloop_lst (length outloop_lst))
  (setq but_outloop_lst (vl-remove-if (function (lambda (x)
                                                  (= 0 (car x))
                                                )
                                      ) lst
                        )
  )
  (if but_outloop_lst
    (setq but_outloop_lst (vl-sort but_outloop_lst (function (lambda (x y)
                                                               (< (car x)
                                                                  (car y)
                                                               )
                                                             )
                                                   )
                          )
    )
  )
  (cond
    (but_outloop_lst (cond
                       ((= length_outloop_lst 1)
                         (xdrx_setvar "retentlist" 0)
                         (setq ge (xdrx_getpropertyvalue mps "getloopat" (cadar outloop_lst))
                               ent (xdge::entity:make ge)
                               ents_offset (xdrx_curve_getoffsetcurves ent dst)
                               mps_new (xdrx_mpolygon_make ents_offset)
                         )
                         (xdrx_entity_delete ent)
                         (xdrx_entity_delete ents_offset)
                         (mapcar
                           (function (lambda (x)
                                       (setq layer (car x)
                                             index (cadr x)
                                             ge (xdrx_getpropertyvalue mps "getloopat"
                                                                       index
                                                )
                                             ent (xdge::entity:make ge)
                                       )
                                       (if (= (rem layer 2) 0)
                                         (progn
                                           (setq ents_offset
                                                 (xdrx_curve_getoffsetcurves ent
                                                                             dst
                                                 )
                                                 mps1_new
                                                 (xdrx_mpolygon_make ents_offset)
                                           )
                                           (xdrx-get-union mps_new mps1_new)
                                         )
                                         (progn
                                           (setq ents_offset
                                                 (xdrx_curve_getoffsetcurves ent
                                                                             (- dst)
                                                 )
                                                 mps1_new
                                                 (xdrx_mpolygon_make ents_offset)
                                           )
                                           (xdrx-get-subtract mps_new mps1_new)
                                         )
                                       )
                                       (xdrx_entity_delete ent)
                                       (xdrx_entity_delete ents_offset)
                                     )
                           )
                           but_outloop_lst
                         )
                       )
                       (t
                         (xdrx_setvar "retentlist" 0)
                         (setq mps_new_lst (mapcar
                                             (function (lambda (x)
                                                         (setq ge
                                                               (xdrx_getpropertyvalue mps "getloopat"
                                                                                      (cadr x)
                                                               )
                                                               ent
                                                               (xdge::entity:make ge)
                                                               ents_offset
                                                               (xdrx_curve_getoffsetcurves ent dst)
                                                               mps_new
                                                               (xdrx_mpolygon_make ents_offset)
                                                         )
                                                         (xdrx_entity_delete ent)
                                                         (xdrx_entity_delete ents_offset)
                                                         mps_new
                                                       )
                                             )
                                             outloop_lst
                                           )
                         )
                         (setq 1ste_of_mps_new_lst (car mps_new_lst)
                               but_1ste_of_mps_new_lst (cdr mps_new_lst)
                         )
                         (mapcar
                           (function (lambda (x)
                                       (xdrx-get-union 1ste_of_mps_new_lst x)
                                     )
                           )
                           but_1ste_of_mps_new_lst
                         )
                         (mapcar
                           (function (lambda (x)
                                       (setq layer (car x)
                                             index (cadr x)
                                             ge (xdrx_getpropertyvalue mps "getloopat"
                                                                       index
                                                )
                                             ent (xdge::entity:make ge)
                                       )
                                       (if (= (rem layer 2) 0)
                                         (progn
                                           (setq ents_offset
                                                 (xdrx_curve_getoffsetcurves ent
                                                                             dst
                                                 )
                                                 mps1_new
                                                 (xdrx_mpolygon_make ents_offset)
                                           )
                                           (xdrx-get-union 1ste_of_mps_new_lst
                                                           mps1_new
                                           )
                                         )
                                         (progn
                                           (setq ents_offset
                                                 (xdrx_curve_getoffsetcurves ent
                                                                             (- dst)
                                                 )
                                                 mps1_new
                                                 (xdrx_mpolygon_make ents_offset)
                                           )
                                           (xdrx-get-subtract 1ste_of_mps_new_lst
                                                              mps1_new
                                           )
                                         )
                                       )
                                       (xdrx_entity_delete ent)
                                       (xdrx_entity_delete ents_offset)
                                     )
                           )
                           but_outloop_lst
                         )
                       )
                     )
    )
    (t
      (cond
        ((= length_outloop_lst 1)
          (xdrx_setvar "retentlist" 0)
          (setq ge (xdrx_getpropertyvalue mps "getloopat" 0)
                ent (xdge::entity:make ge)
                ents_offset (xdrx_curve_getoffsetcurves ent dst)
                mps_new (xdrx_mpolygon_make ents_offset)
          )
          (xdrx_entity_delete ent)
          (xdrx_entity_delete ents_offset)
        )
        (t
          (xdrx_setvar "retentlist" 0)
          (setq mps_new_lst (mapcar
                              (function (lambda (x)
                                          (setq ge
                                                (xdrx_getpropertyvalue mps "getloopat"
                                                                       (cadr x)
                                                )
                                                ent (xdge::entity:make ge)
                                                ents_offset
                                                (xdrx_curve_getoffsetcurves ent
                                                                            dst
                                                )
                                                mps_new
                                                (xdrx_mpolygon_make ents_offset)
                                          )
                                          (xdrx_entity_delete ent)
                                          (xdrx_entity_delete ents_offset)
                                          mps_new
                                        )
                              )
                              outloop_lst
                            )
          )
          (setq 1ste_of_mps_new_lst (car mps_new_lst)
                but_1ste_of_mps_new_lst (cdr mps_new_lst)
          )
          (mapcar
            (function (lambda (x)
                        (xdrx-get-union 1ste_of_mps_new_lst x)
                      )
            )
            but_1ste_of_mps_new_lst
          )
        )
      )
    )
  )
  (xdge::free ge)
  (xdrx_entity_delete mps)
  (xdrx_getss)
)

taner

newer 发表于 2018-7-29 00:06
什么现象？

07版与18版测试都这样,今晚刚下的API

newer

taner 发表于 2018-7-29 02:22
;http://bbs.xdcad.net/thread-716801-1-1.html
;http://bbs.xdcad.net/thread-715868-1-1.html
;缘起上 ...

仔细的检查下那些曲线，试着用CAD正常的填充命令填充他们，肯定有的曲线有问题。

taner

newer 发表于 2018-7-29 02:43
仔细的检查下那些曲线，试着用CAD正常的填充命令填充他们，肯定有的曲线有问题。

再次将曲线消重(没发现重线),然后用CAD的原始命令填充,没问题.按上面图示重复,问题依然!

newer

taner 发表于 2018-7-29 10:44
再次将曲线消重(没发现重线),然后用CAD的原始命令填充,没问题.按上面图示重复,问题依然!

能连接的PLINE的，先连接成PLINE

newer

taner 发表于 2018-7-29 10:44
再次将曲线消重(没发现重线),然后用CAD的原始命令填充,没问题.按上面图示重复,问题依然!

另外，根据你的图，设置好函数(xdrx_document_setprec .....)的精度。

taner

newer 发表于 2018-7-29 14:53
另外，根据你的图，设置好函数(xdrx_document_setprec .....)的精度。

在代码开头加入精度:(xdrx_document_setPrec 0.001   0.001)后解决了问题.但是换一个图后死机.图中只有PL和CIRCLE.(defun c:tt ()
  (test1 (ssget) 0.08)
)

另:TEST1代码已理新,修正一处错误.

Lisphk

taner 发表于 2018-7-29 17:31
在代码开头加入精度:(xdrx_document_setPrec 0.001   0.001)后解决了问题.但是换一个图后死机.图中只有PL ...

你测试出来是哪个函数报的错吗？

taner

Lisphk 发表于 2018-7-29 20:41
你测试出来是哪个函数报的错吗？

没有提示哪个函数错误,你可以将上面的代码与附件TEST6下载事来测试一下看看

newer

taner 发表于 2018-7-29 21:15
没有提示哪个函数错误,你可以将上面的代码与附件TEST6下载事来测试一下看看

可以隔开一段设下打印函数，缩小到查出是哪个函数，自己写的代码，自己熟悉些

taner

(xdrx_mpolygon_make(ssget))出现图示现象!而且出问题后,CAD还不能存盘!越来越糊涂了
(xdrx_hatch_make(ssget))也会出现同样的问题.用原始指令HATCH是OK的

taner

随便新建一个图档.

newer

taner 发表于 2018-8-2 13:46
随便新建一个图档.

你一定用的不是最新的API

下面是我做你上面的工作，2012下面