提个比较难的问题（自动智能作闭合填充边界）！

longer1000 · 发表于 2014-6-20 09:08:07

楼上的强悍

tester005 · 发表于 2014-6-20 10:35:57

没看到任何一个程序都是演示

Lisper · 发表于 2014-6-20 11:55:00

tester005 发表于 2014-6-20 10:35
没看到任何一个程序都是演示

(defun c:tt1 (/ *error* cmdecho fuzz pt)
(defun *error* (s)
(setvar 'cmdecho cmdecho)
(princ s)
)
(setq cmdecho (getvar 'cmdecho))
(setvar 'cmdecho 0)
(setq fuzz (getreal "\n容差值<10.0>:"))
(if (null fuzz) (setq fuzz 10.0))
(while (setq pt (getpoint "\n指定点:"))
(setq pt (trans pt 1 0))
(if (setq e (mybpoly pt fuzz))
(progn
(command "hatch" "p" "ansi31" 10 0 "s" e "")
(entdel e)
)
(princ "\n没有封闭区域...")
)
)
(setvar 'cmdecho cmdecho)
(princ)
)

代码需加载附件BPOLY_R17.arx使用！适应CAD版本:R17
arx提供一个函数 MyBPoly 和一个命令: BP。
MyBPoly 函数相当于可以指定容差值的CAD自带的函数 BPOLY, (MyBPoly 点 [容差值 = 0.001])
命令 BP 相当于可以指定容差值的CAD自带的命令 Boundary

llsheng_73 · 发表于 2014-6-21 15:56:21

调用BPOLY如果边界有SPLINE或者ELLIPSE,会象调用boundary命令一样，在命令行弹出是否作面域。。。而速度和boundary命令差不多。。。
个人觉得还是应该按院长那样先把容差内没相交的弄成实交再处理

aihuyujian · 发表于 2014-6-25 14:14:16

enn09 发表于 2014-6-19 10:14
院长好厉害，我平常解决不闭合的，也是笨办法，用cad自带的BOUNDARY重新生成边界，再去填充

同样方法的握个爪

panliang9 · 发表于 2014-6-25 16:47:13

做一个滚球，沿图形的外轮廓滚动，最后得到一个轮廓线，滚球的大小能够在地上有坑的时候都能滚得过去！

风树 · 发表于 2014-6-25 18:31:36

panliang9 发表于 2014-6-25 16:47
做一个滚球，沿图形的外轮廓滚动，最后得到一个轮廓线，滚球的大小能够在地上有坑的时候都能滚得过去！

如何实现？
感觉理论很完美，现实很残酷

hsx5233408 · 发表于 2016-3-15 15:50:50

很厉害的样子

975779964 · 发表于 2016-3-28 11:43:44

Lisper 发表于 2014-6-19 20:45

66666666666666666

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

[提问] 提个比较难的问题（自动智能作闭合填充边界）！

本帖子中包含更多资源

点评

本帖子中包含更多资源

点评