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

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

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

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

x

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

BB。LSP纹件下的
" K- r7 {2 \: Q: b
, l6 U8 j! @+ g
;Mark a component with bubble and number (It is a tool)! F" p# y+ N* `- A+ k, i

;****************************************************************
9 ^/ T. c/ x9 Z
(defun c:bb( / pt1 pt2 tmp)2 J. X. h/ ~! t& W0 z! g

  (setq oldcmd (getvar "cmdecho"))1 [9 f) @- Z( a$ Y

  (setq oldblip (getvar "blipmode"))' B6 t6 y4 L, W, g

  (setvar "cmdecho" 0), }8 X4 |/ m+ {* g  r" W

  (setq oldosmode (getvar "osmode")), q1 P$ v' m3 ]! m- `

  (graphscr)+ u, u3 i5 Q7 f

  (if ptpre4 W7 z9 s' w( u7 A/ J# {

  (progn3 y. i) F0 f( a. l8 q

      (princ"Locked by Ver/Hor/None ? <")
' z; T3 f! _1 f: v! J) a7 j
      (princ str)
$ @- D% H9 f# L2 ~
      (princ ">"): T2 H. ?' t& `* q; {. D$ v1 ]0 r

      (setq tmp (strcase(getstring)))
1 G' y4 l" ^% [. L' M3 h/ w! C
  )- j/ L# q- j  c3 O) x7 M

)
) _( @, D( \3 u/ W  |
(if (/= tmp "")
% O; u! O9 X; m; ^, M
(setq str tmp)
0 m4 y, A& R/ f# K* ]) ]6 ?1 q7 T
)! S, l% c' K* T9 T- }# ~

(setq pt1 (getpoint "Firstpoint: "))
, V* G" U! B" h2 a' u& l4 U. n! }4 \# F
(setq pt2 (getpoint "Centerpoint: " pt1))
8 R7 U! X% {8 x& ~4 G% n
(if (= str "V")1 h1 U& O; l6 |1 P# k

(progn% \7 o+ J3 V" ?' u6 D/ K

         , ?- w+ L" r( Z

   (setq pt2 (list (car ptpre) (cadr pt2)))
1 c. ?- K2 F6 r+ h. H
   ;(setq ptpre pt1)
4 m5 F( j3 f6 s
)
1 s6 R% p* n1 |9 O- {& ^8 Y9 V
)
, J9 o' U5 I( i0 A
(if (= str "H")# a$ I/ h, t+ T3 G  Q

(progn
: P& o8 ^) G3 A2 C3 \) k( ]. T
   (setq pt2 (list (car pt2) (cadr ptpre)))$ W0 m; r  ?( m, l! r& j

   ;(setq ptpre pt1)# P* I( T, O, b5 K) |2 @

)4 a" N4 h( w' a4 i" {

)
( Q$ r1 _/ a& j6 M3 u4 G
(command "style" "romans" "romans.shx" "5" "1" "0" "" "" """")$ A' ~! N  `, m) H( F

(progn
' X5 P* o4 U- a' f4 o
(setq pt22 (polar pt2 (angle pt2 pt1) 6))
' I# _' }% ]& ?: A6 n9 r

" }* ?- H; i. p: \: F
(setvar "osmode" 0). l. ]( U. U6 t8 y" k4 R. J$ G* o

(setq dmbk_old (getvar "dimblk"))% M2 Z9 r. p: K/ E* L  n

(setq dmas_old (getvar "dimasz"))! o8 e- e7 h4 i- T6 F0 D

(setq dclrd_old (getvar "dimclrd"))
, |& Y9 [# l( n5 \7 s+ ?
(setq dldrblk_old (getvar "dimldrblk"))8 [# j  j/ h3 R/ i( d

(setvar "dimblk" "dot")- ]/ O2 ]. d  i: c; c: c0 a

(setvar "dimldrblk" "dot")% h+ P6 F* y6 K4 b/ {

(setvar "dimclrd" 3). j7 [5 Q5 U5 \& ?" {

(if (/= 0 (getvar "dimscale"))
3 M- s/ K. l# {
(setvar "dimasz" (/ 1 (getvar "dimscale")))) t4 |+ {. @0 z0 T  t7 _' {

(progn8 }8 `! j4 m! @9 }! U$ d  |% \

   (setvar "dimscale" (/ 3 (getvar "dimtxt")))* G! {: }( M; S5 o, ?

   (setvar "dimasz" (/ 1 (getvar "dimscale")))
+ E4 O& A7 h( o) t
)
* p. e8 w# i# X
)9 s' e2 N& g% u

(Princ "Bubble text:<")
; [# x6 d  `) s: ^* R( e
(if tx' S; i7 i. T( e/ b0 Q+ r

(princ tx)
1 @+ E% W- h7 ~  B1 L4 c6 j- Q( _
(progn- P% j& t/ ~  _6 K, l0 c

   (setq tx 1)1 F4 C2 i9 H5 w4 U: A  [* {3 z4 E

   (princ tx)" R, \3 U" V( S7 N$ q3 {6 D

)
" {9 u, y1 j; `- D
)8 {  X2 r, D# e% Z8 S. k7 v2 A5 Q" [

(setq tx_ent (getint ">:"))6 C2 W0 r' g% e: X( X

(if tx_ent; X9 Q$ ?$ _7 E

  (setq tx tx_ent)6 S/ d! d  a" S/ W: |7 [" G

), g7 `+ k/ N: |( I

(command "leader" pt1 pt22 "" "" "_block" "item" pt2 "" "" "" tx)  w4 w/ ~* e" h) @; `" a( l

)
* |' b1 y7 r# |4 c) \0 B9 Z- _3 R
(princ)- C: r* e5 o+ g* |3 M* k# w8 r2 W4 Z; o

(setq tx (+ tx 1))
1 _) l$ {2 L# c; o
(setq ptpre pt2)
6 F% s/ }7 X: c, _* L/ }
  (setvar "cmdecho" oldcmd)9 |; W9 T. t5 Z' x' k9 T3 w/ T. G8 y

  (setvar "blipmode" oldblip)
: x- N3 M3 t. L/ v1 s9 [
  (setvar "osmode" oldosmode)
4 L4 P6 M2 g* u
  (command "style" "standard""""""""""""""")/ D! H( G& K1 M$ Q" p( H" y

  (command "dimblk" ".")
# d  d" C3 l% X' Q4 k/ k( Y0 l
  (command "dimasz" dmas_old)4 e& [. Y7 C+ q  _( T" \

  (setvar "dimclrd" dclrd_old)) p$ Y2 e0 p  l4 g8 S' Y

  (setvar "dimldrblk" ".")
8 @. l& {! J& e. G; t- V
  (princ)
6 V+ _- Z4 [8 q$ E" u, O
)
! l+ z/ L! I' D9 `' }7 ?) F
(princ "本程式已编写，欢迎批评指正以作进一步修正")+ k4 Y$ s2 ?1 }- f% ^- |

复制代码

  M& Y$ L9 E& H8 f
9 |: L. c# y; V% _4 F1 `/ e& K7 r" U% t+ _" ]/ e; T
把插件给你们！

辅助插件.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

通知

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

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