CAD设计论坛

 找回密码
 立即注册
论坛新手常用操作帮助系统等待验证的用户请看获取社区币方法的说明新注册会员必读(必修)
查看: 15208|回复: 28

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

[复制链接]
发表于 2006-11-10 09:07 | 显示全部楼层 |阅读模式
(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)+ u  W; K- T/ c
  (setq oce (getvar "cmdecho"))      ;命令行回显状态- q: c( E5 U  H1 w/ I4 Q* G
  (setvar "cmdecho" 0)               ;命令行不回显
- r3 |+ ?$ O" r/ f, }  (setq os (getvar "osmode"))        ;捕捉方式8 [1 w/ X- C8 \, u
  (setvar "osmode" 0)                ; 取消捕捉,如果不取消,图形会显示不正确
; R" U0 ]3 w) e7 F  (setq angb (getvar  "angbase" ))   ;取角度起始方向
$ P( I4 l8 I# x3 n7 f3 @& c6 E  (setq angd (getvar  "angdir" ))    ;取角度旋转方向( M0 X% J3 p% e9 ?3 o1 m
  (setvar "angbase" 0.0)             ;x轴(东)为0
) y/ c6 ]% m* m0 Y& B  (setvar "angdir" 0)                ;逆时针为正" C% l9 `: ^5 C: L* t* L5 s0 l
  (setq en (entsel "\n选取内部生成五角星的圆:"))
