看板
[ Cad_Cae ]
討論串[心得] AutoCAD LISP 自問自答
共 5 篇文章
內容預覽:
謝謝 sjgau 出題，這題好像滿好玩的，. 我也寫一個用聚合線畫弧的方法：. (vl-load-com). (defun c:ha (/ h a). (command "pline" pause pause ""). (setq h (getdist "\n Input the middle hi
(還有279個字)
內容預覽:
感覺題目強調已知座標. 就用座標寫寫看. 別種寫法. (defun c:arc-h( ). (setq p1 (getpoint "\n Please pick first point for test: "). p2 (getpoint "\n Please pick second poimt f
(還有158個字)
內容預覽:
; file: arc-h.lsp. (defun dtor(d1 / ). (* (/ d1 180.0) pi). ). (defun c:arc-h( / ). (setq e1 (entsel "\n Please pick a Line for test: ")). (setq h (ge
(還有267個字)