Oh no, I don't agree with anyone just on principle Too many people run straight here when a simple google search would answer their question. But they would rather have someone else make the effort for them.
Speed of sound - 1100 ft/sec Speed of light - 186,000 mi/sec Speed of stupid - instantaneous.
Please help me to solve this problem. I tried to make a code to save a dwg file in pdf form.
These mesag of error belongs to me
AcadPlot: Not defined
AcadPlotConfigurations: type AcadPlotConfigurations no defined
AcPlotScale: AcPlotScale name not declared
Below the code:
Public Sub PDF_Print()
'Dim AutoCAD As Object
Dim AcadApp As Object
Dim AcadDoc As Object
Dim dirInfo As New DirectoryInfo(Frm_Main.LblFolder1.Text)
Dim fileInfo As FileInfo
Dim AcadApp As AcadApplication = New AcadApplication
AcadApp.Visible = True
AcadApp.WindowState = AcWindowState.acMax
Dim success As Boolean = False
For Each fileInfo In dirInfo.GetFiles("*.dwg") 'dwg for Autocad
AcadDoc = AcadApp.Documents.Open(fileInfo.FullName)
Dim oSS As AcadSelectionSet
oSS = AcadApp.ActiveDocument.SelectionSets.Add("oSS")
Dim ftype(0) As Int16
Dim fdata(0) As Object
ftype(0) = 410'layout
fdata(0) = "A3 - ENGLISH"
oSS.Select(AcSelect.acSelectionSetAll, , , ftype, fdata)
Dim objPrefFiles As AcadPreferencesFiles
Dim PC3PathOld As String
Dim PC3PathNew As String
Dim PMPPathOld As String
Dim PMPPathNew As String
Dim PtConfigs As AcadPlotConfigurations
Dim PlotConfig As AcadPlotConfiguration
Dim PtObj As AcadPlot
Dim BackPlot As Object
'Set the preferences object
objPrefFiles = AcadDoc.Application.Preferences.Files
'Get the current Printer Config Path (pc3)
PC3PathOld = objPrefFiles.PrinterConfigPath
MessageBox.Show(PC3PathOld, "old Printer Config path (pc3)")
objPrefFiles.PrinterConfigPath = "C:\Users\ROBERT\Documents\Deb + Herve + Will\B - Herve\Technip\Autocad\1st project\OpenExcel\PC3 Files"
PC3PathNew = objPrefFiles.PrinterConfigPath
MessageBox.Show(PC3PathNew, "new Printer Config path (pc3)")
'Get the current Printer Desc Path (pmp)
PMPPathOld = objPrefFiles.PrinterDescPath
MessageBox.Show(PMPPathOld, "Printer Desc Path (pmp)")
objPrefFiles.PrinterDescPath = "C:\Users\ROBERT\Documents\Deb + Herve + Will\B - Herve\Technip\Autocad\1st project\OpenExcel\PMP Files"
PMPPathNew = objPrefFiles.PrinterDescPath
MessageBox.Show(PMPPathNew, "Printer Desc Path (pmp)")
PtObj = AcadDoc.Plot
PtConfigs = AcadDoc.PlotConfigurations
''Add a new plot configuration
''The plot config you created become active
PlotConfig = PtConfigs.Item("PDF")
''Use this method to set the scale
PlotConfig.StandardScale = AcPlotScale.acScaleToFit
''Updates the plot
'Here you specify the pc3 file you want to use
PlotConfig.ConfigName = "Herve.pc3"'You can select the plot style table here
PlotConfig.StyleSheet = "monochrome.ctb"
'You can select the Scale Line Weight
PlotConfig.ScaleLineweights = True
'Specifies Paper Size
PlotConfig.CanonicalMediaName = "ISO_A4_(210.00_x_297.00_MM)"
'Specifies whether or not to plot using the plot styles
PlotConfig.PlotWithPlotStyles = True
BackPlot = AcadDoc.GetVariable("BACKGROUNDPLOT")
'Updates the plot
MessageBox.Show("scale" & PlotConfig.StandardScale)
MessageBox.Show("canonical media name" & PlotConfig.CanonicalMediaName)
MessageBox.Show("config name" & PlotConfig.ConfigName)
MessageBox.Show("plot type" & PlotConfig.PlotType)
MessageBox.Show("scale line weight" & PlotConfig.ScaleLineweights)
'Now you can use the PlotTofile method
If PtObj.PlotToFile(Replace(AcadDoc.FullName, "dwg", "pdf"), PlotConfig.ConfigName) Then
AcadDoc.Utility.Prompt(vbLf + "PDF Was Created")
AcadDoc.Utility.Prompt(vbLf + "PDF Creation Unsuccessful")
'If you wish you can delete the plot configuration you created programmatically, and set the 'BACKGROUNDPLOT' system variable to its original status.
PlotConfig = Nothing
objPrefFiles.PrinterConfigPath = "C:\Users\ROBERT\AppData\Roaming\Autodesk\AutoCAD 2014\R19.1\enu\Plotters"
objPrefFiles.PrinterDescPath = "C:\Users\ROBERT\AppData\Roaming\Autodesk\AutoCAD 2014\R19.1\enu\Plotters\PMP File"
If AcadDoc.Saved Then
AcadDoc = Nothing
AcadApp = Nothing
success = True
Catch ex As Exception
MsgBox(ex.Message + vbLf + ex.StackTrace)
success = False
AcadDoc = Nothing
In a vb.net 2012 vb.net desktop application that I am opening for the first time, I am getting the following error and warning message: Error 1 Resource file "My Project\Resources.resx" cannot be found. Warning 2 A custom tool 'VbMyResourcesResXFileCodeGenerator' is associated with file 'My Project\Resources.resx', but the output of the custom tool was not found in the project. You may try re-running the custom tool by right-clicking on the file in the Solution Explorer and choosing Run Custom Tool.
I tried to run the custom tool that was suggested in the warning message and that did not help. Thus can you tell me what I can do to get the Resources.resx file that is missing?
Is there a way that I can paste a screen print of what the visual studio ide is to this post so that you can see it?
You mentioned the following ,"If you can't find a copy of the file, then you'll have to add a new resource file, and re-create all of the resources."
There is no resource file. Thus can you tell me how to create the resource file and recreate all the resources? I do not know how to create a resource file and I do not know how to re-create all of the resources. How can I tell what resources need to be added?
If you have no idea what was in the resources to begin with, there is very little in the code that's going to tell you. Resources are strings, files, icons, images, data, ... that your app uses. There is really no way for you to "figure out" what was in there.
The bottom line is you MUST find the missing file(s).
I thought this would work fine, loading the entire database table into a list, and then use Linq to grab the matches into another list.
I've never used where and or, this is the first time plus I have contains, thought I got it right.
Dim customers As List(Of model_customer_index) = everything.Where(Function(a) a.FCUSTNO.Contains(pValue) Or a.FCOMPANY.Contains(pValue)).ToList()
That depends on where you're executing the query, and is one of the more annoying quirks of LINQ.
If you're querying an in-memory list, string comparisons are case-sensitive by default. You can either "normalize" the strings using ToUpper / ToLower(you should prefer upper-case[^], due to the "Turkish I" problem[^]), or you could use IndexOf and pass a case-insensitive StringComparison. (Annoyingly, there isn't an overload of Contains which takes a StringComparison option.)
Passing a StringComparison option is preferable to changing the case, because it doesn't involve creating a new copy of the string.
If you're using a database, your query will use the collation[^] for the column you're querying. Most databases use a case-insensitive collation by default, so your query will be case-insensitive.
If you try to pass a StringComparison when you're querying a database, you'll get an exception telling you that the method can't be converted to a database query.
Not that this is a leaky abstraction or anything!
"These people looked deep within my soul and assigned me a number based on the order in which I joined." - Homer
i was looking for a snippet to control the line in volume of my machine, but i found nothing usefull! Could you guys gimme some help? I am trying to create a simple sound recording software..just to keep busy..
no problem for the slider..i need the code to control the line in volume..thats what i need!! i have searched but only returns code to control the main volume, not line in... i find no snippet for the line in volume control!
i already saw this article...but i cannot recreate it on Visual Basic... I would like to have the "line in " slider represented there in the "Recordings" section.. but i do not know where to start from..i have seen the code to record .wav from the line in input of my PC..it is recording fine enough for me... i just wish to have a way to adjust the recording volume!!!
hi again.. so i have all this built up and functional
I am now thinking on making a fine GUI to it... and i believe i just miss the Line In volume controller here!!
Despite of only being able to record in 16-bits / 2 chans and 44.1Khz/48Khz .. i am enjoying to do this....
... it is working fine .. i do not have a audiocard selector wich would be good but it is recording well through my realtek line in : ) .. maybe i do some more research and add a way to toggle between line in and mic : )
For now i realy just would like to have the Line In volume controller : )
I suspect that limiting the line in (other than via the "master volume" of the line in device) would also degrade the signal to some extent from the "pure" one coming out of the line out of the sender.
Like playing the "headphone output" from an mp3 player that does not have a line out through your car's audio device.
"(I) am amazed to see myself here rather than there ... now rather than then".
― Blaise Pascal
I get 2 extra records after grouping, in which there is no FSALESREP and it's just blank after grouping.
Is this something I can fix in Linq, or do I need to go back to the SQL call to the FoxPro database?