Help convert block to point

[tuantrinhdp]

Hi erveyone.
Please help me write lisp convert block to point. 

test.dwg

[Tharwat]

Are you after replacing blocks with point objects ?

[Tharwat]

(defun c:Test (/ int sel ent get )
  ;;----------------------------------------------------;;
  ;;	Author : Tharwat Al Choufi			;;
  ;; website: https://autolispprograms.wordpress.com	;;
  ;;----------------------------------------------------;;
  (and (princ "\nSelect blocks to replace them with point objects : ")
       (setq int -1 sel (ssget "_:L" '((0 . "INSERT"))))
       (while (setq int (1+ int) ent (ssname sel int))
         (and (setq get (entget ent))
              (entmake (list '(0 . "POINT") (assoc 10 get) (assoc 8 get)))
              (entdel ent)
              )
         )
       )
  (princ)
  )

 

[tuantrinhdp]

3 minutes ago, Tharwat said:

(defun c:Test (/ int sel ent get )
  ;;----------------------------------------------------;;
  ;;	Author : Tharwat Al Choufi			;;
  ;; website: https://autolispprograms.wordpress.com	;;
  ;;----------------------------------------------------;;
  (and (princ "\nSelect blocks to replace them with point objects : ")
       (setq int -1 sel (ssget "_:L" '((0 . "INSERT"))))
       (while (setq int (1+ int) ent (ssname sel int))
         (and (setq get (entget ent))
              (entmake (list '(0 . "POINT") (assoc 10 get) (assoc 8 get)))
              (entdel ent)
              )
         )
       )
  (princ)
  )

 

Thank you so much. 

[Tharwat]

You're welcome anytime.