如何将line改成pline呢

leeyuan

如题，在此先谢了！

yshf

(command "pedit" 要转成pline的line "" "")

或者取出line的起点p1、止点p2，删除line，再

(command "pline" p1 p2 "")

leeyuan

自己做了一个小程序，请高手指点一下

(defun c2PL()
  (setq HOLDECHO (getvar "cmdecho"))
  (setvar "cmdecho" 0)
  (setq ent (entsel "\n选择<lwpolyliine> to <line>:"))
  (command "pedit" (car ent)  "y" "j")
  (command pause)
  (setvar "cmdecho" HOLDECHO)
  (princ)
)

sieben

(defun c:j (/ join-ss rep1 len entnam enti)
  (setvar "CMDECHO" 0)
  (setq join-ss (ssget '((-4 . "<OR")
    (0 . "LINE")
    (0 . "ARC")
    (-4 . "<AND")
    (0 . "POLYLINE")
    (70 . 0)
    (-4 . "AND>")
    (-4 . "<AND")
    (0 . "LWPOLYLINE")
    (70 . 0)
    (-4 . "AND>")
    (-4 . "OR>")
   )
  )
  ) 
  (if (not join-ss)
    (exit)
  )
  (vl-cmdf "_.undo" "begin")
  (setq rep1 0)
  (setq len (sslength join-ss))
  (terpri)
  (repeat len
    (setq entnam (ssname join-ss rep1))
    (setq enti (entget entnam))
    (princ (strcat "\rProcessing line " (itoa (1+ rep1)) " of " (itoa len)))
    (if enti
      (if (or (= (cdr (assoc 0 enti)) "POLYLINE")
       (= (cdr (assoc 0 enti)) "LWPOLYLINE")
   )
 (command "_.pedit" entnam "j" join-ss "" "x")
 (command "_.pedit" entnam "y" "j" join-ss "" "x")
      )
    )
    (setq rep1 (1+ rep1))
  )
  (vl-cmdf "_.undo" "end")
  (setvar "CMDECHO" 1)
  (princ)
)