[Филипп]

Есть сплайн, с 4-мя определяющими точками. Необходимо, чтобы на этих определяющих точках проставились автоматически символ "точка" так как это выглядит на скриншоте, на четвёртой точке. Как это сделать?

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

Поскольку вопрос в разделе "AutoCAD", ответ: команда _.point и поиграйся с объектной привязкой.

[Филипп]

Если я правильно понимаю, то _.point просто вызывает команду "точка"
Как она решит задачу автоматической простановки точек в определяющих точках сплайна?

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

В чистом AutoCAD такое не сделать, насколько я знаю. Проставляй руками.

[Филипп]

Сообщение от Кулик Алексей aka kpblc В чистом AutoCAD

Готов сделать его грязным. :-) Где нужно набрать грязи?

[CaMoCAD]

Имхо, сплайн и есть грязь, годится для Corel Draw, но не для точного проектирования, ибо математика его такова, что не вписывается в реальные условия производства. Впредь избегайте. (если, конечно Вы не проектируете болиды F1 или резиновых женщин, - со слов В. Ерофеева, у женщин насчитывается более 27 изгибов...)

[Филипп]

Сообщение от CaMoCAD но не для точного проектирования

Чертим графики. Вы можете сказать, что построй вначале точки, а потом соедени их сплайном. Пользователя такой расклад неустраивает.
Пользователя интересует точки по сплайну, ан е сплайн по точкам.

[CaMoCAD]

Сообщение от Филипп Чертим графики. Вы можете сказать, что построй вначале точки, а потом соедени их сплайном. Пользователя такой расклад неустраивает. Пользователя интересует точки по сплайну, ан е сплайн по точкам.

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

[VVA]

Сообщение от Филипп Готов сделать его грязным. :-) Где нужно набрать грязи?

Код:

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

(defun C:POS ( / spl)
  ;;;POS - Point On Spline
(vl-load-com)
(setvar "PDMODE" 35)
(and
  (setq spl (car(entsel "\nSelect spline:")))
  (setq spl (entget spl))
  (= (cdr(assoc 0 spl)) "SPLINE")
  (mapcar '(lambda(pt)
             (entmake (list (cons 0 "POINT") ;***
               (cons 6 "BYLAYER")
               (cons 8 "SPLINE-POINTS")
               (cons 10 pt) ;***
               ;(cons 39 0.0)
               ;(cons 50 0.0)
               ;(cons 62 256)
               (cons 210 (list 0.0 0.0 1.0)))
               )
             )
          (mapcar 'cdr (vl-remove-if '(lambda(x)(/= (car x) 11)) spl))
          )
  )
  (princ)
  )

*** Добавлено
Для 4-й точки

Код:

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

(defun C:POS4 ( / spl i)
  ;;;POS - Point On Spline
(vl-load-com)
(setvar "PDMODE" 35)
(and
  (setq spl (car(entsel "\nSelect spline:")))
  (setq spl (entget spl))
  (= (cdr(assoc 0 spl)) "SPLINE")
  (setq i 0)
  (mapcar '(lambda(pt)
             (if (= (setq i (1+ i)) 4)
             (entmake (list (cons 0 "POINT") ;***
               (cons 6 "BYLAYER")
               (cons 8 "SPLINE-POINTS")
               (cons 10 pt) ;***
               ;(cons 39 0.0)
               ;(cons 50 0.0)
               ;(cons 62 256)
               (cons 210 (list 0.0 0.0 1.0)))
               )
               )
             )
          (mapcar 'cdr (vl-remove-if '(lambda(x)(/= (car x) 11)) spl))
          )
  )
  (princ)
  )

[Филипп]

Сообщение от VVA Код:

Снимаю шляпу и аплодирую стоя
Скажите, а где в коде указан стиль отображения точки? У меня пользователи могут захотеть поменять вид точки. И где посмотреть коды всех стилей точек?

[Хмурый]

Филипп, строка (setvar "PDMODE" 35) назначает стиль точки (переменная PDMODE).
в справке по AutoCAD'у можно посмотреть, какие значения может принимать эта переменная.
В программе следует заменить число 35 на нужное пользователю.

[Disney]

Сообщение от Филипп У меня пользователи могут захотеть поменять вид точки

Команда: 'ДИАЛТТОЧ ('_ddptype)

[Хмурый]

Disney, программа конкретно назначает стиль точки 35, и её не исправить при помощи '_ddptype .

[VVA]

можешь вообще убрать эту строчку.

Код:

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

(setvar "PDMODE" 35)

Будет чертить установленным стилем. Это я вставил на всякий случай чтобы было видно результат работы программы

[Disney]

Сообщение от Хмурый программа конкретно назначает стиль точки 35, и её не исправить при помощи '_ddptype .

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

[IMG]http://s53.***********/i139/1009/88/450cb25a4b54.gif[/IMG]

поэтому лучше

Сообщение от VVA вообще убрать эту строчку.

или заменить на

Код:

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

(if(<=(getvar 'PDMODE)1)(setvar 'PDMODE 35))

[atollon]

Хмурый, не все ли равно какими точками чертит программа, настройки точек изменяются глобально, поэтому имеют вид последних настроек, так что если потом вызвать диал.окно, командой '_ddptype (Формат->Отображение точек...)...

[Филипп]

Сообщение от atollon не все ли равно какими точками чертит программа

Действительно не всё равно. Зачем менять представление точки после того как они проставились, если их представление сразу можно описать на лиспе?

[Хмурый]

Сообщение от Филипп Снимаю шляпу и аплодирую стоя Скажите, а где в коде указан стиль отображения точки? У меня пользователи могут захотеть поменять вид точки. И где посмотреть коды всех стилей точек?

Я дал на твой вопрос конкретный ответ или нет?

[Филипп]

Сообщение от Хмурый конкретный ответ

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