XDGE几何库应用(32)--动态拖动Pline直边

st788796 · 发表于 2014-11-15 16:45:09

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

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

×

这里有个 eachy 站长用 AcDb 写的，可以和 Ge 的对比下
http://xdcad.net/forum/thread-671182-1-1.html

有了这些点下面可以执行裁剪

(defun c:tt (/ e p0 pam mat p1 p2 ret lst v gepl gexl gecc3d)
(defun callback (dynpt / pts n j ptl)
(redraw)
(xdge::setpropertyvalue
gexl
"set"
dynpt
(mapcar '+ dynpt v)
)
(if (/= (setq n (xdge::getpropertyvalue gecc3d "numIntPoints"))
0
)
(progn
(setq j 0)
(repeat n
(setq pts
(cons (xdge::getpropertyvalue gecc3d "intPoint" j)
pts
)
)
(setq j (1+ j))
)
(setq pts
(vl-sort pts
'(lambda (x1 x2)
(< (xdge::getpropertyvalue gexl "paramOf" x1)
(xdge::getpropertyvalue gexl "paramOf" x2)
)
)
)
)
(while pts
(setq ptl (cons (list (car pts) (cadr pts)) ptl)
pts (cddr pts)
)
)
(mapcar '(lambda (x)
(xdrx_grdraw 1 0 (car x) (cadr x))
)
ptl
)
)
)
)
(if (and (setq e (xdrx_entsel "\nPick pline: "))
(setq p (cadr e)
pam (apply 'xdrx_curve_getparamatpoint e)
e (car e)
)
(eq (xdrx_polyline_segtype e (fix pam)) "kLine")
(setq lst (xdrx_polyline_getlinesegat e (fix pam)))
)
(progn
(setq gepl (xdge::constructor e)
gexl (xdge::constructor "kLine3d" (car lst) (cadr lst))
gecc3d (xdge::constructor "kCurveCurveInt3d" gepl gexl)
v (apply 'mapcar (cons '- lst))
)
(xdrx_pointmonitor "Callback")
(setq p3 (getpoint p "\nNext Point: "))
(xdrx_pointmonitor)
)
)
(xdge::free)
(princ)
)

(defun c:tt (/ e p0 pam mat p1 p2 ret lst v gepl gexl gecc3d) 
  (defun callback (dynpt / pts n j ptl) 
    (redraw) 
    (xdge::setpropertyvalue 
      gexl 
      "set" 
      dynpt 
      (mapcar '+ dynpt v) 
    ) 
    (if        (/= (setq n (xdge::getpropertyvalue gecc3d "numIntPoints")) 
            0 
        ) 
      (progn 
        (setq j 0) 
        (repeat        n 
          (setq        pts 
                 (cons (xdge::getpropertyvalue gecc3d "intPoint" j) 
                       pts 
                 ) 
          ) 
          (setq j (1+ j)) 
        ) 
        (setq pts 
               (vl-sort        pts 
                        '(lambda (x1 x2) 
                           (< (xdge::getpropertyvalue gexl "paramOf" x1) 
                              (xdge::getpropertyvalue gexl "paramOf" x2) 
                           ) 
                         ) 
               ) 
        ) 
        (while pts 
          (setq        ptl (cons (list (car pts) (cadr pts)) ptl) 
                pts (cddr pts) 
          ) 
        ) 
        (mapcar        '(lambda (x) 
                   (xdrx_grdraw 1 0 (car x) (cadr x)) 
                 ) 
                ptl 
        ) 
      ) 
    ) 
  ) 
  (if (and (setq e (xdrx_entsel "\nPick pline: ")) 
           (setq p   (cadr e) 
                 pam (apply 'xdrx_curve_getparamatpoint e) 
                 e   (car e) 
           ) 
           (eq (xdrx_polyline_segtype e (fix pam)) "kLine") 
           (setq lst (xdrx_polyline_getlinesegat e (fix pam))) 
      ) 
    (progn 
      (setq gepl   (xdge::constructor e) 
            gexl   (xdge::constructor "kLine3d" (car lst) (cadr lst)) 
            gecc3d (xdge::constructor "kCurveCurveInt3d" gepl gexl) 
            v           (apply 'mapcar (cons '- lst)) 
      ) 
      (xdrx_pointmonitor "Callback") 
      (setq p3 (getpoint p "\nNext Point: ")) 
      (xdrx_pointmonitor) 
    ) 
  ) 
  (xdge::free) 
  (princ) 
)

