求助各位版主，小弟我块疯掉了！（可再续！）

simon8001

    我最近一直在做铁路方面的工程图纸设计，库文件也做好了，路径什么的也都弄好了。可是在自动生成图纸的时候，就出现了问题。有一个接口的CAD图，然后不断的调用库里面有属性定义的块，通过对属性的配对修改来生成工程图纸，就在这里出现问题了，按照顺序修改属性定义总是会出现错！
    我现在就想知道关于上面提到的在一个空白的CAD图中插入带有属性定义的块，然后对定义的属性进行修改的资料。这几天我查资料，看书都没能找到合适的，所以向各位版主求救！
    救救俺这个可怜的孩子吧！！我真的快疯了！
这种半糊涂半明白的状态真的很折磨人呀！   我是真心求助的！

snddd2000

试试vl函数呢，根据属性名赋值

simon8001

回复 snddd2000 的帖子

我用的是纯lisp函数！

snddd2000

2000版后的vlisp的函数不用的？

simon8001

回复 snddd2000 的帖子

使用  就是关于VLA 那里的一系列函数 我没有再去学习和研究

snddd2000

恩，如果你传统的lisp搞不定，可以试试(vlax-put-property obj property arg)

simon8001

回复 snddd2000 的帖子

那我还得需要继续学习VLA的相关函数了，以我的个人经验和现在做的层次来看，应该可以完成的，我现在却的是这方面的资料，急缺呀！  谢谢你！！！

simon8001

龙龙仔, ZZXXQQ, alin, caoyin, Gu_xl 等各位版主 还有各位高手  可以帮助我下吗，我是真的憋住动不了了。

yarp

我的做法是把块写在dxf文件内，然后再import dxf文件。
对属性的取得我有一个简单的例子。
(defun c:tt ( / blockObj)
(setq blockObj (vlax-ename->vla-object (entlast)))
(setq attrbs (vla-GetAttributes blockObj))
         ;;设置第一个标签
         (if (setq attrb
                    (car (vlax-safearray->list (vlax-variant-value attrbs))
                    )
             )
           (vla-put-TextString attrb "我输入的值")
         )
)

simon8001

回复 yarp 的帖子

谢谢 热心的你！ 我可以参考下！