草图中有N多个无规则的圆，如何操作可以快捷得到所有圆的圆心（对象为点）并删除圆

574395 · 发表于 2011-4-27 16:42:02

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

草图中有N多个无规则的圆，如何操作可以快捷得到所有圆的圆心（对象为点）并删除圆

hongwei_1987jp · 发表于 2011-4-28 08:00:08

http://www.3dportal.cn/discuz/vi ... p;page=1&extra=

574395 · 发表于 2011-4-28 08:47:04

2# hongwei_1987jp

没有理解我意思：草图有N个圆而没有每一个圆的圆心（我只圆心这个点）！？我现在要通过这些圆来获得这些圆的圆心，而不要圆，就是要获得这些圆的所有Position，也就是通过草图圆获得圆心们这个对象

oneteng · 发表于 2011-4-28 15:59:43

2# hongwei_1987jp
1 P$ V! L, X% Z
0 a" E! X( _4 l7 t) T3 w; u R. T& o/ h. q _
没有理解我意思：草图有N个圆而没有每一个圆的圆心（我只圆心这个点）！？我现在要通过这些圆来获得这些圆的圆心，而不要圆，就是要获得这些圆的所有Position，也就是通过草图圆获得圆心们 ...
- x+ K% z9 L5 d( M9 w574395 发表于 2011-4-28 08:47 http://www.3dportal.cn/discuz/images/common/back.gif

有圆必有圆心！！！划线连接各圆圆心（自动捕捉）。

574395 · 发表于 2011-4-28 16:21:48

4# oneteng

具体如何自动捕捉？？一个一个点圆心？？

hongwei_1987jp · 发表于 2011-4-28 17:58:21

本帖最后由 hongwei_1987jp 于 2011-4-28 18:00 编辑

就是不明白，你为什么要先画圆，找圆点，然后又不要那个圆，就是要圆点？

直接画**点**不行吗？

你要想利用这些点去做草图，用曲线直接连接那些点不就可以了吗？？？

sihouko · 发表于 2011-4-28 18:08:17

直白的說，全選。。。。圓心會自動標出。。。。。如果你要連接所有圓心。。那只能一個一個點。。。。

yjyeming · 发表于 2011-4-29 08:23:38

1,写一个宏.
2,把草图名称改为"草图n".

Sub main()
Dim swApp  As SldWorks.SldWorks
Dim swModel As SldWorks.ModelDoc2
Dim swPart As SldWorks.PartDoc
Dim swSelMgr  As SldWorks.SelectionMgr
Dim swFeat  As SldWorks.Feature
Dim swSketch As SldWorks.Sketch
Dim mySelectData As SldWorks.SelectData
Dim skContour As SketchContour
Dim vEdges As Variant, myEdge As SldWorks.Edge
Dim NumArcs, uuu As Long
Dim vArcs As Variant
Dim vSkContours As Variant
Dim vSkSeg  As Variant
Dim i As Integer
Dim boolstatus As Boolean
Dim swSkArc As SldWorks.SketchArc
Dim swCurve As SldWorks.Curve
Dim skPoint As Object
Set swApp = Application.SldWorks
Set swModel = swApp.ActiveDoc
Set swPart = swModel
Set swSelMgr = swModel.SelectionManager
Set mySelectData = swSelMgr.CreateSelectData
Set swFeat = swPart.FeatureByName("草图n")
Set swSketch = swFeat.GetSpecificFeature
swModel.Extension.SelectByID2 "草图n", "SKETCH", 0, 0, 0, False, 0, Nothing, 0
swModel.EditSketch
If Not swSketch Is Nothing Then
   NumArcs = swSketch.GetArcCount
   vSkContours = swSketch.GetSketchContours()
   For i = 0 To UBound(vSkContours)
      vArcs = swSketch.GetArcs2
      If IsEmpty(vArcs) Then Exit Sub
         Set skContour = vSkContours(i)
         If Not skContour Is Nothing Then
            If skContour.IsClosed = 1 Then
               uuu = skContour.GetEdgesCount
               If uuu = 1 Then
                     vEdges = skContour.GetEdges
                     Set myEdge = vEdges(0)
                     Set swCurve = myEdge.GetCurve
                     vSkSeg = swCurve.CircleParams
                     boolstatus = skContour.Select2(False, mySelectData)
                     swModel.EditDelete
                     Set skPoint = swModel.SketchManager.CreatePoint(vSkSeg(0), vSkSeg(1), 0)
               End If
            End If
         End If
   Next i
   swModel.SketchManager.InsertSketch True
End If
End Sub

574395 · 发表于 2011-4-29 09:55:42

8# yjyeming

谢谢，要的就是这个效果，找到知音了，代码自己写的吗

yjyeming · 发表于 2011-4-29 10:41:33

代码肯定要自己写的..

574395 · 发表于 2011-4-29 11:35:00

10# yjyeming

有做过其他开发吗？能不能把草图对象名设置成任意，不必每次手动改名。另外，能否添加一种对象不是草图而是实体面的情况？该怎么做，谢谢

w_hs1 · 发表于 2011-4-29 12:19:58

本帖最后由 w_hs1 于 2011-4-29 12:28 编辑

要完全满足楼主的要求，的确只能设计一个宏了。
但是楼主的原意恐怕只是要将一个草图引入到异型孔的位置草图中去（见楼主的另一个帖子的22楼说明，下面是该贴的链接），那么只要用复制就行了。
http://www.3dportal.cn/discuz/viewthread.php?tid=1031387&extra=page%3D1

1、用异型孔向导在任意位置建立一个孔
2、将草图2复制进草图4（复制结果会有一个位移）
3、选定草图中全部复制过来的元素，按住shift键同步移动到远处（由于移动时不能捕捉，不能直接移到正确位置。移到远处是准备将来删除时便于框选）
4、按住Ctrl键，将这些元素复制到位（利用捕捉）
5、删除多余的元素
6、退出草图，完成任务

复制位置草图.gif

574395 · 发表于 2011-4-29 12:55:32

12# w_hs1

是的，就是这样的意思，总之就是为了利用虚拟异型孔草图点位置来驱动零部件的装配关系，而宏的利用就是由原先的草图圆阵到你给出的草图2中点阵的过程，由于SW本身不带该功能，就想到了API和QT工具，另外做完该步骤之后在装配的时候还有点小窍门，一言以蔽之，整个过程就是通过草图来虚拟的达到驱动阵列零部件的功能，整个流程还需进一步简化和完善，主要还是在草图2的产生这一过程上，试用过程中选择对象一般都是实体面或单独的曲面，当然也有上面程序中给出的草图对象。还是感谢各位，学到新的一招，Ctrl+草图对象、、、之前都是点移动工具来完成移动，谢谢！！希望得到更多交流和探讨学习！

yjyeming · 发表于 2011-4-29 15:12:16

11# 574395
太容易了.

574395 · 发表于 2011-4-29 16:45:49

14# yjyeming

能给个代码分享下？敢问您平时做二次开发多吗？想详细交流下

keybao · 发表于 2011-4-30 11:27:35

上面说的是在固弄玄虚吗。用草图与表格不一样能达到上面的效果吗。

ffddjj · 发表于 2011-4-30 14:22:29

要圆心何必删除圆呢框选所有圆转成构造线就行了啊既得到了圆心又不受圆的影响

w_hs1 · 发表于 2011-4-30 15:58:00

要圆心何必删除圆呢框选所有圆转成构造线就行了啊既得到了圆心又不受圆的影响) ]3 G7 n/ Y1 o( F) z* ^
ffddjj 发表于 2011-4-30 14:22 http://www.3dportal.cn/discuz/images/common/back.gif

