dcl_SlideView_VectorImage如何设定才能显示效果

海天风云 · 发表于 2014-12-30 18:30:46

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

请教各位大神，我要在slidview控件中用vectorimage显示幻灯片的效果，如何能做到，先谢了！

(defun c:testsld ()
(setq dcl '("YWt6AyoGAACUEdccBuIL7TUx7T9q+KHxygpSZGxsGr249rTYegS9xOvmVrZL7zY2dspbX58c0m+d"
"uNsJo5f44d7ed5Tga5CCf4J+fNxB/jUHGSTAl4lYMkyNsw2w502ZBRnYywQse4Wbf6K8SjiOdhtS"
"HX7JTzoAPNQO0h5vW4oO0k78j/fWWX6OWX8inqnExZjvPUGFM7Jfs0/7QPB7LHQnsPTmmRLoqCCa"
"40kxEfA3rSLpOfjoYlPQwtSz5t9Ts8sHpBmnLbIrGjqoG1LN9vLNa5aTm9K6tgCwtfI0RRXh1dp3"
"U0jX0+b31Zb+dxbSScScCc78uSYcwqc4pefZYBy4bz09TVEiVKkI57HS38fw/6O5YnVBaxCNldEN"
"cc1dgKt2CWgHMC+TGZ514J93UJ1QhXyDdYKXO/CxZxEAhwMio0H6AXQRdGE0I7H65f1WYQfjElyN"
"bPcuGtWtqw07oTzCH1+ykTZaMgkqTwniY/poFbeUD1hZ4nhbFI7+oUwosUemWOaOGWVwC7FoZXU1"
"DJ8YuoVjIWxPnFy4O48B7TWKI7qk7oYLn9G8Ifrt7DFbE8YK44isA+yGKewRMAYsxqOZzWXnL7Ep"
"EoBX9wFWgieG3Y55n4m8kfqhdMFvAFNCmJUzpITZuwFslG1GA4AHCARg+inQaMFRKYgB5sFogUkC"
"ckuQ7IupOrEfrw0uYJnujgOfBbyE2hC2hwk5kfkT2bitjGY="))
(command "opendcl")
(dcl_Form_Show (dcl_project_import dcl) "Form1")
(princ)
)
(defun c:testsld_Form1_OnInitialize ()
(setq pos (dcl_Control_GetPos testsld_Form1_SlideView1))
(dcl_SlideView_VectorImage testsld_Form1_SlideView1 (mode1_up_vectors))
(dcl_SlideView_EndImage testsld_Form1_SlideView1)
)
;;;(defun mode1_up_vectors ()
;;; (mapcar 'list
;;; (list 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 13 18 22 27 31 36 40 45 49 54 58 63 67 72 76 81 85 90 10 10 10 27 8 8 93 8 90 10 8 10 8 15 8 19 8 24 8 28 8 33 8 37 8 42 8 46 8 51 8 55 8 60 8 64 8 69 8 73 8 78 8 82 8 87 8 90 9 90 13 90 18 90 22 90 27 90 31 90 36 90 40 90 44 90 49 90 53 90 58 90 62 90 67 90 71 90 76 90 80 90 85 89)
;;; (list 88 83 79 74 70 65 61 56 52 47 43 38 34 29 25 20 16 11 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 90 28 8 8 8 93 10 90 8 10 13 10 17 10 22 10 26 10 31 10 35 10 40 10 44 10 49 10 53 10 58 10 62 10 67 10 71 10 76 10 80 10 85 10 89 11 93 16 93 20 93 25 93 29 93 34 93 38 93 43 93 47 93 51 93 56 93 60 93 65 93 69 93 74 93 78 93 83 93 87 93 93)
;;; (list 11 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 30 34 37 41 44 48 51 55 58 62 65 69 72 76 79 83 86 90 90 10 27 90 8 93 93 93 90 90 8 13 10 17 10 22 10 26 10 31 10 35 10 40 10 44 10 49 10 53 10 58 10 62 10 67 10 71 10 76 10 80 10 85 10 89 10 93 11 93 16 93 20 93 25 93 29 93 34 93 38 93 43 93 47 93 51 93 56 93 60 93 65 93 69 93 74 93 78 93 83 93 87 93)
;;; (list 88 85 81 77 74 70 67 63 60 56 53 49 46 42 38 35 31 28 27 26 25 24 23 22 21 20 19 18 17 16 15 14 13 12 11 10 10 90 28 10 93 8 93 93 90 90 8 8 10 8 15 8 19 8 24 8 28 8 33 8 37 8 42 8 46 8 51 8 55 8 60 8 64 8 69 8 73 8 78 8 82 8 87 9 90 13 90 18 90 22 90 27 90 31 90 36 90 40 90 44 90 49 90 53 90 58 90 62 90 67 90 71 90 76 90 80 90 85 90 89)
;;; (list 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6)
;;; )
;;; );defun
(defun mode1_up_vectors ()
(mapcar 'list
(list 314 314 314 331 312 312 397 312 394 314)
(list 40 40 120 58 38 38 38 123 40 120)
(list 394 314 331 394 312 397 397 397 394 394)
(list 40 120 58 40 123 38 123 123 120 120)
(list 6 6 6 6 6 6 6 6 6 6)
);mapcar
);defun

