【原创】批量连接直线、圆弧、多义线--源码，很简单

hhh454 · 发表于 2010-12-6 11:17:58

本帖最后由 hhh454 于 2010-12-6 11:22 编辑

(defun c:pp()
   (prompt "\n 多项选择同时连线----钮广春整理--★QQ-626860125★")
   (command "peditaccept" 1)    ；加入这个系统变量的代码
   (setq ngc01 (ssget))
   (command "_pedit" "m" ngc01 "" "j" "0.1" ""))

yshf · 发表于 2011-11-12 23:58:06

;略作修改
(defun c:pp()
(setq cm (getvar "cmdecho"))
(setvar "cmdecho" 0)
(prompt "\n 多项选择同时连线----钮广春整理--★QQ-626860125★")
(setvar "peditaccept" 1) ;加入这个系统变量的代码
(if (setq ngc01 (ssget '((0 . "LINE,ARC,LWPOLYLINE,POLYLINE"))))
(command "_pedit" "m" ngc01 "" "j" "0.1" "")
)
(setvar "cmdecho" cm)
(princ)
)

1993063 · 发表于 2013-4-16 21:15:47

(defun c:pp ( / *Error* peditaccept ss usercmd)
(defun *Error* (msg)
(if (and msg (not (wcmatch (strcase msg) "*BREAK*,*CANCEL*,*QUIT*,*EXIT*,")))(princ))
(and usercmd (setvar "CMDECHO" usercmd))
(vla-EndUndoMark (vla-get-ActiveDocument (vlax-get-acad-object)))
)
(setq *DOC (vla-get-ActiveDocument (vlax-get-acad-object)))(vla-StartUndoMark *DOC)
(setq usercmd (getvar "CMDECHO"))(setvar "CMDECHO" 0)
(if (setq ss (ssget '((0 . "ARC,LINE,LWPOLYLINE"))))
(progn
(setq peditaccept (getvar 'peditaccept))
(setvar 'peditaccept 1)
(command "_.pedit" "_M" ss "" "_J" "" "")
(setvar 'peditaccept peditaccept)
)
)
(*error* nil)
(princ)
)

angel066499 · 发表于 2019-9-28 00:23:22

非常感谢，解决一直不能解决的问题

xiaxiang · 发表于 2010-12-6 16:56:39

应加入出错退出，esc退出处理，否则易死机

hhh454 · 发表于 2010-12-6 17:05:45

这个我不会呀，新手刚刚起步

shaoqing5366 · 发表于 2010-12-15 14:36:28

新手上路，希望得到帮助。

风流少年时 · 发表于 2010-12-26 21:23:01

不错，都比我牛逼。

xyz2009xyz · 发表于 2011-1-6 08:32:58

不过会变成多段线，也没有esc退出处理

hhh454 · 发表于 2011-1-6 11:18:40

回复 xyz2009xyz 的帖子

这个不需要，esc的退出处理，一般不会死机的，连接起来只能是多段线了

xyz2009xyz · 发表于 2011-1-10 08:21:30

论坛上有这种，不会改变属性的连接程序。VBA的是源码，就是有点长，还有一个是.VLX的都可以！

yxl88168 · 发表于 2011-3-31 20:17:29

呵呵，挺好的

hhh454 · 发表于 2011-4-2 18:40:40

回复 yxl88168 的帖子

客气了，简单的，复杂的也不会弄

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

【原创】批量连接直线、圆弧、多义线--源码，很简单

评分