[kpectoff]

Добрый день, Коллеги. Только начал изучать лисп. Суть в том, что хочу написать код для создания выноски с указанием номера контрольной точки.
Необходимо сделать так, чтобы вставлялся текс, с выравниванием по центру. Чтобы точка центра текста (координата Х) была в центре горизонтальной линии выноски, и координата У долна отличаться на 0.3 высоты текса h. Прилагаю код лиспа + скрин. Программа не дописана. Когда закончу с выводом текса, перейду на цикл номера точки, так что этот момент будет позже. Проблема в том, что текст на выводится на экран.

Код:

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

 (defun c:contpo (/ p1 p2 p3 n h k)
	(setq n (getint "Введите начало отсчёта"))
  	(setq h (getvar "TEXTSIZE"))
  	(setq p1 (getpoint))
	(setq p2 (getpoint p1))
	(if (< (car p1) (car p2)) (setq k (* h 2.3308)) (setq k (* h -2.3308)))
	(setq p3 (cons (+ k (car p2)) (cdr p2)))
	(entmake
		(list
			(cons 0 "LWPOLYLINE")
			(cons 100 "AcDbEntity")
           		(cons 100 "AcDbPolyline")
           	        (cons 90 2)
           		(cons 70 0)
			(cons 10 p1)
			(cons 10 p2)
			(cons 10 p3)
		)
	)
  	(entmake
	  	(list
		  	(cons 0 "TEXT")
			(cons 100 "AcDbEntity")
			(cons 100 "AcDbText")
			(cons 40 h)
			(cons 41 1)
			(cons 50 0)
			(cons 51 0)
			(cons 67 0)
			(cons 71 0)
			(cons 72 1)
			(cons 73 0)
			(cons 10 (car p2) (+ (cadr p2) (* h 0.3)) 0)
			(cons 11 (+ (car p2) (* k 0.5)) (+ (cadr p2) (* h 0.3)) 0)
			(cons 1 "999")
		)
	)
)

[ciril]

Ну, прекрасно, суть понятна, а чего надо-то: дописать программу, сказать, почему выдает ошибку, как вставлять текст в топик, чтобы русские буквы отображались. В чем вопрос?

[kpectoff]

Добавил суть проблемы. Ну и хотелось бы конкретно знать, почему текст не выводится на экран?

[ciril]

твои 33 и 34 строки:

Код:

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

 (cons 10 (car p2) (+ (cadr p2) (* h 0.3)) 0)
(cons 11 (+ (car p2) (* k 0.5)) (+ (cadr p2) (* h 0.3)) 0)

замени на:

Код:

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

 (list 10 (car p2) (+ (cadr p2) (* h 0.3)) 0)
(list 11 (+ (car p2) (* k 0.5)) (+ (cadr p2) (* h 0.3)) 0)

Если не настроено в IDE прерывание на ошибке, включи его. И shift+ctrl+R окно - там будет описание почему.

[kpectoff]

Сообщение от ciril твои 33 и 34 строки: Код: [Выделить все] (cons 10 (car p2) (+ (cadr p2) (* h 0.3)) 0) (cons 11 (+ (car p2) (* k 0.5)) (+ (cadr p2) (* h 0.3)) 0) замени на: Код: [Выделить все] (list 10 (car p2) (+ (cadr p2) (* h 0.3)) 0) (list 11 (+ (car p2) (* k 0.5)) (+ (cadr p2) (* h 0.3)) 0) Если не настроено в IDE прерывание на ошибке, включи его. И shift+ctrl+R окно - там будет описание почему.

Спасибо большое, проблема решена!

[ciril]

Не за что, купите себе Полещука "AutoLISP и VisualLISP в среде AutoCAD" - снимется огромное количество вопросов.

[kpectoff]

Сообщение от ciril Не за что, купите себе Полещука "AutoLISP и VisualLISP в среде AutoCAD" - снимется огромное количество вопросов.

Книгу купил, к ней и прибегаю по случаю всего. Над этой проблемой думал второй день. Не знал как решить - обратился к форуму! Теперь буду знать!