(XD::Curve:NumDiv)曲线定距或定数分割点

st788796 · 发表于 2014-9-30 08:12:32

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

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

×

本帖最后由 st788796 于 2014-10-1 23:19 编辑

(defun XD::Curve:NumDiv (curve startPnt endPnt lst / spam epam params)
(setq spam (if startPnt
(xdrx_curve_getdistatpoint curve startPnt)
0.0
)
epam (if endPnt
(xdrx_curve_getdistatpoint curve endPnt)
(xdrx_curve_getdistatparam
curve
(xdrx_curve_getendparam curve)
)
)
)
(if (eq (type lst) 'LIST)
(setq lst (cons (xdrx_curve_getdistatparam
curve
(xdrx_curve_getendparam curve)
)
lst
)
)
)
(setq params (XD::Geom:NumDiv epam spam lst))
(mapcar
'(lambda (x)
(list (xdrx_curve_getpointatdist curve x)
(xdrx_vector_normalize (xdrx_curve_getfirstderiv curve (xdrx_curve_getparamatdist curve x)))
)
)
params
)
)

(defun XD::Curve:NumDiv        (curve startPnt endPnt lst / spam epam params) 
  (setq        spam (if startPnt 
               (xdrx_curve_getdistatpoint curve startPnt) 
               0.0 
             ) 
        epam (if endPnt 
               (xdrx_curve_getdistatpoint curve endPnt) 
               (xdrx_curve_getdistatparam 
                 curve 
                 (xdrx_curve_getendparam curve) 
               ) 
             ) 
  ) 
  (if (eq (type lst) 'LIST) 
    (setq lst (cons (xdrx_curve_getdistatparam 
                      curve 
                      (xdrx_curve_getendparam curve) 
                    ) 
                    lst 
              ) 
    ) 
  ) 
  (setq params (XD::Geom:NumDiv epam spam lst)) 
  (mapcar 
    '(lambda (x) 
       (list (xdrx_curve_getpointatdist curve x) 
             (xdrx_vector_normalize (xdrx_curve_getfirstderiv curve (xdrx_curve_getparamatdist curve x))) 
       ) 
     ) 
    params 
  ) 
)

Free-Lancer · 发表于 2014-9-30 11:24:14

收录，Lisp 就这样

