홈/ 질문/Q 111364
다음
진행 중
Lv.0
등록일: 2019-05-24T10:16:08+09:00 카테고리:

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

객체선택후 자동정렬하는 리습을 제작하여사용중인데
리습은 잘작동됩니다만 사용후에
TJUST 명령어 사용시 
잘못된 함수: #<safearray…>
라는 오류가뜹니다.
검색으로도 알수가없어서 질문드립니다.
(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. aalan
    2. Lv.21
      일단 눈에 띄는것은 

      vl-load-com

      doc 변수 선언이 없네요 
      • 0
    3. Lv.23

      min max 때문일지도…

      2019면 tjust 말고, [자리 맞추기(justifytext)] 쓰세요. 단축 명령어 추가해서…
      • 0

    4. min max 를 상단에 추가하니 제대로 작동하네요 ㅎㅎ 감사합니다

      • 0