Группы пользователей Autodesk


Обновление функции gp:Calculate-and-Draw-Tiles - часть 2


ObjectCreationStyle

/ PathLength TileSpace

TileRadius SpaceFilled

SpaceToFile RowSpacing

offsetFromCenter rowStartPoint

pathWidth pathAngle

TileList) ; remove ObjectCreationStyle from locals

Если переменная объявлена одновременно и параметром (до косой черты), и локальной переменной (после косой черты), VLISP сообщит об этом. Например, если описать ObjectCreationStyle одновременно и как параметр, и как переменную, а затем запустить средство синтаксической проверки VLISP для функции gp:Calculate-and-Draw-Tiles, в окне «Сообщения сборки» появится следующее сообщение:

; *** ВНИМАНИЕ: один и тот же символ найден до и после / в списке аргументов: OBJECTCREATIONSTYLE

  • Измените первое выражение setq в gp:Calculate-and-Draw-Tiles так, чтобы оно выглядело следующим образом (изменения обозначены полужирным шрифтом):
  • (setq

    PathLength (cdr (assoc 41 BoundaryData))

    TileSpace (cdr (assoc 43 BoundaryData))

    TileRadius (cdr (assoc 42 BoundaryData))

    SpaceToFill (- PathLength TileRadius)

    RowSpacing (* (+ TileSpace (* TileRadius 2.0))

    (sin (Degrees->Radians 60))

    )

    SpaceFilled RowSpacing

    offsetFromCenter 0.0

    offsetDistance /(+(* TileRadius 2.0)TileSpace)2.0)

    rowStartPoint cdr (assoc 10 BoundaryData))

    pathWidth cdr (assoc 40 BoundaryData))

    pathAngle cdr (assoc 50 BoundaryData))

    ) ;_ end of setq

    (if (not ObjectCreationStyle)

    (setq ObjectCreationStyle (strcase (cdr (assoc 3 BoundaryData))))

    )

    Ранее стоявшее в тексте выражение, которое инициализировало переменную ObjectCreationStyle, теперь удалено. Программа проверяет, имеет ли параметр ObjectCreationStyle какое-либо значение. Если значение не задано (т.е. ObjectCreationStyle равно nil), функция присваивает параметру значение из переменной BoundaryData.

    Теперь необходимо сделать еще ряд изменений в функции gp:Calculate-and-Draw-Tiles.

     




    Начало  Назад  Вперед



    Книжный магазин