回复 mandala 的帖子
是不是要画矩形线删除内部图元的程序？但是是预先做辅助线，而不是先有边界的。
xiaxiang 发表于 2011-3-24 11:40 static/image/common/back.gif
回复 mandala 的帖子
是不是要画矩形线删除内部图元的程序？但是是预先做辅助线，而不是先有边界的。
不是矩形，是由pline组成的封闭多边形。其实你给我的那个lsp是对的，只是在2006版cad下删不干净。明经里有过类似的提问，后来总结出来是因为cad版本不同，在cad2008下就运行正常了。我现在没有cad2008，也没法试。
xiaxiang 你好 :
执行cc.lsp程序,产生下列讯息
Error: no function definition: @DELTA
可否请你提供@DELTA函数,谢谢!
且试试这个，看效果是否能改善
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:41 编辑
这个cc2.lsp很奇怪，有时候效果非常好，有时候效果一塌糊涂，不知道为什么。
回复 kwok 的帖子
能否共享一下你的哪个能剪去内外的。谢谢！！
回复 自贡黄明儒 的帖子
xiaxiang网友提供的cc.lsp和cc2.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-25 10:18 static/image/common/back.gif
CC:Inside 函数
原：
改为
哦，这个cc3.lsp非常的好，起码我用到现在一切正常。非常感谢xiaxiang朋友。
俺在这里隆重推荐cc3.lsp。