18.11.2013 22:15    

given

---

---

19.11.2013 08:08    

Alıntı

---

Harbi65 :

Alıntı

---

boratensa :
örneğin farklı uzunluklarda 10 adet çizgi seçtim ve bu 10 adet çizginin uzunluğunun da 5 birim olarak aynı anda değiştiriyim. çizgilerin başlangıç noktaları sabit kalacak şekilde kısaltması ya da uzatması lazım bu önemli.

---

Kod:

(defun c:CZBOY (/ Grp:Sec Yn:Boy Cz:tk Cz:dt Cz:ang Cz:11 i)
  (setvar "CMDECHO" 0)
  (command "UNDO" "GROUP")
  (if
    (setq Grp:Sec (ssget (list (cons 0 "LINE"))))
    (if
      (setq Yn:Boy (getreal "\n Çizgi boyunu girin:"))
      (progn
        (setq i -1)
        (repeat (sslength Grp:Sec)
          (setq Cz:tk (ssname Grp:Sec (setq i (1+ i))))
          (setq Cz:dt (entget Cz:tk)
                Cz:ang (angle (cdr (assoc 10 Cz:dt)) (cdr (assoc 11 Cz:dt))))
          (setq Cz:11 (polar (cdr (assoc 10 Cz:dt)) Cz:ang Yn:Boy))
          (setq Cz:dt (subst (cons 11 Cz:11) (assoc 11 Cz:dt) Cz:dt))
          (entmod Cz:dt)
          )
        )
      )
    )
  (command "UNDO" "END")
  (setvar "CMDECHO" 0)
  (princ)
  )

---

çok teşekkür ederim elleriniz dert görmesin zahmet etmişsiniz sağolun varolun

19.11.2013 21:14    

Alıntı

---

Travaci :

given

---

---

Kod:

(defun c:bbk (/ ls gr i)
   (setq ls (ssget (list (cons 0 "*text"))) i 0 gr (ssadd))
   (repeat (sslength ls)
      (if (= "B.B.K." (substr (cdr (assoc 1 (entget (ssname ls i)))) 1 6))
          (ssadd (ssname ls i) gr))
      (setq i (1+ i)))
   (sssetfirst nil gr)
   (princ)
)

---

Travaci, emegin icin sonsuz tesekkurler. Lisp gayet guzel calisiyor fakat eger mumkunse kucuk bir ricam olacakti. Acaba bu komutu calistirdigimizda hangi kelimeyi sececegini bize sormasi seklinde yapilabilir mi? B.B.K. disinda farkli kelimelerle baslayanlar icin cok isime yarayacaktir. Ilginiz icin simdiden tesekkur ederim.

19.11.2013 22:26    

That's it :)

20.11.2013 08:23    

Teşekkür ederim given :) Geldi gene her işe maydanoz demezsiniz inşallah. :)

20.11.2013 19:27    

Alıntı

---

ProhibiT :
Teşekkür ederim given :) Geldi gene her işe maydanoz demezsiniz inşallah. :)

---

Estağfurullah hocam, aksine sevindirik oluyoruz, hatta daha çok takılsanız, buralarda olup sorulara da daha fazla yanıt verseniz taddan yenmiceksiniz :)

21.11.2013 11:13    

Hocamız döndü diye parti vermemiz lazım.

22.11.2013 05:57    

Alıntı

---

ProhibiT :
İlginize teşekkür ederim arkadaşlar :) "Hafıza-i beşer nisyan ile maluldür" demiş eskiler. Bir büyüğümüz de "Unutmak insanoğluna verilmiş en büyük hediyedir" demiş. Bu anlamda yakın zamanlarda geçirdiğim bir maluliyet, bir sakatlık mıdır? yoksa bana da bir hediye mi verildi bilemiyorum ama, gerek forumda gerekse özel mesajlarla istek ve dileklerini ileten arkadaşlarımız tekrar hatırlatırlarsa, vaktimiz ve gücümüz yettiğince kaldığımız yerden devam etmek benim için keyif olur.

