비밀번호를 잊으셨나요?

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

계정이 있나요? 로그인

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 87664
다음
Lv.0
등록일: 2010-06-102010-06-10T10:50:55+09:00 2010-06-10T10:50:55+09:00카테고리: AutoCAD & CADian

선의 질량중심 구하는 리습 제작중이었는데요..자꾸 에러가..

단면 1차 모멘트(단면의 중심, centroid)를 구하는 방법은 캐드 명령상에 “massprop”를 사용했습니다.

근데 선의 중심을 구할때는 방법이 없어서 리습으로 하나 만들어보고 싶었습니다.
(참고로 저는 리습을 배운적도 없고..그냥 따른 리습가져다가 수정해서 쓰고 있습니다..ㅠㅠ)

그래서 선의 길이를 구하는 리습으로 수정하고 있었는데 잘 안되네요..

수정좀 부탁드려요..제발..

;;선의 단면 1차 모멘트??
(defun c:123(/)
        (setq os (getvar “osmode”))
        (setq in (getvar “clayer”))
        (setq DD 0.0)
        (setq LL 0.0)
        (setvar “osmode” 33)
        (command “layer” “new” “inchul” “color” “161” “inchul” “s” “inchul”””) (terpri)
        (while (/= (setq pt1 (getpoint “Pick 1st Point : “)) nil)
                   (setq pt2 (getpoint pt1 “Pick 2nd Point : “))
                   (setq x1 (car pt1))
                   (setq x2 (car pt2))
                   (setq y1 (cadr pt1))
                   (setq y2 (cadr pt2))
                   (setq dx (- x2 x1))
                   (setq dy (- y2 y1))                 
                   (setq l1 (sqrt (+ (* dx dx) (* dy dy))))
                   (setq a1 (sqrt (* x1 x1)))
                   (setq b1 (sqrt (* x2 x2)))
                   (setq p1 (/ (+ a1 b1) 2))
                   (setq o1 (* p1 l1))
                   (setq dd (+ o1 dd))
                   (setq ll (+ l1 ll))
                   (command “layer” “s” “inchul”””)
                   (command “line” pt1 pt2 “”)              
                   (setq de (/ DD LL)
           (PRINC)
        )
        (setq pnt (getpoint “Text a Point : “))
        (setvar “osmode” 0)
        (setq de (rtos de 2 dec)) ;de에 저장된 숫자를 문자로 변환;2째짜리 까지
        (command “.text” “j” “c” pnt “” “” DE “”)
        (print DE)
        (setvar “osmode” os)
        (setvar “clayer” in)
)


dd.jpg

  • 0
  • 10 조회
공유
  • Facebook

    관련 있는 질문들

    • FAQ 51을 참조 하라는데 FAQ가 어디에 있나요??
    • jsk.shx 파일 받을 부탁드립니다 ㅠ
    • 오토캐드 마지막 화면으로 실행 안됨
    • 오토캐드 마지막 화면으로 실행 안됨

    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