The topic today: Lisp AutoCAD – Associative Hatch or Merge Hatch
Shortcut command: MH
Step to step as follow:
- Load Lisp into AutoCAD
- Type MH and press Enter
- Select Hatch
- Press Enter
Code Lisp:
(defun c:mh (/ ss entht sl i dt dtht)
(princ “\nMerge Hatch”)
(setq
ss (ssget ‘((0 . “HATCH”)))
sl (if ss
(sslength ss)
0
)
i 0
l 0
)
(repeat sl
(setq
entht (ssname ss i)
dtht (getbdata entht)
dt (append dt dtht)
l (+ l (cdr (assoc 91 (entget entht))))
i (1+ i)
)
)
(setq ent (ssname ss 0)
ss (ssdel ent ss)
tt (entget ent)
duoi (member (assoc 75 tt) tt)
dau (reverse (member (assoc 91 tt) (reverse tt)))
tt (append dau dt duoi)
tt (subst (cons 91 l) (assoc 91 tt) tt)
)
(entmod tt)
(command “.erase” ss “”)
(princ)
)
(defun getbdata (ent)
(setq tt (entget ent)
tt (cdr (member (assoc 75 tt) (reverse tt)))
tt (cdr (member (assoc 91 tt) (reverse tt)))
)
)
(princ “\nMerge Hatch is loaded, please type MH to start!”)
(princ)
Download Lisp here: Link 1, Link 2
Thanks for visiting and reading AutoCADtip.com Blog!
