CADsite forum

AutoCAD => Autolisp => Topic gestart door: EddyBeerke op zo 11 03 2018, 08:56:15

Titel: Dotted pair Lijst maken in lisp
Bericht door: EddyBeerke op zo 11 03 2018, 08:56:15
Ik wil graag een lijst maken die er zo uit ziet:
((block1 . layer1) (block1 . layer2) (block2 . layer1))
In de routine vraag ik de naam van een block en de layer waar het block op geplaatst is.
Dit is een selectie van div blocks.
Ik kom er niet uit met (cons x y) en (append x y)
Titel: Re: Dotted pair Lijst maken in lisp
Bericht door: EddyBeerke op ma 12 03 2018, 11:41:38
Ik heb het nu zo opgelost:
(if (= lijst nil)
      (setq lijst (list (strcat bnaam ":" CL ""))) ; 1e keer
      (setq lijst (cons (strcat bnaam ":" CL) lijst)) ; alle volgende keren
    )

Titel: Re: Dotted pair Lijst maken in lisp
Bericht door: roy_043 op ma 12 03 2018, 19:28:13
Deze enkele regel volstaat:
(setq lijst (cons (cons bnaam cl) lijst)
Titel: Re: Dotted pair Lijst maken in lisp
Bericht door: EddyBeerke op za 24 03 2018, 23:42:22
Citaat van: roy_043 op ma 12 03 2018, 19:28:13
Deze enkele regel volstaat:
(setq lijst (cons (cons bnaam cl) lijst)
Bedankt Roy,
Zal t in mn  volgende project eens proberen