, K: e* w/ s; v. j- p  (setq I 0)                         ;记数器& R: f8 b! W, Y, {
  (while en& p8 P  [' B5 f5 W
    (setq en_data (entget (car en)))             ;选对象( y' k  r4 Q6 N
    (setq en_type (cdr (assoc 0 en_data)))       ;群码0为参数类别
- D" B$ ~  w7 e/ f    (if (= en_type "CIRCLE")                     ;如为圆
/ W1 N1 H3 V" O2 _- a        (progn
' F& y( a6 _) X. X$ q8 `   (setq cenpt (cdr (assoc 10 en_data)))   ;取得中心点3 A- [7 t- s3 m
   (setq rad (cdr (assoc 40 en_data)))     ;取得半径
+ }8 D8 {! b; v* v/ C' Z* N  b          (setq o1 (polar cenpt (/ pi 2) rad))    ;外部五个点
7 N  A$ J0 y; S3 L" V1 V   (setq o2 (polar cenpt (/ (* 18 pi) 180) rad))
, Q' t; l; j6 r$ B1 V   (setq o3 (polar cenpt (/ (* -54 pi) 180) rad))$ R& D' q& Q3 D  ^0 E. c! ]* v' q5 z
   (setq o4 (polar cenpt (/ (* -126 pi) 180) rad))
- g2 D$ c; [' u1 L7 w  _2 ]7 ]- N' Q   (setq o5 (polar cenpt (/ (* 162 pi) 180) rad))8 t" T) z6 A! x- H: v6 I. E+ _0 B8 z
   
" w( ]9 ?, C3 r; E  R3 x5 o6 Q! u   ) Z# }5 z. A% h! f% x
   (setq rad1 (* rad (- (sin (/ (* 54 pi) 180))    ;内部五个点距离圆心距离为rad1
5 H% y+ q) V; e) `. J/ \/ K          (* (cos (/ (* 54 pi) 180))' ^' V, W: I! r6 {* S
      (/ (sin (/ (* 36 pi) 180))   ;这行及下行只是求36度正切值
8 h1 d& l0 R4 e7 O  s# S# B3 W         (cos (/ (* 36 pi) 180))) A( F: k+ M) d& j$ p* L, b
      )
% M& j7 ^: e! Z. q- a2 u    )3 T' n5 \- d" m! L, C+ k
     7 O5 |- s- ]" [: b* _
       )
* a, w6 Z7 E# X8 P, G0 _$ n( V        )
/ H6 \. ~$ Z& j   )                                        ;rad赋值完毕
5 y: \- H0 z/ E0 t3 L; @   (setq i1 (polar cenpt (/ (* 54 pi) 180) rad1))        ;内部五个点
$ R/ {3 {4 X/ A1 p/ h/ \4 d   (setq i2 (polar cenpt (/ (* -18 pi) 180) rad1))
% T0 r$ G! d/ w. B   (setq i3 (polar cenpt (/  pi -2) rad1))2 b1 k; {# r# |4 Z
   (setq i4 (polar cenpt (/ (* -162 pi) 180) rad1))& U/ h: v. j* v
   (setq i5 (polar cenpt (/ (* 126 pi) 180) rad1)), b# F/ [' ]; H6 |/ k+ r* V
   ;五角形外形,用pline使之成为整体
( |. N$ V- p: q7 Z* b' ?   (command "pline" o1 "w" 0 0 i1 o2 i2 o3 i3 o4 i4 o5 i5  "c")  
' q' Z7 g0 e! n" W   (command "line" o1 i3 "")             ;五角内部五条直线
$ J0 G! F, S/ M  s9 f   (command "line" o2 i4 "" )
+ j7 n( \. J5 ^; J: \- ~   (command "line" o3 i5 ""): a, d+ H' p2 e% ~3 u$ [
   (command "line" o4 i1 "")5 q. C$ d/ [; E" Z! C0 E9 z
   (command "line" o5 i2 "")
' O6 F. R- k0 f7 @   (setq I (1+ I))                      ;每完成一个,记数器加1- @) K% d1 N& d2 P( u
         )8 M6 [% o1 q4 k
         (alert "该对象并不是圆,请重新选取圆")  ;非圆时提醒" m! p% u7 C# ]  b( s% N
     )                              ;end if9 ^3 j7 E4 z$ o( {
     (setq en (entsel "\n 选取下一个内部生成五角星的圆:"))  ;重新选取
% j% Q) v. q+ t3 b1 Z2 x0 q            6 H6 [; S! k0 G+ v5 n% B- K# k0 B
      ! }3 k# V! @" I9 d: R
   )' D% h) T4 b( V( k
   (princ (strcat "\n共绘制了"(itoa i) "个圆内接五角星"))
; ^  A* ^3 O4 J  Q! m  (setvar "osmode" os)         ;回原捕捉模式! l7 _" E! d& S7 S! b. ?( c0 Y& q/ |
  (setvar "cmdecho" oce)       ;回命令行回显示状态
! G# K; V; \" s. C4 [9 N1 ^  (setvar "angbase" angb)     ;返回角度初始
5 N6 M/ x9 d; `: @! E  (setvar "angdir" angd)        ;返回角度旋转方向
( o7 u+ c" b/ H. s" Z5 r3 S  (princ)( u. u3 s, l3 k  n$ i
), k% D/ s+ v2 M3 {
(prompt "\n<<5js>>连续多个圆内接五角星,by孟宪林:[email protected]")
6 ^" C& N  B% z: b  v(prin1)

本帖子中包含更多资源

您需要 登录 才可以下载或查看,没有账号?立即注册

x

评分

1

查看全部评分

发表于 2006-11-10 09:16 | 显示全部楼层
不错,帮你顶下。
 楼主| 发表于 2006-11-10 09:35 | 显示全部楼层
非常感谢版主,没想到会得到你的奖励和回复,而且很快.我学lisp时间不长,几个月吧.以前发表过一点小程序,但回复得人很少.这是我昨天一晚上的结果,我的这段代码之所以加了很详细的注释,是因为我以前看过的程序,注解很少,看起来很费力气.所以我选择了详细的注解,为了后来的兄弟看起来方便些.真希望新手高手都能关注我的代码,最好能提些意见,优化一下.这样既是对我的鼓励,又是帮助.
& S8 C  v3 k: w    昨天写这段代码(不敢叫做程序,还太简单)时,没有关闭捕捉,运行时一会儿正常,一会儿不正常.搞了很长时间,才知道是捕捉方式引起的,开始还以为我的autocad出错了呢(因为我用MDT调试时没有问题,嘿嘿,刚打开MDT当然还没有选捕捉),找到原因后我兴奋得睡不着觉,前些天没解决的也是这个问题.我想新手可能都会遇到这个问题.
( ]8 M2 W3 O* n, r: S2 k! B: A+ w5 _( U2 b3 t  ]; B# s
[ 本帖最后由 ttmc 于 2006-11-10 09:42 编辑 ]
发表于 2006-11-11 15:56 | 显示全部楼层
面对这些字符,我有点头大,都是命令行里的吗?是步骤吧
发表于 2006-11-11 16:50 | 显示全部楼层
再帮你顶下,顺便把命令写上:5js
发表于 2006-11-17 09:22 | 显示全部楼层

从事cad工作几年了,从没想过要用lsp....记得收集里有句台词。。。。“还不是怕麻烦嘛!“
发表于 2006-11-19 20:22 | 显示全部楼层
顶一下。
. r: \4 C/ x3 |$ E0 ]2 G8 S好样的
发表于 2006-11-22 11:28 | 显示全部楼层
厉害" C5 {' P* d6 l' z7 q& i
顶一下
% p8 H% ~( `$ {7 i  ~在学校也学这个的,不过工作以后就不用啦
/ e. d& m, A, x, [  u 太麻烦!
发表于 2006-11-25 22:47 | 显示全部楼层
顶楼主,好样的
发表于 2007-1-30 14:16 | 显示全部楼层
不错强人!!!
发表于 2007-8-16 11:17 | 显示全部楼层
兴趣?工作?很好,我只会画,嘿嘿。
发表于 2007-8-26 14:34 | 显示全部楼层
支持楼主发帖,我要学习
发表于 2007-8-28 14:31 | 显示全部楼层
顶一下。
* ]5 X! r1 Q3 ?7 |2 ^好样的
发表于 2007-9-1 15:56 | 显示全部楼层
我要学习
发表于 2008-2-26 09:37 | 显示全部楼层
谢谢分享,努力学习中
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

关于|免责|隐私|版权|广告|联系|手机版|CAD设计论坛

GMT+8, 2024-11-22 17:57

CAD设计论坛,为工程师增加动力。

© 2005-2024 askcad.com. All rights reserved.

快速回复 返回顶部 返回列表