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.
|
Travaci
|
Yanlışmı anlıyorum ? Objeyi seçtikten sonra layer tablosundan layerı'ı seçmek daha kolay deil mi ?
|