[AutoLisp] 快速填充 + 自動匹配圖層

逍遙處士

將下面一段復(fù)制到 AutoCAD 目錄下的 acad.lsp 文件末尾，然后重新啟動 AutoCAD。畫一個圓，輸入 ha ，在圓里面點一下就行了。

8 j- [, W, w/ a% W) H* R根據(jù)您的情況，將 "5剖面線層" 改成您想放的圖層名。ha 也可以改成你喜歡的縮寫，只要不與現(xiàn)有命令沖突即可。

若是天河，圖層名就不用改了。

4 n9 r" m# U5 y" w(defun c:ha()   
        (command "hpname" "ansi31" "bhatch" (getpoint) "")
        (command "change" (entlast) "" "p" "LA" "5剖面線層" "")
)

zerowing

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

Michael0576

不錯 試試看，挺方面的

苦菩提

lsp文件在哪個文件夾下？

arfa1424

快捷鍵嗎

ミ百分│汗水

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

逍遙處士

如果用原來的 h 命令，我模擬了一下，要想完成一個剖面線，需要點 8 次鍵鼠，而用了快捷命令，只需要 4 次（ha倆字母+空格+單擊）。

苦菩提

有沒有畫腰型孔的小插件啊

逍遙處士

苦菩提 發(fā)表于 2013-8-10 11:12
有沒有畫腰型孔的小插件啊

. q0 R/ X& P3 y" w! k7 e;;;畫腰孔程序
( |8 c  G7 `1 N( c(defun c:yk()
        (setvar "cmdecho" 0)
  _3 I1 j5 l/ k( {# m2 B! L        (prompt "\n*****畫橫腰孔程序*****")
        (setq var (getvar "osmode"))
        (setvar "osmode" 0)
        (setq lenth(getreal "\n請輸入腰孔長度："))
        (setq width(getreal "\n請輸入腰孔寬度："))
        (if (<= lenth width)
4 _/ f& o8 Y9 ~  ?* z3 o                (progn
' V- Q% ^8 i* s                        (princ "\n腰孔寬度小于長度，請重新輸入！")
                        (setvar "osmode" var)
; F0 O, b4 I* Q& \5 Q) E+ U, Y                        (exit)
                )
        )
        (setq p0 (getpoint "\n請指定中心點："))
        (setq LL (/ (- lenth width) 2))
        (setq WW (/ width 2))
+ u( C. @$ b  n7 S, v        (setq pz0 (polar p0 pi LL))
        (setq py0 (polar p0 0 LL))
* ~  N4 \+ f# Q; ]) \        (setq pz1 (polar pz0 (/ pi 2) WW))
& K+ I6 w2 D3 W+ v# p9 b        (setq pz2 (polar pz0 (* 3 (/ pi 2)) WW))
        (setq py1 (polar py0 (/ pi 2) WW))
        (setq py2 (polar py0 (* 3 (/ pi 2)) WW))
: |" o3 I  x% C. }8 ~        (command "line" pz1 py1 "")
        (command "line" pz2 py2 "")
        (command "arc" "c" pz0 pz1 pz2)
9 O8 [; u! |0 d( U* b& K  ]        (command "arc" "c" py0 py2 py1)
        (setvar "osmode" var)
( A# a  R8 N9 ?9 p1 c4 X1 |2 d        (princ)
)
7 ^; \5 _" v! ^5 [

苦菩提

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