» Autodesk AutoCAD

ПОмогите пожалуйста. Есть файл .dwg. При открытии в Autocad 2011 говорит, что файл создан не в автокаде, но все таки открывает. При этом вместо чертежа и шрифтов видны какие то крякозяблики. Возможно ли как нибудь узнать в какой именно программе был создан данный файл и открыть его в это программе?

kpblc
ok. Понял. Узнаю. Отпишусь.

Devilnoone1
http://forum.ru-board.com/topic.cgi?forum=5&topic=26081&start=280#14 и ниже.

только программа теперь находится по другому адресу. http://www.caduser.ru/forum/index.php?PAGE_NAME=read&FID=44&TID=20384

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

Цитата:

подстановка simplex.shx вместо Arial Кирилистического

Если встречается слово Кирилистический, то с большой вероятностью файл был сделан в Архикаде.

Если сам не разберешься и файле нет никаких приватных данных, то можешь выложить файл на обменник, затем опубликовать ссылку в топике.

kpblc
Цитата:

ИМХО проще будет перечислить объекты, которые надо обрабатывать, и сказать - как. Тогда "непонятки" сами уйдут

Дуга, круг, эллипс.
Блок.
МТекст, Текст
Штриховка (странная ситуация, есть точка в центре штриховки, но нет ее координат в свойствах)
Полилиния. Точка будет с координатами (X,Y, уровень).

Дуга - центр
Круг - центр
Эллипс: центр описанного вокруг него прямоугольника?
Блок - точка вставки, даже если она за 100 кеме от ближайшего примитива блока?
Мтекст и текст - точка вставки или выравнивания? Хотя тут более-менее ясно...
Штриховка: центр описанного вокруг нее прямоугольника?
Полилиния - а про какую точку разговор? Там этих точек может быть миллион. И, кстати, про какую полилинию - LightWeightPolyline или 3DPolyline?

Прошу помощи в решении проблемы: при установке Update 1 на AutoCAD 2011 MEP выдается ошибка

Цитата:

Сигнатура проблемы
Имя проблемного события: APPCRASH
Имя приложения: WSCommCntr2.exe
Версия приложения: 3.0.267.0
Штамп времени приложения: 4b7176b9
Имя модуля с ошибкой: ntdll.dll
Версия модуля с ошибкой: 6.0.6002.18327
Штамп времени модуля с ошибкой: 4cb73436
Код исключения: c0000005
Смещение исключения: 0003de2d
Версия ОС: 6.0.6002.2.2.0.274.10
Код языка: 1049
Дополнительные сведения 1: 0b7b
Дополнительные сведения 2: f14dc8150d87121097d4579d6bad8650
Дополнительные сведения 3: e4b8
Дополнительные сведения 4: e843e7a073caa38d452a915357ffb89a

Файлы, помогающие описать проблему
Version.txt
AppCompat.txt
memory.hdmp
minidump.mdmp

Version.txt
[more]Windows NT Version 6.0 Build: 6002 Service Pack 2
Product (0xa): Windows Server (R) 2008 Enterprise
Edition: ServerEnterprise
BuildString: 6002.18327.x86fre.vistasp2_gdr.101014-0432
Flavor: Multiprocessor Free
Architecture: X86
LCID: 1049[/more]
(ОС - Windows Server 2008, используется PAE - 8 ГБ памяти)

