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
- ÁRGARANCIA!Épített KomPhone i5 13400F 32/64GB RAM RX 7800 XT 16GB GAMER PC termékbeszámítással
- Adidas vadiúj, eredeti, cimkés cipők, 39 1/3, 30, 431/3méretekben! AKCIÓS ÁRON!
- ÁRGARANCIA!Épített KomPhone Ryzen 5 7600X 32/64GB RAM RX 7800 XT 16GB GAMER PC termékbeszámítással
- ÁRGARANCIA!Épített KomPhone i5 14600KF 32/64GB RAM RTX 5070 12GB GAMER PC termékbeszámítással
- ÁRGARANCIA!Épített KomPhone i5 14600KF 32/64GB RAM RTX 5060Ti 16GB GAMER PC termékbeszámítással
- HIBÁTLAN iPhone 13 Pro 256GB Graphite -1 ÉV GARANCIA - Kártyafüggetlen, MS3073, 100% Akkumulátor
- Xiaomi Redmi Note 10 Pro 128GB, Kártyafüggetlen, 1 Év Garanciával
- Eladó iPhone 12 mini 64GB bevizsgált, hibátlan készülék
- Telefon felvásárlás!! iPhone 14/iPhone 14 Plus/iPhone 14 Pro/iPhone 14 Pro Max
- Panasonic CF-XZ6 AIO all-in-one laptop tablet 2k touch i5-7300u speciális ütésálló rugged
Állásajánlatok
Cég: FOTC
Város: Budapest