chg 发表于 2004-3-3 16:31:00

怎样用lisp把一个DWG文件当做块插入到当前的图中？

我用命令-insert插入时不可以选择路径，请问有什么方法可以输入路径，或是让函数到指定的路径中寻找，但我不希望把某个路径设置为系统默认路径，否则要设置的路径就太多了。请各位大虾指点。谢谢               。

xandy 发表于 2004-3-3 19:16:00

用INSERT啊~

meflying 发表于 2004-3-3 20:56:00

本帖最后由 作者 于 2004-3-6 13:06:14 编辑

(setq filename "e:\a.dwg")


(command "_.insert" filename ...);后面根据需要输入参数


这样在取得filename时就可以根据你的需要选择合适的路径了

tukuitk 发表于 2004-3-6 12:58:00

同意飞哥！

chg 发表于 2004-3-12 15:24:00

多谢了，有时候就是这么简单，没想到就怎么也不行。：）

liyunlong 发表于 2004-3-24 22:51:00

再来一个对话框选择的话！就可以实现块图形化界面的块插入！然后给每一个附上属性值！是插入完再定义属性！提取属性成为一个表格啊！这样的方法可以到一做图形化的设计！

cqnj023 发表于 2004-3-24 22:59:00

使用


(setq filename (getfiled "请选择" "" "dwg" 4))


(command "_.insert" filename ...)


则可以交互选择，

bpf19880323 发表于 2011-7-15 18:07:02

回复 meflying 的帖子

你好，我想编一个插入阀门的程序，由于是初学lisp，想一步一步来，先把插入块弄懂来，可是第一步就卡住了，我按的方法弄了下 还是没办法找到那个dwg文件呢运行的时候就跳出来CAD的文本框，框内容如下：命令: 88

"Program FilesAutoCAD 2004SupportAA.DWG": 在搜索路径中未找到文件:
C:\Tangent\TWT8\(当前目录)
E:\鹏飞\2011\H合浦\2011新\5#\
C:\Tangent\TWT8\SYS\
C:\Tangent\TWT8\SYS16\
C:\Documents and Settings\Administrator\Application Data\Autodesk\AutoCAD
2004\R16.0\chs\SUPPORT\
C:\Program Files\AutoCAD 2004\SUPPORT\
C:\Program Files\AutoCAD 2004\FONTS\
C:\Program Files\AutoCAD 2004\HELP\
C:\Tangent\TWT8\DWB\
C:\Program Files\AutoCAD 2004\drv\
C:\Program Files\AutoCAD 2004\
*无效*

功能取消!; 错误: *error* 函数中出错参数类型错误: lentityp #<SUBR @0628244c
<EXRXSUBR>>，
忘您帮忙解决下，在此谢谢了.

ZZXXQQ 发表于 2011-7-15 20:45:33

7楼说的非常明白。
(defun c:tt ()
(setvar "CMDECHO" 0)
(setq nm (if nm nm ""))
(if (setq nm (getfiled "选择插入的图块" nm "dwg" 4))
(command "_.INSERT" nm PAUSE "" "" "")
)
(setvar "CMDECHO" 1)
(princ)
)

1078815748 发表于 2011-7-15 22:59:28

页: [1] 2
查看完整版本: 怎样用lisp把一个DWG文件当做块插入到当前的图中？