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 static/image/common/back.gif
那不炸开标题栏不行吗？

主要是需要将 标题栏 和 用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

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

关于您建议的回复：一个工程光有统一的工程名称是不够的，还需要图纸名称、图纸编号等其他的相关信息，这也是每张图都不一样的原因。
页: [1] 2
查看完整版本: 求助 插入图框 的一个思路！