[编程交流] 阻止所有点

;insert a block on points
(defun c:b2p (/ #cmdecho blkname ss scale idx n entname edata)
(command "undo" "begin")
(setq #cmdecho (getvar "cmdecho"))
(setvar "cmdecho" 0)
(setq blkname (getstring "\n Block name : "))
(if (= blkname "")(setq blkname "Block"))
(setq ss (ssget '((0 . "POINT"))))
(if ss
(progn
(setq scale (getreal "\n Block Scale <1>: "))
(if (= scale nil)(setq scale 1))
(setq idx 0)
(setq n (sslength ss))
(repeat n
(setq entname (ssname ss idx))
(setq edata (entget entname))
(entmake (list (cons 0 "INSERT")
(cons 2 blkname)
(assoc 10 edata)
(assoc 8 edata)
(cons 41 scale)
(cons 42 scale)
(cons 43 scale)
(cons 50 0)
)
)
(entdel entname)
(setq idx (1+ idx))
)
(princ "\n\n Done!")
)
(princ "\n Not point(s) selected(s)!")
)
(setvar "cmdecho" #cmdecho)
(command "undo" "end")
(princ))

(defun c:TesT (/ Blkname ss)
 ;; Tharwat 12. Oct. 2011 ;;
 (if (and (setq Blkname (getstring T "\n Name of Block :"))
          (tblsearch "BLOCK" Blkname)
          (setq ss (ssget '((0 . "POINT"))))
     )
   ((lambda (i / ss1 e in x)
      (while
        (setq ss1 (ssname ss (setq i (1+ i))))
         (setq e (entget ss1))
         (entmakex (list '(0 . "INSERT")
                         (cons 2 Blkname)
                         (assoc 10 e)
                         '(41 . 1.)
                         '(42 . 1.)
                         '(43 . 1.)
                   )
         )
      )
    )
     -1
   )
   (cond ((or (eq Blkname nil) (eq Blkname ""))
          (princ "\n Cancelled by the user ")
         )
         ((not (tblsearch "BLOCK" Blkname))
          (princ "\n Block name is not found !! ")
         )
         ((not ss) (princ "\n No points selected "))
   )
 )
 (princ)
)