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

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

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

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

x

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

BB。LSP纹件下的- ?7 p2 k( O* ~) k
, U2 f- P9 L0 ^8 q1 b6 d4 v

;Mark a component with bubble and number (It is a tool)$ _3 j  u% U, T/ T. u

;****************************************************************
* V8 {& O3 R5 E1 j& O
(defun c:bb( / pt1 pt2 tmp): i5 c) I( c% e% ?" p+ H

  (setq oldcmd (getvar "cmdecho"))
# l* n! }0 Y# q" a
  (setq oldblip (getvar "blipmode"))
8 Y6 Q) U( g/ W- w
  (setvar "cmdecho" 0)2 F2 s  q+ q' E2 d# M

  (setq oldosmode (getvar "osmode"))( b& E: u+ C$ |5 k

  (graphscr)  _8 v2 j! J/ T9 x3 ?: l2 q

  (if ptpre
% h4 X6 ^$ @+ l( N( f
  (progn
- y5 |9 a/ s# M7 U. Z2 }, f
      (princ"Locked by Ver/Hor/None ? <")
/ l  g- ~+ \( e+ A
      (princ str)
5 Z# m: `7 D4 o
      (princ ">")
* t6 b( h9 t9 @4 J7 a8 y
      (setq tmp (strcase(getstring)))
, B) j3 K) M! J) _# ~+ O
  )! }- W* h3 s* G9 I  \; `

)
8 ~: s# Q* _1 @( H
(if (/= tmp "")
# v" O0 z6 g) ]  q$ b. `% E2 x
(setq str tmp)) i7 A7 b* i8 }- q6 L1 ~

)
' }7 U- O% v* K* y, `- T" i
(setq pt1 (getpoint "Firstpoint: "))- R& O) G: ~$ S( r9 _5 C5 H

(setq pt2 (getpoint "Centerpoint: " pt1))
1 u# _# _$ G0 H
(if (= str "V")# G  Y# v  t& A/ R& a: c3 q/ T- E

(progn9 d3 M0 E8 S, g

         " E7 f' [- n& k% _  f/ V) H

   (setq pt2 (list (car ptpre) (cadr pt2)))
. n7 g! u$ F% Q7 W( V9 c
   ;(setq ptpre pt1)
7 R1 Q. B! Y0 |4 f
)
5 M, q: x# R2 d1 m0 y
)  y! i1 k# T' D& X$ ^  E1 F3 d3 N

(if (= str "H")2 _0 W0 X, ~/ M/ D( k

(progn
* q; B+ Q$ d/ r& E
   (setq pt2 (list (car pt2) (cadr ptpre)))$ h, A2 V/ Q. i7 K+ r5 j

   ;(setq ptpre pt1)
. x! D, t9 k+ z6 Y' l
)  m( n; ~9 U8 @9 ~+ w4 g" U% \' n

). U: l" O& ~0 U! x7 w

(command "style" "romans" "romans.shx" "5" "1" "0" "" "" """")8 O- w. W' v  Z4 J9 S. @, V4 I1 R

(progn3 T# H7 Y6 K% N: |6 w! s

(setq pt22 (polar pt2 (angle pt2 pt1) 6))/ M) P; h" d! E5 u8 d! Q$ o5 W

- U0 u  [* O' f1 w6 x. b6 E
(setvar "osmode" 0)1 r7 l% v0 q% L$ B5 N' o. k

(setq dmbk_old (getvar "dimblk"))+ {8 W3 D4 h, r! }+ z/ ~

(setq dmas_old (getvar "dimasz"))0 S! b$ i" G% c- a$ W0 k% q

(setq dclrd_old (getvar "dimclrd"))
* m, d' ]/ m4 q- r. N9 K
(setq dldrblk_old (getvar "dimldrblk"))
0 g$ O% C3 z5 E& p/ f+ z, a
(setvar "dimblk" "dot")
. `6 O: G1 q" Y) S* v4 C. T- ~
(setvar "dimldrblk" "dot")
" Q" R1 C( ^  ?! ^
(setvar "dimclrd" 3)4 c, ]. E1 @1 W4 I6 W# J3 q2 E

(if (/= 0 (getvar "dimscale"))+ h3 A' Y, d5 z) }1 R! U7 T/ K* m

(setvar "dimasz" (/ 1 (getvar "dimscale")))
- ^& _6 H3 N5 p) g1 J
(progn
1 _+ g$ S' [0 b) R2 ]) m0 ~2 s8 z
   (setvar "dimscale" (/ 3 (getvar "dimtxt")))- w) j9 Y3 n( T) y

   (setvar "dimasz" (/ 1 (getvar "dimscale")))1 v2 b1 Q% @* b  K2 r0 h

)# e% R6 G" m+ |& c2 t' r

)
1 v1 `  G& `; O  S* @
(Princ "Bubble text:<")% Z8 u" L0 ^: |. p3 i

(if tx
+ ?6 R* O7 ^, U0 }& y. ], ]8 a/ u
(princ tx)7 E2 o) K1 W( k4 J  S

(progn
( H2 i2 ?- o: ~0 `: H; ~
   (setq tx 1)
* J+ O9 T+ V+ j* l9 p0 @
   (princ tx)( O) }( u$ [: V, R: Y

)* W7 u8 s/ O( O3 q5 k. Z

)
* X' M+ `" y/ S
(setq tx_ent (getint ">:"))4 |  J0 c6 s8 O1 J+ k* ?: e

(if tx_ent
: I% {) Y9 {7 L9 G" K' f
  (setq tx tx_ent)
0 X# O, n3 Y; {1 M( z( K' |3 u9 V  D
)
; y8 \7 B' n- D( Q6 I6 B
(command "leader" pt1 pt22 "" "" "_block" "item" pt2 "" "" "" tx)
3 t! A- [% ~9 h6 f8 I; l
)/ P; e5 Q  S- j0 c4 H( _6 M! ^

(princ)
0 o2 l9 g* L8 Y- h6 m
(setq tx (+ tx 1))1 F! D) j! ?; o4 h$ L

(setq ptpre pt2)4 ~5 G+ v% d# I( P

  (setvar "cmdecho" oldcmd)+ j4 i8 d8 y* s

  (setvar "blipmode" oldblip)' u) F, [6 G3 i* C

  (setvar "osmode" oldosmode)
4 e3 X. m; `! b2 A# M! L
  (command "style" "standard""""""""""""""")$ b* F. z/ T( p' Y

  (command "dimblk" ".")
3 h& d% ^) }: e: ?, L, B: C
  (command "dimasz" dmas_old)  v' e  s3 G( L( q+ k) i

  (setvar "dimclrd" dclrd_old)
7 }2 P/ J$ S' p# f1 a
  (setvar "dimldrblk" ".")* N. S$ C: A4 ?3 _. M( _

  (princ)/ \0 L6 e" T' P  H% \0 k+ C5 p

)! U2 E% x3 D' {: [- V

(princ "本程式已编写，欢迎批评指正以作进一步修正"), y0 `  ~8 S( D3 t* d* U' J

复制代码
- k) \9 T5 P, b$ u- _* E7 ?- @! X
. e( W! N( H  {. r% O) k$ g

8 ?+ S" ]$ `3 K1 [把插件给你们！

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

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

这是宏程序。

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

lisp程序啊

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

全站		goto3d 说: 此次SW竞赛获奖名单公布如下，抱歉晚了，版主最近太忙：一等奖：塔山817；二等奖：a9041、飞鱼；三等奖：wx_dfA5IKla、xwj960414、bzlgl、hklecon；请以上各位和版主联系，领取奖金！！！	2022-03-11
系统		[系统通知] 平台第一个项目外包——项目拼多；正式上线，欢迎各单位个人有外包、设计、采购、加工需求的，在此寻找更牛的解决方案	2021-07-01

通知

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

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