求助插入图框的一个思路！

yangw761 · 发表于 2010-12-21 20:51:35

自己是个新手，一个绘制图框的思路，有一步不知道该怎么处理，请各位大侠指定一下，谢谢！

1、指定插入点；
2、指定图幅A2，A3，A4；
3、根据输入的图幅绘制图框的外轮廓线；
4、插入带属性的标题栏块；
5、将插入的属性块炸开；
6、将第三步绘制的图框外轮廓线及第五步炸开的属性块一同制作为一个块，块名为第二步输入的图幅名（A2，A3，A4）

第六步中，红色文字表述的内容不知道该怎么用lisp来实现
请各位大侠指定一下，谢谢！

ZZXXQQ · 发表于 2010-12-21 21:59:32

为什么这么复杂？直接插入带属性的图框不行吗？

chpmould · 发表于 2010-12-21 22:35:31

这么复杂直接插入即可。。。

yangw761 · 发表于 2010-12-22 21:22:37

直接插入需要做几种不同的图框，
现在只需做有相同内容的标题栏即可！

ZZXXQQ · 发表于 2010-12-22 21:30:37

那不炸开标题栏不行吗？

yangw761 · 发表于 2010-12-22 21:42:24

主要是需要将标题栏和用lisp绘制的外轮廓线再做成一个名称为A2(或者A3，A4)的块。如果不将标题栏炸开，块属性就不显示了。

bai2000 · 发表于 2010-12-22 21:42:40

应该和这个结合在一起，会更好一些http://bbs.mjtd.com/thread-84595-2-1.html

yangw761 · 发表于 2010-12-22 21:43:13

ZZXXQQ 发表于 2010-12-22 21:30
那不炸开标题栏不行吗？

主要是需要将标题栏和用lisp绘制的外轮廓线再做成一个名称为A2(或者A3，A4)的块。如果不将标题栏炸开，块属性就不显示了。

masterlong · 发表于 2010-12-23 00:15:35

(setq tkss (ssget .....)) ;你绘制的图框轮廓线
(command "insert" "index" pause 1 1 0)
(command "explode" "l")
(setq xx (ssget "p"))
(setq i 0)
(repeat (sslength tkss)
(setq xx (ssadd (ssname tkss i) xx))
(setq i (1+ i))
)
(command "block" "a2" 图框插入点 xx "" )

虽然给出了代码
不过还是要指出来
楼主的思路并不好
既然是标准的带属性的图签
针对一个工程
将图签块改名
比如"index”改为"index_某工程"
再用编辑参照命令添加上工程名等固定信息
然后每个空图框copy配上图签
对楼主的应用来说应该会更方便

yangw761 · 发表于 2010-12-23 20:08:34

先谢谢楼上兄弟的代码！！

关于您建议的回复：一个工程光有统一的工程名称是不够的，还需要图纸名称、图纸编号等其他的相关信息，这也是每张图都不一样的原因。

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

求助 插入图框 的一个思路！

求助插入图框的一个思路！