选取直线裁剪
有四条直线成井字放置我现在先选取横放的两条直线放在objselectionset选择集里
在选取竖放的两条直线放在objselectionset1选择集里
请问这样选好了，怎么样得到四个相交的点，并把相交点之间的线段都剪切掉!
请写上求交,剪切代码,,或者哪里有相似的例子,谢谢 为什么没有人发表一下啊!
Sub test()
Dim objselectionset As AcadSelectionSet
Set objselectionset = ThisDrawing.SelectionSets.Add("objselectionset")
Dim entobj(0) As AcadEntity
Set entobj(0) = ThisDrawing.ModelSpace(0)
objselectionset.AddItems entobj
Set entobj(0) = ThisDrawing.ModelSpace(1)
objselectionset.AddItems entobj
Dim objselectionset1 As AcadSelectionSet
Set objselectionset1 = ThisDrawing.SelectionSets.Add("objselectionset1")
Set entobj(0) = ThisDrawing.ModelSpace(2)
objselectionset1.AddItems entobj
Set entobj(0) = ThisDrawing.ModelSpace(3)
objselectionset1.AddItems entobj
Dim entobj1 As AcadEntity
Dim entobj2 As AcadEntity
Dim pt As Variant
Dim lineobj As AcadLine
' 处理水平的直线
For Each entobj1 In objselectionset
For Each entobj2 In objselectionset1
Set lineobj = entobj1
pt = entobj1.IntersectWith(entobj2, acExtendNone)
If Sqr((pt(0) - lineobj.StartPoint(0)) ^ 2 + (pt(1) - lineobj.StartPoint(1)) ^ 2) _
用这样的ThisDrawing.ActiveTextStyle.fontFile = _
" C:/Program Files/ACAD2000/Fonts/italic.shx"改吗？
还是用别的方法 VBA]怎么用sendcommand来调用trim命令？？
我要用sendcommand来调用trim命令来剪切圆角外的相交直线！怎么用！！在VB 中！！ "_.fillet" & vbCr & "r" & vbCr & "1" & vbCr & "( 是这个吗？
http://www.vba.cn/bbs/skins/default/topicface/face1.gif
Sub Test()
Dim ss As AcadSelectionSet
Set ss = ThisDrawing.ActiveSelectionSet
ss.Clear
ss.SelectOnScreen
ThisDrawing.SendCommand "_.fillet" & vbCr & "r" & vbCr & "1" & vbCr & "(handent " & Chr(34) & ss(0).Handle & Chr(34) & ")" & vbCr & "(handent " & Chr(34) & ss(1).Handle & Chr(34) & ")" & vbCr End Sub
"_.fillet" & vbCr & "r" & vbCr & "1" & vbCr & "这个中trim怎么用啊！我是不知道他的用法！有什么书可以参考！！！ 你敲个命令在命令行试试不就行了
页:
[1]