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

tukuitk · 发表于 2003-11-7 12:47:00

请问各位大虾，怎样用VL写一个含属性参照的块？
块中的线用 AddLightweightPolyline 画，
实现的效果就像我们插入一个事先做好了的含属性参照的块一样。
能举个例子吗？谢谢您！！！

tukuitk · 发表于 2003-11-7 13:09:00

无名块中可以含属性参照吗？

meflying · 发表于 2003-11-7 13:31:00

线为什么要用AddLightweightPolyline画？
象你这种效果就没有任何必要做一个程序了，你做一个属性块，用时插入不就可以了吗？

tukuitk · 发表于 2003-11-7 13:48:00

我的程序中的那个块中的图形要参数化（即用AddLightweightPolyline画的部分和属性参照的文字高度）！所以就要编个程序了。

meflying · 发表于 2003-11-7 14:25:00

怎么总是有人回答只回答一半？
我问为什么要AddLightweightPolyline画，不管用什么画，只要画出来是你需要的不可以吗？

tukuitk · 发表于 2003-11-7 14:49:00

噢！SORRY！
只要画出来就行，若能用最巧的方法画出来更好！
我说用AddLightweightPolyline画是因为对象就要少一些，谬论！^_^

tukuitk · 发表于 2003-11-7 15:10:00

我试着写了一下，但有几个问题：
1、创建了块和属性参照，但属性参照看不见。
2、若用创建无名块，属性参照也看不见。
3、属性参照的对齐方式及对齐点、旋转角度不会设置。
4、最重要的是，每运行一次该程序，创建的块就会包含上一次运行时创建的图形！
请飞哥帮忙看一下，谢谢了！！！

copy


;;;
(defun testBlk (/ pt pt1 t2 pt3 pt4 selectedObj ag)
  (setq adoc (vla-get-ActiveDocument (vlax-get-acad-object)))
  (setq mSpace (vla-get-ModelSpace adoc))
  (setq entc (car (entsel)))
  (while (= (car (setq pt (grread 2 4))) 5)
    (setq pt (cadr pt))
    (setq pt2 (vlax-curve-getClosestPointTo entc pt t))
    (SETQ ag (ANGLE pt2 pt))
    (SETQ pt1 (POLAR pt2 (- ag (/ PI 6)) (/ 10 (cos (/ pi 6)))))
    (SETQ pt3 (POLAR pt2 (+ ag (/ PI 6)) (/ 5 (cos (/ pi 6)))))
    (SETQ pt4 (POLAR pt2 (- ag (/ PI 6)) (/ 5 (cos (/ pi 6)))))
    (setq 2dpts (apply 'append (mapcar '3d->2d (list pt1 pt2 pt3 pt4))))
  )
  (setq blocks (vla-get-blocks adoc))
  (setq blockObj (vla-add blocks (vlax-3D-point pt2) "KR_CCD"))
  (setq        pt5 (polar pt2 ag (+ 0.5 5 (/ 3 2)))
        ag2 (/ (* ag 180) PI)
  )
  (setq        attang (COND (( AG2 30) ( AG2 210) (VariantArray 2dpts)
  )  
  (setq        blk (vla-insertblock
              mSpace
              (vlax-3D-point pt2)
              "KR_CCD"
              1
              1
              1
              0
            )
  )
  (setvar "osmode" var1)
)

还有，我想用GRREAD函数实现动态，但没成功！

meflying · 发表于 2003-11-7 15:31:00

自己看看吧

copy


(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"))
  (princ)
)

tukuitk · 发表于 2003-11-7 16:21:00

刚才网线有问题，不好意思！
这个程序运行后没有看见块呢！但运行后用insert命令倒可以插入刚才建的块。
改为运行后就可看见块，怎样解决呢！（还要用vla-insertblock吧！）
每运行一次该程序，创建的块就会包含上一次运行时创建的图形！
请你看看我上面那个程序，帮忙完善一下！谢谢！！！

meflying · 发表于 2003-11-7 17:00:00

你还没理解块是个什么东西。
块是看不见的，是存在数据库中，你插入的只是一个INSERT对象（你用ENTGET查看），INSERT对象是对块的引用而已，它并不是一个块。
已经给你写出了功能实现了，剩下的还不简单？你说了你很努力的，怎么也跟别人一样，就知道让别人写完整的，不自己思考。完成龙龙仔给你的任务那股劲怎么没了？

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

发表回复

精选推荐

浏览过的版块