홈/ 질문/Q 102046
다음
진행 중
Lv.0
등록일: 2014-08-30T15:01:49+09:00 카테고리:

백그라운드 변환 리습 2008에서는 안되네요

2006에서 사용하던 리습입니다.
백그라운드를   힌색  검정색 으로 변환하는 리습입니다.
화면을  그림으로 캡춰하기위해서 사용하였습니다.

그런데  2008에서는   오류나서 안되네요

오류: no function definition: VLAX-GET-ACAD-OBJECT

뭘 바꿔야 될까요?


(defun c:bgw () ;;white background
(setq acadobject (vlax-get-acad-object))
(setq acadpref (vlax-get-property acadobject ‘preferences))
(setq acaddisp (vlax-get-property acadpref ‘display))
(vlax-put-property acaddisp ‘GraphicsWinmodelBackgrndColor 16777215)
(vlax-put-property acaddisp ‘ModelCrosshairColor 0)
)
 
(defun c:bgb () ;; black background
(setq acadobject (vlax-get-acad-object))
(setq acadpref (vlax-get-property acadobject ‘preferences))
(setq acaddisp (vlax-get-property acadpref ‘display))
(vlax-put-property acaddisp ‘GraphicsWinmodelBackgrndColor 0)
(vlax-put-property acaddisp ‘ModelCrosshairColor 16777215)
)

공유

    관련 있는 질문들

    1 답변

    1. aalan

    2. 자문 자답이네요

      이것저것 검색하다보니 나오네요.
      (vl-load-com)    이거한줄 추가 하니 되네요.
      이게 뭔진 모르겠습니다.

      (defun c:bgw () ;;white background
      (vl-load-com)
      (setq acadobject (vlax-get-acad-object))
      (setq acadpref (vlax-get-property acadobject ‘preferences))
      (setq acaddisp (vlax-get-property acadpref ‘display))
      (vlax-put-property acaddisp ‘GraphicsWinmodelBackgrndColor 16777215)
      (vlax-put-property acaddisp ‘ModelCrosshairColor 0)
      )

      (defun c:bgb () ;; black background
      (vl-load-com)
      (setq acadobject (vlax-get-acad-object))
      (setq acadpref (vlax-get-property acadobject ‘preferences))
      (setq acaddisp (vlax-get-property acadpref ‘display))
      (vlax-put-property acaddisp ‘GraphicsWinmodelBackgrndColor 0)
      (vlax-put-property acaddisp ‘ModelCrosshairColor 16777215)
      )

      • 0