[NewbieCAD]

Приветствую коллеги. При адаптации скрипта LISP написанного под AutoCAD на платформу NanoCAD 25 столкнулся с функцией (L_acad). При изучении reference_guide AutoLISP AutoCAD различных версий (2012, 2023-2025) такой функции найти не удалось. Может у кого-то был опыт работы с данной функцией, интересно какую роль она выполняет и есть ли аналоги в справочнике функций LISP для платформы NanoCAD.

[===AAA===]

Посмотри в своём АвтоКАДе (type L_acad)

Может быть - это функция из какой-то библиотеки внешней?

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

Значит объявление этой функции где-то в другом месте лежит. Или вообще это кусок на arx был написан.

[NewbieCAD]

Можно удалить тему? Задал аналогичный вопрос в теме lisp-программы для nanoCAD.

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

На всякий случай - кросспостинг очень сильно не приветствуется.

[NewbieCAD]

Сообщение от Кулик Алексей aka kpblc На всякий случай - кросспостинг очень сильно не приветствуется.

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

Коллеги из NanoCAD подсказали, что данную ф-ю L_acad создали в эпоху дилетантской борьбы с русификацией лет 10 назад.

defun L_acad( / )
(setq
;список разделителей *.ofg и *.txt-файлов
probel " "
$comm ";"
$delim ":"
$delim1 "|"
_nl ""
;;;Список глобальных переменных, используемых в command (vl-cmdf...) вместо имен командAutoCAD
_3dpoly ".3dpoly"
appload ".appload"
arc ".ARC"
Attach ".Attach"
attdef "_.-ATTDEF"
hatch "_.-BHATCH"
block "_.BLOCK"
chprop "_.CHPROP"
Circle ".Circle"
copy "_.COPY"
D "_D"
delay ".DELAY"
dim1 "_.DIM1"
dimstyle "_.DIMSTYLE"
donut ".donut"
Draft "_Draft"
_draworder ".DRAWORDER"
dxfout "_.DXFOUT"
erase "_.ERASE"
explode "_.EXPLODE"
dimh "_.HOR"
ins "_.-INSERT"
-image "_.-image"
ImageQuality ".ImageQuality"
layer "_.-LAYER"
-layout "_.-layout"
dimlea "_.LEADER"
line "_.LINE"
lintyp "_.-LINETYPE"
mins "_.MINSERT"
mirror "_.MIRROR"
move "_.MOVE"
MSLIDE ".MSLIDE"
mspace ".MSPACE"
MView ".MView"
Mvsetup ".MVsetup"
ON "_ON"
_Off "_OFF"
_open ".open"
pedit ".pedit"
pline "_.PLINE"
pspace ".PSPACE"
purge ".PURGE"
qdim ".QDIM"
regen ".REGEN"
regenall ".REGENALL"
insr "_.Rotate"
ROTATE ".ROTATE"
saveas "_.saveas"
select ".SELECT"
spline ".SPLINE"
style ".-STYLE"
text "_.TEXT"
textscr ".textscr"
transparency ".transparency" dimv "_.VER"
VPORTS ".VPORTS"
xref "_.-xref"
_A "_A"
_B "_B"
_Byla "_BYLAYER"
_C "_C"
_E "_E"
zoome "_E"
_F "_F"
textv "_F"
_Freeze "_Freeze"
_J "_J"
_L "_L"
la "_LA"
lt "_LT"
_lw "_LW"
textm "_M"
_M "_M"
_N "_N"
_New "_NEW"
_NO "_NO"
laof "_OFF"
laon "_ON"
_P "_P"
_R "_R"
textr "_R"
_S "_S"
Scale "_SCALE"
_SI "_SI"
_W "_W"
_X "_X"
x:xx "_X"
yes "_Y"
_Y "_Y"
zoom "_ZOOM"
);_setq
);_defun

Прикол в том, что эта функция просто задает псевдонимы для ACAD команд. На данный момент в ней нет практического смысла. Вопрос закрыт. Всем спасибо!