一个opendcl的小程序片段 用来查看实体的属性
本帖最后由 286168051 于 2013-7-30 11:13 编辑(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-objectsn))
(setq co(itoa(vla-get-color obj)))
(dcl_Grid_AddRow sxlb_Form1_格1 (itoa in)lx jbtcxxco)
(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)
) 顶，建议贴个图。 请问楼主 res 是什么东西？一堆字母 是不是就不用加载odcl了？ 是否贴一个原版的ODCL 感谢楼主的无私分享 谢谢
页:
[1]