[protorgovec]

Подскажите простым примером.
при помощи

Код:

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

 (setq Ch1 (vla-open (vla-get-documents (vlax-get-acad-object)) (strcat papka1 "\\01-"Sb".00.002-Косынка.dwg")))

открываю не активируя файл
но как в нем работать так и не могу понять, читал книги, но не могу понять принцип, как задать командно ,что бы дополнять этот открытый неактивный документ. Подскажите на простом примере, например нарисовать окружность в этом документе, с координатами 0,0,0. Мне просто увидеть бы принцип обращения к этому не активному документу

[trir]

http://help.autodesk.com/view/ACD/20...6-03B7745EC80D

Код:

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

 (vl-load-com)
(defun c:Example_ModelSpace()
    ;; This example adds a line and a circle to model space.
    ;; The line is added using a user-defined variable representing
    ;; the model space. The circle is added without using the
    ;; user-defined variable. Either use of the ModelSpace
    ;; property is valid.
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))

    ;; Define the line
    (setq startPoint (vlax-3d-point 0 0 0)
          endPoint (vlax-3d-point 4 4 0))
    
    ;; Add the line to model space using the mspace variable
    (setq mspace (vla-get-ModelSpace doc))
    (setq lineObj (vla-AddLine mspace startPoint endPoint))
    
    ;; Define a circle
    (setq center (vlax-3d-point 4 4 0)
          radius 1)
    
    ;; Add the circle to model space without using the mspace variable
    (setq circleObj (vla-AddCircle mspace center radius))
    
    (vla-ZoomAll acadObj)
)

Вместо (setq doc (vla-get-ActiveDocument acadObj)) - ваша строка

[protorgovec]

Сообщение от trir http://help.autodesk.com/view/ACD/20...6-03B7745EC80D Код: [Выделить все] (vl-load-com) (defun c:Example_ModelSpace() ;; This example adds a line and a circle to model space. ;; The line is added using a user-defined variable representing ;; the model space. The circle is added without using the ;; user-defined variable. Either use of the ModelSpace ;; property is valid. (setq acadObj (vlax-get-acad-object)) (setq doc (vla-get-ActiveDocument acadObj)) ;; Define the line (setq startPoint (vlax-3d-point 0 0 0) endPoint (vlax-3d-point 4 4 0)) ;; Add the line to model space using the mspace variable (setq mspace (vla-get-ModelSpace doc)) (setq lineObj (vla-AddLine mspace startPoint endPoint)) ;; Define a circle (setq center (vlax-3d-point 4 4 0) radius 1) ;; Add the circle to model space without using the mspace variable (setq circleObj (vla-AddCircle mspace center radius)) (vla-ZoomAll acadObj) ) Вместо (setq doc (vla-get-ActiveDocument acadObj)) - ваша строка

Спасибо огромное. Надеюсь сейчас разберусь.

----- добавлено через ~47 мин. -----

Сообщение от trir Вместо (setq doc (vla-get-ActiveDocument acadObj)) - ваша строка

Подскажите что не так? Подставил

Код:

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

 (setq Ch1 (vla-get-ActiveDocument (vlax-get-acad-object) (strcat papka1 "\\01-"Sb".00.002-Косынка.dwg")))

но он мне в ответ: Слишком много фактических параметров

[gomer]

Сообщение от protorgovec Слишком много фактических параметров

вы много от мало отличить можете? много - это когда больше, чем нужно, то есть лишние

[protorgovec]

Сообщение от trir Вместо (setq doc (vla-get-ActiveDocument acadObj)) - ваша строка

все разобрался, заработало. Спасибо огромное!!!!!