LNB а не Центр AABB выделенных примитивов как базовая точка при коппи…

…повании в клипбоард без точки вставки
zamtmn · Sep 12, 2024 · f5c3bfd · f5c3bfd
1 parent 8057e6b
commit f5c3bfd
Showing 1 changed file with 1 addition and 1 deletion.
diff --git a/cad_source/zcad/commands/uzccommand_copyclip.pas b/cad_source/zcad/commands/uzccommand_copyclip.pas
@@ -118,7 +118,7 @@ function CopyClip_com(const Context:TZCADCommandContext;operands:TCommandOperand
 
  if FoundEnts then begin
  ReCreateClipboardDWG;
- m:=CreateTranslationMatrix(-(SelectedAABB.RTF+SelectedAABB.LBN)/2);
+ m:=CreateTranslationMatrix(-SelectedAABB.LBN{-(SelectedAABB.RTF+SelectedAABB.LBN)/2});
  pobj:=drawings.GetCurrentROOT.ObjArray.beginiterate(ir);
  if pobj<>nil then
  repeat