[Neo_]

Есть ли у кого лиспа для того чтобы щелкнув на размер раскладки например 2550, в итоге получить вместо нее 12х200+150=2550
можно и без =2550, прото 12х200+150. Очень буду благодарен.

[Fellini]

Вроде в "Строителе" Барабанщикова есть такая команда.

[Дима_]

Такой подойдет (запускать командой "ARM"):
(defun c:arm ( / a b obj size)
(setq obj (entget (car (entsel "Выберите размер"))))
(if (= (cdr (assoc 0 obj)) "DIMENSION")
(progn
(setq size (cdr (assoc 42 obj))
a (fix (/ size 200))
b (- size (* a 200))
)
(if (= b 0)
(setq size (strcat (rtos a) "*200=" (rtos size)))
(setq size (strcat (rtos a) "*200+" (rtos b) "=" (rtos size)))
);end if
(setq obj (subst (cons 1 size) (assoc 1 obj) obj))
(entmod obj)
);end progn
(alert "Это не размер")
);end if
);end

P.S. Исправленно чтобы при кратном 200 ноль не добавляло.

[Neo_]

Дима огромный респект. А то я уж стал книгу по лиспу искать и изучать..

[MichaelBY]

Сообщение от Дима_ Такой подойдет (запускать командой "ARM"): (defun c:arm ( / a b obj size) (setq obj (entget (car (entsel "Выберите размер")))) (if (= (cdr (assoc 0 obj)) "DIMENSION") (progn (setq size (cdr (assoc 42 obj)) a (fix (/ size 200)) b (- size (* a 200)) ) (if (= b 0) (setq size (strcat (rtos a) "*200=" (rtos size))) (setq size (strcat (rtos a) "*200+" (rtos b) "=" (rtos size))) );end if (setq obj (subst (cons 1 size) (assoc 1 obj) obj)) (entmod obj) );end progn (alert "Это не размер") );end if );end P.S. Исправленно чтобы при кратном 200 ноль не добавляло.

Большое спасибо. Полезная вещь. А можно ли сделать, чтоб основной шаг можно было указывать. Скажем указываем размер, а затем указываем шаг 100, 150, 200 (скажем любой).

[Neo_]

А можно еще , чтобы округлялись цифры, а то если есть нетоность тогда выходит: 20х200+150,0254=4150,0254

[MichaelBY]

Сообщение от Neo_ А можно еще , чтобы округлялись цифры, а то если есть нетоность тогда выходит: 20х200+150,0254=4150,0254

Можно просто установить Format-Units-Procision значение 0

[Neo_]

Спасибо , попробую. Но это пол беды, как добавить условие, что "если остаток меньше 100, то нужно делать его больше 200, т.е. 1050 будет не 5х200+50=1050, а 4х200+250=1050, понимаете в некоторых случаях допускается 250, чем 50..., что нереально для раскладки..
как говорится "положи палец в рот, он всю руку отмахнет".

[VVA]

Пробуй так

Код:

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

(defun c:arm ( / a b obj size step)
(if (null (setq step (getint "\nШаг раскладки < 200 >: ")))
  (setq step 200)
  )
(setq obj (entget (car (entsel "Выберите размер"))))
(if (and obj
  (= (cdr (assoc 0 obj)) "DIMENSION")
  )
(progn
(setq size (cdr (assoc 42 obj)))
(setq a (fix (/ size step))
      b (- size (* a step))
      )
(if (< b 100)  ;;;Проверка на остаток < 100
  (setq a (fix (/ (- size 200) step))
      b (- size (* a step))
      )
  )
(if (= b 0)
(setq size (strcat (rtos a 2 0) "*200=" (rtos size 2 0)))
(setq size (strcat (rtos a 2 0) "*200+" (rtos b 2 0) "=" (rtos size 2 0)))
);end if
(setq obj (subst (cons 1 size) (assoc 1 obj) obj))
(entmod obj)
);end progn
(alert "Это не размер")
);end if
);end

[Дима_]

Я тут немного отлучался но VVA подправил - если все, то удачи.

[Дрюха]

Наткнулся на данный lisp...
В силу того, что знания по lisp-программированию у меня нулевые, то прошу помощи и вот именно в чем:
1. при загрузке данного лиспа запрашивается шаг (ставить можно любой), но в размерах после ввода данных все равно стоит значение по умолчанию, то есть число 200. Возможно ли сделать так, чтобы отображался реальный шаг раскладки?
2. Всегда отображается остаток в строке, даже если число делится ровнехонько на задаваемый шаг раскладки ( к примеру, размер имеет значеие 6000. ставя шаг 300, получаем значение: 19х300+300=6000). Возможно ли сделать так, чтобы в случае целого деления остаток не выводился бы (то есть, записывалось все вот так: 20х300=6000)

Уважаемы программисты, если есть возможность, помогите. Заранее благодарю

[TararykovDG]

Дрюха, поробуй

Код:

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

