一个小程序片段,用来列举属性

小龙龙

(defun c:sxlb()
  (setq res'("YWt6Ay4IAABeV7dCBuLrKzUVLT9qgBAypdfXVtOxI7s0o3rsFIRuaSw7ji8dZRZpuLpK1zNLE9/0"
"+FR4IitVxi1vD5/ckLupOHpvr+NBPs5A1I/DLQ/vlee3nZgAdl9tmLACDcCN5g2QQycXaRLq2Ila"
"zLYeamj+KTM+zTlIXJaWOG5Ddl9eleYywd7TPHK3EGUsNnSM3TEaHUZYxVoE+2vu7d42xPpt6hnU"
"lraoaMU6yTEGd+/6OpBJqHyMrWhtlkggbMxxZ6VXp3u6CPGvNGT4yJb/MWWrb/UfZZXfUpbOs24v"
"vWAyHXjtHDHDPhUnLNzWXwa1OaT4tOe78sKmLc0WUvXLYQvkjh1KKuUqSLfhRAyd0avPwdaPFZzh"
"D59zNxI5x1QPRin3XfJXkutH/y1MbbzmvtLaIVPNokkElgZKb6JZgv6OQ7zpV7wV+s36ZVNJoJpU"
"+Ulok0LEEFZD2SDEsN/IRgAFm3jY0mW1WYMiKLHwioF1lP/U+oD77IGnD48paUk5hnYju5WW5Sr4"
"Y4Dh/I5hb6E5hl0ktCZ5G6lmFNcwgCVJodRPq1wCUIXsuFXPoW8j6LyO0L/NmZg5iqcsmqfGIHW9"
"gy/DQEchQsEHA5j8IBE6aBwkmaifNgYTsLTUe4T2KC5gjCYjk8moLuGuKGmB/UVxS4eRo4Iq89eg"
"qyfpm+rxBvPYTpsEyyV4bj/FssoCsGeHyx3JQrnfkOyjnWsSoDVLMwbMjMAkwQoiWTbgXyKr4ozM"
"LRMW0Lob1dWaA/oQSzkG6o5jrCE985juxX/WB6zBOoZcn7/U0S2hiHOHBTCAKO8A6o4T1Cy/t+jP"
"if3MicMsu9yAKRQOQeMUZoBJSscOeZcR2AZxrCG5AOxhXkKeHm2RQOwNfZDaAitLmuNbt0F3xf6d"
""))
  (setq form(dcl_project_import res))
  (dcl_form_show form "form1")
  (setq ss(ssget "x"))
  (setq in 0)
  (repeat(sslength ss)
    (setq sn(ssname ss in))
    (setq ent(entget sn))
    (setq lx(cdr(assoc 0 ent)))
    (setq jb(cdr(assoc 5 ent)))
    (setq tc(cdr(assoc 8 ent)))
    (setq xx(cdr(assoc 6 ent)))
    (setq obj(vlax-ename->vla-object  sn))
    (setq co(itoa(vla-get-color obj)))
      
  (dcl_Grid_AddRow sxlb_Form1_格1   (itoa in)lx jb  tc  xx  co)
    (setq in(1+ in))
    )
  
  (princ)
  )
(defun c:sxlb_Form1_OnInitialize (/)
  ;(dcl_MessageBox "To Do: code must be added to event handler\r\nc:sxlb_Form1_OnInitialize" "To do")
  (setq applist(getapp))
  (setq i 0)
  (repeat(length applist)
    (setq ap1(nth i applist))
    (dcl_Grid_AddColumns sxlb_Form1_格1 (list ap1 1) )
    (setq i(1+ i))
    )
  
  (princ)

)

GTJ116600

" (setq res'("YWt6Ay4IAABeV7dCBuLrKzUVLT9qgBAypdfXVtOxI7s0o3rsFIRuaSw7ji8dZRZpuLpK1zNLE9/0"
"+FR4IitVxi1vD5/ckLupOHpvr+NBPs5A1I/DLQ/vlee3nZgAdl9tmLACDcCN5g2QQycXaRLq2Ila"
"zLYeamj+KTM+zTlIXJaWOG5Ddl9eleYywd7TPHK3EGUsNnSM3TEaHUZYxVoE+2vu7d42xPpt6hnU"
"lraoaMU6yTEGd+/6OpBJqHyMrWhtlkggbMxxZ6VXp3u6CPGvNGT4yJb/MWWrb/UfZZXfUpbOs24v"
"vWAyHXjtHDHDPhUnLNzWXwa1OaT4tOe78sKmLc0WUvXLYQvkjh1KKuUqSLfhRAyd0avPwdaPFZzh"
"D59zNxI5x1QPRin3XfJXkutH/y1MbbzmvtLaIVPNokkElgZKb6JZgv6OQ7zpV7wV+s36ZVNJoJpU"
"+Ulok0LEEFZD2SDEsN/IRgAFm3jY0mW1WYMiKLHwioF1lP/U+oD77IGnD48paUk5hnYju5WW5Sr4"
"Y4Dh/I5hb6E5hl0ktCZ5G6lmFNcwgCVJodRPq1wCUIXsuFXPoW8j6LyO0L/NmZg5iqcsmqfGIHW9"
"gy/DQEchQsEHA5j8IBE6aBwkmaifNgYTsLTUe4T2KC5gjCYjk8moLuGuKGmB/UVxS4eRo4Iq89eg"
"qyfpm+rxBvPYTpsEyyV4bj/FssoCsGeHyx3JQrnfkOyjnWsSoDVLMwbMjMAkwQoiWTbgXyKr4ozM"
"LRMW0Lob1dWaA/oQSzkG6o5jrCE985juxX/WB6zBOoZcn7/U0S2hiHOHBTCAKO8A6o4T1Cy/t+jP"
"if3MicMsu9yAKRQOQeMUZoBJSscOeZcR2AZxrCG5AOxhXkKeHm2RQOwNfZDaAitLmuNbt0F3xf6d"
""))"
这个设置是什么意思呀？麻烦版主给普及一下知识？

Free-Lancer

这个就是odcl对话框的lisp文件，可以编译为单fas vlx来自: Android客户端

Lisphk

GTJ116600 发表于 2013-7-31 10:16
" (setq res'("YWt6Ay4IAABeV7dCBuLrKzUVLT9qgBAypdfXVtOxI7s0o3rsFIRuaSw7ji8dZRZpuLpK1zNLE9/0"
"+FR4Ii ...

ODCL论坛里面有介绍呀，设计的对话框保存时候选LSP扩展名，就是这种加密的了，可以直接贴在自己的LISP程序里面，不用另带ODCL对话框文件了。