linheyuanpcb 发表于 2011-4-29 16:40:19

(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 发表于 2011-4-29 21:48:54

回复 linheyuanpcb 的帖子

谢谢楼主，学习了

chpmould 发表于 2011-4-29 22:04:50

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

这个也是...

yxl88168 发表于 2011-4-29 22:44:51

回复 chpmould 的帖子

谢谢楼主，下来看看

jh1005 发表于 2011-4-29 22:53:13

回复 linheyuanpcb 的帖子

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

mandala 发表于 2011-4-30 10:54:05

jh1005 发表于 2011-4-29 22:53 static/image/common/back.gif
回复 linheyuanpcb 的帖子

点一条线的：


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

AMTONNY 发表于 2011-4-30 11:14:45

偶也试来一个常用的，晒一晒，
;;;快速串接并重生成
(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 发表于 2011-4-30 11:56:51

回复 AMTONNY 的帖子

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

198526 发表于 2011-4-30 16:30:29

学习学习

鲜菠萝 发表于 2011-5-5 13:27:14

用了一下，非常不错，谢谢分享。
页: 1 [2] 3
查看完整版本: 制作聚合线