3维空间直线两端同时按给定距离延长

rln007

求助:如何将3维空间直线两端同时按给定距离延长?

淮上

LENGTHEN 命令就搞定了

rln007

LENGTHEN如何将3维空间直线两端同时按给定距离延长?请给出代码示例

rln007

    (command "line" ptq ptz "")

    (setq el (entlast))

    (setq curve-obj (vlax-ename->vla-object el))

    (setq ptdis (vlax-curve-getPointAtDist curve-obj 10))

    (setq lenga (vlax-curve-getDistAtParam curve-obj(vlax-curve-getEndParam curve-obj)))
    (setq ptdise (vlax-curve-getPointAtDist curve-obj (- lenga 10)))
    (setq ptq (vlax-curve-getStartPoint curve-obj))
    (setq ptz (vlax-curve-getEndPoint curve-obj))
    (setq ssH (ssget "c" ptq ptdis))
    (setq mzH (ssname ssH 0))
  
    (command "_.lengthen" "de" offset mzH "" "");一端延长

    (setq ssH (ssget "c"  ptdise ptz ))
    (setq mzH (ssname ssH 0))
    (setq qH (entget mzH))(command "_.lengthen" "de" offset mzH "" "");另一端延长

可是结果是一端延长两次而不是两端延长,请高手指点

caoyin

图原名en,起点p1,终点p2，演唱距离di

(setq di (/ di 2.0))

(command "_.lengthen" di (list en p1) (list en p2) "")

rln007

已解决,谢谢版主

magicheno

学习啦！！！！