OpenDCL Forums Archive

Boards / Runtime/AutoLISP / Topic 2546

Help, on the modal dialog box under the progress of the issue of synchronization

Started by XDCAD · 2017-12-06 06:01 UTC · 3 replies · SMF topic #2546

XDCAD 2017-12-06 06:01 UTC
Hello everyone, how to make the LABEL control's CAPTION and progress bar synchronized and clearly displayed。

Demo see animation GIF



(defun c:tt (/)

  (setq XD-ODCL-DATA-PURGEALL '

	("YWt6A9ILAABzerQKBuKjKEUxKj9qgJB0tXapuh5yZVVsLjYKc3XS/kh679b+XiwuxMXp6VLxXlTP" "z8rOz8yMWYYyArusNEU1dQF+99zrNtzMAE31CZBivFB7d/cJTQmxSZkPseJHoaIFzs4v9tmu9EjK"

	 "XfMtXqjdEGB/DLZd93tSHOCMRtCN6Tv4RjfKMhfopEIbcb65VN7kgaTDT06QY5Y8WX3Zlq47jWo5" "7EZeFNmqt3kILKgNY+ITHXRHyg5Qs+dQsOcKdEQc6Nb9aNOKt0/zWt17yrNkEUNBH1wwrlEz1/sN"

	 "Zx3XOT6VSgud1v7RzRuufO7+jG69mLu5KogP0/UiKXSUQxSBF0gzqnajXenEHSgQ0Gt4KnFvofrg" "sCKDb4bYvsuoASO5hVKKyWLitp9KuK61q3MNih92XWY6fYGZDv8dZDViZxC3ShAN05TL8xGMA1eO"

	 "Vf8hdoI1ms1SDqINjxElYWM2ozsrJiIj4fgT9YNw6285VltcAQ5CiRHT/BTIxyHbmhWFfXjg6sVi" "YR7vzFIuAOUD8D/7S+4FIm8YJKpxJ4Nl852w3d5UuzQCL70Z3Nng9WRAa4gxegBSjl3/1TvCR1lB"

	 "AW4pLrFPG7Tv2aK1hVqqy67Rxl2NfLH4lYioCiMY+kBRjiUl2SsTUQlCvPsE8/H1RGFohB/1xVfX" "BRyj6dNA35NJEkDYcKE6ANUfI/SAIbpAAMmVS4ghvaBQnDifASqaBbecMWSJddBzdkJWjjv/yRu6"

	 "VrCP6mb7FGxFYR82zRi2QHTA/1laPRQ4s3fB+mCingP3OuOlfylcIkbxUyL2c9/BYmFwxxniiFbg" "ERmz1+i9cm11NMy4noH7S5smjD6aZx+3TCLo0t5KNfKDYMyaQCLoMh9pJnyx0/G15FTJrTRPGP+9"

	 "qbMhHR7tGvJBEsDtWAdRAFeL5lHbjOL3wjHKRLRfLe/h3LyVfAXg9QF2g+S+zM01CiZNCA6QuEJJ" "gUTVcUowJhLgCTrilYziQF3mwvljp3PJXbOFA8lFjOarlbEZr98Ppd/XzFnEwIB8WGkYiw=="

	)

  )

  (defun c:XD-P-FORM#OnInitialize (/)

    (dcl-Control-SetValue XD-P-1 0)

  )



  (defun c:XD-P-OK#OnClicked (/)

    (dcl-Control-SetMaxValue XD-P-1 (length dwglst))

    (setq i 1)

    (foreach n dwglst

      (dcl-Control-SetCaption XD-P-TEXT n)

      (dcl-Control-SetValue XD-P-1 i)

;      (dcl-Control-SetCaptionMinute XD-P-1 (itoa i))

      (princ)

      (setq n 1000000)

      (while (> n 0)

	(setq n (1- n))

      )

      (setq i (1+ i))

    )

  )

  (setq dwglst '("1111111111.dwg" "222222222222.dwg"

	 "3333333333333.dwg" "444444444444444.dwg"

	 "55555555555555.dwg" "6666666666666666.dwg"

	 "7777777777.dwg" "888888888888.dwg"

	 "9999999999.dwg"

	)

  )

  (dcl-project-import XD-ODCL-DATA-PURGEALL "123456")

  (dcl-Form-Show XD-P-FORM)

  (princ)

)
Attachments
XDCAD 2017-12-06 12:39 UTC
Text problem has been solved，used (dcl-control-redraw ......)，

