[^_^]:http://bbs.mjtd.com/forum.php?mod=viewthread&tid=110408&extra=page%3D2%26filter%3Dtypeid%26typeid%3D107
出處:http://bbs.mjtd.com/forum.php?mod=viewthread&tid=110408&extra=page%3D2%26filter%3Dtypeid%26typeid%3D107
效果圖

源碼:
```
;;快速填充command版本
;;code by edata@mjtd
;;2014-6-16;;變函數參數
;;(sk\_hatch\_cmd sk\_ha\_name sk\_ha\_scale sk\_ha\_ang)
;;sk\_ha\_name 填充名字符串
;;sk\_ha\_scale 填充比例 數字或數字字符串
;;sk\_ha\_ang 填充角度 0-360度數字或數字字符串
;;例子(sk\_hatch\_cmd "earth" 100 0.0)
(defun sk\_hatch\_cmd
( sk\_ha\_name sk\_ha\_scale sk\_ha\_ang / bak\_clay bak\_col bak\_cmd en0 en1 en2 p1 p3)
(or sk\_ha\_name
(setq sk\_ha\_name "earth"))
(or sk\_ha\_scale
(setq sk\_ha\_scale 100))
(or sk\_ha\_ang
(setq sk\_ha\_ang 0.0))
(setq bak\_clay
(getvar 'clayer) bak\_col
(getvar 'cecolor) bak\_cmd
(getvar 'cmdecho) )
(if
(not
(tblobjname "layer" "自動填充"))
(entmake
(list '
(0 . "LAYER") '
(100 . "AcDbSymbolTableRecord") '
(100 . "AcDbLayerTableRecord") '
(70 . 0) '
(6 . "Continuous")
(cons 2 "自動填充")
(cons 62 5) ) ) )
(setvar 'clayer "自動填充")
(setvar 'cecolor "5")
(setvar 'cmdecho 0)
(while
(and
(setq p1
(getpoint "\\n指定第一點:"))
(setq p3
(getcorner p1 "\\n指定對角點:")) )
(progn
(if
(\>
(getvar 'cmdactive) 0)
(command))
(setq en0
(entlast))
(command "\_.RECTANG" "\_non" p1 "\_non" p3)
(setq en1
(entlast))
(command "-bhatch" "p" sk\_ha\_name sk\_ha\_scale sk\_ha\_ang "s" en1 "" "")
(if
(\>
(getvar 'cmdactive) 0)
(command))
(setq en2
(entlast))
(if
(sk\_h5\_eq en1 en2)
(progn
(alert "創建填充失敗.")
(if
(not
(sk\_h5\_eq en1 en0))
(entdel en1)) ) ) ) )
(and bak\_clay
(setvar 'clayer bak\_clay))
(and bak\_col
(setvar 'cecolor bak\_col))
(and bak\_cmd
(setvar 'cmdecho bak\_cmd))
(princ) )
(defun sk\_dxf
(ent code)
(cdr
(assoc code
(entget ent))))
(defun sk\_h5\_eq
(ent1 ent2)
(\=
(sk\_dxf ent1 5)
(sk\_dxf ent2 5)) )
(defun c:tt
()
(sk\_hatch\_cmd "earth" 100 0.0)
(princ) )
(defun c:tt2
()
(sk\_hatch\_cmd "angle" 100 0.0)
(princ) )
```
- 前言
- 概述
- autolisp簡介(初)
- 搭建編程環境
- Visual Lisp 編輯器的使用(初)
- vs code的使用
- 基本概念(初)
- 表達式
- 數據類型
- 整數類型
- 實數類型
- 字符串類型
- 列表
- 選擇集類型
- 實體名稱(ename)
- vla對象(vla-object)
- 文件描述符
- 符號和變量(初)(精)
- 源碼文件
- 變量
- 變量的類型
- 變量賦值
- 變量求值
- 預定義變量
- 數值處理
- 字符串處理
- 顯示和輸出
- 控制字符
- 列表操作
- 重點函數列表
- 尺寸標注
- 文字固定偏移
- 填充
- 填充到指定的矩形
- 計算填充面積并標注
- 其他
- 繪制任意曲線的等分線
- 原位縮放
- 修改填充基點和角度
- 批量標注多段線長度
- 統計相同直徑的圓的數量
- z坐標置0
- 生成隨機數
- 圖層
- 相交
- intersectWith無法求交點的幾種情形
- 向量和矩陣
- 向量加減乘除
- 向量長度
- 求單位向量
- 向量點積
- 向量叉積
- 命令和交互
- 調用command命令
- 多段線
- 獲取多段線頂點
- UCS
- 有關ucs的命令和系統變量
- 通過command操作ucs
- 草圖設置
- 捕捉
- 柵格
- 正交
- 對象捕捉
- 坐標系和變換(高級)
- 任意軸算法
- 坐標系
- trans
- geomcal
- autocad開發相關網站
- 小技巧匯總
- 判斷點是否在封閉圖形內
- 安裝
- acad啟動加載順序
- 安裝包制作
- 添加文件到啟動組
- 添加目錄到搜索路徑
- 對話框和圖形界面
- DCL
- openDCL
- 菜單和自定義界面
- 菜單文件
- 自定義文件
- 函數參考
- quote