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

xiaxiang

回复 mandala 的帖子

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

mandala

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

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

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

yoyoho

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

xiaxiang

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

yoyoho

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

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

自贡黄明儒

回复 kwok 的帖子

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

mandala

回复 自贡黄明儒 的帖子

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

xiaxiang

CC:Inside 函数
原：

2. (setq p2 (polar p 0.0 (distance (getvar "extmin")(getvar "extmax"))))

(setq p2 (polar p 0.0 (distance (getvar "extmin")(getvar "extmax"))))

改为

2. (setq p2 (polar p 0.0 (distance (mapcar '+ (getvar "extmin") '(0 0))
   
3.              (mapcar '+ (getvar "extmax") '(0 0))
   
4.              )))

(setq p2 (polar p 0.0 (distance (mapcar '+ (getvar "extmin") '(0 0)) <br />              (mapcar '+ (getvar "extmax") '(0 0)) <br />              )))

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

mandala

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

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

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