|
|
马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。
您需要 登录 才可以下载或查看，没有账号？立即注册
x
一键新建块，而且自动生成块名，绝对不会重复。省去复杂的建块操作，避免了重复；免费分享给大家，如果好用 ，希望大家给个支持！
生成的块名唯一，不会重复影响已有的块，省去建块复杂的操作。
;快速做块,也可以试试用CAD自带的。
(defun c:bb( / pt ss)
(if(/="0"(getvar "clayer")) (PROGN(princ"当前图层: ")(princ (getvar "clayer"))))
(vl-cmdf "copybase" (setq pt(getpoint"\n指定基点")) (setq ss(ssget)) "" "pasteblock" pt)
(command"erase" ss "");(if(/="0"(getvar "clayer")) (command "layer" "m" "0" "") (PROGN(princ"当前块图层: ") (princ (getvar "clayer")) (command "change" (ssget)"" "p" "la" "0" "" ))
(princ))
|
|
楼主