eomsangdonandClaude Opus 5.5
5fdd5f8a4e
고른 개체만 DXFOUT(ASCII) → %TEMP%\aislo_webclip.dxf → PowerShell Set-Clipboard 로 파일 글을 클립보드 글로(LISP 로 읽으면 UTF-8 한글이 깨져서) → 명령줄에 「N개 복사됨 · 웹 CAD 에서 Ctrl+V」. 설치(APPLOAD · 시작하기 세트)는 파일 머리 주석. Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com> Claude-Session: https://claude.ai/code/session_01K7JS47SacjPxZ718QsZKyr
89 lines
4.1 KiB
Common Lisp
89 lines
4.1 KiB
Common Lisp
;;; =============================================================================
|
|
;;; aislo_webclip.lsp — 오토캐드 도형을 Aislo 웹 CAD 로 붙여넣기 (명령 WEBCLIP)
|
|
;;;
|
|
;;; 쓰는 법
|
|
;;; 1. 오토캐드 명령줄에 WEBCLIP → 보낼 개체를 고르고 Enter
|
|
;;; 2. 명령줄에 「N개 복사됨 · 웹 CAD 에서 Ctrl+V」가 뜨면
|
|
;;; 3. 웹 CAD(B07 상세 설계 · 마스터 도면 양식) 캔버스를 한 번 누르고 Ctrl+V
|
|
;;; → 원좌표 그대로 · 도면층 이름 그대로 붙고 고른 상태가 됨
|
|
;;;
|
|
;;; 설치 (한 번)
|
|
;;; · 이번만: 명령 APPLOAD → 이 파일을 골라 [로드]
|
|
;;; · 매번 자동: APPLOAD 창 오른쪽 아래 「시작하기 세트」의 [내용...] → [추가...] → 이 파일
|
|
;;; · 파일 자리가 「신뢰할 수 있는 위치」(옵션 → 파일 → 신뢰할 수 있는 위치)가 아니면
|
|
;;; 불러올 때 보안 경고가 한 번 뜸 — [한 번 로드] 또는 그 폴더를 신뢰 위치에 더함
|
|
;;; · 이 파일은 UTF-8 — AutoCAD 2021 이상(LISPSYS 1)이면 안내 글이 바로 보임 ·
|
|
;;; 옛 판은 안내 글만 깨지고 동작은 같음
|
|
;;;
|
|
;;; 하는 일
|
|
;;; 고른 개체만 DXFOUT(ASCII · 소수 16자리) → %TEMP%\aislo_webclip.dxf →
|
|
;;; PowerShell `Get-Content -Raw -Encoding UTF8 | Set-Clipboard` 로 파일 글을 클립보드 글로.
|
|
;;; LISP 로 파일을 직접 읽지 않는 까닭 — AutoCAD 2007 이후 DXF 는 UTF-8 인데 LISP read-line 은
|
|
;;; ANSI(한글 CP949)로 읽어 한글 글자가 깨짐. PowerShell 이 없는 PC 는 htmlfile
|
|
;;; (parentWindow.clipboardData.setData "Text") 로 바꿀 수 있으나 같은 한글 문제가 남음.
|
|
;;; 웹 CAD 는 클립보드 글이 「0 / SECTION」으로 시작하면 DXF 로 알아보고 서버가 도형으로 바꿈
|
|
;;; (`B07_DesignDetail_Engine_Frame_Import.py` · 해치 · 솔리드는 빠지고 블록 · 치수는 풀려서 들어감).
|
|
;;; =============================================================================
|
|
|
|
(vl-load-com)
|
|
|
|
(defun aislo:webclip-path ()
|
|
(strcat (vl-string-right-trim "\\" (getenv "TEMP")) "\\aislo_webclip.dxf")
|
|
)
|
|
|
|
;;; 파일 글(UTF-8)을 클립보드 글로 — 성공하면 0
|
|
(defun aislo:clipboard-from-file (path / shell cmd rc)
|
|
(setq shell (vlax-create-object "WScript.Shell"))
|
|
(setq cmd
|
|
(strcat
|
|
"powershell -NoProfile -ExecutionPolicy Bypass -Command "
|
|
"\"Get-Content -Raw -Encoding UTF8 -LiteralPath '" path "' | Set-Clipboard\""
|
|
)
|
|
)
|
|
;; 0 = 창 안 띄움 · :vlax-true = 끝날 때까지 기다림
|
|
(setq rc (vl-catch-all-apply 'vlax-invoke-method (list shell 'Run cmd 0 :vlax-true)))
|
|
(vlax-release-object shell)
|
|
(if (vl-catch-all-error-p rc) -1 rc)
|
|
)
|
|
|
|
(defun c:WEBCLIP (/ ss path old-dia old-echo rc *error*)
|
|
(setq old-dia (getvar "FILEDIA") old-echo (getvar "CMDECHO"))
|
|
(defun *error* (msg)
|
|
(setvar "FILEDIA" old-dia)
|
|
(setvar "CMDECHO" old-echo)
|
|
(if (not (wcmatch (strcase msg) "*CANCEL*,*QUIT*,*취소*"))
|
|
(princ (strcat "\nWEBCLIP 실패: " msg))
|
|
)
|
|
(princ)
|
|
)
|
|
(princ "\n웹 CAD 로 보낼 개체를 고르십시오: ")
|
|
(if (setq ss (ssget))
|
|
(progn
|
|
(setq path (aislo:webclip-path))
|
|
(if (findfile path) (vl-file-delete path))
|
|
(setvar "FILEDIA" 0)
|
|
(setvar "CMDECHO" 0)
|
|
;; 파일 이름 → [개체] → 고른 개체 → 소수 자릿수(기본 16)
|
|
(command "_.DXFOUT" path "_O" ss "" "")
|
|
(setvar "FILEDIA" old-dia)
|
|
(setvar "CMDECHO" old-echo)
|
|
(cond
|
|
((not (findfile path))
|
|
(princ "\nDXF 를 만들지 못했습니다 — 다시 해 보십시오.")
|
|
)
|
|
((/= 0 (setq rc (aislo:clipboard-from-file path)))
|
|
(princ "\n클립보드에 넣지 못했습니다(PowerShell 확인) — DXF 는 %TEMP%\\aislo_webclip.dxf 에 있습니다.")
|
|
)
|
|
(t
|
|
(princ (strcat "\n" (itoa (sslength ss)) "개 복사됨 · 웹 CAD 에서 Ctrl+V"))
|
|
)
|
|
)
|
|
)
|
|
(princ "\n고른 개체가 없습니다.")
|
|
)
|
|
(princ)
|
|
)
|
|
|
|
(princ "\nAislo WEBCLIP 불러옴 — 명령 WEBCLIP 으로 고른 개체를 웹 CAD 로 복사.")
|
|
(princ)
|