14.02.2013 15:19
pulp fiction
|
herkese merhaba;
pozumun içindeki poz numarasına formul girerek değiştirdim. poz numarasının içinde doğal olarak beyaz oldu.
sorum şu abiler;
poz no mesela 3 oldu. find ile arattığımda 3'ü bulamıyor. sebebi ne olabirir. bununla ilgili bir lisp var mı?
|
14.02.2013 19:44
kerem1453
|
(command "._donut" "0" "10" "0,0")
(command "._circle" "0,0" "3")
bu komutlarla projenin istedigim yerine donut veya circle yapmam için 0,0 yazan yere ne yazmam gerekiyo bilen biri bakarsa sevinirim
bunları kısayol haline getircem.
mesala c3 dedigimde 3 birim olan circle cizcek d10 dedigimde birimi 10 olan donut yapcak.
|
15.02.2013 06:57
Travaci
|
Kod:
(defun c:Yuvarlak (/)
(setq pNt (getpoint "\nYerleştirilecek nokta."))
(command "._circle" pNt "3"))
Donutta aynı mantık.
|
15.02.2013 08:51
kerem1453
|
sayın taravacı bunun donut yapanı ve sürekli olanını yazmanız mümkünmü ?
|
15.02.2013 08:59
kerem1453
|
tmm sanırım donut olanı için lsp te ufak bi değişklikle hallettim.sürekli donutta yapıyor.tşk ederim
(defun c:D3 (/)
(setq pNt (getpoint "\nYerleştirilecek nokta."))
(command "._donut" "0" "3" pNt))
|
15.02.2013 14:32
madgenius
|
Merhabalar Arkadaşlar;
Benim sizden bir lisp isteğim var.
çizgi kopyalayacak bir lisp istiyorum fakat şöyle
ben çizgiyi seçip komutu gireceğim ve bana o çizginin kaçtane kopyalanması gerektiğini soracak ben bir değer gireceğim ve sonrada seçtiğim çizginin bulunduğu yere yazdığım değer kadar kopyalayacak.
Yani bir çizgi seçip komutu girip 20 yazdığımda komuttan çıkıp o çizgiyi tekrar seçtiğimde bana 20 adet çizgi seçmek istiyorum
Yardımcı olurmusunuz?
|
15.02.2013 15:09
Travaci
|
Diledikleriniz Autocad 2013 de array komutunda mevcut
|
15.02.2013 15:16
madgenius
|
fakat array komutunda hem çizgi halinde kalmıyor hemde daha komplex bir yapıya sahip
|
16.02.2013 07:23
ehya
|
Travacinin dediği gibi dedikleriniz array komutunda mevcut. İşlem sonucunda gelişmiş bir yapıya sahip bir hal alıyor. Çünkü işlem sonunda değişiklik yapabilme hakkına sahip oluyorsunuz. Ancak bu halini istemez iseniz, "explode" komutu ile patlatarak array özelliğinden çıkartabilirsiniz.
|
16.02.2013 08:50
volkan_25
|
Kod:
(defun c:TRTR ()(setvar "cmdecho" 0)(prompt "\nCOPY")
(setq tsec (ssget (list (cons 0 "TEXT"))))
(setq b1(getpoint "Base point: "))
(command "copy" s1 "" b1 b1)
(setq b2(getpoint "Second point: "))
(command "move" s1 "" b1 b2)
(command "redraw")
(setvar "cmdecho" 1)
(command "COPY" s1 "" b2 )
(princ))
bu kotlamada sadece textleri seçip copyalamak istedim ama olmadı yardımcı olurdanız sevinirim
ehya (16.02.2013 09:59 GMT)
|
16.02.2013 09:20
Travaci
|
Sizin burda yapmak istediğiniz sırasıyla nedir anlatırmısınız ? S1 yerine tsec yazarsanız belki yolunuzu bulursunuz : ) Buarada kotlama deil kodlama ; )
|
16.02.2013 09:37
volkan_25
|
teş.ederim hocam oldu
|
16.02.2013 12:59
volkan_25
|
(defun c:OLL () (command “_dimlinear” pause pause pause) (command “_dimcontinue”))
bu kodlamayı çalıştıramadım yardımcı olursanız sevinirim
kodlamanın amacı dimlinear başlayıp dimcontinue ile devamını getirmesi
|
16.02.2013 19:09
CAN123
|
Merhaba,
Seçtiğim objeyi revizyon bulutu haline getirip yanına da blok ekletecek bir lispe ihtiyacım var.
teşekkürler
|
28.02.2013 07:16
SENDUR
|
Arkadaşlar bir paftadaki blokların ( blok içindeki blokların da) hepsinin ismini bir kerede değiştiren bir lisp yazılabilir mi? Vereceği isim önemli değil ama başka dosyaların içinde bu projeyi kullandığım zaman isimlerin çaıkmaması lazım. Farklı dosyalarda da farklı isimde blok oluşturması gerek.
Saygılar.
|
28.02.2013 14:49
miyatu
|
Alıntı SENDUR :
Arkadaşlar bir paftadaki blokların ( blok içindeki blokların da) hepsinin ismini bir kerede değiştiren bir lisp yazılabilir mi? Vereceği isim önemli değil ama başka dosyaların içinde bu projeyi kullandığım zaman isimlerin çaıkmaması lazım. Farklı dosyalarda da farklı isimde blok oluşturması gerek.
Saygılar.
Sizden block isimlerinin basina eklemek uzere bir kod ister ve butun bloclarin basina bu kodu ekler...
Kod:
(defun c:Bnd ()
(setq elist (tblnext "block" T))
(setq gd (getstring "\n block adýnýn baþýna girilecek kodu girin:"))
(while (/= elist nil)
(setq bn (cdr (assoc 2 elist)))
(setq bn1 (substr bn 1 1))
(if (/= bn1 "*")
(progn
(setq sd (strcat gd bn))
(command "-rename" "b" bn sd "")
)
)
(setq elist (tblnext "block"))
)
)
|
01.03.2013 11:47
SENDUR
|
Hocam eline sağlık güzel bir lisp olmuş.
|
04.03.2013 13:14
whitiqer
|
Selamlar benimde bir lisp isteğim olacaktı
Lisp seçilen line'ı uzunluğunu 900 e bölüp çıkan sonucu 2 ile çarpacak, sonra seçili line'ı "divide" komutu ile çıkan sonuç kadar bölecek.
elektrik projesi çizerken çok lazım oluyor arkadaşlar lütfen yardımcı olabilirmisiniz ?
|
05.03.2013 07:43
waytooraider
|
Herkese iyi günler.
Benim bir isteğim olacak bazı projelerde layer rengi haricinde başka renkle çizilmiş bir sürü nesne var.Mesela layer rengi beyaz ise sarı renkle çizilmiş.
Acaba bunların bulunduğu şu anki rengi; layer rengi olarak ayarlayabilirmiyiz.Yukardaki orneği baz alacak olursam layerının rengide sarı olsun.
Saygılarımla.
|
ProhibiT
|
Soruyu net anlayamamakla birlikte, Linkleri görebilmek için ÜYE olmalısınız. linkindeki ChcLr fonksiyonuna bir göz atın, işinizi görebilir.
|