[environ]

Код:

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

 (defun c:dgl_per () ;разрыв пересечения
	(setq bool T)
	(command "_.draworder" lin_nam "" "_f" )
	(setq p1 (getpoint "\n Укажите точку:"))
	(command "_circle" p1 pause)
	(setq set_obj (ssget "_L"))
	(setq ccl_nam (ssname set_obj 0))
	(setq ccl_ref (vlax-EName->vla-Object ccl_nam))
	(setq rds (vla-get-Radius ccl_ref))
	(command "_trim" ccl_nam "" pause "")
	(vla-Delete ccl_ref)
	(c:dgl_per)
)

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

Здрасьте, знаменитые грабли?

----- добавлено через ~2 мин. -----
И мне будет очень интересно посмотреть на обработку блоков, внешних ссылок, подложек pdf / dwf. А заодно и на случай, если примитив окажется на заблокированном слое.

[VVA]

environ, Пару замечаний
1. В 3-й строке неинициализированная переменная lin_nam. Ни у кого, кроме тебя, работать не будет
2. Нет (vl-load-com) - если оставляем vla-* функции
3. Можно обойтись без vla- функций
Как вариант, с учетом замечаний #2 без обработки состояний слоев

Код:

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

 
 (defun c:dgl_per ( /  p1 ccl_nam) ;разрыв пересечения
   (setvar "CMDECHO" 1)
   (initget 7)
   (while (setq p1 (getpoint "\n Укажите точку <выход>:"))
    (command "_circle" "_non" p1 pause)
    (setq ccl_nam (entlast))
    (command "_trim" ccl_nam "" pause "")
    (entdel ccl_nam)
    (initget 7)
   )
   (princ)
)

[environ]

VVA, спасибо!!!

[VVA]

environ, Незачто. Поправь опечатку в названии LISP. Разрвы пересечения -> LISP. РазрЫвы пересечения

[Apelsinov]

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