一个opendcl的小程序片段 用来查看实体的属性

286168051

(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)

)

soly2006

顶，建议贴个图。

npu349

请问楼主 res 是什么东西？一堆字母 是不是就不用加载odcl了？

lhtfh

是否贴一个原版的ODCL

pengfei2010

感谢楼主的无私分享 谢谢