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 static/image/common/back.gif
(command "xref" "a"
          "C:\\Program Files\\AutoCAD 2006\\Support\\qm1.dwg"
上面这二行指令，改成
...

非常感谢 啊，问题解决

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

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


谢谢热情帮助

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

baoxiaozhong 发表于 2015-11-30 05:58 static/image/common/back.gif
(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 static/image/common/back.gif
那是你的原图檔要求用附着方式，所以你要开启原图檔，把那些参考檔用附着方式参照。

明白，谢谢
页: [1] 2
查看完整版本: 用如下程序插入的是外部参照，怎么能改成为插入成普通图块呢，求助！