请大哥大姐帮忙

孤独客 · 发表于 2004-9-25 21:36:00

怎么用ＶＬＩＳＰ定义一个带属性的快

xyp1964 · 发表于 2004-9-25 21:41:00

可以用wblock命令生成块文件，这样会更简单些。

孤独客 · 发表于 2004-9-26 16:34:00

请问老哥我是一个VLISP初学者怎么用COMMAND使用这个命令呢谢谢

meflying · 发表于 2004-9-26 18:56:00

可以看看帮助文件啊

王咣生 · 发表于 2004-9-26 22:04:00

例子:
(vl-load-com)
(defun C:AddAttributeBlkRef ( / doc ins blks blkf )
   (setq doc (vla-get-ActiveDocument (vlax-get-acad-Object))
mod (vla-get-modelspace doc)
ins (vlax-3d-point '(0 0 0))
blks (vlax-get-property doc 'Blocks)
blkf (vlax-invoke-method blks 'Add ins "NEW_BLK")
)
   (setq lineobj (vlax-invoke-method
   blkf
   'AddLine
   (vlax-3d-point '(0 0 0))
   (vlax-3d-point '(10 10 0))
   )
attrobj (vlax-invoke-method
   blkf
   'AddAttribute
   3.0
   acAttributeModeConstant
   "MyPrompt"
   ins
   "MyTag"
   "MyValue"
   )
)
   (setq blkref (vlax-invoke-method mod 'InsertBlock (vlax-3d-point '(100 100 0)) "NEW_BLK" 1 1 1 0))
;;;    (vlax-dump-object blkf t)
)

di0rzkolntl.bmp

孤独客 · 发表于 2004-10-1 16:06:00

谢谢版主

请大哥大姐帮忙

发表回复

精选推荐