홈/ 질문/Q 112647
다음
진행 중
Lv.0
등록일: 2020-11-23T11:30:50+09:00 카테고리:

캐드 길이합 리습 관련입니다.

(defun c:lle () 
(vl-load-com) 
(setq ent (ssget ‘((0 . “LINE,CIRCLE,ARC,POLYLINE,LWPOLYLINE,ELLIPSE,SPLINE”)))) 
(setq n 0 dis 0) 
(repeat (sslength ent) 
(setq en (vlax-ename->vla-object (ssname ent n))) 
(setq ep (vlax-curve-getEndParam en)) 
(setq dis (+ dis (vlax-curve-getDistAtParam en ep))) 
(setq n (1+ n)) 
)
(setq pt0 (getpoint “n 글자 입력 위치……?”))
(setq txt_H (getint “n 글자 높이 지정……?”))
 
  —–> 글자 높이를 항상 100 으로 하여 글자 입력위치만 설정하면
          바로 값이 출력 되게 하고 싶은데 방법이 없나요?
(setq pt1 (list(car pt0) (- (cadr pt0) (* txt_H 2)) 0))
(prompt (strcat ” L = ” (rtos dis)))
(command “-TEXT” “J” “MC” pt0 txt_H “0” (strcat “L=” (rtos (/ dis 1000) 2 3)”M”))
  (princ)
  
)
공유

    관련 있는 질문들

    4 답변

    1. aalan

    2. 감사합니다.

      • 0
    3. Lv.19

      개발 도움이 필요하시면 말씀해주세요 ^^

      • 0

      • 0

    5. (setq txt_H (getint “n 글자 높이 지정……?”))
      ===>>>
      ;(setq txt_H (getint “n 글자 높이 지정……?”))

      (command “-TEXT” “J” “MC” pt0 txt_H “0” (strcat “L=” (rtos (/ dis 1000) 2 3)”M”))
      ===>>>
      (command “-TEXT” “J” “MC” pt0 “100” “0” (strcat “L=” (rtos (/ dis 1000) 2 3)”M”))

      • 0