制订无名块

kkkliweikkk

可以快速制作块,无须输入块名,非常方便

FANZAI

;; 生成匿名块程序
(defun C: oo (/ pt sset n slen name)
(prompt "\nSelect Objects:")
(setq sset (ssget))
(setq pt (getpoint "\nInsert point: "))
(while(/= sset nil)
(entmake
(list '(0 . "BLOCK") '(2 . "*u") '(70 . 1) (cons 10 pt))
)
(setq n 0)
(if sset
(progn
(setq slen (sslength sset))
(repeat slen
(entmake (cdr (entget (ssname sset n))))
(setq n (+ n 1))
);_repeat
(setq name (entmake '((0 . "ENDBLK"))))
(entmake (list '(0 . "INSERT")(cons 2 name)(cons 10 pt)))
(command "erase" sset "")
)
(princ "\nNo Objects Selected!")
);_if
(setq sset (ssget))
)
(princ)
);_defun