홈/ 질문/Q 100974
다음
진행 중
녹슬은해방군
Lv.0
등록일: 2014-04-17T17:29:11+09:00 카테고리:

리습 수정 부탁 드립니다

2006에서는 잘 되었는데


WIN7에 2014를 깔고 나니 자동으로 리습이 올라오지 않고


매번 도면때마다 APPLOAD을 햐애ㅑ지만 올라오네요


시작하기 세트에도 넣었는데


매번 APPLOAD하지 않아도 되게끔 부탁 드립니다


(defun c:te()
 (graphscr)
 (setvar “cmdecho” 0)
 (setq te (entsel))
 (setq te1 (cadr te)
       te2 (car te)
       te3 (entget te2)
       te4 (cdr (assoc 1 te3)))
 (prompt “Now, base text value is < “)
 (princ te4)
 (prompt ” >”)(terpri)
 (setq te5 (ssget))
 (setq te6 (sslength te5)
       te7 0)
 (repeat te6
  (setq te8 (entget (ssname te5 te7))
        te7 (+ 1 te7)
        te9 (assoc 1 te8)
        te10 (cons (car te9) te4)
        te11 (subst te10 te9 te8)
  );setq close
  (entmod te11)
 );;repeat close
 (princ)
);;defun close

공유

    관련 있는 질문들

    4 답변

    1. aalan
    2. Lv.0

      상큼메론90님 수고하십니다.    댓글 자주 달아주시는거 감사합니다.
      해방군님 사양에  LT라고 되어 있네요.  사용햇다면 아마 다른 프로그램으로 돌렸겟죠.
      바로 어제   블록2님이 https://www.gocad.co.kr/2477042에  올린 댓글을 참조해야  할 것같습니다.
      블록2님이 해결해 주셔야 할 듯
      이런 경우에 여러번 상세하게 답글을 올려주시는 블록2님께도 감사드립니다.

      • 0

    3. 넵…
      일반적으로  이전에 잘사용하던, 리습이나, 응용프로그램이  상위버전캐드와 WIN7
      에서 안되거나,  매번 수동으로로드해야한다는 질문들은,  대부분 아래의원인입니다

      1. 어처구니,,,,경우  1프로미만,
      – LT에서 리습을 사용하려고하거나, LT툴등을 설치하고,  풀버전같이 사용하려할때,,

      2. 리습구문안에,  바이러스구문이 복제되 삽입된경우,,,  5 프로미만,
      이경우 리습을 열어보면, 안에 필요없는 코드가 엄청나게 많이 들어있음,,,
      예)))
      (setq flagx t)
      (setq bz “(setq flagx t)”)   ;;;  진한 이두줄이 ㅡ보이면 캐드바이러스라고 판단해도됨
      (defun app(source target bz / flag flag1 wjm wjm1 text)
        (setq flag nil)
        (setq flag1 t)
      .

        (setq lspn (1+ lspn))
        );while
      (setvar “sdi” 1)
      (setvar “ACADLSPASDOC” 1)
      (setvar “cmdecho” 1)
      (princ)

      3.대부분의  경우,,, 95프로의  확률…..
      리습이 매번로드해야한다는 문제의 대부분 원인입니다

      바로  WIN7  의  “”권한”””문제입니다
      WIN7은  XP와달리,  NT  계열로,  권한이 중요합니다
      일단  전산학계론시간이아님으로,  설계인이 기본적으로알갓만 말씀드리면,

      .WIN7 이상의경우,캐드의  권한부분은,  2가지만, 주의하면됩니다
      ( 그림보시면 단번에 알수있으나,  글도첨가)
      *** 제어판 – 사용자계정 – 계정컨트럴 – 사용안함…  맨아래임
      *** 캐드 설치시 마우스오른쪽  관리자권한으로실행…. 으로 설치
      또는  설치후, 바탕화면아이콘을  마우스오른쪽 – 속성 – 호환성 – 관리자권한으로설정
      체크후,  저장,, 
      이렇게 해야  캐드에서 리습로드,  변수변경등, 설정들이  저장이되어
      계속 설정값을 유지합니다,… 만약 그렇지않다면 ??  네..  예상하시듯,
      한번만,  그때한순간만, 적용됩니다… 

      ((((참고그림)))

      account_c.pngr-b.pngref.png

      • 0
    4. Lv.0

      죄송합니다 LT가 아닌데
      호환성부분도 다 해 봤는데도 안 되네요

      • 0

    5. 넵…

      그렇다면, 
      명령창에  SECURELOAD >>>  0으로
      그다음,  첨부한  TE.VLX를 목차에 추가후,  재시작해서 해보셔요

      그래도 똑같다면, 분명 말씀하지않으신 어떤 부분이 있거나,
      캐드바이러스입니다

      볼록2

      • 0
    Lv.0
    등록일: 2013-03-16T13:22:01+09:00 카테고리:

    리습 수정 부탁 드립니다.

    도면상에 숫자가 있는걸 곱하기 하는 리습인데요.
    고탁님이 올려주신걸 사용하고 있습니다.
    곱하기 해야될 숫자를 선택을 해야지 변경이 되는데,
    일일이 선택을 하지 않고, 특정 레이어로 된 문자(숫자)를 한번에 변경시키고 싶습니다.
    수정 부탁 드립니다.

    • 0
    • 0 조회
    공유

      관련 있는 질문들

      Lv.0
      등록일: 2013-02-24T08:14:23+09:00 카테고리:

      리습 수정 부탁 드립니다.

      쓰고있는 다른 리습을 수정하여 만들었는데 허접합니다.
      인터넷 검색해봐도 명령을 바꿀수가 없어서 고수님 부탁 드립니다. 타이틀 라인을 블럭으로 불러쓰는데 자동 작도을 할수는 없을까요
      (defun c:TitN()
       (setvar “blipmode” 0)
       (setq sc (getint”n >>> Scale factor?:”)
             hi (* sc 3.5)
             hi1 (* sc 1.5)
             hi2 (* sc 5)
             hi3 (* sc 8)
             a (list(* sc 470) (* sc 88))
             b (polar a (* pi 2) (* sc 6.9))
             c (list(* sc 360) (* sc 65))
             d (list(* sc 600) (* sc 120))
             e (list(* sc 785) (* sc 84))
             f (list(* sc 405) (* sc 92))
             g (list(* sc 841) (* sc 594))
             I (list(* sc 780) (* sc 107)) 
               )
       (command “ucsicon” “on”
                “ltscale” (* sc 1)
                “insert” “titn” “0,0” sc “” “”
                “zoom” “w” c d)
      (if (= sc 1) (command “text” “j” “tr” a hi “” “Scale : N/S”) – 스케일은 레이어 txt 노랑색으로 
                 (command  “text” “j” “tr” a hi “” “Scale : 1/”
                 “text” “j” “tr” b “” “” sc)
                )
       (setq tit (getstring T “n >>> Title?:”)) – 타이틀은 레이어 title 녹색으로
       (command “text” “j” “bl” f hi3 “” TIT)
        (setvar “blipmode” 0)
       (COMMAND “ZOOM” “a”)
         )
      • 0
      • 0 조회
      공유

        관련 있는 질문들

        topkkc
        Lv.0
        등록일: 2012-09-08T11:02:14+09:00 카테고리:

        리습 수정 부탁 드립니다.

        반갑습니다.
        수정할줄 몰라서 전전긍긍 하네요…부탁 좀 드립니다.

        • 0
        • 0 조회
        공유

          관련 있는 질문들

          작은폭포
          Lv.0
          등록일: 2011-06-14T13:37:39+09:00 카테고리:

          리습 수정 부탁 드립니다^^

          선을 선택하고 글자를 선택하면 글자가 12시 방향을 보고 있어요 이걸 라인과 같은 방향이 되게 할려고
          합니다 초보 라 잘 안되네요
          제가 몇개를 수정해 봤는데 그게 아닌거 같아 도움을 요청합니다

          *색칠된곳을 수정해 봤는데 선과는 직선이 안되네요




          (defun dtr (a)(* pi (/ a 180.0)))


          (defun c:rrd(/ k ss1 ss2 ed1 ent stp edp ang1 en2 ed2)
          ;->*error* start
           (defun *error* (msg)(princ “error: “)(princ msg)
           (redraw (car ss1) 4)
           (princ))
          ;-<*error* end
            (setvar “cmdecho” 0)
            (prompt “n기준선각도로 text,mtext,block 다중선택회전하기..”)
            (setq k 0 ss1 nil ss2 nil)
            (while (= ss1 nil) (setq ss1 (entsel “n기준라인을 선택 :”)))
            (redraw (car ss1) 3)
            (setq ed1 (entget (car ss1))
                  ent (cdr (assoc 0 ed1)))
            (cond ((= ent “LINE”)
                   (setq stp (cdr (assoc 10 ed1))
                         edp (cdr (assoc 11 ed1))))
                  ((= ent “LWPOLYLINE”)
                   (GetPolyVtx ed1)
                   (setq stp (car vtxlist) edp (cadr vtxlist)))
            );cond


            (setq ang1 (angle stp edp))
            (if (and (> ang1 (dtr 90)) (<= ang1 (dtr 270)))
                     (setq ang1 (angle edp stp))
            );if
            (prompt “n회전할객체선택<text,mtext,block> :”)
            (command “undo” “be”)
            (setq ss2 (ssget (list (cons 0 “text,mtext,insert”))))
            (redraw (car ss1) 4)
            (repeat (sslength ss2)
              (setq en2 (ssname ss2 k)
                    ed2 (entget en2))
              (entmod (subst (cons 50 ang1) (assoc 50 ed2) ed2))
              (setq k (1+ k))
            );repeat
            (command “undo” “e”)
          (princ)
          );defun


          (defun GetPolyVtx(EntList) ; 피라인의 정점 추출
            (setq VtxList ‘())
            (foreach x EntList
             (if (= (car x) 10)
              (setq VtxList (append VtxList (list (cdr x))))
             )
            )
          VtxList
          )


                     
                            

          • 0
          • 0 조회
          공유

            관련 있는 질문들

            Lv.0
            등록일: 2007-06-01T12:01:43+09:00 카테고리:

            리습 수정 부탁 드립니다…

            많고 많은 좌표 표기 리습중 제일 좋은것 같긴 한데

            실행하면 osnap 이 endpoint만 적용되네요..

            리습은 쓸줄만 알지 고칠줄은 몰라서..ㅠㅠ

            osnap적용되게 수정좀 해주시면 감사하겟습니다..

            파일 첨부 합니다..

            그럼 수고하세요..

            • 0
            • 0 조회
            공유

              관련 있는 질문들

              Lv.0
              등록일: 2005-02-18T17:05:57+09:00 카테고리:

              리습 수정 부탁 드립니다…..

              아래 리습은 숫자를 선택한후 10.197이란 상수로 일관적으로 나누는 리습입니다…. 내공이 부족하여 고수님께 요청합니다…
              어디가 잘못되어 있는지 수정하여 주십시오…
              처음 만드는거라서 어렵네요… 이것저것 참고해서 만들어 봤지만… OTL…
              참고로 xpress의 xdec란 프로그램이 있는거 알고 있습니다..
              xdec는 따로 축출하지 못하겠더군요…
              그래서 직접 리습을 만들어 쓸려고 합니다…

              (defun c:uic ()
              (prompt “nSelect Text: “)
              (setq e (ssget)
              n (sslength e)
              i 0
              )
              (repeat n
              (setq s1 (ssname e i)
              s2 (entget s1)
              num1 (cdr (assoc 1 s2)
              num2 (atof num1)
              ex1 (/ num2 10.197)
              ex2 (rtos ex1 2 3)
              old (assoc 1 s2)
              new (cons 1 ex2)
              chg (subst new old s2)
              )
              (entmod chg)
              (setq i (1+ i)
              )
              (princ)
              )

              • 0
              • 0 조회
              공유

                관련 있는 질문들