(defun XD::Curve:NumDiv (curve startPnt endPnt lst / spam epam params)
(setq spam (if startPnt
(vlax-curve-getparamatpoint curve startPnt)
(vlax-curve-getstartparam curve)
)
epam (if endPnt
(vlax-curve-getparamatpoint curve endPnt)
(vlax-curve-getendparam curve)
)
)
(if (eq (type lst) 'LIST)
(setq lst (cons (vlax-curve-getendparam curve) lst))
)
(setq params (XD::Geom:NumDiv epam spam lst))
(mapcar
'(lambda (x / ve len)
(setq ve (vlax-curve-getfirstderiv curve x)
len (distance '(0. 0. 0.) ve)
)
(list (vlax-curve-getpointatparam curve x)
(if (zerop len)
ve
(mapcar '(lambda (x) (/ x len))
ve
)
)
)
)
params
)
)

(defun XD::Curve:NumDiv        (curve startPnt endPnt lst / spam epam params) 
  (setq        spam (if startPnt 
               (vlax-curve-getparamatpoint curve startPnt) 
               (vlax-curve-getstartparam curve) 
             ) 
        epam (if endPnt 
               (vlax-curve-getparamatpoint curve endPnt) 
               (vlax-curve-getendparam curve) 
             ) 
  ) 
  (if (eq (type lst) 'LIST) 
    (setq lst (cons (vlax-curve-getendparam curve) lst)) 
  ) 
  (setq params (XD::Geom:NumDiv epam spam lst)) 
  (mapcar 
    '(lambda (x / ve len) 
       (setq ve         (vlax-curve-getfirstderiv curve x) 
             len (distance '(0. 0. 0.) ve) 
       ) 
       (list (vlax-curve-getpointatparam curve x) 
             (if (zerop len) 
               ve 
               (mapcar '(lambda (x) (/ x len)) 
                       ve 
               ) 
             ) 
       ) 
     ) 
    params 
  ) 
)

st788796 · 发表于 2014-10-1 11:32:41

用 AcGe 更简单

http://xdcad.net/forum/forum.php ... 279&pid=3531849

zhangq_cai1 · 发表于 2014-11-27 20:06:37

(setq jxk (xdrx_polyline_make t pt pt5 pt6 pt7))
(xdrx_polyline_SetConstantWidth jxk *bl)
(XD::Curve:NumDiv jxk pt pt5 8)
(XD::Curve:NumDiv jxk pt5 pt6 10)
(XD::Curve:NumDiv jxk pt6 pt7 8)
(XD::Curve:NumDiv jxk pt7 pt 10)

想等分矩形画线。 (XD::Curve:NumDiv jxk pt pt5 8)参数类型错误

newer · 发表于 2014-11-27 20:45:21

zhangq_cai1 发表于 2014-11-27 20:06
想等分矩形画线。 (XD::Curve:NumDiv jxk pt pt5 8)参数类型错误

把你所有的代码都贴上来吧，你这半途的代码，也许别的地方错了。

zhangq_cai1 · 发表于 2014-11-27 20:58:37

(defun c:tt ()
(XD::Begin)
(setq strl '("crtk:dialog{label="插入图框";"
"initial_focus="a2";"
"\n :boxed_column{label="图幅";"
"\n :row{"
"\n :boxed_radio_column{"
"\n :radio_button{label="A0";key="a0";}"
"\n :radio_button{label="A1";key="a1";}"
"\n :radio_button{label="A2";key="a2";value=1;}"
"\n :radio_button{label="A3";key="a3";}"
"\n :radio_button{label="A4";key="a4";}}"
"\n :column{"
"\n :radio_row{"
"\n :radio_button{label="横式";key="lev";value=1;}"
"\n :radio_button{label="立式";key="ver";}}"
"\n :edit_box {label="图长:";key="drl";width=10;}"
"\n :edit_box {label="图宽:";key="drw";width=10;}"
"\n :popup_list {label="加长:";key="dl_list";}}"
"}}"
"ok_cancel;}"
)
fn (xd::dcl:make strl)
dcl_id (load_dialog fn)
)
(if (not (new_dialog "crtk" dcl_id))
(exit)
)
(action_tile "a0" "(setq ll 1189 hh 841)")
(action_tile "a1" "(setq ll 841 hh 594)")
(action_tile "a2" "(setq ll 594 hh 420)")
(action_tile "a3" "(setq ll 420 hh 297)")
(action_tile "a4" "(setq ll 297 hh 210)")
(action_tile "accept" "(setq h_v (get_tile "ver"))(done_dialog 1)")
(action_tile "cancel" "(done_dialog)")
(setq std (start_dialog))
(unload_dialog dcl_id)
(vl-file-delete fn)
(if (= h_v "1") (setq ww ll ll hh hh ww))
(if (> std 0) (htk))
(XD::End)
(princ)
)
(defun htk ()
(setq pt (getpoint "\n插入点:")
pt1 (list (+(car pt) (* 5 *bl)) (-(cadr pt) (* 5 *bl)))
pt2 (list (car pt1) (+(cadr pt1) (* hh *bl)))
pt3 (list (-(car pt1)(* ll *bl)) (+(cadr pt1) (* hh *bl)))
pt4 (list (-(car pt1)(* ll *bl)) (cadr pt1))
pt5 (list (car pt) (+(cadr pt) (*(- hh 10) *bl)) 0)
pt6 (list (-(car pt)(*(- ll 30) *bl)) (+(cadr pt) (*(- hh 10) *bl)))
pt7 (list (-(car pt)(*(- ll 30) *bl)) (cadr pt))
pt8 (list (-(car pt1)(*(- ll 20) *bl)) (cadr pt1))
pt9 (list (-(car pt1)(*(- ll 20) *bl)) (+(cadr pt1) (* hh *bl)))
)
(xdrx_polyline_make t pt1 pt2 pt3 pt4)
(setq jxk (xdrx_polyline_make t pt pt5 pt6 pt7))
(xdrx_polyline_SetConstantWidth jxk *bl)
(XD::Curve:NumDiv jxk pt pt5 8)
(XD::Curve:NumDiv jxk pt5 pt6 10)
(XD::Curve:NumDiv jxk pt6 pt7 8)
(XD::Curve:NumDiv jxk pt7 pt 10)
(xdrx_line_make pt8 pt9)
)

(defun c:tt () 
        (XD::Begin) 
  (setq        strl   '("crtk:dialog{label="插入图框";" 
                  "initial_focus="a2";" 
                  "\n :boxed_column{label="图幅";" 
                 "\n :row{" 
                 "\n :boxed_radio_column{" 
                  "\n :radio_button{label="A0";key="a0";}"                        
                  "\n :radio_button{label="A1";key="a1";}" 
                  "\n :radio_button{label="A2";key="a2";value=1;}" 
                  "\n :radio_button{label="A3";key="a3";}" 
                 "\n :radio_button{label="A4";key="a4";}}" 
                 "\n :column{" 
                 "\n :radio_row{" 
                  "\n :radio_button{label="横式";key="lev";value=1;}" 
                  "\n :radio_button{label="立式";key="ver";}}" 
                  "\n :edit_box {label="图长:";key="drl";width=10;}" 
                 "\n :edit_box {label="图宽:";key="drw";width=10;}" 
                 "\n :popup_list {label="加长:";key="dl_list";}}" 
                 "}}"                        
                 "ok_cancel;}" 
     ) 
                        fn     (xd::dcl:make strl) 
                dcl_id (load_dialog fn) 
  ) 
  (if (not (new_dialog "crtk" dcl_id)) 
    (exit) 
  ) 
        (action_tile "a0" "(setq ll 1189 hh 841)") 
        (action_tile "a1" "(setq ll 841 hh 594)") 
  (action_tile "a2" "(setq ll 594 hh 420)") 
  (action_tile "a3" "(setq ll 420 hh 297)") 
        (action_tile "a4" "(setq ll 297 hh 210)") 
  (action_tile "accept" "(setq h_v (get_tile "ver"))(done_dialog 1)") 
  (action_tile "cancel" "(done_dialog)") 
  (setq std (start_dialog)) 
  (unload_dialog dcl_id) 
  (vl-file-delete fn) 
        (if (= h_v "1") (setq ww ll ll hh hh ww)) 
        (if (> std 0) (htk)) 
        (XD::End) 
  (princ) 
) 
(defun htk () 
        (setq pt  (getpoint "\n插入点:") 
                    pt1 (list (+(car pt) (* 5 *bl)) (-(cadr pt) (* 5 *bl))) 
                    pt2 (list (car pt1) (+(cadr pt1) (* hh *bl))) 
                                pt3 (list (-(car pt1)(* ll *bl)) (+(cadr pt1) (* hh *bl))) 
                    pt4 (list (-(car pt1)(* ll *bl)) (cadr pt1)) 
                    pt5 (list (car pt) (+(cadr pt) (*(- hh 10) *bl)) 0) 
                    pt6 (list (-(car pt)(*(- ll 30) *bl)) (+(cadr pt) (*(- hh 10) *bl))) 
                    pt7 (list (-(car pt)(*(- ll 30) *bl)) (cadr pt)) 
                    pt8 (list (-(car pt1)(*(- ll 20) *bl)) (cadr pt1)) 
                    pt9 (list (-(car pt1)(*(- ll 20) *bl)) (+(cadr pt1) (* hh *bl))) 
        ) 
  (xdrx_polyline_make t pt1 pt2 pt3 pt4) 
        (setq jxk (xdrx_polyline_make t pt pt5 pt6 pt7)) 
        (xdrx_polyline_SetConstantWidth jxk *bl) 
        (XD::Curve:NumDiv jxk pt pt5 8) 
        (XD::Curve:NumDiv jxk pt5 pt6 10) 
        (XD::Curve:NumDiv jxk pt6 pt7 8) 
        (XD::Curve:NumDiv jxk pt7 pt 10) 
        (xdrx_line_make pt8 pt9) 
)

