[求助]：急用,有劳帮忙解决

07506802312

(defun C:tra (/      HOLDPICKBOX          HOLDECHO    HOLDEDGEMODE
        N      SS        LEN          DIST    ENT
        ENT1      PT10        PT11      TLEN
           )
  (setq HOLDECHO (getvar "CMDECHO"))
  (setvar "CMDECHO" 0)
  (command "_.UNDO" "GROUP")
  (setq N 0)
  (setq SS (ssget '((0 . "LINE"))))
  (setq LEN (sslength SS))
  (setq DIST (getint "\n请输入距离:"))
  (setq HOLDPICKBOX (getvar "PICKBOX"))
  (setvar "PICKBOX" 0)
  (setq HOLDEDGEMODE (getvar "EDGEMODE"))
  (setvar "EDGEMODE" 1)
  (vl-cmdf "_.lengthen" "de" (* -1 DIST) "")
  (repeat LEN
    (setq ENT1 (ssname SS N))
    (setq ENT (vlax-ename->vla-object ENT1))
    (setq PT10 (vlax-curve-getstartpoint ENT))
    (setq PT11 (vlax-curve-getendpoint ENT))
    (if    (= (sslength (ssget "c" PT10 PT10)) 1)
      ;;?Ν?玡碞祇瞷(ssget "c" PT10 PT10)?PICKBOX紇?
      ;;讽癸?罽??ぶ?,(ssget "c" PT10 PT10)临琌穦匡?ぃ?翴???ン
      (progn
    (vl-cmdf "_.lengthen" "de" "" PT10 "")
    (setq TLEN (vlax-curve-getdistatpoint
             ENT
             (vlax-curve-getendpoint ENT)
           )
    )
    (setq PT10 (vlax-curve-getstartpoint ENT))
    (if (= (sslength (ssget "c" PT10 PT10)) 1)
      (vl-cmdf "_.EXTEND"
           SS
           ""
           (list ENT1 PT10)
           ""
      )
    )
    (if
      (equal
        TLEN
        (vlax-curve-getdistatpoint ENT (vlax-curve-getendpoint ENT))
      )
       (vl-cmdf "_.UNDO" 2)
    )
      )
    )
    (if    (= (sslength (ssget "c" PT11 PT11)) 1)
      (progn
    (vl-cmdf "_.lengthen" "de" "" PT11 "")
    (setq TLEN (vlax-curve-getdistatpoint
             ENT
             (vlax-curve-getendpoint ENT)
           )
    )
    (setq PT11 (vlax-curve-getendpoint ENT))
    (if (= (sslength (ssget "c" PT11 PT11)) 1)
      (vl-cmdf "_.EXTEND"
           SS
           ""
           (list ENT1 PT11)
           ""
      )
    )
    (if
      (equal
        TLEN
        (vlax-curve-getdistatpoint ENT (vlax-curve-getendpoint ENT))
      )
       (vl-cmdf "_.UNDO" 2)
    )
      )
    )
    (setq N (1+ N))
  )
  (setvar "PICKBOX" HOLDPICKBOX)
  (setvar "EDGEMODE" HOLDEDGEMODE)
  (command "_.UNDO" "END")
  (setvar "CMDECHO" 0)
  (princ)
)