明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
楼主: idfhm

超级简化pedit命令

  [复制链接]
发表于 2010-11-17 21:26 | 显示全部楼层
还是好人多呀,我一直用土办法,看来可以换换了
发表于 2010-12-26 21:32 | 显示全部楼层
下来看看是不是真的那么快。
发表于 2011-3-8 10:07 | 显示全部楼层
顶,,好用
发表于 2011-3-8 20:46 | 显示全部楼层
,不错
发表于 2011-3-18 16:45 | 显示全部楼层
发表于 2011-3-21 10:21 | 显示全部楼层
旧代码,可能重复发了:)参考一下吧:)
(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)
)
发表于 2011-3-21 15:26 | 显示全部楼层
試試這個.
;點選任一物件,自動串接首尾相連的線條成聚合線,只能連接當前螢幕能看得全的物件
(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)
)
发表于 2011-3-22 22:35 | 显示全部楼层
这个如何:

  1. (defun c:ppp( / pet ss)
  2.    (setq pet (getvar "PEDITACCEPT"))
  3.    (setvar "PEDITACCEPT" 1)
  4.    (while (setq ss (ssget '((0 . "ARC,*LINE"))))
  5.        (command "_pedit" (ssname ss 0) "j" ss "" "")
  6.    )
  7.    (setvar "PEDITACCEPT" pet)
  8.    (princ)
  9. )
回复 支持 3 反对 1

使用道具 举报

发表于 2011-4-7 23:59 | 显示全部楼层
谢谢诸位了!
发表于 2011-5-21 19:53 | 显示全部楼层
很好,实用.简洁
您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-3-29 06:31 , Processed in 0.222550 second(s), 16 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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