(defun c:testsld  () 
  (setq dcl '("YWt6AyoGAACUEdccBuIL7TUx7T9q+KHxygpSZGxsGr249rTYegS9xOvmVrZL7zY2dspbX58c0m+d" 
        "uNsJo5f44d7ed5Tga5CCf4J+fNxB/jUHGSTAl4lYMkyNsw2w502ZBRnYywQse4Wbf6K8SjiOdhtS" 
        "HX7JTzoAPNQO0h5vW4oO0k78j/fWWX6OWX8inqnExZjvPUGFM7Jfs0/7QPB7LHQnsPTmmRLoqCCa" 
        "40kxEfA3rSLpOfjoYlPQwtSz5t9Ts8sHpBmnLbIrGjqoG1LN9vLNa5aTm9K6tgCwtfI0RRXh1dp3" 
        "U0jX0+b31Zb+dxbSScScCc78uSYcwqc4pefZYBy4bz09TVEiVKkI57HS38fw/6O5YnVBaxCNldEN" 
        "cc1dgKt2CWgHMC+TGZ514J93UJ1QhXyDdYKXO/CxZxEAhwMio0H6AXQRdGE0I7H65f1WYQfjElyN" 
        "bPcuGtWtqw07oTzCH1+ykTZaMgkqTwniY/poFbeUD1hZ4nhbFI7+oUwosUemWOaOGWVwC7FoZXU1" 
        "DJ8YuoVjIWxPnFy4O48B7TWKI7qk7oYLn9G8Ifrt7DFbE8YK44isA+yGKewRMAYsxqOZzWXnL7Ep" 
        "EoBX9wFWgieG3Y55n4m8kfqhdMFvAFNCmJUzpITZuwFslG1GA4AHCARg+inQaMFRKYgB5sFogUkC" 
        "ckuQ7IupOrEfrw0uYJnujgOfBbyE2hC2hwk5kfkT2bitjGY=")) 
  (command "opendcl") 
  (dcl_Form_Show (dcl_project_import dcl) "Form1") 
  (princ) 
  ) 
 
(defun c:testsld_Form1_OnInitialize () 
  (setq pos (dcl_Control_GetPos testsld_Form1_SlideView1)) 
  (dcl_SlideView_VectorImage testsld_Form1_SlideView1 (mode1_up_vectors)) 
  (dcl_SlideView_EndImage testsld_Form1_SlideView1) 
) 
 
