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

Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Почему не работает команда LISP: (princ "Создан размерный стиль: ""М50_м"")

Почему не работает команда LISP: (princ "Создан размерный стиль: ""М50_м"")

Ответ
Поиск в этой теме
Непрочитано 25.11.2021, 08:40 #1
Почему не работает команда LISP: (princ "Создан размерный стиль: ""М50_м"")
МишаИнженер
 
Регистрация: 14.12.2008
Сообщений: 754

Объясните пожалуйста почему не работает команда LISP:
(princ "Создан размерный стиль: ""М50_м"")
Надо чтобы название размерного стиля выводилось в кавычках!
Просмотров: 629
 
Непрочитано 25.11.2021, 08:54
1 | #2
koMon


 
Блог
 
Регистрация: 26.09.2017
Сообщений: 1,284


(princ "Создан размерный стиль: \"М50_м\"")
koMon вне форума  
 
Непрочитано 25.11.2021, 11:27
1 | #3
===AAA===


 
Регистрация: 15.08.2005
г. Норильск
Сообщений: 245


или

(princ "Создан размерный стиль: \42М50_м\42")
__________________
Счастливо, Алексей!
===AAA=== на форуме  
 
Автор темы   Непрочитано 25.11.2021, 13:17
#4
МишаИнженер


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


Спасибо, теперь удалось доделать до культурно-общительного типа функцию создания размерного стиля:
Код:
[Выделить все]
(defun C:CDS ()
;Задание размерных переменных.
;для загрузки команды используй команду APPLOAD
(setvar "cmdecho" 0)
(command "_osnap" "_none")
(command "_snap" "_off")
(setvar "DIMUNIT" 2) ; Десятичная система единиц
(setvar "DIMDEC" 2) ; Число знаков после запятой
(setvar "DIMTXSTY" "STANDARD") ; Стиль размерного текста
(setvar "DIMTXT" 2.5) ; Высота размерного текста
(setvar "DIMTAD" 1) ; Текст размещается над размерной линией
(setvar "DIMGAP" 1) ; Текст выше размерной линиии на 1 единицы
(setvar "DIMTIH" 0) ; Размерный текст параллелен размерной линии (внутри)
(setvar "DIMTOH" 0) ; Размерный текст параллелен размерной линии (снаружи)
(setvar "DIMTMOVE" 2) ; Размерный текст перемещается свободно
(setvar "DIMTIX" 1) ; Размерный текст всегда размещается между выносными линиями
(setvar "DIMTOFL" 1) ; Размерная линия всегда рисуется между выносными линиями
(setvar "DIMBLK" "_Oblique") ; Вместо стрелок - засечки ("Oblique")
(setvar "DIMASZ" 2) ; Размер стрелки (засечки)
(setvar "DIMDLE" 1.25) ; Размерная линия выступает за выносную на 1.25 единицы
(setvar "DIMEXO" 1.25) ; Смещение выносных линий относительно заданных точек равно 1.25 единиц
(setvar "DIMEXE" 1.25) ; Выносные линии выступает за размерные на 1.25 единицы
(setvar "DIMEXE" 1.25) ; Выносные линии выступает за размерные на 1.25 единиц
(setvar "DIMSCALE" 50)
(setvar "DIMLFAC" 0.1)
(command "_DIMSTYLE" "_SAVE" "М50_м")
(princ "Создан размерный стиль: \"М50_м\"")
(princ)
)
Единственный недостаток, это остается включенным "подавление" хвостовых нулей в размерном стиле.
Как мне отключить подавление хвостовых нулей в размерном стиле?
Вложения
Тип файла: lsp CreateDimStyle.lsp (1.4 Кб, 2 просмотров)
МишаИнженер вне форума  
 
Непрочитано 25.11.2021, 13:55
1 | #5
===AAA===


 
Регистрация: 15.08.2005
г. Норильск
Сообщений: 245


Не оно?

https://help.autodesk.com/view/ACD/2...7-2C6C5AC7B8F0
__________________
Счастливо, Алексей!
===AAA=== на форуме  
Ответ
Вернуться   Форум DWG.RU > Программное обеспечение > Программирование > LISP > Почему не работает команда LISP: (princ "Создан размерный стиль: ""М50_м"")

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

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


Похожие темы
Тема Автор Раздел Ответов Последнее сообщение
Почему не работает выражение? Jonas Программирование 3 03.03.2014 15:55
Почему не работает нормально концептуальный стиль для 3Д модели Niko777 AutoCAD 4 29.11.2013 15:10
При включенном F8 (орто) не работает команда "перенести" по горизонтали. ПОчему?? sizhik AutoCAD 7 23.04.2012 13:57
Почему в макросе команда работает а в лисп-выражении не известна ? Jonas LISP 10 14.01.2012 16:55
Команда автокада блокирует выдачу ф-ии princ batmax Программирование 4 16.09.2010 10:27