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
很好,实用.简洁