[mmax]

Гопода, я начал этим заниматься совсем недавно, буквально в этом месяце. И у меня уже есть грандиозные планы например: чтобы автокад рисовал какие нибудь стандартные детали сам (болты, гайки шурупы итд)

И соответственно у меня начали появляться вопросы на которые г-н Полещук НН в своих произведениях не смог ответить в полном объеме, значит мне понадобится чья нибудь еще помощь.

У меня уже были вопросы которые я задал здесь и получил исчерпывающие ответы. Но если я на кждый вопрос буду создавать отдельный топик, то количество топиков будет = кол-ву вопросов, а вопросов миллион -- администраторы и модераторы данного ресурса наверное понимают о чем я. Да и такое кол-во ссылок не влезет мой..........

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

Всем заранее благодарен.

[mmax]

Сообщение от vk Много кода... Ниасилил...

Освистали

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

А освистали зря -- многа кода это потому, что она работает без глюков(у меня). Я не стал заниматься математикой чтобы высчитать положения рамок и штампов, прсто я решил двигать ПСК и все рисования рести от левого нижнего угла и возвращать ее на место в конце программы, тоже самое и с привязками(здесь сам Полещук подсказал)

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


Например очень полезная вещь на мой взгляд

Код:

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

(vl-cmdf "_layer или _style или _hatch итд" "")

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

[mmax]

Сообщение от forMA Учиться прикладному программированию, занятие конечно полезное и нужное. Но вот относительно рамок и штампов даже не знаю как сказать, что бы не разозлить почтенную публику. Короче, в результате многолетнего использования всяческих программ, блоков, шаблонов в AutoCAD-е и в других CAD-ах осталось только две "синтетические рамки": горизонтальная и вертикальная. Тяну Stretch- ем. И горя не знаю. . А с появлением ACAD-2006 с экранным редактированием текста я вообще на все приблуды по оформлению рамок и штампов "забил". Типа, есть дела и поважнее. Может быть я глубоко не прав и нахожусь в крайней степени заблуждения, но от суровой правды жизни никуда не денешься. Так оно есть на сегодняшний день. Есть предложение потренироваться на ....фланце в 2d и 3d. И я бы поучился и программа, уверен, получилась бы востребованная и как бы типовая. Как предложение? Что скажете?

forMA, это мое первое произведение
Например в первом классе школы учат таблицу умножения.
Здесь примерно тоже самое.
И эту хигню я продам какому нибудь студенту с кафедры САПР там им такие задания на дом дают.

[vk]

Сообщение от favorite Скажите а в чем отличие vl-cmdf от command/ Изучаю Lisp по пособиям в инете поэтому не все операторы есть. vl-cmdf вообще еще ниразу не видел.

В первом приближении это практически одно и то же.

Маленький секрет: в Лиспе нет ни одного оператора. Есть только функции. Кстати, все они достаточно подробно описаны в хелпе. Даже с примерами.

Странно, у меня фАйл в PDF, там также как у него написано и не получается нифига.

Что написано? Как у кого написано? что не получается?

Скажите а как добавить ELSe?

Третий аргумент функции (if)

[vk]

Сообщение от mmax Сообщение от vk Много кода... Ниасилил... Освистали Ну да ладно, когдато я в автокаде и элипса не мог начертить. А освистали зря -- многа кода это потому, что она работает без глюков(у меня).

Не хотел обижать. Извини.

[favorite]

Код:

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

(Setq DLSVAI (getint "Çàäàéòå äëèíó ñâàè Ì 6Ì 8Ì 10Ì:"))
 (if (and
       (= DLSAVAI 6 )
       (= DLSAVAI 8 )
       (= DLSAVAI 10)
     )
(progn (Setq DLSVAI dLSVAI))
       (Setq DLSVAI (getint "Çàäàéòå äëèíó ñâàè Ì 6Ì 8Ì 10Ì:"))
   (terpri)
 )

Посмотрите почему ошибку выдает.

Здесь идет проверка длины сваи на соответствие , если такой длины нет, то должен производится запрос на ввод заново.

[vk]

Тэээксь...
Запускаем, смотрим что пишет

