brainstorm 发表于 2024-2-8 11:43:01

图案填充窗体

      
#region 显示填充窗体:cad2020 Ok
      [DllImport(
            "acad.exe", CharSet = CharSet.Auto,
            CallingConvention = CallingConvention.Cdecl,
            EntryPoint = "?acedHatchPalletteDialog@@YA_NPEB_W_NAEAPEA_W@Z")]

      private static extern bool acedHatchPalletteDialog(
            string curPattern, bool showCustorm, out IntPtr newPattern);

      public static bool ShowHatchPalletteDialog(
            string curPattern, bool showCustorm, out string newPatternName)
      {
            newPatternName = "";
            bool sucess = acedHatchPalletteDialog(
                curPattern, showCustorm, out IntPtr outPtr);
            if (sucess)
                newPatternName = Marshal.PtrToStringAuto(outPtr);
            return sucess;
      }

      #endregion 显示填充窗体

atone 发表于 2024-2-12 13:25:34

新年好，又发作品啦
页: [1]
查看完整版本: 图案填充窗体