However, the progress bar and text are not synchronized problem exists, see figure。

When the number of 6, the progress bar has not yet started, how to synchronize?


(defun c:tt (/)

  (setq XD-ODCL-DATA-PURGEALL '

	("YWt6A/MdAAD6fnL+BuKTJzMRJTtqQ1ET4qmq3tTWFPomOhQ0Xa8+kqa6/zMqNHvKX98arxuD78rb" "ECzrfi9Jzh1/dSi+/OG+2brpJgh7xVInzh4nd3QSduv++AXRY8HnbZlDRQga9g6L4kcNGbiJs6IN"

	 "GbCKrrjD8yp4JzJe+UJg+R4D8FDd/EzUZr0Lor7M6mmOzIJV31YGMq7U6tD3y1SbQH4Vfb7egquQ" "XWuVQPdXahqe8grm7JhnB7h6KXqb2iruYVI2J5VY2wg8IlYdIpSMLE1bC5iw+PAmbEpXU8ys2VIQ"

	 "8rcWaxclzKAkwRZdUDTBwuq429AWU4vXNpXCpmiu8QreMLR5Zjxm5o3WRaABOKCL+MIpeJ/JRsIX" "10l3sR1B4jGGRPyzjBNnToJ+10Ryqo2OEbzRbEBii8HVnYM+iKlCQiq4bcb+rYwIDYziv1KwHXi5"

	 "mpFs4OuZdCiaV7TsIr8zB6mO1RYCjYl1vCFsgOKO4ZqxVJ8qnp3B3Iev/7xJT67mIuPhHaUwiFMn" "5tZdvO44gLCVBx6VUvrd75Fp2+qoiIllAuopRwswWNdabSrrznetiiyDiq3h7oNdvGFtgO4Oy09X"

	 "yynFNIYkvY8eM1kX55JRbwD1uMGtBslkwGnLyTuG+4SBoibqZGDfgME4gObDd3GEbhAoE5++gLg0" "qBweSMxB3UabU3u8Mfct4S9yc2yYNieMuDWxnjtytQ2n6MlUm62MA3efSe9hCaox+QV7Y5lvjIU2"

	 "GoEzjyL60VUAX7w99AHciURgpymrgAL6oS4C6MYI8I5yn5l2hfI2O/K2X0I/DZgOnXyUosaxHmJJ" "5Jm+aKmgkrCkAfNYFbEqHVRYu3gt7de2KhsUDBLLZDUyN9jSPZcL42nYQtl68DPwD1ko+Z+51Kfx"

	 "7qP3q5feN7SepjM0Z+IcRqhHG1rb5p2a0b3zka8LEEbFu0LgaHiyuUwaKgnxAyw2ZUK3ckdGEdnh" "a+K8VYzDXOWmLHUi97H9A81G5br5eYKDIQWqiIDZErlRndRGKPcb85/DvORa6MI1AERSz/KSzppI"

	 "nCcckwW27AmezZpMxL5seoCChtJnjl1T8E/EYdhLhnFkQr/yN7Hn+MZaoUtrD7QqOkwZ4oM6s1D5" "EjiA3mfANUZ2AoJFp6l3WeNL4nZlO3UHyVGOjYqvtgA+j27Ttv3qqUcxQTcykB86ML3xNqWhxWPv"

	 "cckEmLdaGIq/3qgXGj9k8fX2suQSUjaZd/e0LCP4aNMg+5r8qhXjdLQ7bdttrFQZTCjbFFozy4Hc" "8+tpNb+4tzSlwusqlBQjrxJHhcPS6nRY8U1YKs2ope3YcRNVM803rKog4fEYZeqiEGwQKcSg3C4L"

	 "1h8lBsLqQ9clJwUJcvFf5P5mt8XxPNYtd4JIw7kF+kXrtqU2nBLsemCiVP/NgD9BFjl6CTGaJxyC" "yWGKRwQJn3bNyO39AXncqvB6TznmPZaT+L9chlyAVVwGyVH2Rmalxk4koSVpOBgJDLeFFuw1pMNO"

	 "lLx7r06kbaP7fiXHaQ0/GoPFA+aU93ag5xyD4S9jT1QAidMjU1ojdJLqS2P2kGGfzbrQKx0mvFym" "0C+I/naYFpMPSrv2ECXfo2ijE/YStc3wtkgBY+8j/1HME4Jm7xMH5DsIMjowvfE2pdEIL3qVgdEI"

	 "XPyLjXHR8Qiv"

	)

  )

  (defun c:XD-P-FORM#OnInitialize (/)

    (dcl-Control-SetMaxValue XD-P-1 (length dwglst))

    (dcl-Control-SetMinValue XD-P-1 0)

    (dcl-Control-SetValue XD-P-1 0)

    (dcl-Control-Redraw XD-P-1)

  )



  (defun c:XD-P-OK#OnClicked (/)

    (setq i 1)

    (dcl-Control-SetMaxValue XD-P-1 (length dwglst))

    (dcl-Control-SetMinValue XD-P-1 0)

    (dcl-Control-SetValue XD-P-1 0)

    (dcl-Control-Redraw XD-P-1)

    (foreach n dwglst

      (dcl-Control-SetCaption XD-P-TEXT n)

      (dcl-Control-Redraw XD-P-TEXT)

      (dcl-Control-SetValue XD-P-1 i)

      (dcl-Control-Redraw XD-P-1)

      (dcl-Control-SetCaption XD-P-4 (itoa i))

      (dcl-Control-Redraw XD-P-4)

      (setq n 500000)

      (while (> n 0)

	(setq n (1- n))

      )

      (setq i (1+ i))

    )

    (princ)

  )

  (setq dwglst '("1111111111.dwg" "222222222222.dwg"

	 "3333333333333.dwg" "444444444444444.dwg"

	 "55555555555555.dwg" "6666666666666666.dwg"

	 "7777777777.dwg" "888888888888.dwg"

	 "9999999999.dwg"

	)

  )

  (dcl-project-import XD-ODCL-DATA-PURGEALL "123456")

  (dcl-Form-Show XD-P-FORM)

  (princ)

)
Attachments
XDCAD 2017-12-06 13:24 UTC
The issue of synchronization is solved and is a matter of percentage
However, the first two codes when I design the dialog box did not choose the percentage, the election is NONE,
in this case VALUE value also give a percentage? Not by the number of increments?

