Block command in an AutoLISP script.

[identity4]

Hey all,

I'm relatively new to the AutoLISP thing, and i'm a bit stuck on a flex-duct script I am trying to write. I want my script to draw a line, then make that line into a block with the insertion point at the midpoint of the line. For some reason I cannot get the script to make my block and insert it into the drawing. Can anybody point out what I could be doing wrong, or where I can find some information on using the "block" command in AutoLISP?

I have attached the script I am working on for anybody to poke through.

FlexDuct2.lsp

[Tharwat]

Things like this ... ?

(defun c:Test (/ i p1 p2 l Blockname mid)
  (setq i 1)
  (if (setq p1 (getpoint "\n Specify point :"))
    (while
      (setq p2 (getpoint p1 "\n Next point :"))
       (setq l (entmakex (list '(0 . "LINE") (cons 10 p1) (cons 11 p2))))
       (while (tblsearch "BLOCK" (setq Blockname (strcat "Line" (itoa i))))
         (setq i (1+ i))
       )
       (command "_.-block" Blockname (setq mid (mapcar (function (lambda (p1 p2) (/ (+ p1 p2) 2.)))
                                  p1
                                  p2
                          )
                )
                l
                ""
       )
       (command "_.-insert" Blockname mid "" "" "")
       (setq p1 p2)
    )
    (princ)
  )
  (princ)
)

[identity4]

Exactly! There are a lot of bits and syntax's in here that I don't quite understand, but the script works great and looks like it will plug into my code real well.

[Tharwat]

Happy to hear that