用于将可选对象更改为红色
用于将可选对象更改为红色的 AutoCAD lisp 例程 1.;;;; 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)
将物体从一个位置移动到同一个位置需要什么？尽管如果锁定层上的对象那么这将不起作用。此外，当您设置新的系统变量时，您需要将其设置回原样。
页:
[1]