Не работает команда burst

Как вставить команду «Burst» в программу?

Чтобы отправить ответ, вы должны войти или зарегистрироваться

Сообщения 10

#1 Тема от vovchik 12 декабря 2005г. 14:55:10

• vovchik
• Восстановленный участник

• На форуме с 11 октября 2005г.
• Сообщений: 10
• Спасибо: 0

Тема: Как вставить команду «Burst» в программу?

[rus]Podskazhite pozhalujjsta
kak vstavit’ komandu [/rus]»Burst» в лисп код

#2 Ответ от kpblc 12 декабря 2005г. 15:00:01

• kpblc
• Активный участник

• Откуда: С.-Петербург
• На форуме с 29 ноября 2004г.
• Сообщений: 8,347
• Спасибо: 23

Re: Как вставить команду «Burst» в программу?

#3 Ответ от vovchik 12 декабря 2005г. 15:15:00

• vovchik
• Восстановленный участник

• На форуме с 11 октября 2005г.
• Сообщений: 10
• Спасибо: 0

Re: Как вставить команду «Burst» в программу?

Can’t reenter LISP.
не идет

#4 Ответ от kpblc 12 декабря 2005г. 15:27:23

• kpblc
• Активный участник

• Откуда: С.-Петербург
• На форуме с 29 ноября 2004г.
• Сообщений: 8,347
• Спасибо: 23

Re: Как вставить команду «Burst» в программу?

Ну если не так, то втупую: (command «burst»)

#5 Ответ от ZZZ 13 декабря 2005г. 00:09:50

• ZZZ
• Активный участник

• На форуме с 20 декабря 2004г.
• Сообщений: 449
• Спасибо: 0

Re: Как вставить команду «Burst» в программу?

И предварительно при этом необходимо выбрать(выделить) набор блоков , например при помощи sssetfirst

#6 Ответ от kpblc 13 декабря 2005г. 08:13:09

• kpblc
• Активный участник

• Откуда: С.-Петербург
• На форуме с 29 ноября 2004г.
• Сообщений: 8,347
• Спасибо: 23

Re: Как вставить команду «Burst» в программу?

> ZZZ
Не обязательно ИМХО — можно попробовать старую конструкцию (которую ты же мне и давал):

#7 Ответ от ZZZ 13 декабря 2005г. 09:19:31

• ZZZ
• Активный участник

• На форуме с 20 декабря 2004г.
• Сообщений: 449
• Спасибо: 0

Re: Как вставить команду «Burst» в программу?

> kpblc
Это не я. Первый раз вижу.

#8 Ответ от 🙂 13 декабря 2005г. 13:20:42

• 🙂
• Восстановленный участник

• На форуме с 13 декабря 2005г.
• Сообщений: 1
• Спасибо: 0

Re: Как вставить команду «Burst» в программу?

#9 Ответ от Anatoly 19 июня 2007г. 11:30:57

• Anatoly
• Восстановленный участник

• На форуме с 23 ноября 2005г.
• Сообщений: 158
• Спасибо: 0

Re: Как вставить команду «Burst» в программу?

А как сделать, чтобы в текст превращались только видимые атрибуты, а невидимые просто удалялись?
Или может есть такая готовая программа?

Источник

Команда Burst

Страница 1 из 2

1

2

>

06.07.2010, 15:08 #2

Помогаю, кому делать нечего.

AutoLISP Reference Guide > AutoLISP Functions > R Functions > repeat

Evaluates each expression a specified number of times, and returns the value of the last expression

(repeat int [expr. ])
Arguments

int
An integer. Must be a positive number.

expr
One or more atoms or expressions.

The value of the last expression or atom evaluated. If expr is not supplied, repeat returns nil.

Command: (setq a 10 b 100)

Command: (repeat 4 (setq a (+ a 10)) (setq b (+ b 100)))

After evaluation, a is 50, b is 500, and repeat returns 500.

If strings are supplied as arguments, repeat returns the last string:

Command: (repeat 100 «Me» «You»)

06.07.2010, 15:12 #3

Да это все понятно. Суть вопроса в том, куда именно запихнуть рипит, что бы команда burst проработала 4 раза с единожды выбранными объектами. Это делается потому что иногда люди делают БЛОК В БЛОКЕ и так сколь угодно раз.

Попробуйте применить эту команду к обычному блоку и посмотреть результат. А теперь сделайте блок и него запихните еше один блок и повторите команду. снимется так скажем только первый слой) и еще один блок останется.

06.07.2010, 15:18 #4

06.07.2010, 15:27 #5

LISP, C# (ACAD 200[9,12,13,14])

__________________

— Обращение ко мне — на «ты». Все, что сказано — личное мнение.

06.07.2010, 15:33 #6

06.07.2010, 15:35 #7

06.07.2010, 15:36

#8

LISP, C# (ACAD 200[9,12,13,14])

__________________

