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

안녕하세요 현장캐드직을 하고있는 이기사인데요;;
우연히 들어와보니 홈페이지가 잘 짜여져있네요
유익하게 보았구요..
질문이 있어서요
덧틀을 사용하는데 면적구하는 부분에서요
(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언어랑 같이쓰는듯해 보이네요
여기에 면적을 클릭할때 그 면적 범위라인에
수치와 폴리라인을 동시에 넣으려면
어떻게 수정해야하는지 알고싶은데요..
부탁드립니다..^^ 자주사용해서
그렇게 고쳐서 사용하고 싶어서요..

연락주세요. 폴리라인을 같이 넣는 다는 의미를 잘 모르겠습니다.
핸펀 010-3160-1894

뻔뻔스레 인제서야 방명록 끄적...
자료만 받고 날라서 죗송합니다
자료 잘쓰고있습니다... 너무 잘쓰고있어요
완전 신세계....

^^ 자료만 받아가셔도 됩니다.
부담없이 방문해 주세요...

2009년 새해복 많이 받으세요!! ^^;

기축년 새해 복 많이 받으세요...

새해 福 많이 받으셨어요?
항상 감사드리구요.
09년은 대박나세요 ^^

어려운 시국입니다.
님도 건강하시고 복 많이 받으세요...^^

저두 감사해요~

가입해 주시고 글 남겨 주셔서 저도 감사해요..^^

좋은자료  감사합니다.

좋은 회원님께 감사드립니다...

아....반가웡요.

저도 반갑습니다..^^

기축년에도 모든분들이 다 잘됐으면 합니다.
항상좋은 자료 감사합니다.

님도 올해 성공하셔야지요?
벌써 성공하셨나요..^^

자료 찾아 헤매다가 찾아왔습니다.
좋은 자료 감사합니다.^^

이제 돌아다니지 마시고 여기에 문의하세요..ㅎㅎ

님 짱입니다.~~