求一个写块小程序

wuqiu1986 · 发表于 2012-11-26 09:22:39

phoenixdjq 发表于 2012-11-26 08:58
(defun c:j()

(command "md" "D:\\项目\\图纸\\#空军酒店")
(command "md" "D:\\项目\\图纸\\#阳光家园")
这两段代码好像有问题或者多余啊，去掉一样能运行，貌似md不是CAD命令。还有如果图块命名已经存在于图中，会有问题，让程序执行不太顺利。另外就是顺利操作之后，原图上的相应图元不存在了

wuqiu1986 · 发表于 2012-11-26 09:33:08

可以在(command "-wblock" wenjianming mingzi)后面加上一行代码，（command "oops"）来恢复原图。学到不少东西，谢谢

phoenixdjq · 发表于 2012-11-26 09:56:52

这两段代码好像有问题或者多余啊，去掉一样能运行，貌似md不是CAD命令。还有如果图块命名已经存在于图中，会有问题，让程序执行不太顺利。另外就是顺利操作之后，原图上的相应图元不存在了

这两段代码，我没有做判断，就是帮你建文件夹，如果你确定已经有这个文件夹，就去掉吧
在语句前面加上“；”就行了，以后就不执行了

phoenixdjq · 发表于 2012-11-26 09:58:15

4.写块的内容在原图上被删除了~~~
这个我不是很清楚，你的意思

ZZXXQQ · 发表于 2012-11-26 10:41:57

;......
(command "-block" (setq mingzi (getstring "\n 输入块名:")) pause (ssget) "")
(command "oops")
;......

半听可乐 · 发表于 2012-11-26 11:21:53

非常好用！感谢大家热心相助！

半听可乐 · 发表于 2012-11-26 11:22:59

对了，输入块名之后能不能让空格也能确定？

phoenixdjq · 发表于 2012-11-26 12:09:20

我用06版，试过可以的
你用什么版本的cad

phoenixdjq · 发表于 2012-11-26 12:26:15

有两个帖子没看到，现在解释一下

md是建立文件夹的命令，是cad兼容的dos命令，dos命令已经淘汰很多年了
这次为了你的要求，就用上了，lisp本身应该也有建立文件夹的命令，没研究过那么深入。

半听可乐 · 发表于 2012-11-26 12:41:40

phoenixdjq 发表于 2012-11-26 12:09
我用06版，试过可以的
你用什么版本的cad

我的CAD是2004的

账号		自动登录	找回密码
密码			注册

求一个写块小程序

点评