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

逍遥处士

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

! b+ C9 F8 s! R- z, |, W* X2 e# w( n+ o根据您的情况，将 "5剖面线层" 改成您想放的图层名。ha 也可以改成你喜欢的缩写，只要不与现有命令冲突即可。
( c. {+ r6 t0 U, B" H
若是天河，图层名就不用改了。

(defun c:ha()   
  \! L2 e3 t! d1 `) W! b4 _        (command "hpname" "ansi31" "bhatch" (getpoint) "")
; }0 _6 @( V0 n/ f' r4 i# p        (command "change" (entlast) "" "p" "LA" "5剖面线层" "")
)
2 ?; J8 d4 X2 h( k- \% s/ \
$ S$ `: J' T) F" r$ r9 a3 Y2 g

zerowing

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

Michael0576

不错 试试看，挺方面的

苦菩提

lsp文件在哪个文件夹下？

arfa1424

快捷键吗

ミ百分│汗水

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

逍遥处士

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

苦菩提

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

逍遥处士

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

;;;画腰孔程序
; A, w0 j% M7 Q' Q/ O/ u(defun c:yk()
$ F5 e& G5 t: @9 P9 M5 W# `        (setvar "cmdecho" 0)
: @  }. L( K% P/ X        (prompt "\n*****画横腰孔程序*****")
# s% S& F! r0 Z        (setq var (getvar "osmode"))
3 E2 V) o. s/ |8 P        (setvar "osmode" 0)
        (setq lenth(getreal "\n请输入腰孔长度："))
        (setq width(getreal "\n请输入腰孔宽度："))
        (if (<= lenth width)
                (progn
                        (princ "\n腰孔宽度小于长度，请重新输入！")
, G/ T- i8 Z( x                        (setvar "osmode" var)
  Y) D  \5 F9 w- ]                        (exit)
                )
        )
% q' w1 `. t* i  Z, M5 X5 L        (setq p0 (getpoint "\n请指定中心点："))
3 S7 b% B* D  P. z% ^' F- ?        (setq LL (/ (- lenth width) 2))
        (setq WW (/ width 2))
# V4 L8 N' h4 T. x        (setq pz0 (polar p0 pi LL))
        (setq py0 (polar p0 0 LL))
. a" S5 q, |5 t  s, b9 E        (setq pz1 (polar pz0 (/ pi 2) WW))
, y5 I( x! `4 g3 e& ]% m( a# p        (setq pz2 (polar pz0 (* 3 (/ pi 2)) WW))
9 c7 M/ Y1 Q) O        (setq py1 (polar py0 (/ pi 2) WW))
* J( Z: y% k& q        (setq py2 (polar py0 (* 3 (/ pi 2)) WW))
        (command "line" pz1 py1 "")
/ D: h: v) h% h% F: T: t        (command "line" pz2 py2 "")
        (command "arc" "c" pz0 pz1 pz2)
        (command "arc" "c" py0 py2 py1)
        (setvar "osmode" var)
        (princ)
)

* ]3 o  Q; W2 J  I

苦菩提

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