따옴표를 리습 함수에서 사용하기

 

Include " when using STRCAT

to get a " you have to use "\""

 

;; 내부 도각 블럭을 외부에 있는 수정된 도각 블럭으로 교체하는 리습
;;
(defun KM:oldBLOCKtoNEW ( oldblockname newblockname / obn nbn pth obnpthnbn )
(setq obn oldblockname nbn newblockname)
(setq pth (getvar "DWGPREFIX"))
(setq obnpthnbn (strcat "\"" obn "=" pth nbn "\""))
(command "-insert" obnpthnbn "y")
(command \e "resume")
)
;; 추가로 기존 블럭 이름을 유지하므로 새이름으로 블럭이름을 수정하는 모듈 개발 필요.
;;
(defun c:obn ( ) ;; 예제명령임.
;;내부 블럭인 Sheet_A1_R...을 동일한 폴더의 수정된 도각 파일인 Sheet_A1_AFC...로 교체함.
(KM:oldBLOCKtoNEW "Sheet_A1_R_Diagrams - Sheet_A1_R_Diagrams-3890249-방화구획 계획도-1" "Sheet_A1_AFC - Sheet_A1_AFC-4222207-방화구획 계획도-1")
(princ obnpthnbn)
)