明经CAD社区

 找回密码
 注册

QQ登录

只需一步,快速开始

搜索
查看: 1059|回复: 4

请帮忙修改连接同向且接近的短线

[复制链接]
发表于 2015-3-21 17:28 | 显示全部楼层 |阅读模式
2明经币
请教各位朋友:
我的目的。连接相同方向的线,且(基本没有间距)的线。
我的想法。是全部选择构建选择集:aa  
再提取选择集里面第一个图元,按线方向两头(根据自己情况)定距离选择。把同向的,和相交的选择了
再把不同向的过滤掉。最后连接。
再把原来选择集AA 减去刚才的选择集。
这样循环。现在循环条件设置不对,
  1. (defun c:tt ()
  2.   (vl-load-com)
  3.   (setq ss_all (ssget '((0 . "line"))))
  4.    (while  
  5.     (/= 0 (sslength ss_all) )
  6.   (setq name_00 (ssname ss_all 0))
  7.   (setq pt:start (vlax-curve-getstartpoint name_00))
  8.   (setq pt:end (vlax-curve-getendpoint name_00))
  9.   (setq ang_00 (angle pt:start pt:end))
  10.   (setq lengt++ 100000) ;测试过程由于数据过小引起失误
  11.   (setq pt<--- (polar pt:start (angle pt:end pt:start) lengt++))
  12.   (setq pt---> (polar pt:end (angle pt:start pt:end) lengt++))
  13.   (setq lis (list pt<--- pt--->))
  14.   (setq ss>>1 (ssget "f" lis '((0 . "*line"))))
  15. ;;;;----------------------
  16.   (setq ii 0)
  17.   (setq add_11 (ssadd))
  18.   (repeat (sslength ss>>1)
  19.     (setq name>11 (ssname ss>>1 ii)
  20.     ii    (1+ ii)
  21.     )
  22.     (setq start>11 (vlax-curve-getstartpoint name>11))
  23.     (setq end>11 (vlax-curve-getendpoint name>11))
  24.     (setq ang>11 (angle start>11 end>11))
  25.     (if   ;把与第一个图元角度(ang_00)相等的分类到选择集add_11
  26.       (or (= ang_00 ang>11) (= ang_00 (+ pi ang>11)))

  27.       (progn
  28.        (setq add_11 (ssadd name>11 add_11))
  29.        (setq ss>nub_11 (sslength add_11))
  30.        );progn
  31.     ) ;if
  32.   ) ;repeat
  33. ;;;;----------------------
  34.   (setq ss>nub (sslength ss>>1))
  35.   (command "_.select" ss_all "r" add_11 "")
  36.   (setq ss_all (ssget "p")) ;设置
  37.   (setq ss>nub (sslength ss_all))
  38.    ;(sssetfirst nil xx)
  39.   (vl-cmdf "pedit" "m" add_11 "" "y" "j" 1 "")
  40.   ) ;while
  41. )

附件: 您需要 登录 才可以下载或查看,没有账号?注册
发表于 2015-3-21 23:27 | 显示全部楼层
那不就是删除重线的功能么?
回复

使用道具 举报

 楼主| 发表于 2015-3-22 10:35 | 显示全部楼层
荒野孤行 发表于 2015-3-21 23:27
那不就是删除重线的功能么?

谢谢关照。确实是的。
回复

使用道具 举报

发表于 2015-3-22 21:19 | 显示全部楼层
434939575 发表于 2015-3-22 10:35
谢谢关照。确实是的。

搞定了吧?
回复

使用道具 举报

 楼主| 发表于 2015-3-23 09:12 | 显示全部楼层
嗯,网上搜了去重线,就可以了,谢谢啦!
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则

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

GMT+8, 2024-3-29 17:19 , Processed in 0.223198 second(s), 21 queries , Gzip On.

Powered by Discuz! X3.4

Copyright © 2001-2021, Tencent Cloud.

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