Alıntı

---

alumina :

Alıntı

---

hasantursun :

---

Secilen bloklari gosterilen blokla degistirir..

Kod:

(defun c:bch (/ ss dc i ns) (vl-load-com)
  (if (and (setq ss (ssget ":L" '((0 . "insert")))
        dc (vla-get-activedocument (vlax-get-acad-object)))
          (ssget ":s" '((0 . "insert"))))
    (progn (vla-startundomark dc)
      (repeat (setq i (sslength ss))
        (setq ns (vlax-ename->vla-object (ssname ss
          (setq i (1- i)))))
        (vla-InsertBlock (vla-get-modelspace dc)
          (vla-get-InsertionPoint ns) (vla-get-EffectiveName
            (vlax-ename->vla-object (ssname (ssget "_P") 0)))
               1 1 1 (vla-get-Rotation ns)) (vla-delete ns))
      (vla-endundomark dc)
    )
  ) (prin1)
)

---