制作聚合线

linheyuanpcb

(defun fsxm-silenceexit (/ *error*) ;无声退出 ;
  (t (setq *error* strcat))
)
(defun c:pj (/ ss *error*)         ;连接多义线
(defun *error* (msg) (princ))
(princ "\n 点选或框选快速生成闭合外形线;")
(setq ss (ssget '((-4 . "<or")
(-4 . "<AND") (0 . "LWPOLYLINE") (70 . 0) (-4 . "AND>")
(0 . "LINE")
(0 . "ARC")
(-4 . "or>")))
)
(or ss (fsxm-silenceexit))
(setvar "cmdecho" 0)
(setvar "PEDITACCEPT" 1)
(if (= (sslength ss) 1)
  (vl-cmdf "PEDIT" (ssname ss 0) "j" "all" "" "")
  (command "PEDIT" "m" "P" "" "j" "" "")
)
(setvar "PEDITACCEPT" 0)
(princ)
)
;------------------------------------------------------------
(defun c:pj1 ( / ss pt1)
(setvar "PEDITACCEPT" 1)
(setvar "CMDECHO" 0)
(setq ss (ssget "X" '((0 . "LINE,ARC,LWPOLYLINE"))))
(setq pt1 (entsel "\n 点选快速生成闭合外形线:"))
(command "PEDIT" pt1 "j" ss "" "")
(princ)
)


本人集的，希望可以帮到你

yxl88168

回复 linheyuanpcb 的帖子

谢谢楼主，学习了

chpmould

linheyuanpcb 发表于 2011-4-29 16:35
好像飞诗的一个，很不错，点一条线就可以将所有跟这条线连一直的都生成聚合线了
一直在用，

这个也是...

yxl88168

回复 chpmould 的帖子

谢谢楼主，下来看看

jh1005

回复 linheyuanpcb 的帖子

点一条线的：
(if (= (getvar "PEDITACCEPT") 1)
  (vl-cmdf "PEDIT" (car(entsel)) "j" "all" "" "")
  (vl-cmdf "PEDIT" (car(entsel)) "Y" "j" "all" "" "")
)

mandala

jh1005 发表于 2011-4-29 22:53
回复 linheyuanpcb 的帖子

点一条线的：

哎哟，这个比较牛的，学习了。

AMTONNY

偶也试来一个常用的，晒一晒，
;;;快速串接并重生成
(defun c:AJ()
(setvar "cmdecho" 0)
(SETQ VIEWCTR (GETVAR "VIEWCTR"))
(SETQ VIEWSIZE (GETVAR "VIEWSIZE"))
(SETQ CORNER1 (LIST (+ (/ VIEWSIZE 1.2) (CAR VIEWCTR) )  (+ (/ VIEWSIZE 2) (CADR VIEWCTR)) ))
(SETQ CORNER2 (LIST (- (CAR VIEWCTR) (/ VIEWSIZE 1.2)  ) (- (CADR VIEWCTR) (/ VIEWSIZE 2) )))
(setq aa (ssget "C" CORNER1 CORNER2 '((-4 . "<or") (0 . "LINE") (0 . "LWPOLYLINE") (0 . "ARC") (-4 . "or>"))))
(ssget "C" CORNER1 CORNER2)
(command "erase" "p" "")
(command "undo" "")
(command "pedit"  "m" aa "" "y"  "j"  "" "")
(princ "\n当前窗口段线已串接并重生成:")
(princ)
)

yxl88168

回复 AMTONNY 的帖子

好像有点问题，提示函数错误

198526

学习学习

鲜菠萝

用了一下，非常不错，谢谢分享。