홈/ 질문/Q 113457
다음
진행 중
수평조절목
Lv.0
등록일: 2021-11-26T09:43:50+09:00 카테고리:

리습 새내기입니다. 잘 안돼서 질문 드립니다.

; 일괄 스케일 적용

—————————————–

(defun c:scv (/ ss pt p1 p2 p3 d1 d2)
 (setvar “cmdecho” 0)
  (setq ss (ssget))
  (setq pt (assoc 62 (entget (ssname ss)))))
  (setq p1 (getpoint “n first :”))
  (setq p2 (getpoint “n second :”))
  (setq p3 (getpoint “n third :”))
  (setq d1 (distance p1 p2))
  (setq d2 (distance p1 p3))
  (commnad “scale” ss “” pt “r” “” d1 d2)
 (prin1)
)

이렇게 작성해서 적용해보려 했는데 인수가 너무 작습니다. 라는 오류가 뜹니다.
다운받아 쓰던 리습들 짜맞춰서 만들어봤는데 역시 안되네요.
이제 막 공부 시작한 새내기입니다… 가르침 부탁드리겠습니다.
이 외로 캐드 내에서 (setq ss (ssget))을 쳐서 selection set을 작성하였는데
move등의 명령어를 치고 ss를 치면 유효하지 않은 선택이라고 뜨는점에 대해서도
조언 부탁드리겠습니다.
공유

    관련 있는 질문들

    7 답변

    1. aalan
    2. Lv.0

      우와… 눈이 핑핑 돌아가네요…

      만들어주신것 감사하게 사용하겠습니다!
      주석 달아주셨지만 아직 함수 기능을 잘 몰라 공부가 한참 필요할 것 같네요ㅠㅠ
      공부해서 작성해주신 리습도 해부해보도록 하겠습니다!
      • 0
    3. Lv.21

      오.. 제가 잘못 알고 있었네요 

      • 0
    4. Lv.0
      어떤걸 원하시는지 모르겠지만 좌측하단 선택해서 기준점 잡아주는걸로 만들어봤어요
      (defun C:scv (/ ss hrp hrpx hrpxl hrpy hrpyl llp llpx llpy llpxl llpyl llp1 entname vlentname  lpt p1 p2 p3 d1 d2)
      (setvar “cmdecho” 0)
      (setq ss (ssget))
      (setq n 0)
      (repeat (sslength ss)
      (setq entname (ssname ss n))
      (setq vlentname (vlax-ename->vla-object entname))
      (vla-getboundingbox vlentname ‘minp ‘maxp)
      (setq hrp (vlax-safearray->list maxp))
      (setq hrpx (car hrp)) ; 우측상단 x값
      (setq hrpxl (cons hrpx hrpxl)) ;  x값 리스트 저장
      (setq hrpy (cadr hrp)) ; 우측상단 y값
      (setq hrpyl (cons hrpy hrpyl)) ;  y값 리스트 저장
      (setq llp (vlax-safearray->list minp))
      (setq llpx (car llp)) ; 좌측하단 x값
      (setq llpxl (cons llpx llpxl)) ; x값 리스트 저장
      (setq llpy (cadr llp)) ; 좌측하단 y값
      (setq llpyl (cons llpy llpyl)) ; y값 리스트 저장
      (setq n (1+ n))
      )
      (setq llpxl (vl-sort llpxl ‘<)) ; 작은 x값
      (setq llpyl (vl-sort llpyl ‘<)) ; 작은 y값 
      (setq hrpxl (vl-sort hrpxl ‘>)) ; 큰 x값
      (setq hrpyl (vl-sort hrpyl ‘>)) ; 큰 y값
      (setq lpt (list (nth 0 llpxl) (nth 0 llpyl))) ; 좌측하단
        (setq p1 (getpoint “n first :”))
        (setq p2 (getpoint “n second :”))
        (setq p3 (getpoint “n third :”))
        (setq d1 (distance p1 p2))
        (setq d2 (distance p1 p3))
        (command “scale” ss “” lpt “r” “” d1 d2)
      (princ)
      )
      • 0
    5. Lv.0
      펜펜님
      답글 달아주셔서 감사합니다.
      그럼에도 이해를 하지 못하여서 ssname의 기능부터 공부를 하고 와야할것 같습니다…ㅎㅎ
      다음에도 잘 부탁드리겠습니다!
      • 0
    6. Lv.0

      수야님

      다른글에 답변해주신것 보고 여태 리습을 수정해보기도 해서 답글 달아주신게 더 감사합니다.
      객체 원점을 찾고싶었는데 말씀하신대로 그리 좋은 방법은 아닌것 같네요.
      답변 주신것 다시 감사드리고 다음에도 잘 부탁드리겠습니다.
      • 0
    7. Lv.23

      (ssname ss 0)은 제일 먼저 생성된 객체가 아니라, 제일 먼저 선택된 객체입니다.

      • 0
    8. Lv.21

      62번은 색상코드 입니다  선택한 객체들이 line 이라는 조건에서 

      (setq pt(cdr(assoc 10(entget(ssname ss 0)))) 선택셋트중 제일 먼저 생성된(선택된이 아님니다..)
      객체의 시작점을 가지고 오는 구문입니다.
      여러객체를 선택해서 스케일을 조정하는 리습이라면 이런식으로 ssname 객체중 하나를 사용하여 기준점을 잡는것은 좋지않은 방식입니다 차라리 직접 포인트를 지정하시는게 나을수도 있습니다.
      • 0