28.12.2012 08:38    

kerem1453
PLEASE REFER TO WORLDUCS ....!nil hatası ne anlama geliyor düzeltmek için ne yapılmalı bilen varsa yardımcı olursa sevinirim..

28.12.2012 09:07    

ehya
UCS komutunu çalıştırıp 2 defa enter'a basın. kullandığınız lispi tekrar çalıştırın.

28.12.2012 11:15    

kerem1453
ehya 70777 nolu mesajda yazdıgın sp.lsp deki solid tarama yukarı değilde aşagı bakacak şekilde değiştirmen o şekilde bi paylaşım yapma imkanın varmı..bizim cizimlerde onu yukarı değil aşagı istiyolar.yapabilirsen sevinirim..

28.12.2012 11:33    

ehya
konunun linkini verirsen daha sağlıklı olur..

29.12.2012 07:41    

kerem1453


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



ehya bu lisp ile yapan hava bacası taraması yukarı değilde aşağı yönde olsun istiyorum değişiklik yapma olasılığın varsa sevinirim.

ProhibiT (01.01.2013 17:13 GMT)

29.12.2012 07:57    

ehya
Bu lispi ben yazmadım. Ayrıca bu lispin daha düzgün olanını prohibit hocam yazmıştı. Bu lispin olduğu yerde birkaç mesaj sonra bulabilirsin.
Ayrıca kendi yazmadığım lispler ile ilgili düzenleme yapmıyorum.

01.01.2013 09:36    

kerem1453
yazıları ofsetleme imkanı autocadde mevcutmu ?yada bu işlevi yapabilcek bir lsp yazmak mümkünmü ?

01.01.2013 09:42    

ehya
Alıntı
kerem1453 :
yazıları ofsetleme imkanı autocadde mevcutmu ?yada bu işlevi yapabilcek bir lsp yazmak mümkünmü ?



Yazıları offsetleme mantığını söylermisiniz?

01.01.2013 11:15    

kerem1453
normal ofsette obje line secip ofsetlemeyi yazı içinde yapabilmek istedigim.

01.01.2013 11:30    

ehya
Yazıyı "TXTEXP" komutu ile patlatın. Pline nesnesine dönüşen yazı ile ilgili istediğinizi yapın.
Mevcut nesne üzerinden yazıya offset komutu uygulanamaz...

01.01.2013 17:15    

ProhibiT


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


Kod:

;|***************************************************************************|
| sp: Solid Boşluk İşareti yapan fonksiyon                                  |
|       M. Şahin Güvercin  www.cizimokulu.com  12.12.2012                   |
|---------------------------------------------------------------------------|;
(defun c:sp (/ An Ds n1 n2 p1 p2)
  (setvar "cmdecho" 0) (command "_.undo" "group")
  (setq p1 (getpoint "\nFirst point: ") p2 (getcorner p1 "\nOther point: ")
        An (cond ((< (setq An (angle p1 p2)) (/ pi 2.0)) (* pi 0.25))
                 ((and (> An (/ pi 2.0)) (< An Pi)) (* pi 0.75))
                 ((and (> An pi) (< An (* pi 1.5))) (* pi 1.25))
                 ((> An (* pi 1.5)) (* pi 1.75)))
        Ds (/ (if (< (setq n1 (distance p1 (list (car p1) (cadr p2))))
                (setq n2 (distance p1 (list (car p2) (cadr p1))))) n1 n2) 20.0)
        p1 (list (+ (car p1) (* Ds (cos An))) (+ (cadr p1) (* Ds (sin An))))
        p2 (list (- (car p2) (* Ds (cos An))) (- (cadr p2) (* Ds (sin An)))))
  (entmake (list (cons 0 "Solid")(cons 10 (list (car p1)(cadr p2)))(cons 11 p1)
    (cons 12 (mapcar '(lambda (n1 n2) (+ n1 n2)) p1 (list (* Ds 4.0 (cos An))
      (* Ds 4.0 (sin An))))) (cons 13 (list (car p2) (cadr p1)))))
  (command "_.undo" "e")(prin1))
Boşluk işareti, köşesi ilk seçilen noktaya gelecek şekilde oluşturulur. 174410-sp-video.avi

ProhibiT (21.01.2013 14:45 GMT)

01.01.2013 20:58    

kerem1453
teşekkürler prohibit çok faydalı bir şekil almış sp.lsp i eline sağlık...

02.01.2013 13:41    

