Jump to content

SUBIECTE NOI
« 1 / 5 »
RSS
unde ii pot arunca?

Problema respingere memorie supli...

Posibila virusare

Material opac developat filme
 Caramida de sticla la exterior

Geam cuptor crapat

Un canal de AI de comedie pe YT

Update intr-un tabel
 [Controlul] vremii si a vremurilor

Blocuri din placi prefabricate

Achiziție mașina de fam...

[unde] cozonaci traditionali
 Jandarmii in fondul forestier

Sa dus seceta pedologica?

Toyota IQ

Numar magic cu blocaj numerologic
 

Lisp

- - - - -
  • Please log in to reply
1 reply to this topic

#1
banutraul

banutraul

    Junior Member

  • Grup: Members
  • Posts: 62
  • Înscris: 26.06.2017
Salut , am un desen cu vreo 15 cercuri ,  7 poligoane cu 3 laturi (triunghiuri) 3 arce ,5 linii , 6 patrate . Vreu sa fac o comanda in Lisp care filtreaza forma geometrica pe care o dau ca parametru . de exemplu daca apelez functia filt("circle") saimi stearga toate celelalte forme geometrice si sa ramana in desen doar cercurile . asta e codul pana acum : setq name getkword
(defun c:filt(name)(command (if name nil "delete")) .  Nu stiu cum acesez pe rand formele din desen , ar trebui sa scriu in if : name = forma respectiva din desen , daca sunt egale nu face nimic daca sunt diferite sterg forma din desen cu comanda "delete" , cum pot sa pun formele din desen in variabile in Lisp?

#2
sags

sags

    Senior Member

  • Grup: Senior Members
  • Posts: 9,977
  • Înscris: 24.04.2013
Ca principiu, ca de Lisp nu m-am mai atins de multi ani de zile:
  • formele geometrice le pui intr-o… lista
  • pentru a prelucra pe rand elementele unei liste, folosesti o functie recursiva care trateaza direct (CAR lista) si se autoapeleaza recursiv pe (CDR lista). Rezultatele fiecarei prelucrari se pun intr-o… lista cu (CONS rezutatul_tratarii_CAR lista_rezultatelor_recursivitatii_pe_CDR). Parca exista si o functie (sau macro?), MAPCAR daca imi aduc bine aminte, care face direct aceasta iterare si iti intoarce lista rezultatelor.
Pentru un raspuns concret ar fi bine sa precizezi exact ce implementare/dialect de Lisp folosesti, ca sunt multe si cu diferente intre ele. LE: Abia acum cum vad ca folosesti Lisp-ul din AutoCAD

Edited by sags, 29 April 2018 - 09:59.


Anunturi

Second Opinion Second Opinion

Folosind serviciul second opinion ne puteți trimite RMN-uri, CT -uri, angiografii, fișiere .pdf, documente medicale.

Astfel vă vom putea da o opinie neurochirurgicală, fără ca aceasta să poată înlocui un consult de specialitate. Răspunsurile vor fi date prin e-mail în cel mai scurt timp posibil (de obicei în mai putin de 24 de ore, dar nu mai mult de 48 de ore). Second opinion – Neurohope este un serviciu gratuit.

www.neurohope.ro

0 user(s) are reading this topic

0 members, 0 guests, 0 anonymous users

Forumul Softpedia foloseste "cookies" pentru a imbunatati experienta utilizatorilor Accept
Pentru detalii si optiuni legate de cookies si datele personale, consultati Politica de utilizare cookies si Politica de confidentialitate