- Házi barkács, gányolás, tákolás, megdöbbentő gépek!
- Hobby elektronika
- Vezetékes FEJhallgatók
- Milyen billentyűzetet vegyek?
- Milyen videókártyát?
- AMD Ryzen 9 / 7 / 5 9***(X) "Zen 5" (AM5)
- Soundbar, soundplate, hangprojektor
- Milyen asztali (teljes vagy fél-) gépet vegyek?
- Kormányok / autós szimulátorok topikja
- Philips LCD és LED TV-k
Aktív témák
-
Tussky
tag
Sziasztok!
Olyan kérdésem lenne,hogy találkozott-e valaki már a következő problémával:Space helyett a gép általában entert,vagy az utoljára kiadott parancsot érti és így nem tudok beírni gyakorlatilag semmit.Sajnos a ctrl-c ctrl-v se működik,ugyanis a sorokban lévő spacet is enterként értelmezi.
Valakinek van erre ötlete ?
-
Shorine
csendes tag
Hello,
Lenne egy kérdésem, remélem tud valaki segíteni benne: lehet-e olyan programot írni Lisp-ben,
- olvassa be egy txt-ből a benne szereplő adatokat (pl. szelvényszám, keresztmetszethez tartozó távolság-magasság, a távolság azonos tengelytől mind2 irányba)
- rajzolja fel ezeket pl egymás alatt bizonyos távolságra
-a felrajzolt szabálytalan vonallánchoz illesszen hozzá egy szabályos (azonos esésű) vonalat
- számítsa ki a két tipus közti területet és írja ki
röviden ennyi
remélem van megoldás rá... -
-
beeboy
addikt
szakirodalom? passz
akartam is kérdezni, miből tanultok, könyv nélkül gondolom
a súgóban vannak dolgok, nézd meg hátha segít
(sajnos itt nem elég hosszú egy sor, ezért tördeltem így)
a macskakörmök kicserélődnek két db felülvesszőre, azt vissza kell cserélned!
ezt meg tedd be egy akarmi.lsp fájlba, gondolom betölteni, be tudod:
-------------------------------------------------------------------
; komment jele
; listákkal dolgozunk
; () - mindig párban legyen
; (setq xxxx) - értékadás!
; (defun C:pARANCSNEVE() ...) - parancs definiálás
; (defun függvénynév() ) - függvény definiálás -
; meghívható más függvényből, parancsból
;kezdődik a program
(defun C:VVV() ;defun = VVV nevű parancs definiálása
(setq p1 (getpoint ''\nMutasson egy pontot: '') )
;eredmény: x,y,z koordinátájú pont
(terpri)(princ p1)(princ)
;kiírjuk a p1 értékét, (terpri) sortörést jelent, (princ)-el zárjuk, NEM FONTOS
(setq p2 (getpoint p1 ''\nMutassa a másik pontot: '') )
;;;eredmény: x,y,z koordinátájú pont
;;;ha getpoint-ot p1-el hívod, lesz egy segítő vonal
;;;(setq p2 (getpoint ''\nMutassa a másik pontot: '') ) - így nem
(setq pontx (nth 0 p1))
;nth - listaelemet ad vissza, itt az elsőt (x koordináta)
(setq ponty (nth 1 p1))
;nth - listaelemet ad vissza, itt a másodikat (y koordináta)
(setq átlópontx (nth 0 p2))
;nth - listaelemet ad vissza, itt az elsőt (x koordináta)
(setq átlóponty (nth 1 p2))
;nth - listaelemet ad vissza, itt a másodikat (y koordináta)
(setvar ''CMDECHO'' 0)
;;letiltjuk a kiírást, mert bizonyos függvények megjelenítik az értéküket
(setq MAKELWPOLYLINE ;rajzelem leírólistáját létrehozzuk
(list
(cons 0 ''LWPOLYLINE'') ; rajzelem típus
'(100 . ''AcDbEntity'')
'(100 . ''AcDbPolyline'')
(cons 90 4) ;csúcspontok száma
(cons 70 1) ;legyen zárt, ha 0 nyitott
(cons 62 256) ; a rajzelem színe 1-255-ig, ha 256 akkor fóliaszín
(cons 8 ''fóliám'') ;milyen fólián készüljön el
(list 10 pontx ponty) ;jönnek sorban a csúcskoordináták
(list 10 átlópontx ponty)
(list 10 átlópontx átlóponty)
(list 10 pontx átlóponty) ;elsőt nem ismételjük, úgyis zárt
) ; list
) ; MAKELWPOLYLINE - leírólista elkészült
(entmake MAKELWPOLYLINE) ; ez alapján létrehozzuk a vonalláncot
(setvar ''CMDECHO'' 1) ;visszakapcsoljuk a kiírást
(princ); sikeres visszatérés miatt kiírna egy ''1''-est, ezt elnyomjuk
); defun (parancs) vége
[Szerkesztve] -
Én még csak most kezdem tanulni ezt a nyelvet és láma vagyok benne.
akkor egy feladat kezdésnek:
Megadjuk egy négyzet két tetszőleges pontját (lehet, hogy átlóban) és a proginak meg kell tudnia rajzolni a teljes négyzetet.
Ha esetleg megnéznéd hogyan lehet megcsinálni...megköszönném
Légyszi kommentezz, mert szeretném megérteni. Van ehhez szakirodalom a neten?
remélem van megoldás rá... 
ARANCSNEVE() ...) - helyett ![;]](http://cdn.rios.hu/dl/s/v1.gif)
Aktív témák
Hirdetés
- BESZÁMÍTÁS! Apple Mac mini 2024 M4 16GB 256GB SSD számítógép garanciával, hibátlan működéssel
- BESZÁMÍTÁS! Intel Core i9 9900K 8 mag 16 szál processzor garanciával hibátlan működéssel
- Csere-Beszámítás! RTX Számítógép játékra! I5 13400F / 32GB DDR5 / RTX 4070 Super / 1TB SSD
- Csere-Beszámítás! Sapphire Pure RX 7700XT 12GB GDDR6 Videokártya! Bemutató Darab!
- 15,6" Dell Latitude laptopok: E6540, E5550, E5570, 5580, 5590, 5500, 5501, 5510/ SZÁMLA + GARANCIA
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: CAMERA-PRO Hungary Kft
Város: Budapest