Подписать отметки точек.

Добрый день! Подскажите пожалуйста какой-нибудь лисп для подписи высот точки. (желательно чтобы стиль текста был тот, который активный) Спасибо.

 

Лови

Код:

(defun c:p_h ( / H SSET)
(if(and
(vl-cmdf "_.qselect" "")
(setq sset (ssget "_P" '((0 . "POINT"))))
(setq h (getreal "\tКакая высота текста\t\t")))
(mapcar(function(lambda  (x)
(entmake(list '(0 . "TEXT")
(assoc 10 (entget x))(cons 40 h)
(cons 1 (rtos (cadddr (assoc 10 (entget x))) 2 3))))))
(vl-remove-if (function listp)
(mapcar (function cadr) (ssnamex sset)))))
(princ))

 

Помоги пожалуйста собрать этот лисп в файл, я не особо умею их создавать.

 

Всё, разобрался, спасибо.

 

Выделяешь весь мой код, копируешь, открываешь блокнот, всавляешь туда, сохраняешь с именем p_h.lsp

 

во! давно бы так! а то не поймешь-что за иероглифы)))))

 

ну, а запускать как?

 

сервис-autolisp-приложения : выбрать файл и нажать загрузить.В строке команд появится надпись,какая команда запускает данный лисп.

 

А можно чуть подробнее последнее сообщение. В ACad 2010 не получается.

 

http://exchange.autodesk.com/autoca.../WS1a9193826455f5ffa23ce210c4a30acaf-5176.htm


или команда _appload

 

Спасибо, не заметил последний вопрос "Какая высота текста". Все работает.

 

не знаю, у меня через _appload все запускается, а в командной строке после загрузки ничего не пишется. мож кто знает как так?

 

Повторно вводишь ту команду,которая тебе "открылась" и загружается программа ,прописанная в лиспе,в данном случае геокалькулятор.Автокад 2009.

--- Сообщения объединены, 15 авг 2013, Оригинальное время сообщения: 15 авг 2013 ---

В указанном лиспе по высотам,не всплывает команда вызова.Теперь я понял,о чем был вопрос.

Почитал здесь http://dwg.ru/art/8.Все равно не получается запустить.Хм.Мало кофе с утра??

 

блин, прикалываетесь?
пост #2
Код:
(defun c:p_h ( / H SSET)
(if(and
(vl-cmdf "_.qselect" "")
(setq sset (ssget "_P" '((0 . "POINT"))))
(setq h (getreal "\tКакая высота текста\t\t")))
(mapcar(function(lambda (x)
(entmake(list '(0 . "TEXT")
(assoc 10 (entget x))(cons 40 h)
(cons 1 (rtos (cadddr (assoc 10 (entget x))) 2 3))))))
(vl-remove-if (function listp)
(mapcar (function cadr) (ssnamex sset)))))
(princ))

 

(defun c:p_h ( / H SSET) какой фрагмент из этого запускает сам лисп,после его установки? p_h ??

 

я все собрал в лисп, назвал его p_h
пишу в ком. строке. : appload


выбираю p_h загрузить



ну и где команда вызова?

 

загрузи вот этот лисп--и там будет меню вызова.
а здесь где то в этой строке,но я пока не понял,какой фрагмент. (defun c:p_h ( / H SSET)

 

спс

 

_appload - это не запуск программы, а только загрузка программы в Автокад. Вероятно, процесс _appload - это только проверка лиспа на состоятельность, и постановка Автокада в известность, что этой программкой хотят пользоваться.
Для запуска нужно в комстроке ввести имя нужной программы. Например, p_h.

 

Извиняюсь, вид в ком. строке: _p_h