중국산 리습 2가지 (학습용) > 공유

본문 바로가기

공유

중국산 리습 2가지 (학습용)

페이지 정보

작성자 zwcad사용자 댓글 1건 조회 1,746회 작성일 23-11-25 18:21

본문

캐드 프로그램 종류, 버전:

XICAD에서 더 완벽하게 지원하는 기능입니다

다만 코드가 공개되어 있어 리습 학습하시는 분들이 있으면 도움이 될 것 같아 업로드 합니다

메모장으로 열면 중국어가 깨져 나와서 vscode 등 코드 에디터로 여는걸 추천드립니다




자주 쓰는 문장 꺼내 쓰기, QT 과 유사한 리습-> Y550

*.txt 파일을 불러와서 문장을 바로 입력하는 리습입니다



블럭 창고, Q1 과 유사한 리습 -> Y340

자주 사용하는 블럭을 꺼내오는 리습입니다

기본 경로는  D:\ACADuser이며

해당 경로에 폴더와, 그 폴더 내에 도면 하나가 있어야 실행됩니다

첨부파일

  • Y340.LSP (52.2K) 16회 다운로드 | DATE : 2023-11-25 18:21:14
  • Y550.LSP (31.8K) 12회 다운로드 | DATE : 2023-11-25 18:21:14

댓글목록

zwcad사용자님의 댓글

zwcad사용자 작성일

(defun :Y340-65_old: (ch65)
    (cond ((= ch65 1) (setq fname (- fname 1))) 
          ((= ch65 2) (setq fname (+ fname 1))) )
    (setq y340_stch (+ (fix fname) 1))
    (:Y340-62:) )


    (defun :Y340-65: (ch65)
    (cond ((= ch65 1) (setq fname (- fname 1))) 
          ((= ch65 2) (setq fname (+ fname 1))) )
 
    ;; 예외처리: fname이 d_list-2를 초과하는 경우
    (setq fname (min (max fname 0) (1- (length d_data-2)))  )
 
    (setq y340_stch (+ (fix fname) 1))
    (:Y340-62:))
 

(defun :Y340-26_old: (ch26 / num1a)
    (setq num1 y340)
    (cond ((= ch26 1) (setq num1a (- (atoi num1) 1))) 
          ((= ch26 2) (setq num1a (+ (atoi num1) 1))) )

    (setq num1 (itoa num1a))
    (:Y340-4: num1 d_list-1) )


 (defun :Y340-26: (ch26 / num1a)
  (setq num1 y340)
  (cond ((= ch26 1) (setq num1a (- (atoi num1) 1))) 
        ((= ch26 2) (setq num1a (+ (atoi num1) 1))) )

  ;; 예외처리: num1a가 d_list-1을 초과하는 경우
  (setq num1a (min (max num1a 0) (1- (length d_list-1))))

  (setq num1 (itoa num1a))
  (:Y340-4: num1 d_list-1))



파일 및 폴더 개수가 각 1개일때 다음 폴더 또는 다음 파일 버튼을 누르면
캐드가 멈춰버리는 오류가 있어 예외처리를 추가해보았습니다


XICAD, Copyright © izzarder.com All rights reserved.