明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 12537|回复: 41

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

  [复制链接]
发表于 2010-12-6 11:17 | 显示全部楼层 |阅读模式
本帖最后由 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" ""))


评分

参与人数 1金钱 +5 收起 理由
angel066499 + 5 很给力!

查看全部评分

发表于 2011-11-12 23:58 | 显示全部楼层

  1. ;略作修改
  2. (defun c:pp()
  3.     (setq cm (getvar "cmdecho"))
  4.     (setvar "cmdecho" 0)
  5.     (prompt "\n 多项选择同时连线----钮广春整理--★QQ-626860125★")
  6.     (setvar "peditaccept" 1) ;加入这个系统变量的代码
  7.     (if (setq ngc01 (ssget '((0 . "LINE,ARC,LWPOLYLINE,POLYLINE"))))
  8.         (command "_pedit" "m" ngc01 "" "j" "0.1" "")
  9.     )
  10.     (setvar "cmdecho" cm)
  11.     (princ)
  12. )
回复 支持 1 反对 0

使用道具 举报

发表于 2013-4-16 21:15 | 显示全部楼层
  1. (defun c:pp ( / *Error* peditaccept ss usercmd)
  2.   (defun *Error* (msg)
  3.     (if (and msg (not (wcmatch (strcase msg) "*BREAK*,*CANCEL*,*QUIT*,*EXIT*,")))(princ))
  4.     (and usercmd (setvar "CMDECHO" usercmd))
  5.     (vla-EndUndoMark (vla-get-ActiveDocument (vlax-get-acad-object)))
  6.   )
  7.   (setq *DOC (vla-get-ActiveDocument (vlax-get-acad-object)))(vla-StartUndoMark *DOC)
  8.   (setq usercmd (getvar "CMDECHO"))(setvar "CMDECHO" 0)
  9.   (if (setq ss (ssget '((0 . "ARC,LINE,LWPOLYLINE"))))
  10.     (progn
  11.       (setq peditaccept (getvar 'peditaccept))
  12.       (setvar 'peditaccept 1)
  13.       (command "_.pedit" "_M" ss "" "_J" "" "")
  14.       (setvar 'peditaccept peditaccept)
  15.     )
  16.   )
  17.   (*error* nil)
  18.   (princ)
  19. )
回复 支持 1 反对 0

使用道具 举报

发表于 2019-9-28 00:23 | 显示全部楼层
非常感谢,解决一直不能解决的问题
发表于 2010-12-6 16:56 | 显示全部楼层
应加入出错退出,esc退出处理,否则易死机
 楼主| 发表于 2010-12-6 17:05 | 显示全部楼层
这个我不会呀,新手刚刚起步
发表于 2010-12-15 14:36 | 显示全部楼层
新手上路,希望得到帮助。
发表于 2010-12-26 21:23 | 显示全部楼层
不错,都比我牛逼。
发表于 2011-1-6 08:32 | 显示全部楼层
不过会变成多段线,也没有esc退出处理
 楼主| 发表于 2011-1-6 11:18 | 显示全部楼层
回复 xyz2009xyz 的帖子

这个不需要,esc的退出处理,一般不会死机的,连接起来只能是多段线了
发表于 2011-1-10 08:21 | 显示全部楼层
论坛上有这种,不会改变属性的连接程序。VBA的是源码,就是有点长,还有一个是.VLX的都可以!
发表于 2011-3-31 20:17 | 显示全部楼层
呵呵,挺好的
 楼主| 发表于 2011-4-2 18:40 | 显示全部楼层
回复 yxl88168 的帖子

客气了,简单的,复杂的也不会弄
您需要登录后才可以回帖 登录 | 注册

本版积分规则

小黑屋|手机版|CAD论坛|CAD教程|CAD下载|联系我们|关于明经|明经通道 ( 粤ICP备05003914号 )  
©2000-2023 明经通道 版权所有 本站代码,在未取得本站及作者授权的情况下,不得用于商业用途

GMT+8, 2024-3-29 00:44 , Processed in 0.179424 second(s), 27 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

快速回复 返回顶部 返回列表