Добрый день! Подскажите пожалуйста какой-нибудь лисп для подписи высот точки. (желательно чтобы стиль текста был тот, который активный) Спасибо.
Лови Код: (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))
сервис-autolisp-приложения : выбрать файл и нажать загрузить.В строке команд появится надпись,какая команда запускает данный лисп.
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))
я все собрал в лисп, назвал его p_h пишу в ком. строке. : appload выбираю p_h загрузить ну и где команда вызова?
загрузи вот этот лисп--и там будет меню вызова. а здесь где то в этой строке,но я пока не понял,какой фрагмент. (defun c:p_h ( / H SSET)
_appload - это не запуск программы, а только загрузка программы в Автокад. Вероятно, процесс _appload - это только проверка лиспа на состоятельность, и постановка Автокада в известность, что этой программкой хотят пользоваться. Для запуска нужно в комстроке ввести имя нужной программы. Например, p_h.