как изменить(назначить) толщину полилинии в F1 это не описано по умолчанию она нулевая

[{Smirnoff}]

Так полно же там примеров и все очень подробно описано. Вот пример из Help:

Код:

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

Sub Example_LineWeight()
    ' This example creates a circle in model space and then
    ' finds the current lineweight for the circle. The lineweight
    ' is then changed to a new value.
   
    Dim circleObj As AcadCircle
    Dim centerPoint(0 To 2) As Double
    Dim radius As Double
    
    ' Define the circle
    centerPoint(0) = 0#: centerPoint(1) = 0#: centerPoint(2) = 0#
    radius = 5#
    
    ' Create the Circle object in model space
    Set circleObj = ThisDrawing.ModelSpace.AddCircle(centerPoint, radius)
    ZoomAll
    
    ' Find the lineweight for the circle
    MsgBox "The current lineweight for the circle is " & circleObj.Lineweight
    
    ' Change the lineweight for the circle
    circleObj.Lineweight = acLnWt211
    circleObj.Update
    MsgBox "The current lineweight for the circle is " & circleObj.Lineweight
End Sub

То же самое на AutoLISP:

Код:

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

(defun c:lnw (/ vlaobj)
(command "_.circle" "0,0" "5.0")
(setq vlaobj(vlax-ename->vla-object(entlast)))
(vla-put-LineWeight  vlaobj acLnWt211)
(princ)
)

Можно на все жаловаться, но только не на АКАДовский Help по VBA...

[kos]

Вставлю свои пять копеек.
Нету такого понятия - "толщина". Есть "вес линии" - именно об этом свойстве написал Fantomas, это свойство имеется у всех примитивов (линейных, во всяком случае) и есть "ширина", она существует только у полилинии.
Если ширина полилинии одинакова на всем ее протяжении, используется свойство ConstantWidth, если необходимо задать индивидуальную ширину для сегментов полилинии, используется метод SetWidth для каждого конкретного сегмента.

Сообщение от Fantomas Можно на все жаловаться, но только не на АКАДовский Help по VBA...

Им пользуются даже "идейные" LISP'еры...

PS: Fantomas, а тебе вчера письмо отправил...

[{Smirnoff}]

>kos
Лови ответ...