[原创]圆内加五角星lsp代码,详细有注解

ttmc

(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)
  (setq oce (getvar "cmdecho"))      ;命令行回显状态
! t* C0 g/ S: s/ A  (setvar "cmdecho" 0)               ;命令行不回显
  (setq os (getvar "osmode"))        ;捕捉方式
  (setvar "osmode" 0)                ; 取消捕捉,如果不取消,图形会显示不正确
) x: t1 k$ E6 k% q3 E  D0 k3 R  (setq angb (getvar  "angbase" ))   ;取角度起始方向
/ y! @( R- j$ ]& I  (setq angd (getvar  "angdir" ))    ;取角度旋转方向
% ~: |, m9 y4 Q" b& e, N  (setvar "angbase" 0.0)             ;x轴(东)为0
  (setvar "angdir" 0)                ;逆时针为正
1 W4 U$ f2 v7 l# p  (setq en (entsel "\n选取内部生成五角星的圆:"))
' K9 J( [& R: \/ A) G  (setq I 0)                         ;记数器
  (while en
$ M% Z5 w( ]! f& e- r, r    (setq en_data (entget (car en)))             ;选对象
. B3 G/ h+ W: N! R* g    (setq en_type (cdr (assoc 0 en_data)))       ;群码0为参数类别
! [* I7 @, C  a2 N6 K2 J" k6 X. h3 Z    (if (= en_type "CIRCLE")                     ;如为圆
        (progn
   (setq cenpt (cdr (assoc 10 en_data)))   ;取得中心点
   (setq rad (cdr (assoc 40 en_data)))     ;取得半径
( G) d! }) s& K4 e: f5 G& h% A          (setq o1 (polar cenpt (/ pi 2) rad))    ;外部五个点
   (setq o2 (polar cenpt (/ (* 18 pi) 180) rad))
   (setq o3 (polar cenpt (/ (* -54 pi) 180) rad))
   (setq o4 (polar cenpt (/ (* -126 pi) 180) rad))
   (setq o5 (polar cenpt (/ (* 162 pi) 180) rad))
: t7 Q% @1 [$ `   
   
3 ~2 N4 V: D" T6 Z; @+ v   (setq rad1 (* rad (- (sin (/ (* 54 pi) 180))    ;内部五个点距离圆心距离为rad1
- b3 m9 K2 X8 G2 G          (* (cos (/ (* 54 pi) 180))
      (/ (sin (/ (* 36 pi) 180))   ;这行及下行只是求36度正切值
- a8 r5 O* O6 C7 r: a& e0 D         (cos (/ (* 36 pi) 180))
      )
    )
: S* A/ z3 T9 l9 R- r     
  e$ j# b1 [  v; D/ C' W$ e& F  c       )
8 Z$ F1 F& Y6 h  t, ~# U8 b+ U        )
  t& b* O+ R7 ?+ K: ^' w   )                                        ;rad赋值完毕
* L7 |5 h9 f& \4 Y   (setq i1 (polar cenpt (/ (* 54 pi) 180) rad1))        ;内部五个点
( R2 L2 f7 D& d6 U2 J4 Z   (setq i2 (polar cenpt (/ (* -18 pi) 180) rad1))
   (setq i3 (polar cenpt (/  pi -2) rad1))
   (setq i4 (polar cenpt (/ (* -162 pi) 180) rad1))
' a7 z5 R8 v% ~; @   (setq i5 (polar cenpt (/ (* 126 pi) 180) rad1))
, {1 E! I& O/ e. r, E   ;五角形外形,用pline使之成为整体
   (command "pline" o1 "w" 0 0 i1 o2 i2 o3 i3 o4 i4 o5 i5  "c")  
   (command "line" o1 i3 "")             ;五角内部五条直线
: C  V/ H7 g8 W5 ]5 K& B   (command "line" o2 i4 "" )
   (command "line" o3 i5 "")
2 ~7 D9 ?5 Z6 b: v- @   (command "line" o4 i1 "")
   (command "line" o5 i2 "")
   (setq I (1+ I))                      ;每完成一个,记数器加1
         )
0 u/ d* F3 _0 Q0 k- L         (alert "该对象并不是圆,请重新选取圆")  ;非圆时提醒
) a  E/ G5 D2 z7 t4 K     )                              ;end if
0 N$ B5 J+ F6 g+ f     (setq en (entsel "\n 选取下一个内部生成五角星的圆:"))  ;重新选取
" j8 }5 m# V) h  w' |& c4 H            
( g, g3 y, ~  X  D+ D; x2 h      
   )
   (princ (strcat "\n共绘制了"(itoa i) "个圆内接五角星"))
  R' o) Q) z' ^( _8 Z5 |0 R5 B8 B  (setvar "osmode" os)         ;回原捕捉模式
; h3 s$ E3 w( Y1 Y5 F2 L  (setvar "cmdecho" oce)       ;回命令行回显示状态
; b$ q7 H" d% `; p! \) m  (setvar "angbase" angb)     ;返回角度初始
5 c( n" ^; Y3 G- T( R* O  (setvar "angdir" angd)        ;返回角度旋转方向
( w* X! }  h* f/ H9 U  (princ)
)
(prompt "\n<<5js>>连续多个圆内接五角星,by孟宪林:[email protected]")
(prin1)

zhurui168

不错，帮你顶下。

ttmc

非常感谢版主,没想到会得到你的奖励和回复,而且很快.我学lisp时间不长,几个月吧.以前发表过一点小程序,但回复得人很少.这是我昨天一晚上的结果,我的这段代码之所以加了很详细的注释,是因为我以前看过的程序,注解很少,看起来很费力气.所以我选择了详细的注解,为了后来的兄弟看起来方便些.真希望新手高手都能关注我的代码,最好能提些意见,优化一下.这样既是对我的鼓励,又是帮助.
5 G" I4 N+ Q% r    昨天写这段代码(不敢叫做程序,还太简单)时,没有关闭捕捉,运行时一会儿正常,一会儿不正常.搞了很长时间,才知道是捕捉方式引起的,开始还以为我的autocad出错了呢(因为我用MDT调试时没有问题,嘿嘿,刚打开MDT当然还没有选捕捉),找到原因后我兴奋得睡不着觉,前些天没解决的也是这个问题.我想新手可能都会遇到这个问题.
# [% K! K* _6 |, C& b# m3 X5 k
! W2 s7 p) M, v3 A3 d[ 本帖最后由 ttmc 于 2006-11-10 09:42 编辑 ]

543210

面对这些字符，我有点头大，都是命令行里的吗？是步骤吧

zhurui168

再帮你顶下，顺便把命令写上：5js

richardmiss

从事cad工作几年了，从没想过要用lsp....记得收集里有句台词。。。。“还不是怕麻烦嘛！“

gqd_1025

顶一下。
6 t0 T: T/ k" Z5 e: t好样的

wzj

厉害
% }0 J  Y0 W  f8 {) i% r顶一下
在学校也学这个的，不过工作以后就不用啦
1 W! m% Z" n9 N: [ 太麻烦！

okeshark

顶楼主，好样的

hellmen

不错强人!!!

hurryboy

兴趣？工作？很好，我只会画，嘿嘿。

zlp1015

支持楼主发帖，我要学习

aaron85

顶一下。
: |" H9 A/ r% i: O& L# d; a+ {好样的

zlp1015

我要学习

ak2008

谢谢分享，努力学习中