;;BLOCKNAME图块名称 (DEFUN GET-BLOCKPREVIEW-DATA ( BLOCKNAME / X) (APPLY 'STRCAT (APPLY 'APPEND (MAPCAR '(LAMBDA (X) (IF (= (CAR X) 310) (LIST (CDR X)) ) ;_ 结束if ) ;_ 结束lambda (ENTGET(CDR (ASSOC 330 (ENTGET (TBLOBJNAME "block" BLOCKNAME)))) ) ) ;_ 结束mapcar ) ;_ 结束apply ) ;_ 结束apply ) ;_ 结束defun 可以获取指定名称图块的图标数据以 2800000020开头,想让它在图像控件上显示出来,不知如何实现?困扰好多天了。 |