當(dāng)前位置：首頁 >

长方形与圆最近连线LISP_编写一个AutoLISP程序，画出一个边长为A的正方形，以及该正方形的内切圆，正方形的底边与正X轴的夹角为ANG...

發(fā)布時(shí)間：2024/10/8 56 豆豆

生活随笔收集整理的這篇文章主要介紹了长方形与圆最近连线LISP_编写一个AutoLISP程序，画出一个边长为A的正方形，以及该正方形的内切圆，正方形的底边与正X轴的夹角为ANG... 小編覺得挺不錯(cuò)的,現(xiàn)在分享給大家,幫大家做個(gè)參考.

滿意答案

hhmeme

2013.12.15

采納率：51%????等級(jí)：12

已幫助：9370人

(defun c:zfx(/ A ANG p1 p2 p3 p4 p5 os cmd)

(SETQ CMD (GETVAR "cmdecho"))

(SETVAR "cmdecho" 0)

(setq os (getvar "osmode"))

(setq A (getreal"\n:輸入邊長"))

(setq ANG (getreal"\n:輸入角度"))

(setq p1 (getpoint"\n:指定起點(diǎn)"))

(setvar "osmode" 0)

(setq p2 (polar p1 (* pi (/ ANG 180)) A))

(setq p3 (polar p2 (* pi (+ 0.5 (/ ANG 180))) A))

(setq p4 (polar p1 (* pi (+ 0.5 (/ ANG 180))) A))

(command "pline" p1 p2 p3 p4 "c")

(SETQ p5 (polar p1 (+ (* pi (/ ANG 180)) (* 0.25 pi)) (* A (sin (/ pi 4)))))

(command "circle" p5 (* 0.5 A))

(setvar "osmode" os)

(SETVAR "cmdecho" CMD)

(PRINC)

)

00分享舉報(bào)

與50位技術(shù)專家面對(duì)面20年技術(shù)見證，附贈(zèng)技術(shù)全景圖

總結(jié)

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。