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

逍遙處士

將下面一段復制到 AutoCAD 目錄下的 acad.lsp 文件末尾，然后重新啟動 AutoCAD。畫一個圓，輸入 ha ，在圓里面點一下就行了。
9 Y  \, |1 E  q
根據您的情況，將 "5剖面線層" 改成您想放的圖層名。ha 也可以改成你喜歡的縮寫，只要不與現有命令沖突即可。

+ Q  F: B5 X- p& [若是天河，圖層名就不用改了。
' Y. K8 g+ [- k. Z
(defun c:ha()   
0 S, Y- J. @$ U* r7 ^' d# R        (command "hpname" "ansi31" "bhatch" (getpoint) "")
" o+ Z: f" f. v* H$ S        (command "change" (entlast) "" "p" "LA" "5剖面線層" "")
* `% o1 x5 }! f# Q5 u)

zerowing

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

Michael0576

不錯 試試看，挺方面的

苦菩提

lsp文件在哪個文件夾下？

arfa1424

快捷鍵嗎

ミ百分│汗水

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

逍遙處士

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

苦菩提

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

逍遙處士

苦菩提 發表于 2013-8-10 11:12
' w8 \  L: J4 t% M! I3 t有沒有畫腰型孔的小插件啊

: _' s* m: N2 d  w;;;畫腰孔程序
$ x4 ~# S, N1 {(defun c:yk()
+ K7 u  O3 V- k& o/ `4 m( e        (setvar "cmdecho" 0)
4 i$ k. f4 z; i        (prompt "\n*****畫橫腰孔程序*****")
- n" [9 h/ _  D        (setq var (getvar "osmode"))
" W) r9 d- I3 ~2 j" \. |8 d9 d6 P: ]        (setvar "osmode" 0)
        (setq lenth(getreal "\n請輸入腰孔長度："))
  d4 b" r! F# k        (setq width(getreal "\n請輸入腰孔寬度："))
; m1 S) v6 q  \4 X( {0 Y        (if (<= lenth width)
                (progn
                        (princ "\n腰孔寬度小于長度，請重新輸入！")
                        (setvar "osmode" var)
                        (exit)
  I( b! v* u! n                )
5 {2 I( u2 [* {* @$ X, z        )
* W# [4 {! Z; V( |5 \; J$ B* |        (setq p0 (getpoint "\n請指定中心點："))
7 I% ]! M" p% i9 X8 e$ h        (setq LL (/ (- lenth width) 2))
        (setq WW (/ width 2))
        (setq pz0 (polar p0 pi LL))
& Z8 J6 f& `2 }" r. g        (setq py0 (polar p0 0 LL))
7 y+ H$ e0 z. K5 x4 B# Z1 z        (setq pz1 (polar pz0 (/ pi 2) WW))
$ v1 m) i# g! ^4 G. J7 |" ]        (setq pz2 (polar pz0 (* 3 (/ pi 2)) WW))
* J$ o5 X# N/ F2 O& S. C% N6 }( Q        (setq py1 (polar py0 (/ pi 2) WW))
% ]: c+ S% L+ l: _2 W3 ^        (setq py2 (polar py0 (* 3 (/ pi 2)) WW))
        (command "line" pz1 py1 "")
        (command "line" pz2 py2 "")
        (command "arc" "c" pz0 pz1 pz2)
6 x# q: u; V; h8 j5 `        (command "arc" "c" py0 py2 py1)
        (setvar "osmode" var)
& @8 K0 E9 o8 V0 h. g        (princ)
)
" H6 Q/ T8 s( F$ ~4 {

苦菩提

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