홈/ 질문/Q 109547
다음
진행 중
토토야
Lv.0
등록일: 2018-03-12T01:30:25+09:00 카테고리:

양쪽선 연장 리습인데…수정좀 부탁드려요

고캐드에서 받은 선연장 축소 리습인데 라인만 되네요…ㅠㅠ 

아크도 적용 됐으면 합니다
아무리 구글링을 해도 없이서 이렇게 고수님도 부탁드립니다





(defun c:ew ( / ss index e obj oldspt oldept newspt newept dist)
   (vl-load-com)
   (prompt “n 양쪽 늘이기 [ bst ]”)
   (setq ss (ssget (list (cons 0 “LINE”))))
   (setvar “orthomode” 1) 
   (setq dist (getdist “n ≫ Input the stretch length  : “))
   (setq index 0)
   (repeat (sslength ss)
    (setq e (ssname ss index))   
    (setq obj (vlax-ename->vla-object e))
    (setq oldspt (vlax-get obj ‘startpoint))
    (setq oldept (vlax-get obj ‘endpoint))  
    (setq newspt (polar oldspt (angle oldept oldspt) dist)) 
    (setq newept (polar oldept (angle oldspt oldept) dist)) 
    (vlax-put obj ‘startpoint newspt)
    (vlax-put obj ‘endpoint newept)
    (setq index (1+ index))
   )
 (princ)
)

제목 없음.jpg

공유

    관련 있는 질문들

    4 답변

    1. aalan
    2. Lv.8
      • 0
    3. Lv.0

      자유 천지님 감사합니다 

      혹시 축소도 될순 없을까요  ㅠㅠ 
      위 사이트는 연장만 되서…
      • 0
    4. Lv.8

      (initget 6)   => (initget 2)
      로 수정하시고 길이 입력시 – (마이너스) 값을입력하시면 됩니다
      참고로 (initget 6) 은
      1. 0(제로)값 입력금지
      2. -(마이너스 즉 음수) 값 입력 금지 입니다
      (initget 2) 은 2번항 음수값을 넣도록 허용한겁니다.

      • 0
    5. Lv.0

      와우 자유천지님 감사합니다 잘되네요…ㅎㅎ

      이제서야 책에서보니 initget bit 내용이 보이네요
      자유천지님 덕분에 잘 배웠습니다
      정말 감사합니다 
      • 0