Sosyal Medya

Bülten Aboneliği
*  E-posta adresiniz:



* Güvenlik kodu:
Önceki Sayfa [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [15] [20] [25] [30] [35] [40] [45] [50] [55] [60] [65] [70] [75] > 77 <
İleti Yazar
26.01.2017 11:09
84606      




alumina

[70] Editör

Online Durumu

535 ileti
Insaat Muhendisi
Istanbul

Alıntı
kartal07 :


Degistirilemez, ekleyemez.

01.02.2017 06:00
84615      




mikemoon

[10] Üstad

Online Durumu

341 ileti
makina ressamı
istanbul

selam arkadaşlar

içi dolu slot deliği normal içi boş slot deliğe nasıl çevirebilirim.bununla alakalı toplu seçim yapıp normale çevirebileceğim bir lisp varmıdır.

01.02.2017 06:08
84616      




ehya

[90] Yönetici

Online Durumu

3009 ileti
Teknik Ressam
Ankara

nesneyi görmeden birşey söylenmez.
o nesneleri dwg olarak ekleyin.

01.02.2017 07:57
84617      




mikemoon

[10] Üstad

Online Durumu

341 ileti
makina ressamı
istanbul

dosya aşagıdaki linktedir.



Linkleri görebilmek için ÜYE olmalısınız.

01.02.2017 08:15
84619      




ehya

[90] Yönetici

Online Durumu

3009 ileti
Teknik Ressam
Ankara

Boyama, eski usül, solid komutu parça parça yapılmış.
Toplu seçim yapılarak slot nesnesine çevirebilecek kod nasıl yazılır? Fikrim yok...

01.02.2017 08:46
84620      




mikemoon

[10] Üstad

Online Durumu

341 ileti
makina ressamı
istanbul

merhaba ehya

bu tip resimlerde var aralarında bunda slotların içi farklı bunuda kontrol edebilirmisin.



Linkleri görebilmek için ÜYE olmalısınız.

01.02.2017 09:07
84621      




ehya

[90] Yönetici

Online Durumu

3009 ileti
Teknik Ressam
Ankara

mikemoon




Aşağıdaki kod işinizi görecektir.
komut ismi SLH

Kod:

(defun c:slh ()
(if (setq slh_sec (ssget (list (cons 0 "HATCH"))))
  (progn
    (setq c 0 slh_say (sslength slh_sec))
    (while (< c slh_say)
      (setq slh_tek (ssname slh_sec c))
    (command "-hatchedit" slh_tek "B" "p" "y")
    (command "_.erase" slh_tek "")
      (setq c (1+ c)))))(princ))   

01.02.2017 09:46
84622      




mikemoon

[10] Üstad

Online Durumu

341 ileti
makina ressamı
istanbul

eline sağlık süper olmuş fakat bir sorun var aşağıdaki resimdeki gibi olabilir mi.

01.02.2017 10:02
84623      




Travaci

[70] Editör

Online Durumu

1950 ileti
Teknik Ressam
Konstantinopol

Bu aşk bitmez : )

01.02.2017 10:45
84624      




ehya

[90] Yönetici

Online Durumu

3009 ileti
Teknik Ressam
Ankara

bitmez haklısın

aşağıdaki kod ihtiyacınızı görür.
umarım yeterli olur!

Kod:

