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

逍遥处士

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

根据您的情况，将 "5剖面线层" 改成您想放的图层名。ha 也可以改成你喜欢的缩写，只要不与现有命令冲突即可。
* q6 f6 `! G! ^8 ]9 U' ~/ }1 @0 T' o
3 ^" y7 c7 C2 u5 f若是天河，图层名就不用改了。

(defun c:ha()   
" l, Y9 ?& ^% p        (command "hpname" "ansi31" "bhatch" (getpoint) "")
0 T# k% k6 ?5 a$ Q* O$ U        (command "change" (entlast) "" "p" "LA" "5剖面线层" "")
)

zerowing

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

Michael0576

不错 试试看，挺方面的

苦菩提

lsp文件在哪个文件夹下？

arfa1424

快捷键吗

ミ百分│汗水

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

逍遥处士

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

苦菩提

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

逍遥处士

苦菩提 发表于 2013-8-10 11:12
4 s. E0 \1 a* _) F! r7 Y有没有画腰型孔的小插件啊

;;;画腰孔程序
/ {$ ?: e  B/ T3 l2 w  M9 s(defun c:yk()
( S! r6 D$ |, H, r# q0 {        (setvar "cmdecho" 0)
        (prompt "\n*****画横腰孔程序*****")
        (setq var (getvar "osmode"))
8 |) d; A5 |' y& A, J$ n& r+ E/ q3 v        (setvar "osmode" 0)
8 f1 B; B. O- c& z# V        (setq lenth(getreal "\n请输入腰孔长度："))
        (setq width(getreal "\n请输入腰孔宽度："))
; z% S! h, [! N- Y4 E        (if (<= lenth width)
                (progn
" W( r. k- A0 Y1 C$ P+ m                        (princ "\n腰孔宽度小于长度，请重新输入！")
( M9 `- O4 o1 a2 b+ y4 [  [$ F                        (setvar "osmode" var)
. W3 L; U' N0 q4 R4 y                        (exit)
                )
        )
+ Z4 |0 Z/ }/ b* y& c; q$ A. ~        (setq p0 (getpoint "\n请指定中心点："))
        (setq LL (/ (- lenth width) 2))
4 q, \& \% u& E6 m& M        (setq WW (/ width 2))
" B& o+ ?8 D, Z. M8 b; s        (setq pz0 (polar p0 pi LL))
: i9 r! k, S6 a* f        (setq py0 (polar p0 0 LL))
        (setq pz1 (polar pz0 (/ pi 2) WW))
, z# V( [9 o4 T9 O        (setq pz2 (polar pz0 (* 3 (/ pi 2)) WW))
& K. \# w9 G( w3 K        (setq py1 (polar py0 (/ pi 2) WW))
        (setq py2 (polar py0 (* 3 (/ pi 2)) WW))
        (command "line" pz1 py1 "")
2 c) i' h  y7 s* H5 ~0 P6 c( k        (command "line" pz2 py2 "")
& {1 ?$ [4 m7 N: C- f  w        (command "arc" "c" pz0 pz1 pz2)
        (command "arc" "c" py0 py2 py1)
/ _, L* K/ ~( ^- h" h& B* R        (setvar "osmode" var)
8 ^9 `0 E/ u  \( ~$ _0 O9 X2 k        (princ)
& D7 u5 L) D6 f3 T6 L' a)
# K0 P! U' j6 U- s  J! q  \- C

苦菩提

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