[Red Nova]

Со школы не ладится у меня с программированием. Все предметы щелкал, а на экзамене по информатике (Visual foxpro) программку типа суммирования столбцов списал у соседа (это уже в университете).
Не смотря на эте намерен научится писать программы для Автокада на лиспе, скачал книгу Хювенена, несколько примеров создания программ, но после получасового “смотрения” таких книг мое мышление явно притормаживает.
Решил пойти другим путем.
Нашел самый короткий лисп из моей коллекции, и прошу программистов с этого форума пошагово объяснить какой символ что означает. Надеюсь на вашу помощь.

Код:

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

(defun c:make-blocks-explodeable (/ adoc)
  (vl-load-com)
  (vla-startundomark
    (setq adoc (vla-get-activedocument (vlax-get-acad-object)))
    ) ;_ end of vla-startundomark
  (vlax-for blk_def (vla-get-blocks adoc)
    (if (and (equal (vla-get-isxref blk_def) :vlax-false)
             (equal (vla-get-islayout blk_def) :vlax-false)
             ) ;_ end of and
      (vl-catch-all-apply '(lambda () (vla-put-explodable blk_def :vlax-true)))
      ) ;_ end of if
    ) ;_ end of vlax-for
  (vla-endundomark adoc)
  (princ)
  ) ;_ end of defun

_____________________________________________________________________________________________________________

Прошло много лет и топик теперь представляет из себя площадку для обучения азов программирования для многих начинающих.
Так что начинающие лиспогрызы приветствуются .

[Ubivec81]

Честно Говоря не совсем понятно. "Список команды" - как то в голове не укладывается! Тогда подскажите а вставка на чертеж текста значения какой то переменной тоже будет таким методом? Если да то как?

[alex8888]

Для вставки текста значения нужно будет само значение перевести в строку, смотри команды itoa, rtos
Типа так:
(command "_text" точка_вставки_текста "высота_текста" "угол_поворота_текста" (rtos text))
где вместо слов в кавычках подставляешь нужные величины - "100" например для высоты текста, "0" - 0 градусов - угол поворота текста, точка вставки может быть получена так: (getpoint "Укажите точку вставки текста")

[Ubivec81]

(command "_.dtext" (list (+ (* (car (car r)) 10) 1.25) -85) 2.5 90 (rtos x 2 0))
не работает. Она просит вводить данные вручную хотя отдельно (rtos x 2 0) выдает правельно. есть ощущение что все это далжно как то делаться через entget и entlast.

[alex8888]

Возьми просто команду _text
Она сработает

Вместо (car (car r)) можно (caar r) использовать - эффект тот же

[Ubivec81]

Да заработала. А в чем разница между dtext и text? вроде все точно так же рисуется...

[alex8888]

По dtext смотри тут:
http://www.itstan.ru/autocad/sozdani...nde-dtext.html
Как я понял dtext -динамический текст, который может создавать многострочные тексты, но не как mtext. А простой text - он и в Африке текст. Просто примитив типа текст.

[mix_75]

А мне тоже помогите, плиз.

[Лиспер]

В чем помочь-то?

[mix_75]

Сообщение от mix_75 Здравствуйте! Я профан в ЛИСПЕ. У меня такая проблема: имеются два блока, в виде квадратиков с торчащими навстречу друг другу пририсованными каждому квадратику отрезками. Я рисую линию, либо полилинию от одного конца отрезка первого квадрата к концу отрезка второго. Далее, двигаю один из блоков в вертикальном направлении, причем выделяя его мышкой. Линия должна тянуться вслед блоку. Это для начала. Более сложная задача - линия должна тянуться в режиме "ortho", и "ломаться" с радиусами сама. Причем, изначально вертикальные координаты концов отрезков могут не совпадать. Просьба: подскажите, пожалуйста, набор и последовательность функций, которыми мне гипотетически надо владеть для этой задачи. Код, пожалуйста, не пишите.

вот в этом. Пост #1496

[Лиспер]

На лиспе замучаешься делать. Бери в руки ElectiCS, или AutoCAD Electrical, или Visio - и вперед. В "чистом" AutoCAD подобное реализовать ИМХО будет весьма трудно.
А так - смотри объектные реакторы, расширенные данные или словари, командные реакторы и т.п.

[Ubivec81]

А вот еще вопрос с которым никак не могу разобраться!

Код:

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

 

(initget (+ 2 4))
              (setq X (getreal"\nПикет<Пустой ввод конец ввода>-"))
          
          (if (and (/= x nil) (= (car (member x piket)) nil)) (setq piket (cons x piket))
                   ;Если X не равен nil и его значения нет в списке piket то добавить значение X в список PIKET
          );_End IF
          (if (= (car (member x piket)) nil) (***); Если значение X есть в списке PIKET то нужно (***) повторить ввод занова
           )

А вот как это реализовать никак не пойму!!! Прошу помочь!

[TararykovDG]

Код:

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

 
(while (setq X (getreal"\nПикет<Пустой ввод конец ввода>-"))
    (if (not (member x piket))
      (setq piket (cons x piket))
      (princ "Этот пикет уже задан. Повторите ввод!!!")
      )
    )

[Do$]

TararykovDG, INITGET потерял

Код:

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

 (while (and (setq X (progn (initget 6 "Выход _Exit")
               (getreal "\nПикет[Выход]:")
            ) ;_ end of progn
        ) ;_ end of setq
        (/= X "Exit")
       ) ;_ end of and
  (if (not (member x piket))
    (setq piket (cons x piket))
    (princ "Этот пикет уже задан. Повторите ввод!!!")
  ) ;_ end of if
) ;_ end of while

[Ubivec81]

Код:

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

 (while (/= x nil)
	          (setq X (getreal"\nПикет<Пустой ввод: окончание>-"))
		  
                 (while (/= (member x piket) nil)                                 ;Контроль
		            (princ "Этот пикет уже задан. Повторите ввод!!!")     ;ввода
		            (setq X (getreal"\nПикет<Пустой ввод: окончание>-"))  ;
		                                                                 ;
		 );Конец WHILE                                                    ;
		 (if (and (/= x nil) (= (member x piket) nil))                    ;дублирующих
		     (setq piket (cons x piket))                                  ;пикетов
		  );конец IF

Вот что у меня получилось на основе ваших подсказок. ОГРОМНОЕ спасибо!

[Do$]

Жуть

[Ubivec81]

Почему жуть? может что подскажите?

[TararykovDG]

Сообщение от Do$ TararykovDG, INITGET потерял

Do$, спасибо за верное замечание

Сообщение от Ubivec81 Почему жуть? может что подскажите?

Ubivec81, просто раpбери и стравни свой код и код Do$. Задача-то элементарная, я понимаю, что Ты наверное еще не особо усвоил лисп (впрочем как и я), но все-таки посмотри чем оличается Твой вариант решения от других (начни хотябы с того что у Тебя два цикла while, а у других он один + не нужные проверки на равенсто nil и т. д. и т. п.)

[gomer]

Сообщение от TararykovDG спасибо за верное замечание

Неверное замечание! Do$, вот если б вы добавили единичку к инитгету... тогда было б верное...

[TararykovDG]

Сообщение от gomer если б вы добавили единичку к инитгету...

gomer я не понял, зачем единица в initget, наоборот нужно оставить возможность пустого ввода, по нему и проиходит выход иначе цикл будет быконечным.

[gomer]

Сообщение от TararykovDG иначе цикл будет быконечным

вот тогда и нужно выводить выход в опции как у Do$, но это моветон в программировании интерфейсов... По хорошему... сначала (при выборе первого пикета) нужно давать юзеру возможность <Выход>а, при выборе последующих пикетов дать возможность <Завершить> выбор
как-то так:

Код:

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

 (defun GetPiketList ( / piket piket_list)
  (initget (+ 2 6))
  (if (setq piket (getreal "\nУкажите пикет <Выход>: "))
	(progn
	  (setq piket_list (cons piket '()))
	  (while (setq piket (progn (initget (+ 2 6))
							(getreal "\nУкажите пикет <Завершить>: ")))
		(if (member piket piket_list)
		  (princ "\nПикет уже задан!")
		  (setq piket_list (cons piket piket_list)))))
	(princ "\nНе выбрано ни одного пикета!"))
  piket_list)