홈/ 질문/Q 113284
다음
진행 중
우뿌
Lv.0
등록일: 2021-08-20T10:00:01+09:00 카테고리:

양쪽선 남기기 리습 수정 부탁드립니다.

안녕하세요?

리습에는 완전 무뇌한 사람입니다.ㅠ
다른분들이 잘 만들어 주신 리습으로 몇개 사용중인데요..
이리습은 양쪽 선 남기는건데 오른쪽만 남아요 ㅠ 기존선은 그대로 두고 양쪽선 원하는 길이로 남기고 싶은데 수정 가능할까요?
제발 부탁 드립니다.
(defun c:qt( / sl-mapcar-ens ss)
 (vl-load-com)
 (prompt “n>> 색상을 변경할 객체를 선택하세요… “)
  (setq ss (ssget))
  (command “change” ss “” “p” “c” “2” “”)
  (prompt (strcat “n>> 2번 색상으로 변경되었습니다.” ))
(defun sl-mapcar-ens (func ss) (mapcar func (vl-remove-if ‘listp (mapcar ‘cadr (ssnamex ss)))))
 (princ “n선 양끝 남기기”)
 (and
  (or *dis* (setq *dis* 50))
  (setq *dis* (cond ((getdist (strcat “n남길 길이 입력 <” (vl-princ-to-string *dis*) “>:”))) (*dis*)))  
  (sl-mapcar-ens 
   ‘(lambda (en / ent1 len ep ent2 sp)    
    (setq ent1 (entget en) len (vlax-curve-getdistatparam en (vlax-curve-getendparam en)))    
    (if (> len *dis*)
     (progn
      (setq ep (vlax-curve-getpointatdist en *dis*) sp (vlax-curve-getpointatdist en (- len *dis*)))
      (setq nen (entmakex (vl-remove ‘(lambda (-1 5)) (entget en))) ent2 (entget nen))     
      (entmod (subst (cons 10 sp) (assoc 10 ent1) ent1))
      (entmod (subst (cons 11 ep) (assoc 11 ent2) ent2))
      (entmod (subst (cons 62 7) (assoc 62 ent2) ent2))

     )
     (princ “n입력한 길이보다 선이 짧습니다.”)
    )
   )
   ss
  )
 )
 (princ)
)
;;;
공유

    관련 있는 질문들

    2 답변

    1. aalan
    2. Lv.21
      ;;라인 전용입니다
      (defun c:ff(/ *error* _Line  p1 p2 ss n en a10 a11 ang)
       (defun _Line (p1 p2)
         (entmakex (list (cons 0 “LINE”)
                         (cons 10 p1)
                         (cons 11 p2)
                         (cons 62 2);선 색상번호 1.빨강 2.노랑 3.초록
                   )
         )
       )
       
       (or #@ffdist(setq #@ffdist 1))
       (setq #@ffdist
      (cond
        ((getint (strcat “nSpecify of Extension distance <” (vl-princ-to-string #@ffdist) “>: “)))
        (#@ffdist)
      )
        )
       (setq ss(ssget (list (cons 0 “LINE”))) n 0)
       
        (repeat (sslength ss)
           (setq en(entget (ssname ss n)))
           (setq a10(cdr(assoc 10 en)) a11 (cdr(assoc 11 en)))
           (setq ang (angle a10 a11)len(distance a10 a11))
           (if(< (* 2.0 #@ffdist)len)
            (progn 
              (_Line a10 (polar a10 ang  #@ffdist))
              (_Line a11 (polar a11  (+ ang pi)  #@ffdist))
            )
            (princ “n선택한라인이 입력한 길이 보다 짧습니다”)
           ) 
         (setq n (1+ n))     
        );repeat
       (princ)
      ) 
      • 0
    3. Lv.0

      와~~정말 감사합니다.ㅠ 제가 정말 원했던 리습입니다..

      감사히 잘 쓰겠습니다.복 많이 받으세요^^
      • 0