找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 3282|回复: 10

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

[复制链接]

已领礼包: 275个

财富等级: 日进斗金

发表于 2013-7-11 12:00:26 | 显示全部楼层 |阅读模式
悬赏100D豆已解决
批量extrim思路:
指定剪切边所在图层做为剪切边,然后选中每个PL线内部与剪切边相同图层的“点”,执行extrim
或者框选pl线,然后选中每个PL线内部与剪切边相同图层的“点”,执行extrim
这个功能其实挺强大~~请高手看看~

批量修剪CAD2006.rar

965.79 KB, 下载次数: 30, 下载积分: D豆 -1 , 活跃度 1

最佳答案

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!

已领礼包: 40个

财富等级: 招财进宝

发表于 2013-7-11 12:00:27 | 显示全部楼层

                               
登录/注册后可看大图



  1. (defun c:tt ()
  2.   (if (progn
  3.         (prompt "\n选取封闭的多段线<退出>:")
  4.         (setq ss (ssget '((0 . "*polyline"))))
  5.       )
  6.     (progn
  7.       (xdrx_begin)
  8.       (xdrx_setsstodb ss 0)
  9.       (while (setq e (xdrx_getentdata 0))
  10.         (if (and
  11.               (= 1 (logand (xdrx_getentdxf 70) 1))
  12.               (setq ss1 (ssget "f" (xdrx_getsamplept e) '((0 . "*line,arc,ellipse,circle"))))
  13.               (ssdel e ss1)
  14.               (> (sslength ss1) 0)
  15.             )
  16.              (xdrx_pickset_ClipbyPoly ss1 e)
  17.         )
  18.       )
  19.       (xdrx_end)
  20.     )
  21.   )
  22.   (princ)
  23. )



论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

已领礼包: 275个

财富等级: 日进斗金

 楼主| 发表于 2013-7-11 15:28:23 | 显示全部楼层
本帖最后由 関吣 于 2013-7-11 15:32 编辑

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

点评

我写的程序用了XDRX_API, 其实还是给你过滤了一些实体。 这个工具可以把你说的柱子里面所有的东西都给剪掉,现在程序只是寻找柱子里面的曲线。 只要是封闭的多边形就可以,修改下程序,柱子是图块也可以。  详情 回复 发表于 2013-7-11 20:41
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

已领礼包: 275个

财富等级: 日进斗金

 楼主| 发表于 2013-7-11 15:43:36 | 显示全部楼层
题外,请问
被修剪的线形能不能支持LWPOLYLINE,LUBANCIRCLEBEAM,LUBANCOLUMN,LUBANLINEBEAM啊
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

已领礼包: 275个

财富等级: 日进斗金

 楼主| 发表于 2013-7-11 15:45:03 | 显示全部楼层
剪切命令好像没有extrim的样子哦~
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

已领礼包: 40个

财富等级: 招财进宝

发表于 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)))

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

另外,什么结构软件画的图?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

已领礼包: 275个

财富等级: 日进斗金

 楼主| 发表于 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

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

论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

发表于 2014-1-20 16:01:11 | 显示全部楼层
顶顶顶顶顶顶顶顶
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

发表于 2014-1-20 16:08:42 | 显示全部楼层
顶顶顶顶顶顶顶顶
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

已领礼包: 90个

财富等级: 招财进宝

发表于 2014-8-4 11:38:01 | 显示全部楼层
顶一个,看起来不错哦
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

发表于 2019-8-25 23:08:41 | 显示全部楼层

"no function definition: XDRX_PICKSET_CLIPBYPOLY" 是怎么回事那
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-3-28 21:22 , Processed in 0.287532 second(s), 52 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

快速回复 返回顶部 返回列表