Author
Chương trình này mình vừa viết các bạn cho ý kiến nhé
(defun c:vongtron ()
(setq pt '(0 0 0)
r 100
teta 0
)
(repeat 1000
(setq teta (+ teta 0.05)
ro (/ (* r teta) (* 2 pi))
)
(command "line"
pt
(list (* ro (sin teta)) (* ro (cos teta)) 0)
""
)
(setq
pt1 (list (* ro (sin teta)) (* ro (cos teta)) 0)
pt (list (car pt1) (cadr pt1) 0)
)
(princ "\n da ve xong")
)
)
lưu vào dạng file *.lsp
vào autocad gõ lệnh appload sau đó gõ lệnh vongtron trong autocad là ok
(defun c:vongtron ()
(setq pt '(0 0 0)
r 100
teta 0
)
(repeat 1000
(setq teta (+ teta 0.05)
ro (/ (* r teta) (* 2 pi))
)
(command "line"
pt
(list (* ro (sin teta)) (* ro (cos teta)) 0)
""
)
(setq
pt1 (list (* ro (sin teta)) (* ro (cos teta)) 0)
pt (list (car pt1) (cadr pt1) 0)
)
(princ "\n da ve xong")
)
)
lưu vào dạng file *.lsp
vào autocad gõ lệnh appload sau đó gõ lệnh vongtron trong autocad là ok