아래 자료는 xyz값이 있으면 각 지점에 번호를 매기는 건데요
보통 3점이 삼각형 구도로 되어 있거든요~
예를 들면 점 10개가 있다면 각각 선으로 이어서 쇠뿔모양이든 정삼각형이든 암튼 각각 삼각형을 만든상태가 있습니다.
거기서 각 점에 번호를 1~10 까지 매기는 리습인데
저는 각각 지점 말고 삼각형 중심에 삼각형 번호 갯수를 매기고 싶은데
변경을 어떻게 하나요 ㅠㅠ
고수님들 작성해 주세요 ㅠㅠ
참고로 데이터는
num에서는 지점 갯수랑 삼각형 개수는 나와있구요
nnode에서는 각 점의 xyz좌표
mele에서는 삼각형 만들 점의 번호 있잖아요
예를 들어 첫번째 삼각형은 1번점 2번점 3번점 만났다고 하고
두번째는 2번,3번,6번 이라고 하고, 세번째는 3번,4번,7번
이라고 하면요 데이터는
1
2
3
2
3
6
3
4
7
이런식으로 나와있긴해요
부탁드립니다… ㅠㅠ
—————————————————————
(defun c:MNUM (/ TH TXTH NUMB NUM nnode nn x y z xyz TXT BH )
(setq num (open “numb.dat” “r”))
(setq nnode (open “node.dat” “r”))
(setq nn (atoi (read-line num) ) )
(close num)
(SETVAR “CMDECHO” 0)
(SETQ NUMB 1)
(SETQ TH (GETVAR “TEXTSIZE”))
(PRINC “nPICK TEXT/TEXT HEIGHT<")
(PRINC TH)
(INITGET “PICK”)
(SETQ TXTH (GETDIST “>:”))
(cond
((= TXTH NIL) (SETQ TXTH TH))
((= TXTH “PICK”)
(PROGN
(SETQ TXTH (CDR (ASSOC 40 (ENTGET (CAR (ENTSEL “PICK TEXT”))))))
(PRINC “TEXT HEIGHT IS “)
(PRINC TXTH)
) ;OF PROGN
);OF COND TXTH=”PICK”
);of cond
(repeat nn
(setq x (atof (read-line nnode) ) )
(setq y (atof (read-line nnode) ) )
(setq z (atof (read-line nnode) ) )
(setq xyz (list x y z ))
(setq TXT (ITOA NUMB))
(COMMAND “TEXT” “J” “M” XYZ TXTH “0” TXT)
(SETQ BH (* 1.5 TXTH))
(command “CIRCLE” XYZ BH )
(setq NUMB (+ NUMB 1))
)
(command “”)
(close nnode)