프로그램
캐드 분류

리습은 잘되는데 이후 잘못된 함수: #<safearray...> 오류발생관련 질문드립니다.

컨텐츠 정보

본문

객체선택후 자동정렬하는 리습을 제작하여사용중인데
리습은 잘작동됩니다만 사용후에
TJUST 명령어 사용시 
잘못된 함수: #
라는 오류가뜹니다.
검색으로도 알수가없어서 질문드립니다.
(DEFUN C:ALIGNLEFT(/ ss ptx k en ent enx)
(vla-StartUndoMark doc)
(setq ss (ssget))
(setq ptx (car (getpoint "n 정렬할 점 선택")))
(setq k 0)
(repeat (sslength ss)
(setq en (ssname ss k))
(setq ent (vlax-ename->vla-object en))
(vla-GetBoundingBox ent 'min 'max)
(setq enx (car (vlax-safearray->list min)))
(vla-Move ent (vlax-3d-point (list enx 0 0)) (vlax-3d-point (list ptx 0 0)))
(setq k (1+ k))
)
(vla-EndUndoMark doc) 
(princ)
)

관련자료

댓글 3 / 1 페이지
전체 74 / 1 페이지
RSS
번호
제목
이름

최근글


새댓글


알림 0