模具论坛

标题: 制订无名块 [打印本页]

作者: kkkliweikkk 时间: 2011-7-21 19:13
标题: 制订无名块
可以快速制作块,无须输入块名,非常方便

作者: FANZAI 时间: 2011-7-21 19:19
;; 生成匿名块程序
(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

欢迎光临模具论坛 (https://www.mouldbbs.com/)