[나만의 노하우]다정다감 pnori.lsp 계획법면 리습 분석..^^;

[블랙타이거]

계획법면 넣는 트릭에 이어 두번째 정보를 드립니다.^^;
별 정보도 아니지만...
모르시는 초보님들을 위하여 적어봅니다.
/*
참으로 이글 읽을때 마다 창피 합니다.
석종님이 다 설명 해 놓은 파일인데...
*/


많은 분들이 리습 이라면 열어보기를 꺼려 합니다.

저도 리습은 왕처보 중에서도 왕초보입니다.
이 리습을 만드신 돌정 이석종(http://user.chol.com/~dolljong)
다정다감 홈페이지 가보세요) 감사를 드리면서..

C:\Program Files\AutoCAD R14\DJDG
여기 폴드에 보시면
pnori.lsp
라는 파일을 더블 클릭 하시면요.

메모장이 떠면서 파일내용을 볼수 있을겁니다.
쭉~~~~~~~살펴 보시면 아래와 같은곳을 볼수 있을겁니다.

많은 분들이 각 설계 사무실 마다 표현 방법이 약간 다르다는것을 핑계로
일일이 오프셋 과 로테이트 명령으로 수작으로 막노동을 하고 있습니다.
이를 약간 변경해서 나의 설계사무실에 맞추어 사용해 보도록 합시다.


-------------------------------------------------------------------

;--- 노리 그리기
(setq clen 0) ;현재길이
(setq ccnt 0) ;현재 갯수

(while (<= clen vllen) ;현재노리위치의 거리가
(setq tmp (PointonPline nvlist nllist clen)) ;현재길이 점의 (좌표,node)
(setq vsp (nth (1- (cadr tmp)) nvlist)) ;현재점이 있는 선분의 시작점
(setq vep (nth (cadr tmp) nvlist)) ; " 끝점
(setq seang (angle vsp vep)) ;시작점-끝점 각
(setq p1 (car tmp)) ;노리선의 시작점
(if (= (rem ccnt 5) 0) ;다섯개마다 한개씩 길게
(setq tmp norilength) ;나머지는 짧게(반)
(setq tmp (* 0.5 norilength)) ;나머지는 짧게(반)
);if
(setq p2 (polar p1 (+ seang d90) tmp)) ;노리선의 끝점
(command "LINE" p1 p2 "") ;line그리기
(setq ccnt (1+ ccnt)) ;카운트 하나 더하기
(setq clen (+ clen gap_nori)) ;다음nori누가거리
);while

; (princ "vllist") (princ vllist)

(pop-env) ;환경변수 복귀
------------------------------------------------------------------



1.긴것 과 짧은 선 의 갯수가 맞지 않아 사용하지 않는 분들은
(if (= (rem ccnt 5) 0) ;다섯개마다 한개씩 길게
석종님이 잘 설명했놓았는데요...이것을 모르시는 분들을 위해서...
제가 잘난척좀 할게요.^^; 저 리습에 "리" 자도 몰라요~^^;
여기에 5라는 숫자대신에 3으로 하면 긴것 짧은것 짧은것 긴것
이런 모양이 나오겠죠?

2. 짧은 선의 길이나 너무 길다 .. 해서 사용하지 않는 분들은...


(setq tmp (* 0.5 norilength)) ;나머지는 짧게(반)


여기 숫자 0.5 대신에 적당한 숫자를 넣어 주면 됩니다.

0.25, 0.3 , 0.4 , 0.5 한번 해보세요.

더 좋은 방법 있으신분들은 올려주세요.^^;

블랙천국 영생불멸.

[블랙타이거]

기계 쪽에도 그런 프로그램을 연구하는 모임이 있을듯 블랙천국 영생불멸.

[酒有天下]

pnori 로드한후에 실행명령이 멈니까??? 글구 다정다감에서는 어케 다운받나요??? 감사합니다.

[블랙타이거]

http://user.chol.com/~dolljong/ 여기 홈페이지 입니다. 여기에서 질문할줄 몰랐습니다.^^; 그리고 명령은 pnori 입니다. 여기 소스는 리습의 일부 입니다. pnori.lsp 독단으로 사용하시는것 보다 다정다감 전체 프로그램으로 사용하는것이 더 좋을듯 합니다. 저도 독단적으로 한 파일만은 사용하지 않습니다. ^^;

[블랙타이거]

다정다감 화이팅. 돌종 이 석종님 홈페이지 가면 더 많은 기능의 리습이 많이 있을것으로 생각됩니다. 절대 후회 없는 프로그램이라고 개인적 으로 생각 합니다. ^^; 블랙천국 영생불멸.

[레드하트]

좋은 게시물이네요. 스크랩 해갈게요~^^