[求助]：传说中的大虾帮忙呀关于块的交点？？

gewanjia · 发表于 2006-2-6 11:10:27

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

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

×

我在做管道路径标注程序遇到一些问题：
具体表现为直线和块的交点用INTERSCTWITH方法求不出来？？
或交点的值误差较大，我狂晕，神呀快救救我吧

[dwf]d:\drawing1.dwg[/dwf]

雨箭风刀 · 发表于 2006-2-6 11:36:28

你可把块炸开，求交点后undo一步

gewanjia · 发表于 2006-2-6 15:22:01

难道没有别的方法了吗？？？
能不能直接解决呢！！

fire2006 · 发表于 2006-2-7 22:45:33

不如用其它方法吧

eachy · 发表于 2006-2-8 08:32:22

(defun c:tt ()
(if (and (setq e (car (entsel "\nSelect Line: ")))
(setq blk (car (entsel "\nSelect Block: ")))
)
(progn
(setq blkobjs (safearray-value
(vla-explode (vlax-ename->vla-object blk));_只有等比Insert才可以，否则只能用 explode 命令
)
ln (vlax-ename->vla-object e)
)
(foreach b blkobjs
(setq pts (vla-intersectwith b ln acextendnone))
;;...求交点
)
;;...各种操作
(mapcar 'vla-delete blkobjs) ;_删除多余实体
)
)
(princ)
)

gewanjia · 发表于 2006-2-8 15:32:02

高手们能不能编写个类似intersectwith方法的函数呢？？？？？
我是没有什么办法了

dandee · 发表于 2006-2-10 01:15:37

编程大致的思路以供参考

1；子程序A，遍列块中所有实体，过滤出直线，多义线，弧线，组成表a
(可以利用xd函数，网上有这类程序 )
2；用 nentsel 选块， nentsel 可以返回实体名 --->  子程序A
                                       nentsel 还返回了一个矩阵B  ，这个矩阵i是这个程序的关键
3；子程序B ，把矩阵B 转换成  矩阵B的逆矩阵C (可以利用xd函数，网上有这类程序 )
4；选择直线c 得到直线两端点 D,F, 利用逆矩阵C 把 D,F 两点转换成块内坐标
并生成新直线G
5; 直线G与表a用 intersectwith 可以获得交点，组成交点表，删除直线G

6；用矩阵B 把交点表转化成块外世界坐标系坐标。
这样其交点就得到了。  可能思路和程序有点出路，但原理应该是这样的

基本知识，块中坐标系与块外的世界坐标系是不同的，所以线的端点坐标在块里和块外是不同的。可以利用 nentsel对块返回的矩阵，把  端点坐标进行转换

研究一下附件 JonFleming.LSP 是个比较经典的点在块里块外的转换
程序

gewanjia · 发表于 2006-2-10 12:39:52

终于又看见高手了斑竹应奖励呀感谢呀
下载研究一下程序中有说明并且很详细呀真是感谢

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

[求助] [求助]：传说中的大虾帮忙呀关于块的交点？？

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

相关帖子