AppCompat.txt
[more]<?xml version="1.0" encoding="UTF-16"?>
<DATABASE>
<EXE NAME="WSCommCntr2.exe" FILTER="GRABMI_FILTER_PRIVACY">
<MATCHING_FILE NAME="axiom.dll" SIZE="182784" CHECKSUM="0xC6A3E0B1" MODULE_TYPE="WIN32" PE_CHECKSUM="0x0" LINKER_VERSION="0x0" LINK_DATE="01/27/2010 07:24:58" UPTO_LINK_DATE="01/27/2010 07:24:58" EXPORT_NAME="axiom.dll" />
<MATCHING_FILE NAME="axis2_engine.dll" SIZE="386560" CHECKSUM="0x2DF6C831" MODULE_TYPE="WIN32" PE_CHECKSUM="0x0" LINKER_VERSION="0x0" LINK_DATE="01/27/2010 07:25:36" UPTO_LINK_DATE="01/27/2010 07:25:36" EXPORT_NAME="axis2_engine.dll" />
<MATCHING_FILE NAME="axis2_http_receiver.dll" SIZE="65536" CHECKSUM="0x5A50DB42" MODULE_TYPE="WIN32" PE_CHECKSUM="0x0" LINKER_VERSION="0x0" LINK_DATE="01/27/2010 07:25:39" UPTO_LINK_DATE="01/27/2010 07:25:39" EXPORT_NAME="axis2_http_receiver.dll" />
<MATCHING_FILE NAME="axis2_http_sender.dll" SIZE="79872" CHECKSUM="0x4DF001D1" MODULE_TYPE="WIN32" PE_CHECKSUM="0x0" LINKER_VERSION="0x0" LINK_DATE="01/27/2010 07:25:38" UPTO_LINK_DATE="01/27/2010 07:25:38" EXPORT_NAME="axis2_http_sender.dll" />
<MATCHING_FILE NAME="axis2_parser.dll" SIZE="69632" CHECKSUM="0x3F571E0C" MODULE_TYPE="WIN32" PE_CHECKSUM="0x0" LINKER_VERSION="0x0" LINK_DATE="01/27/2010 07:24:54" UPTO_LINK_DATE="01/27/2010 07:24:54" EXPORT_NAME="axis2_parser.dll" />
<MATCHING_FILE NAME="axis2_tcp_receiver.dll" SIZE="68608" CHECKSUM="0x100F9B07" MODULE_TYPE="WIN32" PE_CHECKSUM="0x0" LINKER_VERSION="0x0" LINK_DATE="01/27/2010 07:25:59" UPTO_LINK_DATE="01/27/2010 07:25:59" EXPORT_NAME="axis2_tcp_receiver.dll" />
<MATCHING_FILE NAME="axis2_tcp_sender.dll" SIZE="46080" CHECKSUM="0x15C4C20C" MODULE_TYPE="WIN32" PE_CHECKSUM="0x0" LINKER_VERSION="0x0" LINK_DATE="01/27/2010 07:25:58" UPTO_LINK_DATE="01/27/2010 07:25:58" EXPORT_NAME="axis2_tcp_sender.dll" />
<MATCHING_FILE NAME="axis2_xpath.dll" SIZE="87040" CHECKSUM="0xE53C1A2" MODULE_TYPE="WIN32" PE_CHECKSUM="0x0" LINKER_VERSION="0x0" LINK_DATE="01/27/2010 07:24:58" UPTO_LINK_DATE="01/27/2010 07:24:58" EXPORT_NAME="axis2_xpath.dll" />
<MATCHING_FILE NAME="axutil.dll" SIZE="192000" CHECKSUM="0x3B7FBB0C" MODULE_TYPE="WIN32" PE_CHECKSUM="0x0" LINKER_VERSION="0x0" LINK_DATE="01/27/2010 07:24:53" UPTO_LINK_DATE="01/27/2010 07:24:53" EXPORT_NAME="axutil.dll" />
<MATCHING_FILE NAME="iconv.dll" SIZE="888832" CHECKSUM="0x2B87A42" BIN_FILE_VERSION="1.9.0.0" BIN_PRODUCT_VERSION="1.9.0.0" PRODUCT_VERSION="1.9" FILE_DESCRIPTION="LGPLed libiconv for Windows NT/2000/XP and Windows 95/98/ME" COMPANY_NAME="Free Software Foundation" PRODUCT_NAME="libiconv: character set conversion library" FILE_VERSION="1.9" ORIGINAL_FILENAME="iconv.dll" INTERNAL_NAME="iconv.dll" LEGAL_COPYRIGHT="Copyright (C) 1999-2003" VERDATEHI="0x0" VERDATELO="0x0" VERFILEOS="0x10004" VERFILETYPE="0x2" MODULE_TYPE="WIN32" PE_CHECKSUM="0x0" LINKER_VERSION="0x0" UPTO_BIN_FILE_VERSION="1.9.0.0" UPTO_BIN_PRODUCT_VERSION="1.9.0.0" LINK_DATE="05/03/2006 19:57:36" UPTO_LINK_DATE="05/03/2006 19:57:36" EXPORT_NAME="iconv.dll" VER_LANGUAGE="Английский (США) [0x409]" />
<MATCHING_FILE NAME="libcurl.dll" SIZE="179712" CHECKSUM="0x6C50FEB7" BIN_FILE_VERSION="7.19.7.0" BIN_PRODUCT_VERSION="7.19.7.0" PRODUCT_VERSION="7.19.7" FILE_DESCRIPTION="libcurl Shared Library" COMPANY_NAME="The cURL library, http://curl.haxx.se/" PRODUCT_NAME="The cURL library" FILE_VERSION="7.19.7" ORIGINAL_FILENAME="libcurl.dll" INTERNAL_NAME="libcurl" LEGAL_COPYRIGHT="© 1996 - 2009 Daniel Stenberg, &lt;daniel@haxx.se&gt;." VERDATEHI="0x0" VERDATELO="0x0" VERFILEOS="0x4" VERFILETYPE="0x2" MODULE_TYPE="WIN32" PE_CHECKSUM="0x3303F" LINKER_VERSION="0x0" UPTO_BIN_FILE_VERSION="7.19.7.0" UPTO_BIN_PRODUCT_VERSION="7.19.7.0" LINK_DATE="01/27/2010 10:56:07" UPTO_LINK_DATE="01/27/2010 10:56:07" EXPORT_NAME="libcurl.dll" VER_LANGUAGE="Английский (США) [0x409]" />
<MATCHING_FILE NAME="libxml2.dll" SIZE="977920" CHECKSUM="0xB9868AD8" MODULE_TYPE="WIN32" PE_CHECKSUM="0x0" LINKER_VERSION="0x20007" LINK_DATE="02/05/2010 02:23:50" UPTO_LINK_DATE="02/05/2010 02:23:50" EXPORT_NAME="libxml2.dll" />
<MATCHING_FILE NAME="neethi.dll" SIZE="114688" CHECKSUM="0xDBE5CFE2" MODULE_TYPE="WIN32" PE_CHECKSUM="0x0" LINKER_VERSION="0x0" LINK_DATE="01/27/2010 07:25:19" UPTO_LINK_DATE="01/27/2010 07:25:19" EXPORT_NAME="neethi.dll" />
<MATCHING_FILE NAME="WSCommCntr2.exe" SIZE="442296" CHECKSUM="0x9C096990" BIN_FILE_VERSION="3.0.267.0" BIN_PRODUCT_VERSION="3.0.267.0" PRODUCT_VERSION="3.0.267.0" FILE_DESCRIPTION="Autodesk InfoCenter" COMPANY_NAME="Autodesk, Inc." PRODUCT_NAME="Autodesk Windows Components for AutoCAD" FILE_VERSION="3.0.267.0" ORIGINAL_FILENAME="WSCommCntr2.exe" INTERNAL_NAME="WSCommCntr2.exe" LEGAL_COPYRIGHT="(c)Autodesk, Inc. 1998-2009. All rights reserved." VERDATEHI="0x0" VERDATELO="0x0" VERFILEOS="0x4" VERFILETYPE="0x1" MODULE_TYPE="WIN32" PE_CHECKSUM="0x78575" LINKER_VERSION="0x0" UPTO_BIN_FILE_VERSION="3.0.267.0" UPTO_BIN_PRODUCT_VERSION="3.0.267.0" LINK_DATE="02/09/2010 14:52:41" UPTO_LINK_DATE="02/09/2010 14:52:41" VER_LANGUAGE="Английский (США) [0x409]" />
<MATCHING_FILE NAME="zlib1.dll" SIZE="73728" CHECKSUM="0x47FA8096" BIN_FILE_VERSION="1.2.2.0" BIN_PRODUCT_VERSION="1.2.2.0" PRODUCT_VERSION="1.2.3" FILE_DESCRIPTION="zlib data compression library" PRODUCT_NAME="zlib" FILE_VERSION="1.2.3" ORIGINAL_FILENAME="zlib1.dll" INTERNAL_NAME="zlib1.dll" LEGAL_COPYRIGHT="(C) 1995-2004 Jean-loup Gailly &amp; Mark Adler" VERDATEHI="0x0" VERDATELO="0x0" VERFILEOS="0x10004" VERFILETYPE="0x2" MODULE_TYPE="WIN32" PE_CHECKSUM="0x1A6BF" LINKER_VERSION="0x0" UPTO_BIN_FILE_VERSION="1.2.2.0" UPTO_BIN_PRODUCT_VERSION="1.2.2.0" LINK_DATE="08/06/2005 14:15:15" UPTO_LINK_DATE="08/06/2005 14:15:15" EXPORT_NAME="zlib1.dll" VER_LANGUAGE="Английский (США) [0x409]" />
</EXE>
<EXE NAME="ntdll.dll" FILTER="GRABMI_FILTER_THISFILEONLY">
<MATCHING_FILE NAME="ntdll.dll" SIZE="1205080" CHECKSUM="0x1C4D583" BIN_FILE_VERSION="6.0.6002.18327" BIN_PRODUCT_VERSION="6.0.6002.18327" PRODUCT_VERSION="6.0.6001.18000" FILE_DESCRIPTION="Системная библиотека NT" COMPANY_NAME="Microsoft Corporation" PRODUCT_NAME="Операционная система Microsoft® Windows®" FILE_VERSION="6.0.6001.18000 (longhorn_rtm.080118-1840)" ORIGINAL_FILENAME="ntdll.dll.mui" INTERNAL_NAME="ntdll.dll" LEGAL_COPYRIGHT="© Корпорация Майкрософт. Все права защищены." VERDATEHI="0x0" VERDATELO="0x0" VERFILEOS="0x40004" VERFILETYPE="0x2" MODULE_TYPE="WIN32" PE_CHECKSUM="0x12F237" LINKER_VERSION="0x60000" UPTO_BIN_FILE_VERSION="6.0.6002.18327" UPTO_BIN_PRODUCT_VERSION="6.0.6002.18327" LINK_DATE="10/14/2010 16:47:50" UPTO_LINK_DATE="10/14/2010 16:47:50" EXPORT_NAME="ntdll.dll" VER_LANGUAGE="Русский (Россия) [0x419]" />
</EXE>
<EXE NAME="kernel32.dll" FILTER="GRABMI_FILTER_THISFILEONLY">
<MATCHING_FILE NAME="kernel32.dll" SIZE="891392" CHECKSUM="0xF772C2F2" BIN_FILE_VERSION="6.0.6002.18005" BIN_PRODUCT_VERSION="6.0.6002.18005" PRODUCT_VERSION="6.0.6001.18000" FILE_DESCRIPTION="Библиотека клиента Windows NT BASE API" COMPANY_NAME="Microsoft Corporation" PRODUCT_NAME="Операционная система Microsoft® Windows®" FILE_VERSION="6.0.6001.18000 (longhorn_rtm.080118-1840)" ORIGINAL_FILENAME="kernel32" INTERNAL_NAME="kernel32" LEGAL_COPYRIGHT="© Корпорация Майкрософт. Все права защищены." VERDATEHI="0x0" VERDATELO="0x0" VERFILEOS="0x40004" VERFILETYPE="0x2" MODULE_TYPE="WIN32" PE_CHECKSUM="0xDBE01" LINKER_VERSION="0x60000" UPTO_BIN_FILE_VERSION="6.0.6002.18005" UPTO_BIN_PRODUCT_VERSION="6.0.6002.18005" LINK_DATE="04/11/2009 06:25:33" UPTO_LINK_DATE="04/11/2009 06:25:33" EXPORT_NAME="KERNEL32.dll" VER_LANGUAGE="Русский (Россия) [0x419]" />
</EXE>
</DATABASE>
[/more]

