0 Members and 1 Guest are viewing this topic.
(progn (setq XdLst (list (cons 0 "XRECORD") (cons 100 "AcDbXrecord"))) (setq XrecData (append XdLst (list (cons 1 NAME) (cons 1 FILTER) (cons 1 "*") (cons 1 "*") (cons 70 0) (cons 1 "*") (cons 1 "*")))) (setq NewXRec (entmakex XRecData)) (dictadd NewDict Name NewXRec) )
Awesome, thanks