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

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

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

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

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

;;我好像在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

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

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

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

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

<P>谢谢版主的解答，真的好</P>

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

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

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

<p>看明白了</p>

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
页: [1]
查看完整版本: 在当前图中插入图块文件时，该块名就为原文件名，怎样把它在插入过程中变为无名块？