홈/ 질문/Q 189372
다음
답변됨
aaaa0009
Lv.0
등록일: 2024-03-07T17:52:12+09:00 카테고리:

빼기 리습 부탁드립니다

빼기 연산이 필요합니다

무조건 처음은 180입니다

180-(클릭한 숫자)

끝에 180-135면 45°  이렇게 각도 표기가 되어 준다면
더 좋습니다

부탁드립니다

오늘도 즐거운 하루되세요

감사합니다

공유

    관련 있는 질문들

    답변을 남겨주세요

    답변을 등록하기 위해서는 로그인이 필요합니다.

    아직 계정이 없으신가요?

    9 답변

    1. aalan
    2. 베스트 답변
      Lv.25
      (수정됨)

      (defun c:TEST (/ Valget ssg pt ssgcnt TextList entText TextHeight TextStyle cnt TextCnt)

      (princ “n >>>[180 – ]<<<")

      (setq Valget 180)

      (setq ssg (ssget ‘((0 . “TEXT”))))

      (if ssg

      (progn

      (setq pt (getpoint “n >>>☞ 문자 위치 지정 : “))

      (setq ssgcnt 0 TextList ‘())

      (repeat (sslength ssg)

      (setq ent (entget (ssname ssg ssgcnt))

      entText (cdr (assoc 1 ent))

      TextHeight (cdr (assoc 40 ent))

      TextStyle (cdr (assoc 7 ent))

      TextList (append TextList (list (ChaTextNum entText)))

      ssgcnt (1+ ssgcnt))

      )

      (setq cnt 0)

      (repeat (length TextList)

      (command “text” “s” TextStyle pt TextHeight “0”

      (strcat (rtos Valget 2 0) ” – ” (nth cnt TextList) ” = ” (rtos result 2 3) “°”))

      (setq pt (list (car pt) (+ (cadr pt) (* TextHeight 2))))

      (setq cnt (1+ cnt)))

      )

      )

      (princ “n 문자가 선택되지 않았습니다.”)

      (prin1)

      )

      (defun ChaTextNum (ValText / NaeYongText chrvalue cnt)

      (setq cnt 1 NaeYongText “”)

      (while (>= (strlen ValText) cnt)

      (setq chrvalue (ascii (substr ValText cnt 1)))

      (if (and (or (= chrvalue 45) (and (< 47 chrvalue) (< chrvalue 58))(= chrvalue 46))

      (setq NaeYongText (strcat NaeYongText (chr chrvalue))))

      (setq cnt (1+ cnt)))

      NaeYongText)

      (princ “n TEST .”)

      • 0