* E Posta Adresiniz:
* Kodu Girin:

> 1 <
İleti Yazar
02.07.2018 15:42
86443    
hasantursun

[3] Kıdemli Girişimci

Online Durumu

27 ileti
makine müh.

Arkadaşlar, bir çizimde 40 adet block mevcut, ben bunun 15 ini başka bir block ile değiştirmek istiyorum, bu konuda yardımcı olabilirmisiniz.

02.07.2018 18:04
86444    
hasantursun

[3] Kıdemli Girişimci

Online Durumu

27 ileti
makine müh.

Arkadaşlar yokmudur bu konuda bilgisi olan.

02.07.2018 22:37
86445    
alumina

[70] Editör

Online Durumu

601 ileti
Insaat Muhendisi
Istanbul

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)
)

03.07.2018 13:12
86446    
hasantursun

[3] Kıdemli Girişimci

Online Durumu

27 ileti
makine müh.

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)
)


03.07.2018 13:14
86447    
hasantursun

[3] Kıdemli Girişimci

Online Durumu

27 ileti
makine müh.

verdiğiniz lispi nereye nasıl kopi yapacaktım, çok önceleri yapmıştım ama işlemi hatırlayamadım. İzah ederseniz sevinirim. Kısa yol tuşu nedir onuda söyleyebilirmisiniz.


hasantursun (03.07.2018 15:52 GMT)

> 1 <
Copyright © 2004-2018 | Tüm Hakları Saklıdır | 2504 | Site haritası | İstatistikler | Hakkımızda | Kadromuz | Gizlilik | Reklam