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

brainstorm

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

xdrx_hatch_make 生成的填充有面积值

我在这个帖子里贴的代码，命令tt1那个，依然没有面积值，
夹点拖动一下就有面积值了，老大帮忙查看一下

XDSoft

brainstorm 发表于 2017-8-28 16:57

你再测试下其他几个提出的问题。关键字，连接曲线等等那几个。
你看下 NEWER 那个帖子的面积是怎么写的，他的有面积值。

brainstorm

XDSoft 发表于 2017-8-28 17:05

其他问题我再试一下
我和newer 版主代码区别在于
Newer 版主用的是xdrx_geomv_bpoly 的方法创建填充边界
我用的是
(setq ss (ssadd(xdrx_polyline_make(xdrx_getpropertyvalue mp "MPolygonLoopAt" n) )ss)的方法创建填充边界，然后xdrx_hatch_make ss,
我一直猜测(xdrx_polyline_make(xdrx_getpropertyvalue mp "MPolygonLoopAt" n) )这个曲线生成有问题。

另外(xdrx_polyline_make(xdrx_getpropertyvalue mp "MPolygonLoopAt" n) )对spline 不支持。

手机写的，有点乱啊，谢谢老大！

XDSoft

brainstorm 发表于 2017-8-28 18:28

另外(xdrx_polyline_make(xdrx_getpropertyvalue mp "MPolygonLoopAt" n) )对spline 不支持。

这句，和SPLINE有什么关系？  MPOLYGON里面的环只能是多段线，不能是其他实体。创建MPOLYGON时候，边界也要都是多段线。API对SPLINE是模拟成了多段线添加到MP里面的。

brainstorm

回头发张测试图

marting

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

试试修改成下面这个

1. (defun zgx-add-hatch-byloop
   
2.        (mp bdlst patten scale / hch outer inner hch patten ss)
   
3.   (setq        outer (car bdlst)
   
4.         outer (xdrx_polyline_make
   
5.                 (xdrx_getpropertyvalue mp "MPolygonLoopAt" outer)
   
6.               )
   
7.   )
   
8.   (if (and outer
   
9.            (setq ss (ssadd)
   
10.                  ss (ssadd outer ss)
    
11.            )
    
12.            (setq inner (cadr bdlst))
    
13.       )
    
14.     (progn
    
15.       (foreach n inner
    
16.         (setq
    
17.           ss (ssadd
    
18.                (xdrx_polyline_make
    
19.                  (xdrx_getpropertyvalue mp "MPolygonLoopAt" n)
    
20.                )
    
21.                ss
    
22.              )
    
23.         )
    
24.       )
    
25.     )
    
26.   )
    
27.   (setq hch (xdrx_hatch_make ss))
    
28.   (xdrx_setpropertyvalue
    
29.     hch
    
30.     "patternname"
    
31.     (list 1 patten)
    
32.     "patternscale"
    
33.     scale
    
34.     "color"
    
35.     251
    
36.   )
    
37.   hch
    
38. )
    
39. 
    

(defun zgx-add-hatch-byloop<br />        (mp bdlst patten scale / hch outer inner hch patten ss)<br />   (setq        outer (car bdlst)<br />         outer (xdrx_polyline_make<br />                 (xdrx_getpropertyvalue mp "MPolygonLoopAt" outer)<br />               )<br />   )<br />   (if (and outer<br />            (setq ss (ssadd)<br />                  ss (ssadd outer ss)<br />            )<br />            (setq inner (cadr bdlst))<br />       )<br />     (progn<br />       (foreach n inner<br />         (setq<br />           ss (ssadd<br />                (xdrx_polyline_make<br />                  (xdrx_getpropertyvalue mp "MPolygonLoopAt" n)<br />                )<br />                ss<br />              )<br />         )<br />       )<br />     )<br />   )<br />   (setq hch (xdrx_hatch_make ss))<br />   (xdrx_setpropertyvalue<br />     hch<br />     "patternname"<br />     (list 1 patten)<br />     "patternscale"<br />     scale<br />     "color"<br />     251<br />   )<br />   hch<br /> )<br /> <br />

brainstorm

关键字可以了，建议一下
1 增加对ctrl shift alt键支持，因为很多时候需要这个功能键，比如有些软件操作，按一下ctrl键改为增加顶点，再按一下改为移动顶点
2 当用户输入nea，此时没有确认，觉得没有必要输入nea了，想进行旋转或其他关键字操作，这时候用户按退格键清空nea,也就没有文字了，此时如果再输入新的字母，如果是关键字，则一键回车

关于我说的spline我这里不能重现了，也许是我当时操作有误，如果再重现，我反馈一下
曲线不能正确连接的问题，我那张图测试没问题了

另外关于几何库的一些想法，现在建立填充，都是先通过创建填充边界实体pline，也就是要xdrx_polyline_make，在图面上实际生成了pline线，为什么不能通过几何库在内存建立呢，感觉更符合软件设计思路，本来这些pline就是临时的，填充生成了还要删除，在内存建立不是更符合逻辑

newer

brainstorm 发表于 2017-8-28 19:53

1、 关键字的，你输入nea然后回退删除，再输入关键字，你那没效果，关键字不能用？ 试了吗？2、你说的CTRL功能键是要和关键字组合一起，还是单独把CTRL.. 做关键字？

2、填充的，很多时候不只是要填充，还要保留边界呢？

brainstorm

marting 发表于 2017-8-28 19:49

谢谢你啊 真神了 就是一个hch和 xdrx_getss的差别啊 原因呢？

brainstorm

newer 发表于 2017-8-28 20:03

1、 关键字的，你输入nea然后回退删除，再输入关键字，你那没效果，关键字不能用？ 试了吗？2、你说的CTRL功能键是要和关键字组合一起，还是单独把CTRL.. 做关键字？
nea退格删除，试了，没有效果。（CAD2014 win10）
ctrl单独做关键字，天正软件是这样的，很方便

2、填充的，很多时候不只是要填充，还要保留边界呢？

是啊 有时候有这种需求

newer

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

我这 2008,2014MAP，2016 关键字都能回退，再输入关键字一键回车
你用了 (xdrx_initget "A B") 了吗？

填充边界那个，要保留边界，就不能不要，在内存操作啊。

brainstorm

我这 2008,2014MAP，2016 关键字都能回退，再输入关键字一键回车
你用了 (xdrx_initget "A B") 了吗？

用了啊 就是我道路标高那个代码，输入nea如果选点，再输入关键字就支持，如果输入nea，不确认，按退格清空文字，此时再按关键字A，不再支持关键字

咱们有qq讨论群么,能把我加进去么，我申请好几次了

brainstorm

(defun c:tt ()
  (xdrx_initget "a")
  (setq p (getpoint))
)
如下面图片，输入nea后退格，清楚nea，此时再输入关键字A，无法调用关键字

newer

brainstorm 发表于 2017-8-28 21:44

2007,2008,2014MAP,2016都正常




你装个其他版本的CAD，试试先。

brainstorm

newer 发表于 2017-8-28 22:37

试了，在纯cad 下没问题，估计是软件冲突