[Kostinok]

Здравствуйте уважаемые форумчане!
Я совершенно не силен в програмироовании, но облегчить рутинные операции хочеться. Поэтому решил написать простейшую программу, но завалился.
Была задумка автоматизировать расстановку блоков внутри замкнутого, всегда прямоугольного! контура.
Контур - эта комната, блок - лампы. Расстановка зависит от длины и ширины комнаты. Всегда расстояние от стены до лампы, равно половине расстояния между лампами. Необходимо только определиться сколько столбцов и строк ламп необходимо. И найти точку вставки первой лампы, а после командой -ARRAY размножить блоки через определенные растояния.
Но если необходимо поставить лампы в один ряд или один столбец - выходит полная ерунда.
Надо организовать выбор, который прописывал бы разные команды, для разных условий.
Но не смог организовать условие!!!!((((
Надеюсь на вашу консультацию)

Код:

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

(vl-load-com)
(defun arr (/ set:entities int:row int:col rea:a rea:per rea:b list:beg obj)
(initget 7)  
(setq int:row (getint "\nЧисло строк: "))
(initget 7)  
(setq int:col (getint "\nЧисло столбцов: "))
(setq set:entities (ssget))
(setq obj (vlax-ename->vla-object (ssname set:entities 0)))
(setq rea:a (vlax-curve-getDistAtParam obj 1)
rea:per (vla-get-length obj)
rea:b (- (/ rea:per 2.0) rea:a)
list:beg (getpoint "\nУкажите НЛ точку контура:")
rea:ai (/ rea:a int:col 2.0)
rea:bi (/ rea:b int:row 2.0)
      );_/setq
(setq list:end (list (+ (car list:beg) rea:ai) (+ (cadr list:beg) rea:bi) 0.0))
(command "_insert" "Люминисцентная лампа" list:end "1" "1" "0")
  (if (eq int:row 1)
(command "_ARRAY" "_L" "" "_R" int:row int:col (* rea:ai 2))
    (progn
    (if (eq int:col 1)
      (command "_ARRAY" "_L" "" "_R" int:row int:col (* rea:bi 2))
      (command "_ARRAY" "_L" "" "_R" int:row int:col (* rea:bi 2) (* rea:ai 2))))
    )) ;_ defun

Для наглядности приложил пример.

Явно, что то не правильно, то работает, то нет(((

[Дима_]

Ну по крайней мере либо привязки отключи:
(setq oldosmode (getvar "osmode"))
(setvar "osmode" 0)
;;;программа
(setvar "osmode" oldsomode)
либо в (command "_array" "_L" ... ) добавь (command "_array" "_L" "_none" int:row "_none" ...)
дальше логику не смотрел
Стоп вру:
не "_array" а "_insert"

[Kostinok]

Дима_,
Спасибо, наверное надо задать условие о обнулении rea:bi и rea:ai при значениях int:row и int:col равных единице. Я постараюсь сделать это самостоятельно, но очень надеюсь на помощь профессионалов, подскажите пожалуйста как правильно организовать это условие.

Ну по крайней мере либо привязки отключи:

Не понял про привязки, зачем их отключать?
С уважением kostinok.

[Kostinok]

Есть команда:

(command "_ARRAY" "_L" "" "_R" int:row int:col (* rea:bi 2) (* rea:ai 2))

Как описать програмно такой цикл:
Если int:row = 1, то пусть исчезнет (* rea:bi 2)
Если int:col = 1, то пусть исчезнет (* rea:ai 2)
В остальных случаях остается первоночальная команда.
?

[Кулик Алексей aka kpblc]

Код:

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

(cond
((= int:row 1) (command "_.ARRAY" "_L" "" "_R" int:row int:col (* rea:ai 2)))
((= int:col 1) (command "_.ARRAY" "_L" "" "_R" int:row int:col (* rea:bi 2)))
(t (command "_.ARRAY" "_L" "" "_R" int:row int:col (* rea:bi 2) (* rea:ai 2))))

[Kostinok]

Кулик Алексей aka kpblc,
Большое спасибо, все от незнания!!! А в чем была моя ошибка в коде #1?

[Кулик Алексей aka kpblc]

Честно говоря, начальный код я не смотрел.