OPGELOST multiple text filter

designer68 · di 10 05 2011, 14:36:20

Hallo

Allereerst erg bedankt voor je inzet.
Helaas pakt hij alle teksten die hij tegenkomt in het geselecteerde gebied, en niet alleen de enige die ik in de routine heb ingevuld.

EddyBeerke · di 10 05 2011, 14:51:51

Bij mij, met mijn laatste versie, werkt het ook met de filter op dtext en mtext, en laat andere teksten mat rust.

designer68 · di 10 05 2011, 15:33:41

Citaat van: EddyBeerke op di 10 05 2011, 14:51:51
Bij mij, met mijn laatste versie, werkt het ook met de filter op dtext en mtext, en laat andere teksten mat rust.

Akkoord maar pakt hij dan ook puur degetallen die je als value in de lisp zet? Ik gebruikte map3d 2011 en daar negeerde hij de vier getallen die ik had ingevul en selecteerde alles

EddyBeerke · di 10 05 2011, 15:59:33

Ik zou niet weten wat er dan fout gaat in Acad 2011 map3d.
Misschien dat iemand anders er naar kan kijken, daarbij denk ik aan onze grote vriend HofCAD.

Ik gebruik Acad 2010.

roy_043 · di 10 05 2011, 16:36:27

Het programma van Eddy selecteert alle getallen maar alleen de getallen in het filter worden vervolgens bewerkt. Werkt i.i.g. prima in BC11.

Als je wilt dat het getallenfilter al bij de selectie werkt dan kun je deze versie proberen:

Code Selecteer


(defun c:textcolor  (/ sset o i a filter )
  (vl-load-com)
  (setq filter (list "65_344" "65_332" "65_347" "65_569"))
  (setq filter
    (strcat
      (car filter)
      (apply
        'strcat
        (mapcar
          '(lambda (a) (strcat "," a))
          (cdr filter)
        )
      )
    )
  )
  (if (setq sset (ssget (list '(0 . "MTEXT,TEXT") (cons 1 filter))))
    (progn
      (setq i 0)
      (repeat (sslength sset)
        (setq o (vlax-ename->vla-object (ssname sset i)))
        (setq i (1+ i))
        (vla-put-color o 256) ; 256 = ByLayer
        (vla-put-layer o "Putnummer_Gemengd")
        (vla-update o)
      )
    )
  )
  (princ)
)

designer68 · di 10 05 2011, 17:39:04

Heel erg bedankt,

Ik deed het zelf verkeerd hoor.
Ik had de laagnaam niet, dacht dat hij deze aan zou maken, maar die moet bestaan en dan gooit hij hem erin.

Sorry. Zeer content met de routine.

Jan-Pieter

EddyBeerke · di 10 05 2011, 18:36:17

Het ligt aan de programmeerder...

Ik heb het niet foolproof gemaakt.
Dus zonder controle of de laag bestaat of deze aan te maken.

HofCAD · di 10 05 2011, 20:37:33

Citaat van: EddyBeerke op di 10 05 2011, 18:36:17
Ik heb het niet fooproof gemaakt.

Beste Eddy,

Ik snap het niet, want volgens http://www.spod-central.org/~psmith/nh/abbr-343.txt:
'fooproof' means 'rustproof or fireproof or corrodeproof or rotproof'.
Je weet het, ik ben blond

en dus heb ik van alles geprobeerd om je programma
te laten roesten, in de fik te steken, te laten corroderen of te laten rotten.
Dat lukte mij niet, en dus is je programma best goed.

Met vriendelijke groet, HofCAD CSI.

EddyBeerke · wo 11 05 2011, 07:32:04

Citaat van: HofCAD op di 10 05 2011, 20:37:33
Beste Eddy,

Ik snap het niet, want volgens http://www.spod-central.org/~psmith/nh/abbr-343.txt:
'fooproof' means 'rustproof or fireproof or corrodeproof or rotproof'.
Je weet het, ik ben blond en dus heb ik van alles geprobeerd om je programma
te laten roesten, in de fik te steken, te laten corroderen of te laten rotten.
Dat lukte mij niet, en dus is je programma best goed.

Met vriendelijke groet, HofCAD CSI.

Bedankt jij ook een...

Ik bedoelde dus: (http://nl.wikipedia.org/wiki/Foolproof)

CiteerFoolproof
De uitdrukkingen foolproof, idiot proof en monkey proof zijn goeddeels onderling uitwisselbare termen die allen uit het Engels zijn afgeleid en zoveel betekenen als "bestand tegen dom of foutief gebruik" of "zo simpel te bedienen dat een idioot het kan".

designer68 · wo 11 05 2011, 10:04:05

Bedankt allemaal

Ik vindt het maar knap hoor zoals jullie met routines kunnen werken.