aicr317 发表于 2009-8-30 00:12:00

批量写块

<p>谁有批量写块的程序，达到效果步骤如下</p><p>1，输入块名</p><p>2，选择需要做成块的实体</p><p>其中，保存到哪个文件夹可以是事先设定好的。</p><p></p><p>我这个有问题，帮忙改一下，我要保存的文件名是刚才输入的块名：</p><p>(defun c:123 ()</p><p>(setq name (getstring "\请输入块名:"))<br/>(command "wblock" "d:\\name.dwg" "" '(0 0 0) (ssget) "")<br/>)</p>

phoenixdjq 发表于 2009-8-30 07:14:00

(command "wblock" <font color="#ff0000">(strcat "d://" name ".dwg")</font>&nbsp; '(0 0 0) (ssget) "")

AMTONNY 发表于 2009-8-30 08:46:00

<p>(defun c:ww ()<br/>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; (prompt "\n快速写块")<br/>(setq name (getstring "\请输入块名:"))<br/>(setq p1 (getpoint "\n请指定基点:"))</p><p>(strcat "E://" name ".dwg")&nbsp;<br/>&nbsp; (setq a (ssget))<br/>&nbsp; (command "_copybase" "0,0" a "")<br/>(command "Wblock" name "" p1 a"" )<br/>&nbsp; (command "_pasteclip" "0,0" "")<br/>)这样写还是设定不到路径哦</p>

liminnet 发表于 2009-8-30 09:29:00

AMTONNY 发表于 2009-8-30 21:29:00

<p>四楼光说不动,这种小程序对你这种大师可是小菜一碟哦</p><p></p>
页: [1]
查看完整版本: 批量写块