[LISP程序]：【－－连接断线程序－－】

andyhua5240

有没有哪位好心的大哥能把SNSJ斑竹的加密附件重新上传呀，我想要呀？
我抗议SNSJ斑竹的行为（加加密吧，调动一下积极性～～
来个可以修复同圆弧的，点击两个端连接，点击本身两次修复弧为圆,最后加上PL线的连接和椭圆的修复正在考虑~~~

[隐藏内容]
你的积分要到 5 分才能浏览里面的内容！ ）
试想谁不愿意自己的积分高呀？可是要知道积分可是不好拿的，又不像爱心币，只要自己勤奋一点就可以多得了的。为什么一定要限制积分的多少呢？虽然我的积分只有1。五只手指也有长短的，并不是每个人都是猫老前辈呀？
惹我无礼！！！
谢谢！！！

eachy

最初由 andyhua5240 发布
[B]有没有哪位好心的大哥能把SNSJ斑竹的加密附件重新上传呀，我想要呀？
我抗议SNSJ斑竹的行为（加加密吧，调动一下积极性～～
来个可以修复同圆弧的，点击两个端连接，点击本身两次修复弧为圆,最后加上PL线的连接和?.. [/B]

赞成对源码加积分限制，当然编译的Vlx程序是要提供的。
我觉得应该发挥积分的作用，只要你真诚交流而不仅仅是在这里取人之渔积分不会成为障碍的。

andyhua5240

斑竹呀！此言诧异呀？
我对于LISP是个门外汉，半点也不懂，还好偶得陌生人长老指点我才能做个把附件。
对于LISP的源代码，我是一丁点也看不懂呀？取之以鱼，这也许是我现在唯一能做的呀！也是让好的程序发扬光大呀，也是为了我的工作的方便。至于捕鱼的方法我也想学，可是也不是一口气能成的呀？不过真的很感谢晓东网，在这里我学到了很多关于CAD方面的知识！

snsj

最初由 andyhua5240 发布
[B]斑竹呀！此言诧异呀？
我对于LISP是个门外汉，半点也不懂，还好偶得陌生人长老指点我才能做个把附件。
对于LISP的源代码，我是一丁点也看不懂呀？取之以鱼，这也许是我现在唯一能做的呀！也是让好的程序发扬光大呀... [/B]

用VLX文件吧，用法和LISP加载方法一样
上传VLX文件

LUCAS

最初由 snsj 发布
[B]加加密吧，调动一下积极性～～
来个可以修复同圆弧的，点击两个端连接，点击本身两次修复弧为圆,最后加上PL线的连接和椭圆的修复正在考虑~~~
[HIDE];
[php]
;;;|********连接断线程序********
;;;|共线则连接,... [/B]

2. 
   
3. 我想斷線連接不應改變原物件性質吧!
   
4. 弧→圓
   
5. (defun C:ARCTOCIR (/ QQ QQQ N)
   
6.   (while (not (setq SS (ssget '((0 . "ARC"))))))
   
7.   (setq N 0)
   
8.   (repeat (sslength SS)
   
9.     (setq QQ (entget (ssname SS N)))
   
10.     (setq QQ (member (assoc 210 QQ) (reverse QQ)))
    
11.     (setq QQ (reverse (subst '(0 . "CIRCLE") (assoc 0 QQ) QQ)))
    
12.     (entmake QQ)
    
13.     (setq N (1+ N))
    
14.   )
    
15.   (command "_.ERASE" SS "")
    
16.   (princ)
    
17. )
    

<br /> 我想斷線連接不應改變原物件性質吧!<br /> 弧→圓<br /> (defun C:ARCTOCIR (/ QQ QQQ N)<br />   (while (not (setq SS (ssget '((0 . "ARC"))))))<br />   (setq N 0)<br />   (repeat (sslength SS)<br />     (setq QQ (entget (ssname SS N)))<br />     (setq QQ (member (assoc 210 QQ) (reverse QQ)))<br />     (setq QQ (reverse (subst '(0 . "CIRCLE") (assoc 0 QQ) QQ)))<br />     (entmake QQ)<br />     (setq N (1+ N))<br />   )<br />   (command "_.ERASE" SS "")<br />   (princ)<br /> )<br />

feiyn

共线的两条PL线不能连接，PL线与圆弧不能连接，共线的PL线与LINE不能连接。
可否加强，谢谢楼主！

aeo

我觉得arc还和点到的位置有关系.

红的和红的，蓝的和蓝的，蓝和红的:

陌生人

上图，如果要写，aeo能说说你的思路么？

snsj

是有关系，我写的是这样：与第二次点击的部位有关，靠近哪个点就把那个点与第一次点击的弧相连，我上面就是这么写的
难点处理：就是PLINE线间的相互连接和PLINE和线或者圆之间的连接，这个处理理正里的连接处理的还有些小的BUG，要想完全覆盖这些有些难度。。。还没想好好的方法

coverne

共线的两条PL线不能连接，PL线与圆弧不能连接，共线的PL线与LINE不能连接

ada1

比较感兴趣，学习一下

laiyuming

kankanakananan

yoyoho

学习一下!!!!!!

kewenbing

1111111111111

SHUNDocker

感谢楼主分享学习！！！