CAD设计论坛

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

[求助] autolisp 问题求解!!

[复制链接]
发表于 2012-3-29 19:00 | 显示全部楼层 |阅读模式
1) 设置绘图极限、图线比例等:2 }6 E4 V2 P" E
  如:(setq ptll(getpoint “ptll=”))
. j% I* K& x9 H. q9 ]9 O4 p7 K0 u      (setq ptlr(getpoint “ptlr=”))# S7 a2 \9 M* h; h2 j5 r1 |
(command “limits” ptll ptlr)
" J/ I7 J' H% o(commad “zoom” “all”): h! i1 Y$ Q9 w! b8 k& e: a9 F
(commad “ltscale” 8)
! m$ K6 c: o1 M8 e/ O/ S2)建层:
2 ^0 x' F2 b8 D; B  K如:(commad “layer” “new” 1 “c” “red” 1 “1” “center” 1 “”)
% i! U& D8 D" o3)交互输入参数
. c  n, E+ G* i  B* H4 n8 i- Z# q0 X如:(setq 吧(getreal “b=”))" e: @& ~  X3 S. T9 z2 x3 O# F) Y
(setq dn(getreal “dn=”))
8 `. K/ A# `. m5 o0 P7 w, l4 i4)计算坐标点8 x: ]1 S+ ]: E' r) T4 \  V4 s8 d8 M
如:(setq p00(polar p0 0 b))
* o3 ]" w8 O; F1 @(setq p1(polar p0 (*pi(/90 180.0)) (/ dn 2.0)))) h  ^) P: J2 @! s
5)绘制中心线0 w2 @9 g! t: M! j- W3 s
可考虑中性线线型。 如:4 Z7 z: t9 W) a( B
(commad “layer” “set” 1 “”)
, I- }* |1 ?! g+ H* P* A5 d* m4 T" D(command “line” p01 p02 “”)0 t) K2 ^: p! \% x7 ?
6)绘制中心线以上(下)图形" [5 ~* T2 I" T9 I7 `: {
可调用 pline 、line 、circle等绘图命令。, B3 k: d. Y: N
7)镜像出整个图形
) Y  ]$ c9 b+ B; _7 j  F: [用镜像命令, 如:(command “mirror” “w” p8 p00 “” p01 p02 “n”): Z0 v: d/ X; q7 S
8)画剖面线
# z2 r( D- z' S1 [& O可用 hatch 命令,如: (command “hatch” “ansi31” 2 0 “w” p4 p2 “”)( v  y% h& |; [7 u- A0 f. J
9)标注尺寸
' [8 d. u( x' N* t% v  S' w% y可调用各种尺寸标注命令, 如:& u8 n1 D0 z1 w- U5 ^
(setq dist1 (polar p0 pi 10))
$ j* I  N& b: V& [% k2 b# G(setq text (strcat “%%c” (rtos dn)))
: Q  Y: |2 t' _' e(command “dim” “ver” p1 p9 dist1 text)+ `2 u2 X2 X+ C" B
(comand “exit”)
, a$ Q' S  B4 ~1 r" m% z6 e0 @        以上是给出的部分编程命令。(打的可能会有错误大神们分析下)        要求  整理程序!!     能做出如“上图”的 图    !!# o+ h' e, {3 |# ]$ u
      求助各位了 !!   谢谢

本帖子中包含更多资源

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

x
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

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

GMT+8, 2025-2-19 06:05

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

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

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