함수 설명
선택한 Entity 또는 Selection Set 을 복사하거나 이동 함
구성
(xi:Copy ents p1 p2 CopyOrMove)
ents : 원본 객체, ssest, entity 모두 가능
p1 : 기준 점
p2 : 복사 점
CopyOrMove : Move T, copy nil
반환 : Selection Set
예제)
(if
(and
(setq ss (ssget))
(setq pt1 (getpoint "\n 복사 기준점 지정: "))
(setq pt2 (getpoint "\n 목표 점 지정: "))
)
(progn
(setq ss1 (xi:Copy ss pt1 pt2 nil))
(sssetfirst nil ss1)
)
)
'Lisp & Tips > Lisp 제작용 XiCAD 함수' 카테고리의 다른 글
문자입력 대화상자2 xi:EditBox2 (0) | 2023.03.01 |
---|---|
문자입력 대화상자 1 xi:EditBox1 (0) | 2023.03.01 |
숫자에 콤마 넣기 xi:Comma (0) | 2023.03.01 |
무명블럭 실제이름 xi:EffectiveName (0) | 2023.03.01 |
세 점의 회전 방향 xi:Clockwise-p (0) | 2023.02.26 |