홈/ 질문/Q 186741
다음
진행 중
앙리CAD
Lv.0
등록일: 2023-08-03T10:08:28+09:00 카테고리:

사각형(정사각형이 아닙니다)을 선택하면 양 모서리에 딱 맞게 X그려지는 리습을 구할 수 있을까요.

정사각형이 아닌 기울기가 있는 도곽파일(네점을 가진 사각형이지만 정,직사각형이 아닙니다)을 다중선택하여

각각의 도곽안에 X표시를 한번에 하는 리습 구할 수 있을까요 ㅠㅠ

부탁드립니다.

공유

    관련 있는 질문들

    답변을 남겨주세요

    답변을 등록하기 위해서는 로그인이 필요합니다.

    아직 계정이 없으신가요?

    4 답변

    1. aalan
    2. Lv.17
      (수정됨)


      캐드플러스 입니다.
      사각형 모서리 그리는 리습 프로그램이 있습니다만(동영상 참조) 위 프로그램은 공개용에서는 두개 라인에 중심선을 그려주는 기능만 가능 하고 프로그램을 구매 히시면 동영상 처럼 중심선 그려주는 프로그램에서 가능합니다.
      자료실 13731 에 Cadplus_X 설치 프로그램이 있습니다.

      • 0
    3. Lv.0


      (defun c:aaa ( / os ss ssno smember pt1 pt2 pt3 pt4)
      (defun *error* (msg) (setvar "osmode" os) (princ) )
      (setq os (getvar "osmode"))

      (princ "n사각형을 선택하세요.")
      (setq ss (ssget '((0 . "LWPOLYLINE"))))
      (if (= ss nil) (progn
      (alert "사각형이 선택되지 않았습니다.")
      (exit)
      ))

      (setq ssno 0)
      (repeat (sslength ss)
      (setq smember (ssname ss ssno))
      (setq ssno (1+ ssno))
      (Bndchk smember)
      (setvar "osmode" 0)
      (command "line" llp urp "")
      (command "line"
      (polar llp (dtr 90) (- (cadr urp) (cadr llp)) )
      (polar urp (dtr 270) (- (cadr urp) (cadr llp)) )
      "")
      (setvar "osmode" os)
      );repeat
      )

      (vl-load-com)
      (defun Bndchk (blkent / entname vlentname minpoint maxpoint lowleftpoint lowleftpointx
      lowleftpointy lowleftpointxlist lowleftpointylist uprightpoint uprightpointx
      uprightpointy uprightpointxlist uprightpointylist
      sspt sgap sgap2 pt1 pt2 ) ;min max )
      (defun *error* (msg) (princ) )

      (setq entname blkent)
      (setq vlentname (vlax-ename->vla-object entname))
      (vla-getboundingbox vlentname 'minpoint 'maxpoint)
      (setq lowleftpoint (vlax-safearray->list minpoint))
      (setq lowleftpointx (car lowleftpoint))
      (setq lowleftpointxlist (cons lowleftpointx lowleftpointxlist))
      (setq lowleftpointy (cadr lowleftpoint))
      (setq lowleftpointylist (cons lowleftpointy lowleftpointylist))
      (setq uprightpoint (vlax-safearray->list maxpoint))
      (setq uprightpointx (car uprightpoint))
      (setq uprightpointxlist (cons uprightpointx uprightpointxlist))
      (setq uprightpointy (cadr uprightpoint))
      (setq uprightpointylist (cons uprightpointy uprightpointylist))

      (setq lowleftpointxlist (vl-sort lowleftpointxlist '<))
      (setq lowleftpointylist (vl-sort lowleftpointylist '))
      (setq uprightpointylist (vl-sort uprightpointylist '>))
      (setq llp (list (nth 0 lowleftpointxlist) (nth 0 lowleftpointylist)))
      (setq urp (list (nth 0 uprightpointxlist) (nth 0 uprightpointylist)))
      )
      (defun rtd (a)(/ (* a 180.0) pi))
      (defun dtr(a)(* pi(/ a 180.0)))

      • 0