홈/ 질문/Q 189378
다음
진행 중
김보리
Lv.11
등록일: 2024-03-08T11:59:02+09:00 카테고리:

원센터에 라인 그리기 가능할까요.

(defun c:POO1(/ os ss k ent elist cenp rad p1 p2 p3 p4 exrad1)
;->*error* start
(defun *error* (msg)(princ “error: “)(princ msg)
;(setvar “osmode” os)
(princ))
;-<*error* end
(setvar "cmdecho" 0)
(setq os (getvar "osmode"))
(setq ss (ssget '((0 . "circle"))))
(command "change" ss "" "p" "c" "2" "")
(setq k 0)
;(setvar "osmode" 0)
(command "undo" "be")
(command "PDMODE" "0")
(repeat (sslength ss) ;;반복문
(setq ent (ssname ss k))
(setq elist (entget ent))
(setq cenp (cdr (assoc 10 elist)))
(command "point" cenp)
(command "change" (entlast)"" "p" "c" "4" "")
(setq k (1+ k))
);repeat
(command "undo" "e")
;(setvar "osmode" os)
(princ)
);defun

예전에 고캐드에서 헤엄치다가 발견해서 잘써었던 리습입니다..
캐드를 쉬다가 다시 복귀하니 홀센터에 포인트말고 라인을 0.2mm 그려넣더라구요…

이게 너무 많고 반복작업인데. 직접 수정하려니 다 까먹어서요 ㅠㅠ..

선이 여기저기로 튀는데 오스냅을 0으로 가도 해결이 안되서 부탁드립니다..
위의 리습은 드래그 하여 홀 센터에 포인트를 넣어주는 리습입니다..

공유

    관련 있는 질문들

    답변을 남겨주세요

    답변을 등록하기 위해서는 로그인이 필요합니다.

    아직 계정이 없으신가요?

    8 답변

    1. aalan
    2. Lv.25
      (수정됨)

      (defun c:test(/ os ss k ent elist cenp rad p1 p2 p3 p4 exrad1)
      ;->*error* start
      (defun *error* (msg)(princ “error: “)(princ msg)
      ;(setvar “osmode” os)
      (princ))
      ;-<*error* end
      (setvar “cmdecho” 0)
      (setq os (getvar “osmode”))
      (setq ss (ssget ‘((0 . “circle”))))
      (command “change” ss “” “p” “c” “2” “”)
      (setq k 0)
      ;(setvar “osmode” 0)
      (command “undo” “be”)
      (command “PDMODE” “0”)
      (repeat (sslength ss) ;;반복문
      (setq ent (ssname ss k))
      (setq elist (entget ent))
      (setq cenp (cdr (assoc 10 elist)))
      (setq rad (cdr (assoc 40 elist)))
      (setq exrad1 (* 0.2 0.5))
      (setq p1 (list (+ (car cenp) exrad1) (cadr cenp)))
      (setq p2 (list (- (car cenp) exrad1) (cadr cenp)))
      (setq p3 (list (car cenp) (+ (cadr cenp) exrad1)))
      (setq p4 (list (car cenp) (- (cadr cenp) exrad1)))
      (command “line” p1 p2 “”)
      (command “line” p3 p4 “”)
      (setq k (1+ k))
      ) ;repeat
      (command “undo” “e”)
      ;(setvar “osmode” os)
      (princ)
      ) ;defun

      • 0