31.01.2018 08:08

86013    

Arkadaşlar selamlar Autolispte ufak bir yardıma ihtiyacım olacak. Açılımla ilgili bir autolisp yazıyorum ama benim bu yazdığım sadece hesap yapmayacak aynı zamanda ekrana çizimini de yapacak. Her şeyi kafamda planladım yalnız yöntemimi değiştirmek istiyorum. Şöyle açıklayayım; ben veri girişini katarlarla çalışıyorum ama bunu artık dizgilerle çözmek istiyorum. Çünkü mapcar ve lampda komutlarını kullanacağım. Normalde çalışma şeklim aşağıdaki gibi

( setq ab ssadd ac_dr "#" h 1 )
( setq pt_1 ( getpoint "\nBaşlama Noktasını işaretleyiniz....? " ) )
( While ( setq pt_2 ( getpoint pt_1 "\nDiğer noktayı işaretleyiniz...? " ) )
( command "line" pt_1 pt_2 "" )
( setq ab ( ssadd ( entlast ) ) )
( setq a_aci ( angle pt_1 pt_2 ) )
( if ( and ( > a_aci sag ) ( < a_aci yuka ) ) ( setq bolge "1" ) )
( if ( and ( > a_aci yuka ) ( < a_aci sol ) ) ( setq bolge "2" ) )
( if ( and ( > a_aci sol ) ( < a_aci asa ) ) ( setq bolge "3" ) )
( if ( > a_aci asa ) ( setq bolge "4" ) )
( if ( = a_aci sag ) ( setq bolge "AX" ) )
( if ( = a_aci yuka ) ( setq bolge "AY" ) )
( if ( = a_aci sol ) ( setq bolge "EX" ) )
( if ( = a_aci asa ) ( setq bolge "EY" ) )
( setq pt_1 pt_2 )
( if ( = h 1 ) ( setq ac_dr ( strcat ac_dr bolge "#" ) h 0 ) ( setq ac_dr ( strcat ac_dr bolge "#" bolge "#" ) ) ) ); Bu kısmı dizgiye çevirmek istiyorum. Her dönüşte listeye eleman eklemesini nasıl yapacağım? Cons elemanı başa ekliyor. Başa değil sona eklemem lazım bana bu konuda yardımcı olacak var mı? Yukarıdaki yöntemde string ekliyorum iş görüyor ama liste yapmam lazım buna imkan varsa yardımınızı rica ediyorum.

admin (31.01.2018 11:42 GMT)

Teknik Ressam

31.01.2018 09:06

86015    

Ufak bir örnekle izah edeyim
( setq ab "#" n 1 )
( repeat 5
( setq cd ( getreal ( strcat "\n" ( itoa n ) "-Kenar uzunluğu nedir...? " ) ) )

( setq ab ( strcat ab ( rtos cd 2 )"#" ) ) ; Bu kısmı liste olarak yapmak istiyorum. Her döngüde cd değerini ard arda sona eklesin...

( setq n ( + n 1 ) )
)
Sonuç= #1500#1400#1700#600#500# Bu sonucu '( 1500 1400 1700 600 500 ) olarak alma şansım varmı. Yani liste olarak

Travaci (31.01.2018 10:14 GMT)

Teknik Ressam

31.01.2018 10:35

86017    

Teşekkür ettim sağolun.

Teknik Ressam