[Hansom]

пишу программку для этой детали
[IMG]http://i.*******info/i5/13/48/1144813/skanyrovanye0005_800.jpg[/IMG]
ЛИСП начал изучать совсем недавно, толком не могу разобраться - знания начальные(с книжкой в руках) - соответственно на первой же попытке написания застрял с ошибкой! AutoCAD2007 не распознает написанную мной команду массива. Вот фрагмент программы:

Код:

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

 (setq
x 50 y 50 L 530 l1 170 H 200 B 10 D 12.3 d1 6.6
T1 (list x y)
T2 (list (+ x L) (+ y H))
T3 (list (+ x B) (+ y B))
)
(command
"_.rectang" T1 T2 ""
"_.circle" T3 (/ d1 2) ""
"_.circle" T3 (/ D 2) ""
"_.array" (_.ssget "W" '(2 2) '(20 20)) "" "_R" "2" "4" "180" "170" 
)

В чем моя ошибка? помогите пожалуйста! Заранее благодарен!

[gomer]

Hansom, вы каким акадом пользуетесь??? Судя по картинке у вас пустой выбор в ssget, вот ничего и не массируется... Это раз... во-вторых, если рисовать деталь с нуля, то лучше отрисованные 2 окружности добавить в свой набор с помощью entlast и ssadd, так можно точно быть уверенным, что копирование будет нужных элементов...

[Hansom]

вот исправил:

Код:

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

 (setq		x 50 y 50 L 530 l1 170 H 200 B 10 D 12.3 d1 6.6
				T1 (list x y)
				T2 (list (+ x L) (+ y H))
				T3 (list (+ x B) (+ y B)))
	(command "_.rectang" T1 T2 "")
	(command "_.circle" T3 (/ d1 2) "")
	(setq R (entlast))
	(command "_.circle" T3 (/ D 2) "")
	(setq E (entlast))
	(command "_.array" R E"" "_R" "2" "4" "180" "170" )

Можно ли к примеру сделать похожее, только с использованием элементов ss без entlast(тоесть сначала проводим построения, потом создаем набор примитивов, и уже загнать имеющийся набор в массив), как вижу это я(но программа не работает, в чем собственно и вопрос =) )

Код:

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

 (setq		x 50 y 50 L 530 l1 170 H 200 B 10 D 12.3 d1 6.6
				T1 (list x y)
				T2 (list (+ x L) (+ y H))
				T3 (list (+ x B) (+ y B))
	(command
				"_.rectang" T1 T2 ""
				"_.circle" T3 (/ d1 2) ""
				"_.circle" T3 (/ D 2) ""
	)
	(setq ss (ssget))
	(ssget "_W" '(51 51) '(60 60))
	(command "_.array" ss"" "_R" "2" "4" "180" "170")

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

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

[gomer]

Сообщение от Кулик Алексей aka kpblc Тогда создавай примитивы непрограммными методами.

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

[Do$]

Сообщение от Hansom сначала проводим построения, потом создаем набор примитивов

Можно вот так:

Код:

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

 (command "_.circle" T3 (/ d1 2) "")
(setq ss (ssadd (entlast)))
(command "_.circle" T3 (/ D 2) "")
(setq ss (ssadd (entlast) ss))

Потом уже ss загоняем в команду постороения массива.

[Hansom]

Спасибо за помощь!