_$ ; error: too many arguments: (IF ................

Потому форматируем код в удобочитаемый вид

Код:

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

(if (and
      (= DLSAVAI 6)
      (= DLSAVAI 8)
      (= DLSAVAI 10)
    ) ;_  and
  (progn
    (setq DLSVAI dLSVAI)
  ) ;_  progn
  (setq DLSVAI (getint "Введите длину:"))
  (terpri)
) ;_  if

....и обнаруживаем, что в функцию if передали не три, а четыре аргумента. Один лишний.

[vk]

Вдогонку:
Запутались в алгоритме....
так проще

Код:

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

(if (member DLSAVAI '(6 8 10))
  ..............

[forMA]

для mmax
-----------------

И эту хигню я продам какому нибудь студенту с кафедры САПР там им такие задания на дом дают.

Н-да...А, я дурак распинался. :cry: Опять облом...
Ну что же. Желаю успеха в коммерции...

[mmax]

Сообщение от forMA для mmax ----------------- И эту хигню я продам какому нибудь студенту с кафедры САПР там им такие задания на дом дают. Н-да...А, я дурак распинался. :cry: Опять облом... Ну что же. Желаю успеха в коммерции...

forMA, прошу не обижаться. Хигней я назвал свое первое произведение исскуств -- программу рисования рамки и штампа. Не знаю насколько она будет востребована среди студентов кафедры САПР, но проект мой некоммерческий. Создавая этот "шедевр" я познал многие вещи -- GP отдыхает, но и советы vk не пропадут даром.

А вот насчет фланцев это ты верно подметил. Меня просто убивает рисовать эти чертовы круги в кругах, а по краям еще маленькие кружочки, а если это еще фланец муфты вала то еще + шпоночный паз, а еще бывают лючки разной формы, прародителем которых является все тот же круглый фланец, вобщем полная ....... учитывая еще то, что черчение я с детства ненавижу.
Так что не думай что проблема фланцев интересна только тебе одному.

Создать программу рисования фланца, вид с торца, я хочу уже давно. идея родилась еще раньше чем я обзавелся необходимыми бумажными справочными пособиями по ЛИСПУ.
Алгоритм этой программы я пока еще ношу в голове тк программировать еще не умею.
Жди, скоро выйдет в свет и эта программа, но сначала я займусь болтами.

[pyatifan]

>mmax и forMA
хочу вас поддержать в этих начинаниях, в смысле параметризации, и в частности 3-х мерной на lisp
Я сам студент.
Вот курсовой:
http://dwg.ru/forum/attach_dwg/1139695170.dwg
(расширение заменить на zip); выкладывал сдесь уже как-то раз, в теме про дин. блоки (которые кстати меня и разочеровали в конце концов). Фычертил ферму в 3D. Есть мысли параметризировать, (хотя разбиение на виды в акаде некудышное).
С удовольчтвием посмотрю на Ваши заморочки. И если их окажется мало, то брошу Inventor и сяду за этого коня Vlisp.

[forMA]

для pyatifan
--------------------

то брошу Inventor

Может не следует делать такие резкие движения. Одно другому не помешает.

[favorite]

Помогите мне сделать модуль проверки длины сваи.
Программа должна , если длины нет, делать запрос на ввод длины сваи заново, если есть выполняться дальше.У меня почему-то она из
цикла не выходет, если я после не правильной длины задаю правильную.

Код:

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

 (While (and
      (/= DLSAVAI 6)
      (/= DLSAVAI 8)
      (/= DLSAVAI 10)
       )
(progn  (Setq DLSVAI (getint "Çàäàéòå äëèíó ñâàè Ì 6Ì 8Ì 10Ì:")))
)

[vk]

> favorite

Код:

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

(while (not (member dlsavai '(6 8 10)))
  (initget 7)
  (setq dlsavai (getint "\nВыбрать длину [6/8/10] : "))
)


(princ "\nВы выбрали длину ")
(princ dlsavai)
(princ)

PS на всякий случай, проверяйте по буквам имена переменных

(/= DLSAVAI 10) ) (progn (Setq DLSVAI

[Profan]

У меня какая-то абракадабра отображается, только кажется мне, что DLSAVAI и DLSVAI - разные переменные.

[vk]

> Profan

Именно так, не успел отослать )

[favorite]

Спасибо большое , а то запарился прям не мог сделать.

[Profan]

Для VK
Я вот видел, когда посылал свое сообщение, что вы не успел, однако, когда посмотрел тему еще раз, то увидел, что вы каким-то образом успел.

[Profan]

А, увидел, у меня появились две кнопочки: "Правка" и "Крестик".

[vk]

Сообщение от Profan что вы каким-то образом успел.

Просто мы одновремено делали... Я правил свое сообщение, а Вы отсылали свое

[Profan]

Наверное. У меня до этого не было кнопки "Правка", вот я и удивился.