ajtruckle
Guest
|
 Posted:
Thu Dec 16, 2004 3:37 pm Post subject:
What is wrong with this SendCommand? |
|
|
[pre]
Dim strCommand As String
strCommand = "break "
strCommand = strCommand & ent.Handle
strCommand = strCommand & " f"
strCommand = strCommand & " " & breakPnt(0) & "," & breakPnt(1) & "," & breakPnt(2)
strCommand = strCommand & " " & breakPnt(0) & "," & breakPnt(1) & "," & breakPnt(2)
strCommand = strCommand & vbCr
ThisDrawing.SendCommand (strCommand)
[/pre]
I think the ent.Handle is wrong (ent is a AcadObject)
|
|
Alfred NESWADBA
Guest
|
| Posted:
Thu Dec 16, 2004 3:46 pm Post subject:
Re: What is wrong with this SendCommand? |
|
|
In article <10928478.1103193479252.JavaMail.jive@jiveforum1.autodesk.com>, nospam@address.withheld says...
| Quote: | [pre]
Dim strCommand As String
strCommand = "break "
strCommand = strCommand & ent.Handle
strCommand = strCommand & " f"
strCommand = strCommand & " " & breakPnt(0) & "," & breakPnt(1) & "," & breakPnt(2)
strCommand = strCommand & " " & breakPnt(0) & "," & breakPnt(1) & "," & breakPnt(2)
strCommand = strCommand & vbCr
ThisDrawing.SendCommand (strCommand)
[/pre]
I think the ent.Handle is wrong (ent is a AcadObject)
hi, |
first you cannot select an entity at the command-prompt with 'ent.handle', instead use
dim tObjLspByHandle as String
tObjLspByHandle = "(handent """ & ent.handle & """)"
next you have to make sure, that your decimal-separator is a point and not a column, so:
dim tXStr as String
tXStr = replace(breakpoint(0),",",".")
- alfred - |
|
FAQ
Memberlist
Register
Profile
Log in to check your private messages
Log in