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

草木堂

顶 好东西 啊 ！！

springwillow

呵呵，我也是刚开始学LISP。下来看看

328302216

你的这个程序现在不能下载了，能给我发一个吗？我想研究一下你编的代码！谢谢

328302216

下载下来的代码就
(defun c:pp()
     (prompt "\n 多项选择同时连线----钮广春整理--★QQ-626860125★")
     (command "peditaccept" 1)     ；加入这个系统变量的代码
     (setq ngc01 (ssget))
     (command "_pedit" "m" ngc01 "" "j" "0.1" ""))
这些啊？  不懂怎么用！

hhh454

328302216 发表于 2011-11-12 11:42
下载下来的代码就
(defun c:pp()
     (prompt "\n 多项选择同时连线----钮广春整理--★QQ-626860125★") ...

将代码复制到文本里面，另存为pp.lsp文件，加载到cad里面，然后执行pp命令

328302216

hhh454 发表于 2011-11-12 11:46
将代码复制到文本里面，另存为pp.lsp文件，加载到cad里面，然后执行pp命令

这个我知道，但是用了整不出什么功能来，能说一下加载后怎么操作吗？谢谢

hhh454

328302216 发表于 2011-11-12 12:16
这个我知道，但是用了整不出什么功能来，能说一下加载后怎么操作吗？谢谢

批量连接断线，

328302216

hhh454 发表于 2011-11-12 16:46
批量连接断线，

我觉得你应该整个gif动画在上面！

yshf

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

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

czb203

很不错的样子哦 谢谢啊