해당 테이블값들은 해당 열의 합입니다. 하지만 값이 없는 열 들은 #### 으로 표현이 되고 있는데 이 ####을 '-' 이나 '숫자 0' 으로 표현하고싶은데 방법을 모르겠습니다. 고수님들 도움 좀 부탁드리겠습니다.
(setq path (strcat "c:/block/" bn ".dwg")) ; c:/block/폴더 작성 필요 - 현재 줄을. (setq path (getfiled "블럭 파일 저장하기" (if gn (strcat(getvar 'dwgprefix) bn) "파일명 없음") "dwg" 3)) ;;- 으로 변경 하면 됩니다. 파일명을 선택 못했을때는 "파일명 없음"으로 됩니다.
(setq path (strcat "c:/block/" bn ".dwg")) ; c:/block/폴더 작성 필요 – 현재 줄을.
(setq path (getfiled "블럭 파일 저장하기" (if gn (strcat(getvar 'dwgprefix) bn) "파일명 없음") "dwg" 3)) ;;- 으로 변경 하면 됩니다. 파일명을 선택 못했을때는 "파일명 없음"으로 됩니다.
See less
(defun c:twc(/ myerror os ss n ptx pty pyxy kw k en tx a) ;start --- Internal error handler ----------------------------- (defun myerror(S) (if (/= s "Function cancelled")(princ (strcat "\nError:" s))) (setvar "osmode" os) (setvar "blipmode" bl) (setq *error* olderr)(princ) ) (setq olderr *error* *e더 읽기
(defun c:twc(/ myerror os ss n ptx pty pyxy kw k en tx a)
;start --- Internal error handler -----------------------------
(defun myerror(S)
(if (/= s "Function cancelled")(princ (strcat "\nError:" s)))
(setvar "osmode" os) (setvar "blipmode" bl)
(setq *error* olderr)(princ) )
(setq olderr *error* *error* myerror)
;end-----------------------------------------------------------
(setq os (getvar "osmode"))
(prompt " 문자 좌우 정렬...")
(setq ss (ssget '((0 . "text")))) (terpri)
(setq n (sslength ss))
(setq ptx (car (getpoint "\n기준점 선택 ")))(terpri)
(setvar "osmode" 0)
(setq a "자리맞추기 선택[왼쪽(L)/중심(C)/오른쪽(R)] : ")
(initget "mL mC mR")
(setq kw (getkword a))
(if (= kw nil) (setq kw "ml"))
(if (= kw "ml") (setq sn 10) (setq sn 11))
(command "justifytext" ss "" kw) (terpri)
(setq k 0)
(while (<= 1 n)
(setq en (ssname ss k))
(setq ptxy (cdr (assoc 10 (entget en))) )
(setq pty (cadr ptxy))
(setq pt2 (list ptx pty))
(entmod (subst (cons sn pt2) (assoc sn (entget en))(entget en)))
(setq n (- n 1))
(setq k (+ k 1))
)
(setvar "osmode" os)
(princ)
)
이렇게 바꾸시면 됩니다.
;
See less