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

逍遙處士

將下面一段復制到 AutoCAD 目錄下的 acad.lsp 文件末尾，然后重新啟動 AutoCAD。畫一個圓，輸入 ha ，在圓里面點一下就行了。
! }7 a& D' p& v. F# D
  C. P' b' h( W! Z; w根據您的情況，將 "5剖面線層" 改成您想放的圖層名。ha 也可以改成你喜歡的縮寫，只要不與現有命令沖突即可。
5 k1 _" C3 ^/ l/ M' h1 V9 W! c
若是天河，圖層名就不用改了。
  e9 H* u, W  N) d$ @
(defun c:ha()   
        (command "hpname" "ansi31" "bhatch" (getpoint) "")
  x1 f! L4 K* O7 G        (command "change" (entlast) "" "p" "LA" "5剖面線層" "")
)

zerowing

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

Michael0576

不錯 試試看，挺方面的

苦菩提

lsp文件在哪個文件夾下？

arfa1424

快捷鍵嗎

ミ百分│汗水

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

逍遙處士

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

苦菩提

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

逍遙處士

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

;;;畫腰孔程序
- T/ w: p3 N- w0 k& J( t(defun c:yk()
, {( [/ X# y" ^5 u/ M4 y" H# X        (setvar "cmdecho" 0)
1 H) {0 s' _. |5 P2 F        (prompt "\n*****畫橫腰孔程序*****")
        (setq var (getvar "osmode"))
- i  W0 H+ P; g& u        (setvar "osmode" 0)
0 M. p2 b% j' z: z3 k" h7 j        (setq lenth(getreal "\n請輸入腰孔長度："))
. W  G- q4 i; u# h! g8 K        (setq width(getreal "\n請輸入腰孔寬度："))
: b; B0 \% U" y1 n$ H0 l: d% b        (if (<= lenth width)
                (progn
6 q; H7 \6 H0 |# q  ]% I3 n                        (princ "\n腰孔寬度小于長度，請重新輸入！")
                        (setvar "osmode" var)
4 M) S- M$ |5 v/ S% D                        (exit)
0 I* J- W- B( N) b: {) p  t                )
        )
        (setq p0 (getpoint "\n請指定中心點："))
/ u9 {* [& U. @+ K) l        (setq LL (/ (- lenth width) 2))
6 K2 Q7 @0 A" t& |  d        (setq WW (/ width 2))
        (setq pz0 (polar p0 pi LL))
7 ?8 y- @. w* u1 Z# ?6 F  p        (setq py0 (polar p0 0 LL))
# R9 t; a( d- a# ?" A% y        (setq pz1 (polar pz0 (/ pi 2) WW))
  N% H( o) D" |; F# V9 ?# I        (setq pz2 (polar pz0 (* 3 (/ pi 2)) WW))
        (setq py1 (polar py0 (/ pi 2) WW))
        (setq py2 (polar py0 (* 3 (/ pi 2)) WW))
8 A- P  H7 h2 _) `# v* P        (command "line" pz1 py1 "")
        (command "line" pz2 py2 "")
        (command "arc" "c" pz0 pz1 pz2)
        (command "arc" "c" py0 py2 py1)
, [0 ~" m6 r: V- P8 B5 n' A3 _' _        (setvar "osmode" var)
; g+ I$ n4 h5 A        (princ)
4 K5 C) O5 ~7 ~+ e)
1 h  a) S. l/ p9 V$ `/ C$ V

苦菩提

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