怎样用VL写一个含属性参照的块

tukuitk

不是的，我不是想要别人给我写完整的程序，我大多数时候都是先已经写出了程序，但我想看看你们是怎么写的，以此来比较一下，从而找出更好的方法！
我一直把Block和Insert对象看成了一回事，看了你上面的回答，好像顿开茅塞一样了！谢谢你！！！

tukuitk

飞哥，我冒着被骂的危险，又要问你一个低级问题了，希望你能回答我 *^_^*
我把你定义的块插入到图中了，但属性参照的位置变了。我想这是我没有把属性参照的对齐点和插入点是怎么回事，它们有什么样的关系没有弄明白！飞哥你给我解答一个吧，谢谢您了！！！
(defun c:test (/ pt doc pl att pt2 p block blocks)
  (setq pt (getpoint "Enter the insert position:"))
  (setq doc (vla-get-activedocument (vlax-get-acad-object)))
  (setq blocks (vla-get-blocks doc))
  (setq block (vla-add blocks (vlax-3d-point pt) "hello"))
  (setq pt2 (polar pt 0 15))
  (setq p (vlax-make-safearray vlax-vbdouble '(0 . 3)))
  (vlax-safearray-fill
    p
    (list (car pt) (cadr pt) (car pt2) (cadr pt2))
  )
  (setq pl (vla-AddLightweightPolyline block p))
  (setq        att (vla-Addattribute
              block
              3.5
              0
              "HELLO"
              (vlax-3d-point pt)
              "hello1"
              "hello2"
            )
  )
  (vla-insertblock
    (vla-get-ModelSpace doc)
    (vlax-3d-point pt)
    "hello"
    1
    1
    1
    0
  )
  (princ)
)

meflying

这是一个UCS和WCS的问题，你还是得慢慢把他们搞明白了，你定义时这样：
  (setq att (vla-Addattribute
       block
       3.5
       0
       "HELLO"
       (vlax-3d-point '(0 0 0))
       "hello1"
       "hello2"
     )
  )

tukuitk

搞不懂！这里面有好多插入点，vla-add blocks 有个插入点、vla-Addattribute有个插入点、vla-insertblock 有个插入点，它们到底有什么关系？飞哥……

meflying

说了，不要什么都问，你自己好好看书，关于坐标系的，要慢慢去理解

tukuitk

Yes sir!

tukuitk

飞哥，你看，帮助文件如下说：



三处都说是WCS呀？

meflying

那个ADD你仔细看看，他是对整个块的插入点是WCS，但是里面的子对象并未说明。定义属性时是WCS，但插到块里呢？

tukuitk

哦！原来是这样的！

tukuitk

这是我写的一个粗糙度标注程序：
请指教！


用KRCCD运行！