xdrx_curve_getoffsetcurves 如何向指定点一侧偏移
曲线形状不同，需要距离的正负值不同，觉得挺麻烦的 曲线前进方向，左上为正，右下为负你可以根据点，判断在曲线哪个方向，论坛有现成的函数。 没搜到，N版帮忙发个链接 liuyj 发表于 2017-7-10 17:47
XD::Pnt:IsLeftTopByLine
这个也行
XD::Pnt:OnWhichSide 第一个应该用xdrx_point_dist2Line吧？第二个XD::Pnt:OnWhichSide 是针对平面的，对曲线怎么操作？ xdrx_point_dist2Line 也可以，因为距离有正负。
对曲线，你可以先用
1、xdrx_curve_getclosestpoint 求得曲线上最近点
2、对上面的点用 xdrx_curve_getfirstderiv 求一阶导数
3、对上面的一阶导数向量，用 xdrx_vector_getperpvetor 求垂向量。
4、有最近点和垂向量，就得到 XD::Pnt:OnWhichSide 后面两个参数了。 line和polyline线有点奇怪，根据上面的方法，line偏移的结果是反的，polyline则找不到规律，有时候是对的，有时候是反的。 liuyj 发表于 2017-7-12 10:45
把你写的函数代码贴上来，看看。
大致是这样，注意对 ARC 如果点超出 ARC 夹角范围时程序和 Offset 命令是有区别的。offset命令是按端点延伸切线（直线）计算距离和方向，程序是按 ARC 延伸
(defun c:tt (/ s p cv p1 p2 div d)
(while (and (setq s (ssget "+.:S" '((0 . "*line,arc,circle,ellipse"))))
(setq p (getpoint "\nPoint: "))
)
(setq cv (ssname s 0)
p1 (vlax-curve-getclosestpointto cv p t)
p2 (vlax-curve-getclosestpointto cv p)
)
(if (equal p1 p2 1e-3)
(setq div (vlax-curve-getfirstderiv
cv
(vlax-curve-getparamatpoint cv p1)
)
d (car (trans (mapcar '- p (mapcar '+ p1 div)) 0 div))
)
(setq d (car (trans (mapcar '- p p2) 0 (mapcar '- p1 p2))))
)
(vla-offset (vlax-ename->vla-object cv) (- d))
)
(princ)
) 我的代码
(defun mx_curve_getoffsetcurves (e pt / ds fd p1 p2)
(if (setq p1 (xdrx_curve_getclosestpoint e pt T))
(setq fd (xdrx_curve_getfirstderiv e p1)
p2 (mapcar '+ p1 fd)
ds (xdrx_point_dist2Line pt p1 p2)
)
)
(if (= (xdrx_getpropertyvalue e "IsA") "AcDbLine")
(xdrx_curve_getoffsetcurves e (* -1 ds))
(xdrx_curve_getoffsetcurves e ds)
)
)
EA版主的代码对直线也是反的
liuyj 发表于 2017-7-12 11:58
API对直线，正值，永远是往视觉向上（左）的方向偏移。 负值向下（右）
liuyj 发表于 2017-7-12 11:58
其实有个很方便的方法，判断是否在制定点的方向平移
对曲线外点p
1、求最近点p1,求 p-p1 向量
2、偏移后，求最近点p2, 求 p2- p1 向量
3、判断上面两个向量是否同向，
同向，偏移方向对
否则，距离加负号，偏移。
对polyline也是吗？你试试只有一个直线段的pline线 liuyj 发表于 2017-7-12 13:00
用我13楼的帖子的方法去做
页:
[1]
2