[求助]：自定义土块在哪个文件里放

露水2 · 发表于 2006-3-23 14:20:16

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

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

×

我们在用block做成内部块时，可以调用，当新建cad时这些图块就不见了。怎么让你用的内部临时图块每次使用cad时都存在。

橄榄滋味 · 发表于 2006-3-24 12:15:33

为什么不用wblock呢

xyp1964 · 发表于 2006-3-24 12:31:39

block生成的块名称及块定义仅保存在当前图形中。

露水2 · 发表于 2006-3-24 12:57:03

其实这样子的
我自己写个lsp，其中tree在其他的cad图中就没有了，怎么让这个块放在某个文件夹里，每次打开其他cad时这个块都在，这时下面的程序才能用，这样每次都不用再定义块tree了，直接用test命令就可以了种树.

(defun c:test ()
(setq en (entsel))
(command "measure" en "b" "tree" "" "1000")
)

xyp1964 · 发表于 2006-3-24 13:36:17

最初由露水2 发布
[B]其实这样子的
我自己写个lsp，其中tree在其他的cad图中就没有了，怎么让这个块放在某个文件夹里，每次打开其他cad时这个块都在，这时下面的程序才能用，这样每次都不用再定义块tree了，直接用test命令就可以了种树.... [/B]

用wblock生成外部块并放到CAD路径下！

露水2 · 发表于 2006-3-25 22:56:40

我用wblock然后放在搜索路径下
再加载(defun c:test ()
(setq en (entsel))
(command "measure" en "b" "tree" "" "1000")
)
还是不行

xyp1964 · 发表于 2006-3-25 23:14:53

程序没问题，估计还是路径的问题。
证明tree.dwg是否在搜索路径下：(findfile"tree.dwg")

露水2 · 发表于 2006-3-26 13:24:35

只要能找到这到这个块就可以执行了，但是找不到，把这个块也放在搜索路径里了但是还是不行的。哈哈哈，有点不好意思了，其实通过线形也可以种树，但是这样不好修改。还是我的这个思路适合我自己。

xyp1964 · 发表于 2006-3-26 15:37:46

如果(findfile"tree.dwg") 无结果，证明不在路径下！！！

露水2 · 发表于 2006-3-26 18:36:51

是可以找到的路径会显示在命令栏里，我再想想其他思路吧，有问题再给你信息。谢谢还是要说的。

xyp1964 · 发表于 2006-3-26 20:04:06

这样：

[FONT=courier new](defun c:test ()
(if (and (setq en (entsel "\n选择路径: "))
(findfile "tree.dwg")
)
(progn
(command "insert" "tree" ^c)
(command "measure" en "b" "tree" "" "1000")
)
(princ "\n所选块不存在! ")
)
(princ)
)[/FONT]

露水2 · 发表于 2006-3-26 21:42:12

哈哈哈哈哈哈哈
你搞定了，我就拿来用了啊，下一步我就比葫芦画瓢了。
把我的画图速度再提高几分种，节省时间做设计。你的程序大部分都不能用在r14中遗憾！我前一段用天正六时用了你的不少签名程序。你的那个等分角程序，我自己做了一个r14的做好让你给看俺看看。

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

[求助] [求助]：自定义土块在哪个文件里放

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

相关帖子