;;;(defun mode1_up_vectors () 
;;;  (mapcar 'list 
;;;      (list 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 13 18 22 27 31 36 40 45 49 54 58 63 67 72 76 81 85 90 10 10 10 27  8  8 93  8 90 10 8 10  8 15  8 19  8 24  8 28  8 33  8 37  8 42  8 46  8 51  8 55  8 60  8 64  8 69  8 73  8 78  8 82  8 87  8 90  9 90 13 90 18 90 22 90 27 90 31 90 36 90 40 90 44 90 49 90 53 90 58 90 62 90 67 90 71 90 76 90 80 90 85 89) 
;;;      (list 88 83 79 74 70 65 61 56 52 47 43 38 34 29 25 20 16 11 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 10 90 28  8  8  8 93 10 90 8 10 13 10 17 10 22 10 26 10 31 10 35 10 40 10 44 10 49 10 53 10 58 10 62 10 67 10 71 10 76 10 80 10 85 10 89 11 93 16 93 20 93 25 93 29 93 34 93 38 93 43 93 47 93 51 93 56 93 60 93 65 93 69 93 74 93 78 93 83 93 87 93 93) 
;;;      (list 11 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 30 34 37 41 44 48 51 55 58 62 65 69 72 76 79 83 86 90 90 10 27 90  8 93 93 93 90 90 8 13 10 17 10 22 10 26 10 31 10 35 10 40 10 44 10 49 10 53 10 58 10 62 10 67 10 71 10 76 10 80 10 85 10 89 10 93 11 93 16 93 20 93 25 93 29 93 34 93 38 93 43 93 47 93 51 93 56 93 60 93 65 93 69 93 74 93 78 93 83 93 87 93) 
;;;      (list 88 85 81 77 74 70 67 63 60 56 53 49 46 42 38 35 31 28 27 26 25 24 23 22 21 20 19 18 17 16 15 14 13 12 11 10 10 90 28 10 93  8 93 93 90 90 8  8 10  8 15  8 19  8 24  8 28  8 33  8 37  8 42  8 46  8 51  8 55  8 60  8 64  8 69  8 73  8 78  8 82  8 87  9 90 13 90 18 90 22 90 27 90 31 90 36 90 40 90 44 90 49 90 53 90 58 90 62 90 67 90 71 90 76 90 80 90 85 90 89) 
;;;      (list  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6 6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6  6) 
;;;      ) 
;;;  );defun 
 
(defun mode1_up_vectors () 
  (mapcar 'list 
    (list 314 314 314 331 312 312 397 312 394 314) 
    (list  40  40 120  58  38  38  38 123  40 120) 
    (list 394 314 331 394 312 397 397 397 394 394) 
    (list  40 120  58  40 123  38 123 123 120 120) 
    (list   6   6   6   6   6   6   6   6   6   6) 
  );mapcar 
);defun

st788796 · 发表于 2014-12-30 18:40:45

做个图片不简单！

Lispboy · 发表于 2014-12-30 19:31:41

你现在哪里做不到？遇到什么问题了？

海天风云 · 发表于 2014-12-30 22:42:28

请看图片，谢谢大神的关注！

newer · 发表于 2014-12-30 22:53:44

海天风云发表于 2014-12-30 22:42
请看图片，谢谢大神的关注！

你是不是画外面去了？你给的坐标是左上点是原点，X轴向右，Y轴向下？

海天风云 · 发表于 2014-12-30 23:22:18

上面正常那个才100*100，下面这个放大到540*540还是看不到，我也怀凝会不会跑出界，也偿试改向量值也没用，弄了半天，还出不来。

newer · 发表于 2014-12-30 23:27:56

本帖最后由 newer 于 2014-12-30 23:29 编辑

海天风云发表于 2014-12-30 23:22
上面正常那个才100*100，下面这个放大到540*540还是看不到，我也怀凝会不会跑出界，也偿试改向量值也没用， ...

帮你改成非模式框，单步运行看下，单独运行SLIDE语句可以画出，给你修改加了个按钮，点按钮可以画出，你试试。

说明：不能在初始化里面加画幻灯片代码，或者还有什么其他的控制还没发现。

搜狗截图20141230232448.png

