Lisper
发表于 2014-6-19 20:45:08
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 static/image/common/back.gif
没看到任何一个程序 都是演示
(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 static/image/common/back.gif
院长好厉害，我平常解决不闭合的，也是笨办法，用cad自带的BOUNDARY重新生成边界，再去填充
同样方法的握个爪
panliang9
发表于 2014-6-25 16:47:13
做一个滚球，沿图形的外轮廓滚动，最后得到一个轮廓线，滚球的大小能够在地上有坑的时候都能滚得过去！
风树
发表于 2014-6-25 18:31:36
panliang9 发表于 2014-6-25 16:47 static/image/common/back.gif
做一个滚球，沿图形的外轮廓滚动，最后得到一个轮廓线，滚球的大小能够在地上有坑的时候都能滚得过去！
如何实现？
感觉理论很完美，现实很残酷
hsx5233408
发表于 2016-3-15 15:50:50
很厉害的样子
975779964
发表于 2016-3-28 11:43:44
Lisper 发表于 2014-6-19 20:45 static/image/common/back.gif
66666666666666666