home *** CD-ROM | disk | FTP | other *** search
/ Liren Large Software Subsidy 13 / 13.iso / p / p047 / 4.ddi / TY / CHABLK.LSP < prev    next >
Encoding:
Text File  |  1989-10-16  |  527 b   |  18 lines
  1. ; (setq s1 (cons (assoc 2 ss1) (list (assoc 41 ss1))))
  2. ; (setq s2 (cons (assoc 2 ss2) (list (assoc 41 ss2))))
  3. ;chablok.lsp
  4. (defun C:CB ( )
  5.   (setq ss1 (entget (car (entsel "old block:"))))
  6.   (setq ss2 (entget (car (entsel "new block:"))))
  7.   (setq s1 (assoc 2 ss1))
  8.   (setq s2 (assoc 2 ss2))
  9.   (setq ss1 (subst s2 s1 ss1))
  10.   (setq s1 (assoc 41 ss1))
  11.   (setq s2 (assoc 41 ss2))
  12.   (setq ss1 (subst s2 s1 ss1))
  13.   (setq s1 (assoc 42 ss1))
  14.   (setq s2 (assoc 42 ss2))
  15.   (setq ss1 (subst s2 s1 ss1))
  16.   (entmod ss1)
  17. )
  18.