[求助]：如何让其二维填充solid精确与边界的距离为0？

andyhua5240 · 发表于 2006-8-1 16:26:26

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

[FONT=courier new]
;;;;2点二维填充
(defun c:so (/ p1 p2 p3 p4 x y)
(setvar "cmdecho" 0)
(setvar "fillmode" 1)
(princ "\n*** <两对角点画二维填充 Solid →置于最后>第一角点 <退出>:")
(setq p1 (getpoint))
(if p1 (progn
(princ "\n*** <两对角点画二维填充 Solid →置于最后>其对角点 <退出>:")
(setq p3 (getpoint))
(setq x (- (car p3) (car p1)))
(setq y (- (cadr p3) (cadr p1)))
(setq p2 (polar p1 0 x))
(setq p4 (polar p1 1.570795555555 y))
(command "solid" p1 p2 p4 p3 "")
(command "draworder" "last" "" "b")
)
)
(princ)
)
[/FONT]

用上面的代码填充矩形时，如果第一角点选择的是矩形的左上角点，第二角点选择的是矩形的右下角点时。这时表面上看是填充了矩形。但是将矩形的左下角放大到最大时，会发现，solid和矩形的左下角还是有点距离的。这个距离会影响到精度，如果用户以左下角点的端点来捕捉，进行复制的话。就会影响到精度。

我知道是上面的代码中的1.570795555555 y，这个值的问题。但是我不知道怎么调整也调整不到让其精确的为0？请求高手们帮助！
谢谢！

snoopychen · 发表于 2006-8-1 17:27:47

假如不想和pi打交道的话

可以用 x of P1 和 y of P3来构建P4点啊

：）为什么不用hatch呢

eachy · 发表于 2006-8-1 17:48:17

(defun c:so (/ p1 p2 p3 p4)
(setvar "cmdecho" 0)
(setvar "fillmode" 1)
(if (and (setq p1
(getpoint
"\n*** <两对角点画二维填充 Solid →置于最后>第一角点 <退出>:"
)
)
(setq p3
(getcorner
p1
"\n*** <两对角点画二维填充 Solid →置于最后>其对角点 <退出>:"
)
)
)
(progn
(setq p2 (list (car p3) (cadr p1))
p4 (list (car p1) (cadr p3))
)
(command ".solid" "_non" p1 "_non" p2 "_non" p4 "_non" p3 "")
(command "draworder" "last" "" "b")
)
)
(princ)
)

andyhua5240 · 发表于 2006-8-1 21:21:01

谢谢ea!
太感谢EA了！
回2楼：
首先hatch，要有关联的边界才能拉伸，比较不便，还有我们做建筑图的，如果做地下室，要填充墙体，往往图又大，要全部显示在屏幕范围中时才能找到边界填充，而且如果机子慢的话，分析边界又费时。还不如用solid二维填充来得快。
对了，如何用x of P1 和 y of P3来构建P4点呀？
我对lisp不是很了解的？
谢谢！

snoopychen · 发表于 2006-8-1 22:04:49

就是eachy版主写的啊

(setq p2 (list (car p3) (cadr p1))
p4 (list (car p1) (cadr p3))
)

其中car p3代表P3的x座标，cadr=nth 1,代表P1的y座标
car p1代表P1的x座标，cadr p3代表p3的y座标啊
可能也是hatch太慢，不过我们设计院倒经常用hatch-solid来填充侧墙就是
不过这种solid只能绘制水平方向的，似乎有些限制，其实不如直接选两条线，让它自动找端点绘制4点的solid。
觉得在cad中选点（比如getpoint或者entsel）不如框选来的自由，相对速度会慢些一样。比如fillet要选点，就挺烦人的。

andyhua5240 · 发表于 2006-8-2 23:00:11

最初由 snoopychen 发布
[B]就是eachy版主写的啊

(setq p2 (list (car p3) (cadr p1))

p4 (list (car p1) (cadr p3))

)
<br /> (setq p2 (list (car p3) (cadr p1))<br /> p4 (list (car p1) (cadr p3))<br /> )

其中car p3代表P3的x座标，cadr=nth 1,代表P1的y座标
car p1代表P1的x座标，cadr p3代表p3的y座?.. [/B]

按照大哥的意思改了点。在CAD2006中可以用，画出的是矩形的solid。但是在CAD2007中却不是矩形的填充？不知是何解？

[FONT=courier new]
;;;;2点二维填充
(defun c:soo (/ p1 p2 p3 p4)
(setvar "cmdecho" 0)
(setvar "fillmode" 1)
(princ "\n*** <两对角点画二维填充 Solid →置于最后>第一角点 <退出>:")
(if (and
(setq p1 (getpoint))
(princ "\n*** <两对角点画二维填充 Solid →置于最后>其对角点 <退出>:")
(setq p3 (getpoint))
)
(progn
(setq p2 (list (car p3) (cadr p1)) ;;;其中car p3代表P3的x座标，cadr=nth 1,代表P1的y座标
p4 (list (car p1) (cadr p3)) ;;;car p1代表P1的x座标，cadr p3代表p3的y座标
)
(command "solid" p1 p2 p4 p3 "")
(command "draworder" "last" "" "b") ;;;L,last参数,选择最近一次创建的可见对象。
)
)
(princ)
)
[/FONT]

eachy · 发表于 2006-8-2 23:02:56

看 3楼的帖子！
(command ".solid" "_non" p1 "_non" p2 "_non" p4 "_non" p3 "")

andyhua5240 · 发表于 2006-8-2 23:08:18

ea能解释一下上面的意思么？尤其是不解：_non

eachy · 发表于 2006-8-2 23:09:02

_non 取消捕捉！！

这种应用建议使用 getcorner 更直观

andyhua5240 · 发表于 2006-8-5 22:53:50

ea，急切再次需要你的帮助？
用你3楼的程序，在ucs，w，下画矩形填充是非常的好的。但是如果，有一根斜线的话，我用切换到斜线的ucs，再用你3楼的程序画填充的话，光标开的窗口，不是和ucs平行的？怎么能改成与ucs平行呢？谢谢！具体的可以看看rectange矩形命令。希望能达到那种效果！
谢谢！

eachy · 发表于 2006-8-6 00:36:23

这种程序好像 Lkpt 中有的，临时写了一个，命令： Ea:So ，窗口动态绘制Solid。Second Point 使用了 Grread 所以不能输入数值只能点取，而且不支持 Osnap，这是 Lisp 的限制。

程序下载 http://eachy.ys168.com

利用 Rectang 命令重新写了一个，仍在 U 盘下载。

andyhua5240 · 发表于 2006-8-6 20:17:19

ea大哥能否把那个利用rectang画二维填充的程序改一下呀，改成把solid置于最后。因为我们建筑专业在填充混凝土时，是置于最后的。最好可以加上这段代码：将solid置于最后！
(command "draworder" "last" "" "b")
跪求大哥能把源码可以贴出来，好让我解剖研究一下！
谢谢！

wxytiger · 发表于 2013-9-28 17:03:41

eachy 发表于 2006-8-1 17:48

非常有用，mark一个备用。

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

[求助] [求助]：如何让其二维填充solid精确与边界的距离为0？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

点评