用如下程序插入的是外部参照，怎么能改成为插入成普通图块呢，求助！

lengyan · 发表于 2015-11-29 20:18:06

如题，怎么能改成为插入成普通图块呢，求助！

革天明 · 发表于 2015-11-29 20:26:17

帮顶一下，留个脚印

baoxiaozhong · 发表于 2015-11-30 05:58:48

(command "xref" "a"
"C:\\Program Files\\AutoCAD 2006\\Support\\qm1.dwg"
上面这二行指令，改成
(command "-insert" "C:\\Program Files\\AutoCAD 2006\\Support\\qm1.dwg" "0,0" "1" "1" "0"

hoongdou · 发表于 2015-11-30 12:19:53

路过。。。。。。。。。

香田里浪人 · 发表于 2015-11-30 21:24:27

(defun c:cr ()
(setvar "cmdecho" 0)
  (while (setq pt (getpoint "\n-->请选取插入点:"))
  (command "insert" "qm1.dwg" pause 1 1 0)
  (command "_.explode" "L")
  (command "_.chprop" "P" "" "LA" (getvar "CLAYER") ""))
(princ)
)

lengyan · 发表于 2015-12-3 13:17:17

baoxiaozhong 发表于 2015-11-30 05:58
(command "xref" "a"
"C:\\Program Files\\AutoCAD 2006\\Support\\qm1.dwg"
上面这二行指令，改成
...

非常感谢啊，问题解决

lengyan · 发表于 2015-12-3 13:18:02

香田里浪人发表于 2015-11-30 21:24
(defun c:cr ()
(setvar "cmdecho" 0)
(while (setq pt (getpoint "\n-->请选取插入点:"))

谢谢热情帮助

lengyan · 发表于 2015-12-3 23:02:09

baoxiaozhong 发表于 2015-11-30 05:58
(command "xref" "a"
"C:\\Program Files\\AutoCAD 2006\\Support\\qm1.dwg"
上面这二行指令，改成
...

在64位CAD2012时问题，但是在32位的机子上运行时却出错

baoxiaozhong · 发表于 2015-12-4 05:45:52

那是你的原图檔要求用附着方式，所以你要开启原图檔，把那些参考檔用附着方式参照。

lengyan · 发表于 2015-12-4 20:59:45

baoxiaozhong 发表于 2015-12-4 05:45
那是你的原图檔要求用附着方式，所以你要开启原图檔，把那些参考檔用附着方式参照。

明白，谢谢

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

[已解答] 用如下程序插入的是外部参照，怎么能改成为插入成普通图块呢，求助！

本帖子中包含更多资源

相关帖子

本帖子中包含更多资源