(defun c:name(/ pt pt1 p1 p2 yy mm dd s text1 osd layer_old rr)
' [9 o+ k) \9 R- l- Y$ h (setq osd (getvar "osmode"))
, ^/ ^. i8 b* |8 z6 G" M. N9 u (setq pt0 '(142.0 5.0))
$ x- X" y% H* a& h* A (initget 128)5 J" g9 y' T1 C2 ?
(setq pt (getpoint "\n请选取签名插入点"))
3 Q4 o) M5 i* X" F- @ (if (= pt nil); f6 u4 u# ]8 T, f) H9 {
(setq pt pt0)
$ B/ R! `/ V; D/ Y/ s: { )
) u6 y3 s4 G9 @ ^* I; K; d7 I (setq pt1 (polar pt (/ pi 6) 35))
+ @* X0 w# j( B: y* ?2 r (setq pt2 (polar pt1 (/ pi 8) 3))$ v! t) O6 A a( z+ h; f
(setq sse (ssget "_c" pt1 pt2)) % q9 x3 a+ a. Y7 r
(command "erase" sse "")
+ R: C' S2 u4 T3 V+ O, K8 Z* h) [
^5 I7 R8 [+ @, |# z/ \ (command "insert" "n1" pt "" "" "")
) B# O8 C: j5 Z# ]2 n" L$ l9 X (setq s (getvar "cdate"))
- P8 j+ _+ G5 X (setq rr (- (* s 100000000) (fix (* s 100000000)))) X9 o& @* z" l: P
(setq yy (fix (/ s 10000)))% e" H J; W; M/ ^" ]+ V
(setq mm (fix (/ (- s (* yy 10000)) 100)))7 t( h4 _% |$ F6 Y
(setq dd (fix (/ (- s (* (fix (/ s 100)) 100))))); U+ H3 n8 x$ x M
(setq text1 (strcat (rtos yy) "/" (rtos mm) "/" (rtos dd))); H @/ d& K' r( \
(setq p1 (polar pt (* 41 (/ pi 180.0)) 44.0))7 N( |( x3 a# Z: L% \
(setq p2 (polar pt (* 0 (/ pi 180.0)) (+ 50.0 rr)))
$ ]/ i5 D/ Z4 z9 y. q (command "style" "txt" "txt.shx,gbcbig.shx" "" 0.85 "" "" "" "")* w4 \& b8 }; j) a; z
(setq layer_old (getvar "clayer"))
* E1 T9 w$ U% I$ r4 t# |- S (setvar "clayer" "text")
/ A9 W Q8 Z6 y (setvar "osmode" 0)# ]# E9 ^/ ^1 x, r0 G% f# B9 @
(command "text" p1 2 0 text1)
: y% c* a. K0 ] (setvar "cecolor" "40")5 S5 X/ |, u# T0 i5 J
(command "point" p2)
; e) P; |# `1 A3 Q) ] (setvar "cecolor" "bylayer")
: L7 u2 t) J" r& `4 Z (setvar "clayer" layer_old)
5 O/ ?* E9 L1 ~1 X6 Z (setvar "osmode" osd)
7 h1 Q# u# O1 c (princ)* D$ R" v T. W: X$ B2 c$ o
) |