— Обращение ко мне — на «ты». Все, что сказано — личное мнение.

06.07.2010, 15:36 #9

Вложения

DWG 2004	Drawing3.dwg (33.8 Кб, 923 просмотров)
	burst.lsp (7.7 Кб, 67 просмотров)

06.07.2010, 15:43 #10

06.07.2010, 15:47 #11

06.07.2010, 15:47 #12

06.07.2010, 15:53 #13

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

(command «-layer» «n» «X-ref» «c» «8» «X-ref» «s» «X-ref» «» «»)

(command «chprop» «all» «» «c» «bylayer» «»)

Как сделать, что бы она не вываливалась, якобы с ошибкой, а выполнила последнюю команду?

06.07.2010, 15:56 #14

LISP, C# (ACAD 200[9,12,13,14])

__________________

— Обращение ко мне — на «ты». Все, что сказано — личное мнение.

06.07.2010, 16:05 #15

06.07.2010, 16:06 #16

Вместо этого
(defun repeat-burst (range / lastent item bcnt selset last_ent burst-one explodable att-text)

сделал так
(defun с:rburst (range / lastent item bcnt selset last_ent burst-one explodable att-text)

и не работает, пишет оч много аргументов

Еще попутный вопрос
Нужно разомкнуть все имеющиеся слои. если делать в каде по команде -layer порядок действий такой:
(command «-layer» «u» «» «all» «» «») послу u напишите имя слоя или выбрать объекты, т.е. если нажать enter появится возможнось их выбрать, можно нажать олл и выбрать все..а вот через лисп такая фигня не проходит. возможно сделать такое?

Источник

Команда Burst

Страница 1 из 2

1

2

>

06.07.2010, 15:08 #2

Помогаю, кому делать нечего.

AutoLISP Reference Guide > AutoLISP Functions > R Functions > repeat

Evaluates each expression a specified number of times, and returns the value of the last expression

(repeat int [expr. ])
Arguments

int
An integer. Must be a positive number.

expr
One or more atoms or expressions.

The value of the last expression or atom evaluated. If expr is not supplied, repeat returns nil.

Command: (setq a 10 b 100)

Command: (repeat 4 (setq a (+ a 10)) (setq b (+ b 100)))

After evaluation, a is 50, b is 500, and repeat returns 500.

If strings are supplied as arguments, repeat returns the last string:

Command: (repeat 100 «Me» «You»)

06.07.2010, 15:12 #3

Да это все понятно. Суть вопроса в том, куда именно запихнуть рипит, что бы команда burst проработала 4 раза с единожды выбранными объектами. Это делается потому что иногда люди делают БЛОК В БЛОКЕ и так сколь угодно раз.

Попробуйте применить эту команду к обычному блоку и посмотреть результат. А теперь сделайте блок и него запихните еше один блок и повторите команду. снимется так скажем только первый слой) и еще один блок останется.

06.07.2010, 15:18 #4

06.07.2010, 15:27 #5

LISP, C# (ACAD 200[9,12,13,14])

__________________

— Обращение ко мне — на «ты». Все, что сказано — личное мнение.

06.07.2010, 15:33 #6

06.07.2010, 15:35 #7

06.07.2010, 15:36 #8

LISP, C# (ACAD 200[9,12,13,14])

__________________

— Обращение ко мне — на «ты». Все, что сказано — личное мнение.

06.07.2010, 15:36 #9

Вложения

DWG 2004	Drawing3.dwg (33.8 Кб, 923 просмотров)
	burst.lsp (7.7 Кб, 67 просмотров)

06.07.2010, 15:43 #10

06.07.2010, 15:47 #11

06.07.2010, 15:47 #12

06.07.2010, 15:53 #13

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

(command «-layer» «n» «X-ref» «c» «8» «X-ref» «s» «X-ref» «» «»)

(command «chprop» «all» «» «c» «bylayer» «»)

Как сделать, что бы она не вываливалась, якобы с ошибкой, а выполнила последнюю команду?

06.07.2010, 15:56 #14

LISP, C# (ACAD 200[9,12,13,14])

__________________

— Обращение ко мне — на «ты». Все, что сказано — личное мнение.

06.07.2010, 16:05 #15

06.07.2010, 16:06 #16

Вместо этого
(defun repeat-burst (range / lastent item bcnt selset last_ent burst-one explodable att-text)

сделал так
(defun с:rburst (range / lastent item bcnt selset last_ent burst-one explodable att-text)

и не работает, пишет оч много аргументов

Еще попутный вопрос
Нужно разомкнуть все имеющиеся слои. если делать в каде по команде -layer порядок действий такой:
(command «-layer» «u» «» «all» «» «») послу u напишите имя слоя или выбрать объекты, т.е. если нажать enter появится возможнось их выбрать, можно нажать олл и выбрать все..а вот через лисп такая фигня не проходит. возможно сделать такое?

Источник