首頁>Club>

cad怎麼給圓加十字架？

10
回覆列表
  • 1 # W小二

    AutoCAD只是提供基本功能，要給圓加十字架的話，需要用外掛來解決。

    很多外掛有這個功能，如：【賤人工具箱】有給圓加十字架功能。

    圓加十字架程式碼如下：

    (defun c:tes ( / &dis1 &k1 pt1 pt2 pt3) (if (null vlax-dump-object) (vl-load-com) ) (while (and (setq &k1 (entsel "\n請選擇圓")) (setq &k1 (car &k1)) (setq &k1 (vlax-ename->vla-object &k1)) (= (vla-get-objectname &k1) "AcDbCircle") ) (progn (setq pt1 (vla-get-Center &k1)) (setq pt1 (Vlax-SafeArray->List (Vlax-Variant-Value pt1))) (setq &dis1 (* (vla-get-Radius &k1) 1.2)) (setq pt2 (polar pt1 0 &dis1) pt3 (polar pt1 pi &dis1)) (entmake (list "(0 . "LINE") (cons 10 pt2) (cons 11 pt3))) (setq pt2 (polar pt1 (* 0.5 pi) &dis1) pt3 (polar pt1 (* 1.5 pi) &dis1)) (entmake (list "(0 . "LINE") (cons 10 pt2) (cons 11 pt3))) ) ) (princ));複製到記事本，以【.lsp】為字尾命名，autolisp載入，命令【TES】

  • ∧ 中秋節和大豐收的關聯？
  • ∨ 什麼是商品零售價格指數？