| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Тема вопросы по Autolisp

Тема вопросы по Autolisp

Ответ
Поиск в этой теме
Непрочитано 18.02.2006, 11:25 #1
Тема вопросы по Autolisp
favorite
 
инженер
 
Москва
Регистрация: 05.12.2005
Сообщений: 425

НАчал изучать lisp.
Пытаюсь написать программу для расчета и расстановки свай.
Но возникла проблема, помогите решить.
Не удаестся нарисовать кружки в местах где должный быть сваи.Хотя координаты свай вычислябтся верно.

(defun C:Svai (/ PT1 PT2 TX1 TX2 TY1 TY2 dist1 dist2 dist NAGRSV KOLVo
SHAG TX3 TY3 PT3)
(graphscr)
(setvar "cmdecho" 0)

(setq PT1 (getpoint "ââåäèòå òî÷êó 1:"))
(terpri)
(setq PT2 (getpoint "Ââåäèòå òî÷êó 2:"))
(terpri)
(setq TX1 (car PT1))
(setq TX2 (car PT2))
(setq TY1 (cadr PT1))
(setq TY2 (cadr PT2))
(setq dist1 (- TX1 TX2))
(setq dist2 (- TY1 TY2))
(setq dist(sqrt (+ (* dist1 dist1) (* dist2 dist2))))
(setq dist (/ dist 1000))
(princ dist)
(terpri)
(Setq NAGR (getint "Çàäàéòå íàãðóçêó íà ðîñòâåðê Ò/ïì :"))
(terpri)
(Setq NAGR (* (/ NAgr 1.4) dist))
(Setq NAGRSV (getint "Çàäàéòå íåñóøóþ íàãðóçêó ñâàè Ò:"))
(terpri)
(Setq KOLV (/ NAgr NaGRsv))
(setq KOLV (fix KOLV))
(setq SHAG (/ dist kolv))
(princ KOLV)
(princ "- Êîëè÷åñòâî ñâàé")


(Setq n 1)
(While (<= n KOLV)
(Setq A1 (* (* SHAG n) 1000))
(Setq A2 (- (* dist 1000) A1))
(Setq TX3 (/ (+ (* A2 TX1) (* A1 TX2)) (+ A1 A2)))
(Setq TY3 (/ (+ (* A2 TY1) (* A1 TY2)) (+ A1 A2)))
(princ n)
(princ "- Êîëè÷åñòâî èòåðàöèé")
(terpri)
(setq n (+ 1 n))
(command "Circle" (list TX3 TY3) 300) Вот эта команда рисует , почему о одну сваю вначале участка а остальные в конце.
(princ TX3)
(terpri)
(princ Ty3)
(terpri)
)


(setvar "cmdecho" 1)
(princ)
)
Просмотров: 6690
 
Непрочитано 18.02.2006, 12:11
#2
vk

сисадмин
 
Регистрация: 26.08.2003
Самара
Сообщений: 1,022
<phrase 1=


Навскидку.... Кажется, объектная привязка не отключена перед рисованием. Вот и рисует не там где надо а там где прицепится.
vk вне форума  
 
Непрочитано 12.04.2006, 23:41 Существует ли декомпилятор автолиспа
#3
PIA

Архитектор
 
Регистрация: 19.03.2006
Воронеж
Сообщений: 9


СУЩЕСТВУЕТ ЛИ ДЕКОМПИЛЯТОР АВТОЛИСПА
В свое время, для увеличения быстродействия довольно емких
LSP-программ, компилировал их. Компилированные программы разошлись по друзьям и коллегам, а некомпилированные оригиналы накрылись недавно вместе с винтом :cry: :cry: :cry: . Хотел бы внести изменения,
но как?
PIA вне форума  
 
Непрочитано 13.04.2006, 08:06
#4
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787


Нормальных декомпиляторов fas и vlx файлов я не видел, хотя искал их примерно полгода (если не больше). В лучшем случае на выходе (и то только для fas) получается нечто ассемлернообразное, в котором я даже разбираться не стал - уж больно запутанный код получается. Защищенные (protected) lsp-файлы декомпилировать (т.е. снять защиту) можно, то бишь получить читабельный код.
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
 
Непрочитано 13.04.2006, 09:39
1 | #5
VVA

Инженер LISP
 
Регистрация: 11.05.2005
Минск
Сообщений: 6,990
<phrase 1= Отправить сообщение для VVA с помощью Skype™


Декодировщики AutoCAD PROTECTED LISP file
http://www.cad.dp.ua/program4.php#part2
VVA вне форума  
 
Непрочитано 13.04.2006, 09:55
#6
Кулик Алексей aka kpblc
Moderator

LISP, C# (ACAD 200[9,12,13,14])
 
Регистрация: 25.08.2003
С.-Петербург
Сообщений: 39,787


> favorite : у тебя там кодировка слетела, исправь
__________________
Моя библиотека lisp-функций
---
Обращение ко мне - на "ты".
Все, что сказано - личное мнение.
Кулик Алексей aka kpblc вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Тема вопросы по Autolisp

Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск