Is it possible to make a Multiline Style with LISP?

[j.aaij]

Dear Readers,

Is it possible to make with lisp an Multiline styl?

(defun c:test ()
  (vl-load-com)
  (or adoc
	  (setq adoc
		 (vla-get-activedocument
		   (vlax-get-acad-object)
		 )
	  )
  )
  (setq	tbldict
	 (vla-item
	   (vla-get-dictionaries
		 (vla-get-database adoc)
	   )
	   "Acad_MlineStyle"
	 )
  )
)

Can I use some thing like (vlax-invoke tbldict 'Addobject ? ?) or some thing like
(dictadd ename symbol newobj)?

Thank you for reading this, J. Aaij.

[ Moderator Action = ON ] What are [ CODE ] tags... [ Moderator Action = OFF ]

[CADmium]

for example look here

[j.aaij]

Dear Thomas,

Thanks for your solution.

J. aaij

PS
With VisualLisp I get with:

(defun c:test ()
  (vl-load-com)
  (or adoc
	  (setq adoc
		 (vla-get-activedocument
		   (vlax-get-acad-object)
		 )
	  )
  )
  (setq	tbldict
	 (vla-item
	   (vla-get-dictionaries
		 (vla-get-database adoc)
	   )
	   "Acad_MlineStyle"
	 )
  )
  (vlax-invoke tbldict 'Addobject "Newstyle" "AcDbMlineStyle")
)

Error: AutoCAD.Application: AcRxClassName entry is not in the system registry

[ Moderator Action = ON ] What are [ CODE ] tags... [ Moderator Action = OFF ]

[fixo]

Sorry I am misunderstood to you, I think you
can use something like this, as Thomas said, change by suit

(defun C:demo ()
;;;(setvar "CLAYER" "ANNO-ARCH-WALL")  
(setq MLINE_STYLE_NAME "WALLS"
      INNER_GAP 0.92
      OUTER_GAP 1.04)
(if
  (not
    (dictadd
(cdar (dictsearch (namedobjdict) "ACAD_MLINESTYLE"))
MLINE_STYLE_NAME
(entmakex
(list '(0 . "MLINESTYLE")
'(100 . "AcDbMlineStyle")
      
(cons 2 MLINE_STYLE_NAME)
'(70 . 0)
'(3 . "")
'(62 . 256)
'(51 . 1.5708)
'(52 . 1.5708)
'(71 . 4)
(cons 49  OUTER_GAP)
'(62 . 256)
'(6 . "BYLAYER")
(cons 49  INNER_GAP)
'(62 . 1)
'(6 . "BYLAYER")
(cons 49  (* -1 INNER_GAP))
'(62 . 1)
'(6 . "BYLAYER")
(cons 49  (* -1 OUTER_GAP))
'(62 . 256)
'(6 . "BYLAYER")))))  
  (alert "Impossible to create mline style\n perhaps this was exist earlier"))
  (princ)
  )
  (C:demo)

~'J'~