Schöck
| Правила | Регистрация | Пользователи | Поиск | Сообщения за день | Все разделы прочитаны |  Справка по форуму | Файлообменник |

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > LISP. Вывести переменную на чертеж внутри круга по клику мыши

LISP. Вывести переменную на чертеж внутри круга по клику мыши

Ответ
Поиск в этой теме
Непрочитано 12.10.2020, 15:52 #1
LISP. Вывести переменную на чертеж внутри круга по клику мыши
Arctik.by
 
Регистрация: 12.10.2020
Сообщений: 2

Здравствуйте. Уточню сразу: опыта в лиспе, как и в автокаде в целом, очень мало, поэтому решил попросить помощи у вас.
Ситуация такая: есть лисп-файл (который вешаю на кнопку), в нем из базы вытягивается переменная (число). Необходимо, чтобы эта переменная проставлялась на чертеже по левому щелчку мыши (так же она должна быть обведена в небольшой круг). Через команду "command" (см. код ниже) получилось вывести эту переменную, но только предварительно указав координаты ("150,50"). Помогите сделать так, чтобы после нажатия на кнопку (на которую я повесил данный лисп), переменная выводилась на чертеж внутри круга по нажатию на левую клавишу мыши.
P.S. SDOC_ID, srGetFieldValue, srCloseDocument это на API Search ПО Интермех.
Код:
[Выделить все]
 
(defun c:Izm ()
(if (= cadm_search 1) (progn
    (setq SDOC_ID (srGetDocID_ByFilename (strcat (getvar "DWGPREFIX") (getvar "DWGNAME")))) ;получаем doc_id по имени файла
    (if (= SDOC_ID "-1") (alert "\nДокумент не зарегистрирован в Search\n")) 
    (if (/= SDOC_ID "-1") (progn
;делает текущим документ с инвентарным номером DocID
        (srOpenDocument SDOC_ID)
;получаем значение параметра в виде списка		
        (setq ChangeNumber (srGetFieldValue "Изменение"))
		(princ ChangeNumber)
;закрывает текущий документ, открытый процедурой OpenDocument
		(srCloseDocument) 
		(setq NumberIzm (car ChangeNumber))
		(command "_TEXT" "150,50" "50" "0" NumberIzm)
                          )
	)
                      )
)
)
Просмотров: 877
 
Непрочитано 12.10.2020, 17:06
1 | #2
koMon


 
Регистрация: 26.09.2017
Сообщений: 843


вместо строки 14
Код:
[Выделить все]
 (command "_TEXT" (setq circle_center (getpoint "\nЦентр окружности: ")) "50" "0" NumberIzm)
(command "_circle" (mapcar '+ circle_center (mapcar '(lambda (coordinate) (/ coordinate 2.0)) (cadr (textbox (entget (entlast)))))) "60") 
koMon вне форума  
 
Автор темы   Непрочитано 13.10.2020, 08:50
#3
Arctik.by


 
Регистрация: 12.10.2020
Сообщений: 2


koMon, Большое спасибо за оперативную помощь, все работает
Arctik.by вне форума  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > LISP. Вывести переменную на чертеж внутри круга по клику мыши

Vetcad
Размещение рекламы
Опции темы Поиск в этой теме
Поиск в этой теме:

Расширенный поиск


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Помогите уменьшить размер файла DWG AndroiD AutoCAD 1937 14.12.2020 15:42
Lisp. Получение имени замкнутой полилинии кликом внутри контура. viequt LISP 8 14.12.2015 00:25
Можно ли посредством lisp вставить блок с уже заданным значением атрибута, который необходимо выбрать(блок с атрибутом) например из базы данных чертеж DMK666 LISP 5 10.04.2013 18:57
в Delphi вывести чертеж из Автокада и графики и таблицы из Маткада serg_art Программирование 33 26.02.2013 09:49
Как можно открыть чертеж через LISP на котором стоит пароль? ivspec LISP 7 10.02.2006 17:36