[AutoLisp] 快速填充 + 自動匹配圖層

逍遙處士

將下面一段復制到 AutoCAD 目錄下的 acad.lsp 文件末尾，然后重新啟動 AutoCAD。畫一個圓，輸入 ha ，在圓里面點一下就行了。

+ i6 z8 F" x: N' S5 @) D* M( R1 |根據您的情況，將 "5剖面線層" 改成您想放的圖層名。ha 也可以改成你喜歡的縮寫，只要不與現有命令沖突即可。
5 i- q9 K! ]; s& z' U" u3 f- P
2 Y; ?, r; F2 m- Z% A% C' [, o若是天河，圖層名就不用改了。

8 [3 [" x1 P/ S0 o7 b! S( `(defun c:ha()   
8 K7 {" o5 a$ ?7 E& v7 C  r        (command "hpname" "ansi31" "bhatch" (getpoint) "")
- w* x: ]  o$ M' h3 n  u' B        (command "change" (entlast) "" "p" "LA" "5剖面線層" "")
)
/ I1 B! ~5 U0 I& p6 j+ R1 u! z& \

zerowing

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

Michael0576

不錯 試試看，挺方面的

苦菩提

lsp文件在哪個文件夾下？

arfa1424

快捷鍵嗎

ミ百分│汗水

收藏，需要用到的時候在搞上

逍遙處士

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

苦菩提

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

逍遙處士

苦菩提 發表于 2013-8-10 11:12
* S4 C; f- K6 l7 V有沒有畫腰型孔的小插件啊

: Z/ f: `2 A* f& U* L* l;;;畫腰孔程序
$ K% \) `# l/ E* s(defun c:yk()
        (setvar "cmdecho" 0)
        (prompt "\n*****畫橫腰孔程序*****")
        (setq var (getvar "osmode"))
" D# m5 S! a9 W* M% |, G        (setvar "osmode" 0)
4 t! C. g/ B  u2 C9 x$ Z& l        (setq lenth(getreal "\n請輸入腰孔長度："))
        (setq width(getreal "\n請輸入腰孔寬度："))
( ~& c$ I' P4 I9 w* I        (if (<= lenth width)
0 K$ I& B' |: o                (progn
                        (princ "\n腰孔寬度小于長度，請重新輸入！")
                        (setvar "osmode" var)
3 l3 v, K0 _) C2 r# A# i) Y                        (exit)
& n$ K6 p/ C# h4 p; c4 @7 g                )
        )
& {8 c' D3 w$ A        (setq p0 (getpoint "\n請指定中心點："))
        (setq LL (/ (- lenth width) 2))
        (setq WW (/ width 2))
5 }! X8 C  Q  {: H3 d6 X4 R* c! ?; v        (setq pz0 (polar p0 pi LL))
        (setq py0 (polar p0 0 LL))
, F; Y# k. v. R9 \0 ^7 m5 M        (setq pz1 (polar pz0 (/ pi 2) WW))
        (setq pz2 (polar pz0 (* 3 (/ pi 2)) WW))
( }: o/ d6 r! W% d$ h7 y        (setq py1 (polar py0 (/ pi 2) WW))
! n4 d. q9 w7 b% ]        (setq py2 (polar py0 (* 3 (/ pi 2)) WW))
        (command "line" pz1 py1 "")
        (command "line" pz2 py2 "")
3 E) o0 o" F) b  C1 {( |        (command "arc" "c" pz0 pz1 pz2)
        (command "arc" "c" py0 py2 py1)
        (setvar "osmode" var)
        (princ)
" M1 T; O5 @3 J)
; c* W$ T. R$ q" N6 Y

苦菩提

好棒哦。可我依舊找不到lsp文件在哪。搜也沒搜到