kerem1453
site yöneticilerinden yada bu işin uzmanlarından bi ricam olcak statik b.arme projelerde kalıp planlarından hızlı kesit almak için autocad den faydalanabilcemiz bi komut varmı yada yöntemi.yada bunun için bir lsp dosyası hazırlanabilirmi ?

05.01.2013 10:15    

SENDUR
Alıntı
ProhibiT :


Hocam eline sağlık ara sıra benimde çizmem gerekiyor boşluk. Artık daha hızlı çizerim sayende.

20.01.2013 09:23    

Travaci
Yapabilirseniz dimension' nın referansa olan uzaklığını değiştiren bir lisp rica edicem, dimension space de dimension'nın dimension'a olan uzaklığı gibi.. Ölçü verirken iki nokta belirledikten sonra 3. nokta için uzaklığı girdiğimizde girdiğimiz değer kadar uzakta olmuyor, eğer bunun bir çözümü varsa lisp'e gerek yok.
Teşekkürler

Travaci (20.01.2013 18:17 GMT)

21.01.2013 13:41    

Travaci
Alıntı
ProhibiT :


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


Kod:

;|***************************************************************************|
| sp: Solid Boşluk İşareti yapan fonksiyon                                  |
|       M. Şahin Güvercin  www.cizimokulu.com  12.12.2012                   |
|---------------------------------------------------------------------------|;
(defun c:sp (/ An Ds n1 n2 p1 p2)
  (setvar "cmdecho" 0) (command "_.undo" "group")
  (setq p1 (getpoint "\nFirst point: ") p2 (getcorner p1 "\nOther point: ")
        An (cond ((< (setq An (angle p1 p2)) (/ pi 2.0)) (* pi 0.25))
                 ((and (> An (/ pi 2.0)) (< An Pi)) (* pi 0.75))
                 ((and (> An pi) (< An (* pi 1.5))) (* pi 1.25))
                 ((> An (* pi 1.5)) (* pi 1.75)))
        Ds (/ (if (< (setq n1 (distance p1 (list (car p1) (cadr p2))))
                (setq n2 (distance p1 (list (car p2) (cadr p1))))) n1 n2) 20.0)
        p1 (list (+ (car p1) (* Ds (cos An))) (+ (cadr p1) (* Ds (sin An))))
        p2 (list (- (car p2) (* Ds (cos An))) (- (cadr p2) (* Ds (sin An)))))
  (entmake (list (cons 0 "Solid")(cons 10 (list (car p1)(cadr p2)))(cons 11 p1)
    (cons 12 (mapcar '(lambda (n1 n2) (+ n1 n2)) p1 (list (* Ds 4.0 (cos An))
      (* Ds 4.0 (sin An))))) (cons 13 (list (car p2) (cadr p1)))))
  (command "_.undo" "e")(prin1))
Boşluk işareti, köşesi ilk seçilen noktaya gelecek şekilde oluşturulur. 174410-sp-video.avi



Hocam düşeyde 2700 yatayda 400'lük bir dikdörtgende hata veriyor.

ProhibiT (21.01.2013 14:47 GMT)

21.01.2013 14:29    

ProhibiT
Bir yerde p1 ve p2 yer değiştirmiş. Düzeltip güncelledim. Tekrar alıp denerseniz problemsiz çalışır.

21.01.2013 14:51    

Travaci
Teşekkürler.

23.01.2013 13:19    

waytooraider
Merhabalar Herkese,

Belki birileri daha önce istemiştir diye forumda aradım bulamadım ki varsa beni yönlendirmeleriniz konusunda şimdiden çok teşekkür ederim.

Seçtiğim line özellikle polylineların layerını değiştirmek istiyorum. Yanyana 2 tane aynı layerdan line yada polyline olsun ; lispi çalıştırıp 2 objeden birine dokunduğumda komut satırında yada acılacak pencerede layerın ismini yazdığımda sadece seçtiğim objenin layerı değişsin.

Saygılarımla.

23.01.2013 14:26    

Travaci
Yanlışmı anlıyorum ? Objeyi seçtikten sonra layer tablosundan layerı'ı seçmek daha kolay deil mi ?

Önceki Sayfa [1] [2] [3] [4] [5] [6] [7] [8] [9] [10] [15] [20] [25] [30] [35] > 36 < [40] [45] [50] [55] [60] [65] [70] [75] [80] [85] [90] [95] [100] Sonraki Sayfa
Copyright © 2004-2022 SQL: 2.058 saniye - Sorgu: 106 - Ortalama: 0.01941 saniye