[编程交流] 试图追踪一只虫子

(defun C:liftdata()
(setvar "CLAYER" "Annotations")
(setq location (list -5.9609375 7.05078125))
(command "-table" "2" 21 "W" 1.46484375 "S" "sidebar" location)
(setq EN (entlast))
(setq table (vlax-ename->vla-object EN))
(setq column 0)
(setq row 0)
(vla-setCellValue table column row "Liebherr LR 1600")
(vla-setCellAlignment table column row 2)
(setq column 1)
(setq row 0)
(vla-setCellValue table column row "Main Boom")
(vla-setCellAlignment table column row 1)
(setq column 1)
(setq row 1)
(vla-setCellAlignment table column row 3)
(setq column 2)
(setq row 0)
(vla-setCellValue table column row "Main Boom Angle")
(vla-setCellAlignment table column row 1)
(setq column 2)
(setq row 1)
(vla-setCellValue table column row "%%D")
(vla-setCellAlignment table column row 3)
(setq column 3)
(setq row 0)
(vla-setCellValue table column row "Luffing Jib")
(vla-setCellAlignment table column row 1)
(setq column 3)
(setq row 1)
(vla-setCellAlignment table column row 3)
(setq column 4)
(setq row 0)
(vla-setCellValue table column row "Fixed Jib")
(vla-setCellAlignment table column row 1)
(setq column 4)
(setq row 1)
(vla-setCellAlignment table column row 3)
(setq column 5)
(setq row 0)
(vla-setCellValue table column row "Fixed Jib Angle")
(vla-setCellAlignment table column row 1)
(setq column 5)
(setq row 1)
(vla-setCellValue table column row "%%D")
(vla-setCellAlignment table column row 3)
(setq column 6)
(setq row 0)
(vla-setCellValue table column row "Carbody CTWT")
(vla-setCellAlignment table column row 1)
(setq column 6)
(setq row 1)
(vla-setCellAlignment table column row 3)
(setq column 7)
(setq row 0)
(vla-setCellValue table column row "Superstructure CTWT")
(vla-setCellAlignment table column row 1)
(setq column 7)
(setq row 1)
(vla-setCellAlignment table column row 3)
(setq column 
(setq row 0)
(vla-setCellValue table column row "Ballast Tray Radius")
(vla-setCellAlignment table column row 1)
(setq column 
(setq row 1)
(vla-setCellAlignment table column row 3)
(setq column 9)
(setq row 0)
(vla-setCellValue table column row "Ballast Tray CTWT")
(vla-setCellAlignment table column row 1)
(setq column 9)
(setq row 1)
(vla-setCellAlignment table column row 3)
(setq column 10)
(setq row 0)
(vla-setCellValue table column row "Ballast Wagon Radius")
(vla-setCellAlignment table column row 1)
(setq column 10)
(setq row 1)
(vla-setCellAlignment table column row 3)
(setq column 11)
(setq row 0)
(vla-setCellValue table column row "Ballast Wagon CTWT")
(vla-setCellAlignment table column row 1)
(setq column 11)
(setq row 1)
(vla-setCellAlignment table column row 3)
(setq column 12)
(setq row 0)
(vla-setCellValue table column row "Minimum Radius")
(vla-setCellAlignment table column row 1)
(setq column 12)
(setq row 1)
(vla-setCellAlignment table column row 3)
(setq column 13)
(setq row 0)
(vla-setCellValue table column row "Load Weight")
(vla-setCellAlignment table column row 1)
(setq column 13)
(setq row 1)
(vla-setCellAlignment table column row 3)
(setq column 14)
(setq row 0)
(vla-setCellValue table column row "Rigging Weight")
(vla-setCellAlignment table column row 1)
(setq column 14)
(setq row 1)
(vla-setCellAlignment table column row 3)
(setq column 15)
(setq row 0)
(vla-setCellValue table column row "Block Weight (XxX Sheave)")
(vla-setCellAlignment table column row 1)
(setq column 15)
(setq row 1)
(vla-setCellAlignment table column row 3)
(setq column 16)
(setq row 0)
(vla-setCellValue table column row "Aux Boom Sheave")
(vla-setCellAlignment table column row 1)
(setq column 16)
(setq row 1)
(vla-setCellAlignment table column row 3)
(setq column 17)
(setq row 0)
(vla-setCellValue table column row "Aux Hook Block")
(vla-setCellAlignment table column row 1)
(setq column 17)
(setq row 1)
(vla-setCellAlignment table column row 3)
(setq column 18)
(setq row 0)
(vla-setCellValue table column row "Total Lifted Load")
(vla-setCellAlignment table column row 1)
(setq column 
(setq row 1)
(vla-setCellAlignment table column row 3)
(setq column 19)
(setq row 0)
(vla-setCellValue table column row "Lift Radius")
(vla-setCellAlignment table column row 1)
(setq column 19)
(setq row 1)
(vla-setCellAlignment table column row 3)
(setq column 20)
(setq row 0)
(vla-setCellValue table column row "Capacity @ Radius")
(vla-setCellAlignment table column row 1)
(setq column 20)
(setq row 1)
(vla-setCellAlignment table column row 3)
(setq column 21)
(setq row 0)
(vla-setCellValue table column row "% Of Load Chart Capacity")
(vla-setCellAlignment table column row 1)
(setq column 21)
(setq row 1)
(vla-setCellAlignment table column row 3)
(setq column 22)
(setq row 0)
(vla-setCellValue table column row "Line Pull (Reeving)")
(vla-setCellAlignment table column row 1)
(setq column 22)
(setq row 1)
(vla-setCellAlignment table column row 3)
(setq column 23)
(setq row 0)
(vla-setCellValue table column row "% Of Line Pull")
(vla-setCellAlignment table column row 1)
(setq column 23)
(setq row 1)
(vla-setCellAlignment table column row 3)
(setq column 24)
(setq row 0)
(vla-setCellValue table column row "Rigging Allowance To Reach 90% of Load Chart")
(vla-setCellAlignment table column row 1)
(setq column 24)
(setq row 1)
(vla-setCellAlignment table column row 3)
(setq column 25)
(setq row 0)
(vla-setCellValue table column row "Rigging Allowance To Reach 95% of Load Chart")
(vla-setCellAlignment table column row 1)
(setq column 25)
(setq row 1)
(vla-setCellAlignment table column row 3)
(setvar "CLAYER" "0")
) ;End defun DIRECTORY

(command "-table" "2" [color="red"]21 [/color]"W" 1.46484375 "S" "sidebar" location)

; put defun at top
(defun tabentry (table column row tabtext align) 
(vla-setCellValue table column row tabtext)
(vla-setCellAlignment table column row align)
)
;repeat this line 
(tabentry table 9 1 "Ballast Tray CTWT" 1)
(tabentry table 8 0 "Ballast Tray Radius" 1)