GetSplitCurves 在样条化多段线上错误

st788796 · 发表于 2014-4-24 07:50:30

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

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

×

看注释语句

(defun c:tt (/ e ss pts)
(if
(and (setq
e (car (xdrx_entsel "\mPick Pline: " '((0 . "*LINE"))))
)
(setq pts (xdrx_getsamplept e))
(setq ss (ssget "_F" pts '((0 . "*polyline"))))
)
(progn
(mapcar '(lambda (x / e z pam)
(setq e (car x)
z (xdrx_getpropertyvalue e "Elevation")
pam (*
0.5
(apply '+
(mapcar '(lambda (b)
(xdrx_curve_getparamatpoint
e
(list (car b) (cadr b) z)
)
)
(cadr x)
);_对有宽度的Pline,会返回两个点,Pline的轮廓与线的交点
)
)
)
;;(xdrx_point_make (vlax-curve-getpointatparam e pam));_验证点是正确的
;;(xdrx_curve_getsplitcurves e pam);_这句不对
;;(xdrx_curve_break e (vlax-curve-getpointatparam e pam));_这个函数对样条化曲线失效，提示getSplitCurves failed : es = eInvalidInput
)
(mapcar '(lambda (a)
(list (cadr a)
(mapcar 'cadr (cdddr a))
)
)
(ssnamex ss)
)
)
)
)
(princ)
)

(defun c:tt (/ e ss pts) 
  (if 
    (and (setq 
           e (car (xdrx_entsel "\mPick Pline: " '((0 . "*LINE")))) 
         ) 
         (setq pts (xdrx_getsamplept e)) 
         (setq ss (ssget "_F" pts '((0 . "*polyline")))) 
    ) 
     (progn 
       (mapcar '(lambda        (x / e z pam) 
                  (setq        e   (car x) 
                        z   (xdrx_getpropertyvalue e "Elevation") 
                        pam (* 
                              0.5 
                              (apply '+ 
                                     (mapcar '(lambda (b) 
                                                (xdrx_curve_getparamatpoint 
                                                  e 
                                                  (list (car b) (cadr b) z) 
                                                ) 
                                              ) 
                                             (cadr x) 
                                     );_对有宽度的Pline,会返回两个点,Pline的轮廓与线的交点 
                              ) 
                            ) 
                  ) 
                  ;;(xdrx_point_make (vlax-curve-getpointatparam e pam));_验证点是正确的 
                  ;;(xdrx_curve_getsplitcurves e pam);_这句不对 
                  ;;(xdrx_curve_break e (vlax-curve-getpointatparam e pam));_这个函数对样条化曲线失效，提示getSplitCurves failed : es = eInvalidInput 
                ) 
               (mapcar '(lambda        (a) 
                          (list        (cadr a) 
                                (mapcar 'cadr (cdddr a)) 
                          ) 
                        ) 
                       (ssnamex ss) 
               ) 
       ) 
     ) 
  ) 
  (princ) 
)

XDSoft · 发表于 2014-4-24 08:19:09

把参数 e 和 ePam的值打印出来贴上来看看。

st788796 · 发表于 2014-4-24 08:23:10

本帖最后由 st788796 于 2014-4-24 08:25 编辑

XDSoft 发表于 2014-4-24 08:19
把参数 e 和 ePam的值打印出来贴上来看看。

e 是曲线，这个没有问题， Pam 是参数，怀疑是 ARX 的Bug, 用这个附件测试

http://bbs.xdcad.net/forum.php?mod=redirect&goto=findpost&ptid=673417&pid=3513384

XDSoft · 发表于 2014-4-24 10:42:21

st788796 发表于 2014-4-24 08:23
e 是曲线，这个没有问题， Pam 是参数，怀疑是 ARX 的Bug, 用这个附件测试

http://bbs.xdcad.net/foru ...

你把参数排下序看看。

牢固 · 发表于 2014-5-8 17:00:28

样条化多段线不能直接getsplitcurves

牢固 · 发表于 2014-5-8 17:02:24

需先转成spline 才可以

csharp · 发表于 2014-5-11 15:29:52

点是对的，只是把点转换到参数时不对了，解决办法是获取其Spline或者获得其投影曲线(0 0 1)后再获取参数

st788796 · 发表于 2014-5-14 08:53:40

牢固发表于 2014-5-8 17:02
需先转成spline 才可以

仔细看了看Lwpolyline（AcDbPolyline)样条化后的曲线，这个线是 Polyline （AcDb2dPolyline），用捕捉测试增加很多端点、中点，分解后就是一段段Line，是用Curve->Spline 可以看到和真正的 Spline 不是完全吻合

目前方法

1 用 command break @ 命令方法

2 获取 AcDb2dPolyline 的节点生成新的 AcDbPolyline ，用新的 AcDbPolyline 作 GetSplitCurves

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

[研讨] GetSplitCurves 在样条化多段线上错误

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

点评