如何根据轴网交点自动绘制矩形

845245015

各位大神怎么样根据轴网绘制出矩形，如同截图4个轴网绘制出9个编号小的矩形

原地踏步

图示的好办。求出交点，排序，再分别按X相同和Y相同画线。
如果轴网是任意方向任意角度，就比较麻烦一些。

既然青春留不住

newer

使用XDRX API 一句话代码完成你要的
(xdrx-geom-searchregions (ssget))

完成你图排序写字，下面简单的代码

1. (defun c:tt ()
   
2.   (xdrx-begin)
   
3.   (if (and (setq ss (xdrx-ssget
   
4.                       "\n选择造区的曲线<退出>:"
   
5.                       '((0 . "*line,arc,ellipse,circle"))
   
6.                     )
   
7.            )
   
8.            (setq ss1 (xdrx-entity-copy ss))
   
9.            (setq ss2 (xdrx-geom-searchregions ss1))
   
10.            (xdrx-entity-delete (ssname ss2 0))
    
11.            (xdrx-entity-setproperty ss2 "color" 1)
    
12.            (setq box (xd::pnts:open (xdrx-getpropertyvalue (ssname ss2 1) "vertices"))
    
13.                  h   (distance (car box) (last box))
    
14.            )
    
15.            (xdrx-document-setprec h 0.1)
    
16.            (setq ss3 (xd::pickset:tablesort ss2 0 7 '< '>))
    
17.            (setq ss4 (xd::list:flat ss3))
    
18.       )
    
19.     (progn
    
20.       (setq i 0)
    
21.       (mapcar '(lambda (x)
    
22.                  (setq pt (xd::geom:get9pt x 5))
    
23.                  (xdrx-text-make pt (itoa (setq i (1+ i))) 200.0)
    
24.                )
    
25.               ss4
    
26.       )
    
27.     )
    
28.   )
    
29.   (xdrx-end)
    
30.   (princ)
    
31. )
    
32. 
    

(defun c:tt ()<br />   (xdrx-begin)<br />   (if (and (setq ss (xdrx-ssget<br />                       "\n选择造区的曲线<退出>:"<br />                       '((0 . "*line,arc,ellipse,circle"))<br />                     )<br />            )<br />            (setq ss1 (xdrx-entity-copy ss))<br />            (setq ss2 (xdrx-geom-searchregions ss1))<br />            (xdrx-entity-delete (ssname ss2 0))<br />            (xdrx-entity-setproperty ss2 "color" 1)<br />            (setq box (xd::pnts:open (xdrx-getpropertyvalue (ssname ss2 1) "vertices"))<br />                  h   (distance (car box) (last box))<br />            )<br />            (xdrx-document-setprec h 0.1)<br />            (setq ss3 (xd::pickset:tablesort ss2 0 7 '< '>))<br />            (setq ss4 (xd::list:flat ss3))<br />       )<br />     (progn<br />       (setq i 0)<br />       (mapcar '(lambda (x)<br />                  (setq pt (xd::geom:get9pt x 5))<br />                  (xdrx-text-make pt (itoa (setq i (1+ i))) 200.0)<br />                )<br />               ss4<br />       )<br />     )<br />   )<br />   (xdrx-end)<br />   (princ)<br /> )<br /> <br />

845245015

newer 发表于 2020-6-19 22:10
使用XDRX API 一句话代码完成你要的
(xdrx-geom-searchregions (ssget))

版主确实厉害，其实编号是不需要的，我的想法只是绘制出方框就行以便后期均布设备点位，您的程序我试了，总是提示缺少参数或者自定义函数，谢谢您！百忙之中提供帮助！

XDSoft

845245015 发表于 2020-6-20 18:55
版主确实厉害，其实编号是不需要的，我的想法只是绘制出方框就行以便后期均布设备点位，您的程序我试了， ...

你要矩形，就一行代码
(xdrx-geom-searchregions (ssget))

安装 XDRX API 或者 晓东工具箱

845245015

XDSoft 发表于 2020-6-20 19:01
你要矩形，就一行代码
(xdrx-geom-searchregions (ssget))

发现一些问题就是会出现个别的轴网分割区域无法生成矩形框，还有xdrx-entity-setproperty如何设置图元图层啊？

newer

845245015 发表于 2020-6-22 14:09
发现一些问题就是会出现个别的轴网分割区域无法生成矩形框，还有xdrx-entity-setproperty如何设置图元图 ...

多个选择集，写多个xdrx-entity-setproperty，一个里面一个选择集，但可以设置多个属性

newer

845245015 发表于 2020-6-22 14:09
发现一些问题就是会出现个别的轴网分割区域无法生成矩形框，还有xdrx-entity-setproperty如何设置图元图 ...

无法生成的，截取个局部图形，你把围城边界的都选择了吗？
上传个有问题的dwg

845245015

这是测试文件，还有就是我安装论坛工具箱后，使用matchproperty命令的时候没办法准确的刷了