캐드에 왕도는 없습니다
여러가지 방법으로 작업가능한 것이 캐드거든요
다만 능률의 차이는 분명 존재합니다
캐드는
민주적인 픍램이거든요
우선 아래의 텍스트들을 아무생각 없이 훓어 보세요
아래에 다시 설명을 붙이겠습니다
Command: _rectang
Chamfer/Elevation/Fillet/Thickness/Width/<First corner>:
Other corner:
Command:
Command:
Command: _explode
Select objects: l
1 found
Select objects:
Command:
Command:
Command: _lengthen
DElta/Percent/Total/DYnamic/<Select object>: p
Enter percent length <3.33>: 100/30
<Select object to change>/Undo:
<Select object to change>/Undo:
<Select object to change>/Undo: *Cancel*
Command:
Command: _array
Select objects: 1 found
Select objects:
Rectangular or Polar array (<R>/P):
Number of rows (—) <1>:
Number of columns (|||) <1>: 30
Distance between columns (|||): Second point:
Command:
ARRAY
Select objects: 1 found
Select objects:
Rectangular or Polar array (<R>/P):
Number of rows (—) <1>: 30
Number of columns (|||) <1>:
Unit cell or distance between rows (—): Other corner:
Command:
Command:
Command: _extend
Select boundary edges: (Projmode = UCS, Edgemode = Extend)
Select objects: 1 found
Select objects: 1 found
Select objects:
<Select object to extend>/Project/Edge/Undo:
<Select object to extend>/Project/Edge/Undo:
<Select object to extend>/Project/Edge/Undo:
Command:
수고하셨습니다
이런 내용입니다
우선 아무렇게나 RECTANG 해 주세요
Command: _rectang
Chamfer/Elevation/Fillet/Thickness/Width/<First corner>:
Other corner:
이번엔 그것을 EXPLODE 합니다
마지막 만들어진 객체는 L 엔터 엔터로 선택합니다
Command: _explode
Select objects: l
1 found
Select objects:
이번엔 길이조절에 들어갑니다
LENGTHEN 엔터
P 엔터
100/30 엔터 합니다
그리고 네 개의 선들 중 우선 위에 있는 수평선의 좌측을 찍습니다
선이 줄어 듭니다
다음은 계속해서 우측에 있는 수직선의 아래쪽을 찍습니다
선이 줄어듭니다
엔터 합니다
Command: _lengthen
DElta/Percent/Total/DYnamic/<Select object>: p
Enter percent length <3.33>: 100/30
<Select object to change>/Undo:
<Select object to change>/Undo:
<Select object to change>/Undo:
이번엔 ARRAY 를 합니다
우선 좌측에 있는 수직선을 선택합니다
엔터 합니다
사각배열이므로 R 엔터합니다
세로배열은 없으므로 그냥 엔터 합니다
가로배열의 수 30 엔터합니다
거리값을 키보드로 입력하지 않고 거리측정치로 잡습니다
아까 LENGTHEN 하여 짧아진 선들 중 수평선의 왼쪽 끝을 ENDP 로 찍고 다시 오른쪽 끝을 ENDP 로 찍습니다
가로로 배열이 됩니다
Command: _array
Select objects: 1 found
Select objects:
Rectangular or Polar array (<R>/P):
Number of rows (—) <1>:
Number of columns (|||) <1>: 30
Distance between columns (|||): Second point:
다시 ARRAY 를 합니다
이젠 아래에 있는 수평선을 선택합니다
엔터 합니다
사각배열이므로 R 엔터합니다
세로배열의 수 30 엔터합니다
가로배열은 없으므로 그냥 엔터 합니다
다시 거리값을 키보드로 입력하지 않고 거리측정치로 잡습니다
아까 LENGTHEN 하여 짧아진 선들 중 수직선의 아래쪽 끝을 ENDP 로 찍고 다시 윗쪽 끝을 ENDP 로 찍습니다
세로로 배열이 됩니다
Command:
ARRAY
Select objects: 1 found
Select objects:
Rectangular or Polar array (<R>/P):
Number of rows (—) <1>: 30
Number of columns (|||) <1>:
Unit cell or distance between rows (—): Other corner:
이번엔 EXTEND 하겠습니다
경계를 좌측 수직선과 아래쪽 수평선으로 잡습니다
엔터 합니다
우측상단에 쓸쓸히 남아 있는 두 개의 짧은 선들을 각각 찍어 줍니다
연장과 동시에 마무리됩니다
Command: _extend
Select boundary edges: (Projmode = UCS, Edgemode = Extend)
Select objects: 1 found
Select objects: 1 found
Select objects:
<Select object to extend>/Project/Edge/Undo:
<Select object to extend>/Project/Edge/Undo:
<Select object to extend>/Project/Edge/Undo:
Command:
다시금 수고하셨습니다
그럼…가리봉 朴 올림
언제나 사용자의 입장에서 자세하고 또 꼼꼼히 설명해 주시는 가리봉朴님
넘 멋져여…. 파이팅~~~~~~~~~앞으로도 쭉
…고맙습니다
그럼…가리봉 朴 올림
(defun c:ba ()
(setq $_ip0 (getpoint “n삽입점을 찍어여 : “)
$_x (getreal “n가로의 길이는 = ? “)
$_y (getreal “n세로의 길이는 = ? “)
$_xn (getint “n가로의 등분 갯수를 입력허유 : “)
$_yn (getint “n세로의 등분 갯수를 입력허유 : “)
)
(command “pline” $_ip0 (polar $_ip0 0 $_x) (list (+ (car $_ip0) $_x)
(+ (cadr $_ip0) $_y)) (polar $_ip0 (* 0.5 pi) $_y) “cl”)
(setq $_xl (/ $_x $_xn)
$_yl (/ $_y $_yn)
)
(command “line” (polar $_ip0 (* 0.5 pi) $_yl)
(list (+ (car $_ip0) $_x) (+ (cadr $_ip0) $_yl)) “”)
(command “array” (entlast) “” “r” (1- $_yn) 1 $_yl)
(command “line” (polar $_ip0 0 $_xl) (list (+ (car $_ip0) $_xl)
(+ (cadr $_ip0) $_y)) “”)
(command “array” (entlast) “” “r” 1 (1- $_xn) $_xl)
)
;;============
; 위문장을 ba.lsp로 작성한다음 디렉토디에 옮긴다음 command상에서
; (load “ba”) 하시고 command 상태에서 ba 라 명령을 하시면 됩니다.
; 계속 자동 로딩을 하려면 acad.lsp로 작성하셔서 cad 디렉토리의 support
; 안에 작성하시면 되구여…
=== 따라지 ===
따라지님!! 시간나면 게시판에 놀러오세요..
님을 위한 이벤트가 곧 준비된답니당….^^
제가 귀찮구 게을러서 안짰더만
기어이 리습으로 만들어서 올리셨네용..
야~~~~
리습에 앞날이 보이네요
너기도 더뎌 리습의 강자들이 모디는군요
넷캐동의 앞날은 매우 화창함다..*^^*