[bambrenus]

Доброго времени суток.

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

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

На каком языке программируешь? Приложение загружается внутрь AutoCAD или работает снаружи, используя AutoCAD как СОМ-сервер?

[Дима_]

Програмно можно по всякому (можно и ту же команду вызвать) - а в общем вычислешь "координаты разрыва", затем одну линию (дугу) укорачиваешь, вторую подрисовываешь.

[bambrenus]

Пробую программировать на Lisp

[Дима_]

Если делать "по хорошему" - тебе понадобятся функции subst, entmod, entmake + небольшие знания в геометрии (векторах - если подразумеваются "трехмерные" линии или дуги) - не будет получатся - выкладывай что есть - подскажем.

[gomer]

Сообщение от bambrenus Необходимо разделить линию или дугу в указанной точке на 2 части с зазором в 1 мм. В Автокаде это можно выполнить с пощью операции TRIM

не трим, а брейк
самый простой, кажется, вариант:

Код:

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

 (defun c:br ( / en os pt offset dist p1 p2)
(setq en (vlax-ename->vla-object (car (entsel "\nУкажите разрываемый объект: "))))
(setq pt (getpoint "\nУкажите точку разрыва: "))
(setq os (getvar 'osmode))
(setq offset 1.0)
(setq dist (vlax-curve-getDistAtPoint en pt))
(setq p1 (vlax-curve-getPointAtDist en (+ dist offset)))
(setq p2 (vlax-curve-getPointAtDist en (- dist offset)))
(setvar 'osmode 0)
(command "_break" (vlax-vla-object->ename en) "_f" p1 p2)
(setvar 'osmode os)
)

[Дима_]

To Gomer vlax-curve... с e'name не хуже чем с vla работает - зря туда сюда гоняешь.

[gomer]

Сообщение от Дима_ vlax-curve... с e'name не хуже чем с vla работает - зря туда сюда гоняешь.

э... ну тем более... стандартный улучшайзер первого левела... но... ни хрена не работает в акаде а в брикскаде работает

Код:

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

  (defun c:br ( / en os pt offset dist *error*)
  (defun *error* ( msg)
	(if (member (strcase msg T) '("function cancelled" "console break" "quit / exit abort"))
	  (princ "\nВыход по требованию")
	  (princ (strcat "\nОшибка: " (itoa (getvar 'errno))))
	)
	(if os (setvar 'osmode  os))
	(if cm (setvar 'cmdecho cm))
	(princ)
  )
  (if (and (setq en (car (entsel "\nУкажите разрываемый объект: ")))
		   (setq pt (getpoint "\nУкажите точку разрыва: "))
	)
	(progn
	  (setq
		offset 1.0
		os (getvar 'osmode)
		cm (getvar 'cmdecho)
		dist (vlax-curve-getDistAtPoint en pt)
	  )
	  (setvar 'osmode  0)
	  (setvar 'cmdecho 0)
	  (command
		"_.break"
		en
		"_f"
		(vlax-curve-getPointAtDist en (+ dist offset))
		(vlax-curve-getPointAtDist en (- dist offset))
	  )
	  (setvar 'osmode  os)
	  (setvar 'cmdecho cm)
	)
  )
  (princ)
)