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

逍遥处士

将下面一段复制到 AutoCAD 目录下的 acad.lsp 文件末尾，然后重新启动 AutoCAD。画一个圆，输入 ha ，在圆里面点一下就行了。
8 K+ n! L9 S" r
  _. c2 U! ]3 d根据您的情况，将 "5剖面线层" 改成您想放的图层名。ha 也可以改成你喜欢的缩写，只要不与现有命令冲突即可。

8 O5 G: [2 i7 T" }2 G! J若是天河，图层名就不用改了。

(defun c:ha()   
% [# h  Y4 D4 [7 K% I, [        (command "hpname" "ansi31" "bhatch" (getpoint) "")
        (command "change" (entlast) "" "p" "LA" "5剖面线层" "")
6 Y: J+ X" ~& @! V5 r7 \& ?)

& `: e/ t; {' d# w- O& p8 {

zerowing

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

Michael0576

不错 试试看，挺方面的

苦菩提

lsp文件在哪个文件夹下？

arfa1424

快捷键吗

ミ百分│汗水

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

逍遥处士

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

苦菩提

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

逍遥处士

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

( |1 D- Z8 w9 V# p/ K/ N5 `" r;;;画腰孔程序
(defun c:yk()
        (setvar "cmdecho" 0)
. Y8 x/ u1 U/ V$ }0 \# U$ N, [( \8 ?        (prompt "\n*****画横腰孔程序*****")
        (setq var (getvar "osmode"))
        (setvar "osmode" 0)
8 ]+ G, }9 s4 f7 v1 K        (setq lenth(getreal "\n请输入腰孔长度："))
; k8 Z# U6 \, c7 M        (setq width(getreal "\n请输入腰孔宽度："))
, F( U2 j3 c7 e/ @# F        (if (<= lenth width)
; P# w0 X% J' c; H) Q. D6 V2 N6 X                (progn
                        (princ "\n腰孔宽度小于长度，请重新输入！")
                        (setvar "osmode" var)
8 d7 a6 I0 i8 v8 ?- b% v                        (exit)
                )
# Q5 J9 u5 ]1 {! `7 Y5 b3 e" d; {        )
        (setq p0 (getpoint "\n请指定中心点："))
        (setq LL (/ (- lenth width) 2))
6 C/ J. L. U2 s2 I        (setq WW (/ width 2))
        (setq pz0 (polar p0 pi LL))
5 g8 t5 a: ^9 B6 {' f1 I        (setq py0 (polar p0 0 LL))
        (setq pz1 (polar pz0 (/ pi 2) WW))
/ v/ @$ d5 c* q' e# N        (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 "")
- P7 D* f8 k4 ]        (command "arc" "c" pz0 pz1 pz2)
        (command "arc" "c" py0 py2 py1)
        (setvar "osmode" var)
- e/ m" e6 e& j2 R9 Z9 ]+ d        (princ)
)
6 f7 k- n( F5 o; k# _/ L
& W7 v: T! g" M: p: C

苦菩提

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