CADsite forum

ben 50.000 lijnen en getallen en zo aan het verschuiven en zo.
is er een mogelijkheid om een lijn of tekst wat ik verschuif tijdelijk automatisch in een bepaalde kleur kan zetten zodat ik kan zien welke ik gehad heb?

bedoeling is dit tegelijk met het move commando te doen.
als ik dan alles gehad heb kan ik het zo selecteren en by layer zetten.
dit is mijn bedoeling.

mooie zou ook zijn dat ik zolang ik in deze routine ben niet elke keer move hoef te typen maar continue tekst kan selcteren en verplaatsen, volgende tekst , etc.


groet, jan-pieter

2 varianten:
MplusSs: voor selectie sets
MplusEnt: voor enkelvoudige selectie (scheelt steeds weer 1 klik)
Color naar wens aanpassen:

(defun c:MplusSs ( / color ss)
  (setq color 8)
  (while (setq ss (ssget))
    (command
      "_.move" ss "" pause pause
      "_.chprop" ss "" "_color" color ""
    )
  )
)

(defun c:MplusEnt ( / color ent)
  (setq color 8)
  (while (setq ent (entsel))
    (command
      "_.move" (car ent) "" pause pause
      "_.chprop" ent "" "_color" color ""
    )
  )
)


Roy,



Heel erg bedankt.
Ik vindt het geweldig wat een kennis er op deze site is.
Erg leerzaam.


OPGELOST

toch nog even 1 vraag.

wil je me uitleggen hoe ik er evt nog bij in kan zetten dat hij het grijs kleurt (zoals hij nu doet) en dat ik er ook nog bij in kan zetten dat hij het in een bepaalde laag zet?



Of ben ik nu heel erg lastig?


groet, jan-pieter

In deze versie wordt gevraagd naar de laag en de kleur:

(defun c:mplusSs ( / layer color ss)
 (setq layer (getstring 'T "\nLaagnaam of [Enter]: ")) ; alternatief: (setq layer "MijnVasteLaag")
 (setq color (getint "\nKleurnummer of [Enter]: "))    ; alternatief: (setq color 8)
 (while (setq ss (ssget))
   (command
     "_.move" ss "" pause pause
     "_.chprop" ss "" "_layer" layer "_color" color ""
   )
 )
)

(defun c:mplusEnt ( / layer color ent)
 (setq layer (getstring 'T "\nLaagnaam of [Enter]: ")) ; alternatief: (setq layer "MijnVasteLaag")
 (setq color (getint "\nKleurnummer of [Enter]: "))    ; alternatief: (setq color 8)
 (while (setq ent (entsel))
   (command
     "_.move" (car ent) "" pause pause
     "_.chprop" (car ent) "" "_layer" layer "_color" color ""
   )
 )
)


Dank jewel.




OPGELOST.



groet, Jan-Pieter