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

bpf19880323 · 发表于 2011-7-16 08:52:03

回复 ZZXXQQ 的帖子

没有呀你好像误解我的意思了，我是想把自己的块放入一个.dwg文件里，然后通过一个lisp文件
直接调出这个块，然后插入固定的点，不知道能不能做到，忘您指教。

bpf19880323 · 发表于 2011-7-16 08:57:11

回复 ZZXXQQ 的帖子

也就是想调用ACD里德insert命令，我根据2楼的编了下，如下：

(defun c:88 ()
(setvar "CMDECHO" 0)
(setq filename "D:\软件安装\cad2004\support\aa.dwg")
(setq enl (getpoint))
(command "-insert" filename s '1 enl '0 "")
)
可是会找不到路径呢

zwqgdhl · 发表于 2011-7-16 09:16:46

哈哈，这个方法倒还真没有试过，路过先学习了

ZZXXQQ · 发表于 2011-7-16 11:29:40

如果是插入dwg图中其它图块，可以这样：
(defun c:tt ()
(setvar "CMDECHO" 0)
(setq nm (if nm nm ""))
(if (setq nm (getfiled "选择插入的图块" nm "dwg" 4)) (progn
  (setq knm (getstring "\n块名 :"))
  (command "_.INSERT" nm ^C)
  (command "_.INSERT" knm PAUSE "" "" "")
))
(setvar "CMDECHO" 1)
(princ)
)

bpf19880323 · 发表于 2011-7-17 01:13:50

回复 ZZXXQQ 的帖子

谢谢版主哦，已经好了，研究出来了一项，再次谢谢你，好人一生平安

shalei021647 · 发表于 2011-11-15 14:29:35

meflying 发表于 2004-3-3 20:56
(setq filename "e:\a.dwg")

老大厉害啊

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