Jak spočítat obecně Center bod textu nevím. Věděl bych jen, jak otáčet text kolem jeho refbodu:

(defun C:Rot (/ E Ent P1)
  (setq E (entsel "\n Ukaz text: " ))
  (setq Ent (car E))
  (Setq P1 (cadr E))
  (command "_rotate" Ent ""
             "_ins" P1
           200
  )
  (princ)
)

Pres text box by to mělo jít. Pravý horní roh textboxu pro nenatočený text by se získal nějak jako :(Setq P2 (nth 1(textbox (list (assoc 1 ent))))). Pak by se muselo vždy zjistit, jak je text otočený (assoc 50 ent) a v jakém zarovnání je vložen. (Jaký je to kód?) Z toho by se spočítal center bod textu a kolem něj by se točilo. Trošku pracné - momentálně na to nemám čas. Pro každý možný způsob zarovnání by byl jiný výpočet středu otáčení.

Druhý návrh nevím jak prakticky provést. Zaprvé nevím, jak v lispu změnit způsob zarovnání a zadruhé by to bylo dost pracné při snaze o univerzálnost. Stejně by se totiž musely vypočítávat zarovnávací body.

Protože se ale pan Čech neozval, jestli ho první odpověď někam zavedla, myslím, že bude lepší počkat.

Diky. Prakticky jsem to nezkoušel, ale ta změna zarovnání, pokud by měla fungovat ve všech variantách, není IMHO triviální. K domněnce mne vede chování textu, pokud změním vlastnost zarovnání v panelu vlastnosti. Třeba když změním z normálního zarovníní na LDR na Centr, tak mi text skočí středem na vkládací bod, místo aby se vkládací bod přesunul na střed stávajícího textu. Pokud změním zarovnání z Mezi na Střed, tak se mi ztratí koncové body textu. To by se všechno muselo nějak obhospodařit. Proto píšu, že se do toho nemá cenu pouštět, pokud neznáme účel toho všeho.