五邊形lisp程式 CAD LISP 程式

2021-10-13 03:16:44 字數 952 閱讀 7022

1/10

1.計算所有線段總長度

載入後只需框選所有線段便可得出這些線段的總長度

(defun c:ll ()

(setvar "cmdecho" 1)

(setq en (

ssget

(list '(0 . "spline,arc,line,ellipse,lwpolyline"))))

(setq i 0)

(setq ll 0)

(repeat (sslength en)

(setq ss (ssname en i))

(setq endata (entget ss))

(command "lengthen" ss "")

(setq dd (getvar "perimeter"))

(setq ll (+ dd ll))

(setq i (1+ i))

(princ "

所選線條總長為:

")(princ ll)(princ)

2.標註所有線段

載入後只需框選所有線段便可得標註這些線段

(defun c:lll ()

(command "ucs" "")

(setvar "cmdecho" 1)

(setvar "osmode" 0)

(setq

acadobject

(vlax-get-acad-object)

acaddocument (vla-get-activedocument acadobject)

mspace

(vla-get-modelspace acaddocument)

選取需要測量的樣條曲線、圓弧、直線、橢圓

(setq en (

ssget

(list '(0 . "spline,arc,line,ellipse,lwpolyline"))))

使用UGUI自定義五邊形

using unityengine using system.collections.generic using unityengine.ui 5 6 0 4 1 2 3 public class uipropwidget graphic void update public void init p...

五邊形數與拆分數

拆分數p n 就是將n拆分成正整數的和的方案數。樸素的做法應該是可以做到時空o nn 一次詢問的,但多組詢問便毫無辦法。但我們可以通過生成函式和正五邊形數的方法來做到o nn 預處理o 1 詢問 其實可以看wiki 注意這並不是數論中的尤拉函式 定義 x i 1 1 xi 設拆分數的母函式p x 根...

Css3之五邊形跟六邊形

今天我們來討論下如果做五邊形跟六邊形,五邊形可以拆成梯形跟三角形組合起來 還有個思路就是三個三角形,兩個鈍角的,然後通過transform旋轉得到五邊形,這個大家自己去試試 六邊形可以拆成兩個三角形和乙個長方形 我們先來了解下梯形如何做 梯形 trapezoid有沒有發現做梯形跟做三角形的 差不多,...