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
- Bomba ár! Dell Latitude 7320 - i5-11GEN I 8GB I 512SSD I HDMI I 13,3" FHD I Cam I W11 I Garancia!
- Game Pass Ultimate előfizetés azonnal, élettartam garanciával, problémamentesen! Immáron 8 éve!
- ÚJ ÁRU, OLCSÓBB!!! Dell Precision Workstation 5550, 5560, 7510, 7520, 7550, 7720, i7, 6-11. gen.
- Bitcoin Miner Eladó Bitmain Antminer S19 JPro 104 Th 3150 watt
- Csere-Beszámítás! Gigabyte Aorus Elite RX 9070 XT 16GB Videokártya! Bemutató darab!
Állásajánlatok
Cég: Promenade Publishing House Kft.
Város: Budapest
Cég: PCMENTOR SZERVIZ KFT.
Város: Budapest