[dextron3]

Вот собственно лисп:

знак $ смущает как можно его откоорректировать или заменить, чем либо...

Код:

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

 (defun c:KOL()
(setvar "CMDECHO" 0)
      (command "layer" "M" "STEN" "")
  (command "OSNAP" "INT")
  (setq P0 (getpoint "\nТочка вставки колонны:"))
  (setq W ($getdist "\nРазмер колонны:" 400 P0))
  (command "polygon" 4 P0 "C" (/ W 2))
  (command "osnap" "none")
  (command "layer" "S" "0" "")
(command "OSNAP" "INT")
(princ)
)

буду ждать подробного совета, потому что есть еще аналогичные лиспы..

[Alan]

Вот здесь рассматривается в учебных целях такой же пример, построение колонны
http://dwg.ru/f/showthread.php?t=22894&page=4
Обязательно перейдите в указанную тему
Что касается Вашего текста...
У кого вы его содрали, через плечо что ли смотрели? Столько ошибок...
Ну где-то так. Без проверок и т.п.

Код:

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

 
(defun c:kol (/ p0 w oldosm oldlay)
  (setq oldosm (getvar "osmode")
 oldlay (getvar "CLAYER")
  ) ;_ конец setq
  (setvar "CMDECHO" 0)
  (command "_layer" "_M" "STEN" "")
  (setvar "osmode" 32)
;;;  (command "_OSNAP" "_INT")
  (setq p0 (getpoint "\nТочка вставки колонны:")
 w  (getdist "\nРазмер колонны <400>:" p0)
 w  (if w
      w
      400
    ) ;_ конец if
  ) ;_ конец setq
  (setvar "osmode" 0)
;;;  (command "_osnap" "_none")
  (command "_polygon" 4 p0 "_C" (/ w 2.0))
  (command "_layer" "_S" "0" "")
;;;    (command "_OSNAP" "_INT")
  (setvar "osmode" oldosm)
  (setvar "CLAYER" oldlay)
  (princ)
)

[dextron3]

Alan, работает!

вот немного упростил (убрал привязки и т.п.) :

Код:

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

(defun c:kol (/ p0 w oldosm oldlay)
  (setq p0 (getpoint "\nТочка вставки колонны:")
 w  (getdist "\nРазмер колонны <400>:" p0)
 w  (if w
      w
      400
    ) ;_ конец if
  ) ;_ конец setq
  (command "_polygon" 4 p0 "_C" (/ w 2.0))
  (princ)
)

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

Зря убрал osmode. Сильно зря.

[dextron3]

Кулик Алексей aka kpblc, да нет работает, ажно самому приятно..

[Alan]

Сообщение от dextron3 Кулик Алексей aka kpblc, да нет работает, ажно самому приятно..

>dextron3, для меня компьютер мигающий лампочками работающим не считается.
Что касается текста.
Мой вариант почти работающий. С учётом моих оговорок насчет проверок и т.п., см. выше.
Ваш вариант работает не во всех случаях...
Идите учиться в тот класс, который я вам указал. Не пожалеете.