[编程交流] 用于将可选对象更改为红色

;;;; CHANGE-ENTITIES-TO-COLOR-RED-1.LSP - AutoCAD lisp routine voor het veranderen van te selecteren objecten naar color red 1

;;;; Versie 1.0

;;;; Start de AutoCAD-routine met AutoCAD commando: ch2cr1

 

(defun C:CH2CR1 ( / ss1 pt1 pt2)

      (graphscr)

      (setq pt1 '(0.0 0.0 0.0))

      (setq pt2 '(0.0 0.0 0.0))

      (setvar "cmdecho" 0)

      (prompt "Selecteer objecten om te veranderen naar color byblock:")

      (setq ss1(ssget))

      (command "move" ss1 "" pt1 "" pt2)

      (command "change" ss1 "" "P" "COLOR" "1" "")

      (prompt "\nDe veranderen-kleur-routine opdracht is beëindigd, er zijn geen objecten meer geselecteerd. Start de routine opnieuw met AutoCAD commando: ch2cr1")

      (princ)

)

(princ "\nCHANGE-ENTITIES-TO-COLOR-RED-1.LSP - AutoCAD lisp routine voor het veranderen van te selecteren objecten naar color red 1.")

(princ "\nStart de routine met AutoCAD commando: ch2cr1")

(princ)