批量写块

aicr317

谁有批量写块的程序，达到效果步骤如下

1，输入块名

2，选择需要做成块的实体

其中，保存到哪个文件夹可以是事先设定好的。

我这个有问题，帮忙改一下，我要保存的文件名是刚才输入的块名：

(defun c:123 ()

(setq name (getstring "\请输入块名:"))
(command "wblock" "d:\\name.dwg" "" '(0 0 0) (ssget) "")
)

phoenixdjq

(command "wblock" (strcat "d://" name ".dwg")  '(0 0 0) (ssget) "")

AMTONNY

(defun c:ww ()
      (prompt "\n快速写块")
(setq name (getstring "\请输入块名:"))
(setq p1 (getpoint "\n请指定基点:"))

(strcat "E://" name ".dwg") 
  (setq a (ssget))
  (command "_copybase" "0,0" a "")
(command "Wblock" name "" p1 a"" )
  (command "_pasteclip" "0,0" "")
)这样写还是设定不到路径哦

AMTONNY

四楼光说不动,这种小程序对你这种大师可是小菜一碟哦