(use-package :OLI)
(sd-defdialog 'c_lines
:dialog-title "Construction Lines"
:variables '((POINT :value-type :point-2d :title "Point"))
:ok-action '(LINIEN)
:local-functions '(
  (LINIEN ()
  (sd-call-cmds (uic_c_line_cross POINT))
  (sd-call-cmds (c_line_inf :angle POINT 45 -45))
  )
 )
)