Código fuente de lisp por lotes

¿Puedes explicar qué parámetros se ingresan?

¿Qué tipo de gráficos se generan?

¿Qué efecto esperas conseguir cambiando de color?

(setq cs (getvar "osmode "))

(Establecer variable "osmode" 0)

(setq n1 (getint "\ nNúmero:") )

(setq d1 (getint "\n espaciado:"))

(setqent 1(car(entsel " \nSeleccione entidad:")))

(setqp 1(obtener punto " \ nEspecifique el punto en el borde a desplazar:"))

(Establecer número 1)

(Repetir n1

(Comando " offset " d 1 ent 1 p 1 " e ")

(setq ent1 (entget (entlast)))

(setq ent 1(subst(cons 62n) (assoc 62 ent 1)ent 1))

(entmod ent1)

(número de conjunto (1+ n))

(setq ent1 ( entlast) )

)

Lo anterior es el significado básico. La premisa es que el color del gráfico original no coincide con la capa. Intente hacer clic en el punto de ese lado. este punto no seguirá la línea agregada Cambios automáticos.