홈/ 질문/Q 109222
다음
진행 중
Lv.0
등록일: 2017-12-15T04:33:04+09:00 카테고리:

리습 수정좀 부탁드려요

안녕하세요 항상 고캐드에서 고수님들께 많은 정보 얻고 있는 초보 입니다



아래 리습은 양쪽으로 옵셋되는 리습인데

양쪽 옵셋후에 양끝점을 라인으로 닫고 싶은데..

라인은  (command “line” p1 p2 “”) (command “line” p3 p4 “”) 추가하면 되는데.

아크 끝점은 어디를 잡아야 하는지.. 고민고민하다가…

고수님께 수정 부탁드릴께요



제목 없음.jpg


(defun c:dff()
(defun dtr (a)
(* pi (/ a 180.0))
)
(defun rtd (a)
(/ (* a 180.0) pi)
)
(setvar “osmode” 0)
(setvar “cmdecho” 1)
(IF (= KIS NIL) (SETQ KIS “”)
(PRINC KIS)
)
(setq off100 (getREAL “nSelect line of Distance : “))
(IF (= off100 NIL)(SETQ off100 KIS))
(prompt “nSelect Entities to be offset “)
(setq off1 (* off100 0.5))
(SETQ a1 (SSGET))
(SETQ NUM (SSLENGTH a1))
(SETQ INDEX 0)
(REPEAT NUM
(SETQ b1 (entget (ssname a1 index)))
;; (setq b1 (entget (car (entsel))))
(setq kkke (cdr (assoc 0 b1)))
(IF (= “LINE” kkke)
(progn
(setvar “osmode” 0)
(setq c1 (assoc 10 b1))
(setq c2 (assoc 11 b1))
(setq d1 (cdr c1))
(setq d2 (cdr c2))
(setq ANG (ANGle d1 d2))
(setq p1 (polar d1 (+ ANG (dtr 90)) off1))
(setq p2 (polar d1 (- ANG (dtr 90)) off1))
(setq p3 (polar d2 (+ ANG (dtr 90)) off1))
(setq p4 (polar d2 (- ANG (dtr 90)) off1))
(command “line” p1 p3 “”)
(command “line” p2 p4 “”)
(setq index (+ index 1))
(SETQ KIS off100)
(setvar “osmode” 33)
) ;;progn
) ;;if

(if (= “ARC” kkke)
(progn
(setvar “osmode” 0)
(setq cc1 (assoc 10 b1))
(setq rr1 (assoc 40 b1))
(setq c1 (assoc 50 b1))
(setq c2 (assoc 51 b1))
(setq dd1 (cdr cc1))
(setq r1 (cdr rr1))
(setq d1 (cdr c1))
(setq ANG1 (rtd d1))
(setq d2 (cdr c2))
(setq ANG2 (rtd d2))
(setq ptt1 (+ r1 off1))
(setq ptt2 (- r1 off1))
(setq kkkk1 (strcat “@” (rtos ptt1) “<” (rtos ANG1)))
(setq kkkk2 (strcat “@” (rtos ptt1) “<” (rtos ANG2)))
(setq kkkk3 (strcat “@” (rtos ptt2) “<” (rtos ANG1)))
(setq kkkk4 (strcat “@” (rtos ptt2) “<” (rtos ANG2)))
(command “arc” “c” dd1 kkkk1 kkkk2)
(command “arc” “c” dd1 kkkk3 kkkk4)
(command “osnap” “int”)
(setq index (+ index 1))
(SETQ KIS off100)
(setvar “osmode” 33)
)
)
)
)

