怎样用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、最重要的是，每运行一次该程序，创建的块就会包含上一次运行时创建的图形！
请飞哥帮忙看一下，谢谢了！！！

;;;
(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 90))
((AND (> AG2 30) (<= AG2 210)) (- AG2 90))
((AND (> AG2 210) (<= AG2 360)) (- AG2 270))
)
)
(setq var1 (getvar "osmode"))
(setvar "osmode" 0)
(SSADD (ENTLAST) BL)
(setq attref (vla-addattribute
blockObj
3
acAttributeModePreset
"粗糙度值"
(vlax-3D-point pt5)
"CCD"
"3.2"
))
(vla-rotate attref (vlax-3D-point pt5) attang)
(vla-addlightweightpolyline
blockObj
(list->VariantArray 2dpts)
)
(setq blk (vla-insertblock
mSpace
(vlax-3D-point pt2)
"KR_CCD"
1
1
1
0
)
)
(setvar "osmode" var1)
)

;;; 
(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 90)) 
                     ((AND (> AG2 30) (<= AG2 210)) (- AG2 90)) 
                     ((AND (> AG2 210) (<= AG2 360)) (- AG2 270)) 
               ) 
  ) 
 
  (setq var1 (getvar "osmode")) 
  (setvar "osmode" 0) 
  (SSADD (ENTLAST) BL) 
 (setq attref (vla-addattribute 
    blockObj 
    3 
    acAttributeModePreset 
    "粗糙度值" 
    (vlax-3D-point pt5) 
    "CCD" 
    "3.2" 
  )) 
  (vla-rotate attref (vlax-3D-point pt5) attang) 
  (vla-addlightweightpolyline 
    blockObj 
    (list->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

自己看看吧

(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对象是对块的引用而已，它并不是一个块。
已经给你写出了功能实现了，剩下的还不简单？你说了你很努力的，怎么也跟别人一样，就知道让别人写完整的，不自己思考。完成龙龙仔给你的任务那股劲怎么没了？

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