楼主的这些点是用于异型孔特征的位置草图。此草图只承认其中的草图点，其它元素虽然可以存在，但系统对那些元素视而不见。

而其它草图中的圆心虽然也是草图中的一个点，但不是“草图点”，即不是在“*”记号下生成的点，因此即便将这些圆（包括它的圆心）用“转换实体引用”的功能置于位置草图中，再做异型孔时，系统仍然对它视而不见。可见楼主要的是真正的草图点，而不仅仅是圆心点。
其实我也被楼主搞糊涂了，楼主的原始目的是为了在装配体中阵列零件（见http://www.3dportal.cn/discuz/viewthread.php?tid=1031387&extra=page%3D1），如果是为了布置标准紧固件，完全可以直接用SW的智能扣件功能，自动的将合适的紧固件加到适合的孔中去。如果不是安装紧固件，考虑到通常这些孔多是用孔特征或阵列孔来实现的，孔特征和阵列可以作为装配体中特征阵列的驱动特征使用，同样可以方便地阵列零件。偏偏楼主又必须用几个孔特征来布置原始零件的孔位（我也不知是何缘故），又不想做几次孔特征，于是我给了一个用装配体中虚拟孔特征作为特征阵列的驱动特征。本来我觉得问题应该解决了，随之楼主又觉得在虚拟孔特征中一个个点出孔位来太麻烦（其实不麻烦呀，点每个孔位点，只要捕捉重合点，一点一个，很方便地，难道楼主要弄几百个点，怕手酸麽？）于是我就建议利用原零件孔特征的位置草图点进行复制的办法。现在楼主又要求空的大小是随意的，我真的搞不清楼主倒弄什么东西了。

574395 · 发表于 2011-5-3 09:55:15

18# w_hs1

感谢关注，下面我来回答下，对于要点而不要圆的问题，分析的极是，我要的对象是点，仅仅是点，当然可以无视圆，把它们构造掉，具体原因是因为在装配体中做阵列的时候对象只能是点（这个可以自己去试下）。

对于SW智能扣件及智能特征，我之前也做过相关尝试，的确，你是不懂的，实际是有几百个点，当你做为一个设计者的时候，这个时候你倘若一个个去手动点选圆心来获得点的苦衷是不言而喻的，所以，软件自动化也是异常重要和不可或缺；“偏偏楼主又必须用几个孔特征来布置原始零件的孔位（我也不知是何缘故）”零件中本来这些位置是孔特征，在装配的时候也正是孔轴装配所以是在原有孔的位置上，我怀疑您是否进行实战设计的经验。不过讨论这些也没什么意义，能达到目的才是唯一的目的，仅仅说明SW本身的功能的确是有待开发完善，以上仅个人见解

gxj528 · 发表于 2011-5-24 09:55:32

楼主是不是用草图阵列？我是先画圆再在圆心上画点，再删了圆，笨办法

574395 · 发表于 2011-5-25 08:31:16

20# gxj528

是的，但是当草图中的圆的个数上百之后您依旧会选择一个个去选中再删除吗？用上面的代码可以遍历草图圆并取圆心删除圆

574395 · 发表于 2011-5-26 07:55:41

22# jlj694167857 可以拿宏试一下效果就知道了

erikgqp8645 · 发表于 2011-6-18 21:48:23

有点像闷大的一道题。等放假时候研究一下。

力学研究所 · 发表于 2011-6-18 22:49:08

没细看，但是知道，繁琐的操作还可以使用宏的搞定，这就够了。

		自动登录	找回密码
密码			注册

通知

[已解决] 草图中有N多个无规则的圆，如何操作可以快捷得到所有圆的圆心（对象为点）并删除圆

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

评分

评分

评分

评分

浏览过的版块