[AutoLisp] 快速填充 + 自動(dòng)匹配圖層

逍遙處士

將下面一段復(fù)制到 AutoCAD 目錄下的 acad.lsp 文件末尾，然后重新啟動(dòng) AutoCAD,。畫一個(gè)圓,，輸入 ha ，在圓里面點(diǎn)一下就行了,。
: p8 c6 d% {( f1 w: U) s7 N  d8 q% T( U
3 o/ ~9 I5 q/ O3 y# u/ ~根據(jù)您的情況,，將 "5剖面線層" 改成您想放的圖層名。ha 也可以改成你喜歡的縮寫，只要不與現(xiàn)有命令沖突即可,。

若是天河,，圖層名就不用改了。
. B. c) e; C( Y1 |. D$ D! f6 S
(defun c:ha()   
3 l; y( D4 r1 H! \, a" G        (command "hpname" "ansi31" "bhatch" (getpoint) "")
4 J; g1 {) n- k! v% N        (command "change" (entlast) "" "p" "LA" "5剖面線層" "")
6 `, Y+ P- D4 I. r  A)

) S$ ]) C6 w3 C# m

zerowing

感謝分享啊,。逍兄,。俺收下了。

Michael0576

不錯(cuò) 試試看,，挺方面的

苦菩提

lsp文件在哪個(gè)文件夾下,？

arfa1424

快捷鍵嗎

ミ百分│汗水

收藏，需要用到的時(shí)候在搞上

逍遙處士

如果用原來的 h 命令,，我模擬了一下，要想完成一個(gè)剖面線，需要點(diǎn) 8 次鍵鼠,，而用了快捷命令,，只需要 4 次（ha倆字母+空格+單擊）。

苦菩提

有沒有畫腰型孔的小插件啊

逍遙處士

苦菩提 發(fā)表于 2013-8-10 11:12
有沒有畫腰型孔的小插件啊

4 _' _/ d, Q/ |& N;;;畫腰孔程序
9 v; R0 z4 p- R1 w(defun c:yk()
        (setvar "cmdecho" 0)
! }0 d3 [  a# H9 J: c% j- C* c        (prompt "\n*****畫橫腰孔程序*****")
3 T( V; V  m7 K8 q9 D1 h        (setq var (getvar "osmode"))
        (setvar "osmode" 0)
; S* S# z% k& \! N- n5 i        (setq lenth(getreal "\n請(qǐng)輸入腰孔長(zhǎng)度："))
5 Z1 v. O- l' c        (setq width(getreal "\n請(qǐng)輸入腰孔寬度："))
        (if (<= lenth width)
" r' B& W5 Q0 |                (progn
                        (princ "\n腰孔寬度小于長(zhǎng)度,，請(qǐng)重新輸入,！")
                        (setvar "osmode" var)
                        (exit)
) J& V; Q7 u. P  Z, K                )
        )
        (setq p0 (getpoint "\n請(qǐng)指定中心點(diǎn)："))
        (setq LL (/ (- lenth width) 2))
9 y& K, }' K4 j5 t* K        (setq WW (/ width 2))
        (setq pz0 (polar p0 pi LL))
# |$ C5 g; m+ }" C* F2 z! c        (setq py0 (polar p0 0 LL))
4 Z( f9 m' U" z$ z* X        (setq pz1 (polar pz0 (/ pi 2) WW))
        (setq pz2 (polar pz0 (* 3 (/ pi 2)) WW))
, i! m5 j- ~: t7 [7 }: L. c        (setq py1 (polar py0 (/ pi 2) WW))
2 U. ]- ?, S, i( U5 u7 L        (setq py2 (polar py0 (* 3 (/ pi 2)) WW))
: l8 i, E' l1 ~        (command "line" pz1 py1 "")
        (command "line" pz2 py2 "")
        (command "arc" "c" pz0 pz1 pz2)
/ U. l/ W( ^* @3 p% S" ?        (command "arc" "c" py0 py2 py1)
        (setvar "osmode" var)
4 V( ^6 M  K$ O1 q9 q        (princ)
)
' i0 b8 c5 m7 [: G

苦菩提

好棒哦�,？晌乙琅f找不到lsp文件在哪,。搜也沒搜到