在当前图中插入图块文件时，该块名就为原文件名，怎样把它在插入过程中变为无名块？

NetBee · 发表于 2003-6-24 13:25:00

由于我在绘图过程中要大量使用插入图块文件的LISP程序
但在当前图中插入图块文件时，该块名就为原文件名，这样在使用过程中，很易被重新定义，怎样把图块文件在插入过程中变为无名块？

龙龙仔 · 发表于 2003-6-24 16:24:00

;;我好像在XDCAD中已回答过这问题
;;BY 龙龙仔(LUCAS)
(defun C:TT (/ BLK BLKDEF BLKREF)
  (while
(or (not (setq BLK (car (entsel "\n选择要改为匿名块的图块: "))))
(progn
   (setq BLKREF (vlax-ename->vla-object BLK))
   (not (= (vla-get-objectname BLKREF) "AcDbBlockReference"))
)
)
  )
  (setq
BLKDEF (vla-item (vla-get-blocks
         (vla-get-activedocument (vlax-get-acad-object))
      )
      (vla-get-name BLKREF)
   )
  )
  (vla-put-name BLKDEF "*U")
  (vlax-release-object BLKREF)
  (vlax-release-object BLKDEF)
  (princ)
)

dwgplt · 发表于 2003-6-24 21:05:00

提示: 作者被禁止或删除内容自动屏蔽

spring · 发表于 2003-6-24 21:57:00

bhrx · 发表于 2003-10-3 05:36:00

怎么给匿名块添上名称啊？

killer9806 · 发表于 2006-10-27 23:47:00

谢谢版主的解答，真的好

xhq1954425 · 发表于 2007-7-24 06:57:00

我看不明白，但要替楼主说声谢谢人家的解答！

waynechen · 发表于 2009-12-1 13:01:00

看明白了

nishuihanjian · 发表于 2019-4-26 08:40:22

龙龙仔发表于 2003-6-24 16:24
;;我好像在XDCAD中已回答过这问题
;;BY 龙龙仔(LUCAS)
(defun C:TT (/ BLK BLKDEF BLKREF)

龙龙版主，能否点选块改为框选并显示夹点，点选的时候老实看不见不知道选中哪个了或者有没有选到

h2295 · 发表于 2024-4-23 15:47:10

龙龙仔发表于 2003-6-24 16:24
;;我好像在XDCAD中已回答过这问题
;;BY 龙龙仔(LUCAS)
(defun C:TT (/ BLK BLKDEF BLKREF)

匿名块要怎么调用呢？我在匿名块中有文字需要批量导出到xls

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

dwgplt dwgplt 当前离线积分 1369 明经币个注册时间 2002-9-15 在线时间小时威望金钱个贡献激情	发表于 2003-6-24 21:05:00 \| 显示全部楼层提示: 作者被禁止或删除内容自动屏蔽

	回复支持反对使用道具举报显身卡

在当前图中插入图块文件时，该块名就为原文件名，怎样把它在插入过程中变为无名块？

我好像在XDCAD中已回答过这问题

先在命令行輸入 (VL-LOAD-COM) 試試看