(defun c:slh ()
(defun *error* (msg)
    (if (not (wcmatch (strcase msg t) "*cancel*,*exit*"))
      (progn
(setvar "osmode" os)
      (princ (strcat "\nError: " msg)))))
  (setq os (getvar "osmode"))
(if (setq slh_sec (ssget (list (cons 0 "HATCH"))))
  (progn
    (setq c 0 slh_say (sslength slh_sec))
    (while (< c slh_say)
      (setq slh_tek (ssname slh_sec c))
(vla-getboundingbox (vlax-ename->vla-object slh_tek) 'MinP 'MaxP)
(setq MinP (vlax-safearray->list MinP)
      MaxP (vlax-safearray->list MaxP)
      sagalt (list (car maxp)(cadr minp))
      solust (list (car minp)(cadr maxp)))
      (setvar "osmode" 0)
      (command "_.pline" (polar minp 0.0 (/ (distance sagalt maxp)2.0))
       (polar minp 0.0 (- (distance minp sagalt) (distance sagalt maxp)))
       "a"
       (polar (getvar 'lastpoint) (/ pi 2.0) (distance sagalt maxp))
       "l"
       (polar (getvar 'lastpoint) pi (- (distance minp sagalt)(* (distance sagalt maxp)1.5)))
       "a"
       "close")     
    (command "_.erase" slh_tek "")
    (setq c (1+ c)))
   (setvar "osmode" os) (setq *error* nil)
    ))(princ))

01.02.2017 11:04
84625      




mikemoon

[10] Üstad

Online Durumu

341 ileti
makina ressamı
istanbul

eyvallah sağolasın süper olmuş tam istediğim gibi.

01.02.2017 11:07
84626      




Travaci

[70] Editör

Online Durumu

1950 ileti
Teknik Ressam
Konstantinopol

ehya


Bu slotların layerını slot yapabilirmiyiz ? Buda olursa bence süper olur

01.02.2017 12:49
84628      




ehya

[90] Yönetici

Online Durumu

3009 ileti
Teknik Ressam
Ankara

travaci




Onu da yaparız yapmasına da. ya ondan sonra....
devam edecekse ben oynamıyorum

01.02.2017 13:12
84631      




kartal07

[2] Girişimci

Online Durumu

8 ileti
tekniker
ankara

Merhaba Arkadaşlar ;
Elimde bloğun adını,description ve layer bilgilerini değiştiren lisp var.(dialog kutusu ile).
Proje içerisinde 10 adet aynı isimde,description ve layer bilgilerine sahip blok mevcuttur.Ben 10 adet bloğun ayrı ayrı bilgilerini değiştirmek istiyorum.Bloğun birini değiştirdiğimde 10 adet bloğun bilgileri değişiyor.Bana yardımcı olabilir misiniz arkadaşlar.

01.02.2017 13:14
84632      




Travaci

[70] Editör

Online Durumu

1950 ileti
Teknik Ressam
Konstantinopol

kartal07


Seninde bildiğin üzre, patlatıp yeniden block yapıcaksın.

01.02.2017 19:05
84634      




waytooraider

[8] Kıdemli Uzman

Online Durumu

138 ileti
makine mühendisi
istanbul

Merhaba,
Attribute blokları seçip attout yaptığımızda text dosyasına o attributes ın tag değerlerini ve ayrıcada handle diye uniq o attributes a özel kod oluşturuyor o kod hariç texteki o tag değerlerini değiştirip attin yaptığımızda autocad teki attributes tagları otomatik güncelleniyor...
Böyle bir uniq kodun olduğuna emindim ve sonunda buldum.. Asıl istediğim bu attributeların oluşma zamanına müdahale etmek istiyorum... Böyle bir şey mümkün mü?

03.02.2017 18:10
84643      




hfurkang

[2] Girişimci

Online Durumu

3 ileti
inşaat mühendisi
diyarbakır

Merhaba arkadaşlar
bir konuda yardımınıza ihtiyacım var. Daha önce forumda alnex.fas ve decc.fas lisplerini kullandım. bu lispler çok işime yaradı ve yapana çok teşekkür etmek istiyorum. Soruma gelince, burdaki lispleden alnex autocadteki seçtiğimiz textleri önceden açmış olduğumuz excellde seçmiş olduğumuz satıra otomatik atıyor. decc lispide line gibi çizgilerin uzunluklarınız yine aynı şekilde excelle atıyor. Benim istediğim, bu iki lispin tek komut olarak çalışması ve seçilen lineların uzunluklarını autocadte de üzerine birimi ile yazsın. Aslında anlattıklarımı özetler isek bu videodaki gibi

Linkleri görebilmek için ÜYE olmalısınız.

bir lispe ihtiyacım var. Ve tek lisp olarak. bu mümkün müdür? Üstadlarım vaktiniz var ise ilgilenebilir misiniz? şimdiden çok teşekkürler.

19.02.2017 12:09
84687      




muratsemih

[2] Girişimci

Online Durumu

2 ileti
Elektrik Mühendisi
Sakarya

Alıntı
ehya :
travaci




Onu da yaparız yapmasına da. ya ondan sonra....
devam edecekse ben oynamıyorum



ahahaha ) çok güldüm sayenizde Allah ta sizi güldürsün

Önceki Sayfa [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [15] [20] [25] [30] [35] [40] [45] [50] [55] [60] [65] [70] [75] > 77 <
Yukarı Çık
Copyright © 2004-2017 | Tüm Hakları Saklıdır | 1116 | Site haritası | İstatistikler | Hakkımızda | Kadromuz | Gizlilik | Reklam