[Bdod]

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

[Om81]

Нужно включить привязку "Center", запустить команду LINE, подвести курсор к кривой, дождаться пока обозначится ее центр, начать в нем линию, а закончить на заданной точке)) Вот с прямой вроде сложнее (?)

[VVA]

Код:

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

(defun C:CN ( / e1 pt1 pt2 o1 param FD osm)
  (setq e1 (entsel "\nВыберите кривую: "))
  (if (and e1
           (setq e1 (car e1))
     (member (cdr(assoc 0 (entget e1)))
	     '("SPLINE" "LINE" "LWPOLYLINE" "POLYLINE" "ARC" "ELLIPSE" "CIRCLE")
	     )
     )
    (progn
      (initget 1)
      (setq pt1 (getpoint "\nУкажите точку на кривой: ")
            pt1 (trans pt1 1 0)
             o1 (vlax-ename->vla-object e1)
            pt1 (vlax-curve-getclosestpointto o1 pt1)
          PARAM (vlax-curve-getparamatpoint O1 PT1)
             FD (vlax-curve-getfirstderiv O1 PARAM)
            pt2 (mapcar '+ pt1 FD)
	    pt2 (polar pt1 (+ (angle pt1 pt2)(* 0.5 PI)) 10)
            osm (getvar "OSMODE")
      )
      (setvar "OSMODE" 0)
      (command "_.XLINE" (trans pt1 0 1)(trans pt2 0 1) "")
      (setvar "OSMODE" osm)
      )
    (alert "\nОбъект не прямая/кривая или пустой выбор")
    )
  (princ)
  )
(princ "\nНаберите CN для запуска команды")

[Baires]

Сообщение от Om81 Нужно включить привязку "Center", запустить команду LINE, подвести курсор к кривой, дождаться пока обозначится ее центр, начать в нем линию, а закончить на заданной точке)) Вот с прямой вроде сложнее (?)

Как-то задавал похожий вопрос, ответа не получил.
Для себя эту проблему решил следующим образом - делаю офсет кривой, потом из точки строю перпендикуляр на офсет.

[Om81]

Сообщение от Baires Как-то задавал похожий вопрос, ответа не получил. Для себя эту проблему решил следующим образом - делаю офсет кривой, потом из точки строю перпендикуляр на офсет.

Можно еще в 2 действия так:
- нарисовать перпендикуляр к любой точке этой прямой с помощью соотв. привязки
- переместить нарисованный отрезок в заданную точку :wink:

[Bdod]

Уважаемые господа всем огромное спасибо...особенно VVA...
Как начертить нормаль с помощью других построений я сам знаю... но это как уже говорилось не применимо к кривым... хотя и там можно вывертиться... а вот прога на LISPе это сильная вещь!!! все работает а самое главное так как нужно еще раз спасибо.

[MIP]

>>Bdod

Как начертить нормаль с помощью других построений я сам знаю... но это как уже говорилось не применимо к кривым... хотя и там можно вывертиться... а вот прога на LIS

Если без лиспа, то так
Рисование->Прямая->Выбераешь привязку перпендикуляр->указываешь объект к которому данный перепедикуляр будет строиться->указываешь точку на объекте через которую должен пройти перпендикуляр->обрезаешь лишнее->все.
Работает с кривыми и линиями, в случае полилинии перпендикуляр будет строиться к любому сегменту (прямолинейному, дуговому).

[Bdod]

MIP действительно все просто... а самое главное быстро... спасибо

[Дмитррр]

Что-то я торможу... Или не я, а автодесковцы...
Привязка перпендикуляр (нормаль) работает только если в этой точке есть ручка (говорю о прямых).

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

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

Прошло 2 года с момента #8...

[Хмурый]

Дмитррр, бери _xline , задавай привязку "перпендикуляр" (никаких "ближайших"!!!), указывай кривую и двигай по ней бущую прямую.
PS лишнее обрежешь