Tak jsem do toho s vervou vlítnul, ale zase jsem se rychle odplazil s hanbou s bojiště. On tam je ten kód 100 3krát a já nevím, jak je získat všechny a rozlišit. ASSOC mi dá jen ten první.

Pro více druhů kó to bude:

(cond ((= a "AcDbEntityAcDbDimensionAcDbAlignedDimensionAcDbRotatedDimension")(Command "_DIMLINEAR"))
      ((= a "AcDbEntityAcDbDimensionAcDbAlignedDimension")(Command "_dimaligned"))
      ((= a "AcDbEntityAcDbDimensionAcDbDiametricDimension")(Command "_dimdiameter"))
      ((= a "AcDbEntityAcDbDimensionAcDbRadialDimension")(Command "_dimradius"))
      ((= a "AcDbEntityAcDbDimensionAcDb2LineAngularDimension")(Command "_dimangular"))
      ((= a "AcDbEntityAcDbDimensionAcDbArcDimension")(Commnad "_dimarc"))
)

Tak to funguje. Ještě jsem si tam dopsal kód pro staničení. Když bych chtěl, aby mi to u kót přebíralo i vlastnosti kóty nebo alespon kotovací styl, tak by bylo asi nejlepší si vytvořit pro kóty jiný Curr a tam toto nastavit, ne?
Mohlo by to vypadat nějak takto?

(defun C:CURR KOTA ()
(setq ent(ssname (ssget"_I")0) )
(if ent
(progn
;kotovaci styl
(setq edata (assoc 3 (entget ent)))
(if edata
   (setvar "DIMSTYLE" (cdr edata))
)
))
)

+ Vlastnosti obecné jako v běžném Curr

Ono to právě nefunguje :( a já nevím jak to zprovoznit. Kdybyste někdo věděl, napište to prosím sem. Díky Bena