[转帖]LISP匿名块程序：

龙龙仔 · 发表于 2006-1-24 12:20:00

(setq BLKREF (vlax-ename->vla-object (car (entsel))))
(vla-put-name
(vla-item (vla-get-blocks
       (vla-get-activedocument (vlax-get-acad-object))
     )
     (vla-get-name BLKREF)
)
"*U"
)

asdf159 · 发表于 2006-1-26 18:33:00

嘿嘿，龙兄真是高手啊，以后多指教！！

userzhl · 发表于 2006-2-4 16:36:00

本帖最后由作者于 2006-2-4 20:18:41 编辑

4楼的程序非常的好

userzhl · 发表于 2006-2-4 16:37:00

本帖最后由作者于 2006-2-4 20:19:47 编辑

哪位高手可不可以把4楼的程序改成这样子：

①定义插入点②先选择(要做成块的对象)后执行命令③所建成的块的图层指定到——“图块(层)”

龙龙仔 · 发表于 2006-2-7 14:32:00

1.先选择(要做成块的物件)后执行命令
2.定义插入点
3.所建成的块的图层指定到--"图块(层)"

userzhl · 发表于 2006-2-8 09:48:00

谢谢龙龙仔！

asdf159 · 发表于 2006-2-11 09:56:00

以下是引用龙龙仔在2006-1-24 12:20:47的发言：
(setq BLKREF (vlax-ename->vla-object (car (entsel))))
(vla-put-name
(vla-item (vla-get-blocks
...

龙龙仔：我用上面的程序把多重应用的匿名块改为正常块后，再怎么都不能提取改块了！也不能修改、打散等，老是提示“未找到主键”，怎么解决？？附件里面的块“119”就是原来多重应用块“*U117”改名的来的，然后这个块就不能提取了。有什么办法吗？？

龙龙仔 · 发表于 2006-2-13 08:11:00

匿名块不能直接改回正常块的

http://www.xdcad.net/forum/showthread.php?s=&threadid=519029

asdf159 · 发表于 2006-2-13 12:51:00

那上面附件里面的块就提取不出来了吗？

龙龙仔 · 发表于 2006-2-13 14:24:00

你到底有看18楼的贴子吗?

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

[转帖]LISP匿名块程序：

本帖子中包含更多资源

本帖子中包含更多资源