비밀번호를 잊으셨나요?

비밀번호를 잊으셨나요? 비밀번호를 재설정하려면 이메일 주소를 입력해주세요.

계정이 있나요? 로그인

You must login to ask a question.

비밀번호를 잊으셨나요?

아직 계정이 없으신가요? 회원가입 하기

해당 질문을 신고하는 이유를 간단히 입력해주세요.

해당 답변을 신고하는 이유를 간단히 입력해주세요.

해당 유저를 신고하는 이유를 간단히 입력해주세요.

로그인회원가입

고캐드 – 캐드(CAD) 정보의 중심

고캐드 – 캐드(CAD) 정보의 중심 Logo 고캐드 – 캐드(CAD) 정보의 중심 Logo

고캐드 – 캐드(CAD) 정보의 중심 Navigation

  • Q&A
    • AutoCAD & CADian
    • Inventor & Solidworks
    • Revit & ArchiCAD
    • 자유질문
    • 기타
  • 커뮤니티
    • 오늘의이슈
    • 자유게시판
    • 익명게시판
    • 건의게시판
  • 자료실
    • 자료요청
    • 일반파일
    • 도면샘플
    • 유틸리티
    • 기타
  • 작품 갤러리
    • 그래픽
    • 캐드도면
    • 3D모델
    • 기타
  • 뉴스&이벤트
    • 공지사항
    • 뉴스
    • 전시/행사
    • 이벤트
    • 기타
검색
질문하기

Mobile menu

닫기
질문하기
  • 홈
  • 카테고리
    • AutoCAD & CADian
    • Inventor & Solidworks
    • Revit & ArchiCAD
    • 자유질문
    • 기타
  • 투표
  • 커뮤니티 그룹
  • Q&A
    • AutoCAD & CADian
    • Inventor & Solidworks
    • Revit & ArchiCAD
    • 자유질문
    • 기타
  • 커뮤니티
    • 오늘의이슈
    • 자유게시판
    • 익명게시판
    • 건의게시판
  • 자료실
    • 자료요청
    • 일반파일
    • 도면샘플
    • 유틸리티
    • 기타
  • 작품 갤러리
    • 그래픽
    • 캐드도면
    • 3D모델
    • 기타
  • 뉴스&이벤트
    • 공지사항
    • 뉴스
    • 전시/행사
    • 이벤트
    • 기타
홈/ 질문/Q 108787
다음
진행 중
Lv.0
등록일: 2017-08-172017-08-17T14:15:32+09:00 2017-08-17T14:15:32+09:00카테고리: AutoCAD & CADian

좌표점으로 도형그리는 LISP관련 문의드립니다.

안녕하세요.

LISP을 이용해 메모장에 있는 좌표점을 도형으로 그리고자 합니다.
다른 LISP 파일을 받아 시도해봤지만 막막하네요..

제가 시도하고 있는 예시 첨부 드립니다.

DS 1 1 10;
9 SAW;
L ONW;
P 97762 260000 104489 260000 104489 270000 97762 270000 97762 260000;
P 97762 270000 104489 270000 151128 476645 144487 476645 97762 270000;
DF;


End;

위와 같이 4번째 줄부터 좌표값이 나와있고 X1, Y1, X2, Y2, X3, Y3, X4, Y4, X5, Y5의 5개 점으로 폴리라인을 그려 하나의 도형이 만들어집니다.

여기서 총 Line의 수 이런것은 없고 앞에 P가 적힌 줄에 대한 데이터를 읽는 방법 (P를 제외한 각 좌표의 점들만)과 ;로 끝나는 한 줄의 끝을 인식하는 방법은 어떤방법이 있나요..?


 

  • 0
  • 3 3 답변
  • 27 조회
공유
  • Facebook

    관련 있는 질문들

    • 도곽크기를 a2 그리고 출력은 a3로 하려는데
    • 캐드 프로그램 고르려고 하는데요.(캐디안, GSTARCAD)
    • 교통영향평가 cad 자료
    • 아이콘을 바꾸고 싶습니다.

    3 답변

    • 작성 순
    • 최신 순
    • 공감 순
    1. aalan
    2. [Deleted User]
      2017-08-17T15:30:50+09:00답변 등록 답변 등록 일시 2017-08-17 3:30 pm

      도움말에 substr함수로 P의 유무를 확인, 나머지는 스페이스(공백)으로 구분하여  atof함수로 실수 변환

      • 0
      • 공유
        공유
        • 공유 Facebook
        • 공유 Twitter
    3. [Deleted User]
      2017-08-17T16:51:47+09:00답변 등록 답변 등록 일시 2017-08-17 4:51 pm

      답변 감사드립니다.
      제가 잘 모르지만 작성해보았는데 이렇게 하는게 맞나요?

      (setq rl (substr
      “P” 1))
      (setq rl (vl-string-left-trim “P” rl))
      (setq x1 (read rl))
      (setq x1 (itoa x1))
      (setq rl (vl-string-left-trim ” ” rl))
      (setq rl (vl-string-left-trim x1 rl))

      • 0
      • 공유
        공유
        • 공유 Facebook
        • 공유 Twitter
    4. [Deleted User]
      2017-08-17T19:32:53+09:00답변 등록 답변 등록 일시 2017-08-17 7:32 pm
      (defun AT:ReadFile (#File / #List #File #Line)
        (and
          (setq #File (open (findfile #File) “R”))
          (while (setq #Line (read-line #File))
            (setq #List (cons #Line #List))
          )
          (close #File)
        )
        (reverse #List)
      )
      (defun c:123 ( / s l a)
      (setq file “C:\abc.cif”) ;<———— 파일 경로 수정할 것
      (setvar ‘cmdecho 0)
      (foreach s (vl-remove-if-not ‘(lambda (a) (= (substr a 1 1) “P”)) (AT:ReadFile file))
      (setq s(substr s 3) s (substr s 1 (1- (strlen s))) l (read (strcat “(” s “)”)))
      (command “_pline”)
      (while l
      (command (list (car l) (cadr l)))
      (setq l (cddr l))
      )
      (command “”)
      )
      (princ)
      )
      • 0
      • 공유
        공유
        • 공유 Facebook
        • 공유 Twitter

    Sidebar

    질문하기
    공지사항

    • AI CAD의 미래! 캐디안 2025 1+1 프로모션 안내 2025-05-14

    Adv 234x60

    aalan

    Adv 234x60

    aalan

    Adv 120x600

    aalan

    Explore

    • 홈
    • 카테고리
      • AutoCAD & CADian
      • Inventor & Solidworks
      • Revit & ArchiCAD
      • 자유질문
      • 기타
    • 투표
    • 커뮤니티 그룹
    aalan

    Footer

    Support

    • 회사 및 서비스 소개
    • 자주 묻는 질문
    • 문의하기

    Guide

    • 제휴/협업 안내
    • 광고 서비스 안내

    Policy

    • 서비스 이용약관
    • 개인정보 처리방침
    • 광고성 정보 수신 동의

    Contents

    • 고밍스토리
    • 리습 시리즈

    정소프트 | 사업자등록번호 : 677-40-00198 | 대표 : 정은숙 | 이메일 : gocad.manager@gmail.com
    주소 : 서울특별시 강서구 양천로 400-12, 6층 614,615,617호(등촌동, 더리브골드타워)
    Copyright. 2012-2024 GOCAD All rights reserved