[jackUAROBEY]

Добрый день.
Не могу добавить контур штриховки.

Код:

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

 (defun block ( / Dl p1 bsnn bsnn_ bsnn_n bsnn_n_ blk_kub temp obj)
(vl-load-com)
(setq acad_object (vlax-get-acad-object))                  
  (setq active_document (vla-get-activedocument acad_object))
  (setq bl_name "yuyu")
(setq m_koef 1)
  (setq Dl (* 0.5 m_koef))
  (setq p1 (list 0.0 0.0 0.0))
  (setq bsnn (getvar "CELWEIGHT"))
  (setq bsnn_ (getvar "CELTYPE"))
  (setq bsnn_n (getvar "CECOLOR"))
  (setq bsnn_n_ (getvar "CELTSCALE"))
  (setvar "CELWEIGHT" 70)
  (setvar "CELTYPE" "continuous")
  (setvar "CECOLOR" "bylayer")
  (setvar "CELTSCALE" 1.0)
  (setq blk_kub (vla-add (vla-get-blocks active_document) (vlax-3d-point p1) bl_name))
  (setq temp (vla-AddCircle blk_kub (vlax-3d-point p1)  Dl) ) 
  (setq obj (vla-AddHatch  blk_kub acHatchPatternTypePreDefined "Solid" :vlax-true AcHatchObject))
  (setq temp (vlax-safearray-fill (vlax-make-safearray vlax-vbObject '(0 . 0))    temp))
  (vla-AppendOuterLoop  obj temp); почему то не добавляет контур к штриховке
  (setvar "CELWEIGHT" bsnn)
  (setvar "CELTYPE" bsnn_)
  (setvar "CECOLOR" bsnn_n)
  (setvar "CELTSCALE" bsnn_n_)
  (princ)
  )

----- добавлено через 15 сек. -----
Вот на этом шаге коротит vlax-safearray-fill

[trir]

не умничай, делай по справке

Код:

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

     (setq outerLoop (vlax-make-safearray vlax-vbObject '(0 . 1)))
    (vlax-safearray-put-element outerLoop 0 arc)
    (vlax-safearray-put-element outerLoop 1 line)

http://help.autodesk.com/view/OARX/2...D-A0E8220F69F4

----- добавлено через ~1 мин. -----
(vlax-make-safearray vlax-vbObject '(0 . 0)) - делаешь масив в ноль элемнтов?

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

Сообщение от trir (vlax-make-safearray vlax-vbObject '(0 . 0)) - делаешь масив в ноль элемнтов?

Это массив в 1 элемент.

[trir]

а если так?

Код:

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

 (setq temp (vlax-safearray-fill (vlax-make-safearray vlax-vbObject '(0 . 0))   '( temp)))

'element-values
Type: List
https://knowledge.autodesk.com/searc...2936B-htm.html

[jackUAROBEY]

Все я допер
вот здесь ошибка
вместо
(setq temp (vla-AddCircle blk_kub (vlax-3d-point p1) Dl)
надо
(setq temp (list (vla-AddCircle blk_kub (vlax-3d-point p1) Dl) )
Всем спасибо