AutoLISP切圓動畫

autolisp切圓動畫，在已知圓外繪製一外切圓，並逆時針運動，**如下。

(defun c:test()

(setvar "cmdecho" 0)

(setq en (car (entsel "\n選取一圓心：")))

(setq cen2 (getpoint "\n切點圓："))

(princ "\n按選鍵盤任意鍵可轉動切圓,[enter]結束……")

(setq endata (entget en))

(setq cen1 (cdr (assoc 10 endata)))

(setq rr1 (cdr (assoc 40 endata)))

(setq dd (distance cen1 cen2))

(setq rr2 (abs (- dd rr1)))

(command "circle" cen2 rr2)

(setq en2 (entlast))

(setq k 1)

(while (/= k 13)

(command "rotate" en2 "" cen1 10)

(setq k (cadr (grread)))

) (prin1)

)

cad是可以做動畫的。

AutoLISP實時跟蹤滑鼠座標

運用grread函式跟蹤滑鼠座標，繪製滑鼠軌跡，如下。defun c test setq p getpoint setq n 0 while progn setq input grread t cond car input 5 setq p1 cadr input if n 0 command li...

autolisp的各種框（DCL）

一 dcl是什麼?前面的事情，是通過在命令列輸入引數來實現某個指令的，而dcl是通過使用者介面來實現互動的。下圖就是乙個典型的dcl。首先說明，dcl不像lisp，可以直接通過vlide命令呼叫出來，呼叫過程如下 1 通過vlide命令，開啟autolisp對話方塊，選擇檔案 另存為dcl格式的檔案...

UIView畫圓 切圓環

對於一些圓，或者圓環我們可以用uiview進行切出來。案例 原圖 效果圖 主要 如下 設定圓環 self.pointview.layer.cornerradius 11 設定圓形的程度 self.pointview.layer.maskstobounds yes 設定是否切圓 self.pointv...