hhh454 发表于 2010-11-17 21:26:00

还是好人多呀，我一直用土办法，看来可以换换了

风流少年时 发表于 2010-12-26 21:32:58

下来看看是不是真的那么快。

xieling_08 发表于 2011-3-8 10:07:52

顶，，好用

pop159 发表于 2011-3-8 20:46:08

,不错

micotam 发表于 2011-3-18 16:45:53

BDYCAD 发表于 2011-3-21 10:21:30

旧代码，可能重复发了：）参考一下吧：）
(defun c:ee (/)
(if (setq Ename(entsel "\n有请选取一条要连接的线:"))
    (PROGN
      (if(=(cdr(assoc 0(ENTGET(CAR Ename))))"LWPOLYLINE")
        (command "pedit" Ename "J" "all" "" "")
        (command "pedit" Ename "" "J" "all" "" "")
        )
)
    )
(princ)
)

aytxq 发表于 2011-3-21 15:26:10

試試這個.
;點選任一物件,自動串接首尾相連的線條成聚合線,只能連接當前螢幕能看得全的物件
(Defun C:J (/ Ss Pt1 Pt2)
(Setvar "Cmdecho" 0)
    (Setq Pt1 (Getvar "Vsmin"));視埠虛擬螢幕的左下角點
    (Setq Pt2 (Getvar "Vsmax"));視埠虛擬螢幕的右上角點
    (Setq Ss (Entsel "\n 選取物件:"))
(Vl-Cmdf ".Pedit" Ss "Yes" "J" "C" Pt1 Pt2 "" "")
(Setvar "Cmdecho" 1)
(Princ)
)

yshf 发表于 2011-3-22 22:35:45

这个如何：
(defun c:ppp( / pet ss)
   (setq pet (getvar "PEDITACCEPT"))
   (setvar "PEDITACCEPT" 1)
   (while (setq ss (ssget '((0 . "ARC,*LINE"))))
       (command "_pedit" (ssname ss 0) "j" ss "" "")
   )
   (setvar "PEDITACCEPT" pet)
   (princ)
)

669423907 发表于 2011-4-7 23:59:25

谢谢诸位了！

yhkk0317 发表于 2011-5-21 19:53:08

很好,实用.简洁
页: 1 [2] 3 4 5
查看完整版本: 超级简化pedit命令