求助高手，，这个是什么东东？插件？辅助外挂？

q542748861 · 发表于 2011-11-19 11:10:58

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

您需要登录才可以下载或查看，没有帐号？注册

x

本帖最后由 woaishuijia 于 2011-11-20 11:12 编辑

BB。LSP纹件下的
% t0 F) E, |8 f( ]) Q
) m  _* P3 _1 |) a# B$ j4 G2 U
;Mark a component with bubble and number (It is a tool); @' }- l, R6 u% i. E8 K" ?

;****************************************************************6 J2 `2 q3 S- `% A. M

(defun c:bb( / pt1 pt2 tmp)
" ~: ~# `/ Q" n
  (setq oldcmd (getvar "cmdecho"))7 P) K1 h- t7 s

  (setq oldblip (getvar "blipmode"))
% }4 E& {! j  S6 w% g  `
  (setvar "cmdecho" 0)
7 E0 L  ~. y; `( g3 J3 m' b; P. }
  (setq oldosmode (getvar "osmode"))
$ x  N3 Z: ^, E; n* J9 |: r9 S
  (graphscr): ~% x9 q/ f+ `. L7 M% W

  (if ptpre0 ?. p3 }9 L% m: r! F* M) c

  (progn
2 H9 t1 e* P6 v
      (princ"Locked by Ver/Hor/None ? <")$ N$ A& X/ ~2 ~$ j+ x, c/ u

      (princ str)* J! b, c9 R# n, H) w" T1 b

      (princ ">")$ s. B4 ~) }3 V" f% i2 H* h

      (setq tmp (strcase(getstring)))
( K7 p/ L; z3 f5 `4 {
  )! q7 H( ~& \4 e* u1 R' ^; Z/ F

)$ g) W) f1 K( n3 P( u# _" O, O

(if (/= tmp "")
% r; g  w+ {9 u5 m% D! }
(setq str tmp)
; c$ `; \( B6 Z; k  X+ H
)
% g' P* F0 ~3 N6 t/ D
(setq pt1 (getpoint "Firstpoint: "))8 {# ]4 C# q) o- t: g" U9 B1 h" G) \

(setq pt2 (getpoint "Centerpoint: " pt1))4 ?3 ?8 N1 v1 q

(if (= str "V")
- |1 S5 j$ [( }" V
(progn; _: m9 C( B6 ?  Q( o

            B! R& @) c# l1 |# G5 O

   (setq pt2 (list (car ptpre) (cadr pt2)))8 u; n6 K% G; W% K( z5 P2 U

   ;(setq ptpre pt1)# }" p. W2 T) s, K! M6 }7 @

)/ K8 {; j+ `8 d7 P1 H( D

)5 w; A. P' u/ l$ T9 ~  a4 A3 A! t) B* p

(if (= str "H")
  E/ ~2 P4 a1 W4 I
(progn
3 x. X8 e9 u( G( _  A0 l
   (setq pt2 (list (car pt2) (cadr ptpre)))
' P; d5 I0 D4 ]- E* b
   ;(setq ptpre pt1)
$ {% ^9 k" p* j# L. P1 @9 N1 l! M
)( K6 r( z+ }" N1 |  T! |  W/ j

)
, x( }" j  f: R) K" y8 ^. {
(command "style" "romans" "romans.shx" "5" "1" "0" "" "" """")3 x% e& o1 E, _. @

(progn; G; X' v! ?3 q3 @5 F' k  C, }

(setq pt22 (polar pt2 (angle pt2 pt1) 6))$ ^0 _. D; X! K6 E& |4 e9 o4 }+ _

* p9 v* {" O2 O4 ^. p

(setvar "osmode" 0). x" \$ h/ F9 Z4 y- q' S

(setq dmbk_old (getvar "dimblk"))
- e8 Y! y4 r4 U4 }- ?" M
(setq dmas_old (getvar "dimasz"))
5 I0 `- a4 p' d7 C7 [. E9 E
(setq dclrd_old (getvar "dimclrd"))7 h0 F5 ~. Y$ j, w: k& ?

(setq dldrblk_old (getvar "dimldrblk"))
% V2 w4 t; z  X9 M# v2 V; n
(setvar "dimblk" "dot")
- p8 }9 Y- I7 v
(setvar "dimldrblk" "dot")
! d) A; X3 q* D4 E
(setvar "dimclrd" 3); ^- N' X$ n5 @+ p0 ^

(if (/= 0 (getvar "dimscale"))
- J* r: V' p5 @4 [2 E0 m: y
(setvar "dimasz" (/ 1 (getvar "dimscale")))  B6 @! n% b4 y& Q  ^  d

(progn- Y" D/ g, I3 K) u' p

   (setvar "dimscale" (/ 3 (getvar "dimtxt")))
& D- f& g  m7 t6 x3 F5 d5 U. v& t
   (setvar "dimasz" (/ 1 (getvar "dimscale")))
9 S! @8 j# v3 h' i% a& V6 B
); Q! T- j4 c, F

)0 k! S6 ]" q" X4 ^% j

(Princ "Bubble text:<")
4 s) g6 v* \1 K+ Q
(if tx6 \; g' t$ `' o, e' E$ j

(princ tx)
8 f: {8 T8 r: m
(progn
# }4 X' b& y9 v! q6 e/ x8 n/ y
   (setq tx 1)3 a8 z9 H" j3 ?

   (princ tx)
( K- @$ e6 W  c8 C* {) J
)) E3 L- a6 g+ `5 O7 z& T

)0 Z3 `2 V5 ?( M4 d  y& f7 ~7 l

(setq tx_ent (getint ">:"))  f' }& J, k/ q; G( E

(if tx_ent
5 _0 `5 a: f" l! z: h: H7 y' G# \
  (setq tx tx_ent)
1 f, W& C" T+ `0 B8 w, h. e, D
)3 m# Q+ A6 t2 E

(command "leader" pt1 pt22 "" "" "_block" "item" pt2 "" "" "" tx)- g4 K1 r6 W5 j/ q: e* W

)
8 Q7 w7 h0 g3 O0 _( l  k
(princ)
; Q) q% W8 w3 Q1 k6 s# f  Q' \1 L
(setq tx (+ tx 1))
5 x* _/ h( w/ N  B
(setq ptpre pt2)1 V! [( x, M" J6 U2 W

  (setvar "cmdecho" oldcmd)
, n( F, g' W5 E* X' R& p0 L
  (setvar "blipmode" oldblip)
# y# l5 d6 G! a* V" D( Q
  (setvar "osmode" oldosmode)
$ r$ Z. W5 }' w1 Q6 t/ v$ F
  (command "style" "standard""""""""""""""")4 Z* o$ @5 r* e; A0 r0 H, v9 _; N, [

  (command "dimblk" "."); P+ O6 K+ m& A1 p& D0 k

  (command "dimasz" dmas_old)
4 r- ]9 v7 C. F/ ^* Z- K6 D) P$ P
  (setvar "dimclrd" dclrd_old)3 r# h2 r, C4 L* x% O+ {% _1 |

  (setvar "dimldrblk" ".")9 B/ m& X$ k7 _0 I

  (princ)0 |9 x% U3 ?. G- b4 j; ?: o) l

)4 O) `: l/ Z* \, Y; F

(princ "本程式已编写，欢迎批评指正以作进一步修正")
- h4 w* S/ x& N! d
复制代码

" K2 t: M+ \7 d) j7 a! l  X- g9 i$ ]7 m  ^% s

4 m/ N8 P, p9 z: C! o把插件给你们！

辅助插件.rar (13.18 KB, 下载次数: 4)

jmok520 · 发表于 2011-11-19 15:44:42

这是宏程序。

feitianyiliu · 发表于 2011-11-23 19:49:10

lisp程序啊

		自动登录	找回密码
密码			注册

通知

[求助] 求助高手，，这个是什么东东？插件？辅助外挂？

马上注册，结识高手，享用更多资源，轻松玩转三维网社区。

浏览过的版块