求删除封闭多边形内部所有图元的lsp？送一个删除外部图元的lsp：
本帖最后由 mandala 于 2011-3-22 15:38 编辑一个由多段线构成的封闭多边形，要裁剪并删除其内部所有图元。以前在论坛上看到过类似帖子，找不到了。
我先免费赠送一个裁剪并删除外部图元的lsp，比较好用的：
本帖最后由 xiaxiang 于 2011-3-26 22:22 编辑
CC:Inside 函数
原：
(setq p2 (polar p 0.0 (distance (getvar "extmin")(getvar "extmax"))))改为
(setq p2 (polar p 0.0 (distance (mapcar '+ (getvar "extmin") '(0 0))
(mapcar '+ (getvar "extmax") '(0 0))
)))一会好一会坏？没招了。
是这样吗？请再试。
本帖最后由 xiaxiang 于 2011-3-23 10:06 编辑
试试这个，支持closed polyline, ellipse or spline
回复 mandala 的帖子
我找了以前收藏得，也是在论坛里面下载的，你看看能不能用
cad自带的工具express，里面有个extrim这个命令就可以 hhh454 发表于 2011-3-22 16:32 static/image/common/back.gif
cad自带的工具express，里面有个extrim这个命令就可以
extrim只是截断，但如何删除内部的图元呢？ 4个人下载，无人上传。 这个工具不好，有时一些块或线等，会给删了不是剪掉，所以俺少用，可能是不完善吧
我有一个可以剪掉内外的，就是这个不好，所以没有用它,不建议用. 本帖最后由 xiaxiang 于 2011-3-22 21:47 编辑
好像有一个程序，选一个边界，再选择剪切外部还是内部。明天到办公室找找。。。
mandala，传个样图上来，我试试？边界是polyline，spline还是lwpolyline？
程序出错！返回到起始状态。 思路：
1先用SSGET "XP" ..........获取范围线内部的图元名称。。。
2再用循环把里面的图元名一个一个的删掉就可以了。。。。
本帖最后由 mandala 于 2011-3-23 11:13 编辑
xiaxiang 发表于 2011-3-22 21:43 http://bbs.mjtd.com/static/image/common/back.gif
好像有一个程序，选一个边界，再选择剪切外部还是内部。明天到办公室找找。。。
mandala，传个样图上来，我 ...
谢谢老兄的lsp，这个程序在cad2007中文版下似乎删内部删不太干净，删外部倒删的蛮干净的，奇怪，估计是cad版本问题。
另外，我的边界就是普通的多段线。样图嘛……我也没什么要求的，就是打算裁剪并删掉一个由pline构成的多边形内部的东西，有没有样图也无所谓啦。