홈/ 질문/Q 110919
다음
진행 중
Lv.0
등록일: 2019-02-11T15:55:08+09:00 카테고리:

안녕하세요 다중선택 관련 구문에 대해 여쭈어봅니다.

안녕하세요
얼마전 수야12님 덕분에 치수 text 삽입점에 라인을 그리는게 완성됐는데 한가지 궁금한점이
있어서 여쭈어보고 싶은게 있습니다.

(defun c:fH()(vl-load-com)
 (setq e(car(entsel)))
 (setq ob(vlax-ename->vla-object e))
 (setq pt1(vlax-safearray->list (vlax-variant-value (vla-get-TextPosition ob))))
 (setq pt2 (polar pt1 pi 5000))
 (setq pt3 (polar pt2 (* pi 2) 10000))
(COMMAND “LINE” pt2 pt3 “”))

해당 lisp 구문으로 라인을 넣는것을 성공했는데 ” (setq e(car(entsel)))” 이 해당구문이
단일객체만 되도록 되어있어 “ssget” 구문을 넣어도 다중선택이 안되어서 여쭈어봅니다.

1.해당 비주얼리습 구문은 단일객체만 가능한지??
2.다중선택이 가능하다면”ssget”을 이용하는게 맞는지??

질문을 봐주신 모든분들께 감사합니다.

공유

    관련 있는 질문들

    4 답변

    1. aalan
    2. 여러개 일경우 한개씩 객체를 열거하면서 데이터를 뽑아야합니다.

      위 수식은 단일객체의 데이터만 뽑기 때문에
      선택만 다중으로 바꾼다고 정상적으로 돌아가질 않습니다.

      – ssget으로 다중객체를 선택하는건 맞습니다.
      – repeat 와 sslength 등으로 순회하며 필요한 데이터를 확인해야합니다.

      • 0
    3. Lv.22
      (defun c:fH(/ ks_Line ss pt1 pt2 pt3 ob )(vl-load-com)
       (defun ks_Line (p1 p2)
         (entmakex (list (cons 0 “LINE”)
                         (cons 10 p1)
                         (cons 11 p2)
                   )
         )
       )
      (setq ss(ssget (list(cons 0 “DIMENSION,TEXT”))))
       (foreach e(vl-remove-if ‘listp (mapcar ‘cadr (ssnamex ss)))
        (setq ob(vlax-ename->vla-object e))
        (setq pt1(vlax-safearray->list (vlax-variant-value (vla-get-TextPosition ob))))
        (setq pt2 (polar pt1 pi 5000))
        (setq pt3 (polar pt2 (* pi 2) 10000))
        (ks_Line pt2 pt3)
       )
       (princ)
      )
      • 0

    4. 흐….귀하신 지식 이렇게 알려주셔서 감사합니다.

      • 0

    5. 저번에도 그렇고 이번에도 수야12님 덕분에 많은 도움받고 많은 지식을 알려주셔서 정말로 감사합니다.

      • 0