请求帮忙：把参考图替换成相应的块

寒风 · 发表于 2005-1-26 10:10:00

哪位朋友给我写一个小程序，是这样的：在一个图形文件中有若干个参考图，现在要把这个参考图以块的方式存在，所以要把图中的所有参数考图都改变成块，但是保留与参数图位置及大小，插入点。

meflying · 发表于 2005-1-26 11:18:00

(defun c:test( / ss i ent ents pt blkname blk_lst)
(setq ss (ssget "x" '((0 . "INSERT"))))
(setq i 0)
(repeat (sslength ss)
(setq ent (ssname ss i))
(setq ents (entget ent))
(setq blkname (cdr (assoc 2 ents)))
(if (not (assoc blkname blk_lst))
(progn
(setq pt (cdr (assoc 10 (tblsearch "BLOCK" blkname))))
(setq blk_lst (append blk_lst (list (list blkname pt))))
)
)
(setq i (1+ i))
)
(mapcar 'Getent (mapcar 'car blk_lst) (mapcar 'cadr blk_lst))
(princ)
)
(defun Getent(blkname pt / ent ent_lst)
(setq ent (tblobjname "BLOCK" blkname))
(while (setq ent (entnext ent))
(setq ent_lst (append ent_lst (list ent)))
)
(Makeblk ent_lst pt blkName)
)
(defun Makeblk(ent_lst pt blkName)
(entmake (list
'(0 . "BLOCK")
(cons 2 blkname)
'(70 . 0)
(cons 10 pt)))
(mapcar '(lambda(e) (entmake (entget e))) ent_lst)
(entmake '((0 . "ENDBLK")))
)

(defun c:test( / ss i ent ents pt blkname blk_lst)
   (setq ss (ssget "x" '((0 . "INSERT"))))
   (setq i 0)
   (repeat (sslength ss)
       (setq ent (ssname ss i))
       (setq ents (entget ent))
       (setq blkname (cdr (assoc 2 ents)))
       (if (not (assoc blkname blk_lst))
           (progn
  (setq pt (cdr (assoc 10 (tblsearch "BLOCK" blkname))))
  (setq blk_lst (append blk_lst (list (list blkname pt))))
           )
       )
       (setq i (1+ i))
   )
   (mapcar 'Getent (mapcar 'car blk_lst) (mapcar 'cadr blk_lst))
   (princ)
)
(defun Getent(blkname pt / ent ent_lst)
   (setq ent (tblobjname "BLOCK" blkname))
   (while (setq ent (entnext ent))
       (setq ent_lst (append ent_lst (list ent)))
   )
   (Makeblk ent_lst pt blkName)   
)
(defun Makeblk(ent_lst pt blkName)
   (entmake (list
             '(0 . "BLOCK")
             (cons 2 blkname)
             '(70 . 0)
             (cons 10 pt)))
   (mapcar '(lambda(e) (entmake (entget e))) ent_lst)
   (entmake '((0 . "ENDBLK")))
)

寒风 · 发表于 2005-1-26 11:38:00

不行啊，我要的是，用相同的文件以块的形式插进来，然后替换掉相应的参考图。但要保持相同的大小与插入点。

meflying · 发表于 2005-1-26 11:42:00

不明白，你传个图上来说明一下问题吧

寒风 · 发表于 2005-1-26 12:28:00

这是DWG文件里面有说明.

mccad · 发表于 2005-1-26 12:45:00

外部参照可以通过程序变成块：
1.需要更改系统变量：BINDTYPE为1
2.使用-xref中的B选项，给予外部参照名称就可以改过来。

寒风 · 发表于 2005-1-26 13:14:00

哦，可以了，不用写程序了，谢谢各位.

寒风 · 发表于 2005-1-26 13:16:00

那有办法反过来改变吗

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

请求帮忙：把参考图替换成相应的块

本帖子中包含更多资源