0 Members and 1 Guest are viewing this topic.
(defun c:PL1 () (vl-load-com) (setq acadObj (vlax-get-acad-object)) (setq prefObj (vlax-get-property acadObj 'Preferences)) (setq filesTabObj (vlax-get-property prefObj 'Files)) (setq palPath (vlax-get-property filesTabObj 'ToolPalettePath)) (setq palPath "c:\\tepsupport\\palettes") (vlax-put-property filesTabObj 'ToolPalettePath palPath))
<PaletteUI> <Image>16</Image> <Style>1</Style> <ToolOrder> <Tool ID="016AE9A7-D694-4674-94AD-8D2AA13922AE"/> <Tool ID="59C4FE7D-B1AB-4E7C-A41C-16916C09AF10"/> <Tool ID="84B3E66C-A493-42C3-949A-528764AFFD71"/> </ToolOrder> </PaletteUI>