(defun c:5js(/ oce os angb angd en I en_data en_type cenpt rad o1 o2 o3 o4 o5 i1 i2 i3 i4 i5 rad1)- D9 C( q# e- ^& n; h??B: w

(setq oce (getvar "cmdecho"))? ?? ?;命令行回顯狀態

/ O8 W+ p$ k5 g: W! `1 K, j??(setvar "cmdecho" 0)? ?? ?? ?? ?? ?;命令行不回顯

. c# x: L- H4 q* `% J1 T0 V' k4 S! R??(setq os (getvar "osmode"))? ?? ???;捕捉方式

p* a2 E/ i/ n, t5 T) w??(setvar "osmode" 0)? ?? ?? ?? ?? ? ; 取消捕捉,如果不取消,圖形會顯示不正確

) M2 j??a' P- `& F% C$ ?# R' J0 W??(setq angb (getvar??"angbase" ))? ?;取角度起始方向& H0 s) p) ~- X6 M??|: r& f) i

(setq angd (getvar??"angdir" ))? ? ;取角度旋轉方向: r3 x3 t$ ]4 p' \' P7 d

(setvar "angbase" 0.0)? ?? ?? ?? ? ;x軸(東)為0" F9 x) {& x. E( P( B

(setvar "angdir" 0)? ?? ?? ?? ?? ? ;逆時針為正; G) i$ Z3 a; \( F. [8 G

(setq en (entsel "\n選取內部生成五角星的圓:"))

% o1 S" u$ W0 b8 L0 e??(setq I 0)? ?? ?? ?? ?? ?? ?? ?? ? ;記數器

$ }% a2 _( X- k??(while en

4 {& q??J7 G& j" d0 p, T? ? (setq en_data (entget (car en)))? ?? ?? ?? ? ;選對象

8 J1 S! `) }1 a: x% `3 j5 ?6 j4 v, y? ? (setq en_type (cdr (assoc 0 en_data)))? ?? ? ;群碼0為參數類別5 [; ^& r$ o9 \4 Z% I

(if (= en_type "CIRCLE")? ?? ?? ?? ?? ?? ?? ?;如為圓5 s% m, E6 H) t0 |??b

(progn6 `- R. ^# e( A1 J3 R/ F/ b

(setq cenpt (cdr (assoc 10 en_data)))? ?;取得中心點

7 ~! S! e- ~- J2 p3 O8 }/ g: X? ?(setq rad (cdr (assoc 40 en_data)))? ???;取得半徑

+ P2 p& e0 g* y# q7 _, t? ?? ?? ? (setq o1 (polar cenpt (/ pi 2) rad))? ? ;外部五個點

/ h- o5 B3 {0 O2 I? ?(setq o2 (polar cenpt (/ (* 18 pi) 180) rad))4 g: J, \; l7 K9 m# V4 Q% h

(setq o3 (polar cenpt (/ (* -54 pi) 180) rad))

4 m4 x0 ?2 i' E4 i0 g? ?(setq o4 (polar cenpt (/ (* -126 pi) 180) rad))

- U+ Y! `1 S8 Q- U+ B1 ^- |? ?(setq o5 (polar cenpt (/ (* 162 pi) 180) rad))U1 y??f3 p' x2 |

) G; I$ ~; Z* X( s1 T' H? ?# r, O( I, Q( U??r+ }& L

(setq rad1 (* rad (- (sin (/ (* 54 pi) 180))? ? ;內部五個點距離圓心距離為rad1

' [/ V; t2 Y9 H; x' b? ?? ?? ? (* (cos (/ (* 54 pi) 180))1 i- d7 H, c& S% H9 a: o& K/ h- N

(/ (sin (/ (* 36 pi) 180))? ?;這行及下行只是求36度正切值' I- O9 t, l% u" l: ?. v; {9 H& N

(cos (/ (* 36 pi) 180))2 `5 D* B* B4 t" g6 Y) [

)

' i* S" G; u* I4 K1 U? ? )+ S) I5 \- {??D. f1 ]( V0 P7 J

7 H" v* X" C$ J' W% \" b# s

)+ U" q) v& F- H* |

)

. \& Y7 X; `6 J" V7 P? ?)? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?? ? ;rad賦值完畢9 D4 H3 H/ ?8 Z4 v: C# e( j

(setq i1 (polar cenpt (/ (* 54 pi) 180) rad1))? ?? ???;內部五個點

; g0 b, P- Z! J' Y( g5 `) t8 a? ?(setq i2 (polar cenpt (/ (* -18 pi) 180) rad1))- f5 F) A, Q- j, S' v/ j; W: F# O) E+ {

(setq i3 (polar cenpt (/??pi -2) rad1))

5 U; p6 h5 e6 e/ B1 Z? ?(setq i4 (polar cenpt (/ (* -162 pi) 180) rad1))

1 ???X??\, {6 S0 G8 i; ~$ e? ?(setq i5 (polar cenpt (/ (* 126 pi) 180) rad1)). z4 Y) n1 i) P; X0 v* a# F

;五角形外形,用pline使之成為整體3 H* h2 E$ ]1 d, n??A) N, P

(command "pline" o1 "w" 0 0 i1 o2 i2 o3 i3 o4 i4 o5 i5??"c")

6 j- Q4 ~- N& S! k? ?(command "line" o1 i3 "")? ?? ?? ?? ? ;五角內部五條直線

7 Z. K1 U/ J% H) T8 {? ?(command "line" o2 i4 "" )' r7 G! j3 w* W; ^

(command "line" o3 i5 "")+ I5 P# l' @. [( o/ b??H% F* x8 P$ r

(command "line" o4 i1 "")+ C1 b; L" D9 h9 K( W% r

(command "line" o5 i2 "")

, D7 ~& F% j/ }- y1 Y1 u4 R? ?(setq I (1+ I))? ?? ?? ?? ?? ?? ?? ? ;每完成一個,記數器加1+ N' y' N/ |: E

)! P: f6 s8 U4 A

(alert "該對象并不是圓,請重新選取圓")??;非圓時提醒& R3 N. A# h+ x( G5 P1 K' S

)? ?? ?? ?? ?? ?? ?? ?? ?? ?? ?;end if

! w" b??}0 L# o9 \! y? ???(setq en (entsel "\n 選取下一個內部生成五角星的圓:"))??;重新選取

( ^1 U$ w& @6 \' Q4 i$ P" q3 L? ?? ?? ?? ?# O7 x2 e8 `# `4 w9 L0 N! a. Y- K. x

/ t+ h* B2 \7 V$ R: k; a

): C- l$ _$ @; \+ n/ Z7 B5 k

(princ (strcat "\n共繪制了"(itoa i) "個圓內接五角星"))9 {5 w" u1 c2 K: l- B7 Z0 x2 S) U

(setvar "osmode" os)? ?? ?? ?;回原捕捉模式2 j3 A??]- \! B

(setvar "cmdecho" oce)? ?? ? ;回命令行回顯示狀態- w- W& [4 j/ m+ \: r5 [9 f

(setvar "angbase" angb)? ???;返回角度初始1 P- p3 }8 b7 o1 J+ I

(setvar "angdir" angd)? ?? ???;返回角度旋轉方向% o+ G9 w% _??[

(princ)

$ {- z( o, ~6 s3 ~)

; n1 D* P. w2 }4 j8 Z(prompt "\n<<5js>>連續多個圓內接五角星,by孟憲林:tjmxl@163.com")

_2 ?4 e& u- c" B' B% N/ w(prin1)

總結

以上是生活随笔為你收集整理的lisp 绘制立体感的五角星_[原创]圆内加五角星lsp代码,详细有注解的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。