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

逍遥处士

将下面一段复制到 AutoCAD 目录下的 acad.lsp 文件末尾，然后重新启动 AutoCAD。画一个圆，输入 ha ，在圆里面点一下就行了。
1 v( D' l# q7 D* B( O
& @- [; x- x8 Q$ g' {5 ]" S根据您的情况，将 "5剖面线层" 改成您想放的图层名。ha 也可以改成你喜欢的缩写，只要不与现有命令冲突即可。
8 z/ b, t1 h5 W  m# `
若是天河，图层名就不用改了。

9 v2 j4 f  U- G( V: k1 K$ F(defun c:ha()   
        (command "hpname" "ansi31" "bhatch" (getpoint) "")
        (command "change" (entlast) "" "p" "LA" "5剖面线层" "")
; d5 T3 O0 d& G8 Q+ Z)
' Y$ E/ q8 P' x5 {# b6 B

zerowing

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

Michael0576

不错 试试看，挺方面的

苦菩提

lsp文件在哪个文件夹下？

arfa1424

快捷键吗

ミ百分│汗水

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

逍遥处士

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

苦菩提

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

逍遥处士

苦菩提 发表于 2013-8-10 11:12
9 ~1 u7 [  i; h% i1 g" l* z有没有画腰型孔的小插件啊

;;;画腰孔程序
* N$ P0 f  S4 F) t, C+ G" P(defun c:yk()
) L# c8 [7 ^4 o        (setvar "cmdecho" 0)
        (prompt "\n*****画横腰孔程序*****")
8 p$ C! N: F4 I- r. X        (setq var (getvar "osmode"))
4 [) ~/ \, w3 O. f2 ?4 Q1 y$ M        (setvar "osmode" 0)
        (setq lenth(getreal "\n请输入腰孔长度："))
8 P1 a7 n. l& E4 O. e        (setq width(getreal "\n请输入腰孔宽度："))
; Q3 B: R3 t8 E4 @        (if (<= lenth width)
" N3 z- e0 y1 n8 o7 C                (progn
$ |1 T1 m+ E1 B( X% c) i) c- X                        (princ "\n腰孔宽度小于长度，请重新输入！")
) U/ Y& U' m. a: r6 L                        (setvar "osmode" var)
1 h* z  V5 m( V/ \4 C5 H' {" t4 F1 V                        (exit)
                )
- `5 c8 \2 S" ^5 B9 c2 }        )
        (setq p0 (getpoint "\n请指定中心点："))
        (setq LL (/ (- lenth width) 2))
6 x, q2 l% m: s: s: X" v7 D; D        (setq WW (/ width 2))
- o) M. h. K, u2 o" u% w        (setq pz0 (polar p0 pi LL))
# x* ^2 {3 y* x        (setq py0 (polar p0 0 LL))
$ y0 S8 e% g) h: V9 G- _$ |) `/ p        (setq pz1 (polar pz0 (/ pi 2) WW))
5 M, ~1 f+ o' x$ C' [! L        (setq pz2 (polar pz0 (* 3 (/ pi 2)) WW))
9 m0 |2 j3 }( H! d( z  M3 ]        (setq py1 (polar py0 (/ pi 2) WW))
( j" D  ?8 e0 D6 L        (setq py2 (polar py0 (* 3 (/ pi 2)) WW))
        (command "line" pz1 py1 "")
        (command "line" pz2 py2 "")
- v2 ~9 g0 U7 _- h2 r        (command "arc" "c" pz0 pz1 pz2)
        (command "arc" "c" py0 py2 py1)
1 Y+ J8 u! C* }, B        (setvar "osmode" var)
        (princ)
)
1 L7 v$ o; G. ]4 r) I
6 ^6 K2 Z$ M6 k! k" n

苦菩提

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