求删除封闭多边形内部所有图元的lsp？送一个删除外部图元的lsp：

xiaxiang · 发表于 2011-3-24 11:40

回复 mandala 的帖子

是不是要画矩形线删除内部图元的程序？但是是预先做辅助线，而不是先有边界的。

mandala · 发表于 2011-3-24 13:48

xiaxiang 发表于 2011-3-24 11:40
回复 mandala 的帖子

是不是要画矩形线删除内部图元的程序？但是是预先做辅助线，而不是先有边界的。

不是矩形，是由pline组成的封闭多边形。其实你给我的那个lsp是对的，只是在2006版cad下删不干净。明经里有过类似的提问，后来总结出来是因为cad版本不同，在cad2008下就运行正常了。我现在没有cad2008，也没法试。

yoyoho · 发表于 2011-3-24 17:22

xiaxiang 你好 :
执行cc.lsp程序,产生下列讯息
Error: no function definition: @DELTA
可否请你提供@DELTA函数,谢谢!

xiaxiang · 发表于 2011-3-24 17:56

且试试这个，看效果是否能改善

yoyoho · 发表于 2011-3-24 19:25

xiaxiang 感谢你!
CC2.LSP程序O.K
@delta函数如下:
不了解它的用途
放入CC.LSP,执行O.K.

(defun @delta (a1 a2)
   (cond
      ((> a1 (+ a2 pi))
      (+ a2 pi pi (- a1))
      )
      ((> a2 (+ a1 pi))
      (- a2 a1 pi pi)
      )
      (1 (- a2 a1))
   )
).

mandala · 发表于 2011-3-24 19:39

本帖最后由 mandala 于 2011-3-24 19:41 编辑

这个cc2.lsp很奇怪，有时候效果非常好，有时候效果一塌糊涂，不知道为什么。

自贡黄明儒 · 发表于 2011-3-24 19:51

回复 kwok 的帖子

能否共享一下你的哪个能剪去内外的。谢谢！！

mandala · 发表于 2011-3-24 19:56

回复自贡黄明儒的帖子

xiaxiang网友提供的cc.lsp和cc2.lsp都能删除内、外。你可以试试。

xiaxiang · 发表于 2011-3-25 10:18

本帖最后由 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))
)))

一会好一会坏？没招了。
是这样吗？请再试。

mandala · 发表于 2011-3-25 15:08

xiaxiang 发表于 2011-3-25 10:18
CC:Inside 函数
原：
改为

哦，这个cc3.lsp非常的好，起码我用到现在一切正常。非常感谢xiaxiang朋友。

俺在这里隆重推荐cc3.lsp。

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

[资源] 求删除封闭多边形内部所有图元的lsp？送一个删除外部图元的lsp：

本帖子中包含更多资源

本帖子中包含更多资源