[编程交流] 需要Lisp警报功能

(defun c:ib (/ a blo)
 (prompt "The Block you select will be inserted")
(setq a (cdr(assoc 2 (entget(car(entsel"\nSelect a Block: "))))))
(while (setq blo(getpoint"\nInsertion Point :"))
           (command "_insert" a blo "" "" "" ))
(princ "Written by Tharwat")
(princ))

(defun c:ib (/ elist etype input)
   (if
     
     (setq input (car (entsel"\nSelect a Block: ")))
     (progn
(setq elist (entget input))
(setq etype (cdr (assoc 0 elist)))
(if
  (= etype "INSERT")
  (alert (strcat etype " , {"(cdr (assoc 2 elist)) "} selected "))
  (alert (strcat etype " selected"))
  )
)
     (alert "No point picked")
     )
   )

(ssget ":S" '((0 . "INSERT")))

(defun c:ib( / OldOsnap InsPoint theBlock )
(setvar "CMDECHO" 0)
(setq OldOsnap (getvar "OSMODE"))
(prompt "\nThe Block you select will be inserted: ")
(if (setq theBlock (ssget ":S" '((0 . "INSERT"))))
 (progn
  (setq theBlock (cdr (assoc 2 (entget (ssname theBlock 0)))))
  (while (setq InsPoint (getpoint "\nInsertion Point :"))
   (setvar "OSMODE" 0)
   (command "_INSERT" theBlock InsPoint "" "" "")
   (setvar "OSMODE" OldOsnap)
  )
 )
 (prompt "\Nothing selected!")
)
(setvar "OSMODE" OldOsnap)
(princ)
)

(ssget "_+.:E:S" '((0 . "INSERT")))