[求助]快速做块

xiaobaixiaobu

yjr111 发表于 2013-1-24 00:06
一句话就够了
(defun c:bb()(vl-cmdf "copybase" (setq pt(getpoint"\n指定基点")) (ssget) "" "pastebloc ...

但是原来的选择对象还存在！

混沌初开

sbyniay 发表于 2007-10-13 17:13
什么都别装,浪费空间.直接用 SHIFT+CTRL+C 后  SHIFT+CTRL+V就行了(这是CAD自有的)

道友你说的是“基点复制”，楼主要的是“快速建块”目的可能是图元不会被误删。

混沌初开

yjr111 发表于 2013-1-24 00:06
一句话就够了
(defun c:bb()(vl-cmdf "copybase" (setq pt(getpoint"\n指定基点")) (ssget) "" "pastebloc ...

用您的方法创建了很多块，怎么把创建的块删掉？（[color=Red]说明：在cad里键入指令“i”里面有个下拉菜单，里面有很多快速建块的名称，怎么删除它们）

混沌初开

yjr111 发表于 2013-1-24 00:06
一句话就够了
(defun c:bb()(vl-cmdf "copybase" (setq pt(getpoint"\n指定基点")) (ssget) "" "pastebloc ...

类似于数控里的“宏程式”。果然是高手啊！

千指魔王

高手很多，多多向人家学习