(defun c:tt (/)

  (setq XD-ODCL-DATA-PURGEALL '

	("YWt6Aw8hAADVhgHlBuKTJMERIjtugOBt4WGwf+8vanUvJvQ9Um/9kQJp4Tcd+25/9893UCyYAKY3" "trvw/H9VcwpqLi5/ewF8QVsA90wrliIsLi5cP3ZzWGxuTU2xx8mFuwCxGaGb9rsnkRDB46MDzcWN"

	 "s5DywgmLiBRY+UI4Lz5vOV4m4YN11t/0RPgPZynOXpsnwlQBa+p7cXUk7Kxb76jbonsex3mW6yGT" "QCbNkB1mOTd4sDf5Dxfg7RkmDjMuPzRbBx83tCRJWMvd3DxrXSwp6uQP100LKAu69N5PF+/pQCsv"

	 "HSY41Tel9IuohEdlDzCEa9tKXAsbFdcxMyRpO0j1csz/VFdh3mEfHrQdM4+QbUypVUzRYryVlsVd" "JxVs4LgQRuGOM3oJtEG1/p85TAKKdyqNjmG80W2Q9YWhrI8AWodlYJDRnBfivw/no8pCWU77rea6"

	 "f4fjuY2MIr7cQhun7HXGVA1zwfe5SQPBXIJLn1F3gTuEUm+wekCARSBhY1YCZUPzu6uLR86fHCE9" "ya1vHzZdAZGLAp6QK3b5HKOxNFfVk2FIhlqRDJjqUiw7aNZQOMygQAlfEtJ/kY+Q+NivYtkcxwh0"

	 "TaDVbgAwSI170y9RnwfRAQhsUR0+4I3YECO0uZuFYryRnImgLsNiJVSXRjHu4IUch8ycl2bB2Ybb" "ZolVgPuYD07oAdWMaR1C34Zap7BXvO36IV6SkQ5YoJ9cvD3KOLAgUVew7CMI7YsCOIwxdgE0hh28"

	 "EuOL+EBvwDaGLD3BHieJGP+a0W4A+aAJ3c9ob8BjycmHgTiDAROOUrz9qoEY0vEAZ0lgTOK68wKF" "aYhAIbZohPCZrnyhvwgEcQK3kY4DtxtKmTXywfBRB3WTilv7OiEMeBWiBq4ebEmowWESDJEzkJLD"

	 "hy2gBdhkLU+zSObkMjvYVC0N1ZlsLexXlS4EO6n7V7FQ/xPtE6LPq3+GyBSMA1oJEgtcJrkbzpPY" "x3IITxKVkkysIrI/rKmfuHEWR0ni5apy4Gt4slpMGjYRKMXa7ksG5mfMGbhc/TtivRWMw1Zpwocz"

	 "DluncQgznxpkYWCPkbikXcRpQR3Jn1RQ9BzLOqhmoFfSNx23hdrZvexfhlJX286aRES1bMXDRFJH" "8WjOev/BQEAVBAI1NRzy4PknS4BDeHFPHcytaCHh7ZFWvEAYbwhEGeKNOrtQ+RI7gNprwDtGdgKC"

	 "ebcpdtmjS4S2/KyCECmelcFB6Klqia3wQjQA44OKL6zR/WhHf6FckwIRyztAwKdFMVCr3Yl4L9m/" "JxdC/F0MjanqNDdE8fQrKKgsShvVqVq10qoV41glmFIfTVTTdOicr0ow4sivgA1IKC9aW2VZURP1"

	 "KKxK7qjrMyjOiZvbKsyqL7DsRgeVo5PYE2ClThPtMTWlpoqHFMg0sJNUnxitRKm2KmMUpm/g4phH" "0jknDYfJ2W5RPjxEFmnnrgitPZGsQkBewqOKr3iX3AIkBNaJkIouoMGWebN6v9N1jLJPgKlRhBLD"

	 "E8a8UhGbnMHz3qrQencp5sOWkv+/P44nolE/jsO1wjvtFFwfyszNbDhYCQK3+Sa56Qpep0L+mPwQ" "dVnmBXd3XJWhlLUqOfye0zvSgU0UJfI0QAPdqjwkLB7V0hdclshtvh+3MY4nHBereugObhIX6mNu"

	 "es3LCKbkbPwQpd8IeaMzeqeYGeV2zBOC+l6lgoovHDj8OzC+yTZF0aRmepWBYBJZdqixwU+qspE="

	)

  )

  (defun c:XD-P-FORM#OnInitialize (/)

    (dcl-Control-SetMaxValue XD-P-1 (length dwglst))

    (dcl-Control-SetMinValue XD-P-1 0)

    (dcl-Control-SetValue XD-P-1 0)

    (dcl-Control-Redraw XD-P-1)

  )



  (defun c:XD-P-OK#OnClicked (/)

    (setq i 1)

    (dcl-Control-SetMaxValue XD-P-1 100)

    (dcl-Control-SetMinValue XD-P-1 0)

    (dcl-Control-SetValue XD-P-1 0)

    (dcl-Control-Redraw XD-P-1)

    (foreach n dwglst

      (dcl-Control-SetCaption XD-P-TEXT n)

      (dcl-Control-Redraw XD-P-TEXT)

      (setq pos (fix (+ 0.5 (* 100 (/ i (length dwglst) 1.0)))))

      (dcl-Control-SetValue XD-P-1 pos)

      (dcl-Control-Redraw XD-P-1)

      (dcl-Control-SetCaption XD-P-4 (itoa i))

      (dcl-Control-Redraw XD-P-4)

      (dcl-Control-SetCaption XD-P-5 (strcat (itoa pos) "%"))

      (dcl-Control-Redraw XD-P-5)

      (setq n 2500000)

      (while (> n 0)

	(setq n (1- n))

      )

      (setq i (1+ i))

    )

    (princ)

  )

  (setq dwglst '("1111111111.dwg" "222222222222.dwg"

	 "3333333333333.dwg" "444444444444444.dwg"

	 "55555555555555.dwg" "6666666666666666.dwg"

	 "7777777777.dwg" "888888888888.dwg"

	 "9999999999.dwg"

	)

  )

  (dcl-project-import XD-ODCL-DATA-PURGEALL "123456")

  (dcl-Form-Show XD-P-FORM)

  (princ)

)

Attachments
owenwengerd 2017-12-07 13:25 UTC
Try changing the 'Max. value' property of the progress bar to 200 for example, then I think the difference will be more clear.