[Florian Geyer]

Всем привет!

Скажите, пожалуйста, кто, вдруг, помнит!
Готов поклясться на "Библии пользователя AutoCAD" Элен нашей Финкельштейн, что есть переменная окружения, хранящая текущий системный десятичный разделитель (Windows).
Никак и нигде не могу найти: и поиск здесь на Форуме, и просто в Сети ничего не даёт.

А оно точно было - видел. Но пока не приходилось использовать - вот нигде в заначке и не сохранилось...

[Кулик Алексей aka kpblc]

Клянись, поскольку ACAD для разделителя целой и дробной всегда использует точку, независимо от настроек ОС

[Florian Geyer]

Ну и что?
При чём тут "внутренние правила" AutoCAD? Я про реестр. Я про Windows.

Не понял смысла Вашего сообщения.

[Кулик Алексей aka kpblc]

Сообщение от Florian Geyer Ну и что? При чём тут "внутренние правила" AutoCAD? Я про реестр. Я про Windows. Не понял смысла Вашего сообщения.

А что тема делает в разделе AutoCAD? Кто ее сюда поместил?

[Florian Geyer]

1. Вопрос про получение информации из реестра LISPом в AutoCADе путём (GETENV ...).
2. Поместил я.

[Автон]

Код:

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

 (vl-registry-read "HKEY_CURRENT_USER\\Control Panel\\International" "sDecimal")

[ShaggyDoc]

Переменной окружения нет. Но есть DecimalSeparator Property (ActiveX)
Добраться до него легко в любой среде программирования.
Можно и в Автокаде через VBA. Можно и через VisuakLisp. Пример

Код:

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

 (vl-load-com)
(defun c:Example_DecimalSeparator()
    ;;; 寸法を作成して寸法値の小数点区切りを変更するサンプル
    (setq acadObj (vlax-get-acad-object))
    (setq doc (vla-get-ActiveDocument acadObj))
     
    ;;; 寸法の定義
    (setq AngleVertex (vlax-3d-point 0 0 0)
          FirstPoint (vlax-3d-point 2 2 0)
          SecondPoint (vlax-3d-point 1 4 0)
          TextPoint (vlax-3d-point 6 6 0))
 
    ;;; 寸法を作成
    (setq modelSpace (vla-get-ModelSpace doc))
    (setq DimPointAngularObj (vla-AddDim3PointAngular modelSpace AngleVertex FirstPoint SecondPoint TextPoint))
     
    ;;; 精度を設定
    (vla-put-TextPrecision DimPointAngularObj acDimPrecisionFour)
     
    (vla-ZoomAll acadObj)
 
    ;;; 既定値を読み込み
    (alert (strcat "現在の 10 進数の区切り記号に設定 : [" (vla-get-DecimalSeparator DimPointAngularObj) "]"))
 
    ;;; オブジェクトの 10 進数の区切り記号プロパティを変更。
    (setq oldSeparator (vla-get-DecimalSeparator DimPointAngularObj))
    (setq newSeparator (getstring "\n区切り記号を入力 : "))
     
    (if (/= newSeparator "")
        ;;; 新しい小数点の記号、1 文字だけを使用すること
        (vla-put-DecimalSeparator DimPointAngularObj newSeparator)
    )
     
    (vla-Regen doc acAllViewports)
     
    ;;; 読み込み
    (alert (strcat "新しい 10 進数の区切り記号に設定 : [" (vla-get-DecimalSeparator DimPointAngularObj) "]"))
)

Тут комментарии и строки по-нашему, но поймете. Все равно ведь скоро придется изучать.

Т.е. разделитель получаем из (vla-get-decimalseparator vla-object )
Но вот vla-object может быть из списка Dim3PointAngular, DimAligned, DimAngular, DimArcLength, DimDiametric, Dimension, DimOrdinate, DimRadial, DimRadialLarge,DimRotated.

Т.е. надо иметь созданный размер. Это не очень удобно.

Когда мне это надо было, я создал свой COM-сервер на Delphi со всяческими переменными Windows и брал всё из него одним действием. Да наверняка такой есть и в самой Windows, а как из него читать можно посмотреть из примеров на VBA.

Ну а в ObjectArx или .Net это вообще элементарно.

[Florian Geyer]

ЖУТЬ!
Спасибо за науку!

