[求助]：帮我看看程序的问题，用entmake生成lwpl.

nuance

(defun c:ui(/ makedxf ob dxf2 ob-wid layer2 ltype color lts lweight pt3 pt4 )
(defun makedxf (pt1-x pt2-x layer-x color-x ltype-x lweight-x lts-x wid-x / elist)
   (setq elist (list (cons 0 "LWPOLYLINE")
                     (cons 8 layer-x)
                     (cons 100 "AcDbEntity")
                     (cons 100 "AcDbPolyline")         
                     (cons 43 wid-x)
                     (cons 90 2)
                     (cons 70 0)
                     (append (list 10) (list (car pt1-x))(list(cadr pt1-x)))
                     (append (list 10) (list (car pt2-x))(list(cadr pt2-x)))
                     
               )
   )
   (if (/= nil color-x)(setq elist (append elist (list (cons 62 color-x)))))
   (if (/= nil ltype-x)(setq elist (append elist (list (cons 6 ltype-x)))))
   (if (/= nil lweight-x)(setq elist (append elist (list (cons 370 lweight-x)))))
   (if (/= nil lts-x)(setq elist (append elist (list (cons 48 lts-x)))))
)
   (setq ob (car (entsel "\nselect lower polyline:")))
(setq dxf2 (entget ob))
(setq ob-wid (cdr (assoc 40 dxf2)))
(setq layer2 (cdr (assoc 8 dxf2)))
(setq ltype (cdr (assoc 6 dxf2)))
(setq color (cdr (assoc 62 dxf2)))
(setq lts (cdr (assoc 48 dxf2)))
(setq lweight (cdr (assoc 370 dxf2)))
(setq pt3 (cdr (assoc 10 dxf2)))
(setq dxf2 (cdr (member (assoc 10 dxf2) dxf2)))
(setq pt4 (cdr (assoc 10 dxf2)))
   (entmake (makedxf pt3 pt4 layer2 color ltype lweight lts ob-wid))
   ;(command "pline" pt4 pt3 "")
   )
结果并没有生成和原来物体一样的pl.

eachy

2000 以上 (entmake (entget (car (entsel))))

2. (defun c:tt (/ e)
   
3.   (if (setq e (entsel))
   
4.      (progn
   
5.        (setq p (cadr e))
   
6.        (command ".copy" e "" p "@")
   
7.      )
   
8.    )
   
9.   (princ)
   
10. )

(defun c:tt (/ e)<br />   (if (setq e (entsel))<br />      (progn<br />        (setq p (cadr e))<br />        (command ".copy" e "" p "@")<br />      )<br />    )<br />   (princ)<br /> )

nuance

贴中的程序只是截取的一部分，我想求助看看entmake哪里用的不对？