[编程申请]：[编程申请]：求LSP程序：通过一次命令使原来由LINE线绘制的图形变为PLINE

magiczertul

通过一次命令使原来由LINE线绘制的图形变为PLINE线绘制的封闭多边形，见附图

li809

支持一下，高手怎么都不出手了

f5612140

MPEDIT或PEDIT->M就行了

ps122

(defun c:pl (/ ssa ssa-ent ent-p i)
  (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");设置返回终止点
  (princ)
)

ss1025

论坛中这种程序好多的，楼主在求助之前应该搜寻一下啊

我发一个[转贴]的

(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)
)

f5612140

樓上程序裡用的還是pedit,除非考慮不同特性是否合併或計算的問題,否則程序裡除了pedit那一行外,其他行不覺得多餘嗎?

magiczertul

谢谢四楼的好兄弟，程序简练实用。
五楼的程序有问题，加载提示错误。
另外，还请多费心看看我最近发的几个申请贴，试试能解决否

tc405003

(defun c:pJ (/ e  n1 )
           (setq e (ssget) )
           (setq n1 (sslength e))
        (repeat n1
           (command "pedit" e "y" "j" e "")
       ))

david99

PEDIT命令就能实现

li809

2002中可以用pljoin来实现?
但2004和2005中就不知道了,谁知道的请告诉我吧
天正6里面也有,也附上吧

它山之石

参见下贴：
http://www.xdcad.net/forum/showthread.php?s=&threadid=341629

f5612140

最初由 它山之石 发布
[B]参见下贴：
http://www.xdcad.net/forum/showthread.php?s=&threadid=341629 [/B]

1.最起碼也要改為連續操作
2.直接用bpoly還能連續操作呢
3.還是用pedit或利用pedit寫的程序快些

ZHGWF

(defun C:pj (/ wf) (setq wf (ssget)) (command "pedit" "m" wf "" "y" "j" "0" ""))

tonhh

新手还下再不了？？？？？？？？？？？？？哎哭啊