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

逍遙處士

將下面一段復(fù)制到 AutoCAD 目錄下的 acad.lsp 文件末尾,，然后重新啟動 AutoCAD,。畫一個(gè)圓,，輸入 ha ，在圓里面點(diǎn)一下就行了,。
7 X* k& v# u( m0 O2 D  f/ `& J# k+ ^
/ E( Z  k5 {) p! m( I) D; K% G根據(jù)您的情況,，將 "5剖面線層" 改成您想放的圖層名。ha 也可以改成你喜歡的縮寫,，只要不與現(xiàn)有命令沖突即可,。

0 U5 Q! V; x: c2 ?5 E若是天河，圖層名就不用改了,。

; b/ c0 o' C) q* ~/ t( [( m  q(defun c:ha()   
, U5 m2 M9 K# c6 @( D7 S4 V. W7 s        (command "hpname" "ansi31" "bhatch" (getpoint) "")
        (command "change" (entlast) "" "p" "LA" "5剖面線層" "")
)
& Q1 }! I0 U( c& }

zerowing

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

Michael0576

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

苦菩提

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

arfa1424

快捷鍵嗎

ミ百分│汗水

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

逍遙處士

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

苦菩提

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

逍遙處士

苦菩提 發(fā)表于 2013-8-10 11:12
( f5 Q) j9 N8 s5 n0 B, a, Z  ]有沒有畫腰型孔的小插件啊

;;;畫腰孔程序
2 j* V- a( E( n; Z/ o; M2 t( c6 a, K- @2 P(defun c:yk()
        (setvar "cmdecho" 0)
        (prompt "\n*****畫橫腰孔程序*****")
        (setq var (getvar "osmode"))
0 s6 z$ r7 l9 o; M        (setvar "osmode" 0)
8 w5 B) X  Q. f$ r" {3 I! A: E        (setq lenth(getreal "\n請輸入腰孔長度："))
        (setq width(getreal "\n請輸入腰孔寬度："))
        (if (<= lenth width)
0 ?6 l$ s, {( C2 U, b# S8 A                (progn
                        (princ "\n腰孔寬度小于長度,，請重新輸入！")
& d( ]5 |: v6 s. n6 Q                        (setvar "osmode" var)
                        (exit)
                )
        )
, J+ e% W5 g: _+ q2 e2 _5 Z        (setq p0 (getpoint "\n請指定中心點(diǎn)："))
        (setq LL (/ (- lenth width) 2))
7 d4 Z8 M- \8 B  v  U" Y        (setq WW (/ width 2))
        (setq pz0 (polar p0 pi LL))
        (setq py0 (polar p0 0 LL))
        (setq pz1 (polar pz0 (/ pi 2) WW))
/ b+ M8 k/ |2 C: W$ b. B        (setq pz2 (polar pz0 (* 3 (/ pi 2)) WW))
        (setq py1 (polar py0 (/ pi 2) WW))
& r. a! N! ]3 r+ p        (setq py2 (polar py0 (* 3 (/ pi 2)) WW))
! ^8 h( M% A! b8 q  Z8 W: b        (command "line" pz1 py1 "")
        (command "line" pz2 py2 "")
        (command "arc" "c" pz0 pz1 pz2)
7 U# C* F5 p% X) q$ Q        (command "arc" "c" py0 py2 py1)
4 G; Z" {* B3 @+ l9 E8 W        (setvar "osmode" var)
; T( v1 [3 I6 D% D4 M1 `  L: ^' {5 G        (princ)
)
( L* l$ n% w, A* F& _+ S

苦菩提

好棒哦�,？晌乙琅f找不到lsp文件在哪。搜也沒搜到