Версия для печати темы
Нажмите сюда для просмотра этой темы в обычном формате
Диалог специалистов АВОК _ Программы, расчеты _ AksPro
Автор: Melisa 2.1.2010, 17:13
Добрый день.
Подскажите, пожалуйста, возможно ли приложение AksPro (для построения аксонометрии) установить в AutoCaD 2009 и как это сделать?
Автор: AVgosha 2.1.2010, 21:54
Если коротко - то нет, нельзя.
Последняя версия, в которой это приложение работает - AutoCAD 2008.
Информацию по этому вопросу я нашел у очень авторитетного и уважаемого специалиста, который раньше появлялся на этом форуме под ником ShaggyDoc, старожилы его помнят.
Если коротко, то суть в разных форматах данных (формат данных для AutoCAD 2007 и AutoCAD 2008 совпадают, а для AutoCAD 2009 уже другой).
Работа под AutoCAD 2009 будет возможна, если автор AksPro перепишет её под данную версию.
Автор: Melisa 3.1.2010, 2:59
спасибо большое что ответили, так жаль что не работает... 
Автор: toxan 3.1.2010, 14:26
Все работает под 2009 ! не вводите людей в заблуждение, автокад 2007-2009 относится к версии R17, а начиная с 2010- R17,2
версия AKS 0,3,1 для 2007
http://www.ustation.ru/apps/akspro/index.html
Автор: Melisa 3.1.2010, 16:22
я пробовала загрузить эту версию для 2007, не получается =/
жму Сервис/Приложения/там где Автозагрузка еще раз Приложения/Добавить/выбираю нужный файл W_AksPro.arx - и ничего не добавляется. Автокад отвечает что не удается загрузить файл W_AksPro.arx.
Автор: MMM 3.1.2010, 17:10
Может файлы битые у вас? У меня на 2009 работает. Правда в атозагрузку пихать его не советую, акад вылетает при работе с ним. А так только для текущей работы, в отдельном окне автокада
Автор: Melisa 3.1.2010, 22:29
если не сложно, подскажите, пожалуйста, пошагово как сделать так как у вас, чтобы работать в отдельном окне для текущей работы и не пихать в автозагрузку?
Автор: MMM 4.1.2010, 0:16
Тут нет ничего сложного. Подготавливаете чертеж. который надо обработать AksPro. Затем нажимаете иконку автокада еще раз, что бы он открылся во 2 раз.Там открываете свой чертеж.
Далее команда "Сервис" - "Приложения". Кнопка "Загрузить".
Все AksPro именно в это окно автокада загружен. Быстренько команду Aks переводите чертеж в аксонометрию и тут либо сохраняете полученную аксонометрию, либо переносите ее методом копирования в окно автокада где нет AksPro, потому что именно в момент сохранения и возможен вылет автокада.
|
Автор: AVgosha 4.1.2010, 0:47
Я ставил AksPro на 2007, сейчас прекрасно работает на 2008, а вот на 2009 поставить так и не удалось.
Спасибо за информацию, буду пробовать еще раз....
МММ - спасибо за подсказку
Автор: Wizlock 4.1.2010, 9:51
Автозагрузка это конечно хорошо, но смысла в ней нет, сделайте кнопки акс и живите спокойно, когда нажимаете на них - подгрузка программы происходит автоматический, кстати у меня на 2009 тоже не грузится через автозагрузку, но это не мешает мне каждый день использовать это приложение.
Автор: Melisa 4.1.2010, 13:07
МММ, Вашим способом к сожалению у меня тоже не получается
все тот же ответ "Не удается загрузить файл W_AksPro.arx"
что же делать?...
Wizlock, а Вы как пользуетесь приложением?
PS: а нужно копировать файлы W_AksPro.* в директорию, где находится acad.exe ?
Автор: MMM 4.1.2010, 14:06
Ну тогда проблема сугубо в вашем компе, автокаде или в Akspro/
Нет не нужно!
Автор: toxan 5.1.2010, 3:45
жму Сервис/Приложения/там где Автозагрузка еще раз Приложения/Добавить/выбираю нужный файл W_AksPro.arx - и ничего не добавляется. Автокад отвечает что не удается загрузить файл W_AksPro.arx.
данный трабл наблюдается при некоторых настройках в aks.
у мя с автозагрузкой на 2009 работает без проблем.
сами файлы скопированы в директорию с установленным акадом.
стоят следующие настройки aks:
-выбирать объекты .
-не создавать новый чертеж
- окружность разбивается на сплайн состоящий из 4 сегментов.
иногда правда вылетает, но это при больших объемах редактируемого чертежа, нужно сохранять от греха перед редактированием ...
Автор: Melisa 5.1.2010, 14:00
для того чтобы поставить настройки, нужно загрузить приложение. А у меня оно не загружается. Мне сказали что это из-за моей Винды х64 =/ Так что видимо не судьба... Но все же, если кто знает как это исправить, буду очень рада.
Автор: MMM 5.1.2010, 17:05
Ха, с этого и надо было начинать. Вполне возможно из за 64 битного автокада и не работает.
В то время когда писалась прога таких еще не было.
Автор: Roma 5.1.2010, 22:13
под 2009 32 битный кад акс работает 100%
Автор: Alexander_Liseev 7.1.2010, 4:11
Мощно сказано. Поделитесь макросом на кнопку.
Сильно сомневаюсь, что для малоопытных пользователей ACADa Ваш способ окажется проще.
Автор: vades 7.1.2010, 15:35
Макросы на кнопки в папке с прогой
^C^C(ARXLOAD "W_AksPro.arx") AKSSET - окно настроек
^C^C(ARXLOAD "W_AksPro.arx") AKS - запустить отрисовку аксонометрии
А может у кого есть AksPro на 2010 AutoCAD
Автор: Wizlock 8.1.2010, 19:25
в хэлпе к программе минимум 3 варианта ее запуска, в том числе и макрос на кнопки, в чем "моСЧ" сказанного?
Автор: nedrok 13.1.2010, 10:54
Если так и не запустите посмотрите еще 2 Lisp приложения (в архиве).
Описание внутри каждого (откройте в блокноте).
P.S. Возможно авторы уже обновили свои программы, я не проверял.
Автор: Dabble 9.4.2010, 14:39
В поисках аналога автокада несколько дней назад попросил одних (GstarCAD) собрать akspro для меня. сегодня прислали ссылку http://forum.gstarcad.ru/viewtopic.php?f=15&t=49
Автор: Alexander_Liseev 28.4.2010, 16:33
Ну и чем эти архивы отличаются друг от друга?
А вообще спасибо огромное давно жду её. Где взял?
Автор: MishGUN 28.4.2010, 18:42
Да ничем не отличаются,просто два раза щелкнул))) взял на каком то форуме,уже не помню,месяц назад
Автор: infinity455 19.10.2011, 8:58
добрый день!
есть у кого-нибудь Акспро на Автокад 2011?
Автор: MMM 19.10.2011, 21:28
2 постами выше смотри!
Автор: Grual 22.11.2011, 10:09
Может немного не в тему будет, если требуется построить аксонометрию из 2 мерного плана (например сети на плане), можно сделать так:
1) берем сети в плане и поворачиваем их на 45 град по часовой стрелке
2) загоняем повернутые сети в блок (копируем и вставляем как блок)
3) в свойствах блока масштаб по "у" вместо 1 пишем 0.4141 (приэтом блок сжимается по y)
4) поворачиваем полученное против часовой стрелки на 22.5 град
Получается примерно как в акспро.
Автор: Ник 7.2.2012, 21:22
на 64х еще не перешли? ни одна из версий акспро у меня не встает...
Автор: MYXA22 2.3.2012, 14:22
работаю в 2011 автокаде, скачала акспро2010, выкидывает из автокада, выдает ошибку...что может быть?... пишет ФАТАЛЬНАЯ ОШИБКА: Unhandled c0000417h Exception at 7858ccb5h ... может, у кого такое было?
Автор: nedrok 14.3.2012, 8:50
1) берем сети в плане и поворачиваем их на 45 град по часовой стрелке
2) загоняем повернутые сети в блок (копируем и вставляем как блок)
3) в свойствах блока масштаб по "у" вместо 1 пишем 0.4141 (приэтом блок сжимается по y)
4) поворачиваем полученное против часовой стрелки на 22.5 град
Получается примерно как в акспро.
В самом начале или в самом конце нужно увеличить еще в 1,306569 раз, тогда будут совпадать размеры.
Автор: Evgenya 10.4.2012, 11:27
Уважаемые, может что посоветуете.... АСПРО искажает размеры если объекты не ортогональны как с этим бороться. Настойки акспро 45 y. кооэфициент искажения 1. файл прикладываю. Спасиб.
Автор: Яна Борщёва 11.3.2013, 15:20
Добрый день! У кого-нибудь есть акспро для 2012 автокада?
Автор: Anatoliy_Valerevich 11.3.2013, 17:01
http://forum.abok.ru/index.php?act=attach&type=post&id=38007
2010 акспро работает до 2012 автокада включительно
Автор: malakhov- 20.5.2013, 13:54
И у меня такая же ерунда с акспро2010. Что делать не знаю
Может кто подскажет как быть?
Автор: silent 20.5.2013, 16:00
У меня Акспро обычно выдает фатальную ошибку когда magicad'овскую систему забываю разбить перед тем как делать схему или когда в одном и том же файле несколько систем делаю.
Автор: Барабан 28.5.2013, 15:46
Коллеги! Такой вопрос. У меня 11-ый AutoCad и я не могу загрузить AksPro.
То есть я открываю Меню/Сервис ... и нет подменю Приложения. 
Как Быть в таком случае? На 2008 все работало Отлично
Автор: ii0yw1t7 9.9.2013, 16:28
Попробовал сделать макрос на кнопку. Получилось на 3 клика.
^C^C_select;\_rotate;_P;;\315;_copyclip;_P;;_pasteblock;\_addselected;_L;Y;0.4141;\22.5;_scale;_L;;@;1.306569;_explode;_L;
Автор: LeonidVibe 12.11.2013, 7:28
AksPro обновлена до версии 0.3.2, теперь для 2013 автокада
http://ustation.ru/apps/akspro/
Автор: -BuTeK- 18.4.2014, 12:38
У кого-нибудь вылетает автокад (у меня 2012 х64 русский) при повторной попытке.
Первый запуск - все отлично, повторяешь - фатальная ошибка.
Приходится перезапускаться каждый раз перед созданием и сохранять все открытые окна.
Кто-нибудь сталкивался с подобным?
Автор: Anatoliy_Valerevich 18.4.2014, 14:48
Первый запуск - все отлично, повторяешь - фатальная ошибка.
Приходится перезапускаться каждый раз перед созданием и сохранять все открытые окна.
Кто-нибудь сталкивался с подобным?
На автокаде 2012х64 акспро часто вылетал.
А вот новый акспро 0.3.2 на 2014х64 ни разу!
Автор: craig_dt 20.11.2014, 17:50
Добрый день! На 2015 автокад ещё не встречали АксПро? Не могу найти, по ходу, пока нету...
Автор: Жидкова Наталья 5.9.2015, 21:13
Есть версия для 64-х разрядной операционной системы, W_AksPro_x64, поставила, работает.
http://www.ustation.ru/apps/akspro/
Там для каждого автокада две версии, 32 и 64 -х разрядные.
Автор: Мария-инженер 5.4.2016, 17:33
Добрый день!
У кого-нибудь возникали проблемы с неимоверным весом файла после построения аксонометрии? Небольшой домик при весе чертежа 25Мб и больше. Как избежать этой проблемы? (Все магические действия по уменьшению файла были выполнены - результата не дали)
Автор: Vildar82 26.4.2016, 7:58
Сборка для новых версий сделана тут http://adn-cis.org/forum/index.php?topic=7060
Автор: дренаж 26.4.2016, 9:33
gakson.lsp
использую
надеюсь без вирусов
никому ничего никогда НЕрекомендую
Psevdo-Aksonometr gorizontal ver 3.3
All rights reserved including right of reproduction in whole or in part in ang form.
Перевод прямоугольного чертежа (плана) из плоскости "XY <90" в псевдоаксонометрическую
плоскость "XY <45" (сантехническая аксонометрия), при этом угол может быть задан
от 0 до 90 градусов считая от положительного направления оси Х против часовой стрелки.
ВНИМАНИЕ:
программа работает только для следующих типов объектов:
- линия "LINE" (правильная работа гарантируется)
- дуга "ARC"
- полилиния "LWPOLYLINE" без криволинейных сегментов
- круг "CIRCLE" (пересчет в эллипс)
- прямоугольник "RECTANGLE" (также, как и полилиния)
- многоугольник "POLYGON" (также, как и полилиния)
- текст "TEXT", "MTEXT" (перемещение без поворота)
ИСХОДНЫЕ ОБЪЕКТЫ НЕ СОХРАНЯЮТСЯ (апгрейдятся они :)
Планируется сделать пересчет для:
- фигура "SOLID"
- полоса "TRACE"
- кольцо "DONUT"
- блок "INSERT"
!!! ВСЕ ДРУГИЕ ОБЪЕКЫ БУДУТ ИГНОРИРОВАТЬСЯ !!!
ПРИМЕР:
Command: gakson
ПРОГРАММА ПЕРЕВОДА ПЛАНА В АКСОНОМЕТРИЧЕСКУЮ ПРОЕКЦИЮ.
Выберите объекты:
Select objects: Specify opposite corner: 13 found
Select objects:
Введите угол в градусах (от 0 до 90), <45>: 60
Укажите точку поворота :
0
(к этому моменту все указанные выше объекты уже перестроены в аксонометрию)
Command:
|;
(defun C:gakson ( / *error*)
(setq p_cmdecho (getvar "CMDECHO")
p_snapmode (getvar "SNAPMODE")
p_orthomode (getvar "ORTHOMODE")
p_blipmode (getvar "BLIPMODE")
p_osmode (getvar "OSMODE")
)
(defun *error* (msg); Переопределение функции ERROR
(princ "Программа прервана пользователем")
(setvar "SNAPMODE" p_snapmode)
(setvar "ORTHOMODE" p_orthomode)
(setvar "BLIPMODE" p_blipmode)
(setvar "OSMODE" p_osmode)
(setvar "CMDECHO" p_cmdecho)
; (setvar "ERRNO" 0)
(setq p_cmdecho nil p_snapmode nil p_orthomode nil p_osmode nil p_blipmode nil)
; (princ "\n END with ERROR")
(princ)
); defun(*error*)
(setvar "CMDECHO" 0)
(setvar "SNAPMODE" 0)
(setvar "ORTHOMODE" 0)
(setvar "BLIPMODE" 0)
(setvar "OSMODE" 1)
(gc)
(setq stangle nil stangle1 nil endangle nil endangle1 nil bit10 nil bit10new nil
bit11 nil bit11new nil bit50 nil bit50new nil bit51 nil bit51new nil object_new nil)
(setq n 0 nabr nil number 0 name nil processed_obj 0)
(princ "\n ПРОГРАММА ПЕРЕВОДА ПЛАНА В АКСОНОМЕТРИЧЕСКУЮ ПРОЕКЦИЮ.")
(princ "\n Выберите объекты: ")
(setq nabr (ssget))
(setq number (sslength nabr))
(initget 6)
(setq ugol (getreal "\n Введите угол в градусах (от 0 до 90), <45>: "))
(if (null ugol) (setq ugol 45.0))
(setq ugolrad (* pi (/ ugol 180.0)))
(setq point (getpoint "\n Укажите точку поворота : ")
x0 (car point)
y0 (cadr point)
)
(princ "\n")
(setvar "OSMODE" 0)
(while (> number n)
(setq name (ssname nabr n))
(setq object (entget name))
(setq klass (cdr (assoc 0 object)))
(if (= (cdr (assoc 70 (tblsearch "LAYER" (cdr (assoc 8 object))))) 4); бит 4 - слой заблокирован (проверять для каждой версии AutoCAD'a)
(vl-cmdf "_.-layer" "_U" (cdr (assoc 8 object)) "")
)
; разделение по типам объектов
(cond
;;;----- Обработка примитивов типа "LINE", пересчет координат вершин
((eq klass "LINE")
(setq bit10 (assoc 10 object)
bit11 (assoc 11 object)
x1 (cadr bit10)
y1 (caddr bit10)
z1 (cadddr bit10)
x2 (cadr bit11)
y2 (caddr bit11)
z2 (cadddr bit11)
x1n (+ (* (- y1 y0) (cos ugolrad)) x1)
y1n (+ (* (- y1 y0) (sin ugolrad)) y0)
x2n (+ (* (- y2 y0) (cos ugolrad)) x2)
y2n (+ (* (- y2 y0) (sin ugolrad)) y0)
bit10new (list 10 x1n y1n z1)
bit11new (list 11 x2n y2n z2)
object_new (subst bit10new bit10 object)
object_new (subst bit11new bit11 object_new)
processed_obj (1+ processed_obj)
)
(entmod object_new)
(entupd name)
); equal klass "LINE"
;;;----- Обработка примитивов типа "LWPOLYLINE", пересчет координат вершин
((eq klass "LWPOLYLINE")
(foreach item object; выбор из описания полилинии координат вершин
(if (= (car item) 10)
(setq coords (cons item coords))
)
)
(setq vertex (length coords) num_ver 0 object_new object)
(while (> vertex num_ver)
(setq bit10 (nth num_ver coords)
x1 (cadr bit10)
y1 (caddr bit10)
x1n (+ (* (- y1 y0) (cos ugolrad)) x1)
y1n (+ (* (- y1 y0) (sin ugolrad)) y0)
bit10new (list 10 x1n y1n)
object_new (subst bit10new bit10 object_new)
)
(setq num_ver (1+ num_ver))
); while(vertex>num_ver)
(entmod object_new)
(entupd name)
(setq processed_obj (1+ processed_obj) coords nil vertex nil)
); equal klass "LWPOLYLINE"
;;;----- Обработка примитивов типа "CIRCLE", пересчет координат центра
;;; для преобразования окружности в эллипс используется коэффициенты (эмпирические):
;;; Rmin/Rmax=-0,0000000000943901414007017*ugol^4+0,000000567997308646077*ugol^3-0,0000362793934898559*ugol^2+0,00997592958744082*ugol-0,0128148277900414
;;; Rmax/Rокр=0,000000000310680082815694*ugol^4+0,00000000353048189760587*ugol^3-0,0000539963966370921*ugol^2+0,00000236411058931183*ugol+1,41420291881995
((eq klass "CIRCLE")
(setq bit8 (assoc 8 object); слой объекта
bit10 (assoc 10 object); координаты центра окружности
bit40 (assoc 40 object); радиус окружности
bit67 (assoc 67 object); пространство модель/лист
bit410 (assoc 410 object); имя пространства
x1 (cadr bit10)
y1 (caddr bit10)
z1 (cadddr bit10)
radius (cdr bit40)
x1n (+ (* (- y1 y0) (cos ugolrad)) x1)
y1n (+ (* (- y1 y0) (sin ugolrad)) y0)
)
(if (= ugol 45.0)
(setq radiuscoeff (/ 54.11961001 130.65629649)
Rmaxcoeff (/ 130.65629649 100.0)
)
(setq radiuscoeff (- (+ (* 0.000000567997308646077 (expt ugol 3.0)) (* 0.00997592958744082 ugol)) (* 0.0000000000943901414007017 (expt ugol 4.0)) (* 0.0000362793934898559 (expt ugol 2.0)) 0.0128148277900414)
Rmaxcoeff (- (+ (* 0.000000000310680082815694 (expt ugol 4.0)) (* 0.00000000353048189760587 (expt ugol 3.0)) (* 0.00000236411058931183 ugol) 1.41420291881995) (* 0.0000539963966370921 (expt ugol 2.0)))
)
)
(setq Xbit11 (* Rmaxcoeff radius (cos (* pi (/ ugol 360.0))))
Ybit11 (* Rmaxcoeff radius (sin (* pi (/ ugol 360.0))))
bit10new (list 10 x1n y1n z1)
bit11new (list 11 Xbit11 Ybit11 z1)
bit40new (cons 40 radiuscoeff)
bit42new (cons 42 (* pi 2.0))
processed_obj (1+ processed_obj)
)
(entmakex (list '(0 . "ELLIPSE") '(100 . "AcDbEntity") bit67 bit410 bit8
'(100 . "AcDbEllipse") bit10new bit11new '(210 0.0 0.0 1.0)
bit40new '(41 . 0.0) bit42new))
(entdel name)
); equal klass "CIRCLE"
;;;----- Обработка примитивов типа "ARC", пересчет координат центра и вершин
((eq klass "ARC")
(setq bit8 (assoc 8 object); слой объекта
bit10 (assoc 10 object); координаты центра дуги
bit40 (assoc 40 object); радиус дуги
bit50 (assoc 50 object); начальный угол (радианы)
bit51 (assoc 51 object); конечный угол (радианы)
bit67 (assoc 67 object); пространство модель/лист
bit410 (assoc 410 object); имя пространства
x1 (cadr bit10)
y1 (caddr bit10)
z1 (cadddr bit10)
radius (cdr bit40)
stangle (cdr bit50)
endangle (cdr bit51)
x1n (+ (* (- y1 y0) (cos ugolrad)) x1)
y1n (+ (* (- y1 y0) (sin ugolrad)) y0)
chetv (* pi (/ 90.0 180.0))
eighth (* pi (/ ugol 360.0))
)
(if (and (>= stangle 0.0) (< stangle (* pi 0.5)))
(setq stangle1 (- (- stangle (* pi (/ ugol 360.0))) (* (- chetv ugolrad) (/ (- stangle (* pi (/ ugol 360.0))) chetv))))); if для I четверти
(if (and (>= endangle 0.0) (<= endangle (* pi 0.5)))
(setq endangle1 (- (- endangle (* pi (/ ugol 360.0))) (* (- chetv ugolrad) (/ (- endangle (* pi (/ ugol 360.0))) chetv))))); if для I четверти
(if (and (>= stangle (* pi 0.5)) (< stangle pi))
(setq stangle1 (- stangle (* (- chetv ugolrad) (- 2.0 (/ stangle chetv)))))); if для II четверти
(if (and (>= endangle (* pi 0.5)) (< endangle pi))
(setq endangle1 (- endangle (* (- chetv ugolrad) (- 2.0 (/ endangle chetv)))))); if для II четверти
(if (and (>= stangle pi) (< stangle (* pi 1.5)))
(setq stangle1 (- stangle (* (- chetv ugolrad) (- (/ stangle chetv) 2.0))))); if для III четверти
(if (and (>= endangle pi) (< endangle (* pi 1.5)))
(setq endangle1 (- endangle (* (- chetv ugolrad) (- (/ endangle chetv) 2.0))))); if для III четверти
(if (and (>= stangle (* pi 1.5)) (< stangle (* pi 2.0)))
(setq stangle1 (- stangle (* (- chetv ugolrad) (- 4.0 (/ stangle chetv)))))); if для IV четверти
(if (and (>= endangle (* pi 1.5)) (< endangle (* pi 2.0)))
(setq endangle1 (- endangle (* (- chetv ugolrad) (- 4.0 (/ endangle chetv)))))); if для IV четверти
(if (= ugol 45.0)
(setq radiuscoeff (/ 54.11961001 130.65629649)
Rmaxcoeff (/ 130.65629649 100.0)
)
(setq radiuscoeff (- (+ (* 0.000000567997308646077 (expt ugol 3.0)) (* 0.00997592958744082 ugol)) (* 0.0000000000943901414007017 (expt ugol 4.0)) (* 0.0000362793934898559 (expt ugol 2.0)) 0.0128148277900414)
Rmaxcoeff (- (+ (* 0.000000000310680082815694 (expt ugol 4.0)) (* 0.00000000353048189760587 (expt ugol 3.0)) (* 0.00000236411058931183 ugol) 1.41420291881995) (* 0.0000539963966370921 (expt ugol 2.0)))
)
)
(setq Xbit11 (* Rmaxcoeff radius (cos (* pi (/ ugol 360.0))))
Ybit11 (* Rmaxcoeff radius (sin (* pi (/ ugol 360.0))))
bit10new (list 10 x1n y1n z1)
bit11new (list 11 Xbit11 Ybit11 z1)
bit40new (cons 40 radiuscoeff)
bit41new (cons 41 stangle1)
bit42new (cons 42 endangle1)
processed_obj (1+ processed_obj)
)
(entmakex (list '(0 . "ELLIPSE") '(100 . "AcDbEntity") bit67 bit410 bit8
'(100 . "AcDbEllipse") bit10new bit11new '(210 0.0 0.0 1.0)
bit40new bit41new bit42new))
(entdel name)
); equal klass "ARC"
;;;----- Обработка примитивов типа "*TEXT" и "POINT", пересчет координат точки вставки
((member klass '("TEXT" "MTEXT" "POINT"))
(setq bit10 (assoc 10 object)
x1 (cadr bit10)
y1 (caddr bit10)
z1 (cadddr bit10)
x1n (+ (* (- y1 y0) (cos ugolrad)) x1)
y1n (+ (* (- y1 y0) (sin ugolrad)) y0)
bit10new (list 10 x1n y1n z1)
object_new (subst bit10new bit10 object)
processed_obj (1+ processed_obj)
)
(entmod object_new)
(entupd name)
); member klass "*TEXT" "POINT"
); cond
(setq n (+ n 1))
);while(main)
(if (/= n processed_obj)
(princ (strcat "\n Не удалось обработать объектов: " (rtos (- n processed_obj) 2 0) ".\n"))
)
(setvar "SNAPMODE" p_snapmode)
(setvar "ORTHOMODE" p_orthomode)
(setvar "BLIPMODE" p_blipmode)
(setvar "OSMODE" p_osmode)
(setvar "CMDECHO" p_cmdecho)
; (setvar "ERRNO" 0)
); defun
Автор: Sasha! 17.10.2016, 13:41
Автор: vades 12.5.2023, 18:12
Добрый всем день!
Может кто выложит здесь AksPro для AutoCAD 2019-2022, если есть для таковых. Спасибо заранее!
Автор: Хитрый Лис 13.5.2023, 10:41
Может кто выложит здесь AksPro для AutoCAD 2019-2022, если есть для таковых. Спасибо заранее!
Вместо AksPro есть другой лисп здесь https://autocad-specialist.ru/video-uroki-autocad/aksonometria-lisp.html
Автор: vades 13.5.2023, 11:30
А с этого сайта никто не может выложить здесь?
https://adn-cis.org/forum/index.php?topic=7060
Автор: Prasolov 6.7.2023, 17:29
Всем, кто еще пользуется Aks-Pro. Прикладываю все версии, которые у меня есть. Откуда взял, не помню, наверное у Ривилиса.
AKSPRO2018.zip ( 156,72 килобайт )
: 16
AKSPRO2019.zip ( 154,63 килобайт )
: 28
AKSPRO2021.zip ( 108,96 килобайт )
: 33Автор: Giedi Prime 5.3.2024, 18:08
Спасибо за версию 21! В 24-м автокаде прошлые не запускались.
Русская версия Invision Power Board (http://nulled.ws)
© Invision Power Services (http://nulled.ws)