Но что-то мне кажется, это не Виндовсовский-то разделитель!
Раз уж мы его получаем через ACAD-OBJECT - и через его DOC...

[ShaggyDoc]

Сообщение от Florian Geyer Но что-то мне кажется, это не Виндовсовский-то разделитель! Раз уж мы его получаем через ACAD-OBJECT - и через его DOC...

Ну а ACAD-OBJECT получает его из Windows, только это скрыто в его кишочках.
Но затем применяет его к размерам, да еще с возможностью изменения.
Вот этот измененный DecimalSeparator будет только внутри Автокада и для конкретного объекта.

На мой взгляд это излишне. Но есть программисты сторонники "полной свободы". Они и в некоторых электронных таблицах сделали возможность устанавливать разделитель для каждой ячейки. Они "хотели как лучше", но получилось "как всегда" - из-за этого возникает много ошибок.

Сообщение от Автон (vl-registry-read "HKEY_CURRENT_USER\\Control Panel\\International" "sDecimal")

Можно и так, это проще, но тут могут быть проблемы с доступом. Хоть HKCU и должен быть доступен всегда, но бывают нюансы. Лучше чтобы действующая Win отдавала данные через свой API.

Потому в разных средах разработки данные стараются брать не из реестра, а из модуля доступа к WinApi.

[Florian Geyer]

Ух-х-х...
Гениально! Спасибо, маэстро! Ответ в самую точку!

Честно, мерещилось, что получить его как-то проще - но мог и ошибиться. Главное - помнил, что можно.
Но, поскольку это работает и получает именно то, что надо - спасибо Вам огромное!

А может, было не через ENTGET, а как-то через WScript.Shell? Опять путаю?

[ShaggyDoc]

Сообщение от Florian Geyer как-то через WScript.Shell

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

Вот этим лучше не пользоваться. Это же дыра в безопасности, позволяющая выполнять посторонние скрипты. С чужого сайта или вложенные в email.

Нормальный сисадмин запрещает выполнение этих процессов.

[Florian Geyer]

Уважаемый ShaggyDoc! Ещё раз спасибо за науку!
Получается, что WScript.Shell может просто (неожиданно!) не сработать на каком-то произвольном компьютере, на котором нормальный системщик "перекрыл кислород"!
Не подозревал!..

[ShaggyDoc]

Сообщение от Florian Geyer Получается, что WScript.Shell может просто (неожиданно!) не сработать на каком-то произвольном компьютере, на котором нормальный системщик "перекрыл кислород"! Не подозревал!..

Во времена DOS были популярны bat-файлы, с помощью которых безо всяких систем программирования можно было выполнять последовательности всяких полезных действий.

Когда перешли на Win95 в Майкрософт решили, что надо дать и там подобный инструмент. Да еще с потрясающими возможностями. Но он был рассчитан на законопослушных пользователей, применяющих на своем компьютере.

Когда массово стали использовать Интернет нехорошие люди быстро сообразили, что скрипт можно встроить и в страницу, причем скрипт будет выполняться на компьютере пользователя. А IntenetExplorer включая версию 5 с радостью выполнял любые скрипты. Да хоть диск отформатировать.

И почтовые клиенты от Майкрософт тоже по умолчанию открывали вложения без спроса. Ну а для 12-летних "кулхацкеров" даже в журналах публиковали примеры.

Конечно, дыры в защите постепенно закрывались (делая новые), но творчество масс остановить нельзя. До сих пор приходят письма, в которые вложен какой-нибудь vbs с открытым текстом.

Поэтому правильные сисадмины блокируют выполнение WScript. Но ведь выросло и новое поколение, не помнящее об этом. Да и теперь у каждого свой компьютер есть.

А в своих программах WScript.Shell не стоит использовать, хотя иногда шаловливые ручки так и тянутся.

[Florian Geyer]

Уважаемый ShaggyDoc!
Спасибо! Принято к сведению! Постараюсь не хотеть применять! ; ))

----- добавлено через ~4 мин. -----
Уважаемый коллега Автон!

Прошу у Вас прощения за невнимательность и тормознутость!
Я обрадовался Вашему примеру, думаю, именно его и имел в виду (раз уважаемое сообщество - по крайней мере пока - не вспомнило вариант с GETENV'ом)!
И именно его я и имплантирую в свой код!

Спасибо Вам за своевременную и попавшую в точку помощь!