从图形中提取出矩形, 支持有冗余点的矩形。

vitalgg

从图形中提取出矩形

1. (sssetfirst nil (pickset:from-list(vl-remove-if-not 'curve:rectanglep  (pickset:to-list (ssget '((0 . "lwpolyline"))))))

(sssetfirst nil (pickset:from-list(vl-remove-if-not 'curve:rectanglep  (pickset:to-list (ssget '((0 . "lwpolyline"))))))

在矩形的边上有多余的点的矩形，经过优化多段线函数 curve:optimize-lwpl 处理，也能轻松识别.

1. (sssetfirst
   
2.   nil
   
3.   (pickset:from-list(vl-remove-if-not
   
4.                       'curve:rectanglep  
   
5.                       (mapcar 'curve:optimize-lwpl(pickset:to-list (ssget '((0 . "lwpolyline"))))))))

(sssetfirst <br />   nil <br />   (pickset:from-list(vl-remove-if-not <br />                       'curve:rectanglep  <br />                       (mapcar 'curve:optimize-lwpl(pickset:to-list (ssget '((0 . "lwpolyline"))))))))

函数 curve:rectanglep 源码：
https://gitee.com/atlisp/atlisp- ... urve/rectanglep.lsp

如果无法播放，请点击此处在新窗口打开

Trouble12138

如何合为一个

vitalgg

Trouble12138 发表于 2023-5-4 19:12
如何合为一个

安装一个@lisp，就可以自动载所需的函数。
为什么非要合成一个文件？

所有函数在开源的 @lisp函数库中.
https://gitee.com/atlisp/atlisp-lib

Trouble12138

下载了，但是不知道用什么命令

Trouble12138

(sssetfirst nil (pickset:from-list(vl-remove-if-not 'curve:rectanglep  (pickset:to-list (ssget '((0 . "lwpolyline"))))))  视频中输入这个，但是我用不行，出现视频中那个奇怪的图形，但是不能框选

Trouble12138

vitalgg

Trouble12138 发表于 2023-5-4 20:59
(sssetfirst nil (pickset:from-list(vl-remove-if-not 'curve:rectanglep  (pickset:to-list (ssget '((0  ...

这是在命令行直接输入代码。
需要autolisp环境支持相关的函数。
看我签名第一个链接。进入安装即可。

vitalgg

复杂矩形也能支持。