[Kirill_Ja]

Команда QDIM это быстрый размер.
Что-то не хочет он работать из-под лиспа.

Вызов такой:

Код:

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

 
(sssetfirst nil ss);выбор образмериваемых примитивов
(vl-cmdf "_qdim" \)
;Еще пробовал
(vl-cmdf "_qdim" pause)
(vl-cmdf "_qdim" pos) ;(точка с координатами)

Может, ему поможет если симулировать тырк мышкой в область рисования? Может есть еще какой умный способ?

[5hev]

Код:

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

 (vl-cmdf "_qdim" (ssget) "" (getpoint))

Вроде все просто...

[Kirill_Ja]

Какой-то сбой.
При попытке сделать ручками из командной строки все хорошо.
Из приложения - схлопывает AutoCad даже без аварийного сохранения.

Код:

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

 _

1_$ ss
<Selection set: c>

;Набор

_1_$ (mapcar (function (lambda (x) (cdr (assoc 0 (entget x))))) (mapcar 'cadr (ssnamex ss)))
("LINE" "LINE" "LINE" "LINE" "LINE" "LINE" "LINE" "LINE" "LINE" "LINE" "LINE" "LINE" "LINE" "LINE" "LINE" "LINE" "LINE" "LINE" "LINE" "LINE" "LINE" "LINE" "LINE" "LINE" "LINE" "LINE" "LINE" "LINE" "LINE" "LINE" "LINE" "LINE" "LINE" "LINE" "LINE" "LINE" "LINE" "LINE" "LINE" "LINE" "LINE" "LINE" "LINE" "LINE" "LINE" "LINE" "LINE" "LINE" "LINE")

;Все примитивы в наборе - линии

_1_$ position
(78739.6 -43255.8 0.0)

;3д-точка

_1_$ 

(vl-cmdf "_qdim" ss "" position)

;Выдает ошибку редлагает или сразу закрыть приложение или поискать решение в инете
;(ясно же , что не найдет он там ничего)

Может я не так делаю что?

AutoCad Arhitecture 2013, Win7 Ultimate

[gomer]

на обычном автокаде все нормально работает