Topic: Draw line by entmake

[Christina]

Hello,
I am trying to use entmake instead of the command line to draw a line.

This is the code:

Code: [Select]

(defun c:test()
     ....
     ....
     (setq y (- (length lst1) 1))
(command "line" pt1 (nth y lst2) "")
     (setq y 0)
)

And work fine but i want this  :

Code: [Select]

(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

[Christina]

OK, got it!

Code: [Select]

(mapcar 'line_  (list pt1) (list(nth y lst2)))

[Stefan]

If (command ... works, no need to mapcar

Code - Auto/Visual Lisp: [Select]

1. (line_  pt1 (nth y lst2))

[Christina]

OK, thank you Stefan!

[Mark]

Very minor but, it may help!

Code: [Select]

(setq p1 (getpoint "\nSpecify first point:"))
(setq p2 (getpoint p1 "\nSpecify next point:"))

(entmake
  (list
    '(0 . "LINE")
    (cons 10 p1)
    (cons 11 p2)
  )
)


[d2010]

I used , all times the function "dfn_enamk_line"

Code: [Select]


(Defun dfn_enamk_line(p1 p2 la color lt / $rr nfl)
  (if (=  color nil) (setq;|a37864|;
color 256)) (setq;|a37892|;
la (if (>  la "") la (getvar "CLAYER"))
p1 (append (list 10) p1)
p2 (append (list 11) p2)
nfl (list (cons 0 "LINE") (cons 100 "AcDbEntity") (cons 8 la) (cons 100 "AcDbLine") p1 p2 (cons 62 color))) (if (>  lt "") (setq;|a38184|;
nfl (append nfl (list (cons 6 lt))))) (setq;|a38240|;
$rr (entmakex nfl)) (princ)
$rr);;Lsp=(dfn_enamk_line (getpoint) (getpoint) nil 34 "")


Hello,
I am trying to use entmake instead of the command line to draw a line.
Thank you to read this,
Christina