在AutoLISP中，可以使用命令“entget”和“entmod”来获取和修改实体的属性。下面是一个示例代码，用于旋转一个轨迹，但不旋转另一个轨迹：

(defun c:rotateTrack ()
  (setq ss (ssget "X" '((0 . "LWPOLYLINE"))))
  (if (setq obj (ssname ss 0))
    (progn
      (setq ent (entget obj))
      (setq oldAngle (cdr (assoc 50 ent)))
      (setq newAngle (+ oldAngle 45.0))
      ;; 旋转轨迹
      (entmod (subst (cons 50 newAngle) (assoc 50 ent) ent))
      ;; 不旋转其他轨迹
      (setq entList (entget obj))
      (foreach entItem entList
        (if (not (eq (cdr (assoc 0 entItem)) "LWPOLYLINE"))
          (entmod (subst (cons 50 oldAngle) (assoc 50 entItem) entItem)))
      )
      (princ "\nTrack rotated successfully.")
    )
    (princ "\nNo track found.")
  )
  (princ)
)

运行以上代码后，你可以选择一个轨迹，然后该轨迹会被顺时针旋转45度，而其他轨迹保持不变。请注意，代码中的旋转角度为45度，你可以根据需要进行相应的修改。