[DANZZ]

Как получить список цветов и весов линии в такомже виде как он выпадает в AutoCadе, чтобы потом запихать в DCL

[_Andre_]

Что то непонятно - зачем его получать? Вроде возможные значение весов линий известны и не меняются , основные цвета - тоже вообщем то известны...

Или имеется ввиду получение весов и цветов примитивов (выделенных или всех на чертеже)?

[Кулик Алексей aka kpblc]

Ну цвета можно получить через acad_colordlg, наверное. Но вот как с весами быть .... [sm2100]

[VVA]

А с весами самому сформировать список.

Код:

[Выделить все]

(setq lwlist (list acLnWtByLwDefault acLnWtByLayer acLnWtByBlock 
		   acLnWt000  acLnWt030  acLnWt090 
                   acLnWt005  acLnWt035  acLnWt100
                   acLnWt009  acLnWt040  acLnWt106
                   acLnWt013  acLnWt050  acLnWt120
                   acLnWt015  acLnWt053  acLnWt140
                   acLnWt018  acLnWt060  acLnWt158
                   acLnWt020  acLnWt070  acLnWt200
                   acLnWt025  acLnWt080  acLnWt211))

Потому как enum.

Signature object.Lineweight object All Drawing objects; DatabasePreferences, Layer The object or objects this property applies to. Lineweight acLineWeight enum; read-write acLnWtByLayer acLnWtByBlock acLnWtByLwDefault acLnWt000 acLnWt005 acLnWt009 acLnWt013 acLnWt015 acLnWt018 acLnWt020 acLnWt025 acLnWt030 acLnWt035 acLnWt040 acLnWt050 acLnWt053 acLnWt060 acLnWt070 acLnWt080 acLnWt090 acLnWt100 acLnWt106 acLnWt120 acLnWt140 acLnWt158 acLnWt200 acLnWt211 Remarks The initial value for this property is acLnWtByBlock. Lineweight values consist of standard settings including BYLAYER, BYBLOCK, and DEFAULT. The DEFAULT value is set by the LWDEFAULT system variable and defaults to a value of 0.01 in. or 0.25 mm. All new objects and layers have a default setting of DEFAULT. The lineweight value of 0 plots at the thinnest lineweight available on the specified plotting device and is displayed at one pixel wide in model space.

[Кулик Алексей aka kpblc]

Я так понял, что надо не просто список сформировать, а показать его как эделает список в стандартном тулбаре....

[DANZZ]

именно как в стандартном тулбаре!!!

[Кулик Алексей aka kpblc]

dcl-ными средствами, по-моему, такого сделать невозможно. Либо VBA с применением ImageList, я полагаю, либо ObjectDCL (благо он фриварный) - если он поддерживает такое*, либо СОМ, либо ObjARX.
---
* Я с ним не работал, поэтому не знаю.