홈/ 질문/Q 113546
다음
진행 중
조니1
Lv.1
등록일: 2021-12-30T11:24:11+09:00 카테고리:

캐드 이프문을 좀 넣어보고싶은데요.

(defun c:ret()
(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 p21 “” “line” p2 p12 “”))
   (command “line” p1 p12 “” “line” p2 p21 “”))
   (setvar “osmode” osm) ; OS 불러오기
   (princ)
  )
직사각형의 짧은쪽에만 선을 그리고싶은데
저기에서 막혔네요  어떻게하면될까요?
행복한 연말되세요^^
공유

    관련 있는 질문들

    2 답변

    1. aalan
    2. Lv.0
      원하시는게 이건지 모르겠지만 조악한 실력으로 만들어봤습니다
      (defun c:ret(/ p1 p2 p12 p21 #plr #pud )
      (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)))
         (if (< (car p1) (car p2)) (setq #plr (list (- (car p2) (car p1)))) (setq #plr (list (- (car p1) (car p2)))))
         (if (< (cadr p1) (cadr p2)) (setq #pud (list (- (cadr p2) (cadr p1)))) (setq #pud (list (- (cadr p1) (cadr p2)))))
         (setvar “osmode” 0)
      (if (> (car #plr) (car #pud) )
      (progn
      (command “line” p1 p21 ESC) 
      (command “line” p2 p12 ESC)
      )
      (progn
      (command “line” p2 p21 ESC)
      (command “line” p1 p12 ESC)
      )
      )
         (setvar “osmode” osm) ; OS 불러오기
         (princ)
        )
      • 0
    3. Lv.1

      맞습니다 부동호만 제가 바꿔서 쓰면 될거같아요 감사합니다 

      • 0