선형에 객체를 일정 간격으로 삽입하기

선형에 객체를 일정 간격으로 삽입하기

 

measure명령어와 비슷한 기능으로 만들어진 lisp이다.

 

 

;;; ------------------------------------------------------------------------
;;; CopyAlongCurve.lsp v1.1
;;;
;;; Copyright?03.26.10
;;; Alan J. Thompson (alanjt)
;;;
;;; Contact: alanjt @ TheSwamp.org, CADTutor.net
;;;
;;; Permission to use, copy, modify, and distribute this software
;;; for any purpose and without fee is hereby granted, provided
;;; that the above copyright notice appears in all copies and
;;; that both that copyright notice and the limited warranty and
;;; restricted rights notice below appear in all supporting
;;; documentation.
;;;
;;; The following program(s) are provided "as is" and with all faults.
;;; Alan J. Thompson DOES NOT warrant that the operation of the program(s)
;;; will be uninterrupted and/or error free.
;;;
;;; Allows user to copy selected object(s) along selected curve or picked points,
;;; based on three different copying options.
;;;  @ Divide: Divides object(s) evenly along curve.
;;;  @ Dynamic: Copies along curve at specified distance (can be changed dynamically).
;;;  @ Measure: Copies along entire curve at defined distance.
;;;
;;; Revision History:
;;;
;;; v1.1 (03.28.10) 1. Added subroutines: _angle _cmr _Points _PLine
;;; 2. Added option to rotate object(s) along selected curve.
;;; 3. Added additional rotation option (after copying completed)
;;;    with values of 90? 180? 270?
;;; 4. Added option to pick points for curve instead of selecting object.
;;;
;;; ------------------------------------------------------------------------

 

CopyAlongCurve.zip

0.00MB