(defun c:xx()
  (if (setq e (nentsel "\n Select Corridor Featureline!"))
    (progn
      (setq vEnt (vlax-ename->vla-object (car e)))
      (if (= (vla-get-objectname vEnt) "AeccDbCorridor")
	(progn
	  (setq featCodeInfo (vlax-get-property vEnt 'FeatureLineCodeInfos)) ; typ vla-object
	  (setq codName (vlax-get-property featCodeInfo 'CodeNames)) ; typ safearray
	  (setq freatStyleNames (vlax-safearray->list codName))

	  (setq i 0)
	  (foreach n freatStyleNames
	    (princ (strcat "\n" (itoa (setq i (1+ i))) ": " n))
	    )
	  )
	(princ "\nNo Featureline found!")
	)
      )
    (princ "\nWrong! - select a featureline")
    )
  (princ)
  )