홈/ 질문/Q 107943
다음
진행 중
초보걸음마마
Lv.0
등록일: 2017-02-08T10:33:12+09:00 카테고리:

[CAD LISP] 서로다른 TEXT 똑같이 변경시키는 LISP 수정 부탁드려요.. ㅜㅜ

아래에 첨부된 파일에 LISP은 서로다른 TEXT를 동일하게 변경시키는 LISP입니다..

현재 LISP이 명령어를 치고 TEXT를 선택하고 스페이스바를 한번눌리고  또 다른 TEXT를 선택해야 변경이 되는데…
이것을 명령어 치고 TEXT선택하고 바로 또 다른 TEXT를 선택하면 변경되겠금 가능한지요..ㅠㅠ

캐드 고수님들이나 아시는분들 도와주세요..ㅜㅜ

감사합니다.

공유

    관련 있는 질문들

    4 답변

    1. aalan
    2. Lv.0

       너무 너무 감사합니다.. 잘사용하겠습니다. ^^

      • 0

    3. 배보다 배꼽이 커졌지만 다들 안된다고 하셔서 되는걸 보여드리기 위해서…

      ;*********************************************************************************
      (defun c:zz (/ *error* _GrSelectionSetShaded s l chk index l n s2 high olderr )
      (defun *error* (m)
      (if s
      (repeat (setq i (sslength s))
      (redraw (ssname s (setq i (1- i))) 4)
      )
      )
      )
      (defun _GrSelectionSetShaded (pt flt / *error* _solid foo sort gr solid opt ss)
      (vl-load-com)
      (defun *error* (m)
      (redraw)
      (and solid  (entget solid) (entdel solid))
      )
      (setq sort (vla-AddObject (vla-GetExtensionDictionary (:space)) “ACAD_SORTENTS” “AcDbSortentsTable”))
      (defun _solid (a b c d color)
      (and solid  (entget solid) (entdel solid))
      (vl-catch-all-apply
      (function
      (lambda (/)
      (vlax-invoke
      sort
      ‘MoveToBottom
      (list
      (vlax-ename->vla-object
      (setq solid
      (entmakex
      (list
      ‘(0 . “SOLID”)
      ‘(100 . “AcDbTrace”)
      (cons 62 color)
      (cons 10 a)
      (cons 11 b)
      (cons 12 d)
      (cons 13 c)
      )
      )
      )
      )
      )
      )
      )
      )
      )
      )
      (defun foo (p1 p2)
      (redraw)
      (if (apply ‘and (mapcar ‘vl-consp (list p1 p2)))
      (
      (lambda (l d)
      (apply
      ‘_solid
      (reverse
      (cons
      (setq opt (if (zerop d) 156 106))
      (cdr (reverse l))
      )
      )
      )
      (mapcar ‘(lambda (a b) (and a b (grdraw a b 7 d))) l (append (cdr l) (list (last l))))
      )
      (list p1 (list (car p2) (cadr p1)) p2 (list (car p1) (cadr p2)) p1)
      (cond ((> (car p1) (car p2)) 1) (0))
      )
      )
      )
      (if (vl-consp pt)
      (progn
      (princ “r반대 구석 지정: “)
      (while (eq 5 (car (setq gr (grread T 15 1)))) (foo pt (cadr gr)))
      (redraw)
      (if (eq 3 (car gr))
      (setq ss (ssget (if (eq opt 156) “_W” “_C”) pt (cadr gr) flt))
      )
      )
      )
      (*error* nil)
      ss
      )
      (princ “n객체 선택: “)
      (while (/= 3 (car (setq gr (grread nil 12 2)))))
      (if (setq s (_GrSelectionSetShaded (cadr gr) ‘((0 . “TEXT”))))
      (progn
      (repeat (setq i (sslength s))
      (redraw (ssname s (setq i (1- i))) 3)
      )
      (if (setq txt (car (entsel “n문자 선택: “)))
      (progn
      (setq high (cdr (assoc 1 (entget txt))))
      (setq index 0)
      (setvar “cmdecho” 0)
      (command “undo” “group”)
      (repeat (setq i (sslength s))
      (setq s2 (entget (ssname s (setq i (1- i)))))
      (entmod (subst (cons 1 high) (assoc 1 s2) s2))
      )
      (command “undo” “end”)
      (setvar “cmdecho” 1)
      )
      )
      )
      )
      (*error* nil)
      (princ)
      )
      ;**********************************************************************************
      • 0

    4. 안됩니다 ~!! 내가 문자 선택을 끝냈다는 신호를 컴한테 보내 주는게 스페이스바(또는 엔터)입니다

      그렇지 않으면 컴퓨터는 아직 선택이 끝났는지 더 선택을 할것인지 알수가 없죠…
      • 0
    5. Lv.21

      안됩니다 ~!! 내가 문자 선택을 끝냈다는 신호를 컴한테 보내 주는게 스페이스바(또는 엔터)입니다

      그렇지 않으면 컴퓨터는 아직 선택이 끝났는지 더 선택을 할것인지 알수가 없죠… 
      • 0