st788796 · 发表于 2014-11-28 07:50:32

zhangq_cai1 发表于 2014-11-27 20:58

你用的点是 2D (pt6 pt7)，造成 xdrx_curve 几个函数无法求出 param

zhangq_cai1 · 发表于 2014-11-28 08:12:48

后面加0.0改成3D的也出错~~~~~~~~~~~~~~~~~~~~

st788796 · 发表于 2014-11-28 08:20:28

zhangq_cai1 发表于 2014-11-28 08:12
后面加0.0改成3D的也出错~~~~~~~~~~~~~~~~~~~~

用 3D 点没问题

(defun htk ()
(setq pt (getpoint "\n插入点:")
pt1 (list (+ (car pt) (* 5 *bl)) (- (cadr pt) (* 5 *bl)))
pt2 (list (car pt1) (+ (cadr pt1) (* hh *bl)))
pt3 (list (- (car pt1) (* ll *bl)) (+ (cadr pt1) (* hh *bl)))
pt4 (list (- (car pt1) (* ll *bl)) (cadr pt1))
pt5 (list (car pt) (+ (cadr pt) (* (- hh 10) *bl)) 0.)
pt6 (list (- (car pt) (* (- ll 30) *bl))
(+ (cadr pt) (* (- hh 10) *bl))
0.0
)
pt7 (list (- (car pt) (* (- ll 30) *bl)) (cadr pt) 0.0)
pt8 (list (- (car pt1) (* (- ll 20) *bl)) (cadr pt1) 0.0)
pt9 (list (- (car pt1) (* (- ll 20) *bl))
(+ (cadr pt1) (* hh *bl))
0.0
)
)
(xdrx_polyline_make t pt1 pt2 pt3 pt4)
(setq jxk (xdrx_polyline_make t pt pt5 pt6 pt7))
(xdrx_polyline_SetConstantWidth jxk *bl)
(XD::Curve:NumDiv jxk pt pt5 8)
(XD::Curve:NumDiv jxk pt5 pt6 10)
(XD::Curve:NumDiv jxk pt6 pt7 8)
(XD::Curve:NumDiv jxk pt7 pt 10)
(xdrx_line_make pt8 pt9)
)

