팁과 정보
▶ 유용한 정보
- ㆍ[정보] 무력화 실험(파티원 데리고)+버그가 있네요 [1]
- ㆍ[정보] 님들 이거 알고있었음? [2]
- ㆍ[정보] 아수라의 종결 살의의 파동 특징(짙편린 아님) [1]
- ㆍ[정보] SSS나미SSS 추잡스러우시네요 자기 정보 정도는 ... [41]
- ㆍ[정보] 무호흡무버프 <-- 카시야스 이사람 미쳤음. 다들 ... [5]
닐스없는닐스몹 | 날짜 : 2022-01-28 15:03 | 조회 : 192 / 추천 : 3 |
---|---|---|
[잡담] 핑까 부탁드립니다.(setq r 0 i t tmp (ssadd) ) (while i (setq gr (grread nil (+ 2 4 8) 2)) (if (member (car gr) '(3)) (progn (if (setq obj (car (nentselp (cadr gr)))) (progn
(setq p_txt (last (MT_T (cdr (assoc 1 (entget obj)))))) (if (vl-string-search "OD" p_txt) (setq p_od (atof (find_no p_txt))) (setq p_od (atof (chg_p_size (find_no p_txt) 0))) ) (setq i nil) (sssetfirst nil (ssadd obj tmp)) ) (progn (prompt "n선택할 객체가 없습니다.") )) )) (if (member (car gr) '(2)) (progn (princ (chr (cadr gr))) (setq p_txt (cons (chr (cadr gr)) p_txt)) (if (member (cadr gr) '(8)) (progn (setq p_txt (cdr (cdr p_txt))) )) (if (member (cadr gr) '(0 13)) (progn (setq p_od (apply 'strcat (reverse (cdr p_txt)))) (setq i nil) )) )) ) |
99
12,500
프로필 숨기기
신고
33%