機械社區
標題: [AutoLisp] 快速填充 + 自動匹配圖層 [打印本頁]
作者: 逍遙處士 時間: 2013-8-9 11:58
標題: [AutoLisp] 快速填充 + 自動匹配圖層
將下面一段復制到 AutoCAD 目錄下的 acad.lsp 文件末尾，然后重新啟動 AutoCAD。畫一個圓，輸入 ha ，在圓里面點一下就行了。7 X& F+ v/ m# s6 G
4 ?! i: C; ?2 E! ^ s- C7 F8 `根據您的情況，將 "5剖面線層" 改成您想放的圖層名。ha 也可以改成你喜歡的縮寫，只要不與現有命令沖突即可。
j7 q& u- O9 e6 p3 g, |3 |( h- [# ?, [& [" b3 h1 O2 D
若是天河，圖層名就不用改了。3 } t5 I/ T+ ^- B; K; O9 ]& C& [
' Q3 E' A4 O5 W6 @6 ?6 \. K/ [( k
(defun c:ha() , g2 F0 [/ {* k7 `3 n& B+ G* O! g
(command "hpname" "ansi31" "bhatch" (getpoint) "")
" C& F/ a, L( {9 u (command "change" (entlast) "" "p" "LA" "5剖面線層" "")
/ k) O# ?9 R/ Y' _' i* h2 i2 x; z)
9 Y `% l) p& O, }8 ~
6 }! s- s& o& f$ [# _4 y
作者: zerowing 時間: 2013-8-9 12:01
感謝分享啊。逍兄。俺收下了。
作者: Michael0576 時間: 2013-8-9 12:44
不錯 試試看，挺方面的
作者: 苦菩提 時間: 2013-8-9 13:32
lsp文件在哪個文件夾下？
作者: arfa1424 時間: 2013-8-9 14:12
快捷鍵嗎
作者: ミ百分│汗水 時間: 2013-8-10 10:26
收藏，需要用到的時候在搞上
作者: 逍遙處士 時間: 2013-8-10 10:38
如果用原來的 h 命令，我模擬了一下，要想完成一個剖面線，需要點 8 次鍵鼠，而用了快捷命令，只需要 4 次（ha倆字母+空格+單擊）。
作者: 苦菩提 時間: 2013-8-10 11:12
有沒有畫腰型孔的小插件啊
作者: 逍遙處士 時間: 2013-8-10 13:47
苦菩提 發表于 2013-8-10 11:12 
/ x7 w; X0 _: n6 y5 w# d. S; n
有沒有畫腰型孔的小插件啊
;;;畫腰孔程序. Z3 B( ^* n; y
(defun c:yk()7 t# w2 p7 |6 B6 M4 D
(setvar "cmdecho" 0); k! }6 G7 v- d7 F3 a- a7 a
(prompt "\n*****畫橫腰孔程序*****")
, ~, C1 l5 n( a+ L$ ^ (setq var (getvar "osmode"))2 c& v5 R v( ]. i4 L+ Y& v. ^/ Z
(setvar "osmode" 0)
9 R7 l- m7 S* U5 s% C8 `$ o2 J* a (setq lenth(getreal "\n請輸入腰孔長度："))5 e( O& z# c9 i! f
(setq width(getreal "\n請輸入腰孔寬度："))
# |5 N& E' l. i0 s3 ?6 ^ (if (<= lenth width) 4 y( `' K _' A J) d2 Z' R/ v
(progn4 d- o# ]' F: m: q; {
(princ "\n腰孔寬度小于長度，請重新輸入！")* s" A, ?6 p/ M2 w
(setvar "osmode" var)
5 C+ s: W: a4 I+ v. _ (exit)- G& p& ^( T- X) h: ~
)# @* U& I- R. ^( G x
)
+ H: ?4 d0 q2 a' ]' {$ E! o' ~: { (setq p0 (getpoint "\n請指定中心點："))' l% ]% \( b* o( a, B4 [
(setq LL (/ (- lenth width) 2))1 Y$ w* q: @; Q1 ~5 G" s( m+ ]% o
(setq WW (/ width 2))
5 m9 X y/ E& ] H8 R R1 \ (setq pz0 (polar p0 pi LL))5 j0 W# m# J9 m0 B5 o' ~
(setq py0 (polar p0 0 LL))5 C, h9 I. Q* n5 h
(setq pz1 (polar pz0 (/ pi 2) WW))# ?6 F9 T4 H( a) C6 j! L
(setq pz2 (polar pz0 (* 3 (/ pi 2)) WW))4 E7 ]$ ^8 g! S* {9 O, p
(setq py1 (polar py0 (/ pi 2) WW))/ S8 [1 k, A1 l$ r4 C6 m6 ^
(setq py2 (polar py0 (* 3 (/ pi 2)) WW))& P. R/ h# l2 V9 O5 B
(command "line" pz1 py1 "")
4 P* O' z+ }8 {( f( {& q& t (command "line" pz2 py2 "")! C0 B( W+ O* j8 h
(command "arc" "c" pz0 pz1 pz2) F5 e w; G0 N+ [
(command "arc" "c" py0 py2 py1)# X* T6 }) c2 [) R. K. G
(setvar "osmode" var)8 y$ ?+ s' }3 P1 i9 F
(princ)9 X6 v0 h3 ]0 u% ?7 ~
)
+ O2 P: D! Y! f+ C- R5 B3 I) ]6 m3 n* q8 _: `
作者: 苦菩提 時間: 2013-8-10 13:53
好棒哦?？晌乙琅f找不到lsp文件在哪。搜也沒搜到
作者: 苦菩提 時間: 2013-8-10 14:09
試了滴親。搜不到這個acad.lsp文件或者文件夾
作者: yichuxi 時間: 2013-8-15 16:28
看了樓主的帖子，我也找不到我的acad.lisp文件，然后上網搜了一下，是下面的解釋，是不是我的acad.lisp文件被360當成病毒刪除了？; X K8 M, l" {$ F$ z2 U8 W, d
簡介 acad.lsp是AutoCAD軟件的Lisp腳本文件，當打開AutoCAD圖形dwg文件時會自動運行相同文件夾中的名為acad.lsp的腳本文件，這使得acad.lsp文件成為計算機病毒在裝有AutoCAD軟件的電腦之間傳播的一種方式。
通過acad.lsp文件傳播的病毒稱為CAD病毒。
編輯本段中毒癥狀 中毒特征：AutoCAD圖紙文件所在文件夾中會自動生成acad.lsp文件。
病毒危害：通過acad.lsp文件傳播的CAD病毒種類很多，因此癥狀各異，但經常體現為AutoCAD軟件中部分功能的異常。主要現象有：填空不顯示、尺寸箭頭空心，鼠標中鍵不能平移視圖，移動命令成為復制，分解命令無效等等。
編輯本段預防方法 用WinHEX軟件打開AutoCAD的主程序exe文件，查找字符串acad.lsp，然后把acad.lsp改寫成任意別的字母，保存。
這樣就不會自動運行acad.lsp文件了，徹底切斷acad.lsp傳播途徑。
直接刪除圖形文件夾下的acad.lsp、acad.fas，之后再打開文件就安全了
& v: R8 W' f1 x3 ~
作者: 開葆手 時間: 2013-8-22 20:22
收藏了
| 歡迎光臨 機械社區 (http://www.ytsybjq.com/) |
Powered by Discuz! X3.5 |