심볼 균등배치하는 lisp인데 이상해요
컨텐츠 정보
- 320 조회
- 2 댓글
- 0 추천
- 0 비추천
- 목록
본문
심볼 균등배치하는 lisp인데 범위를 벗어나서 배치가 되거나
제대로 된 배치가 이루어 지지가 않아요?
왜 그런걸까요?
관련자료
상큼메론90님의 댓글
리습 내용을 보니 전등이 불켜는 전등을 말하는 것인가요???
(defun C:jd (/ M S P1 P2 XN YN XL YL XI YI Q Z R ) ;Arrange of the lighting fixture (SETVAR "CMDECHO" 0) (prompt "n전등을 자동으로 위치시킴.. edit by.. odh") (setq xyxy(ssget)) (setq z(entget (ssname xyxy 0))) (setq z1(assoc 10 z)) (setq pp1(cdr z1)) (setvar "osmode" 32) (setq P1(getpoint "First point "))(terpri) (setq P2(getcorner P1 "Second point "))(terpri) (setvar "osmode" 255) (setq YN(getint "Divide numbers (VER–) :"))(terpri) (setq XN(getint "Divide numbers (HOR||) :"))(terpri) (setq XL(/ (- (car P2) (car P1)) XN)) (setq XI(/ XL 2)) (setq YL(/ (- (cadr P2) (cadr P1)) YN)) (setq YI(/ YL 2)) (setq q (list (+ (car P1) XI) (+ (cadr P1) YI))) (COMMAND "move" xyxy "" pp1 q "") (IF (AND (= XN 1) (= YN 1)) (PROMPT "ARRANGE ONLY ONE ") (IF (AND (/= XN 1) (/= YN 1)) (COMMAND "ARRAY" xyxy "" "R" YN XN YL XL) (IF (= XN 1) (COMMAND "ARRAY" xyxy "" "R" YN XN YL) (COMMAND "ARRAY" xyxy "" "R" YN XN XL) )
)
) (PRINC "nedit.. odh") (princ) )
; 리습 내용중에서
범위를 벗어나는 경우에는 X Y 값을 재조정 해야 할 것 같습니다. (setq XI(/ XL 2)) <—- 이 부분의 숫자가 X값인데, 이것을 큰 수로 바꿔보시면 될듯~
;