[Опасная Свинка]

Подскажите пожайлуста начинающему програмисту как програмно заштриховать замкнутую область выставленной не по умолчанию штриховкой. И еще хотелось узнать, есть ли программный способ расстановки размеров... Если можно приведите пример. Огромное спасибо.

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

Первый вариант:

Код:

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

(command "_.-hatch" "_p" "ansi31")
(while (/= (getvar "cmdactive") 0)
(command pause)
)

Без проверок на правильность ввода точек, замкнутость контура и проч.

[Елпанов Евгений]

Код:

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

(defun hatch_poly_list (obj-L / HAT)
  ;; Елпанов Евгений 2002г.
  ;; Аргумент obj-L - список вла объектов, учавствующих в штриховке
  (setq
    hat	(vla-addhatch
	  mdsp
	  acHatchPatternTypePredefined ; тип паттерна
	  ;; acHatchPatternTypeUserDefined
	  ;; acHatchPatternTypeCustomDefined
	  "line" ; имя паттерна
	  :vlax-true ; ассоциативность
	) ;_ vla-addhatch
  ) ;_ setq
  (vla-AppendOuterLoop
    hat
    (vlax-safearray-fill
      (vlax-make-safearray '9 (cons 0 0))
      (list (car obj-L))
    ) ;_ vlax-safearray-fill
  ) ;_ vla-AppendOuterLoop
  (foreach a1 (cdr obj-L)
    (vla-AppendInnerLoop
      hat
      (vlax-safearray-fill
	(vlax-make-safearray '9 (cons 0 0))
	(list a1)
      ) ;_ vlax-safearray-fill
    ) ;_ end of vla-AppendOuterLoop
  ) ;_ foreach
  (vla-put-PatternScale hat 10.0) ; маштаб штриховки
  (vla-put-PatternAngle hat (/ pi 6.)) ; угол наклона в радианах
  (vla-Evaluate hat)
  hat
) ;_  defun

[Zouss]

про программный способ расстановки размеров - команда _qdim насколько не устраивает?