홈/ 질문/Q 113613
다음
진행 중
Lv.0
등록일: 2022-02-09T08:24:45+09:00 카테고리:

안녕하세요 고수님들 브릭스 캐드 리습 문의드리려 합니다

안녕하세요 고수님들

마킹선 리습 수정이 가능한지 문의드립니다
오토캐드에서는 무리없이 잘 작동되지만
브릭스 캐드에서는 “error : Unknown Error in Lisp or CAD system or ‘Stack Overflow'”
이런 메세지가 뜨면서 작동을 안합니다
남길 길이를 입력하면 양쪽 끝선에 남는 리습인데요
브릭스에서도 구동되게 수정이 가능할까요?
아래는 리습입니다
(defun c:QTT( / sl-mapcar-ens ss)
 (vl-load-com)
 (defun sl-mapcar-ens (func ss) (mapcar func (vl-remove-if ‘listp (mapcar ‘cadr (ssnamex ss)))))
 (princ “n선 양끝 남기기”)
 (and
  (setq ss (ssget ‘((0 . “LINE”))))  
  (or *dis* (setq *dis* 20))
  (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))
     )
     (princ “n입력한 길이보다 선이 짧습니다.”)
    )
   )
   ss
  )
 )
 (princ)
)
;;;
공유

    관련 있는 질문들

    6 답변

    1. aalan
    2. Lv.0

      브릭스 v15 쓰고 있습니다. 

      같은 리습을 쓰고 계시군요.(참 유용하죠?)
      저는 무리 없이 잘 되고 있습니다만, 첨부파일로 로드 해보시죠
      (잉? 파일 첨부 안되네?)
      • 0
    3. Lv.21

      딱히 문제될것은 없는코드입니다  라인을 너무 많이 선택하신거 아닌가요?? 리습자체는 문제없습니다 

      • 0
    4. Lv.0
      ;;===============================
      ;; 선분 양끝 남기기
      ;;===============================
      (defun c:QT( / sl-mapcar-ens ss)
       (vl-load-com)
       (defun sl-mapcar-ens (func ss) (mapcar func (vl-remove-if ‘listp (mapcar ‘cadr (ssnamex ss)))))
       (princ “n선 양끝 남기기”)
       (and
        (setq ss (ssget ‘((0 . “LINE”))))  
        (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))
           )
           (princ “n입력한 길이보다 선이 짧습니다.”)
          )
         )
         ss
        )
       )
       (princ)
      )
      ;;;
      ;;===============================
      ;; 선분 양끝 남기고 색상 바꾸기
      ;;===============================
      (defun c:QTT( / sl-mapcar-ens ss)
       (vl-load-com)
       (prompt “n>> 색상을 변경할 객체를 선택하세요… “)
        (setq ss (ssget))
        (command “change” ss “” “p” “c” “7” “”)
        (prompt (strcat “n>> 7번 색상으로 변경되었습니다.” ))
      (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))
           )
           (princ “n입력한 길이보다 선이 짧습니다.”)
          )
         )
         ss
        )
       )
       (princ)
      )
      ;;;
      • 0

    5. 저는 왜 안돌아가는지 모르겠네요;;ㅜㅜ

      • 0

    6. 다시 시도해봐야겠네요 말씀감사드립니다^^

      • 0

    7. 정말 감사드립니다^^

      • 0