홈/ 질문/Q 112993
다음
진행 중
소시관얍얍
Lv.0
등록일: 2021-04-02T09:23:47+09:00 카테고리:

기준점 스케일 리습 수정부탁드립니다

안녕하세요. 항상 고캐드에서 자료 잘 참고하고있습니다.

라인들만 선택하여 각 라인의 시작점을 기준으로하여 스케일(scale)을 반복하는 
리습을 만들고있습니다.
제가 작성한 리습에서는 기준점이 이상하여 질문드립니다.
(defun C:S5()
 (setq ob (ssget (list(cons 0 “*LINE”))))
 (setq n (sslength ob) i 0)
 (repeat n 
 (setq P1 ( cdr (assoc 10 (entget (ssname ob i))))) 
 (setq P2 ( cdr (assoc 11 (entget (ssname ob i)))))
 (setq D1 (distance P1 P2))
 (setq D2 (+ D1 100))
        (command “SCALE” ob “” P1 “R” D1 D2)
  (setq i (+ 1 i))
 );re
);defun
공유

    관련 있는 질문들

    6 답변

    1. aalan

    2. 라인의 시작점 기준으로 잘 작동 됩니다.

      다만 선택 구문에 “*LINE” 을 “LINE”로 하셔야 오류가 없을듯 합니다.
      현재 구문은 폴리라인도 선택되어 문제가 발생한듯 보여집니다.
      • 1
    3. Lv.21

      기준점  이라고 하시는거 보니 command문을 사용으로 인한 osnap 영향의 오작동 가능성이있습니다

      리습에 command문을 사용하시려면 osnap 옵션을 끄는 구문을 사용하셔야 엉뚱한곳에 기준점이 잡히는 현상을 막을 수 있읍(습)니다.
      • 1
    4. Lv.0
      대충 읽어보니.. 원하는 리습이 엄밀히 따지자면 스케일이 아니라
      기준점(Line 시작점)으로부터 길이를 100 증가시키고 싶으신게 아닌가요?
      • 1
    5. Lv.0
      만약 제가 얘기한 내용이 맞다면 아래 리습 사용 시 길이를 기존 대비 100 늘려줍니다.
      (defun c:test ( / ob n i ename obj p1 p2 d1 d2 )
        (setq ob (ssget (list(cons 0 “*LINE”))))
        (setq n (sslength ob) i 0)
        (repeat n
          (setq ename (ssname ob i))
      ;; ssname 분리 후 마지막 명령어 실행 때 대상을 ob가 아닌 ssname으로 지정 (이것 떄문에 다중 선택 시 좌표 틀어졌을 것으로 예상)
          (setq obj (vlax-ename->vla-object ename))
      ;; vlax 명령어 사용을 위해 변환 // entget 과정 필요없어짐
          (setq P1 (vlax-curve-getStartPoint obj))
      ;; vlax 명령어로 포인트를 가져옴 (PLINE 등에도 오류 없이 작동)
          (setq P2 (vlax-curve-getEndPoint obj))
          (setq D1 (distance P1 P2))
          (setq D2 (+ d1 100))
          (vl-cmdf “SCALE” ename “” P1 “R” D1 D2)
      ;; command -> vl-cmdf (별반 차이 없음) // 대상 객체 ob 대신 ename
          (setq i (1+ i))
        )
        (princ)
      ;; 불필요한 출력 방지
      )
      • 1
    6. Lv.0

      도움감사합니다~

      • 0
    7. Lv.0

      말씀하신 내용이 맞습니다. 

      제 수준에서는 스케일 이용한 길이변경이 제일 좋은방법이라고 생각했습니다….
      요즘 바빠서 생각도 못했는대 너무 좋은 답변감사합니다.
      시간되면 제대로 리습 공부하려고 합니다.. 도움주셔서 감사합니다
      • 0