lisp aanvulling (opgelost)

[marcelmaas]

Hi mensen,

Ik heb in een oude lisp bij ons op de zaak wat lagen toegevoegd en dat gaat goed, alleen wil ik nu 2 van deze lagen instellen zodat ze niet mee geplot worden.
Het kan niet moeilijk zijn, maar ik kan het nergens vinden.

groeten Marcel...

Dit is mijn code:  

(defun c:MaakLagen ()
  (a_Tekst "uit")
  (a_ZetLaag "HCKP_TEGEL")
  (command "Layer" "c" 8 "" "")
  (a_ZetLaag "HCKP_ARCERING")
  (command "Layer" "c" "red" "" "")
  (a_ZetLaag "HCKP_GIPS")
  (command "Layer" "c" "yellow" "" "")
  (a_ZetLaag "HCKP_BETON")
  (command "Layer" "c" "cyan" "" "")
  (a_ZetLaag "HCKP_BEVESTIGINGSMIDDELEN")
  (command "Layer" "c" "white" "" "")
  (a_ZetLaag "HCKP_BOUWKUNDIGE ONDERLEGGER")
  (command "Layer" "c" 8 "" "")
  (a_ZetLaag "HCKP_DIVERSEN")
  (command "Layer" "c" "white" "" "")
  (a_ZetLaag "HCKP_HULPLIJN")
  (command "Layer" "c" "magenta" "" "")
  (a_ZetLaag "HCKP_ISOLATIE")
  (command "Layer" "c" "red" "" "")
  (a_ZetLaag "HCKP_KADER")
  (command "Layer" "c" "cyan" "" "")
  (a_ZetLaag "HCKP_KANTLAT")
  (command "Layer" "c" "yellow" "" "")
  (a_ZetLaag "HCKP_KRAALHOEK")
  (command "Layer" "c" "cyan" "" "")
  (a_ZetLaag "HCKP_KUNSTSTOF")
  (command "Layer" "c" "yellow" "" "")
  (a_ZetLaag "HCKP_MAATV_0.18")
  (command "Layer" "c" "red" "" "")
  (a_ZetLaag "HCKP_MAATV_0.25")
  (command "Layer" "c" "white" "" "")
  (a_ZetLaag "HCKP_MAATV_0.35")
  (command "Layer" "c" "yellow" "" "")
  (a_ZetLaag "HCKP_MAATV_0.50")
  (command "Layer" "c" "cyan" "" "")
  (a_ZetLaag "HCKP_MAATV_0.18")
  (command "Layer" "c" "red" "" "")
  (a_ZetLaag "HCKP_METALSTUD")
  (command "Layer" "c" "green" "" "")
  (a_ZetLaag "HCKP_MULTIPLEX")
  (command "Layer" "c" "yellow" "" "")
  (a_ZetLaag "HCKP_OPPERVLAKTE")
  (command "Layer" "c" "magenta" "" "")
  (a_ZetLaag "HCKP_PANEELAFMETING")
  (command "Layer" "c" "red" "" "")
  (a_ZetLaag "HCKP_PANEELNUMMERTEKST")
  (command "Layer" "c" "yellow" "" "")
  (a_ZetLaag "HCKP_TEKST_0.18")
  (command "Layer" "c" "red" "" "")
  (a_ZetLaag "HCKP_STAAL")
  (command "Layer" "c" "cyan" "" "")
  (a_ZetLaag "HCKP_TEGEL")
  (command "Layer" "c" 8 "" "")
  (a_ZetLaag "HCKP_TEKST_0.25")
  (command "Layer" "c" "white" "" "")
  (a_ZetLaag "HCKP_TEKST_0.35")
  (command "Layer" "c" "yellow" "" "")
  (a_ZetLaag "HCKP_TEKST_0.50")
  (command "Layer" "c" "cyan" "" "")
  (a_ZetLaag "HCKP_KOPER")
  (command "Layer" "c" "yellow" "" "")
  (a_ZetLaag "HCKP_LEIDING")
  (command "Layer" "c" "red" "" "")
  (a_ZetLaag "HCKP_CODE")
  (command "Layer" "c" "green" "" "")
  (a_ZetLaag "HCKP_VIEWPORTS")
  (command "Layer" "c" "green" "" "")
  (a_ZetLaag "HCKP_TEKST")
  (command "Layer" "c" "white" "" "")
  (a_ZetLaag "HCKP_PLENUM")
  (command "Layer" "c" "red" "" "")
  (a_ZetLaag "HCKP_KOPPEL")
  (command "Layer" "c" "red" "" "")
  (a_ZetLaag "HCKP_AANSLUIT")
  (command "Layer" "c" "red" "" "")
  (a_ZetLaag "HCKP_AANVOER")
  (command "Layer" "c" "cyan" "" "")
  (a_ZetLaag "HCKP_RETOUR")
  (command "Layer" "c" "magenta" "" "")
 (a_ZetLaag "HCKP_RANDAFWERKING")
 (command "Layer" "c" "blue" "" "")
 (a_ZetLaag "HCKP_BANDRASTER")
 (command "Layer" "c" "yellow" "" "")
 (a_ZetLaag "HCKP_PLAFOND")
 (command "Layer" "c" "yellow" "" "")
 (a_ZetLaag "HCKP_BOUWKUNDE")
 (command "Layer" "c" 8 "" "")
 (a_ZetLaag "HCKP_STRAMIEN")
 (command "Layer" "c" 8 "" "")
 (a_ZetLaag "HCKP_INSTALLATIES")
 (command "Layer" "c" "red" "" "")
 (a_ZetLaag "HCKP_BEMATING")
 (command "Layer" "c" "red" "" "")
 (a_ZetLaag "HCKP_DETAIL")
 (command "Layer" "c" "magenta" "" "")
  (a_Tekst "aan")
)

