사칙연산 리습관련
컨텐츠 정보
- 269 조회
- 1 댓글
- 0 추천
- 0 비추천
-
목록
본문
안녕하세요..
사친역산 리습을 사용하다가 불편한점이 있어 도움이 필요해 글을쓰게 되었습니다.
+ 사용에서 두 숫자를 선택하고 더한숫자를 포인트로 지정해서 더한 숫자가 생성되게 되어 있는데요.
이걸 두 숫자를 선택하고 기존 있는 숫자를 선택해서 바꾸는 걸로 바꿔 주실 수 있을까해서
글 올려봅니다.
관련자료
상큼메론90님의 댓글
+ 부분만 수정했습니다.
선택한 글자에, 결과값이 변환됩니다.
(DEFUN C:+(/ z ss sno no tno sum x entity etype num h pt cc ly te hh dz) ;->*error* start (defun *error* (msg)(princ "error: ")(princ msg) (setvar "osmode" os)(setvar "blipmode" bl)(setvar "dimzin" dz) (princ)) ;-<*error* end (SETVAR "CMDECHO" 0) ; (setq nd (getint "n>>>Number of digits to right of decimal point(0-8) : ")) (prompt "n>>> 숫자 더하기….") (setq dz (getvar "dimzin") os (getvar "osmode") bl (getvar "blipmode")) (setvar "dimzin" 0) ; 소수점이하 "0″을 표현함. (setq nd 2) (prompt "n……Select Text : ") (setq ss (ssget)) (setq sno (sslength ss)) (setq no 0) (setq sum 0.0) (setq tno 0) (repeat sno (setq x (ssname ss no)) (setq etype (cdr (assoc 0 (entget x)))) (if (= etype "TEXT") (progn (setq entity (entget x)) (setq num (cdr (assoc 1 entity))) (setq num (atof num)) (setq sum (+ sum num)) (setq tno (1+ tno)) ) ) (setq no (1+ no)) ) (setq tno (itoa tno)) (setq sum (rtos sum 2 nd)) ;(setq pt (getpoint "n>>> Text Point : ")) (setq cc (getvar "clayer")) (setq ly (tblsearch "layer" "TEXT")) ;"레이어를 검색 없으면 레이어 생성 (if (= ly nil) (command "-layer" "m" "text" "c" "3″ "" "l" "continuous" "" "") ) (setvar "clayer" "text") ;<= 현재 레이어를 변경한다. (setq te (tblsearch "style" "HY울릉도L")) ;"style을 검색 없으면 style 생성 (if te (progn (command "-style" "HY울릉도L" "H2WULL.TTF" "0″ "1″ "0″ "n" "n") )) (SETQ Hh (GETVAR "LTSCALE")) (setq h (* hh 3)) (SETQ H (GETVAR "TEXTSIZE")) (prompt "n>>> Text Height <") (princ H) (princ "> : ") ;|(setq Z (getdist)) (if Z (setq H Z) ) |; ;(COMMAND "TEXT" "J" "R" ; (SETQ Z PT) ; (SETQ Z H) ; (SETQ Z 0.0) ; (SETQ Z sum) ???? (setq ssx (entsel "n >>> 계산값이 찍힐 자리의 숫자를 선택해 주세요? :")) (setq edx (entget (car ssx))) (entmod (subst (cons 1 sum) (assoc 1 edx) edx)) (setvar "clayer" cc) (setvar "osmode" os)(setvar "blipmode" bl) (setvar "dimzin" dz) (PRIN1) )
;;