캐드

안녕하세요? 글자 내림차순 정렬 리습 여쭤볼게요~~

로그아089 쪽지보내기 메일보내기 자기소개 아이디로 검색 전체게시물 작성
작성일 2024.01.15 06:47

317 조회
16 댓글
0 추천
0 비추천
목록

안녕하세요? 노가다 작업으로 인해 리습 문의를 많이 드리고있습니다

여쭤보고 싶은것은 숫자 내림이나 올림차순 정렬 리습을 만들고 싶습니다

검색해 보니

참고 : (vl-sort '(12 13 1 100) '>) -> '(100 13 12 1)

이런문구를 봤습니다 제가 비슷한 리습으로 수정을 해보았는데 어렵습니다

노가다 작업을 줄일수 있게 도와주세요~ 감사합니다~

핷짜뇽 이름으로 검색
작성일 2020.01.14 17:08

감사합니다…. 덕분에.. 작업이 엄청빨라졌습니다.. 복받으십시오!

방장이 이름으로 검색
작성일 2019.08.01 08:59

수야님 감사합니다~출근하니 선물을 받았네여~ㅋㅋ

수야12 이름으로 검색
작성일 2019.07.31 23:27

어후 휴가철 이라 정신 없이 바뻤네요 통합했습니다 (테스트 완료~!!)

휴가 GO~!!

방장이 이름으로 검색
작성일 2019.07.28 21:45

수야님 안녕하세요? 매번 감사합니다 만들어 주신 정렬 리습으로 기본도 부터 수정하고 이제 퇴근합니다

도면 글씨들이 하나 같이 이쁘게 붙어 있습니다 ~ 감사합니다

사수께서 쓰는 리습 원본입니다 똑같은 기능과 리습에서 글자만 달라 붙게 하고 싶어 하십니다.

만들어 주신게 더 편하고 좋은데도 말입니다 으으

;;=============================================================== ;;————————————————————— (defun c:QD(/ myerror os ss n ptx pty pyxy kw k en tx a) ;start — Internal error handler —————————– (defun myerror(S) (if (/= s "Function cancelled")(princ (strcat "nError:" s))) (setvar "osmode" os) (setvar "blipmode" bl) (setq *error* olderr)(princ) ) (setq olderr *error* *error* myerror) ;end———————————————————– (setq os (getvar "osmode")) (prompt " 문자 좌우 정렬하기…") (setq ss (ssget '((0 . "text")))) (terpri) (setq n (sslength ss)) (setq ptx (car (getpoint "n좌우정렬점 선택->")))(terpri) (setvar "osmode" 0) (setq a "자리맞추기 선택[왼쪽(L)/중심(C)/중간(M)/오른쪽(R)] <왼쪽>: ") (initget "Left Center Middle Right Middle Center") (setq kw (getkword a)) (if (= kw nil) (setq kw "Left")) (if (= kw "Left") (setq sn 10) (setq sn 11)) (command "justifytext" ss "" kw) (terpri) (setq k 0) (while (<= 1 n) (setq en (ssname ss k)) (setq ptxy (cdr (assoc 10 (entget en))) ) (setq pty (cadr ptxy)) (setq pt2 (list ptx pty)) (entmod (subst (cons sn pt2) (assoc sn (entget en))(entget en))) (setq n (- n 1)) (setq k (+ k 1)) ) (setvar "osmode" os) (princ) )

조금씩 리습을 알아가고 있지만 짜집기는 아직 너무 어렵습니다;;

어제 보다 퇴근이 빨리 졌네요 감사합니다~다음주는 편하게 일할수 있어서 넘 좋네요 ~~ㅜ루루루

수야님 안녕하세요? 매번 감사합니다 만들어 주신 정렬 리습으로 기본도 부터 수정하고 이제 퇴근합니다
도면 글씨들이 하나 같이 이쁘게 붙어 있습니다 ~ 감사합니다
사수께서 쓰는 리습 원본입니다 똑같은 기능과 리습에서 글자만 달라 붙게 하고 싶어 하십니다.
만들어 주신게 더 편하고 좋은데도 말입니다 으으
;;===============================================================
;;—————————————————————
(defun c:QD(/ myerror os ss n ptx pty pyxy kw k en tx a)
  ;start — Internal error handler —————————–
   (defun myerror(S)
   (if (/= s "Function cancelled")(princ (strcat "nError:" s)))
   (setvar "osmode" os) (setvar "blipmode" bl)
   (setq *error* olderr)(princ) )
   (setq olderr *error* *error* myerror)
  ;end———————————————————–
   (setq os (getvar "osmode"))
   (prompt " 문자 좌우 정렬하기…")
   (setq ss (ssget '((0 . "text")))) (terpri)
   (setq n (sslength ss))
   (setq ptx (car (getpoint "n좌우정렬점 선택->")))(terpri)
   (setvar "osmode" 0)
   (setq a "자리맞추기 선택[왼쪽(L)/중심(C)/중간(M)/오른쪽(R)] <왼쪽>: ") 
   (initget "Left Center Middle Right Middle Center")
   (setq kw (getkword a))
   (if (= kw nil) (setq kw "Left"))
   (if (= kw "Left") (setq sn 10) (setq sn 11))
   (command "justifytext" ss "" kw) (terpri)
   (setq k 0)
   (while (<= 1 n)
      (setq en (ssname ss k))
      (setq ptxy (cdr (assoc 10 (entget en)))  )
      (setq pty (cadr ptxy))
      (setq pt2 (list ptx pty))
      (entmod (subst (cons sn pt2) (assoc sn (entget en))(entget en)))
      (setq n (- n 1))
      (setq k (+ k 1))
   )
   (setvar "osmode" os)
   (princ)
)
조금씩 리습을 알아가고 있지만 짜집기는 아직 너무 어렵습니다;;
어제 보다 퇴근이 빨리 졌네요 감사합니다~다음주는 편하게 일할수 있어서 넘 좋네요 ~~ㅜ루루루