error: no function definition: VLAX-ENAME->VLA-OBJECT

error: no function definition: VLAX-ENAME->VLA-OBJECT · 16.12.2010, 13:37

Добрый день!
Являюсь опытным пользователем autocad, но лишь начинаю осваивать lisp... в программировании знаю только основы, по профессии инженер-конструктор.

Пользуюсь программкой, написанной на LISP'е...
Работало без сбоев, теперь выдает сообщение в командную строчку: error: no function definition: VLAX-ENAME->VLA-OBJECT.

Подскажите, пожалуйста, как быть. Что изменить или добавить в коде.

Подробнее о придуманном удобстве:
- при клике в замкнутую область Автокад создает в слое "frame" контур этой замкнутой области,
- анализирует размеры X и Y этой области,
- удаляет контур,
- в зависимости от полученных x и y с шагом 50 (от 100 до 600) присваивает замкнутой области позицию (цифру в слое "position"), т.е.
плитка 600*600 - позиция 1
плитка 600*550 - позиция 2
плитуа 600*500 - позиция 3... и т.д.

Потом уже идет подсчет позиций.

Сейчас же обрыв происходит на стадии "анализа" области. Т.е. он находит область, создает в слое frame ее контур и потом облом: в командную строку выводится сообщение: error: no function definition: VLAX-ENAME->VLA-OBJECT.

-mavlin- · 16.12.2010, 13:46

Так выложи код, будет проще.

Koprov · 16.12.2010, 13:56

Тут ограничение на длину сообщения стоит скорее всего.
По e-mail могу предоставить.

Код:

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

