캐드

사칙연산 리습관련

에스리59 쪽지보내기 메일보내기 자기소개 아이디로 검색 전체게시물 작성
작성일 2023.07.16 11:08

161 조회
1 댓글
0 추천
0 비추천
목록

글검색

안녕하세요..

사친역산 리습을 사용하다가 불편한점이 있어 도움이 필요해 글을쓰게 되었습니다.

+ 사용에서 두 숫자를 선택하고 더한숫자를 포인트로 지정해서 더한 숫자가 생성되게 되어 있는데요.

이걸 두 숫자를 선택하고 기존 있는 숫자를 선택해서 바꾸는 걸로 바꿔 주실 수 있을까해서

글 올려봅니다.

댓글 1 / 1 페이지

상큼메론90 이름으로 검색
작성일 2016.08.06 23:52

+ 부분만 수정했습니다.

선택한 글자에, 결과값이 변환됩니다.

(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) )

;;

<img alt=emoticon src="https://www.gocad.co.kr/modules/editor/components/emoticon/tpl/images/animated/animate_emoticon%20(33).gif"/>
+ 부분만 수정했습니다.
선택한 글자에, 결과값이 변환됩니다.
(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)
)
;;