안녕하세요. 3~4년 전에 피카츄 땜에 잠깐 방문했다가..

캐드에 눈이 조금 트이고 다시 방문하였습니다.

다시 오니 새롭네요.. 유익한 글도 많고요.. 모르는것도 많고 머리도 좋은편이 아니라서;;

아직 뭐가 뭔지는 모르겠습니다. 

LISP 에 대해서 인터넷에서 찾아봤는데.. 대략 알것도 같고 모를것도 같고^^

C언어도 쓴다고 하는데.. 그건 자료를 못찾겠네요..

여기 오니 VB란것도 알게 됐는데... 찾아보니 엑셀에서 많이 쓰는 함수 같은 건가 싶기도 하고요..

아직 감을 못잡겠네요..

혹시 게시글중에 개념을 좀 잡을수 있는 글이 있는지 궁금하네요..

혹시 아시는 분 계시면 답글 부탁드립니다.^^

음... 회원정보 수정이 안되네요;;

제 이메일 주소를 네이버로 쓸려고 하는데... 다 기입하고 확인 하면 잘못된 접근(?) 이라고 나옵니다.

항상 감사하는 마음으로 .. 잘 배우고 있습니다

가입 하였습니다.

잘 부탁 드리고요..

오랜만에 얼굴 내밀고 갑니다

오랜만에 출석합니다.

기존 멤버였는데 재가입 했네요....ㅋㅋ

안녕하세요 오늘 우연히 들어와 가입했어요 잘 부탁드려요~

이제 막 철구조물업체에서 일을 시작하게 된 25살 직장인입니다.

죽을 각오로 배우겠습니다.

잘부탁드립니다.

안녕 하세요 아주 오랜만에 뵙습니다...^^

한 십여년전에 인사 하고 감사하게 캐드관련하여 또 뵙게 되네요

기억은 못하실것 같고

암튼 너무 너무 반갑습니다.

유용한 정보가 또 될거 같아 무지 기대 됩니다~ ^^

오늘 가입 하였습니다...

잘 부탁 드리겠습니다...

이케 착한분들 ....

감사합니다....

소문 듣고 왔습니다 ^^

잘 부탁드리고 많이 배워 가겠습니다 

안녕하세요.

오늘 가입요청하였습니다.

좋은자료가 많은것 같고, 배울것이 많을것 같습니다.

업무상 lisp이 필요할것 같아 배우고 있는데

좋은 곳을 알게된거같네요...

앞으로 자주방문할게요...

감사합니다.

처음 방문  등록합니다.

많은 가르침 부탁드립니다

자주와야지 하면서 어쩌다 한번씩 들르게되네요

오늘도 자주와야지 하면서 글을 남김니다

첨 알게되어 많은 분들의 권유와 소문이 자자하더군요

캐드를 더욱 깊게 알기위해서 염치 불구하고 이렇게 가입했습니다

이혁진님의 lisp강좌 열심히 보고 다른분들에게 전파할 정도의 실력을 기르겠습니다

사이트및 모든 강좌개설님들 고맙습니다 ^^

안녕 하세요 . 오토캐드 완전 초보 입니다..

많은 조언부탁드리구요..

오토캐드 2012 를 사용 합니다.

너 무 모르니 어디 자료부터 봐야 할지 모르겠습니다

공부요령이라든가 기초공부를 어떻게 해야 하는지 조언 부탁드립니다..

하는일은 사무가구 영업을 하는데 캐드를 못하니 서럽네요..

영업도 해야되고 도면도 그려야 되고 해서

여튼 많은 조언 부탁드립니다..

감솨합니다.. 고마워요..

이제서야 들어봐 보네요~~ 홈피가 이쁘게 바뀌었네요...자주 오도록 해보겠씁니다.

수고하세요

(defun c:lp(/ ss en n n1 k tot dis dis1)
(prompt "\nCommand: Line Plus...")
(prompt "\n더하고자하는 line을 선택-> ")
(setq ss (ssget))
(setq n1 (sslength ss))
(setq n n1 k 0)
(setq tot 0 dis 0 dis1 0)
(while (<= 1 n)
(setq en (ssname ss k))
(setq stype (cdr (assoc 0 (entget en))))
(if (= stype "LINE")(progn
(setq spt (cdr (assoc 10 (entget en))))
(setq ept (cdr (assoc 11 (entget en))))
(setq dis1 (distance spt ept))
(setq dis (/ dis1 1000.0))(prin1 dis)
))(terpri)
(if (= stype "LWPOLYLINE")(progn
(command "area" "e" en)
(setq dis1 (getvar "perimeter"))
(setq dis (/ dis1 1000.0))
))
(setq tot (+ tot dis))
(setq n (- n 1))
(setq k (+ k 1))
)(terpri)(prompt "총")(prin1 n1)(prompt "개의 라인...")
(prompt "전체길이 : ")(prin1 tot)(prompt " m")
(prin1)
)

길이더하는LISP인데 사용하다보니 전체길이가 다르게 나옵니다.

모깍기 부분에서 잘못산출되어 나옵니다.

처음사용하는지라 뭐가뭔지를 몰라 선수님들게 부탁합니다.

이제입문하는 초보라 자문 구합니다..