超级简化pedit命令

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

很好,实用.简洁

账号		自动登录	找回密码
密码			注册