找回密码
 立即注册

QQ登录

只需一步,快速开始

扫一扫,访问微社区

查看: 1426|回复: 12

[求助] [求助]:哪位能提供一个合并多义线的方法

[复制链接]
发表于 2007-9-12 14:09:17 | 显示全部楼层 |阅读模式

马上注册,结交更多好友,享用更多功能,让你轻松玩转社区。

您需要 登录 才可以下载或查看,没有账号?立即注册

×
绿色的框和红色框有一边重合,想把重合的删除,然后把剩下的其他线合并成一个闭合的多义线(紫色的框),请问有什么方法
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
发表于 2007-9-12 14:55:00 | 显示全部楼层
[php]
;;;tt合并两个多段线
(defun c:tt (/ E1 E2 SS SS12)
  (if (setq ss (ssget))
    (progn
      (command "._region" ss "")
      (setq e1 (entnext))
      (setq e2 (entnext e1))
      (setq ss12 (ssadd))
      (ssadd e1 ss12)
      (ssadd e2 ss12)
      (command "._union"  ss12"")
    )
  )
  (princ)
)
;;若想把面域改成多段线,可以用边界
[/php]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-9-12 16:42:50 | 显示全部楼层
非常感谢楼上,这正是我需要的。。。

对于
若想把面域改成多段线,可以用边界,

我不是很理解,请问应该怎么弄。。。

是用bo吗?
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2007-9-13 08:42:00 | 显示全部楼层
[php]
;;lkx轮廓线
(defun c:lkx (/ E I SS SSA)
  (setvar "cmdecho" 0)
  (if (setq ss (ssget '((0 . "*POLYLINE,REGION"))))
    (progn
      (setq ssa (ssadd))
      (setq i 0)
      (repeat (sslength ss)
        (setq e (ssname ss i))
        (command "._region" e "")
        (ssadd (entlast) ssa)
        (setq i (1+ i))
      )
    )
  )
  (command "_.union" ssa "")
  (command "._EXPLODE" (entlast))
  (setvar "PEDITACCEPT" 1)
  (command "pedit" "m" "p" "" "j" "0.0" "")
  (princ)
)

[/php]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-9-14 10:58:06 | 显示全部楼层
原来是这招,在删除重复点见识过,谢谢ls的
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2007-9-14 20:43:13 | 显示全部楼层
试试这个吧!以前明经cad的大侠编的很好用。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2007-9-14 20:46:28 | 显示全部楼层
还有一个在cad2002下能用不过有问题,有时会出错。希望能有高手可以完善它。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

 楼主| 发表于 2007-9-16 17:07:16 | 显示全部楼层
谢谢各位~~
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2007-9-28 18:47:22 | 显示全部楼层
没人搭理沉底了?我顶上去。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2007-9-29 20:03:58 | 显示全部楼层
怎么下不了?楼上请把内容贴上来吧。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2008-9-5 15:59:54 | 显示全部楼层
我来下载下来7楼程序:实体切割:gx


;;(VL-LOAD-COM)
;;(vl-acad-defun 'gx)
(defun c:gx (/ a ent1 ent2 ent_tt)
  (setq b (ssget "x"))
  (command "_.explode" b "")
  (setq b (ssget "x"))
  (command "_.pedit" b "" "j" "" "")
(setq a (ssget "x"))
  (command "_.region" a "")
  (prompt "\n选择实体")
  (setq a (ssget "x"))
  (setq ent1 (ssname a 0))
  (setq ent2 (ssname a 1))
  ;(setq ent1 (car(entsel "\n选择从中减去的实体或选择外腔")))
  ;(setq ent2 (car(entsel "\n选择减去的实体或者选择内腔")))
  (while(or (not ent1)(not ent2))
    (prompt"\n 请重新选择实体计算差集")
     (setq ent1 (car(entsel "\n选择从中减去的实体或选择外腔")))
     (setq ent2 (car(entsel "\n选择减去的实体或选择内腔")))
    )
    (if (< (vla-get-area (vlax-ename->vla-object ent1)) (vla-get-area (vlax-ename->vla-object ent2)))
    (progn
      (setq ent_tt ent1)
       (setq ent1 ent2)
       (setq ent2 ent_tt)
      )
    )
  (command "subtract" ent1 "" ent2 "")
  (setq ent1 (entlast))
  (princ "\n")
  (setq ent2 (vla-get-momentofinertia (vlax-ename->vla-object ent1)))
  ;;;;(setq lst (vlax-safearray->list (vlax-variant-value ent2)))
;;;;在R14 里面我用 (setq  lst (vl-list*  ent2))
  (setq lst (vl-list*  ent2))
  (princ (strcat "惯性矩:  x值:" (rtos (car lst)1)  "\n"))
  (princ (strcat "         y值:" (rtos (cadr lst)1)  "\n"))
  (princ)
)
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2008-12-13 20:31:31 | 显示全部楼层
有没有合并二维多段线的程序啊。。。。
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

发表于 2008-12-13 21:56:12 | 显示全部楼层
最初由 bloodmao 发布
[B]有没有合并二维多段线的程序啊。。。。 [/B]



是不是这个
[PHP]
(defun C:QQ (/ SS)
  (setvar "cmdecho" 0)
  (if (setq SS (ssget '((0 . "LWPOLYLINE,POLYLINE,ARC,LINE"))))
    (progn
      (setvar "peditaccept" 1)
      (command "._pedit" "m" SS "" "j" "" "")
    )
  )
  (princ)
)
(princ)

[/PHP]
论坛插件加载方法
发帖求助前要善用【论坛搜索】功能,那里可能会有你要找的答案;
如果你在论坛求助问题,并且已经从坛友或者管理的回复中解决了问题,请把帖子标题加上【已解决】;
如何回报帮助你解决问题的坛友,一个好办法就是给对方加【D豆】,加分不会扣除自己的积分,做一个热心并受欢迎的人!
回复 支持 反对

使用道具 举报

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

本版积分规则

QQ|申请友链|Archiver|手机版|小黑屋|辽公网安备|晓东CAD家园 ( 辽ICP备15016793号 )

GMT+8, 2024-11-5 14:45 , Processed in 0.493403 second(s), 56 queries , Gzip On.

Powered by Discuz! X3.5

© 2001-2024 Discuz! Team.

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