홈/ 질문/Q 107199
다음
진행 중
gogohh3
Lv.0
등록일: 2016-09-06T09:45:26+09:00 카테고리:

제가 만든 글자를 잡아서 색깔을 바꾸는 리습인데 고수님들

(vl-load-com)
(defun c:JS( / ss str)
 (if (setq ss (ssget ‘((0 . “TEXT”))))
  (vlax-for ob (vla-get-ActiveSelectionSet (vla-get-ActiveDocument (vlax-get-acad-object)))
   (cond
      ((wcmatch (setq str (strcase (vlax-get ob ‘textstring))) “**”)
    (vlax-put ob ‘color 30)
      )
   )
  )  
 )
 (princ)
)

텍스트를 잡아서 색상을 바꾸는건데 뭐가잘못된걸까요 ㅠㅠ

공유

    관련 있는 질문들

    2 답변

    1. aalan
    2. Lv.0

      제가 Gstar 캐드8을쓰다가 16으로 최신버전으로 업데이트를 했는데 왜 안될까요…
      도면요소는
      ((-1 . <도면요소 이름: eb22030>) (0 . “TEXT”) (5 . “11E97EB”) (330 . <도면요소 이름:
      e6e96c0>) (100 . “AcDbEntity”) (67 . 0) (410 . “Model”) (8 . “ZTX”) (62 . 100) (
      100 . “AcDbText”) (10 -787270 -757423 0) (40 . 200) (1 . “HD10X14EA 2430[F670,45
      5]-6번”) (50 . 6.33494e-006) (41 . 0.8) (51 . 0) (7 . “Boru”) (71 . 0) (72 . 0) (
      11 0 0 0) (210 0 0 1) (100 . “AcDbText”) (73 . 0))

      ((-1 . <도면요소 이름: 23465f50>) (0 . “TEXT”) (5 . “28E”) (330 . <도면요소 이름:
      3b4bb28>) (100 . “AcDbEntity”) (67 . 0) (410 . “Model”) (8 . “0”) (100 .
      “AcDbText”) (10 1461.63 1128.93 0) (40 . 348.344) (1 . “HD10”) (50 . 0.902507)
      (41 . 1) (51 . 0) (7 . “Standard”) (71 . 0) (72 . 0) (11 0 0 0) (210 0 0 1)
      (100 . “AcDbText”) (73 .
      요렇게 두개인데 뭐가 바뀐게 있나 잘안됩니다 ㅠㅠ

      • 0

    3. 잘 만드셨습니다..
      잘 됩니다..
      싸그리 바꿔버리네요emoticon

      • 0