Можно ли из существующей штриховки вырезать определенную область?

[ilka_t]

в 2005 без проблем командой TRIM можно ето сделать

[Эдуард]

Для ранних версий Акада писал маленький лисп

Код:

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

(defun innerloop (/ inner-saf loop hatch)
  (vl-load-com)
  (if
    (and
      (setq loop (car (entsel "\nВыберите островок:")
		 ) ;_ end of car
      ) ;_ end of setq
      (setq hatch (car (entsel "\n Выберите штриховку:")
		  ) ;_ end of car
      ) ;_ end of setq
    ) ;_ end of and
     (progn
       (setq inner-saf (vlax-make-safearray vlax-vbobject '(0 . 0))
	     hatch     (vlax-ename->vla-object hatch)
       ) ;_ end of setq
       (vlax-safearray-fill
	 inner-saf
	 (list
	   (vlax-ename->vla-object loop)
	 ) ;_ end of list
       ) ;_ end of vlax-safearray-fill


       (vla-AppendInnerLoop hatch inner-saf)
       (vla-evaluate hatch)
     ) ;_ end of progn
  ) ;_ end of if
  (princ)
) ;_ end of defun

Спасибо, все работает.