[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

_____________________________________________________________________________________________________________

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

[TararykovDG]

alex8888, если правильно понял Твой вопрос, то

Код:

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

 
(mapcar '(lambda(x) (distof (vl-string-subst "." "," x) 2)) (list a b c d))

[alex8888]

TararykovDG,

спасибо, именно то что нужно.

А если немного по другому, можно ли обойтись вообще без составления списка? Например, имею переменные, а,б,в,г и тд, в которые записаны строковые значения из полей диалогового окна (на DCL). Хочу эти значения получить числами, при этом без разницы, введены ли они с разделителем - запятой или точкой и записать их в те же переменные.
Как я говорил, по отдельности труда не составляет использовать конструкцию типа (distof (vl-string-subst "." "," x) 2).
Как работать со списком теперь тоже понятно. Но из списка снова нужно восстанавливать эти переменные, той же nth.
Есть другие алгоритмы решения задачи?

[VVA]

alex8888,

Код:

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

(setq a "355,6" b "320.4" c "10,8" d "22.14")
(mapcar '(lambda(x)(set x (read (vl-string-subst "." "," (eval x)))))
        (list 'a 'b 'c 'd)
        )

Вместо read можно использовать distof

[alex8888]

VVA

Спасибо, так намного лучше.

[TararykovDG]

alex8888, все-таки я не до конца правильно понял что было нужно и хотя VVA уже написал как надо, вот еще вариант, хотя те же "..." только сбоку

Код:

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

 
(setq a "355,6" b "320.4" c "10,8" d "22.14") 
(foreach x (list 'a 'b 'c 'd) (set x (distof (vl-string-subst "." "," (eval x)) 2)))

[alex8888]

TararykovDG,

а это как раз то, что пытался изобразить я, но никак не врубался, куда же "ваучер засунуть" (гусары-молчать!).

Оказывается, просто надо было докопаться до (eval x), остальное, вроде бы как и правильно начинал делать.

Еще раз спасибо.

[TararykovDG]

Сообщение от alex8888 Оказывается, просто надо было докопаться до (eval x), остальное, вроде бы как и правильно начинал делать.

Еще обрати внимание, что используется set x..., а не setq x ... . Иначе работать не будет, так как функция setq x ... присваивает некоторое значение переменной x, а set x ... присваивает значение символу, на который ссылается x, в нашем случает x поочередно ссылается на переменные a b c d и как раз им уже и присваиваются значения полученные выражением (distof (vl-string-subst "." "," (eval x)) 2)

[Disney]

Сообщение от alex8888 Например, имею переменные, а,б,в,г и тд, в которые записаны строковые значения из полей диалогового окна (на DCL). Хочу эти значения получить числами, при этом без разницы, введены ли они с разделителем - запятой или точкой и записать их в те же переменные.

А вообще, является ли введёно значение числом тебе тоже без разницы?
Я бы проверял значение ещё при его вводе в диалоге

Код:

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

 (action_tile
  "key"
  (vl-prin1-to-string
    (quote
      (if (not (setq key_value
		      (distof
			(vl-string-subst
			  "."
			  ","
			  (vl-string-subst
			    ""
			    " "
			    $value
			  )
			)
		      )
	       )
	  )
	(progn
	  (alert "\n Не верное число"
	  )
	  (mode_tile "key" 2)
	)
      )
    )
  )
)

Причём, как видно из кода, я бы ещё поубирал пробелы, потому что (distof "5 000") -> 5. И использовать нужно именно distof, потому что (read\atof "100 , нет лучше 500") -> 100 , не смотря на то, что пользователь всё же хотел 500, а вот distof в такой ситуации вернёт nil, и попросит пользователя быть более корректным.

[Do$]

Offtop: В аргументе функции alert "\n" - лишнее.

[ShaggyDoc]

Я бы проверял значение ещё при его вводе в диалоге

Разумеется, проверку надо делать как можно раньше. Если логикой предусмотрен ввод именно числа, то диалог не должен отработать OK, пока не будет введено именно число. Причем, возможно - число в допустимом диапазоне.
Такую (или любую другую) проверку лучше прятать в библиотечную функцию, чтобы не писать в каждой конкретной программе. Эта функция должна блокировать какой-то при "tile" при неверных параметрах ввода. Сообщение об ошибке должно быть как можно более информативным. Можно и в alert вывести (что проще), а можно и в специальный элемент самого диалога.

Вот пример такой функции

Код:

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

 (defun ru-dcl-check-tile-param
       (tile_name txt nmin nmax old dec locked_tile / val tmp res key)
  ;;nmin     - минимум
  ;;nmax     - максимум
  ;;old      - старое значение
  ;;dec      - точность отображения
  ;;locked_tile  - ключ кнопки, которую заблокировать при ошибке
  (if (setq tmp (atof (get_tile tile_name)))
    (progn
      (setq res "")
      (mode_tile locked_tile 0)
      (if (> tmp nmax)
        (setq res (strcat txt
                          " "
                          (rtos tmp 2 dec)
                          " больше "
                          (rtos nmax 2 dec)
                  ) ;_ end of strcat
        ) ;_ end of setq
      ) ;_ end of if
      (if (< tmp nmin)
        (setq res (strcat txt
                          " "
                          (rtos tmp 2 dec)
                          " меньше  "
                          (rtos nmin 2 dec)
                  ) ;_ end of strcat
        ) ;_ end of setq
      ) ;_ end of if
      ;;(set_tile "error" res)
      (if (/= res "")
        (progn
          (mode_tile tile_name 3)
          (ru-msg-alert res)
          (setq tmp old)
        ) ;_ end of progn
      ) ;_ end of if
      (set_tile tile_name (rtos tmp 2 dec))
    ) ;_ end of progn
  ) ;_ end of if
  tmp
) ;_ end of defun

[alex8888]

До "суровой" проверки руки пока не дошли, по простому, считаем, что вводится число, хотя и уже без разницы в виде с "," или "." Если будет не число, то программа не сработает - покажет ошибку, хотя и неизвестно где конкретно.
А вот action_tile в виде библиотечной функции что то не получается создать - есть ли тут какие-то подводные камни и подвохи?
В качестве примера попытка создать модуль на основе кода 1408:

Код:

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

(action_tile "eb1"  (at_input_value ring_d1))
(action_tile "eb1"  (at_input_value ring_d1))

Код:

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

(defun at_input_value (key_value / )
  
      (vl-prin1-to-string
      (quote
        (if (not (setq key_value
                        (distof
                          (vl-string-subst
                            "."
                            ","
                            (vl-string-subst
                              ""
                              " "
                              $value
                            )           ;vl-string-subst
                          )             ;vl-string-subst
                        )               ;distof
                 )                      ;setq
            )                           ;not
          (progn
            (alert "\n Íå âåðíîå ÷èñëî"
            ) ;_ end of alert
            (mode_tile "key" 2)
          )                             ;progn else
        )                               ;if
      )                                 ;quote
    )                                   ;vl-prin1-to-string

)

Не работает, хотя в виде:

Код:

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

(action_tile
    "eb1"
    (vl-prin1-to-string
      (quote
        (if (not (setq ring_d1
                        (distof
                          (vl-string-subst
                            "."
                            ","
                            (vl-string-subst
                              ""
                              " "
                              $value
                            )           ;vl-string-subst
                          )             ;vl-string-subst
                        )               ;distof
                 )                      ;setq
            )                           ;not
          (progn
            (alert "\n Íå âåðíîå ÷èñëî"
            ) ;_ end of alert
            (mode_tile "key" 2)
          )                             ;progn else
        )                               ;if
      )                                 ;quote
    )                                   ;vl-prin1-to-string
  )

очень даже как.

[Frigate]

Прошу подсказать, как программно переопределить описание блока в файле? Чтобы при _.insert уже вставлялся обновленный блок.

Файл вставляю из библиотеки блоков функцией от VVA:

Код:

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

(lib:add-block-to-doc-from-lib "MIP_LIB_DYN" "MIP_WELL_DYN_P")

[Лиспер]

1. открыть описание блока в текущем файле и внести изменения
2. открыть описание блока в файле-библиотеке, внести изменения и сохранить.

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

P.S. Хотя, если использовать ToolPalettes, то там есть возможность повторного импорта указанного блока (с возможностью переопределения), насколько мне помнится.

[VVA]

"MIP_LIB_DYN" - имя dwg файла библиотеки
"MIP_WELL_DYN_P" - имя блока в библиотеке
Frigate, В этой ф-ции используется команда _-insert, отсюда нюансы:
1. В текущем чертеже не должно быть блока и именем, совпадающем с именем файла библиотеки. Если такой блок есть, нужно дать ему новое имя.
2. Если хочешь обновить сам блок, так же дай ему новое имя. Тогда после insert вставится обновленный блок

[Disney]

Сообщение от alex8888 Не работает

Читаем внимательно справку
action_tile
vl-prin1-to-string
quote

[alex8888]

Disney, перечитал справку, книгу Полещука по нескольку раз в указанных местах и так ничего не понял, на что ты советовал обратить внимание, извини.
По action_tile наверное, что выражение надо писать в кавычках вот так:

Код:

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

(action_tile "eb1"  "(at_input_value ring_d1)")

vl-prin1-to-string просто переводит аргумент в строку, у нас используя
quote для обработки выражения без вычисления.
Ну а теперь как связать все воедино? Получается, что в action_tile мы передаем Лисп-выражение в виде строки. Но почему нельзя передать вместо нее вызов функции с той же строкой внутри? Или надо как то по другому записать? Если не лень, можешь разжевать поподробнее ?

[Disney]

Сообщение от ShaggyDoc Такую (или любую другую) проверку лучше прятать в библиотечную функцию

Что-то у меня ни фига библиотечные не получаются, в лучшем случаи шаблонные, постоянно что-то да приходиться менять, и вводить 58 необязательных аргументов тоже не хочется.

Сообщение от alex8888 можешь разжевать поподробнее

Я честно наверно минут 30 пытался ответить не разжёвывая, так, намёками, чтоб сам разбирался, но ни фига не получилось.
Вот так будет работать, разбирайся:

Код:

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

 
(action_tile
  "eb1"
  "(setq ring_d1(at_input_value $key))"
)
		    ;
(defun at_input_value (key / temp)
  (if (not (setq temp
		  (distof
		    (vl-string-subst
		      "."
		      ","
		      (vl-string-subst
			""
			" "
			(get_tile key)
		      )
		    )
		  )
	   )
      )
    (progn
      (alert "Тут сообщение о не верном вводе")
      (mode_tile key 2)
    )
  )
  temp
)

[Лиспер]

Сообщение от Disney вводить 58 необязательных аргументов тоже не хочется.

А зачем 58? Не проще ли сделать один аргумент, но списком? http://autolisp.ru/2009/10/21/lisp-overloading/

[Disney]

Лиспер, да я в курсе, и тема недавно подобная была.
Конкретный пример, есть у меня в диалоге 4 edit_box, допустимые значения:

1. Цело, причём я не хочу чтобы "34 попугая" - считалось целым числом 34
2. Целое, но только положительное
3. Вещественное, при чём допускается префикс\суффикс
4. Вещественное, причём очень важно введено просто положительное или именно со знаком "+"

Чисто теоретически, конечно можно написать одну функцию, которая будет проверять все введённые значения на допустимость, но оно надо?

[gomer]

Сообщение от Disney о оно надо?

Надо!
зы п.3 почти противоречит п1