원하시는게 맞는지는 몰겠습니다. 걍... 참고만... ^^;;(defun CfgFindDvb ( / vbp cnt i dvbList) ;아키모아 하얀제비(2011.04.27) ;현재 로드된 모든 dvb명을 리턴한다. (vl-load-com) (setq vbp (vlax-get-property(vla-get-vbe (vlax-get-acad-object)) 'vbprojects)) (setq cnt (vlax-get-property vbp 'count)) (setq i 1 dvbList '()) (while (>= cnt i) (setq dvbList (append dvbList (list (vlax-get-property (vla-item vbp i) 'name)))) (setq i (1+ i)) );;;while dvbList )
다음검색