(defun C:SIZE_REC_1
( / pp echo osm reg minp maxp pmin pmax pxy cx cy sizex sizey ak sdel tp area ff sizex_ sizex_1 sizex_2 sizey_ sizey_1 sizey_2)
(vl-load-com)

(setq echo (getvar "CMDECHO"))
(setvar "CMDECHO" 0)

;(setvar "LWDISPLAY" 1)            ; Включение LWT
(setvar "celweight" -1)
(setvar "celweight" 50)           ; Установка текущей толщины линии

(setq osm (getvar "OSMODE"))
(setvar "OSMODE" 0)

(setq p0 (entlast)
      pp (getpoint)
)
(command "_layer" "_m" "frame" "_c" "RED" "frame" "")
(command "_layer" "_s" "frame" "")


(progn
   (vl-cmdf "_BOUNDARY" "A" "I" "N" "N" "" pp "");"A" "I" "N" "N" "" ; "_A" "_O" "_R" ""
   (setq reg (entlast))
      (if (eq reg p0)
        (progn (alert "Error! The border is not closed!")
               (c:SIZE_REC_1)
        );_progn
      );_if
);_progn

(setq vlaobj(vlax-ename->vla-object reg)); Преобразование области в VLA-объект.
(vla-GetBoundingBox vlaobj 'minp 'maxp)  ; Массивы кординат диагонали прямоугольника.
(setq
    pmin(vlax-safearray->list minp)     ; Преобразование массивов
    pmax(vlax-safearray->list maxp)     ; в списки.
    pxy (list                           ; Вычисление координат центра прямоугольника.
        (+(car pmin)(/(-(car pmax)(car pmin))2))
        (+(cadr pmin)(/(-(cadr pmax)(cadr pmin))2))
        );_list
      );_setq

(setq cx (rtos (car pxy)))
(setq cy (rtos (cadr pxy)))
(setq sizex_1 (atoi (rtos (distance pmin (list (car pmax) (cadr pmin))) 2 0)))
(setq sizey_1 (atoi (rtos (distance (list (car pmax) (cadr pmin)) pmax) 2 0)))
(setq tp (strcat cx "," cy))

(setvar "TEXTSIZE" 150)
(setvar "celweight" -1)
;(setvar "celweight" 0)
;Создание (m) и установка (s) слоя position
(command "_layer" "_m" "position" "_c" 160 "position" "")
(command "_layer" "_s" "position" "")


(if (> sizex_1 600)
    (progn
      (setq sizex_1 (itoa sizex_1))
      (setq sizey_1 (itoa sizey_1))
      (command "text" "j" "mc" tp pause "0" (strcat sizex_1 "x" sizey_1))

      (command "_layer" "_s" "frame" "")
      (command "_layer" "_off" "frame" "yes" "")
      (command "_layer" "_s" "position" "")

      (setvar "OSMODE" 4135)
      (setvar "CMDECHO" echo)
    )
    (if (> sizey_1 600)
    (progn
      (setq sizex_1 (itoa sizex_1))
      (setq sizey_1 (itoa sizey_1))
      (command "text" "j" "mc" tp pause "0" (strcat sizex_1 "x" sizey_1))

      (command "_layer" "_s" "frame" "")
      (command "_layer" "_off" "frame" "yes" "")
      (command "_layer" "_s" "position" "")

      (setvar "OSMODE" 4135)
      (setvar "CMDECHO" echo)
    )
    )
)

(if (= 600 sizex_1 sizey_1)
  (progn
    (command "text" "j" "mc" tp pause "0" 1)
    (command "_layer" "_s" "frame" "")
    (command "_layer" "_off" "frame" "yes" "")
    (command "_layer" "_s" "position" "")

    (setvar "OSMODE" 4135)
    (setvar "CMDECHO" echo)
  )
)

(if (and (> sizex_1 sizey_1)(/= sizex_1 sizey_1))
       (cond
          ((and (= sizex_1 600)(<= 0 sizey_1 79))(command "text" "j" "mc" tp pause "0" 12))
          ((and (= sizex_1 600)(<= 80 sizey_1 149))(command "text" "j" "mc" tp pause "0" 11))
          ((and (= sizex_1 600)(<= 150 sizey_1 199))(command "text" "j" "mc" tp pause "0" 10))
          ((and (= sizex_1 600)(<= 200 sizey_1 249))(command "text" "j" "mc" tp pause "0" 9))
          ((and (= sizex_1 600)(<= 250 sizey_1 299))(command "text" "j" "mc" tp pause "0" 8))
          ((and (= sizex_1 600)(<= 300 sizey_1 349))(command "text" "j" "mc" tp pause "0" 7))
          ((and (= sizex_1 600)(<= 350 sizey_1 399))(command "text" "j" "mc" tp pause "0" 6))
          ((and (= sizex_1 600)(<= 400 sizey_1 449))(command "text" "j" "mc" tp pause "0" 5))
          ((and (= sizex_1 600)(<= 450 sizey_1 499))(command "text" "j" "mc" tp pause "0" 4))
          ((and (= sizex_1 600)(<= 500 sizey_1 549))(command "text" "j" "mc" tp pause "0" 3))
          ((and (= sizex_1 600)(<= 550 sizey_1 599))(command "text" "j" "mc" tp pause "0" 2))

          ((and (<= 550 sizex_1 599)(<= 0 sizey_1 79))(command "text" "j" "mc" tp pause "0" 12))
          ((and (<= 550 sizex_1 599)(<= 80 sizey_1 149))(command "text" "j" "mc" tp pause "0" 11))
          ((and (<= 550 sizex_1 599)(<= 150 sizey_1 199))(command "text" "j" "mc" tp pause "0" 10))
          ((and (<= 550 sizex_1 599)(<= 200 sizey_1 249))(command "text" "j" "mc" tp pause "0" 9))
          ((and (<= 550 sizex_1 599)(<= 250 sizey_1 299))(command "text" "j" "mc" tp pause "0" 8))
          ((and (<= 550 sizex_1 599)(<= 300 sizey_1 349))(command "text" "j" "mc" tp pause "0" 7))
          ((and (<= 550 sizex_1 599)(<= 350 sizey_1 399))(command "text" "j" "mc" tp pause "0" 6))
          ((and (<= 550 sizex_1 599)(<= 400 sizey_1 449))(command "text" "j" "mc" tp pause "0" 5))
          ((and (<= 550 sizex_1 599)(<= 450 sizey_1 499))(command "text" "j" "mc" tp pause "0" 4))
          ((and (<= 550 sizex_1 599)(<= 500 sizey_1 549))(command "text" "j" "mc" tp pause "0" 3))
          ((and (<= 550 sizex_1 599)(<= 550 sizey_1 599))(command "text" "j" "mc" tp pause "0" 2))

          ((and (<= 500 sizex_1 549)(<= 0 sizey_1 79))(command "text" "j" "mc" tp pause "0" 12))
          ((and (<= 500 sizex_1 549)(<= 80 sizey_1 149))(command "text" "j" "mc" tp pause "0" 11))
          ((and (<= 500 sizex_1 549)(<= 150 sizey_1 199))(command "text" "j" "mc" tp pause "0" 10))
          ((and (<= 500 sizex_1 549)(<= 200 sizey_1 249))(command "text" "j" "mc" tp pause "0" 9))
          ((and (<= 500 sizex_1 549)(<= 250 sizey_1 299))(command "text" "j" "mc" tp pause "0" 8))
          ((and (<= 500 sizex_1 549)(<= 300 sizey_1 349))(command "text" "j" "mc" tp pause "0" 7))
          ((and (<= 500 sizex_1 549)(<= 350 sizey_1 399))(command "text" "j" "mc" tp pause "0" 6))
          ((and (<= 500 sizex_1 549)(<= 400 sizey_1 449))(command "text" "j" "mc" tp pause "0" 5))
          ((and (<= 500 sizex_1 549)(<= 450 sizey_1 499))(command "text" "j" "mc" tp pause "0" 4))
          ((and (<= 500 sizex_1 549)(<= 500 sizey_1 549))(command "text" "j" "mc" tp pause "0" 3))

          ((and (<= 450 sizex_1 499)(<= 0 sizey_1 79))(command "text" "j" "mc" tp pause "0" 12))
          ((and (<= 450 sizex_1 499)(<= 80 sizey_1 149))(command "text" "j" "mc" tp pause "0" 11))
          ((and (<= 450 sizex_1 499)(<= 150 sizey_1 199))(command "text" "j" "mc" tp pause "0" 10))
          ((and (<= 450 sizex_1 499)(<= 200 sizey_1 249))(command "text" "j" "mc" tp pause "0" 9))
          ((and (<= 450 sizex_1 499)(<= 250 sizey_1 299))(command "text" "j" "mc" tp pause "0" 8))
          ((and (<= 450 sizex_1 499)(<= 300 sizey_1 349))(command "text" "j" "mc" tp pause "0" 7))
          ((and (<= 450 sizex_1 499)(<= 350 sizey_1 399))(command "text" "j" "mc" tp pause "0" 6))
          ((and (<= 450 sizex_1 499)(<= 400 sizey_1 449))(command "text" "j" "mc" tp pause "0" 5))
          ((and (<= 450 sizex_1 499)(<= 450 sizey_1 499))(command "text" "j" "mc" tp pause "0" 4))

          ((and (<= 400 sizex_1 449)(<= 0 sizey_1 79))(command "text" "j" "mc" tp pause "0" 12))
          ((and (<= 400 sizex_1 449)(<= 80 sizey_1 149))(command "text" "j" "mc" tp pause "0" 11))
          ((and (<= 400 sizex_1 449)(<= 150 sizey_1 199))(command "text" "j" "mc" tp pause "0" 10))
          ((and (<= 400 sizex_1 449)(<= 200 sizey_1 249))(command "text" "j" "mc" tp pause "0" 9))
          ((and (<= 400 sizex_1 449)(<= 250 sizey_1 299))(command "text" "j" "mc" tp pause "0" 8))
          ((and (<= 400 sizex_1 449)(<= 300 sizey_1 349))(command "text" "j" "mc" tp pause "0" 7))
          ((and (<= 400 sizex_1 449)(<= 350 sizey_1 399))(command "text" "j" "mc" tp pause "0" 6))
          ((and (<= 400 sizex_1 449)(<= 400 sizey_1 449))(command "text" "j" "mc" tp pause "0" 5))

          ((and (<= 350 sizex_1 399)(<= 0 sizey_1 79))(command "text" "j" "mc" tp pause "0" 12))
          ((and (<= 350 sizex_1 399)(<= 80 sizey_1 149))(command "text" "j" "mc" tp pause "0" 11))
          ((and (<= 350 sizex_1 399)(<= 150 sizey_1 199))(command "text" "j" "mc" tp pause "0" 10))
          ((and (<= 350 sizex_1 399)(<= 200 sizey_1 249))(command "text" "j" "mc" tp pause "0" 9))
          ((and (<= 350 sizex_1 399)(<= 250 sizey_1 299))(command "text" "j" "mc" tp pause "0" 8))
          ((and (<= 350 sizex_1 399)(<= 300 sizey_1 349))(command "text" "j" "mc" tp pause "0" 7))
          ((and (<= 350 sizex_1 399)(<= 350 sizey_1 399))(command "text" "j" "mc" tp pause "0" 6))

          ((and (<= 300 sizex_1 349)(<= 0 sizey_1 79))(command "text" "j" "mc" tp pause "0" 12))
          ((and (<= 300 sizex_1 349)(<= 80 sizey_1 149))(command "text" "j" "mc" tp pause "0" 11))
          ((and (<= 300 sizex_1 349)(<= 150 sizey_1 199))(command "text" "j" "mc" tp pause "0" 10))
          ((and (<= 300 sizex_1 349)(<= 200 sizey_1 249))(command "text" "j" "mc" tp pause "0" 9))
          ((and (<= 300 sizex_1 349)(<= 250 sizey_1 299))(command "text" "j" "mc" tp pause "0" 8))
          ((and (<= 300 sizex_1 349)(<= 300 sizey_1 349))(command "text" "j" "mc" tp pause "0" 7))

          ((and (<= 250 sizex_1 299)(<= 0 sizey_1 79))(command "text" "j" "mc" tp pause "0" 12))
          ((and (<= 250 sizex_1 299)(<= 80 sizey_1 149))(command "text" "j" "mc" tp pause "0" 11))
          ((and (<= 250 sizex_1 299)(<= 150 sizey_1 199))(command "text" "j" "mc" tp pause "0" 10))
          ((and (<= 250 sizex_1 299)(<= 200 sizey_1 249))(command "text" "j" "mc" tp pause "0" 9))
          ((and (<= 250 sizex_1 299)(<= 250 sizey_1 299))(command "text" "j" "mc" tp pause "0" 8))

          ((and (<= 200 sizex_1 249)(<= 0 sizey_1 79))(command "text" "j" "mc" tp pause "0" 12))
          ((and (<= 200 sizex_1 249)(<= 80 sizey_1 149))(command "text" "j" "mc" tp pause "0" 11))
          ((and (<= 200 sizex_1 249)(<= 150 sizey_1 199))(command "text" "j" "mc" tp pause "0" 10))
          ((and (<= 200 sizex_1 249)(<= 200 sizey_1 249))(command "text" "j" "mc" tp pause "0" 9))

          ((and (<= 150 sizex_1 199)(<= 0 sizey_1 79))(command "text" "j" "mc" tp pause "0" 12))
          ((and (<= 150 sizex_1 199)(<= 80 sizey_1 149))(command "text" "j" "mc" tp pause "0" 11))
          ((and (<= 150 sizex_1 199)(<= 150 sizey_1 199))(command "text" "j" "mc" tp pause "0" 10))

          ((and (<= 80 sizex_1 149)(<= 0 sizey_1 79))(command "text" "j" "mc" tp pause "0" 12))
          ((and (<= 80 sizex_1 149)(<= 80 sizey_1 149))(command "text" "j" "mc" tp pause "0" 11))

          ((and (<= 0 sizex_1 79)(<= 0 sizey_1 79))(command "text" "j" "mc" tp pause "0" 12))

        )
)

(if (and (> sizey_1 sizex_1)(/= sizex_1 sizey_1))
       (cond
          ((and (= sizey_1 600)(<= 0 sizex_1 79))(command "text" "j" "mc" tp pause "0" 12))
          ((and (= sizey_1 600)(<= 80 sizex_1 149))(command "text" "j" "mc" tp pause "0" 11))
          ((and (= sizey_1 600)(<= 150 sizex_1 199))(command "text" "j" "mc" tp pause "0" 10))
          ((and (= sizey_1 600)(<= 200 sizex_1 249))(command "text" "j" "mc" tp pause "0" 9))
          ((and (= sizey_1 600)(<= 250 sizex_1 299))(command "text" "j" "mc" tp pause "0" 8))
          ((and (= sizey_1 600)(<= 300 sizex_1 349))(command "text" "j" "mc" tp pause "0" 7))
          ((and (= sizey_1 600)(<= 350 sizex_1 399))(command "text" "j" "mc" tp pause "0" 6))
          ((and (= sizey_1 600)(<= 400 sizex_1 449))(command "text" "j" "mc" tp pause "0" 5))
          ((and (= sizey_1 600)(<= 450 sizex_1 499))(command "text" "j" "mc" tp pause "0" 4))
          ((and (= sizey_1 600)(<= 500 sizex_1 549))(command "text" "j" "mc" tp pause "0" 3))
          ((and (= sizey_1 600)(<= 550 sizex_1 599))(command "text" "j" "mc" tp pause "0" 2))

          ((and (<= 550 sizey_1 599)(<= 0 sizex_1 79))(command "text" "j" "mc" tp pause "0" 12))
          ((and (<= 550 sizey_1 599)(<= 80 sizex_1 149))(command "text" "j" "mc" tp pause "0" 11))
          ((and (<= 550 sizey_1 599)(<= 150 sizex_1 199))(command "text" "j" "mc" tp pause "0" 10))
          ((and (<= 550 sizey_1 599)(<= 200 sizex_1 249))(command "text" "j" "mc" tp pause "0" 9))
          ((and (<= 550 sizey_1 599)(<= 250 sizex_1 299))(command "text" "j" "mc" tp pause "0" 8))
          ((and (<= 550 sizey_1 599)(<= 300 sizex_1 349))(command "text" "j" "mc" tp pause "0" 7))
          ((and (<= 550 sizey_1 599)(<= 350 sizex_1 399))(command "text" "j" "mc" tp pause "0" 6))
          ((and (<= 550 sizey_1 599)(<= 400 sizex_1 449))(command "text" "j" "mc" tp pause "0" 5))
          ((and (<= 550 sizey_1 599)(<= 450 sizex_1 499))(command "text" "j" "mc" tp pause "0" 4))
          ((and (<= 550 sizey_1 599)(<= 500 sizex_1 549))(command "text" "j" "mc" tp pause "0" 3))
          ((and (<= 550 sizey_1 599)(<= 550 sizex_1 599))(command "text" "j" "mc" tp pause "0" 2))

          ((and (<= 500 sizey_1 549)(<= 0 sizex_1 79))(command "text" "j" "mc" tp pause "0" 12))
          ((and (<= 500 sizey_1 549)(<= 80 sizex_1 149))(command "text" "j" "mc" tp pause "0" 11))
          ((and (<= 500 sizey_1 549)(<= 150 sizex_1 199))(command "text" "j" "mc" tp pause "0" 10))
          ((and (<= 500 sizey_1 549)(<= 200 sizex_1 249))(command "text" "j" "mc" tp pause "0" 9))
          ((and (<= 500 sizey_1 549)(<= 250 sizex_1 299))(command "text" "j" "mc" tp pause "0" 8))
          ((and (<= 500 sizey_1 549)(<= 300 sizex_1 349))(command "text" "j" "mc" tp pause "0" 7))
          ((and (<= 500 sizey_1 549)(<= 350 sizex_1 399))(command "text" "j" "mc" tp pause "0" 6))
          ((and (<= 500 sizey_1 549)(<= 400 sizex_1 449))(command "text" "j" "mc" tp pause "0" 5))
          ((and (<= 500 sizey_1 549)(<= 450 sizex_1 499))(command "text" "j" "mc" tp pause "0" 4))
          ((and (<= 500 sizey_1 549)(<= 500 sizex_1 549))(command "text" "j" "mc" tp pause "0" 3))

          ((and (<= 450 sizey_1 499)(<= 0 sizex_1 79))(command "text" "j" "mc" tp pause "0" 12))
          ((and (<= 450 sizey_1 499)(<= 80 sizex_1 149))(command "text" "j" "mc" tp pause "0" 11))
          ((and (<= 450 sizey_1 499)(<= 150 sizex_1 199))(command "text" "j" "mc" tp pause "0" 10))
          ((and (<= 450 sizey_1 499)(<= 200 sizex_1 249))(command "text" "j" "mc" tp pause "0" 9))
          ((and (<= 450 sizey_1 499)(<= 250 sizex_1 299))(command "text" "j" "mc" tp pause "0" 8))
          ((and (<= 450 sizey_1 499)(<= 300 sizex_1 349))(command "text" "j" "mc" tp pause "0" 7))
          ((and (<= 450 sizey_1 499)(<= 350 sizex_1 399))(command "text" "j" "mc" tp pause "0" 6))
          ((and (<= 450 sizey_1 499)(<= 400 sizex_1 449))(command "text" "j" "mc" tp pause "0" 5))
          ((and (<= 450 sizey_1 499)(<= 450 sizex_1 499))(command "text" "j" "mc" tp pause "0" 4))

          ((and (<= 400 sizey_1 449)(<= 0 sizex_1 79))(command "text" "j" "mc" tp pause "0" 12))
          ((and (<= 400 sizey_1 449)(<= 80 sizex_1 149))(command "text" "j" "mc" tp pause "0" 11))
          ((and (<= 400 sizey_1 449)(<= 150 sizex_1 199))(command "text" "j" "mc" tp pause "0" 10))
          ((and (<= 400 sizey_1 449)(<= 200 sizex_1 249))(command "text" "j" "mc" tp pause "0" 9))
          ((and (<= 400 sizey_1 449)(<= 250 sizex_1 299))(command "text" "j" "mc" tp pause "0" 8))
          ((and (<= 400 sizey_1 449)(<= 300 sizex_1 349))(command "text" "j" "mc" tp pause "0" 7))
          ((and (<= 400 sizey_1 449)(<= 350 sizex_1 399))(command "text" "j" "mc" tp pause "0" 6))
          ((and (<= 400 sizey_1 449)(<= 400 sizex_1 449))(command "text" "j" "mc" tp pause "0" 5))

          ((and (<= 350 sizey_1 399)(<= 0 sizex_1 79))(command "text" "j" "mc" tp pause "0" 12))
          ((and (<= 350 sizey_1 399)(<= 80 sizex_1 149))(command "text" "j" "mc" tp pause "0" 11))
          ((and (<= 350 sizey_1 399)(<= 150 sizex_1 199))(command "text" "j" "mc" tp pause "0" 10))
          ((and (<= 350 sizey_1 399)(<= 200 sizex_1 249))(command "text" "j" "mc" tp pause "0" 9))
          ((and (<= 350 sizey_1 399)(<= 250 sizex_1 299))(command "text" "j" "mc" tp pause "0" 8))
          ((and (<= 350 sizey_1 399)(<= 300 sizex_1 349))(command "text" "j" "mc" tp pause "0" 7))
          ((and (<= 350 sizey_1 399)(<= 350 sizex_1 399))(command "text" "j" "mc" tp pause "0" 6))

          ((and (<= 300 sizey_1 349)(<= 0 sizex_1 79))(command "text" "j" "mc" tp pause "0" 12))
          ((and (<= 300 sizey_1 349)(<= 80 sizex_1 149))(command "text" "j" "mc" tp pause "0" 11))
          ((and (<= 300 sizey_1 349)(<= 150 sizex_1 199))(command "text" "j" "mc" tp pause "0" 10))
          ((and (<= 300 sizey_1 349)(<= 200 sizex_1 249))(command "text" "j" "mc" tp pause "0" 9))
          ((and (<= 300 sizey_1 349)(<= 250 sizex_1 299))(command "text" "j" "mc" tp pause "0" 8))
          ((and (<= 300 sizey_1 349)(<= 300 sizex_1 349))(command "text" "j" "mc" tp pause "0" 7))

          ((and (<= 250 sizey_1 299)(<= 0 sizex_1 79))(command "text" "j" "mc" tp pause "0" 12))
          ((and (<= 250 sizey_1 299)(<= 80 sizex_1 149))(command "text" "j" "mc" tp pause "0" 11))
          ((and (<= 250 sizey_1 299)(<= 150 sizex_1 199))(command "text" "j" "mc" tp pause "0" 10))
          ((and (<= 250 sizey_1 299)(<= 200 sizex_1 249))(command "text" "j" "mc" tp pause "0" 9))
          ((and (<= 250 sizey_1 299)(<= 250 sizex_1 299))(command "text" "j" "mc" tp pause "0" 8))

          ((and (<= 200 sizey_1 249)(<= 0 sizex_1 79))(command "text" "j" "mc" tp pause "0" 12))
          ((and (<= 200 sizey_1 249)(<= 80 sizex_1 149))(command "text" "j" "mc" tp pause "0" 11))
          ((and (<= 200 sizey_1 249)(<= 150 sizex_1 199))(command "text" "j" "mc" tp pause "0" 10))
          ((and (<= 200 sizey_1 249)(<= 200 sizex_1 249))(command "text" "j" "mc" tp pause "0" 9))

          ((and (<= 150 sizey_1 199)(<= 0 sizex_1 79))(command "text" "j" "mc" tp pause "0" 12))
          ((and (<= 150 sizey_1 199)(<= 80 sizex_1 149))(command "text" "j" "mc" tp pause "0" 11))
          ((and (<= 150 sizey_1 199)(<= 150 sizex_1 199))(command "text" "j" "mc" tp pause "0" 10))

          ((and (<= 80 sizey_1 149)(<= 0 sizex_1 79))(command "text" "j" "mc" tp pause "0" 12))
          ((and (<= 80 sizey_1 149)(<= 80 sizex_1 149))(command "text" "j" "mc" tp pause "0" 11))

          ((and (<= 0 sizey_1 79)(<= 0 sizex_1 79))(command "text" "j" "mc" tp pause "0" 12))

        )
)
;(if (= sizey_1 sizex_1)
(if (and (= sizey_1 sizex_1)(< sizex_1 600)(< sizey_1 600))
       (cond
          ((and (= sizex_1 600)(<= 0 sizey_1 79))(command "text" "j" "mc" tp pause "0" 12))
          ((and (= sizex_1 600)(<= 80 sizey_1 149))(command "text" "j" "mc" tp pause "0" 11))
          ((and (= sizex_1 600)(<= 150 sizey_1 199))(command "text" "j" "mc" tp pause "0" 10))
          ((and (= sizex_1 600)(<= 200 sizey_1 249))(command "text" "j" "mc" tp pause "0" 9))
          ((and (= sizex_1 600)(<= 250 sizey_1 299))(command "text" "j" "mc" tp pause "0" 8))
          ((and (= sizex_1 600)(<= 300 sizey_1 349))(command "text" "j" "mc" tp pause "0" 7))
          ((and (= sizex_1 600)(<= 350 sizey_1 399))(command "text" "j" "mc" tp pause "0" 6))
          ((and (= sizex_1 600)(<= 400 sizey_1 449))(command "text" "j" "mc" tp pause "0" 5))
          ((and (= sizex_1 600)(<= 450 sizey_1 499))(command "text" "j" "mc" tp pause "0" 4))
          ((and (= sizex_1 600)(<= 500 sizey_1 549))(command "text" "j" "mc" tp pause "0" 3))
          ((and (= sizex_1 600)(<= 550 sizey_1 599))(command "text" "j" "mc" tp pause "0" 2))

          ((and (<= 550 sizex_1 599)(<= 0 sizey_1 79))(command "text" "j" "mc" tp pause "0" 12))
          ((and (<= 550 sizex_1 599)(<= 80 sizey_1 149))(command "text" "j" "mc" tp pause "0" 11))
          ((and (<= 550 sizex_1 599)(<= 150 sizey_1 199))(command "text" "j" "mc" tp pause "0" 10))
          ((and (<= 550 sizex_1 599)(<= 200 sizey_1 249))(command "text" "j" "mc" tp pause "0" 9))
          ((and (<= 550 sizex_1 599)(<= 250 sizey_1 299))(command "text" "j" "mc" tp pause "0" 8))
          ((and (<= 550 sizex_1 599)(<= 300 sizey_1 349))(command "text" "j" "mc" tp pause "0" 7))
          ((and (<= 550 sizex_1 599)(<= 350 sizey_1 399))(command "text" "j" "mc" tp pause "0" 6))
          ((and (<= 550 sizex_1 599)(<= 400 sizey_1 449))(command "text" "j" "mc" tp pause "0" 5))
          ((and (<= 550 sizex_1 599)(<= 450 sizey_1 499))(command "text" "j" "mc" tp pause "0" 4))
          ((and (<= 550 sizex_1 599)(<= 500 sizey_1 549))(command "text" "j" "mc" tp pause "0" 3))
          ((and (<= 550 sizex_1 599)(<= 550 sizey_1 599))(command "text" "j" "mc" tp pause "0" 2))

          ((and (<= 500 sizex_1 549)(<= 0 sizey_1 79))(command "text" "j" "mc" tp pause "0" 12))
          ((and (<= 500 sizex_1 549)(<= 80 sizey_1 149))(command "text" "j" "mc" tp pause "0" 11))
          ((and (<= 500 sizex_1 549)(<= 150 sizey_1 199))(command "text" "j" "mc" tp pause "0" 10))
          ((and (<= 500 sizex_1 549)(<= 200 sizey_1 249))(command "text" "j" "mc" tp pause "0" 9))
          ((and (<= 500 sizex_1 549)(<= 250 sizey_1 299))(command "text" "j" "mc" tp pause "0" 8))
          ((and (<= 500 sizex_1 549)(<= 300 sizey_1 349))(command "text" "j" "mc" tp pause "0" 7))
          ((and (<= 500 sizex_1 549)(<= 350 sizey_1 399))(command "text" "j" "mc" tp pause "0" 6))
          ((and (<= 500 sizex_1 549)(<= 400 sizey_1 449))(command "text" "j" "mc" tp pause "0" 5))
          ((and (<= 500 sizex_1 549)(<= 450 sizey_1 499))(command "text" "j" "mc" tp pause "0" 4))
          ((and (<= 500 sizex_1 549)(<= 500 sizey_1 549))(command "text" "j" "mc" tp pause "0" 3))

          ((and (<= 450 sizex_1 499)(<= 0 sizey_1 79))(command "text" "j" "mc" tp pause "0" 12))
          ((and (<= 450 sizex_1 499)(<= 80 sizey_1 149))(command "text" "j" "mc" tp pause "0" 11))
          ((and (<= 450 sizex_1 499)(<= 150 sizey_1 199))(command "text" "j" "mc" tp pause "0" 10))
          ((and (<= 450 sizex_1 499)(<= 200 sizey_1 249))(command "text" "j" "mc" tp pause "0" 9))
          ((and (<= 450 sizex_1 499)(<= 250 sizey_1 299))(command "text" "j" "mc" tp pause "0" 8))
          ((and (<= 450 sizex_1 499)(<= 300 sizey_1 349))(command "text" "j" "mc" tp pause "0" 7))
          ((and (<= 450 sizex_1 499)(<= 350 sizey_1 399))(command "text" "j" "mc" tp pause "0" 6))
          ((and (<= 450 sizex_1 499)(<= 400 sizey_1 449))(command "text" "j" "mc" tp pause "0" 5))
          ((and (<= 450 sizex_1 499)(<= 450 sizey_1 499))(command "text" "j" "mc" tp pause "0" 4))

          ((and (<= 400 sizex_1 449)(<= 0 sizey_1 79))(command "text" "j" "mc" tp pause "0" 12))
          ((and (<= 400 sizex_1 449)(<= 80 sizey_1 149))(command "text" "j" "mc" tp pause "0" 11))
          ((and (<= 400 sizex_1 449)(<= 150 sizey_1 199))(command "text" "j" "mc" tp pause "0" 10))
          ((and (<= 400 sizex_1 449)(<= 200 sizey_1 249))(command "text" "j" "mc" tp pause "0" 9))
          ((and (<= 400 sizex_1 449)(<= 250 sizey_1 299))(command "text" "j" "mc" tp pause "0" 8))
          ((and (<= 400 sizex_1 449)(<= 300 sizey_1 349))(command "text" "j" "mc" tp pause "0" 7))
          ((and (<= 400 sizex_1 449)(<= 350 sizey_1 399))(command "text" "j" "mc" tp pause "0" 6))
          ((and (<= 400 sizex_1 449)(<= 400 sizey_1 449))(command "text" "j" "mc" tp pause "0" 5))

          ((and (<= 350 sizex_1 399)(<= 0 sizey_1 79))(command "text" "j" "mc" tp pause "0" 12))
          ((and (<= 350 sizex_1 399)(<= 80 sizey_1 149))(command "text" "j" "mc" tp pause "0" 11))
          ((and (<= 350 sizex_1 399)(<= 150 sizey_1 199))(command "text" "j" "mc" tp pause "0" 10))
          ((and (<= 350 sizex_1 399)(<= 200 sizey_1 249))(command "text" "j" "mc" tp pause "0" 9))
          ((and (<= 350 sizex_1 399)(<= 250 sizey_1 299))(command "text" "j" "mc" tp pause "0" 8))
          ((and (<= 350 sizex_1 399)(<= 300 sizey_1 349))(command "text" "j" "mc" tp pause "0" 7))
          ((and (<= 350 sizex_1 399)(<= 350 sizey_1 399))(command "text" "j" "mc" tp pause "0" 6))

          ((and (<= 300 sizex_1 349)(<= 0 sizey_1 79))(command "text" "j" "mc" tp pause "0" 12))
          ((and (<= 300 sizex_1 349)(<= 80 sizey_1 149))(command "text" "j" "mc" tp pause "0" 11))
          ((and (<= 300 sizex_1 349)(<= 150 sizey_1 199))(command "text" "j" "mc" tp pause "0" 10))
          ((and (<= 300 sizex_1 349)(<= 200 sizey_1 249))(command "text" "j" "mc" tp pause "0" 9))
          ((and (<= 300 sizex_1 349)(<= 250 sizey_1 299))(command "text" "j" "mc" tp pause "0" 8))
          ((and (<= 300 sizex_1 349)(<= 300 sizey_1 349))(command "text" "j" "mc" tp pause "0" 7))

          ((and (<= 250 sizex_1 299)(<= 0 sizey_1 79))(command "text" "j" "mc" tp pause "0" 12))
          ((and (<= 250 sizex_1 299)(<= 80 sizey_1 149))(command "text" "j" "mc" tp pause "0" 11))
          ((and (<= 250 sizex_1 299)(<= 150 sizey_1 199))(command "text" "j" "mc" tp pause "0" 10))
          ((and (<= 250 sizex_1 299)(<= 200 sizey_1 249))(command "text" "j" "mc" tp pause "0" 9))
          ((and (<= 250 sizex_1 299)(<= 250 sizey_1 299))(command "text" "j" "mc" tp pause "0" 8))

          ((and (<= 200 sizex_1 249)(<= 0 sizey_1 79))(command "text" "j" "mc" tp pause "0" 12))
          ((and (<= 200 sizex_1 249)(<= 80 sizey_1 149))(command "text" "j" "mc" tp pause "0" 11))
          ((and (<= 200 sizex_1 249)(<= 150 sizey_1 199))(command "text" "j" "mc" tp pause "0" 10))
          ((and (<= 200 sizex_1 249)(<= 200 sizey_1 249))(command "text" "j" "mc" tp pause "0" 9))

          ((and (<= 150 sizex_1 199)(<= 0 sizey_1 79))(command "text" "j" "mc" tp pause "0" 12))
          ((and (<= 150 sizex_1 199)(<= 80 sizey_1 149))(command "text" "j" "mc" tp pause "0" 11))
          ((and (<= 150 sizex_1 199)(<= 150 sizey_1 199))(command "text" "j" "mc" tp pause "0" 10))

          ((and (<= 80 sizex_1 149)(<= 0 sizey_1 79))(command "text" "j" "mc" tp pause "0" 12))
          ((and (<= 80 sizex_1 149)(<= 80 sizey_1 149))(command "text" "j" "mc" tp pause "0" 11))

          ((and (<= 0 sizex_1 79)(<= 0 sizey_1 79))(command "text" "j" "mc" tp pause "0" 12))

        )
)

(setq sdel (ssget "X" '((8 . "frame"))))
(command "ERASE" sdel "")
;(command "_layer" "_s" "frame" "")
;(command "_layer" "_off" "frame" "yes" "")
(command "_layer" "_s" "position" "")

(setvar "OSMODE" 4135)

(setvar "CMDECHO" echo)
(princ)
)

Лиспер · 16.12.2010, 14:10

А если _boundary некорректно срабатывает, она возвращает nil, и (entlast) будет черт-те каким. ИМХО, конечно.

-mavlin- · 16.12.2010, 14:23

после некторых изменений заработало

Код:

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

(defun C:SIZE_REC_1
( / pp echo osm reg minp maxp pmin pmax pxy cx cy sizex sizey ak sdel tp area ff sizex_ sizex_1 sizex_2 sizey_ sizey_1 sizey_2)
(vl-load-com)

(setq echo (getvar "CMDECHO"))
(setvar "CMDECHO" 0)

;(setvar "LWDISPLAY" 1)            ; Включение LWT
(setvar "celweight" -1)
(setvar "celweight" 50)           ; Установка текущей толщины линии

(setq osm (getvar "OSMODE"))
(setvar "OSMODE" 0)

(setq p0 (entlast)
      pp (getpoint)
)
(command "_layer" "_m" "frame" "_c" "RED" "frame" "")
(command "_layer" "_s" "frame" "")


(progn
   (vl-cmdf "_BOUNDARY" "A" "I" "N" "N" "" pp "");"A" "I" "N" "N" "" ; "_A" "_O" "_R" ""
   (setq reg (entlast))
      (if (eq reg p0)
        (progn (alert "Error! The border is not closed!")
               (c:SIZE_REC_1)
        );_progn
      );_if
);_progn

(setq vlaobj(vlax-ename->vla-object reg)); Преобразование области в VLA-объект.
(vla-GetBoundingBox vlaobj 'minp 'maxp)  ; Массивы кординат диагонали прямоугольника.
(setq
    pmin(vlax-safearray->list minp)     ; Преобразование массивов
    pmax(vlax-safearray->list maxp)     ; в списки.
    pxy (list                           ; Вычисление координат центра прямоугольника.
        (+(car pmin)(/(-(car pmax)(car pmin))2))
        (+(cadr pmin)(/(-(cadr pmax)(cadr pmin))2))
        );_list
      );_setq

(setq cx (rtos (car pxy)))
(setq cy (rtos (cadr pxy)))
(setq sizex_1 (atoi (rtos (distance pmin (list (car pmax) (cadr pmin))) 2 0)))
(setq sizey_1 (atoi (rtos (distance (list (car pmax) (cadr pmin)) pmax) 2 0)))
(setq tp (strcat cx "," cy))

(setvar "TEXTSIZE" 150)
(setvar "celweight" -1)
;(setvar "celweight" 0)
;Создание (m) и установка (s) слоя position
(command "_layer" "_m" "position" "_c" 160 "position" "")
(command "_layer" "_s" "position" "")


(if (> sizex_1 600)
    (progn
      (setq sizex_1 (itoa sizex_1))
      (setq sizey_1 (itoa sizey_1))
      (command "text" "j" "mc" tp pause "0" (strcat sizex_1 "x" sizey_1))

      (command "_layer" "_s" "frame" "")
      (command "_layer" "_off" "frame" "yes" "")
      (command "_layer" "_s" "position" "")

      (setvar "OSMODE" 4135)
      (setvar "CMDECHO" echo)
    )
    (if (> sizey_1 600)
    (progn
      (setq sizex_1 (itoa sizex_1))
      (setq sizey_1 (itoa sizey_1))
      (command "text" "j" "mc" tp pause "0" (strcat sizex_1 "x" sizey_1))

      (command "_layer" "_s" "frame" "")
      (command "_layer" "_off" "frame" "yes" "")
      (command "_layer" "_s" "position" "")

      (setvar "OSMODE" 4135)
      (setvar "CMDECHO" echo)
    )
    )
)

(if (= 600 sizex_1 sizey_1)
  (progn
    (command "text" "j" "mc" tp pause "0" 1)
    (command "_layer" "_s" "frame" "")
    (command "_layer" "_off" "frame" "yes" "")
    (command "_layer" "_s" "position" "")

    (setvar "OSMODE" 4135)
    (setvar "CMDECHO" echo)
  )
)
(setq sizex_1 (atoi sizex_1)
      sizey_1 (atoi sizey_1))
(if (and (> sizex_1 sizey_1)(/= sizex_1 sizey_1))
       (cond
          ((and (= sizex_1 600)(<= 0 sizey_1 79))(command "text" "j" "mc" tp pause "0" 12))
          ((and (= sizex_1 600)(<= 80 sizey_1 149))(command "text" "j" "mc" tp pause "0" 11))
          ((and (= sizex_1 600)(<= 150 sizey_1 199))(command "text" "j" "mc" tp pause "0" 10))
          ((and (= sizex_1 600)(<= 200 sizey_1 249))(command "text" "j" "mc" tp pause "0" 9))
          ((and (= sizex_1 600)(<= 250 sizey_1 299))(command "text" "j" "mc" tp pause "0" 8))
          ((and (= sizex_1 600)(<= 300 sizey_1 349))(command "text" "j" "mc" tp pause "0" 7))
          ((and (= sizex_1 600)(<= 350 sizey_1 399))(command "text" "j" "mc" tp pause "0" 6))
          ((and (= sizex_1 600)(<= 400 sizey_1 449))(command "text" "j" "mc" tp pause "0" 5))
          ((and (= sizex_1 600)(<= 450 sizey_1 499))(command "text" "j" "mc" tp pause "0" 4))
          ((and (= sizex_1 600)(<= 500 sizey_1 549))(command "text" "j" "mc" tp pause "0" 3))
          ((and (= sizex_1 600)(<= 550 sizey_1 599))(command "text" "j" "mc" tp pause "0" 2))

          ((and (<= 550 sizex_1 599)(<= 0 sizey_1 79))(command "text" "j" "mc" tp pause "0" 12))
          ((and (<= 550 sizex_1 599)(<= 80 sizey_1 149))(command "text" "j" "mc" tp pause "0" 11))
          ((and (<= 550 sizex_1 599)(<= 150 sizey_1 199))(command "text" "j" "mc" tp pause "0" 10))
          ((and (<= 550 sizex_1 599)(<= 200 sizey_1 249))(command "text" "j" "mc" tp pause "0" 9))
          ((and (<= 550 sizex_1 599)(<= 250 sizey_1 299))(command "text" "j" "mc" tp pause "0" 8))
          ((and (<= 550 sizex_1 599)(<= 300 sizey_1 349))(command "text" "j" "mc" tp pause "0" 7))
          ((and (<= 550 sizex_1 599)(<= 350 sizey_1 399))(command "text" "j" "mc" tp pause "0" 6))
          ((and (<= 550 sizex_1 599)(<= 400 sizey_1 449))(command "text" "j" "mc" tp pause "0" 5))
          ((and (<= 550 sizex_1 599)(<= 450 sizey_1 499))(command "text" "j" "mc" tp pause "0" 4))
          ((and (<= 550 sizex_1 599)(<= 500 sizey_1 549))(command "text" "j" "mc" tp pause "0" 3))
          ((and (<= 550 sizex_1 599)(<= 550 sizey_1 599))(command "text" "j" "mc" tp pause "0" 2))

          ((and (<= 500 sizex_1 549)(<= 0 sizey_1 79))(command "text" "j" "mc" tp pause "0" 12))
          ((and (<= 500 sizex_1 549)(<= 80 sizey_1 149))(command "text" "j" "mc" tp pause "0" 11))
          ((and (<= 500 sizex_1 549)(<= 150 sizey_1 199))(command "text" "j" "mc" tp pause "0" 10))
          ((and (<= 500 sizex_1 549)(<= 200 sizey_1 249))(command "text" "j" "mc" tp pause "0" 9))
          ((and (<= 500 sizex_1 549)(<= 250 sizey_1 299))(command "text" "j" "mc" tp pause "0" 8))
          ((and (<= 500 sizex_1 549)(<= 300 sizey_1 349))(command "text" "j" "mc" tp pause "0" 7))
          ((and (<= 500 sizex_1 549)(<= 350 sizey_1 399))(command "text" "j" "mc" tp pause "0" 6))
          ((and (<= 500 sizex_1 549)(<= 400 sizey_1 449))(command "text" "j" "mc" tp pause "0" 5))
          ((and (<= 500 sizex_1 549)(<= 450 sizey_1 499))(command "text" "j" "mc" tp pause "0" 4))
          ((and (<= 500 sizex_1 549)(<= 500 sizey_1 549))(command "text" "j" "mc" tp pause "0" 3))

          ((and (<= 450 sizex_1 499)(<= 0 sizey_1 79))(command "text" "j" "mc" tp pause "0" 12))
          ((and (<= 450 sizex_1 499)(<= 80 sizey_1 149))(command "text" "j" "mc" tp pause "0" 11))
          ((and (<= 450 sizex_1 499)(<= 150 sizey_1 199))(command "text" "j" "mc" tp pause "0" 10))
          ((and (<= 450 sizex_1 499)(<= 200 sizey_1 249))(command "text" "j" "mc" tp pause "0" 9))
          ((and (<= 450 sizex_1 499)(<= 250 sizey_1 299))(command "text" "j" "mc" tp pause "0" 8))
          ((and (<= 450 sizex_1 499)(<= 300 sizey_1 349))(command "text" "j" "mc" tp pause "0" 7))
          ((and (<= 450 sizex_1 499)(<= 350 sizey_1 399))(command "text" "j" "mc" tp pause "0" 6))
          ((and (<= 450 sizex_1 499)(<= 400 sizey_1 449))(command "text" "j" "mc" tp pause "0" 5))
          ((and (<= 450 sizex_1 499)(<= 450 sizey_1 499))(command "text" "j" "mc" tp pause "0" 4))

          ((and (<= 400 sizex_1 449)(<= 0 sizey_1 79))(command "text" "j" "mc" tp pause "0" 12))
          ((and (<= 400 sizex_1 449)(<= 80 sizey_1 149))(command "text" "j" "mc" tp pause "0" 11))
          ((and (<= 400 sizex_1 449)(<= 150 sizey_1 199))(command "text" "j" "mc" tp pause "0" 10))
          ((and (<= 400 sizex_1 449)(<= 200 sizey_1 249))(command "text" "j" "mc" tp pause "0" 9))
          ((and (<= 400 sizex_1 449)(<= 250 sizey_1 299))(command "text" "j" "mc" tp pause "0" 8))
          ((and (<= 400 sizex_1 449)(<= 300 sizey_1 349))(command "text" "j" "mc" tp pause "0" 7))
          ((and (<= 400 sizex_1 449)(<= 350 sizey_1 399))(command "text" "j" "mc" tp pause "0" 6))
          ((and (<= 400 sizex_1 449)(<= 400 sizey_1 449))(command "text" "j" "mc" tp pause "0" 5))

          ((and (<= 350 sizex_1 399)(<= 0 sizey_1 79))(command "text" "j" "mc" tp pause "0" 12))
          ((and (<= 350 sizex_1 399)(<= 80 sizey_1 149))(command "text" "j" "mc" tp pause "0" 11))
          ((and (<= 350 sizex_1 399)(<= 150 sizey_1 199))(command "text" "j" "mc" tp pause "0" 10))
          ((and (<= 350 sizex_1 399)(<= 200 sizey_1 249))(command "text" "j" "mc" tp pause "0" 9))
          ((and (<= 350 sizex_1 399)(<= 250 sizey_1 299))(command "text" "j" "mc" tp pause "0" 8))
          ((and (<= 350 sizex_1 399)(<= 300 sizey_1 349))(command "text" "j" "mc" tp pause "0" 7))
          ((and (<= 350 sizex_1 399)(<= 350 sizey_1 399))(command "text" "j" "mc" tp pause "0" 6))

          ((and (<= 300 sizex_1 349)(<= 0 sizey_1 79))(command "text" "j" "mc" tp pause "0" 12))
          ((and (<= 300 sizex_1 349)(<= 80 sizey_1 149))(command "text" "j" "mc" tp pause "0" 11))
          ((and (<= 300 sizex_1 349)(<= 150 sizey_1 199))(command "text" "j" "mc" tp pause "0" 10))
          ((and (<= 300 sizex_1 349)(<= 200 sizey_1 249))(command "text" "j" "mc" tp pause "0" 9))
          ((and (<= 300 sizex_1 349)(<= 250 sizey_1 299))(command "text" "j" "mc" tp pause "0" 8))
          ((and (<= 300 sizex_1 349)(<= 300 sizey_1 349))(command "text" "j" "mc" tp pause "0" 7))

          ((and (<= 250 sizex_1 299)(<= 0 sizey_1 79))(command "text" "j" "mc" tp pause "0" 12))
          ((and (<= 250 sizex_1 299)(<= 80 sizey_1 149))(command "text" "j" "mc" tp pause "0" 11))
          ((and (<= 250 sizex_1 299)(<= 150 sizey_1 199))(command "text" "j" "mc" tp pause "0" 10))
          ((and (<= 250 sizex_1 299)(<= 200 sizey_1 249))(command "text" "j" "mc" tp pause "0" 9))
          ((and (<= 250 sizex_1 299)(<= 250 sizey_1 299))(command "text" "j" "mc" tp pause "0" 8))

          ((and (<= 200 sizex_1 249)(<= 0 sizey_1 79))(command "text" "j" "mc" tp pause "0" 12))
          ((and (<= 200 sizex_1 249)(<= 80 sizey_1 149))(command "text" "j" "mc" tp pause "0" 11))
          ((and (<= 200 sizex_1 249)(<= 150 sizey_1 199))(command "text" "j" "mc" tp pause "0" 10))
          ((and (<= 200 sizex_1 249)(<= 200 sizey_1 249))(command "text" "j" "mc" tp pause "0" 9))

          ((and (<= 150 sizex_1 199)(<= 0 sizey_1 79))(command "text" "j" "mc" tp pause "0" 12))
          ((and (<= 150 sizex_1 199)(<= 80 sizey_1 149))(command "text" "j" "mc" tp pause "0" 11))
          ((and (<= 150 sizex_1 199)(<= 150 sizey_1 199))(command "text" "j" "mc" tp pause "0" 10))

          ((and (<= 80 sizex_1 149)(<= 0 sizey_1 79))(command "text" "j" "mc" tp pause "0" 12))
          ((and (<= 80 sizex_1 149)(<= 80 sizey_1 149))(command "text" "j" "mc" tp pause "0" 11))

          ((and (<= 0 sizex_1 79)(<= 0 sizey_1 79))(command "text" "j" "mc" tp pause "0" 12))

        )
)

(if (and (> sizey_1 sizex_1)(/= sizex_1 sizey_1))
       (cond
          ((and (= sizey_1 600)(<= 0 sizex_1 79))(command "text" "j" "mc" tp pause "0" 12))
          ((and (= sizey_1 600)(<= 80 sizex_1 149))(command "text" "j" "mc" tp pause "0" 11))
          ((and (= sizey_1 600)(<= 150 sizex_1 199))(command "text" "j" "mc" tp pause "0" 10))
          ((and (= sizey_1 600)(<= 200 sizex_1 249))(command "text" "j" "mc" tp pause "0" 9))
          ((and (= sizey_1 600)(<= 250 sizex_1 299))(command "text" "j" "mc" tp pause "0" 8))
          ((and (= sizey_1 600)(<= 300 sizex_1 349))(command "text" "j" "mc" tp pause "0" 7))
          ((and (= sizey_1 600)(<= 350 sizex_1 399))(command "text" "j" "mc" tp pause "0" 6))
          ((and (= sizey_1 600)(<= 400 sizex_1 449))(command "text" "j" "mc" tp pause "0" 5))
          ((and (= sizey_1 600)(<= 450 sizex_1 499))(command "text" "j" "mc" tp pause "0" 4))
          ((and (= sizey_1 600)(<= 500 sizex_1 549))(command "text" "j" "mc" tp pause "0" 3))
          ((and (= sizey_1 600)(<= 550 sizex_1 599))(command "text" "j" "mc" tp pause "0" 2))

          ((and (<= 550 sizey_1 599)(<= 0 sizex_1 79))(command "text" "j" "mc" tp pause "0" 12))
          ((and (<= 550 sizey_1 599)(<= 80 sizex_1 149))(command "text" "j" "mc" tp pause "0" 11))
          ((and (<= 550 sizey_1 599)(<= 150 sizex_1 199))(command "text" "j" "mc" tp pause "0" 10))
          ((and (<= 550 sizey_1 599)(<= 200 sizex_1 249))(command "text" "j" "mc" tp pause "0" 9))
          ((and (<= 550 sizey_1 599)(<= 250 sizex_1 299))(command "text" "j" "mc" tp pause "0" 8))
          ((and (<= 550 sizey_1 599)(<= 300 sizex_1 349))(command "text" "j" "mc" tp pause "0" 7))
          ((and (<= 550 sizey_1 599)(<= 350 sizex_1 399))(command "text" "j" "mc" tp pause "0" 6))
          ((and (<= 550 sizey_1 599)(<= 400 sizex_1 449))(command "text" "j" "mc" tp pause "0" 5))
          ((and (<= 550 sizey_1 599)(<= 450 sizex_1 499))(command "text" "j" "mc" tp pause "0" 4))
          ((and (<= 550 sizey_1 599)(<= 500 sizex_1 549))(command "text" "j" "mc" tp pause "0" 3))
          ((and (<= 550 sizey_1 599)(<= 550 sizex_1 599))(command "text" "j" "mc" tp pause "0" 2))

          ((and (<= 500 sizey_1 549)(<= 0 sizex_1 79))(command "text" "j" "mc" tp pause "0" 12))
          ((and (<= 500 sizey_1 549)(<= 80 sizex_1 149))(command "text" "j" "mc" tp pause "0" 11))
          ((and (<= 500 sizey_1 549)(<= 150 sizex_1 199))(command "text" "j" "mc" tp pause "0" 10))
          ((and (<= 500 sizey_1 549)(<= 200 sizex_1 249))(command "text" "j" "mc" tp pause "0" 9))
          ((and (<= 500 sizey_1 549)(<= 250 sizex_1 299))(command "text" "j" "mc" tp pause "0" 8))
          ((and (<= 500 sizey_1 549)(<= 300 sizex_1 349))(command "text" "j" "mc" tp pause "0" 7))
          ((and (<= 500 sizey_1 549)(<= 350 sizex_1 399))(command "text" "j" "mc" tp pause "0" 6))
          ((and (<= 500 sizey_1 549)(<= 400 sizex_1 449))(command "text" "j" "mc" tp pause "0" 5))
          ((and (<= 500 sizey_1 549)(<= 450 sizex_1 499))(command "text" "j" "mc" tp pause "0" 4))
          ((and (<= 500 sizey_1 549)(<= 500 sizex_1 549))(command "text" "j" "mc" tp pause "0" 3))

          ((and (<= 450 sizey_1 499)(<= 0 sizex_1 79))(command "text" "j" "mc" tp pause "0" 12))
          ((and (<= 450 sizey_1 499)(<= 80 sizex_1 149))(command "text" "j" "mc" tp pause "0" 11))
          ((and (<= 450 sizey_1 499)(<= 150 sizex_1 199))(command "text" "j" "mc" tp pause "0" 10))
          ((and (<= 450 sizey_1 499)(<= 200 sizex_1 249))(command "text" "j" "mc" tp pause "0" 9))
          ((and (<= 450 sizey_1 499)(<= 250 sizex_1 299))(command "text" "j" "mc" tp pause "0" 8))
          ((and (<= 450 sizey_1 499)(<= 300 sizex_1 349))(command "text" "j" "mc" tp pause "0" 7))
          ((and (<= 450 sizey_1 499)(<= 350 sizex_1 399))(command "text" "j" "mc" tp pause "0" 6))
          ((and (<= 450 sizey_1 499)(<= 400 sizex_1 449))(command "text" "j" "mc" tp pause "0" 5))
          ((and (<= 450 sizey_1 499)(<= 450 sizex_1 499))(command "text" "j" "mc" tp pause "0" 4))

          ((and (<= 400 sizey_1 449)(<= 0 sizex_1 79))(command "text" "j" "mc" tp pause "0" 12))
          ((and (<= 400 sizey_1 449)(<= 80 sizex_1 149))(command "text" "j" "mc" tp pause "0" 11))
          ((and (<= 400 sizey_1 449)(<= 150 sizex_1 199))(command "text" "j" "mc" tp pause "0" 10))
          ((and (<= 400 sizey_1 449)(<= 200 sizex_1 249))(command "text" "j" "mc" tp pause "0" 9))
          ((and (<= 400 sizey_1 449)(<= 250 sizex_1 299))(command "text" "j" "mc" tp pause "0" 8))
          ((and (<= 400 sizey_1 449)(<= 300 sizex_1 349))(command "text" "j" "mc" tp pause "0" 7))
          ((and (<= 400 sizey_1 449)(<= 350 sizex_1 399))(command "text" "j" "mc" tp pause "0" 6))
          ((and (<= 400 sizey_1 449)(<= 400 sizex_1 449))(command "text" "j" "mc" tp pause "0" 5))

          ((and (<= 350 sizey_1 399)(<= 0 sizex_1 79))(command "text" "j" "mc" tp pause "0" 12))
          ((and (<= 350 sizey_1 399)(<= 80 sizex_1 149))(command "text" "j" "mc" tp pause "0" 11))
          ((and (<= 350 sizey_1 399)(<= 150 sizex_1 199))(command "text" "j" "mc" tp pause "0" 10))
          ((and (<= 350 sizey_1 399)(<= 200 sizex_1 249))(command "text" "j" "mc" tp pause "0" 9))
          ((and (<= 350 sizey_1 399)(<= 250 sizex_1 299))(command "text" "j" "mc" tp pause "0" 8))
          ((and (<= 350 sizey_1 399)(<= 300 sizex_1 349))(command "text" "j" "mc" tp pause "0" 7))
          ((and (<= 350 sizey_1 399)(<= 350 sizex_1 399))(command "text" "j" "mc" tp pause "0" 6))

          ((and (<= 300 sizey_1 349)(<= 0 sizex_1 79))(command "text" "j" "mc" tp pause "0" 12))
          ((and (<= 300 sizey_1 349)(<= 80 sizex_1 149))(command "text" "j" "mc" tp pause "0" 11))
          ((and (<= 300 sizey_1 349)(<= 150 sizex_1 199))(command "text" "j" "mc" tp pause "0" 10))
          ((and (<= 300 sizey_1 349)(<= 200 sizex_1 249))(command "text" "j" "mc" tp pause "0" 9))
          ((and (<= 300 sizey_1 349)(<= 250 sizex_1 299))(command "text" "j" "mc" tp pause "0" 8))
          ((and (<= 300 sizey_1 349)(<= 300 sizex_1 349))(command "text" "j" "mc" tp pause "0" 7))

          ((and (<= 250 sizey_1 299)(<= 0 sizex_1 79))(command "text" "j" "mc" tp pause "0" 12))
          ((and (<= 250 sizey_1 299)(<= 80 sizex_1 149))(command "text" "j" "mc" tp pause "0" 11))
          ((and (<= 250 sizey_1 299)(<= 150 sizex_1 199))(command "text" "j" "mc" tp pause "0" 10))
          ((and (<= 250 sizey_1 299)(<= 200 sizex_1 249))(command "text" "j" "mc" tp pause "0" 9))
          ((and (<= 250 sizey_1 299)(<= 250 sizex_1 299))(command "text" "j" "mc" tp pause "0" 8))

          ((and (<= 200 sizey_1 249)(<= 0 sizex_1 79))(command "text" "j" "mc" tp pause "0" 12))
          ((and (<= 200 sizey_1 249)(<= 80 sizex_1 149))(command "text" "j" "mc" tp pause "0" 11))
          ((and (<= 200 sizey_1 249)(<= 150 sizex_1 199))(command "text" "j" "mc" tp pause "0" 10))
          ((and (<= 200 sizey_1 249)(<= 200 sizex_1 249))(command "text" "j" "mc" tp pause "0" 9))

          ((and (<= 150 sizey_1 199)(<= 0 sizex_1 79))(command "text" "j" "mc" tp pause "0" 12))
          ((and (<= 150 sizey_1 199)(<= 80 sizex_1 149))(command "text" "j" "mc" tp pause "0" 11))
          ((and (<= 150 sizey_1 199)(<= 150 sizex_1 199))(command "text" "j" "mc" tp pause "0" 10))

          ((and (<= 80 sizey_1 149)(<= 0 sizex_1 79))(command "text" "j" "mc" tp pause "0" 12))
          ((and (<= 80 sizey_1 149)(<= 80 sizex_1 149))(command "text" "j" "mc" tp pause "0" 11))

          ((and (<= 0 sizey_1 79)(<= 0 sizex_1 79))(command "text" "j" "mc" tp pause "0" 12))

        )
)
;(if (= sizey_1 sizex_1)
(if (and (= sizey_1 sizex_1)(< sizex_1 600)(< sizey_1 600))
       (cond
          ((and (= sizex_1 600)(<= 0 sizey_1 79))(command "text" "j" "mc" tp pause "0" 12))
          ((and (= sizex_1 600)(<= 80 sizey_1 149))(command "text" "j" "mc" tp pause "0" 11))
          ((and (= sizex_1 600)(<= 150 sizey_1 199))(command "text" "j" "mc" tp pause "0" 10))
          ((and (= sizex_1 600)(<= 200 sizey_1 249))(command "text" "j" "mc" tp pause "0" 9))
          ((and (= sizex_1 600)(<= 250 sizey_1 299))(command "text" "j" "mc" tp pause "0" 8))
          ((and (= sizex_1 600)(<= 300 sizey_1 349))(command "text" "j" "mc" tp pause "0" 7))
          ((and (= sizex_1 600)(<= 350 sizey_1 399))(command "text" "j" "mc" tp pause "0" 6))
          ((and (= sizex_1 600)(<= 400 sizey_1 449))(command "text" "j" "mc" tp pause "0" 5))
          ((and (= sizex_1 600)(<= 450 sizey_1 499))(command "text" "j" "mc" tp pause "0" 4))
          ((and (= sizex_1 600)(<= 500 sizey_1 549))(command "text" "j" "mc" tp pause "0" 3))
          ((and (= sizex_1 600)(<= 550 sizey_1 599))(command "text" "j" "mc" tp pause "0" 2))

          ((and (<= 550 sizex_1 599)(<= 0 sizey_1 79))(command "text" "j" "mc" tp pause "0" 12))
          ((and (<= 550 sizex_1 599)(<= 80 sizey_1 149))(command "text" "j" "mc" tp pause "0" 11))
          ((and (<= 550 sizex_1 599)(<= 150 sizey_1 199))(command "text" "j" "mc" tp pause "0" 10))
          ((and (<= 550 sizex_1 599)(<= 200 sizey_1 249))(command "text" "j" "mc" tp pause "0" 9))
          ((and (<= 550 sizex_1 599)(<= 250 sizey_1 299))(command "text" "j" "mc" tp pause "0" 8))
          ((and (<= 550 sizex_1 599)(<= 300 sizey_1 349))(command "text" "j" "mc" tp pause "0" 7))
          ((and (<= 550 sizex_1 599)(<= 350 sizey_1 399))(command "text" "j" "mc" tp pause "0" 6))
          ((and (<= 550 sizex_1 599)(<= 400 sizey_1 449))(command "text" "j" "mc" tp pause "0" 5))
          ((and (<= 550 sizex_1 599)(<= 450 sizey_1 499))(command "text" "j" "mc" tp pause "0" 4))
          ((and (<= 550 sizex_1 599)(<= 500 sizey_1 549))(command "text" "j" "mc" tp pause "0" 3))
          ((and (<= 550 sizex_1 599)(<= 550 sizey_1 599))(command "text" "j" "mc" tp pause "0" 2))

          ((and (<= 500 sizex_1 549)(<= 0 sizey_1 79))(command "text" "j" "mc" tp pause "0" 12))
          ((and (<= 500 sizex_1 549)(<= 80 sizey_1 149))(command "text" "j" "mc" tp pause "0" 11))
          ((and (<= 500 sizex_1 549)(<= 150 sizey_1 199))(command "text" "j" "mc" tp pause "0" 10))
          ((and (<= 500 sizex_1 549)(<= 200 sizey_1 249))(command "text" "j" "mc" tp pause "0" 9))
          ((and (<= 500 sizex_1 549)(<= 250 sizey_1 299))(command "text" "j" "mc" tp pause "0" 8))
          ((and (<= 500 sizex_1 549)(<= 300 sizey_1 349))(command "text" "j" "mc" tp pause "0" 7))
          ((and (<= 500 sizex_1 549)(<= 350 sizey_1 399))(command "text" "j" "mc" tp pause "0" 6))
          ((and (<= 500 sizex_1 549)(<= 400 sizey_1 449))(command "text" "j" "mc" tp pause "0" 5))
          ((and (<= 500 sizex_1 549)(<= 450 sizey_1 499))(command "text" "j" "mc" tp pause "0" 4))
          ((and (<= 500 sizex_1 549)(<= 500 sizey_1 549))(command "text" "j" "mc" tp pause "0" 3))

          ((and (<= 450 sizex_1 499)(<= 0 sizey_1 79))(command "text" "j" "mc" tp pause "0" 12))
          ((and (<= 450 sizex_1 499)(<= 80 sizey_1 149))(command "text" "j" "mc" tp pause "0" 11))
          ((and (<= 450 sizex_1 499)(<= 150 sizey_1 199))(command "text" "j" "mc" tp pause "0" 10))
          ((and (<= 450 sizex_1 499)(<= 200 sizey_1 249))(command "text" "j" "mc" tp pause "0" 9))
          ((and (<= 450 sizex_1 499)(<= 250 sizey_1 299))(command "text" "j" "mc" tp pause "0" 8))
          ((and (<= 450 sizex_1 499)(<= 300 sizey_1 349))(command "text" "j" "mc" tp pause "0" 7))
          ((and (<= 450 sizex_1 499)(<= 350 sizey_1 399))(command "text" "j" "mc" tp pause "0" 6))
          ((and (<= 450 sizex_1 499)(<= 400 sizey_1 449))(command "text" "j" "mc" tp pause "0" 5))
          ((and (<= 450 sizex_1 499)(<= 450 sizey_1 499))(command "text" "j" "mc" tp pause "0" 4))

          ((and (<= 400 sizex_1 449)(<= 0 sizey_1 79))(command "text" "j" "mc" tp pause "0" 12))
          ((and (<= 400 sizex_1 449)(<= 80 sizey_1 149))(command "text" "j" "mc" tp pause "0" 11))
          ((and (<= 400 sizex_1 449)(<= 150 sizey_1 199))(command "text" "j" "mc" tp pause "0" 10))
          ((and (<= 400 sizex_1 449)(<= 200 sizey_1 249))(command "text" "j" "mc" tp pause "0" 9))
          ((and (<= 400 sizex_1 449)(<= 250 sizey_1 299))(command "text" "j" "mc" tp pause "0" 8))
          ((and (<= 400 sizex_1 449)(<= 300 sizey_1 349))(command "text" "j" "mc" tp pause "0" 7))
          ((and (<= 400 sizex_1 449)(<= 350 sizey_1 399))(command "text" "j" "mc" tp pause "0" 6))
          ((and (<= 400 sizex_1 449)(<= 400 sizey_1 449))(command "text" "j" "mc" tp pause "0" 5))

          ((and (<= 350 sizex_1 399)(<= 0 sizey_1 79))(command "text" "j" "mc" tp pause "0" 12))
          ((and (<= 350 sizex_1 399)(<= 80 sizey_1 149))(command "text" "j" "mc" tp pause "0" 11))
          ((and (<= 350 sizex_1 399)(<= 150 sizey_1 199))(command "text" "j" "mc" tp pause "0" 10))
          ((and (<= 350 sizex_1 399)(<= 200 sizey_1 249))(command "text" "j" "mc" tp pause "0" 9))
          ((and (<= 350 sizex_1 399)(<= 250 sizey_1 299))(command "text" "j" "mc" tp pause "0" 8))
          ((and (<= 350 sizex_1 399)(<= 300 sizey_1 349))(command "text" "j" "mc" tp pause "0" 7))
          ((and (<= 350 sizex_1 399)(<= 350 sizey_1 399))(command "text" "j" "mc" tp pause "0" 6))

          ((and (<= 300 sizex_1 349)(<= 0 sizey_1 79))(command "text" "j" "mc" tp pause "0" 12))
          ((and (<= 300 sizex_1 349)(<= 80 sizey_1 149))(command "text" "j" "mc" tp pause "0" 11))
          ((and (<= 300 sizex_1 349)(<= 150 sizey_1 199))(command "text" "j" "mc" tp pause "0" 10))
          ((and (<= 300 sizex_1 349)(<= 200 sizey_1 249))(command "text" "j" "mc" tp pause "0" 9))
          ((and (<= 300 sizex_1 349)(<= 250 sizey_1 299))(command "text" "j" "mc" tp pause "0" 8))
          ((and (<= 300 sizex_1 349)(<= 300 sizey_1 349))(command "text" "j" "mc" tp pause "0" 7))

          ((and (<= 250 sizex_1 299)(<= 0 sizey_1 79))(command "text" "j" "mc" tp pause "0" 12))
          ((and (<= 250 sizex_1 299)(<= 80 sizey_1 149))(command "text" "j" "mc" tp pause "0" 11))
          ((and (<= 250 sizex_1 299)(<= 150 sizey_1 199))(command "text" "j" "mc" tp pause "0" 10))
          ((and (<= 250 sizex_1 299)(<= 200 sizey_1 249))(command "text" "j" "mc" tp pause "0" 9))
          ((and (<= 250 sizex_1 299)(<= 250 sizey_1 299))(command "text" "j" "mc" tp pause "0" 8))

          ((and (<= 200 sizex_1 249)(<= 0 sizey_1 79))(command "text" "j" "mc" tp pause "0" 12))
          ((and (<= 200 sizex_1 249)(<= 80 sizey_1 149))(command "text" "j" "mc" tp pause "0" 11))
          ((and (<= 200 sizex_1 249)(<= 150 sizey_1 199))(command "text" "j" "mc" tp pause "0" 10))
          ((and (<= 200 sizex_1 249)(<= 200 sizey_1 249))(command "text" "j" "mc" tp pause "0" 9))

          ((and (<= 150 sizex_1 199)(<= 0 sizey_1 79))(command "text" "j" "mc" tp pause "0" 12))
          ((and (<= 150 sizex_1 199)(<= 80 sizey_1 149))(command "text" "j" "mc" tp pause "0" 11))
          ((and (<= 150 sizex_1 199)(<= 150 sizey_1 199))(command "text" "j" "mc" tp pause "0" 10))

          ((and (<= 80 sizex_1 149)(<= 0 sizey_1 79))(command "text" "j" "mc" tp pause "0" 12))
          ((and (<= 80 sizex_1 149)(<= 80 sizey_1 149))(command "text" "j" "mc" tp pause "0" 11))

          ((and (<= 0 sizex_1 79)(<= 0 sizey_1 79))(command "text" "j" "mc" tp pause "0" 12))

        )
)

(setq sdel (ssget "X" '((8 . "frame"))))
(command "ERASE" sdel "")
;(command "_layer" "_s" "frame" "")
;(command "_layer" "_off" "frame" "yes" "")
(command "_layer" "_s" "position" "")

(setvar "OSMODE" 4135)

(setvar "CMDECHO" echo)
(princ)
)

Koprov · 16.12.2010, 14:32

-mavlin-, спасибо! заменил у себя, но у меня так и не зарабатало

та же ошибка:
Command: _SIZE_REC_1 ; error: no function definition: VLAX-ENAME->VLA-OBJECT

АлексЮстасу · 16.12.2010, 15:43

BOUNDARY для создания замкнутого контура работает неустойчиво (если вообще срабатывает), да еще и с ошибками. См.
http://forum.dwg.ru/showthread.php?t...light=BOUNDARY и т.п.
Пока ее не исправят (уже лет 10-15 как) или не создадут альтернативу, я бы на нее не надеялся.

Do$ · 16.12.2010, 16:13

Цитата:

Сообщение от Koprov

error: no function definition: VLAX-ENAME->VLA-OBJECT

Не распознается стандартная функция VisualLisp, (vl-load-com) в коде присутствует, значит, проблема в системе, а не в программе.

Кулик Алексей aka kpblc · 16.12.2010, 18:37

Offtop: Koprov, на личное сообщение ответить не было возможности. Настраивай свой профиль

-mavlin- · 16.12.2010, 21:04

Цитата:

Сообщение от АлексЮстасу

BOUNDARY для создания замкнутого контура работает неустойчиво (если вообще срабатывает), да еще и с ошибками. См.
http://forum.dwg.ru/showthread.php?t...light=BOUNDARY и т.п.
Пока ее не исправят (уже лет 10-15 как) или не создадут альтернативу, я бы на нее не надеялся.

У меня была такая же проблема с BOUNDARY, решение было найдено. Просто вся замкнутая облать должна находиться на экране целиком, если какойто ее части не видно, то BOUNDARY не срабатывает.

_Ram_ · 07.05.2015, 15:02

Здравствуйте. Не хотел создавать новую тему - опишу проблему здесь.
Имеется архиполезный Lisp
Сам файл - во вложении.
До сегодняшнего дня исправно работал.
Но недавно, при запуске он начал выдавать в командной строке следующее:

Код:

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

Команда: sumline

Текущий коэффициент K=1
Выберите объекты: Противоположный угол: найдено: 2

Выберите объекты:
; ошибка: no function definition: VLAX-ENAME->VLA-OBJECT

И как следствие - перестал работать.

Дошло до того, что я переустановил AutoCAD 2016 (с последующей чисткой реестра) - но ничего не помогло. Раньше несколько месяцев всё работало - теперь нет.
Прошу помощи компетентного сообщества..

Кулик Алексей aka kpblc · 07.05.2015, 15:11

Что выдает, если в ком.строке ввести

Код:

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

(vl-load-com)

:?
А если

Код:

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

(vla-get-activedocument (vlax-get-acad-object))

Если вываливается нечто, переводящееся как "Невозможно получить интерфейс" - то все, аллес. Полная чистка и переустановка.

_Ram_ · 07.05.2015, 15:49

Цитата:

Сообщение от Кулик Алексей aka kpblc

Что выдает, если в ком.строке ввести

Код:

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

(vl-load-com)

:?
А если

Код:

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

(vla-get-activedocument (vlax-get-acad-object))

Если вываливается нечто, переводящееся как "Невозможно получить интерфейс" - то все, аллес. Полная чистка и переустановка.

Вот, что выдаёт

Код:

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

Команда: (vla-get-activedocument (vlax-get-acad-object))
#<VLA-OBJECT IAcadDocument 0000000033351b38>

VVA · 07.05.2015, 17:15

_Ram_, Я проверил в AutoCAD 2016 - все работает ( Windows7x64 )

_Ram_ · 07.05.2015, 17:19

Цитата:

Сообщение от VVA

_Ram_, Я проверил в AutoCAD 2016 - все работает ( Windows7x64 )

Благодарю. Значит дело в моей системе..

16.12.2010, 13:37		#1
error: no function definition: VLAX-ENAME->VLA-OBJECT Koprov Фасады Москва Регистрация: 16.12.2010 Сообщений: 3 Добрый день! Являюсь опытным пользователем autocad, но лишь начинаю осваивать lisp... в программировании знаю только основы, по профессии инженер-конструктор. Пользуюсь программкой, написанной на LISP'е... Работало без сбоев, теперь выдает сообщение в командную строчку: error: no function definition: VLAX-ENAME->VLA-OBJECT. Подскажите, пожалуйста, как быть. Что изменить или добавить в коде. Подробнее о придуманном удобстве: - при клике в замкнутую область Автокад создает в слое "frame" контур этой замкнутой области, - анализирует размеры X и Y этой области, - удаляет контур, - в зависимости от полученных x и y с шагом 50 (от 100 до 600) присваивает замкнутой области позицию (цифру в слое "position"), т.е. плитка 600600 - позиция 1 плитка 600550 - позиция 2 плитуа 600*500 - позиция 3... и т.д. Потом уже идет подсчет позиций. Сейчас же обрыв происходит на стадии "анализа" области. Т.е. он находит область, создает в слое frame ее контур и потом облом: в командную строку выводится сообщение: error: no function definition: VLAX-ENAME->VLA-OBJECT.
Просмотров: 10796

Похожие темы
Тема	Автор	Раздел	Ответов	Последнее сообщение
Печать из модели по выбору объекта	zenon	Программирование	192	04.05.2017 09:41
Express Tools	Perezz!!	AutoCAD	483	13.02.2015 10:57
Определение количества используемой памяти.	solo123	Программирование	8	22.03.2010 14:32
Как автоматизировать печать чертежа?	Serge_BN	Программирование	13	04.03.2010 14:34
Отыскание условного экстремума с помощью множителей Лаграньжа	slogos	Программирование	19	11.02.2010 12:59