(defun htk () 
  (setq        pt  (getpoint "\n插入点:") 
        pt1 (list (+ (car pt) (* 5 *bl)) (- (cadr pt) (* 5 *bl))) 
        pt2 (list (car pt1) (+ (cadr pt1) (* hh *bl))) 
        pt3 (list (- (car pt1) (* ll *bl)) (+ (cadr pt1) (* hh *bl))) 
        pt4 (list (- (car pt1) (* ll *bl)) (cadr pt1)) 
        pt5 (list (car pt) (+ (cadr pt) (* (- hh 10) *bl)) 0.) 
        pt6 (list (- (car pt) (* (- ll 30) *bl)) 
                  (+ (cadr pt) (* (- hh 10) *bl)) 
                  0.0 
            ) 
        pt7 (list (- (car pt) (* (- ll 30) *bl)) (cadr pt) 0.0) 
        pt8 (list (- (car pt1) (* (- ll 20) *bl)) (cadr pt1) 0.0) 
        pt9 (list (- (car pt1) (* (- ll 20) *bl)) 
                  (+ (cadr pt1) (* hh *bl)) 
                  0.0 
            ) 
  ) 
  (xdrx_polyline_make t pt1 pt2 pt3 pt4) 
  (setq jxk (xdrx_polyline_make t pt pt5 pt6 pt7)) 
  (xdrx_polyline_SetConstantWidth jxk *bl) 
  (XD::Curve:NumDiv jxk pt pt5 8) 
  (XD::Curve:NumDiv jxk pt5 pt6 10) 
  (XD::Curve:NumDiv jxk pt6 pt7 8) 
  (XD::Curve:NumDiv jxk pt7 pt 10) 
  (xdrx_line_make pt8 pt9) 
)

zhangq_cai1 · 发表于 2014-11-28 09:07:04

