홈/ 질문/Q 110555
다음
진행 중
조니1
Lv.1
등록일: 2018-11-08T14:12:59+09:00 카테고리:

연속해서 리습사용하는법

(defun c:REXX()
(setq osm (getvar “osmode”)) ; OS; 저장
   (command “ortho” “off”)
   (setq p1 (getpoint “n 대각 한쪽 끝선 :”))
   (setq p2 (getcorner p1 “n 대각 반대편 끝선 :”))
   (setq p12 (list (car p1) (cadr p2)))
   (setq p21 (list (car p2) (cadr p1)))
   (command “osnap” “”)
   (command “line” p1 p2 “” “line” p12 p21 “”)
(setvar “osmode” osm) ; OS 불러오기
     (princ)
)
사용하고 멈추지말고 다으믕로 연속해서 사용할수없나요
마지막에 찍은 p2가 다음명령어의 P1이 되게끔 하려면 어떻게해야할까요
공유

    관련 있는 질문들

    2 답변

    1. aalan
    2. Lv.22
      (defun c:REXX(/ osm p1 p2)
      (setq osm (getvar “osmode”)) ; OS; 저장
         (command “ortho” “off”)
      (if (setq p1 (getpoint “n 대각 한쪽 끝선 :”))
      (progn
      (setvar ‘osmode 0)
           (WHILE (setq p2 (getcorner p1 “n 대각 반대편 끝선 :”))
             (setq p12 (list (car p1) (cadr p2)))
             (setq p21 (list (car p2) (cadr p1)))
             (command “line” p1 p2 “” “line” p12 p21 “”)
         (setq p1 p2)
        )
      )
      )
      (setvar ‘osmode osm) ; OS 불러오기
           (princ)
      )
      • 0
    3. Lv.1

      감사합니다

      • 0