CADsite forum

Bedankt voor de uitleg. Mocht ik weer wat ruimer in de tijd zitten, dan zal ik proberen dit erin te zetten.

Ik Heb nu dit:

(setq Border-block-A3 "A3-kader")
(setq Border_A3 (tblsearch "block" Border-block-A3))
(if Border_A3
   ((lambda (BlockName)(setq Papier-size "A3" ) (setq orientation "Landscape" )
      (if (setq ss1 (ssget "_X" (list '(0 . "INSERT") (cons 2 BlockName))))
         (setq Bordersize (* 1 (setq scale (cdr (assoc 41 (entget (ssname ss1 0)))))))
      )
    )
      Border-block-A3
   )
)


Dit werkt goed, totdat hij in mijn lisp het A4 kader later vind. Dat zet hij alle instellingen voor het A4 formaat.
Nu is dit een hoop jat werk, daar ik niet sterk ben met lisp.

Misschien ben ik op de verkeerde plek voor wat uitleg, maar ik probeer het toch.
Wat doet jou stukje precies?
Je zet met setq SS in het geheugen en daarna zie ik een paar keer SS terug komen..

Goedemiddag,

Ik ben mij aan het verdiepen in lisp en probeer een lisp te maken die print aan de hand van een block name.
een A3 kader heet A3-kader en een A4 kader heet A4-kader.
Aan de hand van de block name kan ik uitlezen wel formaat ik moet printen.
Nu is het geval dat een A4 tekening ge-xrefed word in een A3 tekening.
Zodoende vind ik met tblsearch "block" 2 blokken.
Echter, ik wil alleen het block vinden die in de layout staat.
Hoe doe ik dit?