xdrx_curve_getoffsetcurves 如何向指定点一侧偏移

liuyj

曲线形状不同，需要距离的正负值不同，觉得挺麻烦的

newer

曲线前进方向，左上为正，右下为负

你可以根据点，判断在曲线哪个方向，论坛有现成的函数。

liuyj

没搜到，N版帮忙发个链接

newer

liuyj 发表于 2017-7-10 17:47

XD::Pnt:IsLeftTopByLine

newer

这个也行
XD::Pnt:OnWhichSide

liuyj

第一个应该用xdrx_point_dist2Line吧？第二个XD::Pnt:OnWhichSide 是针对平面的，对曲线怎么操作？

newer

xdrx_point_dist2Line 也可以，因为距离有正负。
对曲线，你可以先用
1、xdrx_curve_getclosestpoint 求得曲线上最近点
2、对上面的点用 xdrx_curve_getfirstderiv 求一阶导数
3、对上面的一阶导数向量，用 xdrx_vector_getperpvetor 求垂向量。
4、有最近点和垂向量，就得到 XD::Pnt:OnWhichSide 后面两个参数了。

liuyj

line和polyline线有点奇怪，根据上面的方法，line偏移的结果是反的，polyline则找不到规律，有时候是对的，有时候是反的。

newer

liuyj 发表于 2017-7-12 10:45

把你写的函数代码贴上来，看看。

eachy

大致是这样，注意对 ARC 如果点超出 ARC 夹角范围时程序和 Offset 命令是有区别的。offset命令是按端点延伸切线（直线）计算距离和方向，程序是按 ARC 延伸

2. 
   
3. (defun c:tt (/ s p cv p1 p2 div d)
   
4.   (while (and (setq s (ssget "+.:S" '((0 . "*line,arc,circle,ellipse"))))
   
5.               (setq p (getpoint "\nPoint: "))
   
6.          )
   
7.     (setq cv (ssname s 0)
   
8.           p1 (vlax-curve-getclosestpointto cv p t)
   
9.           p2 (vlax-curve-getclosestpointto cv p)
   
10.     )
    
11.     (if        (equal p1 p2 1e-3)
    
12.       (setq div        (vlax-curve-getfirstderiv
    
13.                   cv
    
14.                   (vlax-curve-getparamatpoint cv p1)
    
15.                 )
    
16.             d        (car (trans (mapcar '- p (mapcar '+ p1 div)) 0 div))
    
17.       )
    
18.       (setq d (car (trans (mapcar '- p p2) 0 (mapcar '- p1 p2))))
    
19.     )
    
20.     (vla-offset (vlax-ename->vla-object cv) (- d))
    
21.   )
    
22.   (princ)
    
23. )

<br /> (defun c:tt (/ s p cv p1 p2 div d)<br />   (while (and (setq s (ssget "+.:S" '((0 . "*line,arc,circle,ellipse"))))<br />               (setq p (getpoint "\nPoint: "))<br />          )<br />     (setq cv (ssname s 0)<br />           p1 (vlax-curve-getclosestpointto cv p t)<br />           p2 (vlax-curve-getclosestpointto cv p)<br />     )<br />     (if        (equal p1 p2 1e-3)<br />       (setq div        (vlax-curve-getfirstderiv<br />                   cv<br />                   (vlax-curve-getparamatpoint cv p1)<br />                 )<br />             d        (car (trans (mapcar '- p (mapcar '+ p1 div)) 0 div))<br />       )<br />       (setq d (car (trans (mapcar '- p p2) 0 (mapcar '- p1 p2))))<br />     )<br />     (vla-offset (vlax-ename->vla-object cv) (- d))<br />   )<br />   (princ)<br /> )

liuyj

我的代码
(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版主的代码对直线也是反的

newer

liuyj 发表于 2017-7-12 11:58

API对直线，正值，永远是往视觉向上（左）的方向偏移。 负值向下（右）

newer

liuyj 发表于 2017-7-12 11:58

其实有个很方便的方法，判断是否在制定点的方向平移

对曲线外点p
1、求最近点p1,  求 p-p1 向量
2、偏移后，求最近点p2, 求 p2- p1 向量
3、判断上面两个向量是否同向，
    同向，偏移方向对
    否则，距离加负号，偏移。

liuyj

对polyline也是吗？你试试只有一个直线段的pline线

newer

liuyj 发表于 2017-7-12 13:00

用我13楼的帖子的方法去做