（XD::Attrib:Align）属性与X轴平齐，中心不变

Lispboy

(defun XD::Attrib:Align (ents / ecs fromx fromy mat ori tox toy x)
  (if (= (type ents) 'ENAME)
    (setq ents (list ents))
  )
  (setq ori (xd::geom:get9pt ents 5)
        tox (getvar "ucsxdir")
        toy (getvar "ucsydir")
  )
  (if (minusp (car tox))
    (setq tox (xdrx_vector_negate tox)
          toy (xdrx_vector_negate toy)
    )
  )
  (mapcar
    '(lambda (x)
       (setq ecs (xdrx_entity_getecs x)
             fromx (cadr ecs)
             fromy (caddr ecs)
             mat (xdrx_matrix_alignCoordsystem (list ori fromx fromy)
                                               (list ori tox toy)
                 )
       )
       (xdrx_entity_transform x mat)
     )
    ents
  )
  t
)