[编程申请]：保持图块比例不变的 图块替换

dzyh

功能需要::1,a,b图块比例不同！a替换b后各自图块比例不变!!
                  2 a替换b后 ,a旋转角度与b相同
         3  能够框选,选择一个之后框选相同块名的图块
之前曾又一个但需要加载好多不常用程序.故请大家帮忙

honza

不用程序，改用xXREF

potato_201

2楼楼主能说清楚吗，不太明白啊

xshrimp

[PHP];;替换框选的所有块,其余的块不变。
;;shrimp 2005.07.26
(defun C:blkrp ( / ss BlkName blkname2 ents i)
  (setvar "osmode" 0)
  (princ "\n请选择作为源块的图块:")
  ;(setq ss (ssget (list (cons 0 "INSERT"))))
  (setq sssname "INSERT")
  (setq ss (sselect sssname))  
  (setq BlkName (cdr (assoc 2 (entget (car ss)))))  
  (princ "\n请选择将替换的图块:")
  (setq ss1 (ssget (list (cons 0 "INSERT"))))
  (setq blkname2 (cdr (assoc 2 (entget (ssname ss1 0)))))
  (if ss1
    (progn
      (setq i 0)
      (repeat (sslength ss1)
        (setq ents (entget (ssname ss1 i)))
        (setq ents (subst (cons 2 BlkName) (assoc 2 ents) ents))
        (entmod ents)
        (setq i (1+ i))
      );end repeat
    );end progn
  );end if
  (princ)
) ;end defun
(defun Sselect (sssname)
  (setq m 1)
  (while m      
      (setq ss1 (entsel))      
      (cond
      ((not ss1)
                      (prompt "\n错误:你什么都没有选择!")
                      )
      ;加此段可强制选择sssname的物体.选择别的物体没用.
      ((/= sssname (cdr (assoc 0  (entget (car ss1)))))
                (prompt "\n错误:你选择的物体不匹配")
                       )
      (t (prompt "\n...OK_...") (setq m nil))
     );cond
  );while m
  ss1
);end defun
[/php]

li809

上楼的程序，好用