[编程交流] 寻找一个常规的地方

;;----------------------------------------------------------------------;;
;; Match Angle of selection
(defun C:foo (/ s ss ent)
  (if (and (setq s (car (entsel "\nSelect Entity for reference angle")))
           (setq ss (ssget ":L"))
      )
    (foreach ent (vl-remove-if 'listp (mapcar 'cadr (ssnamex ss)))
      (entmod (subst (assoc 50 (entget s))
                     (assoc 50 (entget ent))
                     (entget ent)
              )
      )
    )
  )
  (princ)
)