请问如何 插入单个cad文件

xj6019

请问如何 插入单个cad文件，有时候需要把cad文件整个插入新图中，可以用lisp做出一个快捷键，直接插入文件吗，我直接用了插入的命令，后面接文件路径，不行啊，不知道为啥，哪位给提供个方案啊 谢谢

wyl219

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

wyl219 发表于 2019-12-1 21:19
由于某些有具体作用的字符没有具体的表现,例如换行,因此设计了转义符来代替,例如\n被当做换行符,\r被当作回 ...

按照你的添加路径到可搜索列表   直接添加文件名 这个法子省事好用
我搜索这弄了个代码  我就是想要这个效果的  只是无奈自己不会加预览  能麻烦您给加上吗 非常感谢
我只知道预览是  pause   可是加上 代码就不能正常运行   能预览的话就完美了
以下是代码  麻烦给拾掇拾掇  谢谢
(defun c:I8 ()
  (CMDLA0)
  (setq pt (getpoint "\n插入点<退出>"))
  (command "-insert" "DWG" pt  "" "" "")
  (CMDLA1)
  )

xj6019

(DEFUN C:I8()
(vl-cmdf "insert""D:\図面\施工図資料\常用\標注線型2.dwg" pause  "1" "1" "0")
    )
(princ)
)

这个可用  只是还需要点三次回车  搞了一会了 还是不行   你们帮我看看怎么搞
我不需要确认角度和比例  只要插入后鼠标能捕捉放到一个地方就好

taoyi0727

(command "-INSERT" 路径)

xj6019

谢谢回答   用了一下   直接放在盘符下才行   只要有文件夹分支路径都不能成功   不知道为什么  哪怕多一个文件夹都不行  我也已经改过英文了   不可用

taoyi0727

只要在电脑上都可以的  我也不知道你的为什么不行
是不是的只输入了文件名  没有加路径
加了路径应该都没有问题,

xj6019

taoyi0727 发表于 2019-12-1 17:31
只要在电脑上都可以的  我也不知道你的为什么不行
是不是的只输入了文件名  没有加路径
加了路径应该都没 ...

你试试多几个文件夹    你的函数真不能用

taoyi0727

(DEFUN C:I8()
        (vl-cmdf "insert" (getfiled "打开" "E:\\桌面\\" "dwg" 0) pause  "1" "1" "0")
        (princ)
)
我的还是没有问题

taoyi0727

是不是你要插入不起的那些,文件版本比你现在的CAD版本高的问题
我这里本都OK,都能用

xj6019

谢谢楼上
我也服了  快崩溃了  搞了好久了   不知道咋回事了
再说明一下
我不需要确认角度和比例  只要插入后鼠标能捕捉放到一个地方就好
谁有空帮我搞搞  

wyl219

....路径中的\应该用\\或/代替.
否则会被当成转义符.
如果块位置集中,且名字无歧义,可以把块所在目录加入到cad支持路径,直接用文件名代替路径就行