[amadey18]

Нужно нарисовать линии, используя координаты из матрицы.

Код:

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

 (defun prog()

  ;выбор точек, создание матрицы
  (setq pt0 (getpoint "choose first point: "))
  (setq pt1 (getpoint "choose second point: "))
  (setq le3 (list (list pt0 pt1)))
  (setq pt0 (getpoint "choose first point: "))
  (setq pt1 (getpoint "choose second point: "))
  (setq le3 (list le3 (list pt0 pt1)))

;создание линий соединения
  (entmake le3 (list
	       (cons 0 "LINE")
	       (cons 100 "AcDbEntity")
	       (cons 100 "AcDbline")
	       (cons 8 "first_layer")
	       (cons 10 pt0)
	       (cons 11 pt1)))


;выводит choose first point: choose second point: choose first point: choose second 
point: ; error: too many arguments

[zamtmn]

из матрицы

Нео, залогинтесь!

[amadey18]

Сообщение от zamtmn Нео, залогинтесь!

из списка
((x y z) - первая линия
(x y z) - вторая линия
(x y z)) - 3я линия

[gomer]

Сообщение от amadey18 а можно такую же функцию, только в обратном порядке? нужно из матрицы координат нарисовать линии. Код: [Выделить все] view sourceprint?01**** ;выбор точек, создание матрицы02(setq pt0 (getpoint "choose first point: "))03**(setq pt1 (getpoint "choose second point: "))04**(setq le3 (list (list pt0 pt1)))05**(setq pt0 (getpoint "choose first point: "))06**(setq pt1 (getpoint "choose second point: "))07**(setq le3 (list le3 (list pt0 pt1)))08*09choose first point: choose second point: choose first point: choose second 10point: ((((-164.036 545.71 0.0) (-40.7754 306.214 0.0))) ((116.724 778.364 0.0)11(205.746 610.716 0.0))) например дана матрица(как в коде), нужно по координатам нарисовать линии. (-164.036 545.71 0.0) (-40.7754 306.214 0.0) - первая линия (116.724 778.364 0.0) (205.746 610.716 0.0) - вторая линия

Что за чушь вы принесли?

Код:

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

 
(setq le3 '())

(while (and
	 (setq pt0 (getpoint "\nChoose first point: "))
	 (setq pt1 (getpoint pt0 "\nChoose second point: "))
       )
  (setq le3 (append le3 (list (list pt0 pt1))))
)


(foreach % le3
  (entmake
    (list (cons 0 "LINE") (cons 10 (car %)) (cons 11 (cadr %)))
  )
)

(foreach %
	   '(((-164.036 545.71 0.0) (-40.7754 306.214 0.0))
	     ((116.724 778.364 0.0) (205.746 610.716 0.0))
	    )
  (entmake
    (list (cons 0 "LINE") (cons 10 (car %)) (cons 11 (cadr %)))
  )
)

[amadey18]

Сообщение от gomer Что за чушь вы принесли? Код: [Выделить все] (setq le3 '()) (while (and (setq pt0 (getpoint "\nChoose first point: ")) (setq pt1 (getpoint pt0 "\nChoose second point: ")) ) (setq le3 (append le3 (list (list pt0 pt1)))) ) (foreach % le3 (entmake (list (cons 0 "LINE") (cons 10 (car %)) (cons 11 (cadr %))) ) ) (foreach % '(((-164.036 545.71 0.0) (-40.7754 306.214 0.0)) ((116.724 778.364 0.0) (205.746 610.716 0.0)) ) (entmake (list (cons 0 "LINE") (cons 10 (car %)) (cons 11 (cadr %))) ) )

Извините, я в ЛИСПе новичок, но и за это спасибо. Но еще, после выбора точек линии не отображаются. Слой и настройки линий выбрал, все равно нет.

[gomer]

Сообщение от amadey18 я в ЛИСПе новичок

новичек - звание предполагающее хотя б элементраные знания, я и не старался сделать так, чтоб линии сразу рисовались
по сути мой код разделен на 3 части, 1 - создание ПРАВИЛЬНОЙ матрицы, а не то что у вас получалось; 2 - рисование по матрице, то, что вы попросили во второй раз; 3 - наглядная демонстрация рисования по вашей, но исправленной матрице. Из чего можно было бы элементарно создать например такой код:

Код:

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

 (while (and
	 (setq pt0 (getpoint "\nChoose first point: "))
	 (setq pt1 (getpoint pt0 "\nChoose second point: "))
       )
 (entmake
    (list (cons 0 "LINE") (cons 10 pt0) (cons 11 pt1))
  )
  (setq le3 (append le3 (list (list pt0 pt1))))
)