안녕하세요..
프린터를 자동으로 보내는 리습을 쓰고 있었는데
여기회사는 쉬트(폼)만 있고 사이드에 선(1:1종이사이즈끝라인)이 없으니까
도면이 왼쪽하단에 붙어서 나오네요..ㅡㅡ? 고수님들은 이해가시죠..?
회사를 옮겼는데.. 이쪽 폼을 바꾸자고 하기는 뭐하고 해서.. 이폼을 a3 중앙으로 맞출수는 없는지해서
이렇게 송구스럽지만 글남겨봅니다.
(setq p1 (cdr (assoc 10 obj))) ;박스 좌측하단 좌표값
위에 내용이 박스 좌측 하단값 맞죠?
그럼 이값을 x로 10 y로 10 가게 하고싶다면
어떻게 수정해야할까요?
몇번뽑아보고 위치를 잡아보려고하는데
제가할수있을까요?
Cannot invoke (command) from *error* without prior call to (*push-error-using-command*).
Converting (command) calls to (command-s) is recommended.
요래뜨면서 안되네요
공유
p1 이 시작포인트고,
(list 10.0 10.0 0.0) 이부분이 x y z 의 추가 값입니다. 적절히 절해보세요
와우 감사합니다..역시 고수님 정말 감사합니다.
마지막으로 하나만 더 여쭤볼게요
10.0 10.0 0.0 <- 이게 시작 포인트 같은데.. 이렇게 하니까 프린트되는부분이 많이 짤리는데요..
혹시 -10.0 -10.0 0.0 으로 변경할순없나요?
이렇게 변경해보았더니.. 똑같이 짤려서 나오네요..
귀찮게 해드려서..죄송합니다.
(setq p1 (cdr (assoc 10 obj)))
(setq p1 (mapcar ‘+ p1 (list 10.0 10.0 0.0)))
추가 하시면 됩니다.
);cond
(setq bl1 (ssget (list (cons 0 “INSERT”) sht_1))) ;선택적으로 내보내기
(setq nb (sslength bl1))
(prompt “n==>출력물은 총 “)
(prin1 nb)
(prompt ” 장 입니다”)
(setq s_nu 1)
(setq s_nu (getint “n==>몇장을 출력하시겠습니까?”))
(setq num 0)
(repeat s_nu
(repeat nb
(setq ob1 (ssname bl1 num))
(setq obj (entget ob1))
(setq p1 (mapcar ‘+ p1 (list 10.0 10.0 0.0)));박스 좌측하단 좌표값 <- 요렇게 수정했는데 오류가떠요
(setq scbox (cdr (assoc 41 obj)));도면블럭이름
(setq scbox_a3 (* scbox sc_1))
(setq di_l (sqrt (+ (expt (* di_x scbox) 2) (expt (* di_y scbox) 2)))) ;박스
(setq p2 (polar p1 ang_1 di_l))
(command “zoom” “w” p1 p2 )
(command “zoom” “s” “0.8xp” )
(setq sc1 (strcat “1=” (rtos scbox_a3)))
(COMMAND “-PLOT” “Y” “” pp size “M” “L” “N” “w” P1 P2 sc1 “C” “Y” “CNA-A3.ctb” “Y” “W” “N” “N” “Y” )
(setq num (1+ num))
);repeat
(setq num 0)
);repeat
(princ)
);defun
이렇게 하면 될겁니다.