special ends on line object

[JerryFiedler]

Greetings,
I am using AutoCad LT 09. I am looking for a way (lisp routine) to draw a line from point to point that has a "set back" at each end of the line. The line would look and act similar to a leader on a dimension but the set back would be at both ends. See the attached image as an example.
The end of the line would still be at the nodes to which it was drawn but the line would appear to be a bit short at each end. In the example the line object ends (handles) would be at the center of the I-shape objects.

Thank you, in advance, to anyone who can shed some light on this.
Jerry

[NBC]

First of all, you state you are using LT; LT does not have the capability to utilise LSP functions without the aid of some form of add-on, such as LT Extender.
One way to achieve the results you desire, would be to create a block which contains no objects; then create a new Dimension Style.
Within the newly created Dimension Style it would be possible to set the "arrowhead" to be the block you created earlier. This would then give the impression of there being a gap at the ends of the 'line'. Then create dimensions, instead of lines between the column positions

[JerryFiedler]

NBC, thank you for your idea. My LT does have an extender and we use all sorts of lisp routines.
I will give your dimension style a shot.

[Lee Mac]

Just a quick one

(defun c:lback (/ tmp p1 p2)

  (or *def (setq *def 0.1))
  (or (not (setq tmp (getdist (strcat "\nSpecify Set Back <" (rtos *def) "> : "))))
      (setq *def tmp))

  (if (and (setq p1 (getpoint "\nSpecify First Point: "))
           (setq p2 (getpoint p1 "\nSpecify Second Point: ")))
    (progn
      (setq p1 (trans p1 1 0) p2 (trans p2 1 0))
      (setq p1 (polar p1 (angle p1 p2) *def)
            p2 (polar p2 (angle p2 p1) *def))

      (entmake (list (cons 0 "LINE")
                     (cons 10 p1)
                     (cons 11 p2)))))

  (princ))