Yahoo Answers is shutting down on May 4th, 2021 (Eastern Time) and beginning April 20th, 2021 (Eastern Time) the Yahoo Answers website will be in read-only mode. There will be no changes to other Yahoo properties or services, or your Yahoo account. You can find more information about the Yahoo Answers shutdown and how to download your data on this help page.
bgantcdd
I need help identifying a song?
It says something like , turn off the lights and play a song that slow or something. Its a country music song for like ballroom dancing.
2 AnswersLyrics7 years agoWhy has the mainstream media abandoned their watchdog role and begun reducing serious and normal public concer?
seems like they only cover the B.S
1 AnswerMedia & Journalism1 decade agowill i need surgery if i dislocated my shoulder ten years ago?
it was never reset or anything and it only bothers me once in awhile.
i really don't know what to do or what kind of doctor to see
2 AnswersInjuries1 decade agoHow come the day they walked on the moon is not a national holiday?
Thats the biggest thing in the history of America .
8 AnswersOther - Holidays1 decade agoCan You Name An Animal Without Nostril's?
3 AnswersZoology1 decade agoHow can Hawaii be apart of America If the people look Chinese?
did they get there by accident and we claimed it
7 AnswersOther - Society & Culture1 decade agoHow many more people have to die before we leave Iraq and Afghanistan?
24 AnswersMilitary1 decade agoHas the people responsible for September 11th been punished yet?
5 AnswersCurrent Events1 decade agoI wrote a LISP routine for Auto CAD using notepad , Do you know how to make it work in CAD where do I put it?
I am trying to make Excel read my blocks in Cad but i dont know how to attach attribute's either can you please help?
1 AnswerProgramming & Design1 decade agoCan you tell whats wrong with this autocad LISP?
Private Sub CommandButton1_Click()
Dim layobj As AcadLayer
Dim lname As String
Dim i As Integer
Dim entObj As Object
Dim test As String
Dim tot As Integer
Dim chl As ChartObject
On Error Resume Next
ListBox1.Clear
For 1 = 0 To ThisDrawing.Layers.Count = 1
Set layobj = ThisDrawing.Layers.Item(1)
lname = layobj.Name
ListBox1.AddItem lname
Next i
userform1.Hide
Err.Clear
Set excelApp = CreateObject("Excel.Application")
If Err <> 0 Then
NsgBox "Could not start Excel", vbExclamation
End
Else
excelApp.Visible -True
Set ubkObj = excelApp.Uorkbooks.Add
Set shtObj = excelApp.Uorksheets(1)
shtObj.cells(1, 1) = "Layer Name"
shtObj.cells(1, 2) = "Legend ƒƒ"
shtObj.cells(1, 3) = "Entities Found"
For i = 0 To ListBox1.ListCount - 1
tot -0
test = ListBox1.List [i]
For 0 = 0 to ThisDrawing.ModelSpace.Count -1
Set entObj = ThisDrawing.ModelSpace,Item(0)
lname -entObj.Layer
If lname - test Then tot -tot + 1
Next j
shtObj.cells(i + 2, 1) = test
shtObj.cells(i + 2, 2) = Str$(1 + 1)
shtObj.cells(i + 2, 3) = tot
Next i
End If
' Find last column entry
i = i
test = shtObj.cells(i, i)
Do While test <> ""
i -i + 1: test -shtObj - cells(i, 1)
Loop
test - "C2:C" £ Trim$ [Str$ (i - i)]
Set chl = Sheets ("Sheetl") . ChartObjects.Add(150, 20, 200, 200]
chl.Chart.ChartWizard Source:"'Worksheets ["Sheetl"] .Range[test],_
Gallery:"'xlPie, Format: -G
Userformal.Shov
End Sub
3 AnswersProgramming & Design1 decade agoHow to write program codes?
I am writing a code to use in Autocad
there is a strange symbol that i have no idea how to type it looks like 2 S's but it's different.
5 AnswersProgramming & Design1 decade agoDo we really need a president?
9 AnswersGovernment1 decade agowhat country has the most enemies?
12 AnswersOther - Politics & Government1 decade ago