newer · 发表于 2014-11-15 16:52:21

拖动完了，能给裁了不？这个应该叫拉线推移。最好边拉，POLYLINE跟着变化（裁剪掉外面的）。

st788796 · 发表于 2014-11-15 16:57:56

newer 发表于 2014-11-15 16:52
拖动完了，能给裁了不？这个应该叫拉线推移。最好边拉，POLYLINE跟着变化（裁剪掉外面的）。

可以做一个模拟 Pline 线，动态时不真正裁剪，只是显示像裁剪后的样子，确定后执行真正的裁剪 Pline

newer · 发表于 2014-11-15 17:02:46

st788796 发表于 2014-11-15 16:57
可以做一个模拟 Pline 线，动态时不真正裁剪，只是显示像裁剪后的样子，确定后执行真正的裁剪 Pline

拉上去裁剪，拉回来恢复就牛X了。

st788796 · 发表于 2014-11-15 17:07:06

newer 发表于 2014-11-15 17:02
拉上去裁剪，拉回来恢复就牛X了。

没问题，可以搞出来，我想想简单的方法然后出个插件

st788796 · 发表于 2014-11-16 12:32:37

newer 发表于 2014-11-15 17:02
拉上去裁剪，拉回来恢复就牛X了。

先贴个阶段成果，明天继续

