홈/ 질문/Q 112187
다음
진행 중
Lv.0
등록일: 2020-03-04T11:44:36+09:00 카테고리:

Auto CAD 원(CIRCLE) Center Line 센터라인 Lisp 파일 구할수 있을까요?

안녕하세요
제가 전 직장에서 플랜트배관 설계를 했었습니다
GHK LISP 을 이용하여 CAD를 사용했는데
거기서는 원을 그리고 단축명령어 : CEN 을 입력하고 해당 원을 클릭하면 자동으로 CENTER LINE이
그려졌습니다 해당 LISP 파일을 구하고 싶은데 혹시 가지고 있으신분 계신가요?
부탁드립니다.

캡처.PNG

공유

    관련 있는 질문들

    2 답변

    1. aalan
    2. Lv.1

      CENTERMARK 라는 기본 명령어가 있어요.

      • 0
    3. Lv.0

      제가 사용하는 리습중에 이런게 있네요 

      제가 만든건 아니고 다른분이 만든건데.. 출처를 몰라 표기를 못하겠어요
      ;**************<중심 십자선 그리기1>*************************
      (defun c:CR()
      (setvar “cmdecho” 0)
      (setq ds (getvar “dimscale”))
      (setq OS (getvar “OSMODE”))
      (setvar “osmode” 37)
      (setq cc (getpoint”nSelect circle:”))
      (setvar “orthomode” 1)
      (setvar “osmode” 179)
      (setq ce (getpoint cc “nEnd of center line:”))
      (setq dst (distance cc ce))
      (setq dd (/ dst ds))
      (setq ang (angle ce cc))
      (setq cf (polar ce ang (* 2 dst)))
      (command”line” ce cf “”)
      (command”copy” “l” “” cc cc)
      (command”rotate” “l” “” cc “90” )
      (setq ls “CENTER”)                ; 라인 type 변경
      (command”chprop” “c” cc cc “”  “lt” ls “c” “1” “”)
      (SETVAR “CECOLOR” “BYLAYER”)
      (princ)
      )
      ;**************<중심 십자선 그리기2>*************************
      (DEFUN DTR (A)
       (* PI (/ A 180.0))
       )
      (DEFUN C:CCR ()
       (SETQ LAY (GETVAR “CLAYER”))
       (setq ds (getvar “dimscale”))
       (setq OS (getvar “OSMODE”))
       (command “ucs” “”)
       (prompt “G”) 
       (SETQ A (ENTSEL “Nn원 또는 호를 선택 하시오:”)) 
       (prompt “O”) 
       (COMMAND “OSNAP” “”)
       (SETQ B (ENTGET (CAR A)))
       (prompt “O”) 
       (SETQ CEN (CDR (ASSOC 10 B)))
       (prompt “D”) 
       (SETQ RAD (CDR (ASSOC 40 B)))
       (prompt “M”) 
       (COMMAND “OSNAP” “”)
       (SETQ P1 (POLAR CEN (DTR 90) (* RAD 1.3))) 
       (prompt “A”) 
       (SETQ P2 (POLAR CEN (DTR -90) (* RAD 1.3)))
       (prompt “N”) 
       (SETQ P3 (POLAR CEN (DTR 180) (* RAD 1.3)))
       (prompt “L”) 
       (SETQ P4 (POLAR CEN (DTR 0) (* RAD 1.3)))
       (prompt “J”) 
       (COMMAND “LINE” P1 P2 “”)
       (SETQ Q1 (ENTLAST))
       (COMMAND “LINE” P3 P4 “”)
       (SETQ Q2 (ENTLAST))
       (setq ls “CENTER”)    ; 라인 type 변경
       (COMMAND “CHPROP” Q1 Q2 “” “lt” ls “C” “1” “” “”) 
       (setvar “osmode” 181)
       )
      위에껀 십자선 길이를 직접 클릭으로 지정하는거고 
      아래껀 스케일에 따라 십자선을 알아서 만들어 주는 리습입니다. 
      • 0