.


:




:

































 

 

 

 


AutoLISP

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).

 



<== | ==>
| .
:


: 2018-11-11; !; : 504 |


:

:

, - , ; , - .
==> ...

1511 - | 1523 -


© 2015-2024 lektsii.org - -

: 0.013 .