[AutoLisp] 快速填充 + 自動(dòng)匹配圖層

逍遙處士

將下面一段復(fù)制到 AutoCAD 目錄下的 acad.lsp 文件末尾,，然后重新啟動(dòng) AutoCAD,。畫一個(gè)圓，輸入 ha ,，在圓里面點(diǎn)一下就行了,。
3 ]5 }/ t; F  h2 [5 X) |
( r2 {) x5 P/ L! X根據(jù)您的情況,，將 "5剖面線層" 改成您想放的圖層名,。ha 也可以改成你喜歡的縮寫，只要不與現(xiàn)有命令沖突即可,。

  u  B& `; X: L9 i! Y. a若是天河,，圖層名就不用改了。

4 j' D) a5 \% I" p/ r(defun c:ha()   
/ t) N# ^1 ~6 o! k$ B) l) l. @% Q        (command "hpname" "ansi31" "bhatch" (getpoint) "")
$ E) W5 q3 ~8 A7 {& P4 z, l; E        (command "change" (entlast) "" "p" "LA" "5剖面線層" "")
0 O% J- Y5 W  X8 `" |0 p)

5 r- f1 O* p& |1 ^3 s

zerowing

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

Michael0576

不錯(cuò) 試試看,，挺方面的

苦菩提

lsp文件在哪個(gè)文件夾下？

arfa1424

快捷鍵嗎

ミ百分│汗水

收藏，需要用到的時(shí)候在搞上

逍遙處士

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

苦菩提

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

逍遙處士

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

3 }7 v* `! i& J$ G4 o;;;畫腰孔程序
(defun c:yk()
        (setvar "cmdecho" 0)
/ D( n, p  W5 {2 {0 e1 x. S        (prompt "\n*****畫橫腰孔程序*****")
" F) W* O8 M, D/ o4 c        (setq var (getvar "osmode"))
        (setvar "osmode" 0)
0 o5 u! [1 \- _/ C# F. I( {5 s8 M! `        (setq lenth(getreal "\n請(qǐng)輸入腰孔長度："))
' @4 r$ B5 ^' Y+ J        (setq width(getreal "\n請(qǐng)輸入腰孔寬度："))
, z$ O! G% x( p% _7 x- W$ ~0 K        (if (<= lenth width)
; z9 k" j& D) ]  [1 u8 v( K                (progn
( P6 L8 e. O, H                        (princ "\n腰孔寬度小于長度，請(qǐng)重新輸入,！")
                        (setvar "osmode" var)
                        (exit)
                )
7 }4 D$ p  D8 m3 t; t( T        )
0 b! M- e4 |, E8 h* M        (setq p0 (getpoint "\n請(qǐng)指定中心點(diǎn)："))
0 d" Q2 h2 i' q1 M* N/ I& y        (setq LL (/ (- lenth width) 2))
" n* S1 T7 _* u        (setq WW (/ width 2))
- q$ p3 ^- m9 b        (setq pz0 (polar p0 pi LL))
# B( i- n/ J0 Y3 [        (setq py0 (polar p0 0 LL))
! B& z8 N; [: v1 x6 _* H" l# S6 V        (setq pz1 (polar pz0 (/ pi 2) WW))
# g+ Z9 I$ S# u6 H% F6 S        (setq pz2 (polar pz0 (* 3 (/ pi 2)) WW))
0 M5 T' |8 {: v- @6 Q  Q        (setq py1 (polar py0 (/ pi 2) WW))
        (setq py2 (polar py0 (* 3 (/ pi 2)) WW))
* v8 |. J8 N( `5 C        (command "line" pz1 py1 "")
        (command "line" pz2 py2 "")
5 ?, |, ~0 o3 B* D4 u5 a        (command "arc" "c" pz0 pz1 pz2)
        (command "arc" "c" py0 py2 py1)
4 D# R! u% r" O1 e        (setvar "osmode" var)
' I' Y* h% s' s/ ~, y% R( U        (princ)
)
$ a6 e) R4 y* z* u: X3 o$ b
- o/ T8 m0 r5 Z/ k1 J2 k, W; \) p& M% X

苦菩提

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