Meerdere colors selekteren

[Ainstein]

Hallo vakbroeders & zusters

Ik wil graag met EEN commando meerdere colors in EEN keer selekteren in een tekening.
Vervolgens wil ik hiervan de properties veranderen (de lineweight aanpassen) als het kan,
dit voorgaande allemaal in een commando.

Ik heb een vereenvoudigde tekening bijgevoegd ter verduidelijking.

Wie weet een oplossing hiervoor?

Groeten Ainstein.

[roy_043]

Het FILTER commando is geschikt om de door jou gewenste selectieset samen te stellen. Deze set kun je dan gebruiken voor het CHPROP commando.

Alternatief is een dergelijke lisp:

Code Selecteer Uitklappen


(defun c:CHLW ( / color filter lweight)
  (if
    (and
      (setq filter '((-4 . "OR>")))
      (while (setq color (getint "\n(Next) color number or ENTER: "))
        (setq filter (cons (cons 62 color) filter))
      )
      (setq filter (cons '(-4 . "<OR") filter))
      (setq lweight (getreal "\nNew lineweight: "))
    )
    (progn
      (setvar 'cmdecho 0)
      (command
        "_.chprop"
        (ssget filter)
        ""
        "_lweight"
        lweight
        ""
      )
      (setvar 'cmdecho 1)
    )
  )
  (princ)
)


[Ainstein]

Roy jongen GEWELDIG 

Dit werkt!!! Super

Echter heb ik toch nog 1 vraag.

Wij werken standaard met 36 kleuren voor 6 verschillende lijndiktes.

Waar kunnen wij, in jouw GEWELDIGE lisp, onze gewenste nummers, in de bijgevoegde voorbeeld tekening nr. 1 en nr. 4 al invullen in de lisp en ook de gewenste lineweight van 0,18, zodat men tikfouten zoveel mogelijk uitsluit en een stukje tijdswinst boekt.

Groeten Ainstein

[roy_043]

Probeer de lisp eens te combineren met toolbar macro's:
bijv:
^c^cCHLW;1;4;;0.18;
of:
^c^cCHLW;1;4;;0.18;all;;
of:
^c^cCHLW;1;4;;0.18;all;;CHLW;2;5;;0.25;all;;
etc.

[Ainstein]

@ Beste Roy

Geweldig geweldig!!!

Ik heb vanmiddag ook zitten peinzen en kwam ook uit op een macro, dit is ook meer mijn ding dan lisps (helaas). Ik dacht zelf dat het beter is om ALLES in een lisp te stoppen.

Net af mijn macro;
^C^C_chlw;147;202;255;;0.0;all;;_chlw;8;175;205;;0.09;all;;_chlw;6;97;144;251;;0.13;all;;_chlw;1;10;11;23;36;43;47;55;75;123;;0.18;all;;_chlw;4;7;41;60;64;101;133;153;171;241;;0.25;all;;_chlw;2;3;32;71;;0.35;all;;_chlw;5;20;44;181;;0.5;all;;

Deze heb ik getest voor al onze kleuren en lijndiktes en werkt perfect!!!

Weet jij toevallig hoe ik een sneltoets kan maken voor een macro
ik probeer zoveel mogelijk via het toetsenbord te doen, is vaak sneller en minder RSI klachten

Groeten Ainstein 

[roy_043]

http://docs.autodesk.com/ACD/2011/ENU/filesACR/WS1a9193826455f5ffa23ce210c4a30acaf-4cdf.htm
(Zoeken naar shortcut)