(defun c:tt (/ e gcc3d gpl gxl index lpams myerr
olderr p p0 p1 p2 ptl xpams xvec
)
;;根据点表绘制屏幕矢量，WCS 点
(defun _Grdraw (col mod pts)
(if (listp (caar pts))
(foreach x pts
(apply 'xdrx_grdraw (cons col (cons mod x)))
;;(apply 'xdrx_line_make x)
)
(apply 'xdrx_grdraw (cons col (cons mod pts)))
)
)
;;根据屏幕显示获取GeCurve 起始参数到终止参数区间模拟点
(defun _GetSamplePoints (ge startParam endParam)
(xdge::getpropertyvalue
ge
"getSamplePoints"
startParam
endParam
(* 6. (/ (cadr (getvar "screensize")) (getvar "viewsize")))
)
)
;;获取相交体的交点参数
(defun _GetIntParams (cc3d / n i lst j nlst)
(if (> (setq n (xdge::getpropertyvalue cc3d "numIntPoints")) 0)
(progn
(setq i 0)
(repeat n
(setq lst (cons (xdge::getpropertyvalue cc3d "intPoint" i)
lst
)
i (1+ i)
)
)
(setq nlst
(mapcar
'(lambda (x)
(list
(xdge::getpropertyvalue gpl "paramOf" x)
(list (xdge::getpropertyvalue gxl "paramOf" x) x)
)
)
lst
)
)
(list (vl-sort (mapcar 'car nlst) '<)
(mapcar 'cadr
(vl-sort (mapcar 'cadr nlst)
'(lambda (a b) (< (car a) (car b)))
)
)
)
)
)
)
;;曲线为非逆时针时反转曲线
(defun _IsUnClockWize (curve)
(and (not (xdrx_curve_direction curve))
(xdrx_curve_reverse curve)
)
t
)
(defun _Pnts:PairWise (pts / ptl len)
(setq len (length pts))
(if (<= len 2)
pts
(progn
(while (> (length pts) 1)
(setq ptl (cons (list (car pts) (cadr pts)) ptl)
pts (cddr pts)
)
)
(reverse ptl)
)
)
)
(defun callback (dynpt / pams xpts)
(xdge::setpropertyvalue
gxl
"set"
dynpt
(mapcar '+ dynpt xvec)
)
(redraw)
(if (setq pams (_GetIntParams gcc3d))
(progn
(setq lpams (car pams)
xpts (cadr pams)
)
(_Grdraw 1 0 (_Pnts:PairWise xpts))
(if (minusp (xdrx_point_dist2line dynpt p1 p2))
(mapcar
'(lambda (x)
(_grdraw 1 0 (_GetSamplePoints gpl (car x) (cadr x)))
)
(_Pnts:PairWise lpams)
) ;_inside
(mapcar
'(lambda (x)
(_grdraw 1 0 (_GetSamplePoints gpl (car x) (cadr x)))
)
(_Pnts:PairWise (cdr lpams))
)
)
)
)
(princ)
)
(defun myerr (msg /)
(princ "\n*cancel*")
(xdrx_pointmonitor)
(xdrx_entity_setvisible e t)
(xdge::free)
(princ)
)
(if (and (setq e (xdrx_entsel
"\nPick LineSeg On Pline: "
'((0 . "lwpolyline"))
)
)
(setq p (apply 'xdrx_curve_getclosestpoint e)
e (car e)
index (fix (xdrx_curve_getparamatpoint e p))
)
(= (xdrx_polyline_segtype e index) "kLine")
(_IsUnClockWize e)
)
(progn
(setq olderr *error*
*error* myerr
)
(setq index (fix (xdrx_curve_getparamatpoint e p)))
(mapcar 'set '(p1 p2) (xdrx_polyline_getlinesegat e index))
(xd::polyline:resetstartpoint e p1)
(setq xvec (mapcar '- p2 p1)
gpl (xdge::constructor e) ;_ GetGeCurve of lwpolyline
gxl (xdge::constructor "kLine3d" p1 p2) ;_ xline
gcc3d (xdge::constructor "kCurveCurveInt3d" gpl gxl)
)
(xdrx_entity_setvisible e nil)
(xdrx_pointmonitor "callback")
(if (setq p0 (getpoint p "\nPosition: "))
(progn
(princ "\nok!")
)
)
(xdrx_pointmonitor)
(xdrx_entity_setvisible e t)
(xdge::free)
(setq *error* olderr)
)
)
(princ)
)

(defun c:tt (/            e           gcc3d  gpl         gxl        index  lpams  myerr 
             olderr p           p0          p1         p2        ptl    xpams  xvec 
            ) 
  ;;根据点表绘制屏幕矢量，WCS 点 
  (defun _Grdraw (col mod pts) 
    (if        (listp (caar pts)) 
      (foreach x pts 
        (apply 'xdrx_grdraw (cons col (cons mod x))) 
        ;;(apply 'xdrx_line_make x) 
      ) 
      (apply 'xdrx_grdraw (cons col (cons mod pts))) 
    ) 
  ) 
  ;;根据屏幕显示获取GeCurve 起始参数到终止参数区间模拟点 
  (defun _GetSamplePoints (ge startParam endParam) 
    (xdge::getpropertyvalue 
      ge 
      "getSamplePoints" 
      startParam 
      endParam 
      (* 6. (/ (cadr (getvar "screensize")) (getvar "viewsize"))) 
    ) 
  ) 
  ;;获取相交体的交点参数 
  (defun _GetIntParams (cc3d / n i lst j nlst) 
    (if        (> (setq n (xdge::getpropertyvalue cc3d "numIntPoints")) 0) 
      (progn 
        (setq i 0) 
        (repeat        n 
          (setq        lst (cons (xdge::getpropertyvalue cc3d "intPoint" i) 
                          lst 
                    ) 
                i   (1+ i) 
          ) 
        ) 
        (setq nlst 
               (mapcar 
                 '(lambda (x) 
                    (list 
                      (xdge::getpropertyvalue gpl "paramOf" x) 
                      (list (xdge::getpropertyvalue gxl "paramOf" x) x) 
                    ) 
                  ) 
                 lst 
               ) 
 
        ) 
        (list (vl-sort (mapcar 'car nlst) '<) 
              (mapcar 'cadr 
                      (vl-sort (mapcar 'cadr nlst) 
                               '(lambda (a b) (< (car a) (car b))) 
                      ) 
              ) 
        ) 
      ) 
    ) 
  ) 
  ;;曲线为非逆时针时反转曲线 
  (defun _IsUnClockWize        (curve) 
    (and (not (xdrx_curve_direction curve)) 
         (xdrx_curve_reverse curve) 
    ) 
    t 
  ) 
  (defun _Pnts:PairWise        (pts / ptl len) 
    (setq len (length pts)) 
    (if        (<= len 2) 
      pts 
      (progn 
        (while (> (length pts) 1) 
          (setq        ptl (cons (list (car pts) (cadr pts)) ptl) 
                pts (cddr pts) 
          ) 
        ) 
        (reverse ptl) 
      ) 
    ) 
  ) 
  (defun callback (dynpt / pams xpts) 
    (xdge::setpropertyvalue 
      gxl 
      "set" 
      dynpt 
      (mapcar '+ dynpt xvec) 
    ) 
    (redraw) 
    (if        (setq pams (_GetIntParams gcc3d)) 
      (progn 
        (setq lpams (car pams) 
              xpts  (cadr pams) 
        ) 
        (_Grdraw 1 0 (_Pnts:PairWise xpts)) 
        (if (minusp (xdrx_point_dist2line dynpt p1 p2)) 
          (mapcar 
            '(lambda (x) 
               (_grdraw 1 0 (_GetSamplePoints gpl (car x) (cadr x))) 
             ) 
            (_Pnts:PairWise lpams) 
          ) ;_inside 
          (mapcar 
            '(lambda (x) 
               (_grdraw 1 0 (_GetSamplePoints gpl (car x) (cadr x))) 
             ) 
            (_Pnts:PairWise (cdr lpams)) 
          ) 
        ) 
      ) 
    ) 
    (princ) 
  ) 
  (defun myerr (msg /) 
    (princ "\n*cancel*") 
    (xdrx_pointmonitor) 
    (xdrx_entity_setvisible e t) 
    (xdge::free) 
    (princ) 
  ) 
  (if (and (setq e (xdrx_entsel 
                     "\nPick LineSeg On Pline: " 
                     '((0 . "lwpolyline")) 
                   ) 
           ) 
           (setq p     (apply 'xdrx_curve_getclosestpoint e) 
                 e     (car e) 
                 index (fix (xdrx_curve_getparamatpoint e p)) 
           ) 
           (= (xdrx_polyline_segtype e index) "kLine") 
           (_IsUnClockWize e) 
      ) 
    (progn 
      (setq olderr  *error* 
            *error* myerr 
      ) 
      (setq index (fix (xdrx_curve_getparamatpoint e p))) 
      (mapcar 'set '(p1 p2) (xdrx_polyline_getlinesegat e index)) 
      (xd::polyline:resetstartpoint e p1) 
      (setq xvec  (mapcar '- p2 p1) 
            gpl          (xdge::constructor e) ;_ GetGeCurve of lwpolyline 
            gxl          (xdge::constructor "kLine3d" p1 p2) ;_ xline 
            gcc3d (xdge::constructor "kCurveCurveInt3d" gpl gxl) 
      ) 
      (xdrx_entity_setvisible e nil) 
      (xdrx_pointmonitor "callback") 
      (if (setq p0 (getpoint p "\nPosition: ")) 
        (progn 
          (princ "\nok!") 
        ) 
      ) 
      (xdrx_pointmonitor) 
      (xdrx_entity_setvisible e t) 
      (xdge::free) 
      (setq *error* olderr) 
    ) 
  ) 
  (princ) 
)

liuyj · 发表于 2014-11-16 15:49:26

出错，说什么参数类型错误

csharp · 发表于 2014-11-16 15:55:54

liuyj 发表于 2014-11-16 15:49
出错，说什么参数类型错误

射线法求交点时，有一种情况，折点在射线上，st长老这段代码还没有处理这种情况，遇到这种点的时候出错退出，期待完善

st788796 · 发表于 2014-11-17 16:50:35

csharp 发表于 2014-11-16 15:55
射线法求交点时，有一种情况，折点在射线上，st长老这段代码还没有处理这种情况，遇到这种点的时候出错退 ...

两Curve 相交时的信息都在 getIntConfigs 中，这个信息说明了曲线1 是如何和曲线2 相交的，在 AutoCAD 中所有曲线都是“有向”曲线（xline 是负无穷到正无穷），configs 就说明这个方向， left 表示进入曲线， right 表示离开曲线， overlap 表示重叠，kRightRigth 表示曲线1上交点前后的点都在另一曲线一侧，下面是一个测试

条件：pline 逆时针，xline 正方向为 x 轴方向

(defun c:tt (/ e1 e2 gpl gxl gcc i)
(defun _getIntPoints (cc3d / n lst i)
(if (> (setq n (xdge::getpropertyvalue cc3d "numIntPoints")) 0)
(progn
(setq i 0)
(repeat n
(setq lst (cons (xdge::getpropertyvalue
cc3d "intPoint" i "getIntConfigs" i)
lst
)
i (1+ i)
)
)
(setq
lst
(vl-remove-if
'(lambda (x)
(= (last x) "kRightRight")
);_去掉一些点
(vl-sort
lst
'(lambda (x1 x2)
(< (xdge::getpropertyvalue gxl "paramOf" (car x1))
(xdge::getpropertyvalue gxl "paramOf" (car x2))
)
)
);_按 xline 上参数排序
)
)
)
)
)
(if
(and (setq
e1 (car (xdrx_entsel "\nPick Pline: " '((0 . "lwpolyline"))))
)
(setq e2 (car (xdrx_entsel "\nPick Xline: " '((0 . "xline")))))
)
(progn
(setq gpl (xdge::constructor e1)
gxl (xdge::constructor e2)
gcc (xdge::constructor "kCurveCurveInt3d" gpl gxl)
i 0
)
(mapcar
'(lambda (x)
(xdrx_entity_setcolor (xdrx_point_make x) (setq i (1+ i)))
)
(mapcar 'car (_getIntPoints gcc))
)
)
)
(xdge::free)
(princ)
)

(defun c:tt (/ e1 e2 gpl gxl gcc i) 
  (defun _getIntPoints (cc3d / n lst i) 
    (if        (> (setq n (xdge::getpropertyvalue cc3d "numIntPoints")) 0) 
      (progn 
        (setq i 0) 
        (repeat        n 
          (setq        lst (cons (xdge::getpropertyvalue 
                            cc3d "intPoint" i "getIntConfigs" i) 
                          lst 
                    ) 
                i   (1+ i) 
          ) 
        ) 
        (setq 
          lst 
           (vl-remove-if 
             '(lambda (x) 
                (= (last x) "kRightRight") 
              );_去掉一些点 
             (vl-sort 
               lst 
               '(lambda        (x1 x2) 
                  (< (xdge::getpropertyvalue gxl "paramOf" (car x1)) 
                     (xdge::getpropertyvalue gxl "paramOf" (car x2)) 
                  ) 
                ) 
             );_按 xline 上参数排序 
           ) 
        ) 
      ) 
    ) 
  ) 
  (if 
    (and (setq 
           e1 (car (xdrx_entsel "\nPick Pline: " '((0 . "lwpolyline")))) 
         ) 
         (setq e2 (car (xdrx_entsel "\nPick Xline: " '((0 . "xline"))))) 
    ) 
     (progn 
       (setq gpl (xdge::constructor e1) 
             gxl (xdge::constructor e2) 
             gcc (xdge::constructor "kCurveCurveInt3d" gpl gxl) 
             i 0 
       ) 
       (mapcar 
         '(lambda (x) 
            (xdrx_entity_setcolor (xdrx_point_make x) (setq i (1+ i))) 
          ) 
         (mapcar 'car (_getIntPoints gcc)) 
       ) 
     ) 
  ) 
  (xdge::free) 
  (princ) 
)

XDSoft · 发表于 2014-11-17 17:00:12

st788796 发表于 2014-11-17 16:50
两Curve 相交时的信息都在 getIntConfigs 中，这个信息说明了曲线1 是如何和曲线2 相交的，在 AutoCAD ...

能不能分成几种形式，单独把上面的图扣出来放大，说明下那些RIGHTRIGHT等的意义。

st788796 · 发表于 2014-11-17 17:12:27

XDSoft 发表于 2014-11-17 17:00
能不能分成几种形式，单独把上面的图扣出来放大，说明下那些RIGHTRIGHT等的意义。

这些 configs 信息是非Region 方法作曲线布尔必须了解的，抽空单独写个帖子

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

[教学] XDGE几何库应用(32)--动态拖动Pline直边

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

点评

点评

点评