gizmo_zx

Доброго дня. В АС можно вставить блок из другого файла с переопределением через "Центр управления" (_adcenter). Можно ли NC ? Что-то не нашел, команда есть (_adcenter) - но уж очень обрезанная.

Всем огромное спасибо. Работает как надо

ошибка: неверный тип аргумента: INT: CONS в строке : (cons 10 tochka ) ;точка вставки с DXF-кодом 10 добавлено через 3 минут Я в lisp вообще никак. После Autocad правлю, чтоб работало, а тут одни грабли, а я как слепой. добавлено через 5 минут В Acad не надо было преобразовывать, точка бралась с 3d координатами

(defun C:raschdu_t (/) (vl-load-com) (setq tochka (getpoint "\n Точка вставки?")) (setq d (list ;формируем список с параметрами '(0 . "MTEXT") '(100 . "AcDbMText") '(10 . tochka ) ;точка вставки '(40 . 2.5) ;высота '(71 . 5) ;Способ выравнивания '(1 . "test") ; строка )) (entmake d) (princ) ) (prompt "\n\t***\tПрограмма загружена.\n\t***\t Команда для выполнения: raschdu_t\t***") (princ) NanoГад говорит: ошибка: неверный тип аргумента: 2D/3D point: TOCHKA добавлено через 1 минуту Непонятно почему не принимает запрошенную точку

Бодрого дня. Подскажите как поправить lisp из Autocad, в Nano не взлетел (defun C:raschdu_t (/) (vl-load-com) (setq tochka (getpoint "\n Точка вставки?")) (setq tochka3 (mapcar '+ tochka '(-8.5 -19.1 0.0))) (command "_.-mtext" tochka3 "_j" "_tc" "_l" "_e" "" tochka3 "Вывод текста" "" ) ;_ end of command (princ) ) (prompt "\n\t***\tПрограмма загружена.\n\t***\t Команда для выполнения: raschdu_t\t***") (princ) Ошибка "Неправильный ключ или команда. Введите

Можно, наверно, через поля замутить. В Mleader пихать поле с ссылкой на блок (атрибут). Предположительно в СПДС это так реализовано?

код на VB.net работает, выноска создается. Остался вопрос как добраться атрибутов блока и привязаться к ним. Вроде через интерфейс это доступно, а как програмно наковырять? Работает в голой платформе без СПДС

Хотелось бы обойтись без СПДС. Мне бы хотелось некоторые действия с атрибутами поделать. т.е. если блок "имя1" то сделать выноску три строки (артрибут1 , 2 и3, если "имя2" две строки (артрибут1 , 2)

Бодрого дня. Нужен пример VBA или Vb.net для создания многострочной выноски, где текст строки мультивыноски привязывается к атрибуту выбранного блока. При изменении атрибута блока, текст выноски меняется. Руками делаю так, создать мультивыноску, щелкнуть по строчке взять с чертежа, указываю блок, выбираю что взять из свойств блока.

да спасибо. Это работает как надо.

Если влепить: ThisDrawing.ModelSpace.Layout.PlotType = "4" а не acWindow Начинает работать с рамкой. Но печатает "предыдущую" настройку, т.е. после отработки макроса, нажимаю настройку печати, Nanocad говорит: "Внимание! настройки печати были изменены в другой программе. Применить их вместо настроек печати nanoCad" Я так понимаю, применение макроса меняет настройки, но не может их применить. Как его заставить их применить?

В чем проблема, я так и не понял. В Acade код работает как надо. Причем в Acade не зависит от последовательности: 'ThisDrawing.ModelSpace.Layout.PlotType = acWindow 'выделение рамкой. ThisDrawing.ModelSpace.Layout.SetWindowToPlot t1, t2 Или наоборот. В Nanocade область печати все равно стоит в "экран"

Все равно соскакивает на "экран" ThisDrawing.ModelSpace.Layout.PlotType = acExtents - закоментил Utility.TranslateCoordinates(p1, acWorld, acDisplayDCS, False) - координаты перевел но на предпросмотре вижу, что печатается экран

Хотел по быстрому перевести на vb.net вот это http://engineerbox.ru/2011/08/24/autocad-pechat-iz-modeli/ Макрос нормально работал в Autocad, с переездом на Nanocad все грустно. На Vb.net пока ничего нет, сам хотел пример глянуть. (сам то я вовсе не программист) На VBA для Excel нарыл вот чего: Вроде как подойдет для меня. Только выставляется в настройках печати - Область печати = экран Выставляю рамку, запускаю код. Печатаю в ПРФ , получаю границы экрана , а не рамку. Захожу в настройки печати , а там действительно экран. Код рабо

Бодрого дня. Код взял отсюда http://fordewind.org/wiki/doku.php?id=автомат_листы К сожалению не завелся Подозреваю, что в : Function CreateLayout() Set PSVport = ThisDrawing.PaperSpace.AddPViewport(ptc, XSize, YSize) в ptc= empty На всякий случай сами файлы Plot0.xls Без имени0.dwg