Сплайны

@manchester_alan · Регистрация: 05.01.2015

Author24 — интернет-сервис помощи студентам

Как вытащить из сплайна на чертеже координаты его точек и записать в переменные?

@Lambdik · 10.05.2018, 09:45

Lisp

(vl-load-com)
 
(setq points
      (vl-remove-if-not '(lambda (x) (= (car x) 10))
                (entget (car (entsel "Select the spline: "))))
);setq
 
!points

@manchester_alan · 10.05.2018, 10:48 **[ТС]**

Lisp

(setq list_lsp '())
(setq nab_spl (ssget "_X" (list (cons 0 "SPLINE"))))
(if (null nab_spl)
(progn
  (princ "\Нет")
  (princ)
)
(progn
(setq i -1 nab_len (sslength nab_spl))
(repeat nab_len
  (setq i (+ 1 i))
  (setq spllist (entget (ssname nab_spl i)))
  (setq lsp (cdr (assoc 10 spllist)))
  (setq list_lsp (append list_lsp (list lsp))))
(princ "\nКоординаты точек сплайна: ")
(princ lisp_lsp)))

В чем может быть ошибка? Не показывает координаты!

@manchester_alan 3 / 4 / 1 Регистрация: 05.01.2015 Сообщений: 465
		1
	Сплайны 09.05.2018, 23:09. Показов 1590. Ответов 2 Метки нет (Все метки) Как вытащить из сплайна на чертеже координаты его точек и записать в переменные? 0

	10.05.2018, 10:48