Forum
Download
Galeri
Üye Ol
|
Giriş
AutoCAD
•
AutoLISP
•
Programlama
•
Püfler
•
Komutlar
•
Terimler
•
Eğitim
aLd
•
TCad
•
FacadeCAD
•
Cephe Kot
•
HQ Library
•
FreeMUST
•
Pasdoc.A
Forumlar
>
AutoLISP
>
initget Değeri...
38544
05.07.2008 07:10
Harbi65
(initget 1 "E ")
(setq MESAJ (getkword "\n* ..? [E / Enter]:" ) )
Böyle bir fonksiyonda
initget
değeri
"E"
(evet) ve
"ENTER"
veya
"SPACE"
tuşu olarak tariflenebilir mi?
38547
05.07.2008 07:53
ehya
Kod:
(initget "E ")
(setq MESAJ (getkword "\n* ..? [E / Enter]:" ) )
şeklinde yaparsan enter'a basınca devam eder...
38548
05.07.2008 08:07
Harbi65
Sağol usta.
Şu an böyle yaptım zaten.. ama başka bir tuşla da mesajı geçmesin istiyorum.... Galiba başka da formul yok..
bu arada... Dün sorduğumu da yapamadım. :dontgetit
seçim setinde ki çizgileri soldan sağa doğru sıralama işinede bi yardımcı olabilirsen sevinirim...
38553
05.07.2008 09:59
ehya
Seçilen nesneleri soldan sağa doğru renklendirerek devam eder.
Kod:
(defun c:secc ()
(vl-load-com)
(setq sec (ssget))
(setq say (sslength sec))
(setq c 0)
(setq renk 1)
(while (< c say)
(setq teksecim (ssname sec (- say 1)))
(setq tekdata (vlax-ename->vla-object teksecim))
(vla-put-color tekdata renk)
(setq renk (+ renk 1))
(setq say (- say 1))
)
)
38556
05.07.2008 10:13
Harbi65
benim çizgiler zaren renkliydi...:D
sağol ehya..
teşekkür ederim....
38558
05.07.2008 10:30
ehya
Rengi seçimin soldan sağa doğru yapıldığını göstermek için yaptım...
38561
05.07.2008 10:34
Harbi65
tamam... ben espri yapmıştım:)
uyguladım ve oldu...
tekrar teşekkür ederim...
>
1
<
Copyright © 2004-2022 SQL: 0.75 saniye - Sorgu: 60 - Ortalama: 0.01251 saniye