(defun dfhx (curve startPnt endPnt div)
(setq lst (XD::Curve:NumDiv curve startPnt endPnt div))
(mapcar '(lambda (x / v v1)
(setq v (xdrx_vector_perpvector (cadr x)) ;_垂向量
v1 (xdrx_vector_product v (* 5 *bl)) ;_放大的指定长度
p1 (mapcar '+ (car x) v1)
)
(xdrx_line_make (car x) p1) ;_绘制短线
)
lst
)
(redraw)
)
(defun c:tt ()
(XD::Begin)
(setq strl '("crtk:dialog{label="插入图框";"
"initial_focus="a2";"
"\n :boxed_column{label="图幅";"
"\n :row{"
"\n :boxed_radio_column{"
"\n :radio_button{label="A0";key="a0";}"
"\n :radio_button{label="A1";key="a1";}"
"\n :radio_button{label="A2";key="a2";value=1;}"
"\n :radio_button{label="A3";key="a3";}"
"\n :radio_button{label="A4";key="a4";}}"
"\n :column{"
"\n :radio_row{"
"\n :radio_button{label="横式";key="lev";value=1;}"
"\n :radio_button{label="立式";key="ver";}}"
"\n :edit_box {label="图长:";key="drl";width=10;}"
"\n :edit_box {label="图宽:";key="drw";width=10;}"
"\n :popup_list {label="加长:";key="dl_list";}}"
"}}"
"ok_cancel;}"
)
fn (xd::dcl:make strl)
dcl_id (load_dialog fn)
)
(if (not (new_dialog "crtk" dcl_id))
(exit)
)
(action_tile "a0" "(setq ll 1189 hh 841)")
(action_tile "a1" "(setq ll 841 hh 594)")
(action_tile "a2" "(setq ll 594 hh 420)")
(action_tile "a3" "(setq ll 420 hh 297)")
(action_tile "a4" "(setq ll 297 hh 210)")
(action_tile "accept" "(setq h_v (get_tile "ver"))(done_dialog 1)")
(action_tile "cancel" "(done_dialog)")
(setq std (start_dialog))
(unload_dialog dcl_id)
(vl-file-delete fn)
(if (= h_v "1") (setq ww ll ll hh hh ww))
(if (> std 0) (htk))
(XD::End)
(princ)
)
(defun htk ()
(setq pt (getpoint "\n插入点:")
*bl 100
pt1 (list (+(car pt) (* 5 *bl)) (-(cadr pt) (* 5 *bl)))
pt2 (list (car pt1) (+(cadr pt1) (* hh *bl)))
pt3 (list (-(car pt1)(* ll *bl)) (+(cadr pt1) (* hh *bl)))
pt4 (list (-(car pt1)(* ll *bl)) (cadr pt1))
pt5 (list (car pt) (+(cadr pt) (*(- hh 10) *bl)) 0.0)
pt6 (list (-(car pt)(*(- ll 30) *bl)) (+(cadr pt) (*(- hh 10) *bl)) 0.0)
pt7 (list (-(car pt)(*(- ll 30) *bl)) (cadr pt) 0.0)
pt8 (list (-(car pt1)(*(- ll 20) *bl)) (cadr pt1) 0.0)
pt9 (list (-(car pt1)(*(- ll 20) *bl)) (+(cadr pt1) (* hh *bl)) 0.0)
)
(xdrx_polyline_make t pt1 pt2 pt3 pt4)
(setq jxk (xdrx_polyline_make t pt pt5 pt6 pt7))
(xdrx_polyline_SetConstantWidth jxk *bl)
(dfhx jxk pt pt5 8)
(dfhx jxk pt5 pt6 10)
(dfhx jxk pt6 pt7 8)
(dfhx jxk pt7 pt 10)
(xdrx_line_make pt8 pt9)
)

(defun dfhx (curve startPnt endPnt div) 
      (setq lst (XD::Curve:NumDiv curve startPnt endPnt div)) 
      (mapcar '(lambda (x / v v1) 
                 (setq v  (xdrx_vector_perpvector (cadr x)) ;_垂向量 
                       v1 (xdrx_vector_product v (* 5 *bl)) ;_放大的指定长度 
                       p1 (mapcar '+ (car x) v1) 
                 ) 
                 (xdrx_line_make (car x) p1) ;_绘制短线 
               ) 
              lst 
      ) 
     (redraw) 
) 
(defun c:tt () 
        (XD::Begin) 
  (setq        strl   '("crtk:dialog{label="插入图框";" 
                  "initial_focus="a2";" 
                  "\n :boxed_column{label="图幅";" 
                 "\n :row{" 
                 "\n :boxed_radio_column{" 
                  "\n :radio_button{label="A0";key="a0";}"                        
                  "\n :radio_button{label="A1";key="a1";}" 
                  "\n :radio_button{label="A2";key="a2";value=1;}" 
                  "\n :radio_button{label="A3";key="a3";}" 
                 "\n :radio_button{label="A4";key="a4";}}" 
                 "\n :column{" 
                 "\n :radio_row{" 
                  "\n :radio_button{label="横式";key="lev";value=1;}" 
                  "\n :radio_button{label="立式";key="ver";}}" 
                  "\n :edit_box {label="图长:";key="drl";width=10;}" 
                 "\n :edit_box {label="图宽:";key="drw";width=10;}" 
                 "\n :popup_list {label="加长:";key="dl_list";}}" 
                 "}}"                        
                 "ok_cancel;}" 
     ) 
                        fn     (xd::dcl:make strl) 
                dcl_id (load_dialog fn) 
  ) 
  (if (not (new_dialog "crtk" dcl_id)) 
    (exit) 
  ) 
        (action_tile "a0" "(setq ll 1189 hh 841)") 
        (action_tile "a1" "(setq ll 841 hh 594)") 
  (action_tile "a2" "(setq ll 594 hh 420)") 
  (action_tile "a3" "(setq ll 420 hh 297)") 
        (action_tile "a4" "(setq ll 297 hh 210)") 
  (action_tile "accept" "(setq h_v (get_tile "ver"))(done_dialog 1)") 
  (action_tile "cancel" "(done_dialog)") 
  (setq std (start_dialog)) 
  (unload_dialog dcl_id) 
  (vl-file-delete fn) 
        (if (= h_v "1") (setq ww ll ll hh hh ww)) 
        (if (> std 0) (htk)) 
        (XD::End) 
  (princ) 
) 
(defun htk () 
        (setq pt  (getpoint "\n插入点:") 
              *bl 100 
                    pt1 (list (+(car pt) (* 5 *bl)) (-(cadr pt) (* 5 *bl))) 
                    pt2 (list (car pt1) (+(cadr pt1) (* hh *bl))) 
                                pt3 (list (-(car pt1)(* ll *bl)) (+(cadr pt1) (* hh *bl))) 
                    pt4 (list (-(car pt1)(* ll *bl)) (cadr pt1)) 
                    pt5 (list (car pt) (+(cadr pt) (*(- hh 10) *bl)) 0.0) 
                    pt6 (list (-(car pt)(*(- ll 30) *bl)) (+(cadr pt) (*(- hh 10) *bl)) 0.0) 
                    pt7 (list (-(car pt)(*(- ll 30) *bl)) (cadr pt) 0.0) 
                    pt8 (list (-(car pt1)(*(- ll 20) *bl)) (cadr pt1) 0.0) 
                    pt9 (list (-(car pt1)(*(- ll 20) *bl)) (+(cadr pt1) (* hh *bl)) 0.0) 
        ) 
  (xdrx_polyline_make t pt1 pt2 pt3 pt4) 
        (setq jxk (xdrx_polyline_make t pt pt5 pt6 pt7)) 
        (xdrx_polyline_SetConstantWidth jxk *bl) 
        (dfhx jxk pt pt5 8) 
        (dfhx jxk pt5 pt6 10) 
        (dfhx jxk pt6 pt7 8) 
        (dfhx jxk pt7 pt 10) 
        (xdrx_line_make pt8 pt9) 
)

