[AutoLisp] 快速填充 + 自动匹配图层

逍遥处士

将下面一段复制到 AutoCAD 目录下的 acad.lsp 文件末尾，然后重新启动 AutoCAD。画一个圆，输入 ha ，在圆里面点一下就行了。

2 C* Q  Z. x7 k1 P根据您的情况，将 "5剖面线层" 改成您想放的图层名。ha 也可以改成你喜欢的缩写，只要不与现有命令冲突即可。
; I8 ~8 \7 b4 i: r# c; F% z3 E/ @
% o3 H! X6 p* u/ m# M1 ~+ U若是天河，图层名就不用改了。

(defun c:ha()   
8 _6 C3 A- u  M) E+ k5 b2 y        (command "hpname" "ansi31" "bhatch" (getpoint) "")
1 t. W1 {8 f' |        (command "change" (entlast) "" "p" "LA" "5剖面线层" "")
)
7 ^) Z3 K  z, P2 ~5 V
/ Q  [. ], m$ ^2 f3 v3 O

zerowing

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

Michael0576

不错 试试看，挺方面的

苦菩提

lsp文件在哪个文件夹下？

arfa1424

快捷键吗

ミ百分│汗水

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

逍遥处士

如果用原来的 h 命令，我模拟了一下，要想完成一个剖面线，需要点 8 次键鼠，而用了快捷命令，只需要 4 次（ha俩字母+空格+单击）。

苦菩提

有没有画腰型孔的小插件啊

逍遥处士

苦菩提 发表于 2013-8-10 11:12
( X0 u) i# N) a7 F. @+ Q. E; v有没有画腰型孔的小插件啊

;;;画腰孔程序
(defun c:yk()
( \4 x# w* g5 J5 G7 \2 E$ |0 v% j# J        (setvar "cmdecho" 0)
9 M: G. Q/ D/ M6 ?        (prompt "\n*****画横腰孔程序*****")
        (setq var (getvar "osmode"))
        (setvar "osmode" 0)
6 w) z4 `3 v( u0 [        (setq lenth(getreal "\n请输入腰孔长度："))
% w& _* J5 O. M& o        (setq width(getreal "\n请输入腰孔宽度："))
1 F8 `/ O- y# j" q. ?! A        (if (<= lenth width)
                (progn
. f- V- f4 A( D$ E                        (princ "\n腰孔宽度小于长度，请重新输入！")
3 E. j6 d1 {3 \/ P# u                        (setvar "osmode" var)
                        (exit)
                )
        )
        (setq p0 (getpoint "\n请指定中心点："))
        (setq LL (/ (- lenth width) 2))
        (setq WW (/ width 2))
        (setq pz0 (polar p0 pi LL))
2 P6 r8 n+ e2 ~# L0 U/ I  s        (setq py0 (polar p0 0 LL))
+ ^* J" H; p+ Y' w% C: ?8 i3 X, f        (setq pz1 (polar pz0 (/ pi 2) WW))
& U: A  O+ \$ U# _( |2 O* D        (setq pz2 (polar pz0 (* 3 (/ pi 2)) WW))
        (setq py1 (polar py0 (/ pi 2) WW))
        (setq py2 (polar py0 (* 3 (/ pi 2)) WW))
        (command "line" pz1 py1 "")
        (command "line" pz2 py2 "")
  ]2 Z6 K. K6 M+ ?& ?/ G        (command "arc" "c" pz0 pz1 pz2)
5 z- f- J( ^0 n" p/ G! V        (command "arc" "c" py0 py2 py1)
        (setvar "osmode" var)
        (princ)
)
6 r4 j* L9 J# Z# I, {5 i! P/ x. M: v
2 ~% [% O+ G1 D

苦菩提

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