initget Değeri... | Forumlar

AutoCAD • AutoLISP • Programlama • Püfler • Komutlar • Terimler • Eğitim

aLd • TCad • FacadeCAD • Cephe Kot • HQ Library • FreeMUST • Pasdoc.A

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 <


	Forum	Download	Galeri	Üye Ol \| Giriş