[求助]：如何将图块文件插入后使其为无名块（如何将有名块变为无名块）？

netbee · 发表于 2003-8-15 13:54:40

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

我有一个图块，将其存为块文件后，当我用insert块插入命令插入后，块名为文件名，但我想使其为无名块，该如何进行哟？

snsj · 发表于 2003-8-15 15:16:11

最初由 netbee 发布
[B]我有一个图块，将其存为块文件后，当我用insert块插入命令插入后，块名为文件名，但我想使其为无名块，该如何进行哟？ [/B]

(defun c:ttest (/ tt apple_sel apple_nnblk)
(vl-load-com)
(setq tt t)
(while tt
(setvar "errno" 0)
(setq apple_sel (entsel "\n选择要改为匿名块的图块: ")
)
(if (/= (getvar "errno") 7)
(setq tt nil)
)
)
(setq apple_nnblk (vlax-ename->vla-object(car apple_sel)))
(if (= (vla-get-objectname apple_nnblk) "AcDbBlockReference")
(progn
(vla-put-name
(vla-item (vla-get-blocks
(vla-get-activedocument (vlax-get-acad-object))
)
(vla-get-name apple_nnblk)
)
"*U"
)
)
(princ "\n######---选择物体非块---######")
)
(princ)
)

aeo · 发表于 2003-8-16 01:24:00

倒过来,无名块改名

(defun c:blkname (/ a blk blks name new)
(prompt "\n请选择图块")
(if (and
(setq a (car (entsel)))
(setq name (cdr (assoc 2 (entget a))))
(setq new (getstring "\new-name:"))
(setq blks (vla-get-blocks (vla-get-activedocument
(vlax-get-acad-object)
)
)
)
(not (tblsearch "block" new))
)
(progn
(setq blk (vla-item blks name))
(command"undo""group")
(vla-put-name blk new)
; (vla-update blk)
(command"undo""end")
)
)
)

snsj · 发表于 2003-8-16 10:20:52

AEO这样改名字好像不能起到真正的改名的作用，双击编辑时候还是提示匿名块，我还没有想出真正用ACTIVEX的方法完全把匿名块变为插入块的方法，现在只知道对块重定义管用，但又不知道控制BLOCK的：转化为块、保留、删除怎么控制？另外程序的vla-update应该是(vla-update obj),应该改为(vla-update (vlax-ename->vla-object a))吧

aeo · 发表于 2003-8-17 12:49:36

我机器上很好呀. 双击和ddinsert里都是新的名字.
(vla-update blk),好像可以不要,不过昨天是试的好好的.(我还看着它闪了一下.)
不过上面的blk确实是object。

现在用undo取代.没undo用其他的如"晓东"要出错.
但是自己制造一个随便的错误就不出错了,不知是为什么?

LUCAS · 发表于 2003-8-18 11:04:12

Update Method
Updates the object to the drawing screen.
Signature
object.Update
Object Application, All Drawing Objects, AttributeRef The object or objects this method applies to.

即Update Method對AcadBlockReference才會有效, 對AcadBlock無效。

;;思路: ACTIVEX的方法
;;1.把匿名块改名称。
;;2.建立一个图块定义，名称及内含对象与修改后的匿名块相同。

snsj · 发表于 2003-8-18 14:20:38

最初由 LUCAS 发布
[B]Update Method
Updates the object to the drawing screen.
Signature
object.Update
Object Application, All Drawing Objects, AttributeRef The object or objects this method applies to.

即Update Me... [/B]

LUCAS，你说的是这样么：

(defun c:ttest1 (/ tt apple_sel apple_nnblk inspt)
(vl-load-com)
(setq tt t)
(while tt
(setvar "errno" 0)
(setq apple_sel (entsel "\n选择要改为匿名块的图块: ")
)
(if (/= (getvar "errno") 7)
(setq tt nil)
)
)
(setq apple_nnblk (vlax-ename->vla-object(car apple_sel)))
(if (= (vla-get-objectname apple_nnblk) "AcDbBlockReference")
(progn
(setq inspt (vlax-safearray->list
(vlax-variant-value(vla-get-InsertionPoint apple_nnblk)
)
)
)
(vla-put-name
(vla-item (vla-get-blocks
(vla-get-activedocument (vlax-get-acad-object))
)
(vla-get-name apple_nnblk)
)
"0"
)
(command ".block" "0" inspt apple_sel "")
(command ".oops")
)
(princ "\n######---选择物体非块---######")
)
(princ)
)

(defun c:ttest1 (/ tt apple_sel apple_nnblk inspt) 
(vl-load-com) 
  (setq tt t) 
   (while tt 
     (setvar "errno" 0) 
     (setq apple_sel (entsel "\n选择要改为匿名块的图块: ") 
           ) 
     (if (/= (getvar "errno") 7) 
      (setq tt nil) 
       ) 
     ) 
(setq apple_nnblk (vlax-ename->vla-object(car apple_sel))) 
(if (= (vla-get-objectname apple_nnblk) "AcDbBlockReference") 
  (progn 
 
(setq inspt (vlax-safearray->list 
(vlax-variant-value(vla-get-InsertionPoint apple_nnblk) 
  ) 
)          
       ) 
(vla-put-name 
      (vla-item (vla-get-blocks 
                       (vla-get-activedocument (vlax-get-acad-object)) 
                     ) 
                (vla-get-name apple_nnblk) 
                ) 
        "0"             
      )   
 
 (command ".block" "0" inspt apple_sel "") 
 (command ".oops") 
) 
  (princ "\n######---选择物体非块---######") 
 
) 
  (princ) 
)

还是无法解决图形中的图块转化后直接存在在块列表中直接可以用REFEDIT进行编辑：（

netbee · 发表于 2003-8-18 14:23:04

我根据楼上的改成了函数：
不知行不行？

;;;===========================
;;将已知图块变为无名块并返回新无名块名*U____
;;BLK　已知图块名
;;num　无名块索引名
;;图中有"test"块时(ReBlock "test") 返回：*U1
;;图中无"tset"块时(ReBlock "tset") 返回：nil
(defun ReBlock (BLK / BLKDEF num)
(if (tblobjname "BLOCK" BLK)
(progn
(setq BLKDEF (vla-item
(vla-get-blocks
(vla-get-activedocument (vlax-get-acad-object))
)
BLK
)
)
(vla-put-name BLKDEF "*U")
(setq
num (CDR (ASSOC 2 (ENTGET (vlax-vla-object->ename Blkdef))))
)
(vlax-release-object BLKDEF)
num
)
(not t)
)
)

LUCAS · 发表于 2003-8-18 17:05:18

snsj兄:

;;思路: 把匿名块改回正常图块
;;1.取得匿名块内对象集
;;2.把匿名块改名称。
;;3.建立一个正常图块定义
;;4.把1项中对象加入至新建立的图块定义中。

cooldream · 发表于 2003-12-15 09:18:47

用了你上面的程序，把正常图块变匿名块可以，但反过来就不可以~

ywx0576 · 发表于 2003-12-26 13:44:02

用了你上面的程序，把正常图块变匿名块可以，但反过来就不可以：在特性框里是看到名字变了，但想插入时找不到该名字的块。

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

[求助] [求助]：如何将图块文件插入后使其为无名块（如何将有名块变为无名块）？

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

Re: [求助]：如何将图块文件插入后使其为无名块（如何将有名块变为无名块）？