[cetacad]

(command "-layer" "plot" "no" "LAAGNAAM" "")

[marcelmaas]

Okay als je het weet is het altijd makkelijk   

Maar staat die die "c" voor in mijn regel?:
(command "layer" "c" "red" "" "")

groeten Marcel..

[cetacad]

Okay als je het weet is het altijd makkelijk   

Maar staat die die "c" voor in mijn regel?:
(command "layer" "c" "red" "" "")

groeten Marcel..

Als je in je commando-regel een streepje voor het commando zet krijg je alle mogelijkheden te zien.
-layer

succes, Fred

[marcelmaas]

Okay ik denk dat ik het snap.
Ik ga er vanavond eens mee stoeien.

Bedankt voor de hulp!!

groeten Marcel..

[marcelmaas]

Hi Cetacad,

Het is me gelukt met de code zoals hieronder.
Al heb ik eerst wel de regel in allerlei volgordes moeten proberen voordat ik tot deze kwam.
Nu heb ik naar aanleiding hiervan nog een vraag:
Als ik in autocad -layer intoets zoals jij zei, dan wordt er in dat rijtje eerst om Color gevragen en daarna pas om Plot.
Hoe komt het dan als ik het in de code op die volgorde doe dat het dan niet werkt en wel zoals ik nu hieronder heb?
Ik wil even begrijpen hoe dit systeem werkt!


(a_ZetLaag "HCKP_HULPLIJN")
   (command "-Layer" "plot" "no" "HCKP_Hulplijn" "c" "cyan"  "" "")


Groeten Marcel.

[cetacad]

Als ik in autocad -layer intoets zoals jij zei, dan wordt er in dat rijtje eerst om Color gevragen en daarna pas om Plot.
Hoe komt het dan als ik het in de code op die volgorde doe dat het dan niet werkt en wel zoals ik nu hieronder heb?
Ik wil even begrijpen hoe dit systeem werkt!

Hallo Marcel,
Commando in lisp zijn niets anders dan een opsomming van gegevens die je in de commandoregel invult wanneer je een streepje voor het commando geeft (-layer). Alle instellingen zijn in willekeurige volgorde op te geven, naar gelang je nodig hebt.
In de regel die ik je gaf heb ik alleen aangegeven dat de laag niet geplot moet worden.
Zoals jij de regel gemaakt hebt wordt de laag niet geplot en krijgt de laag de kleur cyan. Zo zou je er ook nog een lijntype en lijndikte etc in kunnen vullen.
Na iedere instelling kan de regel (commando) beëindigd worden. Dit is eenvoudig te vo

gr. Fred

[roy_043]

Dit werk:
(command "-Layer" "plot" "no" "HCKP_Hulplijn" "c" "cyan"  "" "")

Maar het is een beetje een mengelmoes van de twee schrijfwijzen hieronder en daardoor moeilijker leesbaar.
(command "-Layer" "plot" "no" "HCKP_Hulplijn" "color" "cyan"  "HCKP_Hulplijn" "")
(command "-Layer" "p" "n" "" "c" "cyan"  "" "")

[marcelmaas]

Hi Roy_043

Dank je voor je uitleg, het is me nu duidelijk hoe het kan werken.
Thanks voor de hulp beide.

groeten Marcel...