If you need help getting a project to the finish line, or if you've hit a snag with how to make Chief do what you want it to do, reach out to me here on ChiefTalk or my email: email@example.com. I am available to help with drafting, cabinetry help and pricing (in 2020 as well), and high quality physically based renderings.
Is there a way to write a custom command to auto-place lights?
I've used chat GTP to write code that I'd like to utilize. I have attached a word file and pdf that I need proof read and corrected. I can have that done.
Below is the code, but I'm not sure if it will format correctly:
'Ask the user to select the room size and ceiling height
Dim roomWidth As Double
Dim roomLength As Double
Dim roomHeight As Double
roomWidth = InputBox("Enter the width of the room in feet:")
roomLength = InputBox("Enter the length of the room in feet:")
roomHeight = InputBox("Enter the height of the room in feet:")
'Calculate the square footage of the room based on user input
Dim roomArea As Double
roomArea = roomWidth * roomLength
'Determine the recommended lighting level for the room based on the ceiling height and room type
Dim lightLevel As Double
Select Case roomHeight
Case Is <= 8
lightLevel = 10
Case Is <= 9
lightLevel = 20
Case Is <= 10
lightLevel = 30
Case Is <= 12
lightLevel = 40
MsgBox "Invalid ceiling height"
'Calculate the number of lights needed based on the room size and the recommended spacing
Dim lightSpacing As Double
If roomArea <= 100 Then
lightSpacing = 48
ElseIf roomArea <= 225 Then
lightSpacing = 64
ElseIf roomArea <= 400 Then
lightSpacing = 80
lightSpacing = 96
Dim lightCount As Integer
lightCount = Application.RoundUp((roomWidth + roomLength) / lightSpacing, 0)
'Determine the optimal spacing for the lights based on the room size and ceiling height
Dim xOffset As Double
Dim yOffset As Double
If roomWidth >= roomLength Then
xOffset = lightSpacing
yOffset = lightSpacing * roomLength / roomWidth
xOffset = lightSpacing * roomWidth / roomLength
yOffset = lightSpacing
'Place the lights in a rectangular or square pattern within the room
Dim lightType As String
lightType = InputBox("Enter the light diameter (4 or 6):")
Dim x As Integer
Dim y As Integer
Dim light As Object
For x = 1 To lightCount
For y = 1 To lightCount
Set light = ActiveDocument.CreateLight("Recessed Can Light", lightType & """", "General")
light.Move (x - 1) * xOffset, (y - 1) * yOffset, roomHeight - 48
'Generate a report or summary of the lighting plan for the room
Dim report As String
report = "Room Size: " & roomWidth & " ft x " & roomLength & " ft" & vbCrLf
report = report & "Ceiling Height: " & roomHeight & " ft" & vbCrLf
report = report & "Recommended Light Level: " & lightLevel & " lux" & vbCrLf
report = report & "Number of Lights: " & lightCount ^ 2 & vbCrLf
report = report & "Light Spacing: " & lightSpacing & " in" & vbCrLf
report = report & "Light Type: " & lightType & """ Recessed Can Light" & vbCrLf
Any help would be appreciated.
Sub PlaceLights.docx Sub PlaceLights.pdf
Maybe a nit-pick, but when I wire up my sconce to a light switch, the auto-wiring goes to the face of the wall sconce globe and not to center of the base, which I would prefer. So, I wind up manually adjusting the arc segment.
My question is what controls/defines the snap points of the electrical wiring tool? Is this something defined in the fixture block?
I hope everybody is enjoying this year that’s ending.
I’d like making a question before 2023 comes. Is there a way to make some kind of “up holes” in a wall in order to set some puck lights up too?
First, I tried with a wall niche but it’s too thin. I don’t know if I’ll have to use a pony wall or other but I have never worked with them so I’m feeling a bit lost. Any idea?
Many thanks and Happy New Year!
I am still pretty new into Ray Tracing both CPU and GPU. I seem to have a pretty good grasp on the interior GPU with playing around with lighting / sun light etc.
However - the exterior Ray Tracing, you can see it looks to be foggy? I have attached before / 100 passes / 200 passes.
Any help would be greatly appreciated. Also not sure how to make the ground look more realistic? I tried adding small shrubs and rocks.
Please sign in to comment
You will be able to leave a comment after signing in
Sign In Now