Bu arada miyatu arkadaşımızın mesajı kaynamasın. "Nesne Listelerinde (dxf group code) değişiklik yapmak" derken neyi kastediyoruz? Gurup kodlarını değiştirmekten mi bahsediyoruz, yoksa bu kod numaralarıyla ilişkilendirilmiş (associated) verilerden mi? Biraz daha açıklayıcı bilgi verilirse, yorum yapmak mümkün olacaktır.

---

Oncelikle tekrar hosgeldiniz.

Standart grup kodlarina eklemeler (extended data) yapmaktan bahsediyorum.

Ornek

Line nesne listesine fazladan atiyorum (1000. isitma borusu) gibi bir eklenti yapmak istiyorum.

bu bir sikinti cikarirmi...

22.11.2013 08:01    

ehya hocam aynı anda gönderdik, benim mesajım alta düştü herhalde :)
Konuya farklı bir açıdan bakmıştım...

Usulünce Oluşturulmuş Extended Data eklenmesi Genelde bir sıkıntı çıkarmaz.
Öncelikle regapp ile uygulamanızı register edip (regapp ile tanımlanan uygulamanız APPID tablosuna eklenir), -3 grup kodyla nesneyi uygulama ile (registered application) ilişkilendirdikten sonra belirlenen kurallar çerçevesinde (örneğin (1002 . "{") ve (1002 . "}") arasında yazmak gibi.

1000 grup kodlu Extended data 255 karakter uzunluğunda string türü içeriğe sahip olacağından bahsettiğiniz şekilde kullandığınızda genelde bir sıkıntı çıkmaz. Extended Data bölümü, 1000 ile 1071 arasındaki gurup kodlarından oluşur ve her biri belirli anlamlarla ilişkilendirilmiştir, başka maksatlarla kullanılamazlar. Ama bahsettiğiniz 1000 grup kodlu değişkeni düşündüğünüz amaçla kullanabilirsiniz.

Her seferinde "genelde bir hatayla karşılaşılmaz" diyorum çünki; Çiziminizi oluştururken veya sizin oluşturduğunuz çizim başka bir sistemde açılırken, xdsize (extended data için ayrılmış byte sayısı) aşıldığında hata ile karşılaşırsınız. Kendi programınızla bunu kontrollü bir şekilde yapmak mümkün. xdroom ile ayrılmış extended data bölümünü elde eder ona göre bir nesnenin (object) varlık adıyla (entity name) ilişkilendirilmiş listesine (association list) extended data eklersiniz. Bilgisyarınızda kurulu AutoCAD, başka uygulamalar (örneğin AutoCAD arhitecture, AEC, xxxx desktop vs) veya üçüncü parti yazılımlar kullanıyorsa, bunlar extended data için ayrılmış bölümleri kullanıyor olduklarında, sizin uygulamanıza yer kalmadığında hatalar oluşabilir...

22.11.2013 09:37    

miyatu kanayan yaraya parmak basmissin, ben de böyle bi seyler yapmak istiyorum ama henuz uygulamaya geciremedim. Auto Cad i Revit ten ayiran en büyük özellik nesne odakli olmayisi. Bu nesnelere ne Kadar cok özellik eklenirse o Kadar Revite yaklasir ya da nesne odakli olur. Ve dwg dosyalari acilmadan Excel ya da Access dan kontrol edilebilir.

Örn.: Fransa da yapilan cok büyük bi hastane insaatinda Access üzerinden Kapi "en"lerinin degistigini gördüm.
Revitle cizilmisti proje ve cizimi hic acmadan degisiklik yapiliyordu.

Ayni sey AutoCAD icin de kismen mümkün en azindan ATT bloklarin excelden kontrolü suan icin mümkün.
Ama miyatu gibi ben de nesnelere daha fazla özellik yükleme pesindeyim.