[SNIIP]

что то не могу разобраться с функцией копирования
нарисовал пластину

Код:

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

su3d:=acaddocument1.ModelSpace.AddBox(point(-1*bpr-dpr+dpr/2,-1*apr+hpr/2,hsuh/2),dpr,hpr,hsuh);

далее мне ее нужно скопировать вверх с определенным щагом... в справке не могу разобраться как пользоваться функцией .copy

знающие, подскажите пожалуйста.

[ShaggyDoc]

Шагги Дог, можно тогда вопрос, а можно в автокаде создать что то типа формочки... в автолиспе я работать то умею... но как организовать более менее понятный интрефейс для пользователя ?? похожий на обычную форму windows?

Про DCL тебе уже сказали. Но как раз в Delphi можно сделать "типа формочки" из таких элементов, которых нет в DCL. Это проще, чем с убогим DCL разбираться, а вызывать такой диалог можно из Lisp. Но для этого надо немного Delphi знать.

Про БД не согласен - лисп их "глотает" не хуже (есть там пару мелочей с кодировками и пр.), хотя на вкус и цвет конечно..., но это точно не то? с чем проблемы у AutoLisp'а.

Так он их "вслепую" глотает. Только через запросы. А попробуй-ка на AutoLisp сделать элементарный DbGrid с навигацией, отбором, редактированием и прочими штучками.

либо платно бумажный вариант

А как же ты хотел? Да на электронной версии и не научишься ничему. Вон, по Delphi сколько электронных книг. Судя по вопросам на пользу они не пошли.

[Дима_]

Сообщение от ShaggyDoc А попробуй-ка на AutoLisp сделать элементарный DbGrid с ...

стоп стоп, здесь вся проблема не в "плохом" интерфейсе с БД (он там такой-же как и дельфи - ADO'шный, а обработка представления записями с полями, или списками, в соответствующих языку подходах проблем не вызывает), а в отсутствии (в АвтоЛиспе) GUI'я. Это тоже самое - что попробуй из дельфи (не .Net'ного) - привяжи элементарный SqlDependency (естественно не сканируя через каждую секунду БД - а "как положенно") - получиться? - вряд-ли, но этож не значит что дельфи с БД не умеет работать.

[ShaggyDoc]

а в отсутствии (в АвтоЛиспе) GUI'я

Так я про это и говорю. Ничего в нем путного не сделать, особенно с БД. А то, что с БД можно как-то работать, так это понятно. Можно даже в браузере, без всяких гуёв, умудриться через адресную строку запросы выполнять. Только надо знать, что и как писать.

Но и без БД хорошие диалоги делать лучше не в DCL. См. картинки - всё вызывается из Lisp, данные обрабатываются Автокадом.

[Дима_]

Offtop: Смотря на Ваши картинки (не в первый раз уж вобщем ), меня посетила идея (хотя не претендую на эксклюзивность), ведь в БД можно добавить и текстовое поле - тело LISP функции (как вариант анонимной) создающей объект (унитазик тот-же) по заданным параметрам, при случае (когда попадется необходимость в подобном), пожалуй так и реализую - пожалуй так интересней всего получится.

[SNIIP]

ааа... прочитав все, кипит голова... выходит... выходит.. чертить на Лиспе... формочки на Delphi..
тогда вопросы снова появляются:
1) как в лиспе вызвать delphi формочку и потом, взяв из нее значения закрыть, занеся эти значения в переменные ЛИСПА
2) пока не прочитал начал разбираться с DCL... попробовал создать.. получилось... но туплю со считвынием данных с этой самой формочки
вот код:

Код:

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

(if (< (setq dcl_id (load_dialog "C:\\Users\\111\\Desktop\\äèïëîì\\glform1.DCL")) 0) (exit) )
(if (not (new_dialog "gl_prog" dcl_id)) (exit) )
(setq f (open "C:\\Users\\111\\Desktop\\äèïëîì\\nom_prof.txt" "r"))
(setq count (atoi(read-line f)))
	(start_list "prof")
                (repeat count
		(add_list (read-line f))
		  )
	(end_list)
(close f)

(action_tile "accept"  " (setq count (get_tile \"prof\"))
(setq H (atoi (get_tile \"visota\"))) ()")

(action_tile "cancel"  "(exit)" )

(start_dialog)
  
(unload_dialog dcl_id)

(setq p (* H count))

считываю в этом операторе

Код:

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

(action_tile "accept"  " (setq count (get_tile \"prof\"))
(setq H (atoi (get_tile \"visota\"))) ()")

но ничего впеременные не считывается... полюбому не там считываю... предвкушаю ваши ответы ПРОЧИТАЛ я эту часть Полищуке... там нет конкретного примера... вобщем, знающие, подскажите пожалуйста...

[ShaggyDoc]

ведь в БД можно добавить и текстовое поле - тело LISP функции (как вариант анонимной) создающей объект (унитазик тот-же) по заданным параметрам

Ну так это и реализовано. В иллюстрированном меню, которое я неоднократно показывал, хранится именно LISP-выражение. Любое. Выполняется, естественно, через

Код:

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

 (eval (read func))

. Может быть и просто штатная команда. Может быть и анонимная функция, если уж так хочется. Может быть с разными аргументами.
Только физически хранится в XML, но это та же БД. Но может быть и в удаленной БД, хоть в Интернете.

1) как в лиспе вызвать delphi формочку и потом, взяв из нее значения закрыть, занеся эти значения в переменные ЛИСПА

Читай мою книгу "САПР на базе AutoCAD - как это делается". Вот там и написано - как это делается, с примерами на Delphi, с исходниками.

Примерно так

Код:

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

 (defun ru-msg-srv-show (header text style / srv result)
  (if (setq srv (vlax-get-or-create-object "ruAxSvr.WinMsg"))
    (progn
      (setq result
             (vlax-invoke-method srv "Show" header text style)
      ) 
      (vlax-release-object srv)
      (setq srv nil)

    ) 
    (alert "Не удалось запустить ruAxSvr.WinMsg")
  ) 
  result
)

ПРОЧИТАЛ я эту часть Полищуке

Ничего ты не прочитал, потому что книги писал Николай Николаевич Полещук. Полищук тоже есть, но он про другое пишет.

[hwd]

Сообщение от ShaggyDoc Полищук тоже есть, но он про другое пишет

Offtop: А я всегда считал это очепяткой, от которой у меня глаз дёргаться начинает

[Дима_]

Сообщение от ShaggyDoc Ну так это и реализовано...

опс..
Я только изначально предпологал именно анонимную функцию, которая "только там", с запуском (apply (eval (read fn)) (здесь список параметров))но суть конечно та же.

[gomer]

SNIIP, Поле Щук, чтоб запомнить! Почитай про done_dialog и ее параметры и подумай как ее к accept и cancel прилепить, а с текстовым файлом ты совсем круто напридумывал, самому не страшно будет его потом редактировать? и забудь про абсолютные пути, у тебя же есть findfile и мозги, или нет?