求线与块相交的方法

qianzj · 发表于 2013-8-13 14:28:53

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

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

×

用IntersectWith的方法可以求交点，但是遇到图块的时候就无能为力了，因为求出的是线与块包围盒的交点。
论坛求线与块的方法主要思路都是临时炸开块  获得实体后恢复。
我也曾用过此方法，但是在图形较大时，炸开再恢复速度较慢，有时块炸开后中途出错还不能恢复。

今天想到复制块内实体的方法，感觉速度比炸开快，程序如下：（即创建出一个块内实体，用此实体与线相交）
         (setq Q_ENT (nentselp "请选择块内实体："));模拟块内物体开始
   (setq cen_obj (vlax-ename->vla-object (car Q_ENT)))
   (entmake (entget (car Q_ENT)))
   (setq new (vlax-ename->vla-object (entlast)))
   (setq Q_tmatrix (vlax-tmatrix (caddr Q_ENT)))
   (vla-transformby new Q_tmatrix);模拟块内物体结束

若有更好的方法，求指导。。

newer · 发表于 2013-8-13 14:51:01

你这个是个思路，不过有时可能会受到不等比缩放不能模拟出来的结果。

st788796 · 发表于 2013-8-13 15:26:10

按正常求交，最后将点矩阵转换为实际来自: Android客户端

newer · 发表于 2013-8-13 18:17:35

st788796 发表于 2013-8-13 15:26
按正常求交，最后将点矩阵转换为实际

不等比例放大后，求正常交点可能没有的。

st788796 · 发表于 2013-8-13 19:26:08

newer 发表于 1 小时前

 登录/注册后可看大图

不等比例放大后，求正常交点可能没有的。

非等比时相交了，当然要逆转到正常块内求交再转出来来自: Android客户端

Free-Lancer · 发表于 2013-8-14 19:18:56

(defun c:tt (/ e e0 e1 mat)
(if (and (setq e (car (xdrx_entsel "\nPick Insert: ")))
(setq e0 (car (entsel "\nPick Curve: ")))
)
(progn
(setq mat (xdrx_matrix_block2wcs e))
(xdrx_object_get "block" (xdrx_getentdxf 2))
(while (setq e1 (xdrx_object_next))
(setq el (cons (cadr e1) el))
)
(xdrx_setmark)
(mapcar '(lambda (x)
(xdrx_entity_transformedcopy x mat)
)
el
)
(setq ss (xdrx_getss))
(xdrx_setsstodb ss 0)
(while (setq e1 (xdrx_getentdata 0))
(setq pts (cons (xdrx_entity_intersectwith e1 e0) pts))
)
(xdrx_entity_delete ss)
(princ "\nPts is ok!")
)
)
(princ)
)

Lisphk · 发表于 2013-8-14 19:55:53

Free-Lancer 发表于 2013-8-14 19:18

这个程序可以适合不等比例的块吗？

Free-Lancer · 发表于 2013-8-14 20:22:45

本帖最后由 Free-Lancer 于 2013-8-14 20:24 编辑

API 中只找到两个求交点函数
xdrx_curve_getinters 仅适用 Curve 或 pts
xdrx_entity_intersectwith 适用两个实体
没有选择集交点函数

Transformedcopy 适用非等比块, API绝招!

XDSoft · 发表于 2013-8-14 21:06:49

Free-Lancer 发表于 2013-8-14 20:22
API 中只找到两个求交点函数
xdrx_curve_getinters 仅适用 Curve 或 pts
xdrx_entity_intersectwith 适用 ...

有选择集求交函数，功能很强，包装了基本所有的求交操作。

QQ截图20130814210613.png

Free-Lancer · 发表于 2013-8-14 21:12:37

XDSoft 发表于 2013-8-14 21:06
有选择集求交函数，功能很强，包装了基本所有的求交操作。

这个是求 Curve 类的交点, AutoCAD 还有其他类实体也可以求交, 如 Entity_Intersectwith

牢固 · 发表于 2013-8-14 23:18:58

本帖最后由牢固于 2013-8-14 23:20 编辑

利用SSNAMEX函数计算直线与图块交点示例:

(defun c:tt ()
(while (not
(and
(setq line (car (entsel "\nSelect Line:")))
(= "LINE" (cdr (assoc 0 (setq lines (entget line)))))
)
)
)
(while (not
(and
(setq blk (car (entsel "\nSelect Insert")))
(= "INSERT" (cdr (assoc 0 (setq blks (entget blk)))))
)
)
)
(setq p1 (trans (cdr (assoc 10 lines)) 0 1)
p2 (trans (cdr (assoc 11 lines)) 0 1)
)
;;选择前确保 p1 p2 落在屏幕范围内
(command "_zoom" "w" p1 p2)
(setq ss (ssget "F"
(list p1 p2)
(list (assoc 0 blks)
(assoc 2 blks)
(assoc 8 blks)
(assoc 10 blks)
)
)
)
(command "zoom" "p")
(if ss
(progn
(setq lst (ssnamex ss))
;;返回直线与图块的交点
(mapcar 'cadr (cdddar lst))
)
)
)

st788796 · 发表于 2013-8-15 03:47:54

牢固发表于 2013-8-14 23:18
利用SSNAMEX函数计算直线与图块交点示例:

ssnamex 还有这个功效?!学习了{:soso_e113:}

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

[原创] 求线与块相交的方法

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

点评

点评

点评

点评

点评