请问如何 插入单个cad文件
请问如何 插入单个cad文件，有时候需要把cad文件整个插入新图中，可以用lisp做出一个快捷键，直接插入文件吗，我直接用了插入的命令，后面接文件路径，不行啊，不知道为啥，哪位给提供个方案啊 谢谢本帖最后由 wyl219 于 2019-12-2 16:54 编辑
xj6019 发表于 2019-12-1 21:54
按照你的添加路径到可搜索列表 直接添加文件名 这个法子省事好用
我搜索这弄了个代码我就是想要这个 ...
(defun c:I8 ()
(CMDLA0)
;(setq pt (getpoint "\n插入点<退出>"));注释掉,后面手动选择.
(command "-insert" "DWG" pause "" "" "")
(CMDLA1)
)
直接把pt修改为pause,仅测试这句代码没错误,不过我之前也没尝试过这个,不知道是不是有别的原因.
另外修改lsp后本来就不能自动加载.几个办法.
1.将修改后的lsp文件拖放到cad绘图区,会自动加载并覆盖同名命令\函数等
2.写一个辅助程序,内容就是加载该文件,大致如下:
(defun c:tt () (load "路径" ))
3.在程序的第一行加入加载语句,如下:
(defun c:ttt ( /)
(load "d:/1.lsp");自加载该文件
(print "4")
(princ)
)
修改保存后,再执行一次,此时执行的是修改前的程序,执行后将用新程序覆盖原程序,再次执行时将执行新程序.
本帖最后由 xj6019 于 2019-12-1 21:55 编辑
wyl219 发表于 2019-12-1 21:19
由于某些有具体作用的字符没有具体的表现,例如换行,因此设计了转义符来代替,例如\n被当做换行符,\r被当作回 ...
按照你的添加路径到可搜索列表 直接添加文件名 这个法子省事好用
我搜索这弄了个代码我就是想要这个效果的只是无奈自己不会加预览能麻烦您给加上吗 非常感谢
我只知道预览是pause 可是加上 代码就不能正常运行 能预览的话就完美了
以下是代码麻烦给拾掇拾掇谢谢
(defun c:I8 ()
(CMDLA0)
(setq pt (getpoint "\n插入点<退出>"))
(command "-insert" "DWG" pt"" "" "")
(CMDLA1)
)
(DEFUN C:I8()
(vl-cmdf "insert""D:\図面\施工図資料\常用\標注線型2.dwg" pause"1" "1" "0")
)
(princ)
)
这个可用只是还需要点三次回车搞了一会了 还是不行 你们帮我看看怎么搞
我不需要确认角度和比例只要插入后鼠标能捕捉放到一个地方就好 (command "-INSERT" 路径) 谢谢回答 用了一下 直接放在盘符下才行 只要有文件夹分支路径都不能成功 不知道为什么哪怕多一个文件夹都不行我也已经改过英文了 不可用 只要在电脑上都可以的我也不知道你的为什么不行
是不是的只输入了文件名没有加路径
加了路径应该都没有问题, taoyi0727 发表于 2019-12-1 17:31
只要在电脑上都可以的我也不知道你的为什么不行
是不是的只输入了文件名没有加路径
加了路径应该都没 ...
你试试多几个文件夹 你的函数真不能用 (DEFUN C:I8()
(vl-cmdf "insert" (getfiled "打开" "E:\\桌面\\" "dwg" 0) pause"1" "1" "0")
(princ)
)
我的还是没有问题 是不是你要插入不起的那些,文件版本比你现在的CAD版本高的问题
我这里本都OK,都能用 谢谢楼上
我也服了快崩溃了搞了好久了 不知道咋回事了
再说明一下
我不需要确认角度和比例只要插入后鼠标能捕捉放到一个地方就好
谁有空帮我搞搞
....路径中的\应该用\\或/代替.
否则会被当成转义符.
如果块位置集中,且名字无歧义,可以把块所在目录加入到cad支持路径,直接用文件名代替路径就行
页:
[1]
2