[Natasha111]

Добрый день-ночь-утро. Буду очень признательна за помощь. Долго ходила по форуму, у меня была проблема с координатой z , удалось мне ее обнулить с помощью лиспа flatten , да вот беда, пропали вдруг на одном этаже все блоки дверей. Вот файл, до выполнения команды, интересно, что произойдет у вас? Кстати, после команды flatten ,когда делаю zoom extents не могу найти чертеж, объекты разбросаны тут и там.

[VVA]

LISP. Обнуление координаты Z (аналог FLATTEN )

[Natasha111]

Я его пробовала, он не работает, я думаю потому что у меня на компьютере нет русского языка, когда я копирую текст в блокнот, он мне всякие закорючки пишет.Я потому и взяла старый, еще 2004 года, который только на английском.

[wetr]

Natasha111, а из состава VetCAD не пробовали "Обнуление z координат"? Достаточно корректно работает(в сравнении). И доступна в бесплатной версии.

[Profan]

Сообщение от Natasha111 Я потому и взяла старый, еще 2004 года, который только на английском.

Это про что? А если взять 2009 года и на русском?

[Victor]

Если только для блоков

Код:

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

;;;;;;;;;z->0
(defun c:z20( / nameset setlength namrun i 
                namrun spirun koord koord_n)
 (setq snp (getvar "Osmode"))
 (setvar "Osmode" 0) 
 (setq nameset (ssget "_:L" '(( 0 . "INSERT")))) ;imya nabora
 (setq setlength (sslength nameset)) ;dlina nabora
 (setq i -1)
 (repeat setlength
    (setq i (1+ i))
    (setq namrun (ssname nameset i)) ;imya i
    (setq spirun (entget namrun)) ;spisok i
    (setq koord (cdr(assoc 10 spirun))) ;koord
    (setq koord_n (reverse(cdr (reverse koord))))
    (setq koord_n (append koord_n '(0.0)))
    (command "_move" namrun "" koord koord_n)
  )   
(setvar "Osmode" snp) 
)

[Natasha111]

Сообщение от wetr Natasha111, а из состава VetCAD не пробовали "Обнуление z координат"? Достаточно корректно работает(в сравнении). И доступна в бесплатной версии.

я не знаю о чем идет речь, это добавка какая-то?

Это про что? А если взять 2009 года и на русском?

Это я про внутренность лиспа, у меня вообще нет русского на данном компьютере, нет ни поддержки и разумеется шрифтов, ему (компьютеру) не удается прочитать текст внутри лиспа, поэтому даже при том что он лисп загружает, при наборе команды в автокаде ничего не происходит, если есть где-то лисп на английском 2009 года, буду рада услышать, поискать сама не могу, не тот уровень языка к сожалению.

Если только для блоков

Код:

Спасибо, я пробую

[Conan_w]

А я если флаттен не помогает - вручную обнуляю координату Z - в свойствах объектов, это применительно к не большому чертежу.

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

И работает далеко не всегда. Особенно для примитивов с системой координат, не параллельной мировой

[Natasha111]

Флаттен очень даже помог, только что-то случилось с файлом, кроме всех вышеперечисленных неприятностей, он еще и работает как будто включен режим Snap Mode