AutoLISP AutoCAD, , . , . , . , .
:
1. ( 13).
2. :
(defun c:redcircle (/ center pt-on-circumference)
(terpri)
(setq center (getpoint Specify center of red circle:))
(terpri)
(setqpt-on-circumference (getpoint center Pick a point on the circumference:))
(command _circle center pt-on-circumference)
(command _chprop _last _color red )
)
13
3. , . redcircle.lsp (.txt, Notepad).
4. AutoCAD > > ( APPLOAD), / .
5. redcircle.lsp . : redcirle.lsp .
6. .
7. redcircle Enter.
8. : .
9. : , .
AutoCAD . ( 14).
14
.
defun c: redcircle (/ centerpt-on-circle AutoLISP , .
defun, c: . . , . pt--. .
terpri - , .
setqcenter (getpoint : - setq , . - . getpoint, . . , ; . .
setqpt-on-circumference (getpointcenter : - , pt-on-circumference . , , getpoint. , ; , AutoCAD .
|
|
_circle centerpt-on-circle - , AutoCAD. ; . . AutoCAD , , ( ). AutoLISP , , 2 .
"_chprop" "_last" "" "_color" "red" "" - CHPROP, . AutoLISP, , , . ; :. 2 . . . .
): .
.lsp , AutoCAD. ( REDCIRCLE) .
AutoLISP .
25 25 2017 .
:
1. .
2. :
3. .
4. , .
5. , .
6. .
7. , .
8. AutoCAD, LISP.
9. .
.
CAD / CAM ( / ) - , , .
:
- ;
- ;
- (, , . .);
- .
, .
|
|
. . -, . 2006 .
, TCS Group Holding PLC, 2013 . , .
: - -. , 1800 .
.
: , , , .
1. .. . . : , 2016. 72 .
2. .. . . : (), 2016. 156 .
3. .., .. - . .: , 2012. 192 .
4. .., .. . . . : , 2017. 88 .
5. .., .. . . . .: , 2017. 60 .
6. .. - . : - . . . . -, 2013. 137 .
7. .. . - . : , 2012. 112.
8. .. . - . : , 2013. 50 .
9. .. . / .. ; . , 2012. 148 .
10. .., .., .. . : , 2016. 118 .: .
11. . 1 [ ]. URL: http://www.intuit.ru/studies/courses/2264/227/lecture/5883?page=2 ( : 24.10.2017).
12. [ ]. URL: http://computerologia.ru/sapr-eto-sistemy-avtomatizirovannogo-proektirovaniya/ ( : 24.10.2017).