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

逍遥处士

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

' w4 s5 Y( |. q$ o$ F% v根据您的情况，将 "5剖面线层" 改成您想放的图层名。ha 也可以改成你喜欢的缩写，只要不与现有命令冲突即可。
, @, b! z$ l+ R) L: t
若是天河，图层名就不用改了。
; ~) i! T6 o4 r+ b
(defun c:ha()   
        (command "hpname" "ansi31" "bhatch" (getpoint) "")
. Y1 k: O9 N3 g1 S$ |  `1 E# S        (command "change" (entlast) "" "p" "LA" "5剖面线层" "")
)

zerowing

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

Michael0576

不错 试试看，挺方面的

苦菩提

lsp文件在哪个文件夹下？

arfa1424

快捷键吗

ミ百分│汗水

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

逍遥处士

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

苦菩提

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

逍遥处士

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

; f4 ?0 Q) _/ H0 W;;;画腰孔程序
(defun c:yk()
4 c; w$ T1 {1 U) R1 t, T) z        (setvar "cmdecho" 0)
& U; c$ F2 c( M& D8 f4 H        (prompt "\n*****画横腰孔程序*****")
        (setq var (getvar "osmode"))
) G( a2 F. m! P' ?- n        (setvar "osmode" 0)
        (setq lenth(getreal "\n请输入腰孔长度："))
4 ^- u" G6 H; J        (setq width(getreal "\n请输入腰孔宽度："))
        (if (<= lenth width)
                (progn
8 N3 C7 m9 m, U, k- N                        (princ "\n腰孔宽度小于长度，请重新输入！")
) }5 y' w* G2 U4 m& L                        (setvar "osmode" var)
3 p1 R2 ~' P! N. v' a                        (exit)
                )
/ f/ C( R) @% I: F6 _' C4 Z        )
( ^, s: `& y% F4 K/ d, n3 I7 K' P        (setq p0 (getpoint "\n请指定中心点："))
" y, k! H# H6 Y, r        (setq LL (/ (- lenth width) 2))
9 d2 Q' e& T( x6 h; E9 r$ L' ?: b) f        (setq WW (/ width 2))
& h8 M' D1 x& E        (setq pz0 (polar p0 pi LL))
        (setq py0 (polar p0 0 LL))
        (setq pz1 (polar pz0 (/ pi 2) WW))
2 J9 [( V. r5 |$ v; ^5 Q        (setq pz2 (polar pz0 (* 3 (/ pi 2)) WW))
        (setq py1 (polar py0 (/ pi 2) WW))
8 S" s5 r) f5 d. J4 _  U8 D: \: R        (setq py2 (polar py0 (* 3 (/ pi 2)) WW))
) v* }" J: m6 U0 x! L" @        (command "line" pz1 py1 "")
% X7 L) V4 w; x- s. T7 r        (command "line" pz2 py2 "")
: Y6 V4 p( g& f( J        (command "arc" "c" pz0 pz1 pz2)
4 S  h2 O5 z0 P" e8 R        (command "arc" "c" py0 py2 py1)
        (setvar "osmode" var)
        (princ)
)

苦菩提

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