공유

    관련 있는 질문들

    3 답변

    1. aalan
    2. Lv.0
      (defun c:dff()
      (defun dtr (a)
      (* pi (/ a 180.0))
      )
      (defun rtd (a)
      (/ (* a 180.0) pi)
      )
      (setvar “osmode” 0)
      (setvar “cmdecho” 1)
      (IF (= KIS NIL) (SETQ KIS “”)
      (PRINC KIS)
      )
      (setq off100 (getREAL “nSelect line of Distance : “))
      (IF (= off100 NIL)(SETQ off100 KIS))
      (prompt “nSelect Entities to be offset “)
      (setq off1 (* off100 0.5))
      (SETQ a1 (SSGET))
      (SETQ NUM (SSLENGTH a1))
      (SETQ INDEX 0)
      (REPEAT NUM
      (SETQ b1 (entget (ssname a1 index)))
      ;; (setq b1 (entget (car (entsel))))
      (setq kkke (cdr (assoc 0 b1)))
      (IF (= “LINE” kkke)
      (progn
      (setvar “osmode” 0)
      (setq c1 (assoc 10 b1))
      (setq c2 (assoc 11 b1))
      (setq d1 (cdr c1))
      (setq d2 (cdr c2))
      (setq ANG (ANGle d1 d2))
      (setq p1 (polar d1 (+ ANG (dtr 90)) off1))
      (setq p2 (polar d1 (- ANG (dtr 90)) off1))
      (setq p3 (polar d2 (+ ANG (dtr 90)) off1))
      (setq p4 (polar d2 (- ANG (dtr 90)) off1))
      (command “line” p1 p3 “”)
      (command “line” p2 p4 “”)
      (setq index (+ index 1))
      (SETQ KIS off100)
      (setvar “osmode” 33)
      ) ;;progn
      ) ;;if
       
      (if (= “ARC” kkke)
      (progn
      (setvar “osmode” 0)
      (setq cc1 (assoc 10 b1))
      (setq rr1 (assoc 40 b1))
      (setq c1 (assoc 50 b1))
      (setq c2 (assoc 51 b1))
      (setq dd1 (cdr cc1))
      (setq r1 (cdr rr1))
      (setq d1 (cdr c1))
      (setq ANG1 (rtd d1))
      (setq d2 (cdr c2))
      (setq ANG2 (rtd d2))
      (setq ptt1 (+ r1 off1))
      (setq ptt2 (- r1 off1))
      (setq kkkk1 (strcat “@” (rtos ptt1) “<” (rtos ANG1)))
      (setq kkkk2 (strcat “@” (rtos ptt1) “<” (rtos ANG2)))
      (setq kkkk3 (strcat “@” (rtos ptt2) “<” (rtos ANG1)))
      (setq kkkk4 (strcat “@” (rtos ptt2) “<” (rtos ANG2)))
      (command “arc” “c” dd1 kkkk1 kkkk2)
      (setq obj1 (vlax-ename->vla-object (entlast)))
      (command “arc” “c” dd1 kkkk3 kkkk4)
      (setq obj2 (vlax-ename->vla-object (entlast)))
      (command “_line” (vlax-get obj1 ‘startpoint) (vlax-get obj2 ‘startpoint) “”)
      (command “_line” (vlax-get obj1 ‘endpoint)   (vlax-get obj2 ‘endpoint) “”)
      (command “osnap” “int”)
      (setq index (+ index 1))
      (SETQ KIS off100)
      (setvar “osmode” 33)
      )
      )
      )
      )
      • 0

    3. 오~~~감사합니다…우기로기님.

      열심히 공부해서 꼭 이 은혜는 다른 초보분들께 갚겠습니다
      • 0

    4. 저도 감사합니다.(양쪽 옵셋후 양끝점 연결)

      • 0
    내꺼야
    Lv.0
    등록일: 2007-09-07T11:48:26+09:00 카테고리:

    리습 수정좀 부탁드려요~~

    CAD Q&A 방에서 一初 님이 올려주신 리습을 구했는데요

    같은 텍스트에 블럭을 삽입하는데요 텍스트 MCpoint로 삽입이 됩니다
    텍스트의 Left point로 삽입되게 수정해 주세요~~

    (defun c:tbin (/ ss bname os index ent old10 old50 textoutline tbp1 tbp2 mcpoint)
    (command “undo” “g”)
    (setq str (getstring “n 찾을문자 : “));;;와일드 카드 문자 사용가능
    (if (/= bname “”)
    (progn
    (setq ss (ssget (list (cons 0 “text”) (cons 1 str))))
    (if ss
    (progn
    (setq bname (getstring “n 블럭이름 : “))
    (if (/= bname “”)
    (progn
    (setq os (getvar “osmode”))
    (setvar “osmode” 0)
    (setq index 0)
    (repeat (sslength ss)
    (setq ent (entget (ssname ss index)))
    (setq old10 (cdr (assoc 10 ent)))
    (setq old50 (cdr (assoc 50 ent)))
    (setq textoutline (textbox ent))
    (setq tbp1 (mapcar ‘+ (car textoutline) old10))
    (setq tbp2 (mapcar ‘+ (cadr textoutline) old10))
    (setq mcpoint (polar tbp1 (angle tbp1 tbp2) (/ (distance tbp1 tbp2) 2.0)))
    (command “insert” bname mcpoint “” “” old50);;;블럭크기는 수정하세요
    (setq index (1+ index))
    )
    (setvar “osmode” os)
    )
    )
    )
    )
    )
    )
    (command “undo” “e”)
    (princ)
    )

    • 0
    • 0 조회
    공유

      관련 있는 질문들

      Lv.0
      등록일: 2004-04-02T18:24:22+09:00 카테고리:

      리습 수정좀 부탁드려요~~~

      (defun c:q1 ()
      (setvar “cmdecho” 0)
      (setq osp1 (getvar “osmode”)) (setvar “osmode” 0)
      (prompt “nSelect text for (xxx) type “)
      (setq txt1 (ssget) tl1 (sslength txt1) i1 0)
      (while (< i1 tl1)
      (setq txt2 (entget (ssname txt1 i1))
      kk1 (assoc 1 txt2) kk3 (cdr kk1)
      kk3 (if (= kk3 “”) “<>” kk3)
      sss (strcat “Ø” kk3 )
      txt2 (subst (cons 1 sss) kk1 txt2)) (entmod txt2)
      (setq i1 (+ 1 i1)) )
      (setvar “osmode” osp1)
      (setq t2 nil t1 nil)
      )
      *********************8
      이리습은 글자맨앞에 Ø 쓰게 되어 잇습니다
      그냥 맨앞에 쓰지않게 할수없나요
      위에리습예:고캐드==>Ø고캐드 (이렇게 맨앞에 생깁니다)
      고캐드라는글자가 지워지면서 Ø 놈 남개요
      제가 원하는거: 고캐드==>Ø

      • 0
      • 0 조회
      공유

        관련 있는 질문들