홈/ 질문/Q 106377
다음
진행 중
Lv.0
등록일: 2016-04-04T18:41:29+09:00 카테고리:

코디네이션 치수 잡는 리습

안녕하세요 ㅎ
리습중에 치수만 선택하는 리습이 있는데
여기서 치수가 코디네이션 치수 (가로,세로 치수)가 선택이 안되네요
일반 치수는 선택이 되는데 ㅠㅠ
코디네이션 치수만 잡히게 리습좀 변경해 주시면 감사하겠습니다.
아무리 해봐도 안되네요 ㅠㅠ
부탁드립니다.

(defun c:dd(/ ss)
  (prompt “n치수만 선택..”)
  (setq ss (ssget (list (cons 0 “dimension”))))
  (sssetfirst nil ss)
(princ)
);defun

공유

    관련 있는 질문들

    10 답변

    1. aalan
    2. Lv.22

      개인적으로 궁금해서 그러는데요 코디네이션 치수가 뭔가요??

      • 0

    3. DIMORDINATE 세로좌표치수

      DIMLINEAR 회전된치수

      이 두개를 cons 에 dimension 말고 DIMORDINATE를 넣어도 리습이 적용이 안되서 안잡힙니다.
      각각 세로좌표치수와 회전된 치수를 잡고 싶습니다.
      항상 신경써주신 덕분에 업무 하는데 효율적으로 일하고 있습니다.
      감사합니다.~~! ^^

      • 0
    4. Lv.22

      좌표치수는 세로를 잡고 싶고  선형치수는 회전된걸 잡고 싶다는 말씀이신가요? 선형치수같은경우는 가로와 세로로만 나오는데 세로로 나온걸 잡고 싶다 이얘기십니까??(흠 글 제목과 내용이 전혀 상관없네요 마치 일본 야동 겉표지와 내용에 나오는 여자가 확 다른느낌??? ㅎㅎ)

      • 0

    5. 설명이 두서없이 적은거 같았습니다. 죄송합니다 부족한거 같았습니다
      1번처럼 치수들이 있는데 2번그림처럼 DIMORDINATE만 잡힐수 잇도록
      2번그림처럼 DIMLINEAR만 잡힐수 잇도록 해주실수 없는지요

      • 0
    6. Lv.22
      (defun c:dd(/ ss newss o n)(vl-load-com)
        (prompt “n치수만 선택..”)
        (setq ss (ssget (list (cons 0 “dimension”)))n 0)
      (setq newss (ssadd))
      (repeat (sslength ss)
      (setq o(vlax-ename->vla-object (ssname ss n)))
      (if(eq “AcDbRotatedDimension” (vlax-get o ‘ObjectName));Dimlinear
      ;(eq “AcDbOrdinateDimension” (vlax-get o ‘ObjectName));DimOrdinated
      (ssadd(vlax-vla-object->ename o)newss)
      )
      (setq n(1+ n))
      )
        (sssetfirst nil newss) 
      (princ)
      );defun
      • 0

    7. 수야님 감사합니다 DIMLINEAR 치수는 잘 잡힙니다
      하나더 부탁드리겠습니다
       DIMORDINATE만 잡히게끔도 수식바꿔주면 안되겠습니까 수야님이 짜주신 리습으로 어제 아무리 고쳐바도  DIMORDINATE만 잡히게는 안되네요 좋은하루 보내세요 수야님^^

      • 0
    8. Lv.22

      ;(eq “AcDbOrdinateDimension” (vlax-get o ‘ObjectName));DimOrdinated

      이부분의 좌표치수입니다 ㅎㅎ
      • 0

    9. 수야님
      우리가 머리가 나빠서 잘 모르겠네요.
      수야님께서 주신 위 리습은 3번만 잡히게끔 리습이 적용되어서 따로 잘 쓰고 있습니다.
      2번만 따로 잡히는 리습을 만들고 싶습니다.
      이렇게 저렇게 연구하고 붙여봐도 잘 되지 않습니다. 수야님 덕분에 우리 직원들의 능률이 많이 올랐습니다. 감사합니다.^^*

      • 0
    10. Lv.22
      (defun c:dd(/ ss newss o n)(vl-load-com)
        (prompt “n치수만 선택..”)
        (setq ss (ssget (list (cons 0 “dimension”)))n 0)
      (setq newss (ssadd))
      (repeat (sslength ss)
       (setq o(vlax-ename->vla-object (ssname ss n)))
      (if(eq “AcDbOrdinateDimension” (vlax-get o ‘ObjectName));DimOrdinated
       (ssadd(vlax-vla-object->ename o)newss)
      )
      (setq n(1+ n))
      )
        (sssetfirst nil newss) 
      (princ)
      );defun
      제가 설명을 친절하게 하지 못했네요 약간의 수정은 하실줄 아시는 거 같아서 구문만 주석처리 해서 같이 포함 했었습니다 
      • 0

    11. 수야님 저희들도 저렇게 해봤는데 if를 안부쳐서 안되었네요 저희들은 부산에 사는데 가까이 살면 식사라도 대접하고 싶습니다 좋은하루 보내세요^^ 감사합니다

      • 0