(defun c:testsld ()
(setq dcl '("YWt6A7wJAADIaPEVBuLT6zUxLT9quYH7LFjLWvo68+87XW4jJgfLOiJnX7h59vQvTxISdfTqHFIk"
"vLjTEWlYlLzxnk2PzwnbRUD+Yb6Goscv14FnpKAFgc9qbZGzwwkAQxmY4ueNFhUX23pA5fjPee1m"
"vTsyX/Efch/6wj5UjiM+cCeSnMU+c5T5Vexu/psYXhR5agoY79zUw3lHZDp8Ge+aqfDs5jjkbW3a"
"cngGWdapOcNAoBe0edZPsxFB4h1bxRz44pzj2rBe23eKxCsIxWuFhzX43UoERiDL7NzS6QgF4ptq"
"OWe0ZG8NMIx8pB88Fj6H3OfYg+a5W7IP3Af5yPTa0hzwXXKhG9DE48WVXWlKWzq0Zszg5VufObzB"
"+9F2wTstviDlGVEw4bJ5r1F4BjX4n9L61mWgqERmnEJwjOffGvhZ7Z0F9+TYTyqj30sboAZo43nR"
"+iF1wWrAW2BAboBXwlZid3uHafyAC6py4e/nkX3kTkVCMWEsbBWa3rufMLP0c1kGSvVC1APGsol8"
"85oVGjZ9MguRHeD7G/AyGiP1SPehz773EtVrrRCCA8OrJnHHdhlONeNSsg23nWm8sVp0MfvhdkFo"
"8DTqSvGN/+328xxiD0CZlyPwCeLTWfkNTmnUlcbtSo28DattcIPOi0lVjOLO0QAEUqFpQUkEjMPI"
"wPAEAqS0EbRA8QeMKFUhj5LHi8D3g9GrA9GwgVJHh6Ol8a2B/Jh+CbSCUCFBzoxdwJTNgGHoFGJv"
"YGtAWnKXeCQ9pZuCAksL/jESzQNHMhQzO7kjNBhnjO2CMN/G8PSMi6UxSKAfUdHSxMGcEv0hVbHj"
"weTZwIIWESZFQdIfAQCizYTAAlYkx7jJNZiFnMuLAbqVYZydiGntAhBvqCDaAz+F/oh3k3Wkeaxc"
"wVgCNIbIjotEgVAk0YQRCj2G8I4jn3efTbztvCSRi4Q9wwTpgB7RQWWKJXM="))
(command "opendcl")
(dcl_Form_Show (dcl_project_import dcl) "Form1")
(princ)
)
(defun c:test/Form1#OnInitialize (/)
(princ "\nfafaf")
(setq pos (dcl_Control_GetPos test_Form1_SlideView1))
(dcl_SlideView_VectorImage test_Form1_SlideView1 (mapcar 'list
(list 314 314 314 331 312 312 397 312 394 314)
(list 40 40 120 58 38 38 38 123 40 120)
(list 394 314 331 394 312 397 397 397 394 394)
(list 40 120 58 40 123 38 123 123 120 120)
(list 6 6 6 6 6 6 6 6 6 6)
))
(dcl_SlideView_EndImage test_Form1_SlideView1)
)
(defun c:test/Form1/TextButton1#OnClicked (/)
(setq pos (dcl_Control_GetPos test_Form1_SlideView1))
(dcl_SlideView_VectorImage test_Form1_SlideView1 (mapcar 'list
(list 314 314 314 331 312 312 397 312 394 314)
(list 40 40 120 58 38 38 38 123 40 120)
(list 394 314 331 394 312 397 397 397 394 394)
(list 40 120 58 40 123 38 123 123 120 120)
(list 6 6 6 6 6 6 6 6 6 6)
))
(dcl_SlideView_EndImage test_Form1_SlideView1)
)
(defun mode1_up_vectors ()
(mapcar 'list
(list 314 314 314 331 312 312 397 312 394 314)
(list 40 40 120 58 38 38 38 123 40 120)
(list 394 314 331 394 312 397 397 397 394 394)
(list 40 120 58 40 123 38 123 123 120 120)
(list 6 6 6 6 6 6 6 6 6 6)
);mapcar
);defun

