요즘 많이 춥네요..
건강 조심하세요..^^

자주 들리지 못해 죄송합니다..

감기가 유행이네요.

항상 조심하시구요.

오늘도 멋진하루되세요 ^^

^^ 와주셔서 글 남겨 주신것만으로도 감사드리고 있습니다.
저도 기침감기로 고생 많이 했습니다. 건강하세요..^^

기축년 새해 인사가 늦었습니다.
올한해도 모두 건강하시고 운영자님에게 다시한번 감사합니다.
새해 복많이 받으세요..

예..통화하니 더 좋군요..^^
새새 복 많이 받으세요

오늘 가입했습니다.
앞으로 많은 도움 바랍니다. 감사합니다.

저도 도움을 회원들에게 많이 받고 있습니다.
함께 살아가는 법을 배우는 중입니다.

오늘 가입했어요. 슬쩍 시운전하고 오는길이에요

좋은자료 감사해요~ 복바드실거에요

시운전...^^
조심 조심 들려보시구요, 자주 오세요..^^

정말 좋은자료 감솨이 잘쓰고 있습니다.^^

더 노력하는 VBCAD 가 되도록 하겠습니다.
좋은 아이디어도 많이 주세요..^^

오늘 가입했읍니다. 앞으로 많은 도움이 되겠습니다. 고맙습니다.

반갑습니다. 자주 찾아와 주세요..^^

많이도움이 되네요 감사합니다

도움이 되었다니..다행이네요..^^

새해복 많이 받으세요~~~~~^^

님도 새해 복 많이 받으세요..^^

감사합니다
2009년에도 새해복많이받으세염^^

예..새해 복 많이 받으시구요.
올해는... 더 좋은 행복이 있기를 바랍니다.

안녕하세요 현장캐드직을 하고있는 이기사인데요;;
우연히 들어와보니 홈페이지가 잘 짜여져있네요
유익하게 보았구요..
질문이 있어서요
덧틀을 사용하는데 면적구하는 부분에서요
(DEFUN AcadLhj_aa(/ ans n gent 1stflag p len lastp p1 th unit txt)
  (prompt "\n Baundary Area Lisp .... By Lee Hyuk Jin ('98.3.18)")
  (setq th (getvar "UserR1"))           ; 글자크기
  (setq unit (fix (getvar "UserR2")))  ; 단위
  (setvar "dimzin" 0)
  (setq txt 0.00000 n 1)
  (while (setq p (BPOLY (GETPOINT (strcat "\n [ " (rtos n 2 0) " ] Area pick point " ))))
      (command "area" "o" p)
      (setq ans (getvar "area")
            txt (+ txt ans)                       ; Sum Area
              n (1+ n)
          grent (entget p)
            len (length grent)
        1stflag T
          lastp nil
      )
      (command ".erase" "l" p "")
      (repeat len
        (if (= (caar grent) 10)
          (progn
              
            (if (= 1stflag T) (Setq 1stflag F 1stp (cdar grent))
                              (grdraw lastp (cdar grent) 2 1)
            )
            (setq  lastp (cdar grent))
          )
        )
      (setq grent (cdr grent))
      )
      (grdraw 1stp lastp 2 1)        
  )
  (setq p1 (getpoint "\nInsert Text Point : "))

  (if (> (getvar "UserR3") 0) (setq txt (/ txt 1000000))) ; 단위환산
  (setq txt (rtos txt 2 unit))
  (if (/= (getvar "UserS1") "" ) (setq txt (strcat (getvar "UserS1") txt)))         ; 머리글
  (if (/= (getvar "UserS2") "" ) (setq txt (strcat txt (getvar "UserS2"))))         ; 꼬리글
  (command "text" p1 th "0" txt)
  (command "redraw")
  (setvar "dimzin" 8)
  (princ)
)
이런 문장이 나오는데 이게
c언어랑 같이쓰는듯해 보이네요
여기에 면적을 클릭할때 그 면적 범위라인에
수치와 폴리라인을 동시에 넣으려면
어떻게 수정해야하는지 알고싶은데요..
부탁드립니다..^^ 자주사용해서
그렇게 고쳐서 사용하고 싶어서요..