Есть идеи?

VpupkinRB
Просьба оформить сообщение с использованием тега more http://forum.ru-board.com/topic.cgi?forum=2&topic=1716

Цитата:

(ОС - Windows Server 2008, используется PAE - 8 ГБ памяти). Есть идеи

согласно официальному сайту http://images.autodesk.com/adsk/files/autocad_mep_2011_update1_rus.html#SupportedOS
Windows Server 2008 не поддерживается.

Цитата:

Дуга, круг, эллипс.
Блок.
МТекст, Текст
Штриховка (странная ситуация, есть точка в центре штриховки, но нет ее координат в свойствах)
Полилиния. Точка будет с координатами (X,Y, уровень).

Поскольку про полилинии разговор "заглох", попробуй без нее. Для штриховки вычисляется центр описанного вокруг нее прямоугольника.
[more]

Код: (vl-load-com)

(defun c:ent2pt (/ adoc selset)
(vla-startundomark (setq adoc (vla-get-activedocument (vlax-get-acad-object))))
(if (= (type
(setq selset (vl-catch-all-apply
(function (lambda () (ssget "_:L" '((0 . "ARC,CIRCLE,ELLIPSE,*TEXT,HATCH,INSERT")))))
) ;_ end of vl-catch-all-apply
) ;_ end of setq
) ;_ end of type
'pickset
) ;_ end of =
(foreach ent (mapcar (function entget)
((lambda (/ tab item)
(repeat (setq tab nil
item (sslength selset)
) ;_ end setq
(setq tab (cons (ssname selset (setq item (1- item))) tab))
) ;_ end of repeat
) ;_ end of lambda
)
) ;_ end of mapcar
(entmakex
(append
(list
'(0 . "POINT")
(cons 10
(cond
((member (cdr (assoc 0 ent)) '("ARC" "CIRCLE" "INSERT" "MTEXT" "ELLIPSE"))
(trans (cdr (assoc 10 ent)) (cdr (assoc 210 ent)) 0)
)
((= (cdr (assoc 0 ent)) "HATCH")
((lambda (/ minp maxp)
(vla-getboundingbox (vlax-ename->vla-object (cdr (assoc -1 ent))) 'minp 'maxp)
(mapcar '(lambda (a b) (* (+ a b) 0.5)) (vlax-safearray->list minp) (vlax-safearray->list maxp))
) ;_ end of lambda
)
)
((= (cdr (assoc 0 ent)) "TEXT")
(trans (cdr (assoc
(if (or (not (cdr (assoc 72 ent)))
(/= (cdr (assoc 72 ent)))
) ;_ end of or
11
10
) ;_ end of if
ent
) ;_ end of assoc
) ;_ end of cdr
(cdr (assoc 210 ent))
0
) ;_ end of trans
)
) ;_ end of cond
) ;_ end of cons
) ;_ end of list
(vl-remove-if-not
(function
(lambda (x)
(cdr x)
) ;_ end of lambda
) ;_ end of function
(mapcar (function (lambda (x) (assoc x ent)))
'(210 8 67 6 62 410 62 370 48 420 440 430)
) ;_ end of mapcar
) ;_ end of vl-remove-if-not
) ;_ end of append
) ;_ end of entmakex
(entdel (cdr (assoc -1 ent)))
) ;_ end of foreach
) ;_ end of if
(vla-endundomark adoc)
(princ)
) ;_ end of defun

kpblc
Извиняюсь за задержку с ответом.

Цитата:

Эллипс: центр описанного вокруг него прямоугольника?

Да.

Цитата:

Блок - точка вставки, даже если она за 100 кеме от ближайшего примитива блока?

Да.

Цитата:

Мтекст и текст - точка вставки или выравнивания? Хотя тут более-менее ясно...

Точка выравнивания

Цитата:

Штриховка: центр описанного вокруг нее прямоугольника?

Да.

Цитата:

Полилиния - а про какую точку разговор? Там этих точек может быть миллион. И, кстати, про какую полилинию - LightWeightPolyline или 3DPolyline?

Про обе, но в LightWeightPolyline - это только одна точка (X,Y, уровень) начала полилинии, а в случае 3DPolyline - это все точки-вершины (X,Y,Z), которые есть в 3DPolyline

Скажу честно - сейчас я уже не в силах что-то внятное сделать... Попробую завтра вечером.
[more]Хотя с обычной полилинией так и не понял. Количество вершин у нее может быть безумным - достаточно посмотреть, например, на любую трассу, проложенную вдоль ЖД. И что, все равно обрабатывать только первую вершину?[/more]

kpblc
Цитата:

Попробую завтра вечером.

Заранее спасибо. По мере возможности. Раньше среды протестировать результат не получится.

Цитата:

И что, все равно обрабатывать только первую вершину?

да. этот момент обсуждался несколько раз и на текущий момент ответ пользователя был именно таким.

И еще момент: если точку ставим точку (точки) вместо объекта, то сам - объект удаляется. Если попадается объект, которого нет среди вышеперечисленных, то объект не удаляется.

Подскажите, пожалуйста, как мне можно самому научиться писать программы такого рода? Что лучше прочесть? Какую-то книгу или какие материалы на dwg.ru ? Я сам бывший программист, так что с алгоритмическим мышлением проблем нет. Но как посмотрю на текст таких программ - как-то не по себе становится.

Mushroomer

Цитата:

Я сам бывший программист, так что с алгоритмическим мышлением проблем нет. Но как посмотрю на текст таких программ - как-то не по себе становится.

На каком языке писал? Если знаешь C++, то ObjectARX тебе в руки. Да и на .NET можно писать (С#,VB.NEt,etc.) У lisp'а синтаксис действительно радикально отличается от обычных процедурных языков.

ACADUSER
Pascal, Paradox, немного C. Писал программы 15 лет назад.

Mushroomer

Цитата:

Но как посмотрю на текст таких программ - как-то не по себе становится.

это - да... Lisp - совершенно другой принцип языка: вместо привычных функций - одни списки .. но - привыкнуть можно ко всему
зато с ним удобно ACAD под себя автоматизировать
а почитать..
можно что-нибудь из Полещука, например "Н. Полещук, П. Лоскутов - AutoLISP и Visual LISP в среде AutoCAD"..

а можно "AutoCAD. Разработка приложений, настройка и адаптация" (того же Полещука) - там он по всяким языкам проходится.. не нужно будет голову перестраивать с привычных:
Цитата:

Содержит информацию по языкам LISP, C++, VBA, DCL, Diesel, C#, VB.NET, Delphi, Fortran и особенностям их применения, а также сведения по использованию инструментов Visual LISP, ObjectDCL, VBA, ObjectARX, MFC, .NET Framework.

Добавлено
хмм.. а сейчас кроме Полещука никто про Лисп не пишет?

ALeXkRU
Цитата:

это - да... Lisp - совершенно другой принцип языка: вместо привычных функций - одни списки

Самое обидное, что и Лисп и Пролог я в институте изучал, но это было очень давно и оба языка как-то не отложились в голове.
Извиняюсь за

> Mushroomer: попробуй. Я особо код не гонял.
[more]
Код: (vl-load-com)

(defun c:ent2pt (/ _kpblc-conv-list-to-3dpoints adoc selset)

(defun _kpblc-conv-list-to-3dpoints (lst / res)
(cond
((not lst)
nil
)
(t
(setq res (cons (list (car lst)
(if (cadr lst)
(cadr lst)
0.
) ;_ end of if
(if (caddr lst)
(caddr lst)
0.
) ;_ end of if
) ;_ end of list
(_kpblc-conv-list-to-3dpoints (cdddr lst))
) ;_ end of cons
) ;_ end of setq
)
) ;_ end of cond
res
) ;_ end of defun

(vla-startundomark
(setq adoc (vla-get-activedocument (vlax-get-acad-object)))
) ;_ end of vla-startundomark
(if (= (type
(setq selset
(vl-catch-all-apply
(function
(lambda ()
(ssget
"_:L"
'((0
.
"ARC,CIRCLE,ELLIPSE,*TEXT,HATCH,INSERT,*POLYLINE"
)
)
) ;_ end of ssget
) ;_ end of lambda
) ;_ end of function
) ;_ end of vl-catch-all-apply
) ;_ end of setq
) ;_ end of type
'pickset
) ;_ end of =
(foreach ent
(mapcar
(function entget)
((lambda (/ tab item)
(repeat (setq tab nil
item (sslength selset)
) ;_ end setq
(setq
tab (cons (ssname selset (setq item (1- item)))
tab
) ;_ end of cons
) ;_ end of setq
) ;_ end of repeat
) ;_ end of lambda
)
) ;_ end of mapcar
(cond
((= (cdr (assoc 0 ent)) "LWPOLYLINE")
(entmakex
(append
(list (cons 0 "POINT")
(cons 10
(trans (append (cdr (assoc 10 ent))
(list (cdr (assoc 38 ent)))
) ;_ end of append
(cdr (assoc 210 ent))
0
) ;_ end of trans
) ;_ end of cons
) ;_ end of list
(vl-remove-if-not
(function
(lambda (x)
(cdr x)
) ;_ end of lambda
) ;_ end of function
(mapcar (function (lambda (x) (assoc x ent)))
'(210 8 67 6 62 410 62 370 48 420 440 430 10)
) ;_ end of mapcar
) ;_ end of vl-remove-if-not
) ;_ end of append
) ;_ end of entmakex
)
((= (cdr (assoc 0 ent)) "POLYLINE")
(mapcar
(function
(lambda (x)
(entmakex
(vl-remove
'nil
(append
(list (cons 0 "POINT")
(cons 10 x)
) ;_ end of list
(mapcar (function (lambda (x) (assoc x ent)))
'(210 8 67 6 62 410 62 370 48 420 440 430)
) ;_ end of mapcar
) ;_ end of append
) ;_ end of vl-remove
) ;_ end of entmakex
) ;_ end of lambda
) ;_ end of function
(_kpblc-conv-list-to-3dpoints
(vlax-safearray->list
(vlax-variant-value
(vla-get-coordinates
(vlax-ename->vla-object (cdr (assoc -1 ent)))
) ;_ end of vla-get-coordinates
) ;_ end of vlax-variant-value
) ;_ end of vlax-safearray->list
) ;_ end of _kpblc-conv-list-to-3dpoints
) ;_ end of mapcar
)
(t
(entmakex
(append
(list
'(0 . "POINT")
(cons
10
(cond
((member (cdr (assoc 0 ent))
'("ARC" "CIRCLE" "INSERT" "MTEXT" "ELLIPSE")
) ;_ end of member
(trans (cdr (assoc 10 ent)) (cdr (assoc 210 ent)) 0)
)
((= (cdr (assoc 0 ent)) "HATCH")
((lambda (/ minp maxp)
(vla-getboundingbox
(vlax-ename->vla-object (cdr (assoc -1 ent)))
'minp
'maxp
) ;_ end of vla-getboundingbox
(mapcar '(lambda (a b) (* (+ a b) 0.5))
(vlax-safearray->list minp)
(vlax-safearray->list maxp)
) ;_ end of mapcar
) ;_ end of lambda
)
)
((= (cdr (assoc 0 ent)) "TEXT")
(trans (cdr (assoc
(if (or (not (cdr (assoc 72 ent)))
(/= (cdr (assoc 72 ent)))
) ;_ end of or
11
10
) ;_ end of if
ent
) ;_ end of assoc
) ;_ end of cdr
(cdr (assoc 210 ent))
0
) ;_ end of trans
)
) ;_ end of cond
) ;_ end of cons
) ;_ end of list
(vl-remove-if-not
(function
(lambda (x)
(cdr x)
) ;_ end of lambda
) ;_ end of function
(mapcar (function (lambda (x) (assoc x ent)))
'(210 8 67 6 62 410 62 370 48 420 440 430)
) ;_ end of mapcar
) ;_ end of vl-remove-if-not
) ;_ end of append
) ;_ end of entmakex
)
) ;_ end of cond
(entdel (cdr (assoc -1 ent)))
) ;_ end of foreach
) ;_ end of if
(vla-endundomark adoc)
(princ)
) ;_ end of defun

Цитата:

Просьба оформить сообщение с использованием тега more http://forum.ru-board.com/topic.cgi?forum=2&topic=1716

Пытался найти как сделать спойлер, но не нашел Печально, что здесь нет проставлялок даже элементарных тегов. Да и справки тоже не нашел.
Цитата:

согласно официальному сайту http://images.autodesk.com/adsk/files/autocad_mep_2011_update1_rus.html#SupportedOS
Windows Server 2008 не поддерживается.

Я в курсе, но вопрос то в том, что сам автокад нормально устанавливается, а обновление не идет.

Помогите пожалуйста. Мозможно ли в AutoCAD 2008 запретить (заблокировать паролем...) изменение каких-либо обьектов? Т.е. в четеже без моего ведома не вносили изменения

lexer10

Цитата:

Помогите пожалуйста. Мозможно ли в AutoCAD 2008 запретить (заблокировать паролем...) изменение каких-либо обьектов? Т.е. в четеже без моего ведома не вносили изменения

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

ACADUSER
Цитата:

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

А насколько это надежно? Я слышал, тот кто разбирается то ли в лиспе, то ли в VBA этот пароль снимет очень быстро.

lexer10
http://forum.dwg.ru/showpost.php?p=236810&postcount=3

kpblc
Большое спасибо. Я в ПМ написал результаты теста.

Цитата:

Прошу помощи в решении проблемы: при установке Update 1 на AutoCAD 2011 MEP выдается ошибка

Проблема решилась следующим образом: переустановили автокад и во время установки подключили обновления. Всё установилось.

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

kpblc
Касательно простого текста:
Если у текста установлено выравнивание "влево", то координаты XYZ точки берутся из раздела "Геометрия" Положение XYZ
Если у текста установлен другой тип выравнивания, то координаты XYZ точки берутся из раздела "Текст" Привязка текста по XYZ



StasOK13
Просьба сделать картинку увеличиваемой по превью.
Ответ тут http://forum.dwg.ru/showpost.php?p=236811&postcount=4

Mushroomer

Цитата:

А насколько это надежно? Я слышал, тот кто разбирается то ли в лиспе, то ли в VBA этот пароль снимет очень быстро.

Это достаточно надежно. Алгоритм шифрования можно выбирать из установленных в системе. Лисп и VBA в снятии пароля не помогут. Понятно, что при желании можно сломать любую защиту. Вопрос упирается в деньги и время, необходимые для этого.

а как бы работать без мышки с колесиком?
я на ноуте заменил клик средней кнопки мыши, а вот
скроллинг по прокрутке колесика - чем бы эффективнее заменить?

svs123456789

Цитата:

скроллинг по прокрутке колесика - чем бы эффективнее заменить?

вспомнить старые добрые времена: использование команд _zoom и _pan (и использовать только левую кнопку мыши)

Mushroomer, так выравниваний "влево" аж три штуки. И вроде бы я и делал как описано... Как только основной комп "оживет", я попробую на нем провернуть последний вариант и определить, чего "не так".

kpblc
Цитата:

так выравниваний "влево" аж три штуки.

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

Цитата:

Как только основной комп "оживет", я попробую на нем провернуть последний вариант и определить, чего "не так".

ок. заранее спасибо.

Прошу помощи в разрешении странной и очень неприятной для меня ситуации.

AutoCAD 2006.
Есть файл 2.dwg. В него по вставленной ссылке входит файл 3.dwg.
В файле 2.dwg файл 3.dwg выгружен.

Далее. Файл 2.dwg входит по наложенной ссылке в файл 1.dwg.
Естественно в файле 1.dwg файл 3.dwg тоже выгружен.
Обновляем ссылку 3.dwg в файле 1.dwg. Cодержимое файла 3.dwg показывается.
Вроде все отлично. Сохраняю файл 1.dwg в таком (т.е. файл 3.dwg загружен) состоянии . Закрываю файл 1.dwg.
Открываю снова файл 1.dwg. А в нем файл 3.dwg уже выгружен. Какого черта?

Переменная VISRETAIN (хотя интуиция подсказывает, что дело не в ней) во всех файлах =1

Все три файла находятся в одной директории. Путь к файлам в диспечере ссылок не прописан. ну т.е. тип вставки "путь не задан". Файлы формировались черз создание комплекта.

возникла очень странная проблема - при открытии выполняются команды:

"Файл адаптации загружен успешно. Группа адаптации: ACAD
Файл адаптации загружен успешно. Группа адаптации: CUSTOM
Выполняется регенерация модели.
Неизвестная команда "UNDEFINE". Для вызова справки нажмите F1.
Неизвестная команда "LINE". Для вызова справки нажмите F1.
Неизвестная команда "UNDEFINE". Для вызова справки нажмите F1.
Неизвестная команда "CIRCLE". Для вызова справки нажмите F1.
Неизвестная команда "UNDEFINE". Для вызова справки нажмите F1.
Неизвестная команда "MOVE". Для вызова справки нажмите F1.
Утилиты меню AutoCAD загружены."

и вылетает текстовое сообщение на тарабарщине.После этого текст для редактирования открывается в блокноте.Раньше такого не возникало...
AutoCad 11, win 7.
http://img861.imageshack.us/i/88630190.jpg/

Какой можно посоветовать учебник по автокаду для новичков (но с опытом работы в Компас)? Желательно в эл. виде.