还是不行，polyline线等分不了。把*bl变量加上了，帮忙试一下

newer · 发表于 2014-11-28 09:26:55

建议你下面这部分重写，太乱了。

pt1 (list (+(car pt) (* 5 *bl)) (-(cadr pt) (* 5 *bl)))
登录/注册后可看大图
pt2 (list (car pt1) (+(cadr pt1) (* hh *bl)))
登录/注册后可看大图
pt3 (list (-(car pt1)(* ll *bl)) (+(cadr pt1) (* hh *bl)))
登录/注册后可看大图
pt4 (list (-(car pt1)(* ll *bl)) (cadr pt1))
登录/注册后可看大图
pt5 (list (car pt) (+(cadr pt) (*(- hh 10) *bl)) 0.0)
登录/注册后可看大图
pt6 (list (-(car pt)(*(- ll 30) *bl)) (+(cadr pt) (*(- hh 10) *bl)) 0.0)
登录/注册后可看大图
pt7 (list (-(car pt)(*(- ll 30) *bl)) (cadr pt) 0.0)
登录/注册后可看大图
pt8 (list (-(car pt1)(*(- ll 20) *bl)) (cadr pt1) 0.0)
登录/注册后可看大图
pt9 (list (-(car pt1)(*(- ll 20) *bl)) (+(cadr pt1) (* hh *bl))

运行到这个后，除了PT1，其他点都是NIL。 HH没有值。

st788796 · 发表于 2014-11-28 09:28:32

zhangq_cai1 发表于 2014-11-28 09:07
还是不行，polyline线等分不了。把*bl变量加上了，帮忙试一下

只有最后一段需要把 10 加括号, 其他没有问题

(defun c:tt (/ strl fn dcl_id std ll hh)
(defun dfhx (curve startPnt endPnt div / lst)
(setq lst (XD::Curve:NumDiv curve startPnt endPnt div))
(mapcar '(lambda (x / v v1 p1)
(setq v (xdrx_vector_perpvector (cadr x)) ;_垂向量
v1 (xdrx_vector_product v (* 5 *bl)) ;_放大的指定长度
p1 (mapcar '+ (car x) v1)
)
(xdrx_line_make (car x) p1) ;_绘制短线
)
lst
)
(redraw)
)
(defun htk (/ pt pt1 pt2 pt3 pt4 pt5 pt6 pt7 pt8 pt9 jxk)
(setq pt (getpoint "\n插入点:")
*bl 100
pt1 (list (+ (car pt) (* 5 *bl)) (- (cadr pt) (* 5 *bl)))
pt2 (list (car pt1) (+ (cadr pt1) (* hh *bl)))
pt3 (list (- (car pt1) (* ll *bl)) (+ (cadr pt1) (* hh *bl)))
pt4 (list (- (car pt1) (* ll *bl)) (cadr pt1))
pt5 (list (car pt) (+ (cadr pt) (* (- hh 10) *bl)) 0.0)
pt6 (list (- (car pt) (* (- ll 30) *bl))
(+ (cadr pt) (* (- hh 10) *bl))
0.0
)
pt7 (list (- (car pt) (* (- ll 30) *bl)) (cadr pt) 0.0)
pt8 (list (- (car pt1) (* (- ll 20) *bl)) (cadr pt1) 0.0)
pt9 (list (- (car pt1) (* (- ll 20) *bl))
(+ (cadr pt1) (* hh *bl))
0.0
)
)
(xdrx_polyline_make t pt1 pt2 pt3 pt4)
(setq jxk (xdrx_polyline_make t pt pt5 pt6 pt7))
(xdrx_polyline_SetConstantWidth jxk *bl)
(dfhx jxk pt pt5 8)
(dfhx jxk pt5 pt6 10)
(dfhx jxk pt6 pt7 8)
(dfhx jxk pt7 pt '(10))
(xdrx_line_make pt8 pt9)
)
(XD::Begin)
(setq strl '("crtk:dialog{label=\"插入图框\";"
"initial_focus=\"a2\";"
"\n :boxed_column{label=\"图幅\";" "\n :row{"
"\n :boxed_radio_column{"
"\n :radio_button{label=\"A0\";key=\"a0\";}"
"\n :radio_button{label=\"A1\";key=\"a1\";}"
"\n :radio_button{label=\"A2\";key=\"a2\";value=1;}"
"\n :radio_button{label=\"A3\";key=\"a3\";}"
"\n :radio_button{label=\"A4\";key=\"a4\";}}"
"\n :column{" "\n :radio_row{"
"\n :radio_button{label=\"横式\";key=\"lev\";value=1;}"
"\n :radio_button{label=\"立式\";key=\"ver\";}}"
"\n :edit_box {label=\"图长:\";key=\"drl\";width=10;}"
"\n :edit_box {label=\"图宽:\";key=\"drw\";width=10;}"
"\n :popup_list {label=\"加长:\";key=\"dl_list\";}}"
"}}" "ok_cancel;}")
fn (xd::dcl:make strl)
dcl_id (load_dialog fn)
)
(if (not (new_dialog "crtk" dcl_id))
(exit)
)
(action_tile "a0" "(setq ll 1189 hh 841)")
(action_tile "a1" "(setq ll 841 hh 594)")
(action_tile "a2" "(setq ll 594 hh 420)")
(action_tile "a3" "(setq ll 420 hh 297)")
(action_tile "a4" "(setq ll 297 hh 210)")
(action_tile
"accept"
"(setq h_v (get_tile \"ver\"))(done_dialog 1)"
)
(action_tile "cancel" "(done_dialog)")
(setq std (start_dialog))
(unload_dialog dcl_id)
(vl-file-delete fn)
(if (= h_v "1")
(setq ww ll
ll hh
hh ww
)
)
(if (> std 0)
(htk)
)
(XD::End)
(princ)
)

(defun c:tt (/ strl fn dcl_id std ll hh) 
  (defun dfhx (curve startPnt endPnt div / lst) 
    (setq lst (XD::Curve:NumDiv curve startPnt endPnt div)) 
    (mapcar '(lambda (x / v v1 p1) 
               (setq v        (xdrx_vector_perpvector (cadr x)) ;_垂向量 
                     v1        (xdrx_vector_product v (* 5 *bl)) ;_放大的指定长度 
                     p1        (mapcar '+ (car x) v1) 
               ) 
               (xdrx_line_make (car x) p1) ;_绘制短线 
             ) 
            lst 
    ) 
    (redraw) 
  ) 
  (defun htk (/ pt pt1 pt2 pt3 pt4 pt5 pt6 pt7 pt8 pt9 jxk) 
    (setq pt  (getpoint "\n插入点:") 
          *bl 100 
          pt1 (list (+ (car pt) (* 5 *bl)) (- (cadr pt) (* 5 *bl))) 
          pt2 (list (car pt1) (+ (cadr pt1) (* hh *bl))) 
          pt3 (list (- (car pt1) (* ll *bl)) (+ (cadr pt1) (* hh *bl))) 
          pt4 (list (- (car pt1) (* ll *bl)) (cadr pt1)) 
          pt5 (list (car pt) (+ (cadr pt) (* (- hh 10) *bl)) 0.0) 
          pt6 (list (- (car pt) (* (- ll 30) *bl)) 
                    (+ (cadr pt) (* (- hh 10) *bl)) 
                    0.0 
              ) 
          pt7 (list (- (car pt) (* (- ll 30) *bl)) (cadr pt) 0.0) 
          pt8 (list (- (car pt1) (* (- ll 20) *bl)) (cadr pt1) 0.0) 
          pt9 (list (- (car pt1) (* (- ll 20) *bl)) 
                    (+ (cadr pt1) (* hh *bl)) 
                    0.0 
              ) 
    ) 
    (xdrx_polyline_make t pt1 pt2 pt3 pt4) 
    (setq jxk (xdrx_polyline_make t pt pt5 pt6 pt7)) 
    (xdrx_polyline_SetConstantWidth jxk *bl) 
    (dfhx jxk pt pt5 8) 
    (dfhx jxk pt5 pt6 10) 
    (dfhx jxk pt6 pt7 8) 
    (dfhx jxk pt7 pt '(10)) 
    (xdrx_line_make pt8 pt9) 
  ) 
  (XD::Begin) 
  (setq        strl   '("crtk:dialog{label=\"插入图框\";" 
                 "initial_focus=\"a2\";" 
                 "\n :boxed_column{label=\"图幅\";" "\n :row{" 
                 "\n :boxed_radio_column{" 
                 "\n :radio_button{label=\"A0\";key=\"a0\";}" 
                 "\n :radio_button{label=\"A1\";key=\"a1\";}" 
                 "\n :radio_button{label=\"A2\";key=\"a2\";value=1;}" 
                 "\n :radio_button{label=\"A3\";key=\"a3\";}" 
                 "\n :radio_button{label=\"A4\";key=\"a4\";}}" 
                 "\n :column{" "\n :radio_row{" 
                 "\n :radio_button{label=\"横式\";key=\"lev\";value=1;}" 
                 "\n :radio_button{label=\"立式\";key=\"ver\";}}" 
                 "\n :edit_box {label=\"图长:\";key=\"drl\";width=10;}" 
                 "\n :edit_box {label=\"图宽:\";key=\"drw\";width=10;}" 
                 "\n :popup_list {label=\"加长:\";key=\"dl_list\";}}" 
                 "}}" "ok_cancel;}") 
        fn     (xd::dcl:make strl) 
        dcl_id (load_dialog fn) 
  ) 
  (if (not (new_dialog "crtk" dcl_id)) 
    (exit) 
  ) 
  (action_tile "a0" "(setq ll 1189 hh 841)") 
  (action_tile "a1" "(setq ll 841 hh 594)") 
  (action_tile "a2" "(setq ll 594 hh 420)") 
  (action_tile "a3" "(setq ll 420 hh 297)") 
  (action_tile "a4" "(setq ll 297 hh 210)") 
  (action_tile 
    "accept" 
    "(setq h_v (get_tile \"ver\"))(done_dialog 1)" 
  ) 
  (action_tile "cancel" "(done_dialog)") 
  (setq std (start_dialog)) 
  (unload_dialog dcl_id) 
  (vl-file-delete fn) 
  (if (= h_v "1") 
    (setq ww ll 
          ll hh 
          hh ww 
    ) 
  ) 
  (if (> std 0) 
    (htk) 
  ) 
  (XD::End) 
  (princ) 
)

zhangq_cai1 · 发表于 2014-11-28 11:01:52

把线改为(setq jxk (ssname (xdrx_line_make startPnt endPnt) 0)）就能等分。如果是(setq jxk (xdrx_polyline_make t pt pt5 pt6 pt7))就出错。http://bbs.xdcad.net/thread-676272-2-1.html我用pl画线也出错

zhangq_cai1 · 发表于 2014-11-28 11:03:58

st788796 发表于 2014-11-28 09:28
只有最后一段需要把 10 加括号, 其他没有问题

我把程序拷过来，试了不能等分。我用的是2014.11.9日的API，是不是等分程序更新了

st788796 · 发表于 2014-11-28 11:06:17

zhangq_cai1 发表于 2014-11-28 11:01
把线改为(setq jxk (ssname (xdrx_line_make startPnt endPnt) 0)）就能等分。如果是(setq jxk (xdrx_polyl ...

xdrx_line_make 返回值是选择集!

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

[曲线] (XD::Curve:NumDiv)曲线定距或定数分割点

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

求直线的交点

点评

点评