發表文章

目前顯示的是有「聚合線」標籤的文章

AutoCAD 常見問題:聚合線未填滿

圖片
 問題: 發現有線寬的聚合線未被填滿 解決方式: 方法1. 設定 FILLMODE=1 方法2. 在某些 視埠 才出現,是因為視圖不是 上視圖 ,而是 自訂視圖 方法3. 一樣左上角, 視覺樣式 ,改回 2D線架構 可能被改成 線架構 或 隱藏 的 視覺樣式

AutoCAD LISP 複線的相關程式

圖片
1. 單線轉複線 作者:不明 說明:選取單線轉換成複線 程式碼: (defun c:l2ml ()   (setq mysset (ssget))   (setq mylength (sslength mysset))   (setq counter 0)   (while (< counter mylength)     (setq obj (ssname mysset counter))     (setq data (entget obj))     (setq pt1 (cdr (assoc 10 data)))     (setq pt2 (cdr (assoc 11 data)))     (command "mline" "style" "standard" pt1 pt2 "")     (entdel obj)     (setq counter (+ 1 counter))     )   (princ)   ) 2.聚合線轉複線 作者:不明 說明:選取聚合線轉換成複線 程式碼: (defun c:pl2ml ( / e i l s )     (if (setq s (ssget '((0 . "LWPOLYLINE"))))         (repeat (setq i (sslength s))             (setq e (ssname s (setq i (1- i)))                   l (entget e)             )             (apply 'command       ...