[求助]：pedit 的问题，谢谢！

xjjy

;将所选择的line或arc串成多义线

(defun c:j (/ ssa ssa-ent ent-p i)
  (setq odlerr *error*)
  (command "undo" "be");设置返回起始点
  (setq ssa (ssget))
  (setq i 0)
  (while (< i (sslength ssa))
    (setq ssa-ent (ssname ssa i))
    (setq ent-p (cdr(assoc 0 (entget ssa-ent))))
    (if (not (null ent-p));判断原图元是否已串入多义线
      (if (or (= ent-p "LWPOLYLINE") (= ent-p "POLYLINE"));判断原图元属性
         (command "pedit" ssa-ent  "j" ssa "" "")
         (command "pedit" ssa-ent  "y" "j" ssa "" "")
    ))
    (setq i (1+ i))
  )
  (command "undo" "e");设置返回终止点
  (setq *error* olderr)
  (princ)
)


;|(command "pedit" ssa-ent  "j" ssa "" "")
pedit命令当所选的曲线已经closed，则"Can't join to a closed polyline",
是否能在程序中增加一个判断，
排除已封闭的这些曲线，只对未封闭的进行处理呢？|;

Underway

;; LwPolyLine only
(setq ssa (ssget  '((0 . "LwPolyLine") (70 . 0 )))))

xjjy

不行

那些line,arc无法选上？

Underway

(setq ssa
  (ssget
    (list
      '(-4 . "＜or")        ;  ＜or ????
          '(-4 . "＜and")   ; ＜and   ???
               '(0 . "LwPolyLine")
                '(70 . 0 )
           '(-4 . "and>")
           (0 . "Line,Arc")
        '(-4 . "or>")
    )))


＜or　＜and 函数打不出来  ????

rdhhb

???什么问题啊.我是新手

lyc3029

(princ "\npee,用于合并线条!Writen by lyc in 2005.08")
(defun C:pee(/ a n s1 s2 i x m b va nu)
(princ "\n请选择你要合并的线条!")
(setq a (ssget))
(setq n (sslength a))
(setq i 0)(setq nu 0)
(setq x (ssname a 0))
(setq m (entget x))(setq b (assoc 0 m))
(setq va (cdr b))
(if  (= "LWPOLYLINE" va )  (setq nu (+ nu 1)))
(setvar "cmdecho" 0)
(if (= nu 1) (command "pedit" a "j" "all" "" "") (command "pedit" a "y" "j" "all" "" ""))
(princ "\n有")(princ n)(princ "个线条被合并*_*!")
(princ)
)

taner

請參考http://www.xdcad.net/forum/showthread.php?s=&threadid=447851

將(SETQ SS (SSGET))改爲
(setq ssa (ssget '((-4 . "<or") (-4 . "<and")
                   (0 . "line,arc")
                   (-4 . "and>")
                   (-4 . "<and")
                   (0 . "*polyline")
                   (70 . 0)
                   (-4 . "and>")
                   (-4 . "or>")
                  )
           )
  )