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

가입 하였습니다.

잘 부탁 드리고요..

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

오랜만에 출석합니다.

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

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

이제 막 철구조물업체에서 일을 시작하게 된 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인데 사용하다보니 전체길이가 다르게 나옵니다.

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

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

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

안녕하세요..

전공은 아니지만..

캐드의 매력에 빠져 늦깍이 공부하는 초보자입니다.

정말 훌륭하고 좋은 정보공간을 알게되어 좋습니다.

자주 들려서 눈동냥을 하려고 하오니.. 잘 부탁 드립니다(__)

항상 좋은 자료 감사합니다.

어떻게 표현해야 할지, vbcad 화이팅