[wluk1958]

Подскажите пожалуйста, как определить: пересекает ли полилиния саму себя ? Есть ли какой-либо критерий (или, может быть, даже поле в DXF-кодах ? Впрочем, это вряд ли...) Спасибо заранее.

[Олег (jr.)]

Посмотри такой пример отсюда:
http://forums.autodesk.com/t5/Visual...ht/true#M85432

Код:

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

 ;; as published by PeterSCiganek
This does the same thing but with vlisp - from a suggestion in this newsgroup:

;;f:pline_intersects returns T if given a self-intersecting lwpolyline
;;

(defun f:pline_intersects (en / sa rg)
(setq sa (vlax-make-safearray vlax-vbObject '(0 . 0))
sa (vlax-make-variant (vlax-safearray-fill sa (list (f:enx en))))
);setq
(if (vl-catch-all-error-p (setq rg (vl-catch-all-apply 'vla-addregion (list (fx:active_space) sa))))
(if (wcmatch (strcase (vl-catch-all-error-message rg)) "*UNGÜLTIGE*") T)
(vla-Delete (car (vlax-safearray->list (vlax-variant-value rg))))
)
)

(defun fx:active_space ()
(if (zerop (getvar "TILEMODE"))
(vla-get-PaperSpace (fx:doc))
(vla-get-ModelSpace (fx:doc))
)
)

(defun f:enx (en)
(if (= (type en) 'ENAME)
(vlax-ename->vla-object en)
en
)
)

[wluk1958]

Прошу прощения, а что за ф-я "fx:doc" ? Спасибо.

[Олег (jr.)]

Наверно скорее всего:

Код:

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

(defun fx:doc ()
(vla-get-activedocument (vlax-get-acad-object))
)

не забудь добавить

Код:

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

(vl-load-com)

~'o'~

[gomer]

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

[wluk1958]

Спасибо боьшое.

[Олег (jr.)]

Не за что
Успехов

~'o'~