Meerdere teksten tegelijkertijd aanpassen met 1 klik

[gery]

Na 'defun' heb ik nog C: gezet, krijg de volgende melding:

; error: too few arguments

Dan moet je de laatste 2 regels ook aanpassen naar

Code Selecteer Uitklappen

(command "TRC" "..." "...")

[roy_043]

Dan moet je de laatste 2 regels ook aanpassen naar

Code Selecteer Uitklappen

(command "TRC" "..." "...")

[EddyBeerke]

zonder de "C:" na defun is het een functie die je aanroept met:
(TRC "aanbrengen" "aangebracht")

Je kunt dan dit in een knop zetten.
Als je er wel c:trc van maakt kan dat ook maar is minder handig, je roep tenslotte een functie aan geen commando!

Het zou dan ook dit moeten worden:

Code Selecteer Uitklappen

(C:TRC "YYY" "XXX")
i.p.v.

Code Selecteer Uitklappen

(command "TRC" "..." "...")

[gery]

Code Selecteer Uitklappen

(vl-load-com)

(defun c:TRC ( %from %to / #tss )
  (if (setq #tss (ssget "X" (list (cons 1 %from))))
    (mapcar '(lambda (j)
       (vla-put-textstring (vlax-ename->vla-object j) %to))
       (mapcar 'cadr (ssnamex #tss)))
  )
  (princ)
)

(c:TRC "aanbrengen" "aangebracht")
(c:TRC "herplaatsen" "herplaatst")


[gery]

Het zou dan ook dit moeten worden:

Code Selecteer Uitklappen

(C:TRC "YYY" "XXX")

Klopt, ik werk normaal op een nog iets andere manier, vandaar mijn vergissing.

[Arjen]

Code Selecteer Uitklappen

(vl-load-com)

(defun c:TRC ( %from %to / #tss )
  (if (setq #tss (ssget "X" (list (cons 1 %from))))
    (mapcar '(lambda (j)
       (vla-put-textstring (vlax-ename->vla-object j) %to))
       (mapcar 'cadr (ssnamex #tss)))
  )
  (princ)
)

(c:TRC "aanbrengen" "aangebracht")
(c:TRC "herplaatsen" "herplaatst")


hmm, heb blijkbaar nog veel te leren

Hij geeft alleen nog steeds dezelfde error...

[roy_043]

Ik denk dat je zoiets zoekt:

Code Selecteer Uitklappen

(vl-load-com)

(defun TRC ( %from %to / #tss )
  (if (setq #tss (ssget "X" (list (cons 1 %from))))
    (mapcar '(lambda (j)
       (vla-put-textstring (vlax-ename->vla-object j) %to))
       (mapcar 'cadr (ssnamex #tss)))
  )
  (princ)
)

(defun c:Test ()
  (TRC "aanbrengen" "aangebracht")
  (TRC "herplaatsen" "herplaatst")
  (TRC "abc" "def")
  ; ... etc.
  (princ)
)

[EddyBeerke]

...
Hij geeft alleen nog steeds dezelfde error...

Ik weet niet wat voor error lisp geeft maar bij mij werkt het goed.
Misschien zijn het de hoofdletters in de teksten?
Je moet echt een exacte waarde opgeven.
Dus:

Code Selecteer Uitklappen

(c:TRC "Aanbrengen" "Aangebracht")
Is echt iets anders dan:

Code Selecteer Uitklappen

(c:TRC "aanbrengen" "aangebracht")
Porbeer de "oude" CHT eens... komt nog van AutoCAD R14...:
Zie bijlage "CHTEXT.LSP"

[Arjen]

Ik denk dat je zoiets zoekt:

Code Selecteer Uitklappen

(vl-load-com)

(defun TRC ( %from %to / #tss )
  (if (setq #tss (ssget "X" (list (cons 1 %from))))
    (mapcar '(lambda (j)
       (vla-put-textstring (vlax-ename->vla-object j) %to))
       (mapcar 'cadr (ssnamex #tss)))
  )
  (princ)
)

(defun c:Test ()
  (TRC "aanbrengen" "aangebracht")
  (TRC "herplaatsen" "herplaatst")
  (TRC "abc" "def")
  ; ... etc.
  (princ)
)

BRUUT! Superbedankt!

Zou het ook kunnen als er meerdere woorden in één tekst staan?

[EddyBeerke]

Wat dacht je van dit:

Code Selecteer Uitklappen

(vl-load-com)

(defun TRC ( %from %to / #tss )
  (if (setq #tss (ssget "X" (list (cons 1 %from))))
    (mapcar '(lambda (j)
       (vla-put-textstring (vlax-ename->vla-object j) %to))
       (mapcar 'cadr (ssnamex #tss)))
  )
  (princ)
)

(defun c:Test ()
  (TRC "dit is een tekstregel" "dit zijn meerdere woorden")
  ; ... etc.
  (princ)
)

Nogmaals... de string moet exact overeen komen om gevonden te worden... type-fouten zijn niet toegestaan

[gery]

...
Hij geeft alleen nog steeds dezelfde error...

Ik weet niet wat voor error lisp geeft maar bij mij werkt het goed.

Hier idem.

[gery]

Zou het ook kunnen als er meerdere woorden in één tekst staan?

Zoals reeds eerder gezegd: "Werkt enkel voor volledige strings."

[Arjen]

Zou het ook kunnen als er meerdere woorden in één tekst staan?

Zoals reeds eerder gezegd: "Werkt enkel voor volledige strings."

daarom vraag ik het ook 

[gery]

Daarom herhaal ik het nogmaals 

[Arjen]

Wat dacht je van dit:

Code Selecteer Uitklappen

(vl-load-com)

(defun TRC ( %from %to / #tss )
  (if (setq #tss (ssget "X" (list (cons 1 %from))))
    (mapcar '(lambda (j)
       (vla-put-textstring (vlax-ename->vla-object j) %to))
       (mapcar 'cadr (ssnamex #tss)))
  )
  (princ)
)

(defun c:Test ()
  (TRC "dit is een tekstregel" "dit zijn meerdere woorden")
  ; ... etc.
  (princ)
)

Nogmaals... de string moet exact overeen komen om gevonden te worden... type-fouten zijn niet toegestaan

hahaha ja dat snap ik haha

Ik bedoel:

Als ik een tekening heb met 'aanbrengen betonverharding' en 'aanbrengen trottoirtegels' en 'aanbrengen trottoirband' en 'aanbrengen asfaltverharding' etc. Is het dan mogelijk in de lisp alleen het woord 'aanbrengen' te vervangen. Want als ik dus één van de bovenstaande voorbeelden heb, vervangt deze het woord niet, dan doet de lisp het niet.