批量思路2：用extrim命令指定剪切边，然后指定相同图层中的“点“

関吣 · 发表于 2013-7-11 12:00:26

批量extrim思路：
指定剪切边所在图层做为剪切边，然后选中每个PL线内部与剪切边相同图层的“点”，执行extrim
或者框选pl线，然后选中每个PL线内部与剪切边相同图层的“点”，执行extrim
这个功能其实挺强大~~请高手看看~

newer · 发表于 2013-7-11 12:00:27

登录/注册后可看大图

(defun c:tt ()
(if (progn
(prompt "\n选取封闭的多段线<退出>:")
(setq ss (ssget '((0 . "*polyline"))))
)
(progn
(xdrx_begin)
(xdrx_setsstodb ss 0)
(while (setq e (xdrx_getentdata 0))
(if (and
(= 1 (logand (xdrx_getentdxf 70) 1))
(setq ss1 (ssget "f" (xdrx_getsamplept e) '((0 . "*line,arc,ellipse,circle"))))
(ssdel e ss1)
(> (sslength ss1) 0)
)
(xdrx_pickset_ClipbyPoly ss1 e)
)
)
(xdrx_end)
)
)
(princ)
)

関吣 · 发表于 2013-7-11 15:28:23

本帖最后由関吣于 2013-7-11 15:32 编辑

谢谢newer，但是其实重点是在于白色的异形柱那里哦~这个程序可以用哦。灰常感谢。

関吣 · 发表于 2013-7-11 15:43:36

题外，请问
被修剪的线形能不能支持LWPOLYLINE,LUBANCIRCLEBEAM,LUBANCOLUMN,LUBANLINEBEAM啊

関吣 · 发表于 2013-7-11 15:45:03

剪切命令好像没有extrim的样子哦~

newer · 发表于 2013-7-11 20:41:45

関吣发表于 2013-7-11 15:28
谢谢newer，但是其实重点是在于白色的异形柱那里哦~这个程序可以用哦。灰常感谢。

我写的程序用了XDRX_API，其实还是给你过滤了一些实体。

这个工具可以把你说的柱子里面所有的东西都给剪掉，现在程序只是寻找柱子里面的曲线。

只要是封闭的多边形就可以，修改下程序，柱子是图块也可以。

你说的那些是自定义实体吧？

你试试用API函数，去选择柱子。
(xdrx_geom_searchoutline (car (entsel)))
(xdrx_entity_box (car (entsel)))
(xdrx_getsamplept (car (entsel)))

把他们的返回值贴出来，我看看能帮你修改下，修剪你的自定义柱子不。

另外，什么结构软件画的图？

関吣 · 发表于 2013-7-13 11:06:30

本帖最后由関吣于 2014-11-4 14:54 编辑

谢谢newer版主，你的问题回答如下
柱子我用PL的CAD线做出来了哦~
梁线是要修剪的对象，用三个函数点梁线（要被修剪的对象）的返回值如下：

命令: (xdrx_geom_searchoutline (car (entsel)))
选择对象: nil

命令: (xdrx_geom_searchoutline (car (entsel)))
选择对象: nil

命令: (xdrx_entity_box (car (entsel)))
选择对象: ((9739.72 81387.0 0.0) (9939.72 81387.0 0.0) (9939.72 84487.0 0.0)
(9739.72 84487.0 0.0))

命令: (xdrx_entity_box (car (entsel)))
选择对象: ((13564.7 79987.0 0.0) (13814.7 79987.0 0.0) (13814.7 86287.0 0.0)
(13564.7 86287.0 0.0))

命令: (xdrx_getsamplept (car (entsel)))
选择对象: nil

命令: (xdrx_getsamplept (car (entsel)))
选择对象: nil

每个命令我选一个次梁，一个主梁来做返回值的

chxl5878 · 发表于 2014-1-20 16:01:11

顶顶顶顶顶顶顶顶

chxl5878 · 发表于 2014-1-20 16:08:42

顶顶顶顶顶顶顶顶

hehaidizhi · 发表于 2014-8-4 11:38:01

顶一个，看起来不错哦

dearj1 · 发表于 2019-8-25 23:08:41

newer 发表于 2013-7-11 12:00

"no function definition: XDRX_PICKSET_CLIPBYPOLY" 是怎么回事那

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

[编程申请] 批量思路2：用extrim命令指定剪切边，然后指定相同图层中的“点“

最佳答案

点评

[编程申请] 批量思路2： 用extrim命令指定剪切边，然后指定相同图层中的“点“

最佳答案

点评

[编程申请] 批量思路2：用extrim命令指定剪切边，然后指定相同图层中的“点“