Hello,
I am trying to use entmake instead of the command line to draw a line.
This is the code:
(defun c:test()
....
....
(setq y (- (length lst1) 1))
(command "line" pt1 (nth y lst2) "")
(setq y 0)
)
And work fine but i want this :
(defun c:test()
....
....
(setq y (- (length lst1) 1))
(mapcar 'line_ pt1 list(nth y lst2))
(setq y 0)
)
(defun line_ (str_ end_)
(entmakex
(list
'(0 . "LINE")
(cons 10 (trans str_ 1 0))
(cons 11 (trans end_ 1 0))
(cons 62 8)
)
)
)
But don't want to work, nothing append...
Thank you to read this,
Christina