홈/ 질문/Q 107766
다음
진행 중
두뇌
Lv.0
등록일: 2017-01-04T13:30:22+09:00 카테고리:

객체의 정보 관련 문의

안녕하세요
객체 정보를 보면

((-1 . <Entity name: 7ffff74b740>) (0 . “LINE”) (330 . <Entity
name: 7ffffa03820>) (5 . “426FFC”) (100 . “AcDbEntity”) (67 . 0) (410 .
“Model”) (8 . “6”) (100 . “AcDbLine”) (10 9122.82 9052.58 0.0) (11 9029.07
9051.95 0.0) (210 0.0 0.0 1.0))

이렇게 나오는데요
여기서 (100 .   에 관한 내용이 2가지가 있습니다
(100 . “AcDbEntity”)
(100 . “AcDbLine”)
그런데 리습에서 (100 .  을 불러들일때 첫번째 것 말고 두번째것을 사용하려면
어떻게하나요? 방법이 있나요?
고수분께 문의 드립니다

공유

    관련 있는 질문들

    9 답변

    1. aalan
    2. Lv.21

      가장 간단한것은 visual_lisp으로 objectname을 받아 오시면 됩니다

       (setq e(car(entsel)))
       (setq o(vlax-ename->vla-object e))
       (setq nm(vlax-get o ‘objectname ))
      • 0
    3. Lv.0

      답글 주셔서 감사드립니다^^
      열공하겠습니다~

      • 0
    4. Lv.0

      AcDbLine 만 window 로 선택하려고 하는데요 어렵습니다
      도움 부탁드릴께요~

      • 0
    5. Lv.21
      (defun c:ff()
      (setq p1 (getpoint “nP1:”))
      (setq p2(getcorner p1 “nP2:”))
      (setq p3(list (car p1)(cadr p2)) p4(list (car p2)(cadr p1)))
       (setq ss(ssget “WP” (list P1 p3 p2 p4) (list(cons 0 “LINE”))))
       (sssetfirst nil ss)
       (princ)
      ) 
      (setq ss(ssget (list(cons 0 “LINE”)))) <= 그냥 이렇게 해도 선택됩니다 
      • 0
    6. Lv.0

      수야님 답변 감사합니다^^
      우선 저의 질문을 정확히 표현드리지 못해 죄송합니다
      예를들어
      entity select: ((-1 . <Entity name: 7fffcf5ac30>) (0 . “DIMENSION”) (330 .
      <Entity name: 7fffc28a820>) (5 . “43104B”) (100 . “AcDbEntity”) (67 . 0) (410 .
      “Model”) (8 . “6”) (62 . 6) (100 . “AcDbDimension”) (280 . 0) (2 . “*D1864”)
      (10 4595.72 -7442.63 0.0) (11 4549.24 -7479.21 0.0) (12 0.0 0.0 0.0) (70 . 163)
      (1 . “”) (71 . 5) (72 . 1) (41 . 1.0) (42 . 40.0) (73 . 0) (74 . 0) (75 . 0)
      (52 . 0.0) (53 . 0.0) (54 . 0.0) (51 . 0.0) (210 0.0 0.0 1.0) (3 . “STANDARD”)
      (100 . “AcDbDiametricDimension”) (13 0.0 0.0 0.0) (14 0.0 0.0 0.0) (15 4564.28
      -7467.37 0.0) (16 0.0 0.0 0.0) (40 . 0.0) (50 . 0.0))

      모든 치수는 (0 . “DIMENSION”)  이걸로 표현되는데요
      치수 중에서도 여러가지 종류가 있자나요
      위의 예시 처럼 (100 . “AcDbDiametricDimension”) 지름 치수 등등..
      원하는 치수 타입을 선택하려고 할때는 어떻게 하는지요?

      번거롭게 해드려 죄송합니다~

      • 0
    7. Lv.21
      제수준에서 한다면 두번 걸르겠습니다 
      첫번째는 dimension 으로 선택하고 선택된 dimension에서 오브젝트 네임으로 다시한번 걸르면 되겠네요  

      (defun c:ff(/ e L)(vl-load-com)
       (setq ss(ssget (list(cons 0 “DIMENSION”))))
       (foreach o (mapcar ‘vlax-ename->vla-object (vl-remove-if ‘listp (mapcar ‘cadr (ssnamex ss))))
         (if (= “AcDbDiametricDimension” vlax-get o ‘objectname)
              (setq oLst(cons o oLst))
          )
       )     
       (princ oLst)
       (princ)
       )

      • 0
    8. Lv.0

      신경 써 주셔서 감사합니다~~~

      • 0
    9. Lv.21

      괄호가 누락되어서 그러네요 ㅎㅎ;; 

      첨부파일 참고하세요 
      • 0
    10. Lv.0

      감사합니다^^
      참고하여 열공하겠습니다^^
      꾸벅~

      • 0