선형(직선,곡선) 일정간격으로 분할되게…?(긴급)

Question

Lv.0

등록일: 2010-08-192010-08-19T13:07:47+09:00 2010-08-19T13:07:47+09:00카테고리: AutoCAD & CADian

선형(직선,곡선) 일정간격으로 분할되게…?(긴급)

선형(직선, 곡선)이 있구요..

일정간격을 입력하면… 연결된 선형이 그 간격대로 분리가 되도록 해보고 싶은데…
쉽지 않네요…. (me명령과 DIV명령은 표시만 되잖아요. 전 잘리는게 필요한데..)
리습제작이 될런지?

<알고리즘>

1. 객체 선택
2. 간격 입력
3. 객체가 간격에 맞춰 전부 분리

== 선 분리할 예제 첨부파일로 올립니다. ===

5 답변

[Deleted User] · Answer 1 · 2010-08-19T16:27:38+09:00

(defun c:test ( / Entity Dist Pt os )
(setvar “cmdecho” 0)
(if (setq Entity (car (entsel “n폴리선 선택: “)))
    (if (eq (cdr (assoc 0 (entget Entity))) “LWPOLYLINE”)
      (progn
        (if (= InitialDist nil) (setq InitialDist 20.0))
        (initget 6)
        (setq Dist (getdist (strcat “n분할간격 <” (rtos InitialDist 2) “>: “)))
        (if (= Dist nil) (setq Dist InitialDist))
        (setq InitialDist Dist)
        (command “_.undo” “_be”)
        (setq os (getvar “osmode”))
        (setvar “osmode” 0)
        (while (setq Pt (vlax-curve-getpointatdist Entity Dist))
          (command “_.break” Entity Pt Pt)
          (setq Entity (entlast))
        )
        (setvar “osmode” os)
        (command “_.undo” “_e”)
      )
    )
)
(princ)
)

[Deleted User] · Answer 2 · 2010-08-20T07:57:02+09:00

[Deleted User]

2010-08-20T07:57:02+09:00답변 등록 답변 등록 일시 2010-08-20 7:57 am

일반선이나 아크곡선 (폴리선이 아닌) 등도 분리되게끔 하려면 어떻게 수정해야 할런지?

도움 요청드립니다.

0

공유
공유
- 공유 Facebook
- 공유 Twitter

[Deleted User] · Answer 3 · 2010-08-20T08:17:07+09:00

(defun c:test ( / EntityList Entity Dist Pt os )
(setvar “cmdecho” 0)
(setq EntityList ‘(“LINE” “ARC” “LWPOLYLINE”))
(if (setq Entity (car (entsel “n선,호,폴리선 선택: “)))
    (if (member (cdr (assoc 0 (entget Entity))) EntityList)
      (progn
        (if (= InitialDist nil) (setq InitialDist 20.0))
        (initget 6)
        (setq Dist (getdist (strcat “n분할간격 <” (rtos InitialDist 2) “>: “)))
        (if (= Dist nil) (setq Dist InitialDist))
        (setq InitialDist Dist)
        (command “_.undo” “_be”)
        (setq os (getvar “osmode”))
        (setvar “osmode” 0)
        (while (setq Pt (vlax-curve-getpointatdist Entity Dist))
          (command “_.break” Entity Pt Pt)
          (setq Entity (entlast))
        )
        (setvar “osmode” os)
        (command “_.undo” “_e”)
      )
      (prompt “n** 선, 호, 폴리선을 선택해야 합니다 **”)
    )
)
(princ)
)