(defun c:testsld  () 
  (setq dcl '("YWt6A7wJAADIaPEVBuLT6zUxLT9quYH7LFjLWvo68+87XW4jJgfLOiJnX7h59vQvTxISdfTqHFIk" 
"vLjTEWlYlLzxnk2PzwnbRUD+Yb6Goscv14FnpKAFgc9qbZGzwwkAQxmY4ueNFhUX23pA5fjPee1m" 
"vTsyX/Efch/6wj5UjiM+cCeSnMU+c5T5Vexu/psYXhR5agoY79zUw3lHZDp8Ge+aqfDs5jjkbW3a" 
"cngGWdapOcNAoBe0edZPsxFB4h1bxRz44pzj2rBe23eKxCsIxWuFhzX43UoERiDL7NzS6QgF4ptq" 
"OWe0ZG8NMIx8pB88Fj6H3OfYg+a5W7IP3Af5yPTa0hzwXXKhG9DE48WVXWlKWzq0Zszg5VufObzB" 
"+9F2wTstviDlGVEw4bJ5r1F4BjX4n9L61mWgqERmnEJwjOffGvhZ7Z0F9+TYTyqj30sboAZo43nR" 
"+iF1wWrAW2BAboBXwlZid3uHafyAC6py4e/nkX3kTkVCMWEsbBWa3rufMLP0c1kGSvVC1APGsol8" 
"85oVGjZ9MguRHeD7G/AyGiP1SPehz773EtVrrRCCA8OrJnHHdhlONeNSsg23nWm8sVp0MfvhdkFo" 
"8DTqSvGN/+328xxiD0CZlyPwCeLTWfkNTmnUlcbtSo28DattcIPOi0lVjOLO0QAEUqFpQUkEjMPI" 
"wPAEAqS0EbRA8QeMKFUhj5LHi8D3g9GrA9GwgVJHh6Ol8a2B/Jh+CbSCUCFBzoxdwJTNgGHoFGJv" 
"YGtAWnKXeCQ9pZuCAksL/jESzQNHMhQzO7kjNBhnjO2CMN/G8PSMi6UxSKAfUdHSxMGcEv0hVbHj" 
"weTZwIIWESZFQdIfAQCizYTAAlYkx7jJNZiFnMuLAbqVYZydiGntAhBvqCDaAz+F/oh3k3Wkeaxc" 
"wVgCNIbIjotEgVAk0YQRCj2G8I4jn3efTbztvCSRi4Q9wwTpgB7RQWWKJXM=")) 
  (command "opendcl") 
  (dcl_Form_Show (dcl_project_import dcl) "Form1") 
  (princ) 
  ) 
(defun c:test/Form1#OnInitialize (/) 
  (princ "\nfafaf") 
  (setq pos (dcl_Control_GetPos test_Form1_SlideView1)) 
  (dcl_SlideView_VectorImage test_Form1_SlideView1 (mapcar 'list 
    (list 314 314 314 331 312 312 397 312 394 314) 
    (list  40  40 120  58  38  38  38 123  40 120) 
    (list 394 314 331 394 312 397 397 397 394 394) 
    (list  40 120  58  40 123  38 123 123 120 120) 
    (list   6   6   6   6   6   6   6   6   6   6) 
  )) 
  (dcl_SlideView_EndImage test_Form1_SlideView1) 
) 
(defun c:test/Form1/TextButton1#OnClicked (/) 
  (setq pos (dcl_Control_GetPos test_Form1_SlideView1)) 
  (dcl_SlideView_VectorImage test_Form1_SlideView1 (mapcar 'list 
    (list 314 314 314 331 312 312 397 312 394 314) 
    (list  40  40 120  58  38  38  38 123  40 120) 
    (list 394 314 331 394 312 397 397 397 394 394) 
    (list  40 120  58  40 123  38 123 123 120 120) 
    (list   6   6   6   6   6   6   6   6   6   6) 
  )) 
  (dcl_SlideView_EndImage test_Form1_SlideView1) 
) 
 
(defun mode1_up_vectors () 
  (mapcar 'list 
    (list 314 314 314 331 312 312 397 312 394 314) 
    (list  40  40 120  58  38  38  38 123  40 120) 
    (list 394 314 331 394 312 397 397 397 394 394) 
    (list  40 120  58  40 123  38 123 123 120 120) 
    (list   6   6   6   6   6   6   6   6   6   6) 
  );mapcar 
);defun

海天风云 · 发表于 2014-12-30 23:45:14

原来不能在初始化里画幻灯片，总算搞明白了，十分感谢newer!

账号		自动登录	找回密码
密码			立即注册

[求助] dcl_SlideView_VectorImage如何设定才能显示效果

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

点评

点评

浏览过的版块