孤独客 发表于 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 )<BR>       (setq doc (vla-get-ActiveDocument (vlax-get-acad-Object))<BR>        mod (vla-get-modelspace doc)<BR>        ins (vlax-3d-point '(0 0 0))<BR>        blks (vlax-get-property doc 'Blocks)<BR>        blkf (vlax-invoke-method blks 'Add ins "NEW_BLK")<BR>        )<BR>       (setq lineobj (vlax-invoke-method<BR>                       blkf<BR>                       'AddLine<BR>                       (vlax-3d-point '(0 0 0))<BR>                       (vlax-3d-point '(10 10 0))<BR>               )<BR>        attrobj (vlax-invoke-method<BR>                       blkf<BR>                       'AddAttribute<BR>                       3.0<BR>                       acAttributeModeConstant<BR>                       "MyPrompt"<BR>                       ins<BR>                       "MyTag"<BR>                       "MyValue"<BR>                       )<BR>        )<BR>       (setq blkref (vlax-invoke-method mod 'InsertBlock (vlax-3d-point '(100 100 0)) "NEW_BLK" 1 1 1 0))<BR>;;;       (vlax-dump-object blkf t)        <BR>)

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

谢谢版主
页: [1]
查看完整版本: 请大哥大姐帮忙