Hi rohaya,
test this code
Code:
(defun c:test (/ ss sse otyp sp ep)
(if
(setq ss (car (entsel "\nSelect an object line")))
(progn
(setq sse (entget ss))
(setq otyp (cdr (assoc 0 sse)))
(if
(= otyp "LINE")
(progn
(setq sp (cdr (assoc 10 sse)))
(setq ep (cdr (assoc 11 sse)))
(command "_pline" sp ep "")
(command "_erase" ss "")
) ; progn
) ; if
) ; progn
(alert "\nThere is not object,try again")
) ; if
(princ)
) ; defun
Originally Posted by
rohaya.shaffini
Abdul Huck,
How the lisp routine that can convert lines to polylines look like?
Please help me solve this problem. Thanks.