CAD二次开发技术 命令符集合.docx

1、CAD二次开发技术 命令符集合;算术运算函数(max 20.0 30.0 0.0)(sqrt 16)(expt 3 3);三角函数(sin (/ pi 6);取整函数(fix (/ pi 2);赋值函数(setq aa (/ pi 2) ;quote应用 (setq aa(quote (- 2 1) ) (setq aa (- 2 1) );自定义函数defun(defun dtr () (setq a 40) (setq b 40) )(defun sqrab (a b ) (setq c (+ (* a a)(* b b) (sqrt c);定义一个把度转换成弧度的函数 (defun dt

2、r (a) (* a (/ pi 180.0) );求45度的正弦值 (defun qsin () (sin (dtr 45) ) ;提取点(20.0 30.0 0.0)的X、Y、Z坐标(setq aa (list 20.0 30.0 0.0)(car aa)(cdr aa)(cadr aa)(caddr aa);提取表中第n个元素： (setq bb (大 家 好)(nth 0 bb)(nth 1 bb)(nth 2 bb);用append构造表 (setq aa (list 20.0 30.0 0.0)(setq bb (list aa AA)(setq ee (append aa bb)

3、;用cons构造坐标(setq aa (list 20.0 30.0 0.0)(setq bb (list 500.0 600.0 0.0)(command line aa bb )(setq cc (cons 300.0 (cdr bb)(command line aa cc );用cons构造点对(setq aa (cons a aaa);reverse 应用(setq aa (list 30.0 20.0 10.0)(setq bb (REVERSE aa);assoc 应用(setq aa (list (a . rest) (pt 30.0 20.0 10.0) (O 90)(setq

4、 bb (assoc O aa)(setq cc (assoc pt aa);subst 应用 (setq aa (list (a . rest) (pt 30.0 20.0 10.0) (O 90) (setq bb (assoc O aa) (setq cc (subst (pt 80.0 60.0 40.0) (pt 30.0 20.0 10.0) aa);foreach应用 (foreach cir (3 2 1) (4 4.5 0.5) (7 5 2) (setq Ce (list (car cir) (cadr cir) (setq r (caddr cir) (command c

5、ircle Ce r) );mapcar应用 (mapcar abs (-2 -4 4.5 -0.5) );最高成绩 (setq xlcjb (小李 92 85 80 ) (setq xzcjb (小张 81 90 88 ) (setq xwcjb (小王 90 85 90 ) (setq xl (nth 0 xlcjb) xlyw (nth 0 xlcjb) xlsx (nth 0 xlcjb) xlwy (nth 0 xlcjb) (setq ywjgcj (max xlyw xzyw xwyw);语文最高成绩 (setq sxjgcj (max xlsx xzsx xwsx);数学最高成

6、绩 (setq wyjgcj (max xlwy xzwy xwwy);外语最高成绩;eval应用 (setq a 12) (setq b a) (eval b) (setq a (abs -22) (setq b a) (eval b);get类函数应用(defun dcir () (setq pc (getpointn圆心位置：) (setq r (getreal n圆半径：) (command circle pc r)(defun xjgz () (setq pc (getpointn写字位置：) (setq r (getstring n写的内容：) (command text pc 3

7、0 0 r);开心每一天！ 技术条件;polar函数应用(defun hjx (); (setq pt (getpointn起点位置：) (setq l (getreal n矩形长：) (setq h (getreal n矩形高：) (setq pt1 (polar pt 0 l) (setq pt2 (polar pt1 (/ pi 2) h) (setq pt3 (polar pt2 pi l) (command line pt pt1 pt2 pt3 pt );getpoint,angle,distance,polar,command函数综合运用(defun hjx1 () (setq

8、pt (getpointn起点位置：) (setq ptt (getpointn绘制方向： pt) (command line pt ptt ) (setq jxang (angle pt ptt) (setq jxdis (distance pt ptt) (setq pt1 (polar pt (+ jxang 0) (/ jxdis 2) (setq pt1 (polar pt1 (+ jxang (/ pi 2) 50) (setq pt2 (polar pt1 (+ jxang (/ pi 2) 80) (setq pt3 (polar pt1 (+ jxang (/ pi 4) 6

9、0) (setq pt4 (polar pt1 (+ jxang (* 3(/ pi 4) 60) (command circle pt1 50) (command circle pt2 30) (command circle pt3 10) (command circle pt4 10)(defun hjx11 () (command erase all ) (setq pt (getpointn起点位置：) (setq ptt (getpointn绘制方向： pt) (command line pt ptt )(setq ss2 (ssget L) (setq jxang (angle p

10、t ptt) (setq jxdis (distance pt ptt) (setq pt11 (polar pt (+ jxang 0) (/ jxdis 2.0) (setq pt1 (polar pt11 (+ jxang (/ pi 2.0) 50.0) (setq pt2 (polar pt1 (+ jxang (/ pi 2.0) 80.0) (setq pt3 (polar pt1 (+ jxang (/ pi 4.0) 61.0) (setq pt4 (polar pt1 (+ jxang (* 3.0(/ pi 4.0) 61.0) (command circle pt1 5

11、0)(setq ss1 (ssget L) (command circle pt2 30)(setq ss1(ssadd (entlast) ss1) (command circle pt3 10)(setq ss1(ssadd (entlast) ss1) (command circle pt4 10)(setq ss1(ssadd (entlast) ss1) (command erase ss2 ) (setq r (getreal n动吗？) (setq i 0) (while ( i 9) (command rotate ss1 pt11 5) (setq j 0)(while (

12、j 20000) (setq j (+ j 1) (setq i (+ i 1) ) (setq i 0) (while ( i 18) (command rotate ss1 pt11 -5) (setq j 0)(while ( j 20000) (setq j (+ j 1) (setq i (+ i 1) ) (setq i 0) (while ( i 18) (command rotate ss1 pt11 5) (setq j 0)(while ( j 20000) (setq j (+ j 1) (setq i (+ i 1) ) (setq i 0) (while ( i 9)

13、 (command rotate ss1 pt11 -5) (setq j 0)(while ( j 20000) (setq j (+ j 1) (setq i (+ i 1) ) (setq r (getreal n);command函数应用(defun dcir () (command circle) (setq pc (getpointn圆心位置：) (command pc) (setq r (getdist n圆半径： pc) (command r);itoa、atoi、atof函数应用 (setq aa (itoa 12) (setq aa (atoi 12.3) (setq aa

14、 (atof 12.3);rtos 函数应用 (setq aa (rtos 3456.7890 2 4) (setq aa (atoi 12.3) (setq aa (atof 12.3);strcat 函数应用 (setq aa (sin (* 30 (/ pi 180) (setq bb (rtos aa 2 3) (setq cc (strcat sin30= bb) (setq pc (getpointn写字位置：) (setq dd (command text pc 10 0 cc) (setq zz (substr cc 4 4);if 函数应用 (if (= 3 1) 正确 错误

15、) (setq pt (getpointn算式书写位置：) (command text pt 10 0 计算：20 X 20 =) (setq aa (getreal n请输入计算结果：) ) (setq bb (rtos aa 2 1) (if (= aa 400) (progn (setq pt1 (polar pt 0 120 ) (command text pt1 10 0 bb) (setq pt1 (polar pt (/ pi -2) 40 ) (command text pt1 10 0 计算正确) ) (progn (setq pt1 (polar pt 0 120 ) (c

16、ommand text pt1 10 0 bb) (setq pt1 (polar pt (/ pi -2) 40 ) (command text pt1 10 0 计算错误) ) ) (setq r (getreal n) ;cond 函数应用 (setq a 4) (cond (= a 1)(princ A=1) (= a 2)(princ A=2) (= a 3)(princ A=3) (= a 4)(princ A=4) (= a 5)(princ A=5) ) (print);while 函数应用 (setq n 1) (while ( n 11) (princ (* n n)(pr

17、inc ) (setq n (1+ n) ) (print) (setq pt (200 150) (setq n 1) (while ( n 5) (command circle pt 50) (setq pt (subst (+ (car pt) 120) (car pt) pt) (setq n (1+ n) ) (setq pt (200 150) (setq n 1) (repeat 6 (command circle pt 50) (setq pt (subst (+ (car pt) 120) (car pt) pt) );搜索文件的路径函数(findfile mylx.lsp)

18、(setq aa (sin (* 30 (/ pi 180) (setq bb (rtos aa 2 3) (setq cc (strcat sin30= bb) (setq pc (getpointn写字位置：) (setq dd (command text pc 10 0 cc)(setq ffm (open D:/韩文挡/AutoLISP程序设计/mydata.dat w) (write-line cc ffm) (close ffm);选择集操作数 (setq pt (10.0 10.0) (while (/= pt nil) (setq pt (getpoint n起点：) (set

19、q pt1 (polar pt (/ pi 2) 100) (setq pt2 (polar pt1 (* 5 (/ pi 3) 65) (setq pt3 (polar pt1 (* 4 (/ pi 3) 65) (command pline pt pt1 pt3 pt1 pt2 ) (setq ss (ssget L) (command array ss p pt 5 ) (command copy ss pt (200 200) )(setq r (getreal n) (setq pt (getpoint n起点：) (setq pt1 (polar pt (* 5 (/ pi 4)

20、50) (setq pt2 (polar pt (/ pi 4) 50) (command CIRCLE pt 15) (setq ss2 (ssget L) (command rectang pt1 pt2) (ssadd (entlast) ss2 ) (setq pt3 (polar pt (/ pi 4) 200) (setq pt4 (polar pt3 pi 300) (command line pt3 pt4 ) (command mirror ss2 pt3 pt4 ) (setq ss1 (ssget x (0 . CIRCLE) (setq pt1 (getpoint n移

21、动起点：) (setq pt2 (getpoint n移动终点： pt1) (command move ss1 pt1 pt2) (setq ss1 (ssget w ) (setq pt1 (getpoint n移动起点：) (setq pt2 (getpoint n移动终点： pt1) (command move ss1 pt1 pt2) (command copy ss1 pt2 pt1);生成新体体 (entmake (list (cons 0 line)(10 100.0 100.0 0.0)(11 100.0 200.0 0.0);综合举例 ;1.求两二阶矩阵的乘积 ; ; _ _

22、 _ _ ; | 1.0 2.0 | | 4.0 3.0 | ; | | X | | ; |_3.0 4.0_| |_2.0 1.0_| ; (defun qjzj () (setq ah1 (1.0 2.0) (setq ah2 (3.0 4.0) (setq bl1 (4.0 2.0) (setq bl2 (3.0 1.0) (setq c11 (+ (* (nth 0 ah1)(nth 0 bl1) (* (nth 1 ah1)(nth 1 bl1) ) (setq c12 (+ (* (nth 0 ah1)(nth 0 bl2) (* (nth 1 ah1)(nth 1 bl2) )

23、(setq c21 (+ (* (nth 0 ah2)(nth 0 bl1) (* (nth 1 ah2)(nth 1 bl1) ) (setq c22 (+ (* (nth 0 ah2)(nth 0 bl2) (* (nth 1 ah2)(nth 1 bl2) ) (princ n 所求计算结果为：) (princ n _ _) (princ _ _)(princ _ _) (princ n | 1 2 |)(princ | 1 2 |)(princ | )(princ c11)(princ )(princ c12 )(princ |) (princ n | |)(princ X | |)(

24、princ = | |) (princ n |_3 4_|)(princ |_3 4_|)(princ |_)(princ c21)(princ )(princ c22 )(princ _|) (print) (print);1.绘制一起点在(100 100)点、边长为5的正方形 ;(defun hzfx () (setq pt1 (100.0 100.0) (setq pt2 (list (+ 5.0 (car pt1) (cadr pt1) (setq pt3 (list (car pt1) (+ 5.0(cadr pt1) (setq pt4 (list (+ 5.0 (car pt1)

25、 (+ 5.0(cadr pt1) (command line pt1 pt2 pt4 pt3 pt1 ) (defun drawjc1 () (setq pt1 (getpoint n孔中心点) (setq kd (getreal n孔径) (setq jb (getreal n键槽宽) (setq jt (getreal n键槽深) (command layer m 1 c red l center ) (setq pt2 (polar pt1 0 (+ (* kd 0.5) 5) (setq pt3 (polar pt1 pi (+ (* kd 0.5) 5) (setq pt4 (po

26、lar pt1 (/ pi 2) (+ (- jt (* kd 0.5) 5) (setq pt5 (polar pt1 (/ pi -2) (+ (* kd 0.5) 5) (setq x (sqrt(- (* (/ kd 2) (/ kd 2)(* (/ jb 2)(/ jb 2) (setq pt6 (polar pt1 (/ pi 2) x) (setq pt7 (polar pt6 0 (/ jb 2) (setq pt8 (polar pt6 pi (/ jb 2) (setq pt9 (polar pt1 (/ pi 2) (- jt (/ kd 2) (setq pt10 (p

27、olar pt9 0 (/ jb 2) (setq pt11 (polar pt9 pi (/ jb 2) (command layer s 1 line pt2 pt3 line pt4 pt5 layer s 0 line pt7 pt10 pt11 pt8 arc pt8 C pt1 pt7 )(defun drawjc2 () (setq kd nil jb nil jt nil liuliang 1) ;设置图层 (command layer m draw c white ) (command layer m center c red l center ) ;打开对话框 (setq index_value (load_dialog D:/韩文挡/AutoLISP程序设计/drawjc.dcl) (if (not (new_dialog drawjc index_value) (exit) ) (fy image_jsk D:/韩文挡/AutoLISP程序设计/ls.sld ) (set_tile edit_kd 100) (set_tile edit_jb 28) (set_tile edit_jt 110) (action_ti