logo

한국어

칼럼

    오늘:
    79
    어제:
    185
    전체:
    111,633

TABLE을 작성

2019.09.25 13:36

com4uinc 조회 수:22

(defun c:ff()
    (setq acDoc (vla-get-activedocument (vlax-get-acad-object)))
    (setq acSpc (vlax-get acDoc (if (= 1 (getvar 'CVPORT)) 'paperspace 'modelspace)))
 
 (setq wr1 '("10 + 10 + 15")
       wr2 '("10 + 10 + 10 + 30 + 40")
       wr3 '("10 + 10 + 10 + 30")
       wr4 '("10 + 10 + 10 + 30")
       wr5 '("10 + 10 + 10 + 30 + 40 + 50")
       wr6 '("10 + 10 + 10 + 30 + 40 + 50 + 60")
       wr7 '("10 + 10 + 10 + 30")
       wr8 '("10 + 10 + 10 + 30")
 )
 (setq Lst (list wr1 wr2 wr3 wr4 wr5 wr6 wr7 wr8))
 (setq hei (+(getvar 'TEXTSIZE)(getvar 'LTSCALE))) ;라인스케일 더하기 현재 문자크기 

 (setq wid(* 0.8 hei (apply 'max(mapcar 'strlen(mapcar 'car Lst))))); 문자 리스트중 가장긴 값 
 
 (setq pt(getpoint "\nSpecify point for Table:"))
 
 (setq myTable (vla-addtable acSpc (vlax-3d-point (trans pt 1 0)) 9 2 hei wid))
  (vla-settext myTable 0 0 "전선 수량 산출")
 (setq n 1)
 (foreach x Lst
  (vla-settext myTable n 0 (rtos n))
  (vla-settext myTable n 1 (car x))
  (setq n (1+ n))
 )
 (princ)

 

번호 제목 글쓴이 날짜 조회 수
» TABLE을 작성 com4uinc 2019.09.25 22
76 ARC 시작점과 끝점구하기 com4uinc 2019.09.25 20
75 2次元CAMソフトウェア『DieFA GrCAM』機能紹介②切削加工NCデータ作成例 粗取り加工作成例(切込加工) com4uinc 2017.04.05 33
74 2次元CAMソフトウェア『DieFA GrCAM』機能紹介④研削加工NCデータ作成 複数ワーク 株式会社イワシタIG-SR102向け com4uinc 2017.04.05 32
73 2次元CAMソフトウェア『Okamoto UPCAM』機能紹介②切削加工NCデータ作成例(カッターパス表示) com4uinc 2017.04.05 25
72 2次元CAMソフトウェア『Okamoto UPCAM』機能紹介⑤NCデータ加工例(オフセット加工) com4uinc 2017.04.05 27
71 2次元CAMソフトウェア『Okamoto UPCAM』機能紹介④砥石成形加工例(砥石移動) com4uinc 2017.04.05 26
70 2次元CAMソフトウェア『Okamoto UPCAM』機能紹介①NCデータ作成例 com4uinc 2017.04.05 36
69 2次元CAMソフトウェア『Okamoto UPCAM』機能紹介①NCデータ作成例 com4uinc 2017.04.05 23
68 2次元CAMソフトウェア『Okamoto UPCAM』機能紹介③砥石成形加工例 com4uinc 2017.04.05 20
67 2次元CAMソフトウェア『Okamoto UPCAM』機能紹介①NCデータ作成例 com4uinc 2017.04.05 27
66 2次元CAMソフトウェア『Okamoto UPCAM』機能紹介 com4uinc 2016.11.11 42
65 2次元CAMソフトウェア『Okamoto UPCAM』機能紹介 com4uinc 2016.11.11 39
64 Python Programming and the Turtle Module: Sequence com4uinc 2016.05.20 50
63 Drawing Rectangles and Ellipses com4uinc 2016.05.20 47
62 탱크 부대 목표물 조준하게 하기 com4uinc 2016.05.16 197
61 삼각함수를 이용한 공 움직이기 com4uinc 2016.05.14 67
60 pyGame 윈도우창 띄우기 com4uinc 2016.05.12 50
59 Pygame 으로 게임 만들기 토끼 게임 com4uinc 2016.05.12 128
58 Windows환경에서 파이썬 외부 라이브러리 설치하기 com4uinc 2016.05.11 243