(defun c:arm ( / a b obj size step)
(if (null (setq step (getint "\nШаг раскладки < 200 >: ")))
  (setq step 200)
  )
(setq obj (entget (car (entsel "Выберите размер"))))
(if (and obj
  (= (cdr (assoc 0 obj)) "DIMENSION")
  )
(progn
(setq size (cdr (assoc 42 obj)))
(setq a (fix (/ size step))
      b (- size (* a step))
      )
(if (= b 0)
(setq size (strcat (rtos a 2 0) "*" (itoa step) "=" (rtos size 2 0)))
(setq size (strcat (rtos a 2 0) "*" (itoa step) "+" (rtos b 2 0) "=" (rtos size 2 0)))
);end if
(setq obj (subst (cons 1 size) (assoc 1 obj) obj))
(entmod obj)
);end progn
(alert "Это не размер")
);end if
);end

[Дрюха]

TararykovDG, спасибо, вроде все работает
а есть еще маленькая просьба.....а можно ли сделать так:
к примеру, у нас есть размер длиной 3050. Возможно ли сделать так, чтобы остаток, если он меньше цифры 100, то лисп выдавал бы следующее (шаг, к примеру, у нас 200): 14*200+250=3050?
Надеюсь, понятно объяснил. Грубо говоря, остаточный шаг должен быть не менее 100

Добавление 1: О, все, разобрался сам))) Добавил пару строк из лиспа VVA. Все нормальненько вроде. Спасибо большое
Добавление 2:а можно ли сделать не однократный выбор, а несколкьо размеров сразу? TararykovDG, надежда на ВАС

[TararykovDG]

Сообщение от Дрюха Добавление 1: О, все, разобрался сам))) Добавил пару строк из лиспа VVA. Все нормальненько вроде. Спасибо большое

Да уж, я как раз убрал из кода VVA, то что Вам было нужно

Сообщение от Дрюха Добавление 2:а можно ли сделать не однократный выбор, а несколкьо размеров сразу? TararykovDG, надежда на ВАС

Можно

Код:

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

(defun c:arm ( / a b nbr lst obj size step)
(if (null (setq step (getint "\nШаг раскладки < 200 >: ")))
  (setq step 200)
  )
(setq nbr (ssget (list (cons 0 "DIMENSION"))))
(if (setq lst (mapcar 'entget (vl-remove-if 'listp (mapcar 'cadr (ssnamex nbr)))))
  (foreach obj lst
    (setq size (cdr (assoc 42 obj)))
    (setq a (fix (/ size step))
          b (- size (* a step))
          )
    (if (< b 100)  ;;;Проверка на остаток < 100
      (setq a (fix (/ (- size 200) step))
          b (- size (* a step))
          )
      )
    (if (= b 0)
    (setq size (strcat (rtos a 2 0) "*" (itoa step) "=" (rtos size 2 0)))
    (setq size (strcat (rtos a 2 0) "*" (itoa step) "+" (rtos b 2 0) "=" (rtos size 2 0)))
    );end if
    (setq obj (subst (cons 1 size) (assoc 1 obj) obj))
    (entmod obj)
  )
)  
);end

[Дрюха]

TararykovDG, опять выдает добавочный шаг....Вероятно, это из-за этой "проверки на остаток"...То есть , размер 2000 раскладывает так: 9х200+200=2000.

[TararykovDG]

Дрюха, а так

Код:

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

(defun c:arm ( / a b nbr lst obj size step)
(if (null (setq step (getint "\nШаг раскладки < 200 >: ")))
  (setq step 200)
  )
(setq nbr (ssget (list (cons 0 "DIMENSION"))))
(if (setq lst (mapcar 'entget (vl-remove-if 'listp (mapcar 'cadr (ssnamex nbr)))))
  (foreach obj lst
    (setq size (cdr (assoc 42 obj)))
    (setq a (fix (/ size step))
          b (- size (* a step))
          )
    (if (and (< b 100) (> b 0)) 
      (setq a (fix (/ (- size step) step))
          b (- size (* a step))
          )
      )
    (if (= b 0)
    (setq size (strcat (rtos a 2 0) "*" (itoa step) "=" (rtos size 2 0)))
    (setq size (strcat (rtos a 2 0) "*" (itoa step) "+" (rtos b 2 0) "=" (rtos size 2 0)))
    );end if
    (setq obj (subst (cons 1 size) (assoc 1 obj) obj))
    (entmod obj)
  )
)  
);end

[Евгений Д.]

объясните что это такое (лисп), как им пользоваться и в чём его преимущества.

[Дрюха]

TararykovDG , ОГРОМНОЕ Вам спасибо!! На первый взгляд все работает идеально! Если что-нибудь будет не так, то отпишусь. еще раз спасибо.
Offtop: С Вашего позволения заменю звездочки на крестики

[Do$]

Сообщение от Евгений Д. объясните что это такое (лисп), как им пользоваться и в чём его преимущества.

http://dwg.ru/art/8