[Блондинка в автокаде]

Здравствуйте, уважаемые программисты!
Обращаюсь к вам за помощью: помогите, если не трудно, сваяйте мне небольшой макрос на автолиспе.

Проблема: в пространстве модели сложный контур поделён на части и залит штриховкой по этим частям. Видимо, у предыдущего чертёжника залить весь контур единой штриховкой не получилось. Простите, не штриховкой, а заливкой solid. Но это неважно.
Все штриховки плотно примыкают друг к другу.

Мне надо, чтобы я, загрузив макрос, тыкнула бы мышкой во все штриховки по очереди или выделила бы их рамкой, и вокруг них образовался бы общий внешний контур из полилинии на текущем слое. Или указала бы все контуры штриховок, и на их основе появился бы внешний контур.
На прилагаемом примере - красным показаны прежние контуры штриховок, синим - что мне нужно получить.

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

p.s. Забыла: контуры штриховок содержат не только полилинии и отрезки, там ещё есть и дуги.
p.p.s работаю в AutoCAD-2010

[Boxa]

Эээээ... а _boundary не поможет?

[Олег (jr.)]

Попробуй для такого типа штриховок,
если я правильно понял, сделал навскидку,
можешь потом контур удалить

Код:

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

;; tested in A2007 only
(defun C:HO  (/ cop csh hlst loop outl sh)
  (vl-load-com)

  (if
    (setq sh (ssget "_:L" (list (cons 0 "HATCH"))))
     (progn
       (setq hlst (vl-remove-if 'listp (mapcar 'cadr (ssnamex sh))))
       (foreach	en  hlst
	 (command "_-HATCHEDIT" en "_B" "_P" "_Y");; recreate a boundary as closed polyline
	 (setq cop (cons (vlax-ename->vla-object en) cop))
	 )

       (setq csh (ssadd))
       (setvar "delobj" 0)
       (foreach	hobj  cop
	 (vla-getloopat hobj 0 'loop)
	 (if
	   (not	(vl-catch-all-error-p
		  (setq	outl (vl-catch-all-apply
			       'vlax-safearray->list
			       (list loop)
			       )
			)
		  )
		)

	    (progn

	      (command "_.region" (vlax-vla-object->ename (car outl)) "")
	      (ssadd (entlast) csh)))
	 )
       (command "_.union" csh "")
       (command "_chprop" (entlast) "" "_C" "cyan" "_LW" 50 "")
       (alert
	 (rtos (vlax-get (vlax-ename->vla-object (entlast)) 'area)))

       )
     )
  (princ)
  )

[nolte]

и это тоже должно работать

Код:

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

 
(defun c:33 (/ h_set i lst_h lst num_v)
(setq h_set (ssget "_X" (list (cons 0 "HATCH"))))
(setq i -1)
(repeat (sslength h_set)
	(setq lst_h (cons (ssname h_set (setq i (1+ i))) lst_h))
)
(mapcar '(lambda (a)
					(setq lst (cdr (reverse (cdr (reverse
						(vl-remove-if-not '(lambda (x) (or (= (car x) 10) (= (car x) 42))) (entget a))))))
					)
					(setq num_v (length (vl-remove-if-not '(lambda (x) (= (car x) 10)) lst)))
					(entmakex
						(append
							(list '(0 . "LWPOLYLINE")
								'(100 . "AcDbEntity")
								'(100 . "AcDbPolyline")
								(cons 90 num_v)
								(cons 70 1)
							)	 
							lst	
						)
					)
				)
		lst_h
)
(princ)
)

[Блондинка в автокаде]

_boundary не работает, как мне надо, не создает общий контур, а создаёт новые контуры вокруг каждой штриховки.

defun C:HO работает как надо, большое спасибо.

defun c:33 не работает, то есть вообще не определяется автокадом, как макрос. (Ну, может, у меня руки кривые, не знаю).

Всем большое спасибо за помощь!