캐드

auto lisp 변수 관련 질문

바트겟73쪽지보내기 메일보내기 자기소개 아이디로 검색 전체게시물 작성
작성일 2022.06.02 04:56

1,194 조회
6 댓글
0 추천
0 비추천
목록

글검색

안녕하세요~

리습을 만들다가 궁금한 것이 있어서 질문드립니다.

(setq Cnr 1) <– 변수 선언

(setq Ab_1 (getpoint "nNo." Cnr " Click left Coner!!:")) <– 1번 왼쪽 코너 클릭!!인데

여기서 Ab_1 <– 이 변수를

Cnr 변수 값을 이용하여 변수를 지정 할수 있을까요?

예를 들면 Cnr 값이 1이면

Ab_1_1 이라는 변수가 생기고

Cnr 값이 2이면

Ab_2_1 이라는 변수가 생기고

뭐 이런식으로 가능한가요?

좀 알려주세요~~
감사합니다~

댓글 6 / 1 페이지

상큼메론90이름으로 검색
작성일 2016.03.15 11:57

|||||||||||||||…이름으로 검색
작성일 2016.03.15 12:38

아래와 같이 해보세요. (defun c:abc() (setq Cnr 2 variable (read (Strcat "Ab_" (itoa Cnr) "_1″))) (set variable (getpoint (strcat "nNo." (itoa Cnr) " Click left Coner!!:"))) (princ "n") (princ (vl-symbol-name variable)) (princ) )

상큼메론90이름으로 검색
작성일 2016.03.15 13:09

앗!!! Kor_Storm 님 정~~~~~말 오랫만에 뵙습니다. 봄이 오니 return 하셨네요.

별일 없으시죠??? (별일이 많아야 좋은 건가요?)

아박스이름으로 검색
작성일 2016.03.15 13:15

답변 감사드립니다~

아박스이름으로 검색
작성일 2016.03.15 13:25

답변 감사드립니다 . 테스트 해봤는데 딱 제가 원하던 거네요.. 소름이 돋았어요 ㅎㅎ 감사드립니다.

테스트용 (defun c:abc() (setq Cnr 1) (setq variable_1 (read (Strcat "Ab_" (itoa Cnr) "_1″))) (setq variable_2 (read (Strcat "Ab_" (itoa Cnr) "_2″))) (set variable_1 (getpoint (strcat "nNo." (itoa Cnr) " Click left Coner!!:"))) (set variable_2 (getpoint (strcat "nNo." (itoa Cnr) " Click Right Coner!!:"))) (setq Cnr 2) (setq variable_1 (read (Strcat "Ab_" (itoa Cnr) "_1″))) (setq variable_2 (read (Strcat "Ab_" (itoa Cnr) "_2″))) (set variable_1 (getpoint (strcat "nNo." (itoa Cnr) " Click left Coner!!:"))) (set variable_2 (getpoint (strcat "nNo." (itoa Cnr) " Click Right Coner!!:"))) (princ "n") (princ AB_1_1) (princ AB_1_2) (princ AB_2_1) (princ AB_2_2) (princ) )