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

逍遥处士

将下面一段复制到 AutoCAD 目录下的 acad.lsp 文件末尾，然后重新启动 AutoCAD。画一个圆，输入 ha ，在圆里面点一下就行了。
1 y* p( Y2 v" _2 T; ]/ M
根据您的情况，将 "5剖面线层" 改成您想放的图层名。ha 也可以改成你喜欢的缩写，只要不与现有命令冲突即可。
- U* w2 B# J) a; ~1 {
若是天河，图层名就不用改了。

* {( }0 ~7 P& Q! h. |  N(defun c:ha()   
        (command "hpname" "ansi31" "bhatch" (getpoint) "")
        (command "change" (entlast) "" "p" "LA" "5剖面线层" "")
2 C: c, k4 P5 P$ t" d. ^)

. x- l6 m, s& t( `% R+ T

zerowing

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

Michael0576

不错 试试看，挺方面的

苦菩提

lsp文件在哪个文件夹下？

arfa1424

快捷键吗

ミ百分│汗水

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

逍遥处士

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

苦菩提

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

逍遥处士

苦菩提 发表于 2013-8-10 11:12
有没有画腰型孔的小插件啊

;;;画腰孔程序
(defun c:yk()
  V1 a  V5 j! U9 ^- n) @" i        (setvar "cmdecho" 0)
        (prompt "\n*****画横腰孔程序*****")
* B' _" ~8 b' _' Q  B8 ~        (setq var (getvar "osmode"))
        (setvar "osmode" 0)
        (setq lenth(getreal "\n请输入腰孔长度："))
9 \: q2 j% `, I! F, Q  s1 A* Q; ?        (setq width(getreal "\n请输入腰孔宽度："))
        (if (<= lenth width)
                (progn
5 ^; m0 h0 U0 P& D; M" _) [5 I' L                        (princ "\n腰孔宽度小于长度，请重新输入！")
8 D8 n8 ^3 b6 z1 \8 l                        (setvar "osmode" var)
. K4 }" \, _7 B2 z                        (exit)
5 Z* j5 F5 F2 Y                )
        )
        (setq p0 (getpoint "\n请指定中心点："))
        (setq LL (/ (- lenth width) 2))
3 m1 R  X+ [9 w7 t* K        (setq WW (/ width 2))
        (setq pz0 (polar p0 pi LL))
! M3 L0 y% n5 V        (setq py0 (polar p0 0 LL))
( s9 @5 G% o- z. E: A$ w        (setq pz1 (polar pz0 (/ pi 2) WW))
$ z$ N  G6 Z4 r2 t7 k6 M) w        (setq pz2 (polar pz0 (* 3 (/ pi 2)) WW))
) n0 a6 |6 A+ d* V4 ~* U        (setq py1 (polar py0 (/ pi 2) WW))
        (setq py2 (polar py0 (* 3 (/ pi 2)) WW))
        (command "line" pz1 py1 "")
        (command "line" pz2 py2 "")
5 q: w, R3 E& r3 o; ]* O        (command "arc" "c" pz0 pz1 pz2)
        (command "arc" "c" py0 py2 py1)
- z9 W+ ^; w% G! e) e        (setvar "osmode" var)
        (princ)
6 K) f  i4 t$ G. p1 l/ O)
0 A1 [4 m3 V, G3 A2 Q. c5 _9 k4 ~; a
5 I, K& T2 G3 `6 A: c3 }

苦菩提

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