Bộ AutoLISP Do kts. Trần Ngọc Thắng TỰ BIÊN SOẠN + SƯU TẦM - Thư viện xây dựng: Tiêu chuẩn xây dựng- Văn bản- File mẫu- Sơ đồ- Quy trình- Phần mềm xây dựng

********************************************************************************
- R) V& `2 ^9 t$ U3 P8 d/ F- c
* ACADLISP FOR AUTOCAD R.14 -> AUTOCAD R.2012 *; v& E8 C* {& K7 d9 K& E
* Tran Ngoc Thang DHXD-HaNoi41 from years 1999 -> 2015 *1 E) ^! a! e3 P' `
* Suu tam & Soan *
5 e+ |+ F% o. F
********************************************************************************
. G6 x; h" ~5 B
; A5 n. O0 z" r7 N
; Next available MSG number is 1046 T, K' I- h0 Z& ]2 X6 i4 X
; MODULE_ID ACAD2000doc_LSP_
: d6 P- G6 F4 N; ^! ^
;;; ACAD2000DOC.LSP Version 1.0 for AutoCAD 2000+ Z9 \- a& b9 t* D# s v2 s' M- o
;;;2 H- s! F) h& f9 ~) y
;;; Copyright (C) 1994 - 1999 by Autodesk, Inc.& j0 i) N6 l( U7 I
;;;
3 A% i( o2 E! j; l
;;; Permission to use, copy, modify, and distribute this software
+ r( W) V- o7 F' Q4 V2 q2 i: s
;;; for any purpose and without fee is hereby granted, provided
$ l( F/ Y7 p4 C* G- f) Y$ Y
;;; that the above copyright notice appears in all copies and
0 @7 J8 A! |* R0 `- y
;;; that both that copyright notice and the limited warranty and+ Q; }3 L) U8 T- _' g' ]
;;; restricted rights notice below appear in all supporting
3 f R3 D: b( Z1 d
;;; documentation.- _1 O$ j% n ~- F% }- b! M4 ]$ O
;;;9 E: Z. w2 q0 J2 M# z- ?
;;; AUTODESK PROVIDES THIS PROGRAM "AS IS" AND WITH ALL FAULTS.
+ U8 w/ p6 p5 W. p' n1 g% A4 F! {
;;; AUTODESK SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTY OF; A: ]: V4 j* d. V, D
;;; MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE. AUTODESK, INC. M. F7 {2 _% @- \4 l; G _# ?
;;; DOES NOT WARRANT THAT THE OPERATION OF THE PROGRAM WILL BE
4 H9 M4 \, z! z. N9 _9 Q! u
;;; UNINTERRUPTED OR ERROR FREE.: _( e9 q+ Z, @6 V
;;;" C. Y7 J: G# Z7 W2 U, Z( P5 h! ^8 U
;;; Use, duplication, or disclosure by the U.S. Government is subject to
2 j6 E6 h `3 L6 }
;;; restrictions set forth in FAR 52.227-19 (Commercial Computer7 b% Z+ Q1 n; t$ ~8 b5 E2 d+ l. p
;;; Software - Restricted Rights) and DFAR 252.227-7013(c)(1)(ii) $ h8 ^" r* @! l+ S; \
;;; (Rights in Technical Data and Computer Software), as applicable.4 r% E( Y: K4 R+ T$ `
;;;" H% c3 U6 ~4 M7 C
;;;.
. f: e, O$ d+ s( x8 X8 K, A
;;;3 B2 d; w2 _' B$ K. }
;;; Note:
P$ ^" h6 J- e3 _6 k# u
;;; This file is loaded automatically by AutoCAD every time
, b1 x0 L K) H! M( g
;;; a drawing is opened. It establishes an autoloader and
! H% }, Y; D+ ^
;;; other utility functions.
6 ]$ S8 f9 z* W
;;;
) K% `1 Y' w0 P8 k. t) W
;;; Globalization Note: + S9 Z; M* K! L3 i% H/ o6 a
;;; We do not support autoloading applications by the native
( }8 G) \$ j. J1 s1 c6 E( a! r
;;; language command call (e.g. with the leading underscore) ?( X; C) a, N* @* Z, N
;;; mechanism.)% K) O. p' Y5 _8 U9 u4 V0 U/ `
' T+ g ~& k: Z1 I$ D; N
$ h* i7 k; s6 |# I1 q
;;;===== Raster Image Support for Clipboard Paste Special =====
7 B: o5 n; a0 b3 v
;;
# w; d/ b- K" D+ L# ~
;; IMAGEFILE
5 l9 y0 u B6 b9 M0 K5 s, e
;;( M9 ^( x2 x* M! }9 {" f! ^
;; Allow the IMAGE command to accept an image file name without, p- o7 }& |( T: n) a/ a% C, H
;; presenting the file dialog, even if filedia is on.# i: m d, ?4 V4 G
;; Example: (imagefile "c:/images/house.bmp")
: ]$ m4 i, G! E" o2 P% O
;;- {* K3 U( U, ~" j- F' ~9 y! |
(defun imagefile (filename / filedia-save cmdecho-save)
8 x0 H' L7 F" f7 u7 n" ]5 g
(setq filedia-save (getvar "FILEDIA"))
; n+ V( `' q" `9 b) w6 ~0 U8 M& S8 Q( Z
(setq cmdecho-save (getvar "CMDECHO"))4 Y' s! A$ X. ^' \( c; |* w+ o
(setvar "FILEDIA" 0)
. C* M5 v6 \0 } q
(setvar "CMDECHO" 0)
. Q! X! K1 m, D" g& |
(command "_.-image" "_attach" filename)* o( @7 J$ q6 M; n! S
(setvar "FILEDIA" filedia-save)
4 K x* h V1 L/ U$ A9 P
(setvar "CMDECHO" cmdecho-save)6 x( E& G1 ]4 ~
(princ)
( r% @* h+ M k
)8 C' Z' W* m' d0 o
' V4 ~4 a7 ], d
(defun c:zx () (command "zoom" ".5x"))
4 Q, B7 j& D4 e* V) T
(defun c:zz () (command "zoom" "p"))
4 R8 t# ~$ C9 E+ s
(defun c:za () (command "zoom" "a"))
$ Q# d5 J4 f* t: p& u0 Q3 t
(defun c:zd () (command "zoom" "d"))/ d- h. t* H4 I5 C( D: k# w) r1 e
(defun c:ze () (command "zoom" "e"))
- }7 Z+ e1 m! i) B8 i( Y. c: `; [
(defun c:zr () (command "zoom" "" "")); c: ?8 j6 X9 U6 x2 v, K; D' A% e6 Z
(defun c:vv () (command "ucs" "v"))( L1 L6 j) Y- W2 m$ D7 L* z
(defun c:co () (ssget) (command "copy" "p" "" "m")): x9 L# a$ Q4 h, u+ E6 e
(defun c:c () (command "circle"))
6 I( x4 `# u' i& _
(defun c:rt () (command "rotate"))
+ A6 ?# B. ]+ D& ^3 c
(defun c:3q () (ssget) (command "_rotate3d" "ANGDIR" "value" pause (princ)))1 ^+ a8 ^ g; Q2 M9 L
(defun c:30 () (ssget) (command "rotate" "p" "" pause "30"))
* t6 |: F) {5 W
(defun c:-30 () (ssget) (command "rotate" "p" "" pause "-30"))
$ u+ E0 B: R& n5 W
(defun c:45 () (ssget) (command "rotate" "p" "" pause "45"))
; y/ O( y4 ^9 G [4 k) }! F" }
(defun c:r5 () (ssget) (command "rotate" "p" "" pause "5"))
- R* }3 h- D0 v7 T* v3 J2 E% [
(defun c:60 () (ssget) (command "rotate" "p" "" pause "60"))
" {- w2 C9 |2 Z4 b' }( ]9 P
(defun c:-60 () (ssget) (command "rotate" "p" "" pause "-60"))
' n1 @) r5 r( b
(defun c:90 () (ssget) (command "rotate" "p" "" pause "90"))+ [$ B) W9 x3 q
(defun c:180 () (ssget) (command "rotate" "p" "" pause "180")): e& w4 e! E' R U4 d4 L' e+ _
(defun c:-45 () (ssget) (command "rotate" "p" "" pause "-45"))% V- g- d+ A; h
(defun c:-90 () (ssget) (command "rotate" "p" "" pause "-90")), r. f" {% X5 m, p, N, C
(defun c:md () (ssget) (command "mirror" "p" "" pause pause "y")), q' Y$ F% ^4 K2 w2 G- h, b
(defun c:fd () (command "find" "p" "" )(princ))(princ)) |" `: _, X' m2 T
. q- i7 K7 R6 @- ]( e5 p3 |
(defun c:romantdim () (command "-style" "ROMANT-DIM" "romant,vnh.shx" "200""1""0""n""n""n"))(princ)" T% W" {9 t: a0 h- @ z
(defun c:romantext () (command "-style" "ROMANT-TEXT" "romant,vnh.shx" "200""1""0""n""n""n"))(princ)
/ R/ U7 Z# l( K& W( \, [
(defun c:vnhelvthuong () (command "-style" "VNHELVLT-Thuong" "vnhelv,vnh.shx" "500""1""0""n""n""n"))(princ)6 y I' p: h. W, r) Q6 h
(defun c:vnhelvhoa () (command "-style" "VNHELVLT-Hoa" "vnhelvh,vnh.shx" "500""1""0""n""n""n"))(princ)3 j) D4 z! b* u
(defun c:truc () (command "-style" "TRUC" "impact" "0""1""0""n""n""n"))
) q5 y5 A& x) M: B5 P6 k
(defun c:chu () (command "-style" "VERDANA" "verdana" "200""1""0""n""n"))
# K, H2 H2 B+ t# R
(defun c:cot () (command "-style" "COTES" "verdana" """1""0""n""n"))
4 [ w) c% _+ S1 H' P) I* {. b1 M
5 Y3 K1 l4 f1 k& E- U
(defun c:an () (command "-style" ".AVANT" ".vnavant" "200""1""0""n""n"))
& x7 E% [! g3 k4 T, l( x8 V% c
(defun c:ah () (command "-style" ".AVANTH" ".vnavanth" "200""1""0""n""n"))
0 L1 _, a( e$ y1 E& N/ G) i. h
(defun c:ha () (command "-style" ".ARIALH" ".vnarialh" "200""1""0""n""n"))
6 {! B* D2 Z* M: Z2 R7 \0 H5 s7 I! ^7 m
(defun c:na () (command "-style" ".ARIALNARROWH" ".vnarial narrowh""1200""1""0""n""n")): `* I+ l) z8 e& L; Z7 |
(defun c:vn () (command "-style" ".VNTIME" ".vntime" "200""1""0""n""n"))7 a7 {0 ~% m- M% s: O& {
(defun c:vh () (command "-style" ".VNTIMEH" ".vntimeh" "200""1""0""n""n"))
1 ~) E/ v4 u2 s2 Q
# ]0 |& ?4 B, |! I2 s- d
(defun c:ps () (command "PSOUT" "CorelDraw-import-Photoshop" "W"))(princ);export the current view of a drawing as an EPS file: Y* g' C% s/ Z5 i2 C; `
( ~" X8 W2 A) Q3 H' `9 Q/ u
;free lisp by cadviet,cd2k44
$ O3 J9 B1 H w% b5 ~- u3 B
;link bai viet http://www.cadviet.com/forum/index.php?showtopic=53830" x7 l8 n1 Y& s+ {+ b/ G$ @0 K9 N
(defun c:FTEXT (/ ent tstyle ) u/ u. P, h) k0 d) L/ l
(command "undo" "be")
' ~9 N9 S4 ^9 ]3 p" `: V; q5 U5 F
(setq ent (entsel "\n Pick text :"))
1 `& n) ~/ y# D/ j
(setq TSTYLE (cdr (assoc 7 (entget (car ent)))))
i+ c, X9 ]' G) y# c, T8 K3 A3 R
(command "STYLE" TSTYLE "romant.shx,vnh.shx" "0" "1" "0" "N" "N" "n")
: ]- U$ L( J ?2 d0 R9 u
(setvar "TEXTSTYLE" Tstyle)
* R1 f" m; C0 a# p- X( M0 C
(command "undo" "end")
/ r( L/ t# i( r, o9 U; s1 O- l. O$ i2 B
)
- p9 E! E8 w* U- x
;Cam on cadviet nhieu 27-11-2023 04h15p36s (thanks cadviet)
& {4 N: |( p( R3 h
9 ?3 q# S5 i0 M$ f3 J$ k# A) S
;free lisp by cadviet,cd2k44
( V0 h- h# L9 O$ `8 G# V" Z7 T" j- s
;link bai viet http://www.cadviet.com/forum/index.php?showtopic=53830
3 Z4 L Q3 `: _/ g! C: }1 ^3 ^
(defun c:Fvnh (/ ent tstyle )
! A+ L9 X$ k% v% Q
(command "undo" "be")
8 D4 R4 N7 w: y" M* S/ v
(setq ent (entsel "\n Pick text :")), [5 T' c i2 M# {* _8 K* i
(setq TSTYLE (cdr (assoc 7 (entget (car ent)))))
4 [% H& y" q5 w6 L
(command "STYLE" TSTYLE "vnhelvh.shx,vnh.shx" "0" "1" "0" "N" "N" "n")
$ v6 L6 Q4 y4 f$ z ^' n: Q
(setvar "TEXTSTYLE" Tstyle)1 j5 T4 Q4 s! S3 l1 u# {$ k
(command "undo" "end")
2 d9 m. V: @) K& ]3 w
)
; C8 ~9 m5 O% \
% g# @3 X! f2 ~% @
;free lisp by cadviet,cd2k44
( j( q1 Q% P3 M- {
;link bai viet http://www.cadviet.com/forum/index.php?showtopic=53830
2 q2 X4 S4 A' w" q% [; J, \ z' I
(defun c:Chbg (/ ent tstyle )) c5 `5 u4 R5 E4 u+ ~7 Z9 v
(command "undo" "be")% m; k) E$ H6 M0 O1 O1 O
(setq ent (entsel "\n Pick text :"))
8 O) y# z) m7 w. g
(setq TSTYLE (cdr (assoc 7 (entget (car ent)))))
1 y/ G, p u. c0 E' c2 N
(command "STYLE" TSTYLE "chhbg.shx,vnh.shx" "0" "1" "0" "N" "N" "n")
# G- I4 T7 U1 ~' \4 l) D9 H
(setvar "TEXTSTYLE" Tstyle)
% T5 T7 T @3 P/ ^" K/ [% I
(command "undo" "end")1 @4 c& P* o( u4 p
), k! _: `4 o$ m' P
+ ~5 R) x/ s" R B) ~9 X2 n
;free lisp by cadviet,cd2k44
) `; O2 o$ j, w; d0 C/ P
;link bai viet http://www.cadviet.com/forum/index.php?showtopic=53830
+ I- D: }+ Q; K* j: z
(defun c:Chsm (/ ent tstyle )5 [" R+ U& g2 n! O6 O2 g" k, ]& R
(command "undo" "be")2 `' g9 u3 H3 t/ ^5 d7 k* Y0 [
(setq ent (entsel "\n Pick text :"))
6 U% S+ ?( x& E
(setq TSTYLE (cdr (assoc 7 (entget (car ent)))))
2 X4 T( r. k: k
(command "STYLE" TSTYLE "chhsml.shx,vnh.shx" "0" "1" "0" "N" "N" "n")/ x0 d$ H. C( ^9 ?! b2 W
(setvar "TEXTSTYLE" Tstyle)
' U5 l; O5 O4 R0 Q3 T. {
(command "undo" "end")# r+ Q, i9 f7 G, Y! [: W# O
)7 Q1 x% P/ G" M+ O9 p
3 [0 r8 @6 G' }4 o, Y
;free lisp by cadviet,cd2k44% s, ?1 ]9 B+ O' g9 o1 m. B
;link bai viet http://www.cadviet.com/forum/index.php?showtopic=53830
( x& C% W0 y8 V' d" W
(defun c:Fttf (/ ent tstyle )
1 i; @3 I% D3 p
(command "undo" "be")
4 u/ h; E2 e% D+ m
(setq ent (entsel "\n Pick text :"))5 [+ Q6 |/ f) }
(setq TSTYLE (cdr (assoc 7 (entget (car ent)))))
6 E) [9 B ~/ b7 m6 {, L! A
(command "STYLE" TSTYLE "verdana.ttf" "0" "1" "0" "N" "N" "n")
S e% G+ T$ D2 k; }/ T: K
(setvar "TEXTSTYLE" Tstyle); R8 ~+ A) Z. V8 v n7 [; G0 n: r
(command "undo" "end")
, _% l) W2 P, U0 F1 Y; z7 f1 E/ E4 l
)
" W+ h2 a* b1 @# U
. ]" B5 n! F0 J
;;; ============================================
& p% {3 _0 r5 J9 w9 L
;;;
+ v; j7 S( ] g" G+ Q
;;; LISP Creater Tao Duong Dan AUTOCAD2000
u. h9 i/ |' }! I/ s
;;;
: ?, Y6 H* L7 l0 Y( c
;;; ============================================
8 A! Y1 X3 u+ I
4 z& s) C* i' ]3 D! B
;;; ============================================; u" ~+ Q5 i1 {8 `# P; l
;;;
& V& z- G! n) G
;;; CREATING FROM AUTOCAD2000
! ]$ M- r8 y+ x }4 ?
;;;+ Y" f7 m; f- p$ {
;;; ============================================: k: x3 v4 f6 d% v
4 n7 ^; r! Q& n3 P$ K# b
(setvar "INSUNITS"4)
, o9 B8 q; H4 R' Q+ O
(setvar "ANGBASE"0)$ G: j) y8 [* x7 o
(setvar "ANGDIR"0)) g" c' \2 u- e8 [5 y/ Q- E
(setvar "AUNITS"0)/ I, m N n( x1 z: V9 g- `" j1 G* y
(setvar "AUPREC"8), m9 e4 W n8 p5 Q
(setvar "LUNITS"2)) _5 n9 d* q- @- f" Y
(setvar "LUPREC"8)
. `& A8 K* I; C9 q
(setvar "ACADLSPASDOC"1)
) K- X/ x2 i% {: l8 u% N
(setvar "pickbox"5)9 y+ S; @ \5 X1 Z
(setvar "blipmode"0)
+ l3 j! w r8 q7 l* X
(setvar "mirrtext"0)) |8 B- |( l: n1 e
(setvar "cursorsize"100)
. ~& y! V, V& M, c% M
(setvar "ZOOMFACTOR"75)
/ R( J- k- E+ W- _
(setvar "LTSCALE" 10). r; q/ N& J* K& ^; u1 U8 i! q
(setvar "lwunits"1)8 b, ], u5 ?! p& g$ p( W
(setvar "DIMBLK" "Closed")
+ c! F# K2 T2 J" F- h
(setvar "DIMGAP"0.0693)
7 o& _" `5 G9 s5 J& H+ D; e& c7 g: l
(setvar "DIMASZ"0.20)' M2 F7 r5 t& u# d. M
(setvar "DIMCEN"0.2)
(setvar "DIMDLI"0.1)+ ~8 L8 S. y- G/ z* [1 `2 D" [
(setvar "DIMEXE"0.0693)
# B4 ~, q9 i6 b: R
(setvar "DIMEXO"0.25): U9 C8 F& c" f
(setvar "DIMDEC"0)
3 b' t+ m. k0 G' A5 f' E" a8 q6 k
(setvar "DIMTIX" 1)8 H! k2 ~" M- s3 t
(setvar "DIMTXT" 0.099)% k q. t# m1 D" }" j8 ^) A5 y U
(setvar "DIMCLRT" 7)' ]7 t% A( ?! [! B8 s) u, w
(setvar "DIMTVP" 1)5 f" Q2 E" f3 o4 w
(setvar "DIMJUST" 0)5 x! n9 i, S" b
(setvar "DIMTIH" 0)
0 L! c) }- ?$ L, Z3 c6 [9 W4 Y
(setvar "DIMTOFL" 1)
' [' e& f( m' h! h$ }% E* o) H
(setvar "DIMSCALE" 1111.1111) f3 Z3 ?( a6 R% g' B
" g$ @& b. c9 \( }% |: H
2 t! d" i. M0 u/ c, R$ o. u, v
* V" e/ q6 T" F
(defun c:zp () (command "'.zoom" "p"))0 y( n% y: ]: ~1 ?# `
(defun c:zz () (command "'.zoom" "p"))+ b' C7 Z* g* u8 ~+ D& ^; h; W2 L% R, V
(defun c:ze () (command "'.zoom" "e"))
" W# K3 `8 i9 E4 i: z) g, Z
(defun c:za () (command "'.zoom" "a"))
/ `7 D6 D& Z/ K* }
(defun c:zd () (command "'.zoom" "d")): x; X; W+ j( _; ]& l
(DEFUN C:ZZZ () (COMMAND "ZOOM" ".25X"))
+ R4 `) V, ?" g k Q
(DEFUN C:ZX () (COMMAND "ZOOM" "2X"))7 Q0 N5 N6 A" X
(defun c:de () (command "ddedit")(princ))
* Z7 M ?* T0 I2 c6 p
(defun c:dda () (command "Dimaligned"))& Q: }+ e. M8 U4 x8 a: @- w8 M
(defun c:ddb () (command "Dimabaseline"))$ C% ?+ k3 }; Y
(defun c:ddc () (command "Dimcontinue"))8 W1 n0 q. L& h9 h9 z
(defun c:dde () (command "Dimtedit"))5 y. L7 G! N/ k3 \5 N
(defun c:ddf () (command "Ddattdef"))
' ?" a+ K1 i m: ]2 ~' p/ J
(defun c:ddi () (command "Dimdiameter"))
h% S9 I# |8 B/ V
(defun c:ddl () (command "Dimlinear"))4 a- Q/ K1 {& W( T6 V- h2 C
(defun c:ddn () (command "Dimangular")). h x8 u, c+ _
(defun c:ddo () (command "Dimordinate"))/ y6 `3 d4 c, e, X9 k
(defun c:ddr () (command "Dimradius"))
& F( m, A l% d4 W
(defun c:dds () (command "Dimstyle"))
$ j" v) @9 A A, u' ^
0 L+ H; T) e* v( o* ^/ q
(defun c:DU () (command "dim1" "up" "select" "exit" pause ))(princ)0 ]% T# D) j# U4 h2 N# O
(defun c:DH () (command "Dim1" "home" "select" "exit" pause))(princ)
% L( e" Y. F9 Y7 @! d
(defun c:UU () (command "dim1""update""all")). y1 `, \1 u. t2 z" s
(defun c:ded() (command "dim1""tedit"))! r8 `( \& ?% N# M& o
(defun c:da () (command "dim1""ali"))
2 z2 z; m4 j l/ k" R- Z
(defun c:dll() (command "dim1""l"))( ?$ L2 ^# p# i, j
(defun c:dan() (command "dim1""an"))# X6 _) c( C: W
(defun c:d1 () (command "dim1""ra"))& o" g& }' b0 @! O) t
(defun c:n () (command "dim1""new"))' e+ n0 j" c$ g+ Q2 q
+ L3 h2 U$ o2 I
(DEFUN C:PE () (COMMAND "PEDIT"))# j: h# i6 [- z4 h% z, j, z
(DEFUN C:PL () (COMMAND "PLINE")): }; a! s: L8 b2 M
(defun c:dd () (command "dist")(princ))" V4 }: F9 q" o$ p& z# P* l8 H8 |
(defun c:w () (command "pedit" pause "w" "au")(princ))
; N2 T0 `7 I9 O+ P$ F% u
(defun c:pg () (command "polygon" "polygon"))
! |& J, s& x7 P/ N8 o; v. R
(defun c:el () (command "ellipse"))0 n4 R& k9 G6 x
(defun c:xe () (command "explode"))3 w' I+ d* o; v8 F. t( O7 q/ x1 e
(defun c:eex () (command "extrude"))
7 P! ?% t. x5 k0 y
(defun c:xg () (command "xline""a"))
" l/ T$ a9 X/ {7 e4 D
(defun c:xh () (command "xline""h"))4 \ p# _$ x" S( G9 p5 a& h
(defun c:xv () (command "xline""v"))3 @ }; S ^9 S! ?) v( p+ _- y
/ C( B+ Q1 \& P/ Y6 |. ~9 V# z. P
(defun c:oc () (command "osnap""cen"))1 u( f0 j' y) U9 c' a k
(defun c:od () (command "osnap""nod"))
, j* Y7 l5 _1 F6 o
(defun c:oe () (command "osnap""end")); g& t! |2 }+ \ {9 e7 b' B1 b
(defun c:oi () (command "osnap""int"))4 s" _8 K4 L# Y( E+ o& {/ o
(defun c:or () (command "osnap""per"))% o# i; |5 S/ h* b% v- n
(defun c:on () (command "osnap""none"))
) n# B* d) W) b
(defun c:oq () (command "osnap""qua"))8 j9 n: M8 Q: a
(defun c:om () (command "osnap""mid"))
# g" J7 Y- {7 {( F
(defun c:ot () (command "osnap""tan"))8 [8 N' k$ U. Z
(defun c:oin () (command "osnap""ins"))
& E5 R6 b& a/ z% l* S1 x1 }
(defun c:oa () (command "osnap""nea"))" t! d1 ]; ]1 |5 J* d* I
(defun c:ol () (command "osnap" "End,Mid,Cen,Node,Nea,Int,Perp,Qua")(princ))* y* r* @) `& Q# Y3 e* V
;(defun c:du () (command "dim1" "up" "s" "pick" "other"))$ l; b- w5 V# J2 k
;(defun c:nn () (command "new" "y" ))* J; w: O- p8 k( g3 m
: }- m9 [8 ]: `
(defun c:/ () (command "limits"))
# }4 H& A% U' E+ H
(defun c:`1 () (command "region"))
- J& B( Z0 z/ x5 J- W
(defun c:`2 () (command "subtract"))2 E& [ ]- k0 R, A1 p
(defun c:`3 () (command "union"))2 U# H1 @& w5 i- u% H
(defun c:`4 () (command "intersect"))
(defun c:`c () (command "cal"))
: V y* G9 s) k' n( B9 G) B
(defun c:`g () (command "Polygon"))
% H- C! P* ?7 \4 f; x
2 A6 m' e2 c) Z' ^3 C, w" X. C
(defun c:lmi() (command "LIMMAX" pause "" "zoom" "all" )(princ))4 r8 ~. h' P8 h) X+ B
(defun c:drt () (command "DRAWORDERCTL" pause "Integer" "" "" )(princ))) d* ~ u. z. w4 R" @4 P" }
(defun c:ip () (ssget) (command "print,_plot" ))(princ)
; g1 ]1 ~) p# v) \* W4 ]3 f, @' W
+ E. d6 C8 c' S+ b- D+ B8 O
(defun c:ddm () (command "ddlmodes" pause))2 ~+ X) w9 Z' O) r4 s; Q8 I/ K6 H
+ r* O" w9 H2 U4 S! V2 M
(defun c:sha () (command "shade" pause))
9 K# B7 t- m3 H4 }" m, ?% f
; \6 m) S, f# z& p4 ?8 X
(defun c:sr1 () (command "surftab1" "p" "" pause))5 E1 D; b# q$ X1 Y; C# _, ~! q# U
(defun c:sr2 () (command "surftab2" "p" "" pause))
6 t" k, r" `; Y* k" ~: @1 [& w: H
* P7 Z# I( T6 ?2 z7 i. f/ p
(defun c:ad () (command "audit""y"))% _6 ]2 a2 l- u/ s! P
(defun c:q () (command "quit"))0 h7 i* S0 r9 D& {. L$ T5 _
) Y8 [$ k. J p, k$ m* E" ?
(defun c:30 () (ssget) (command "rotate" "p" "" pause "30"))
0 @$ G, M% A! T. g
(defun c:-30 () (ssget) (command "rotate" "p" "" pause "-30")), b) J- A8 W, l7 w a, [
(defun c:45 () (ssget) (command "rotate" "p" "" pause "45"))
# X$ D. o! ]& w! F
(defun c:-45 () (ssget) (command "rotate" "p" "" pause "-45")). w, b2 Y, b3 u
(defun c:60 () (ssget) (command "rotate" "p" "" pause "60"))
" c; ?' p5 W! G+ |$ k' @: ^. r/ [
(defun c:-60 () (ssget) (command "rotate" "p" "" pause "-60"))
$ [- q* Q! F5 I
(defun c:90 () (ssget) (command "rotate" "p" "" pause "90"))" }/ b; t$ s! s
(defun c:-90 () (ssget) (command "rotate" "p" "" pause "-90"))- O' W3 ~1 W6 a( u* @$ F) \: m
(defun c:180 () (ssget) (command "rotate" "p" "" pause "180"))
* \! G+ P. B1 ^- J# A) S/ D
/ w K3 {8 x9 C6 M
(defun c:u3 () (command "ucs""3"))" I0 H2 y; f6 u' A' G; H
(defun c:ue () (command "ucs""o""end"))1 D$ P( T* B6 @ E Q; {: G! @& z' E* H
(defun c:ui () (command "ucs""o""int"))
$ a* \: d, ]+ Z. e; |
(defun c:um () (command "ucs""o""mid"))4 X8 q) Z! f/ a9 c1 _; s6 O; @
(defun c:uc () (command "ucs""o""cen"))' Y% E C' F7 Y i# G( c
(defun c:uq () (command "ucs""o""qua"))3 T1 p; q+ L g
(defun c:3s () (command "ucs""3"))
/ Z8 A" b8 l" ~3 t7 q
(defun c:sx () (command "ucs""s"))+ m5 q. Q+ u9 ?3 a" d9 Z
(defun c:sf () (command "ucs""o"))
* \! |1 u2 |) j5 v& m0 N+ P" ~# m
(defun c:sz () (command "ucs""p")) Y2 y& h9 h( F
(defun c:sr () (command "ucs""r")). ~0 E0 K8 K) i; F
(defun c:sw () (command "ucs""w"))
: m' w) z2 ^* Q% t
(defun c:fv () (command "ucs""v"))
& v& s/ U9 Z9 W6 y6 K* u" M
(defun c:ux () (command "ucs""x"))
$ r* O2 i. ~. i* O
(defun c:uux () (command "ucs""x""90")), e, b5 A! B+ H& A- _* A
(defun c:xxu () (command "ucs""x""-90"))/ q8 s% l1 n D; w8 J, I* e" y
(defun c:uy () (command "ucs""y")); w7 ]5 _1 c1 ^& f+ w
(defun c:uuy () (command "ucs""y""90"))2 N9 O% J8 O( v7 g
(defun c:yyu () (command "ucs""y""-90"))
$ G; u4 o) i8 t0 X( [2 G
(defun c:uz () (command "ucs""z"))! Y* a& w2 N0 _. y$ X
(defun c:uuz () (command "ucs""z""90"))
" T8 Y1 B; z- w
(defun c:zzu () (command "ucs""z""-90"))( V& p7 B( B) I& Z/ [
(defun c:uci () (command "ucsicon" "Properties" ))(princ)
+ _3 ]# x& x# B! s+ T
(defun c:ucm () (command "ucsman" ))(princ)9 N* l5 K9 L: y9 W1 d( G' _
" D) i0 a% k1 ^5 X) p
(defun c:sa () (command "vpoint""_non""-1,-1,1"))
" H; _# \+ o& Q
(defun c:sd () (command "vpoint""_non""1,-1,1"))- n- H4 }$ d! w ^+ K) G
(defun c:se () (command "vpoint""_non""1,1,1"))+ a' @# A$ D' Z# ]' }( L
(defun c:sq () (command "vpoint""_non""-1,1,1"))6 S6 B/ M& p: h5 v" w
(defun c:vc () (command "plan"""))
A5 E% H, G9 z' E) P
(defun c:vd () (command "dview""all"))
( l) j6 f1 u& F
/ t/ A- Q7 f* `# p
(defun c:TT0 () (command "tilemode""0")): Y# X9 V; s) K" C& R
(defun c:TT1 () (command "tilemode""1"))
. w6 ]. Z8 ^* I2 w0 r
! L9 q# ?: z% V8 L
(defun c:vt () (command "vpoint""_non""0,0,1"))9 ?% Q" m3 N* j' d9 B
(defun c:vb () (command "vpoint""_non""0,0,-1"))- v/ R9 W6 H" N* P
(defun c:vl () (command "vpoint""_non""-1,0,0")). ~ `' |" T% V! J3 C
(defun c:vr () (command "vpoint""_non""1,0,0"))3 e: Y0 h( J% _( e" m
(defun c:vf () (command "vpoint""_non""0,-1,0"))
( ?5 b+ v: Y% _2 [% k# T
(defun c:vk () (command "vpoint""_non""0,1,0")). g( Y. [( s1 x$ C7 [ p7 Z
8 ]. e' E/ I$ P/ m
(DEFUN C:MM () (COMMAND "MIRROR"))8 h- j. f( g0 x
(DEFUN C:MP () (COMMAND "MOVE" "P"))) R1 }* ]3 I4 X. {, w3 [
, g4 ~; Y4 @- ?* v/ g# V2 f" D9 ~
(defun c:mee (/ a)
6 ?% m/ M4 o, U8 O$ V2 O) X7 g4 ]8 t
(setq a (ssget))(command "move"a"""end"pause"end"))0 T8 y* H9 C9 z; P8 g9 d; d
(defun c:mc (/ a), E* x2 e4 A) [7 _' n" J
(setq a (ssget))(command "move"a"""cen"pause"cen"))1 @1 A2 ^: }# H/ a+ W) X
(defun c:cc (/ a)" ?# l: \, N3 C* R% u
(setq a (ssget))(command "copy"a"""m"))
. E4 I2 ]& c/ p7 P N3 c: s
(defun c:ce (/ a)3 y: g- a2 |2 W# K' {: _
(setq a (ssget))(command "copy"a"""m""end"pause"end"))- l' t1 |) q+ M# e
(defun c:cn (/ a)
; T7 J- C' d; B' L- v, V
(setq a (ssget))(command "copy"a"""m""cen"pause"cen")). X) F7 _ p% x; B. i
(defun c:tl ()(command "trim""l"""))
& j# R4 [5 a: \8 Y1 b% s' ~! h
(defun c:tf (/ a)* @! e2 P& ? [7 i" l9 w
(setq a (ssget))(command "trim"a"""f"))
/ {. j8 K0 q- ?( S( \' [
(defun c:el ()(command "extend""l"""))0 s g- x+ M2 x: B! _' F+ h- K
(defun c:ef (/ a)
) {& H A3 X( O' t' U' C# E& e
(setq a (ssget))(command "extend"a"""f"))
2 _% p+ T" S% ]% a# l1 r4 K4 C n
) B9 w2 S- ]9 ]* y5 i
3 z4 P9 B3 }' S4 S2 l7 y' z
(DEFUN C:110 ()(princ "\nChon doi tuong can offset ra 110.......") (COMMAND "offset" "110"))+ x: J* P0 O, k8 N
(DEFUN C:220 ()(princ "\nChon doi tuong can offset ra 220.......")(COMMAND "offset" "220"))6 y# i t3 y2 E
(DEFUN C:330 ()(princ "\nChon doi tuong can offset ra 330.......")(COMMAND "offset" "330")) N" x6 i* \4 ]; U* S. \* }
(DEFUN C:400 ()(princ "\nChon doi tuong can offset ra 400.......")(COMMAND "offset" "400"))
9 P+ ~7 d, E Z$ z0 h9 S
(DEFUN C:55 ()(princ "\nChon doi tuong can offset ra 55.......") (COMMAND "offset" "55"))
* I: h: N4 Z/ u5 M
(DEFUN C:600 ()(princ "\nChon doi tuong can offset ra 600.......") (COMMAND "offset" "600"))$ @# G3 @ E) J* S" K9 \ r0 |0 u
(DEFUN C:700 ()(princ "\nChon doi tuong can offset ra 700.......") (COMMAND "offset" "700"))5 {( d9 k- h/ M; w
(DEFUN C:800 ()(princ "\nChon doi tuong can offset ra 800.......") (COMMAND "offset" "800"))
* Q. n$ j* S# b2 U6 ]
(DEFUN C:900 ()(princ "\nChon doi tuong can offset ra 900.......") (COMMAND "offset" "900"))
2 [, C1 a) g r1 }2 a0 t
(DEFUN C:1200 ()(princ "\nChon doi tuong can offset ra 1200.......") (COMMAND "offset" "1200"))+ G2 d0 y: B( V. r7 u, ~9 k
(DEFUN C:1500 ()(princ "\nChon doi tuong can offset ra 1500.......") (COMMAND "offset" "1500"))
: c+ h& _ a: u: n7 ~- f
(DEFUN C:1800 ()(princ "\nChon doi tuong can offset ra 1800.......") (COMMAND "offset" "1800"))1 X h3 Z/ W- H1 |
(DEFUN C:2400 ()(princ "\nChon doi tuong can offset ra 2400.......") (COMMAND "offset" "2400")); S3 K' u) \4 M
(DEFUN C:3000 ()(princ "\nChon doi tuong can offset ra 3000.......") (COMMAND "offset" "3000"))6 _) C0 A( {- v. C/ {
(DEFUN C:3600 ()(princ "\nChon doi tuong can offset ra 3600.......") (COMMAND "offset" "3600"))
& ^) m: ?: n1 b( M
(DEFUN C:4200 ()(princ "\nChon doi tuong can offset ra 4200.......") (COMMAND "offset" "4200"))
+ R( v0 R/ D) f2 G2 h& J$ N6 w7 [( A) _
(DEFUN C:5000 ()(princ "\nChon doi tuong can offset ra 5000.......") (COMMAND "offset" "5000"))
: {. E3 S8 g: |3 t9 G
- L4 k' T1 v& t- u6 H; R
(defun c:mla () (command "-mledit""av"))) i' Y* E. ~# U$ M! [0 @* k
(defun c:mlc () (command "-mledit""mc"))
E: `& h( C; L% w: u3 M7 f+ ?* z
(defun c:mld () (command "-mledit""dv"))- |1 V+ Q4 S8 E! i
(defun c:mle () (command "mline""end"pause"end"))* p4 T# S9 x% v& K2 v
(defun c:mli () (command "-mledit""ca""int"pause"int"))7 e0 ]8 M8 O, ]. Y& V
(defun c:mlj () (command "-mledit""cj"))
! v, l! k# ?$ i
(defun c:mlt () (command "-mledit""mt"))
" m v6 b: ~& d$ K0 P2 W3 f: a
(defun c:mlk () (command "-mledit""ca""end"pause"end"))/ I% Z) `' U% v4 T: y
(defun c:mlw () (command "-mledit""wa"))
( S+ I7 w/ \, O. K _8 [: e' u
7 N( W( H* G: a5 c' X7 |
(DEFUN C:DCA () (COMMAND "DVIEW" "all" "" "CA"))
, X; d' K- l& {$ e( f
(DEFUN C:DPA () (COMMAND "DVIEW" "all" "" "PA"))
- y v5 y' P, X) [" o
(DEFUN C:DPO () (COMMAND "DVIEW" "all" "" "PO"))
" V* r5 D: i5 ~8 T" a/ b% Q
(DEFUN C:DDD () (COMMAND "DVIEW" "all" "" "D"))" p0 M; l! z9 y$ e
(DEFUN C:DZ () (COMMAND "DVIEW" "all" "" "Z"))6 V( r! Z& Q8 ?7 F( L
& M0 p- Y" \- C6 f4 \; u) u$ ^
(defun c:p0 () (command "pline""""w""0""0"))1 t$ _" Q c m
(defun c:ot () (command "offset""t"))8 l: M+ c# M4 {3 O7 W
(defun c:t () (command "mtext"pause"j""bl""h"pause))( f8 g9 c$ L0 I2 J
(defun c:uo () (command "ucs""ob"pause))
2 W" W9 L1 Z% ] y" Q
(defun c:f0 () (command "fillet""r""0"))5 ]9 _9 D w: i+ l/ b' ?
(defun c:fr () (command "fillet""r"))
) B# ?6 }8 p) ]- H% c- e
( p" }" E7 b* Y3 }9 P$ l8 A$ B
;CHAMFER
2 c) i. g2 m/ H* A2 o4 _4 V
(defun c:cf () (command "chamfer"))
; _' E/ \6 t) x$ i) m
(defun c:cfd () (command "chamfer" "d"))
1 u4 j8 }, y J3 Z8 G! b" E) I% C! U
(defun c:cf0 () (command "chamfer" "d" "0" ""))
: G7 k* T% T. s" ^0 S; v
: @4 N: y; `7 u' G# _7 a! Q; {
;FILLET! _7 [. {. r3 g
(defun c:f () (command "fillet"))
! F. C8 l* x* m* C+ G+ ]" C" W' h
(defun c:fr () (command "fillet" "r")): g6 i* e8 `0 w5 \5 Z* D8 T8 g
(defun c:f0 () (command "fillet" "r" "0"))
. }' ~9 \9 b0 y9 o
( H9 z6 Q( p; ^! v# Q8 {/ i
(defun c:OO () (command "oops"))
) R0 s8 m/ t# y& q2 B7 `
(defun c:dln () (command "dimlinear"))8 @2 {& a- d5 J/ `" k- Q
(defun c:dan () (command "dimaligned"))
! \, S; U4 _6 l5 @! o9 ^
(defun c:ddc () (command "dimcontinue"))# Z# B, p% N' ~3 i+ ^* w0 c
! X6 a2 C: G! X% H- s
(defun c:sc () (command "scale" "auto"))" e K7 k& J% ~% i' Y+ R
(DEFUN C:XO () (COMMAND "snapang"))& l5 |% W2 P m& g6 z* x
(defun c:cc (/ a)
0 {( |# S) O2 ^5 B
(setq a (ssget))(command "copy"a"""m"))* S% M6 A" \/ k& L; ^2 ~
% e8 R# ?8 |0 {% P6 H5 L( n
(defun c:PJ (/ a)
9 I) O9 N5 i1 a. l% [% ]( t; l
(setq a (ssget))(command "pedit"a"""j""all""y"))1 F) c4 W5 n+ L. u! k
(defun c:JJ (/ a)& O0 U4 J! p: u X1 \5 T
(setq a (ssget))(command "pedit"a"""j""y"))
% k( E b1 V5 C: q
(defun c:TN (/ a)
& n+ I7 s" k. _8 j& }; t! H) x' p7 }% E
(setq a (ssget))(command "change"a"""p""T"))) T6 H- I/ X' P3 O+ G5 {( I9 T
. B, Y: C( x/ p8 C7 [
8 ]4 I- h! O5 [; J! D+ _
;=======================Tran Ngoc Thang - Tu nam 2000 - Hoc nam cuoi KTS . DHXD=========================0 v5 c. D2 ?5 ]- H
v; `* p$ X! P& k+ @3 `
(defun C:IB ()(setvar"cmdecho"1)
" X5 w2 u0 F7 n0 [
(setq pt(cadr(entsel"\nSelect Block:"))) N/ y5 h: h2 `( K( b
(setq e1(ssget pt))
9 o7 ?2 a9 d' x' L* ? o
(setq e2 (entget (ssname e1 0)))
0 i0 n0 h6 D- d* T- q
(setq blname (cdr(assoc 2 e2)))
4 n9 c: j) c0 a' R
(setq oer *error* *error* err2)(command ".insert" blname))
z6 C# f9 y3 |' j# c' z
/ L& L% L4 |8 N0 b, @/ I
(defun c:II ()" P" v+ W( s4 S. r
(setvar "cmdecho" 0)
4 r( _) H( l+ b0 W: v$ ]: ]$ n
(setq olderr *error* *error* myerror)
! V4 B/ `* M- t3 @" S
(prompt "\nSelect objects: ")
! O; `! v5 ]# j% w
(command "select" "au" pause)% g/ s2 I! \. w6 C
(setq sstxt (ssget "p")
1 h [% ^& R: q
sslen (sslength sstxt)
8 W$ v1 \3 ~. _5 J C! C# h' ^, B
ctr 0
3 J5 n# j$ z* n& O; D$ g
), A) H- X- D$ c' q1 @, L
(command ".undo" "mark")
) A1 d/ O: \9 t& r, t7 a
(while (< ctr sslen)2 U* P2 p/ a) y( {
(setq listxt (entget (ssname sstxt ctr))
' J1 k2 `6 j" q6 w, f" n' j- ^
txttxt (cdr (assoc 1 listxt))- }+ D6 X8 }3 d& ~3 T3 U" x
enttxt (cdr (assoc 0 listxt))3 ^) z l- b3 J: ^) c% {
)
5 |0 \" K' P6 X3 l% e
(if (= enttxt "TEXT")1 [) B' c# t! n
(progn' |6 }) f. W: _; i# K2 T
(setq testxt (substr txttxt 1 3))
- v# v" _3 k+ x8 ^4 _6 T
(if (or (= testxt "%%C") (= testxt "%%C"))
4 J# u- x3 G4 _: k& I# Z4 j
(setq newtxt (substr txttxt 4))
* M8 @- I. U+ ~+ F' @- h+ z
(setq newtxt (strcat "%%C" txttxt)). C0 p! o6 M5 h) l8 ?, Y3 f6 _
) w3 z" s9 g+ @1 ?3 c3 d0 y4 \
(setq listxt (subst (cons 1 newtxt) (assoc 1 listxt) listxt))* A x% T1 s. ~0 `# [+ u
(entmod listxt)! C6 _; @3 M2 I& q H: j
)
! }" Q" Y% H4 C4 B' ^2 _
)7 S! p' L3 g# o% F: J
(setq ctr (1+ ctr))+ e: |; p1 _4 a$ f
)+ _2 R4 q# ~6 R# ~4 q: S
(setq *error* olderr)
5 _4 \2 r E' P" t
(setvar "cmdecho" 1)
# `* m# E% r7 g7 _- Y! h% v2 H& B/ }
(princ)
( |+ @ @* _/ r
)# y2 A i D5 b3 ]
4 A' B- F6 H1 k7 ~( w) Q. x
(defun c:DG ()/ q9 r3 e- @/ O. ^
(setvar "cmdecho" 0)/ P7 v' y! \5 v' N; s _
(setq olderr *error* *error* myerror)4 u# @( s7 ?+ g$ [
(prompt "\nSelect objects: "). m7 c# J: ]8 w
(command "select" "au" pause)
1 E0 \+ ^; k! n. S
(setq sstxt (ssget "p")$ P* B$ {8 e2 E6 p8 i. i) g Q a0 A8 ?
sslen (sslength sstxt)
0 G1 K( K5 [* N% r! K$ a8 c2 s
ctr 0* |8 k+ N5 ~2 o+ s% A, E/ m
)5 o' C" C( U; C% z* U
(command ".undo" "mark")
$ i: Y5 j- {( H4 R8 O. d/ Q' K
(while (< ctr sslen)
) S: o$ o! C/ p
(setq listxt (entget (ssname sstxt ctr)): s4 d' {5 U: z0 B2 n8 Y
txttxt (cdr (assoc 1 listxt))$ A/ m1 y: i1 ]" j
enttxt (cdr (assoc 0 listxt))
0 v+ p1 T* M1 N# c% H6 v
)
, w4 {4 ?/ n% [% ]8 y. I W: ]
(if (= enttxt "TEXT"), s" o- q8 ~, G6 {. u; D
(progn+ k8 |# h* y/ Q7 f4 i4 g8 K
(setq testxt (substr txttxt 1 3))
" S3 l3 o9 c+ _' s3 W
(if (or (= testxt "%%d") (= testxt "%%d"))0 _& u3 q- F% z' v, K3 {+ M: G. R
(setq newtxt (substr txttxt 4))
' S w `: |7 F j) P% A- K
(setq newtxt (strcat txttxt "%%dC" ))
" K3 T- I7 X- p( {2 f
) m) s7 D- W; Q- t
(setq listxt (subst (cons 1 newtxt) (assoc 1 listxt) listxt))
9 l# V- v6 K( ^& V" f
(entmod listxt)% h7 m; s' ~! P1 }! e& R. E
)
3 i3 b5 \7 z! |* `: s8 t, }" ^
)
% a: |+ ]; H4 S% U9 T5 U2 r
(setq ctr (1+ ctr))
8 z4 d/ |4 b6 p* p( M( C$ G8 A
)" f+ @4 i4 f; ]/ E' @% Z0 Z
(setq *error* olderr)
; P! T$ D6 c" y# P0 L7 O
(setvar "cmdecho" 1)9 D6 v' v; g: a$ J1 F
(princ)# w/ U% s% c Y" q7 w' s, ^
)4 ]' a8 d, ~! [) K3 k1 G1 Y6 _" q
( Y) s% k5 H; n: _4 c; o9 N
(defun c:PI ()' A& P$ T1 G) R! [% H7 j) W
(setvar "cmdecho" 0)/ j1 W1 m5 w; T3 o0 ~3 D+ P
(setq olderr *error* *error* myerror)
5 t$ [" |( Y* C# w
(prompt "\nSelect objects: ")
% T. x- m9 p7 y h" S; k
(command "select" "au" pause)
5 [; H" ]" c: y) I7 w2 T
(setq sstxt (ssget "p")$ \# O+ t# ~$ V. a
sslen (sslength sstxt): P+ L% g( {) w) M. { B# E) {
ctr 0
& a3 \' }9 A! `5 q" Z9 w) h6 L
)7 t( E7 l3 {5 ]4 l
(command ".undo" "mark")
1 z) r8 `5 g0 F1 H$ P
(while (< ctr sslen)
5 U& }# Z7 e& `
(setq listxt (entget (ssname sstxt ctr))7 [$ l: P0 z" x& a# d: {% D
txttxt (cdr (assoc 1 listxt))9 b# f0 I9 P& \; T4 c% Y& S; Q
enttxt (cdr (assoc 0 listxt))
5 o n0 v+ a6 U0 t: u, K
) ^* b" U8 Q/ g* \. H& }
(if (= enttxt "TEXT")
l0 T) l% c. h8 X, `) y3 O
(progn( u3 J6 {. @; u1 I/ I! h! D
(setq testxt (substr txttxt 1 3)): W3 Q/ D# S' ?9 A l- y, H0 U# O& A
(if (or (= testxt "%%p") (= testxt "%%p"))
6 z9 H1 O5 E: X! B- E6 x
(setq newtxt (substr txttxt 4))# B3 R# t; q N) ^
(setq newtxt (strcat "%%p" txttxt))
0 k2 J8 Y) `) V# K& @; Z
)
) u. B, O: M+ V# v% E7 p9 Y8 o z
(setq listxt (subst (cons 1 newtxt) (assoc 1 listxt) listxt))
7 t4 _: q5 E- `
(entmod listxt)
9 o: G! s5 B+ {& i& _
)
4 J2 L \: `$ ~+ X
)9 Y3 i$ ^$ C& j
(setq ctr (1+ ctr))4 l+ H+ q1 x0 }% ~
)' y5 u/ |3 o% i+ N: x8 B
(setq *error* olderr)
) ~% d2 c% Y. D
(setvar "cmdecho" 1)# Z5 ^' h& L Z9 f2 h; b' R
(princ)
$ q& n b' B* l! _3 g4 O8 T2 E
)
* x9 }! }. K0 w) p, Y! g
7 z% C, b: m) g2 S/ w. }
(Defun c:CB (/ a)
& n: r8 D3 }' a% k% t: G
(setq olderr *error* *error* myerror)
. f: i! Z& t' w: g& T/ S( }
(setq ocmd (getvar "cmdecho"))( Y0 ~. _ G8 |, G) E
(setq oblp (getvar "blipmode"))
6 b; o4 M- l1 P
(setvar "cmdecho" 0)$ G. z& B: J, q* ~ B
(setq a (ssget))1 n& ]7 J% O) Z0 d. Q" P9 t
(command "CHPROP" a "" "C" "bylayer" "")
- {) \* A1 U1 J* |5 {2 L) C
(setvar "cmdecho" ocmd)* X3 z1 M% b% t0 o, p
(setvar "blipmode" oblp)# [& [" P! f% B- j" k" u6 x
(setq *error* olderr)
8 x" O2 v9 ^9 a4 n, i
(princ)
) ?( J% ~" d5 K
)
8 |3 D/ P) N. Y
0 x0 v% N9 b8 D; F5 J0 b
(defun c:LCC (/ co43 obj23 la23)3 i- t5 a; v: \0 r3 J
(setvar "cmdecho" 0)3 q& k# Z+ i d# j. n# A7 V
(setq co43 (getstring "\nNew color : ")): B4 {% ^( a+ _" P! q$ S' `
(setq obj23 (car (entsel "\nPick object on desired layer: ")))
0 a, ?( m+ y$ M8 y. ~
(if obj23 (progn- M |' @/ `& Y4 u% z* B: [" }
(setq obj23 (entget obj23))
+ c& M7 |$ m* }3 S9 S
(setq la23 (cdr (assoc 8 obj23)))% W. J/ a/ H0 w6 S5 ^# E4 D4 q, M
(command "layer" "c" co43 la23 "")" }6 P/ E( N8 ~& B+ {
)
# U* c4 G1 V+ H8 \" Q8 G
)3 b+ m* g( S! ?+ T9 @
(prompt (strcat "\nLayer has changed..." la23))
; N* |$ J$ r; a" ~
(setvar "cmdecho" 1)
" k3 R7 u8 N9 x
(princ), Z% f& ~4 C. Y, j# b' I
) 6 ~: n2 }# [ b- y6 }8 [ `
& D; N6 j* x! _- ~% ?7 N
(Defun c:RP (/ a)- L4 v1 |' l" z( q
(setq olderr *error* *error* myerror) {- W9 q+ _& [9 I* X
(setq ocmd (getvar "cmdecho"))$ q' I0 i. W6 C
(setq oblp (getvar "blipmode"))) i8 \1 s1 q4 @
(setvar "cmdecho" 0)
: p' I1 T* d8 \6 ?, I
(prompt (strcat "\nUSE: Delete object(s) belonging to"
3 o/ M2 N# |8 X! i. Z8 q: H
" the layer of the entity picked...!"))8 q- _* c8 i8 I$ Z
(setq a (entsel "\nPick the entity with the desired layer to delete: "))- T. t% g( o6 E
(if (/= a nil)
0 k2 G2 a0 ?# k& r4 K: W
(progn (setq a (cdr (assoc 8 (entget (car a ))))) u G8 {: M1 @% P% n) k4 I
(command "Erase" (ssget "x" (cons (cons 8 (eval a)) tempword)) ""))8 G# e5 U% P: T8 U* N
(prompt "\nNo entity selected!"))
$ b1 w K) X! g. Y5 i
(setvar "cmdecho" ocmd)
* y/ a* j2 r* t& Q, n, p) y) J
(setvar "blipmode" oblp)! s% g6 T$ ?! L* q3 W8 @8 P: ~
(setq *error* olderr)
" k$ B8 d) K3 F) h
(princ)
& N/ B- v) k+ l& C/ @
)
. J# R- n) A9 C
4 B0 \4 ~1 H0 V. K. Z+ S
(DEFUN C:WL(/ SSET NET SSL M)$ G. E( c+ y7 d1 w# N' W
(PRINC "\nSelect lines :")
6 R5 f: l& R- n4 f# b- y
(SETQ SSET (SSGET))
7 p$ E$ `8 D% ]4 v: o' s5 m3 |: t. P9 H
(IF (/= NIL SSET) (PROGN$ a* e+ @. w7 k0 T$ M* V, w3 Z- S
(SETQ SSL (SSLENGTH SSET))8 u+ F; C# C F6 l6 G' P0 c0 D6 s
(INITGET 4)
w# @/ \& u) p4 i- l1 Z
(SETQ NET (GETREAL "New width : "))1 N# ~2 U, M5 I
(IF (/= NIL NET)
( F5 L3 r: h7 F2 w6 j$ O* ]
(WHILE (> SSL 0)# R1 t1 d, T. e- a$ p2 K3 d R
(SETQ M (SSNAME SSET (SETQ SSL (- SSL 1)) ))4 M5 r+ `6 p: C4 L1 P2 p6 T& ?
(IF (= (CDR (ASSOC '0 (ENTGET M))) "LINE")
) _7 K$ N e6 g! r, K) ]' o( K
(COMMAND "PEDIT" M "Y" "W" NET "") ( g: Q) L7 W4 g$ P7 s. P$ U1 j0 p
)
/ c; v: a4 [3 b. Q
) ! o1 q; _. c. A" B- f
)))
$ r! _7 F. ~- M% A
(PRINC): C7 b3 {* T$ F* N6 Y/ O
)
; a+ P p' r$ |/ n
1 r# e( @1 ^* n% S( m' \
(defun C:MML ()2 _3 D/ i/ i; N
(princ "\nSelect objects to move to another Layer.")
8 S0 l) q$ v# B \3 Z% K% E
(setq ss (ssget))
# w! V' D5 g5 ]2 m( d$ P
(SETQ UL1(GETSTRING "\nLayer to move entities to : "))9 _% J1 r& l# n) _! {
(setq counter 0)
* a: ? j" l9 l- x' L6 w
(prompt "Moving to layer.....")(princ ul1)
; J7 S5 P: ]: b7 S W0 Q/ K3 e
(setq e (ssname ss counter))# L4 G9 I8 L2 L1 y2 K7 X# |& g/ Z
(setq l (cdr (assoc 8 (entget e))))0 _. {+ Y- {( p/ g" I
(setq S (ssget "X" (list (cons 8 l))))
7 s1 W5 [+ T5 E1 U- J
(command "CHANGE" ss "" "P" "LA" UL1 "")
& T2 G F0 `1 V- t+ F# M# z O
(setq counter (+ counter 1))- j* Q' U$ w3 H% F
(princ)2 |0 ?( r2 Y% @: b) {% o9 u
)
$ ^) R# \2 n& o( ]* ^' s& m( {
5 G& L b% i8 m5 Z7 C
;;; ================================ GHI CHU ============================
. q; [! ?* e$ u- D2 b
;;; ======== Phai Vao STYLE Tao LAYER Ten TEXT + Phai Dat Height ========
0 {6 E3 I+ p. ~% r! x6 G$ X' k
;;; =======================Thuong Dung Font Romant.vnh===================7 V" ]! R3 _! N
$ r! ]: W4 f+ \7 ?- R7 I
(defun c:RS (/ pta ptb ptc ptd X Y X1 Y1 rmsz pl1)6 c$ K& O V+ w# M. n( E- k; D
(setq oer *error* *error* err2)+ {! ^# R" i7 f9 M7 r
(PROMPT "\n(UNICODE-Verdana)(D)ining room. (S)torage. c(L)oset. (C)onference. (O)ffice. (K)itchen. (B)ath. (M)aster Bedroom. ")) x! Q; |$ i. R: e
(SETQ Cpt(GETSTRING "\n (ROMANT-vnh)(DD).(SS).(LL).(CC).(OW).(KK).(BB).(MM). (UNKNOWN-font)(oD).(oS).(oL).(oC).(oww).(oK).(oB).(oM)."))
( Y* f. ~* l. A
(IF(OR(= Cpt "K")(= cpt "k"))(SETQ CPT ' "Nha` Bê´p"))! f, e: v7 }( m" ]1 P- j* g
(IF(OR(= cpt "B")(= cpt "b"))(SETQ CPT ' "Pho`ng Vê? Sinh"))
p" |) y8 d. ]. w
(IF(OR(= cpt "C")(= cpt "c"))(SETQ CPT ' "Pho`ng Ho?p"))
7 u% n; ^/ F" {4 L: c p! a2 U
(IF(OR(= cpt "O")(= cpt "o"))(SETQ CPT ' "Pho`ng La`m Viê?c"))
! H$ ~, z1 N% n" J8 l/ U
(IF(OR(= cpt "M")(= cpt "m"))(SETQ CPT ' "Pho`ng Ngu?"))
/ E2 w/ p b& O8 y2 k
(IF(OR(= cpt "D")(= cpt "d"))(SETQ CPT ' "Pho`ng Bê´p + An")); O4 r; W' o7 Y
(IF(OR(= cpt "S")(= cpt "s"))(SETQ CPT ' "Nha` Kho"))
& \% k0 ] G& t f
(IF(OR(= cpt "L")(= cpt "l"))(SETQ CPT ' "Pho`ng Ðê? Ðô`"))0 f" _# i9 v' ]' ]7 Z- {" m
; s. R1 k$ g' G$ Q5 F
(IF(OR(= Cpt "KK")(= cpt "kk"))(SETQ CPT ' "Nhµ BÕp"))
: A( E! o L8 h, G' W* |
(IF(OR(= cpt "BB")(= cpt "bb"))(SETQ CPT ' "Phßng VÖ Sinh"))9 u( y& I% l- l' d2 T2 l
(IF(OR(= cpt "CC")(= cpt "cc"))(SETQ CPT ' "Phßng Häp"))
- B2 _* m: ?( S* {( ], [9 _% y
(IF(OR(= cpt "OW")(= cpt "ow"))(SETQ CPT ' "Phßng Lµm ViÖc"))
i. G+ \2 }1 o' v' P. }5 M, R8 n8 o
(IF(OR(= cpt "MM")(= cpt "mm"))(SETQ CPT ' "Phßng Ngñ"))
* O" |5 T% H+ N8 ~5 @; M1 }
(IF(OR(= cpt "DD")(= cpt "dd"))(SETQ CPT ' "Phßng BÕp-¡n")). J5 w; m7 C- ~! ^) _
(IF(OR(= cpt "SS")(= cpt "ss"))(SETQ CPT ' "Nhµ Kho")) {2 }* d, J5 e. [" L O7 b1 r$ N
(IF(OR(= cpt "LL")(= cpt "ll"))(SETQ CPT ' "Phßng §Ó §å"))3 X3 ~0 B, K) g, [5 F
* y# U' [9 ~( f. l% v
(IF(OR(= Cpt "oK")(= cpt "ok"))(SETQ CPT '"NHA/F BE/M/SP"))
+ O* `, k$ c, O9 @. v, ?
(IF(OR(= cpt "oB")(= cpt "ob"))(SETQ CPT '"PHO/F/NG TA/W/SM")) {# m6 }4 A4 {
(IF(OR(= cpt "oC")(= cpt "oc"))(SETQ CPT '"PHO/FNG HO/JP"))
, N4 K r0 w3 @! `/ N
(IF(OR(= cpt "oww")(= cpt "oww"))(SETQ CPT '"P.LA/FM VI/E/M/JC"))+ Z0 u0 B$ r% d( c, h$ z) T6 f
(IF(OR(= cpt "oM")(= cpt "om"))(SETQ CPT '"PHO/FNG NGU/R"))4 K& e5 J5 _8 P. e# E; @
(IF(OR(= cpt "oD")(= cpt "od"))(SETQ CPT '"PHO/FNG A/WN"))
& m% \8 j+ e2 n/ S* n' _
(IF(OR(= cpt "oS")(= cpt "os"))(SETQ CPT '"NHA/F KHO"))
7 e6 l8 o: h9 D% o. k2 m
(IF(OR(= cpt "oL")(= cpt "ol"))(SETQ CPT '"PHO/FNG /DO/M/F"))
- ]5 } L; j) c! [; q
(setq pta (getpoint* i4 p% c9 G; C1 z7 T6 a. [
"\nPick first corner. : ")) x; M7 k& o% f8 m
(setq ptb (getcorner pta
; f" h h/ N1 s3 p1 h! b9 C1 [
"\nPick second corner. : "))
( Q2 t! e7 w7 t; M+ h" K. z- o7 b
(setq ptc (list (car ptb)(cadr pta)))
8 L- b2 ^: R* n2 L1 {! l
(setq ptd (list (car pta)(cadr ptb)))
0 f0 N6 `0 D3 V5 H; X* \
(setq ang (angle pta ptb))0 l9 m0 v9 z s; g: `( u
(setq d1 (/(distance pta ptb) 2))
1 s9 A6 j& o2 y2 f5 w
(setq cp (polar pta (- ang (dtr 0)) d1))* T5 ~$ p& X. J, X& A! ]; _( D% |% X
(setq X (distance pta ptc))
' i, M% I0 @$ T" z
(setq Y (distance pta ptd))
8 r% }4 H& L5 R7 _( L
(setq X1 (rtos x 2 1))0 ]( H5 t' x8 A2 A/ }$ u
(setq Y1 (rtos y 2 1)) A0 K j& ]$ G6 x
(setq rmsz (strcat "(" X1 " x " Y1 ")"))7 u9 P/ [. D: N. {9 O5 W
(command "TEXT" "c" cp "0" CPT "ROMANT-TEXT" "" rmsz))1 ~8 m, [* {0 F* p. U/ E
(defun dtr (angg)
4 C4 C1 H. v! F* x! G
(* pi (/ angg 180.0)))
2 z( L4 J, S1 K! t4 R
8 ]' F C% R" R; ` W
(defun c:WS (/ pta ptb rmsz pl1)
2 S" a0 F" s8 I7 o
(setq oer *error* *error* err2)
, w6 d4 P u' a
(PROMPT "\n (RomanT.TXT)floorp(L)an.(E)levation.(S)ection.(M)planFoundation.(C)Found.(K).(P).")" B/ @8 V% F' o% ^3 b) R
(SETQ Cpt(GETSTRING "\n (VnHELVH.Vnh)(LL)floorplan.(EE)elevation.(SS)section.(BM)planFoundation.(CM)foundation.(KC)Structure.(PP)perspective."))
2 s, C- E# E1 R: U( X% @
7 s# u+ L2 V3 s' v! r0 Y
(IF(OR(= Cpt "LL")(= cpt "ll"))(SETQ CPT ' "MÆt B»ng TÇng 1 : TØ LÖ - 1:100"))
3 R' T4 U5 U4 o( w) q, }& H
(IF(OR(= cpt "EE")(= cpt "ee"))(SETQ CPT ' "MÆt §øng Trôc ?-? : TØ LÖ - 1:100"))
+ h, ?( T& L3 W& C V; d7 f
(IF(OR(= cpt "SS")(= cpt "ss"))(SETQ CPT ' "MÆt C¾t A-A : TØ LÖ - 1:100"))
( n$ X9 n) S- g: W6 a
(IF(OR(= cpt "BM")(= cpt "bm"))(SETQ CPT ' "MÆt B»ng Mãng : TØ LÖ - 1 : 100"))
p) G; @4 L! s, u7 u5 _
(IF(OR(= cpt "CM")(= cpt "cm"))(SETQ CPT ' "MÆt C¾t Mãng : TØ LÖ - 1 : 100"))' V' c8 y. R# |, K7 c
(IF(OR(= cpt "KC")(= cpt "kc"))(SETQ CPT ' "KÕt CÊu Khung Däc Nhµ : TØ LÖ - 1 : 100"))
$ b6 |5 U- Q) A% C3 A
(IF(OR(= cpt "PP")(= cpt "pp"))(SETQ CPT ' "Phèi C¶nh Mét Gãc Nh×n")) s# u6 \0 C* W9 {" J
9 e, i' e8 Q1 M; U7 z9 M
(IF(OR(= Cpt "L")(= cpt "l"))(SETQ CPT '"MA/W/JT BA/W/FNG TA/M/FNG 1 : TI/R LE/M/J - 1:100"))1 ]& \2 K1 @/ g8 _$ _- l2 P, P
(IF(OR(= cpt "E")(= cpt "e"))(SETQ CPT '"MA/W/JT /D/}/SNG TRU/JC ?-? : TI/R LE/M/J - 1:100"))
4 Y5 p6 C7 @% {1 x, D1 K; [: D
(IF(OR(= cpt "S")(= cpt "s"))(SETQ CPT '"MA/W/JT CA/W/ST A-A TI/R : LE/M/J - 1:100"))7 f5 i+ ~. \% X/ z
(IF(OR(= Cpt "M")(= cpt "m"))(SETQ CPT '"MA/W/JT BA/W/FNG MO/SNG : TI/R LE/M/J - 1:100"))
3 M7 r" V$ g: K5 [/ y) b
(IF(OR(= Cpt "C")(= cpt "c"))(SETQ CPT '"MA/W/JT CA/W/ST MO/SNG : TI/R LE/M/J - 1:100"))
. R6 H; I' ^. j1 y. X$ ^4 u$ k
(IF(OR(= Cpt "K")(= cpt "k"))(SETQ CPT '"KE/M/S/T CA/M/SU KHUNG DO/JC NHA/F : TI/R LE/M/J - 1:100"))8 H0 _3 d. Z3 l( O$ R
(IF(OR(= cpt "P")(= cpt "p"))(SETQ CPT '"PHO/M/SI CA/R/NH MO/M/JT GO/SC NHI/FN")) ]' d2 V7 Q" B9 ~- k& y$ k/ U2 |
(setq pta (getpoint+ S/ Q' ]% y' t5 X6 B
"\nPick first corner. : "))
) z7 _5 l& J( u# F
(setq ptb (getcorner pta
# W9 V, ]7 Y9 [$ b
"\nPick second corner. : "))% s1 h" }$ z' C/ _5 v; I
(setq ptc (list (car ptb)(cadr pta)))# F! S/ H! I8 N* [2 w
(setq ptd (list (car pta)(cadr ptb)))
3 r0 ]! A+ y* w6 f
(setq ang (angle pta ptb))6 o8 o& Z9 P2 q/ b9 k) v
(setq d1 (/(distance pta ptb) 2))2 a P" D/ r! m
(setq cp (polar pta (- ang (dtr 0)) d1)) i2 E! F; Y- v+ p" a
(command "TEXT" "c" cp "0" CPT "ROMANT-TEXT" "" rmsz))
2 k+ U0 O6 y- l. A, g
(defun dtr (angg)
1 h" \2 A9 n( g
(* pi (/ angg 180.0)))' Y4 {; T- p* G* F
% Q* v! K% v1 `4 ]. b- q! d( k
;;; ================================ GHI CHU ============================) ?8 w$ z( x6 L1 v
;;; ======== Phai Vao STYLE Tao LAYER Ten TEXT + Phai Dat Height ========9 t, B& }- o+ B4 D" I, X2 F: K
;;; =======================Thuong Dung Font Romant.vnh===================2 q% S% ]8 C# i4 {, j& `
/ L. K: i" N3 ^( ]
(defun c:RRS (/ pta ptb ptc ptd X Y X1 Y1 rmsz pl1)1 w8 o g( @0 e' U
(setq oer *error* *error* err2)" x' t, _+ \2 ^+ l; k+ v4 q
(PROMPT "\n(D)ining room. (S)torage. c(L)oset. (C)onference. (O)ffice. (K)itchen. (B)ath. ")
( |3 H( P8 t0 I3 |
(SETQ Cpt(GETSTRING "\n(M)aster Bedroom. (DD). (SS). (LL). (CC). (OO). (KK). (BB). (MM). "))
- `# X3 W. G$ U* o+ ]" u- W6 }
(IF(OR(= Cpt "K")(= cpt "k"))(SETQ CPT ' "Nhà B?p"))
7 m, y! O5 t3 V
(IF(OR(= cpt "B")(= cpt "b"))(SETQ CPT ' "Phòng T?m")); K# f" k0 d0 Z M: u" R) X
(IF(OR(= cpt "C")(= cpt "c"))(SETQ CPT ' "Nhà H?p")): Q9 j4 W+ ?! ~1 p
(IF(OR(= cpt "O")(= cpt "o"))(SETQ CPT ' "Phòng Làm Vi?c"))
. e+ b# k; Y2 s9 I9 `3 J
(IF(OR(= cpt "M")(= cpt "m"))(SETQ CPT ' "Phòng Ng?"))) O3 R' d* a( W- l# t( @; K
(IF(OR(= cpt "D")(= cpt "d"))(SETQ CPT ' "Phòng B?p-An"))
& K' Z7 T: D7 H" v& z* q* P
(IF(OR(= cpt "S")(= cpt "s"))(SETQ CPT ' "Nhà Kho"))
% c% [- _7 O- Z" Y
(IF(OR(= cpt "L")(= cpt "l"))(SETQ CPT ' "Phòng d? Ð?"))
) z* C- v {7 M: S0 {5 o& C4 B9 N
(IF(OR(= Cpt "KK")(= cpt "kk"))(SETQ CPT ' "Nhµ BÕp"))
" V4 D- C9 Z) m
(IF(OR(= cpt "BB")(= cpt "bb"))(SETQ CPT ' "Phßng VÖ Sinh"))( w' Z2 L1 H, s! F4 O2 N3 Y8 y3 H
(IF(OR(= cpt "CC")(= cpt "cc"))(SETQ CPT ' "Phßng Häp"))
) s" N( m: Q" H* C! Y; ^: r$ S
(IF(OR(= cpt "OO")(= cpt "oo"))(SETQ CPT ' "Phßng Lµm ViÖc")), T# U1 X' c7 {7 b
(IF(OR(= cpt "MM")(= cpt "mm"))(SETQ CPT ' "Phßng Ngñ"))
; \. Q. T" o* F+ {" @0 F, L
(IF(OR(= cpt "DD")(= cpt "dd"))(SETQ CPT ' "Phßng BÕp-¡n"))
* [8 z% W! P: Z) m" ]
(IF(OR(= cpt "SS")(= cpt "ss"))(SETQ CPT ' "Nhµ Kho"))
5 t5 x: D& P) E, _4 ]4 m; ?5 q
(IF(OR(= cpt "LL")(= cpt "ll"))(SETQ CPT ' "Phßng §Ó §å"))
3 `( q) X- y2 T( u* y: m
(setq pta (getpoint
+ N9 W. Y. m3 a1 }8 `; [
"\nPick first corner. : "))9 o# _/ I5 w! c5 @
(setq ptb (getcorner pta+ r$ K: f" P" `2 F, w) S7 o
"\nPick second corner. : "))! Y7 ]6 I7 h4 D: t
(setq ptc (list (car ptb)(cadr pta)))% u) v V4 Z' d4 j. e; a
(setq ptd (list (car pta)(cadr ptb)))% R% W0 D3 S# F6 r! U/ d4 G# E
(setq ang (angle pta ptb))
+ j& m! T# Y& u( e
(setq d1 (/(distance pta ptb) 2))
* \1 A) O1 } r6 j. d
(setq cp (polar pta (- ang (dtr 0)) d1)): I" m; k* h+ e/ S. p1 k2 B
(setq X (distance pta ptc))
+ s! u4 u. ]/ i" T0 C* O$ L
(setq Y (distance pta ptd))
9 u1 [- N% A, a2 [/ @2 L
(setq X1 (rtos x 2 1))# d8 H. U2 Y, S2 |4 i
(setq Y1 (rtos y 2 1))# Z# `& s" |! c, ?
(setq rmsz (strcat "(" X1 " x " Y1 ")"))9 B" [1 n3 {6 S% r/ t* H
(command "TEXT" "c" cp "0" CPT "text" "" rmsz))5 { r" _: o8 P7 n
(defun dtr (angg)
8 h8 f. K/ z# j. H& ]
(* pi (/ angg 180.0)))2 E/ W- I7 q2 f+ D7 {. h/ ]2 a
, V9 W* m6 Z' t$ E: {" Q9 E
;;; ================================ GHI CHU ============================: N0 A% q6 J/ Y
;;; ======== Phai Vao STYLE Tao LAYER Ten TEXT + Phai Dat Height ========8 b8 a6 e% @3 S5 n1 `$ `
;;; =======================Thuong Dung Font Romant.vnh===================/ N7 ~' ? K. W" N( B. a
/ [2 o3 Q* X6 D, b5 P; u3 j
(defun c:GS (/ a b c d)
" ~- [4 }* ]4 E! r' S
(graphscr)6 K1 G! v9 v% R, w+ r; V
(prompt "\nSelect text to set style....")
1 L1 I o) \, S9 C# j% \( l
(setq a (entsel))
' l3 W# n- J1 T# z$ V
(setq b (entget (car a)))" y+ ?3 k6 E; j0 _, K
(setq c (cdr (assoc 7 b)))5 [5 m+ W. A" f( r8 Q
(setq d (cdr (assoc 40 b)))
: x* g0 d( t" @) F& ^: Y
(command "style" c "" d "" "" "" ""))
; Z5 w; s0 \; s8 b
(princ "\nType GS to set text style.")& y3 W; w1 c% s# Q4 i% A3 ?
" }& n0 V3 ~ D- v7 u
(defun c:RC (/ olderr ocmd oblp pt1 pt2 pt3 pt4 l w)/ U8 W% P* k3 ^) L) {
(setq olderr *error* *error* myerror)
6 ^2 Q1 |; P+ C" S, {
(setq ocmd (getvar "cmdecho"))
' z: o# N9 i1 N) c( N# u f
(setq oblp (getvar "blipmode"))+ ?; A- {4 f) n. l/ W
(setvar "cmdecho" 0): d$ y5 N2 M* `9 d2 F0 y& u
(initget 1) ;3D point can't be null
* [ K7 U3 f6 M3 H$ j6 \8 ^) X% V
(Setq pt1 (getpoint (strcat "\nCorner of rectangle or square: ")))
+ R0 J' \/ v- C) K% y4 F! D+ F
(setvar "ORTHOMODE" 1)3 F1 A* y1 D7 i/ b# ?1 @2 [
(initget 7) ;Length can't be 0, neg, or null
/ L5 h1 F) ?! i2 _# v, ~
(Setq l (getdist pt1 "\nLength: "))
% x5 S# G, d! }: i/ Q
(Setq pt2 (list (+ (car pt1) l) (cadr pt1) (caddr pt1)))& P; r C L( ]5 \
(grdraw pt1 pt2 2)1 |4 F' R# ?0 k
(initget 7 "Square") ;Width can't be 0, neg, or null
: l8 H2 q+ d0 A: j: K- n. u* S' S
(setq w (getdist pt1 "\nSquare/<Width>: "))
4 c: w+ f) l- ]) ~$ N3 u
(if (= w "Square")
1 }* X' a3 ^2 C- A: J* h
(setq w l)
0 ^ J) E& ?" d+ N J; H. `1 ^1 S
)
) }3 Y& `' X/ r( v: I5 h1 v
(setq pt3 (list (car pt2) (+ (cadr pt2) w) (caddr pt2)))
' R% _$ \$ z3 Z6 D- P7 o, u
(setq pt4 (list (car pt1) (+ (cadr pt1) w) (caddr pt1)))
' I7 ~* K) f- E5 t3 V- v
(grdraw pt2 pt3 2)
. I, o* w: z# n3 Y9 a
(grdraw pt3 pt4 2)
% P0 _8 ^* j; j2 m5 q+ c) E
(grdraw pt4 pt1 2)
3 J9 Q3 K2 w! q$ u% y9 N, N
(setvar "ORTHOMODE" 0)
% y- a6 z) o4 g
(command "pline" pt1 pt2 pt3 pt4 "close")
6 d* P7 F- G1 a) m
(setvar "cmdecho" ocmd)
6 W! [0 P% R) D5 D# h4 o/ |% d ~
(setvar "blipmode" oblp)
(setq *error* olderr) ; Restore old *error* handler+ c! p* Q0 J8 _% ^- ?/ f/ D
(princ)
* c8 S( X& E0 y
)
, w- z! \! v9 z2 e' e
) l3 `' b* L! H" z+ A3 t, T
(defun c:SG (/ ent pt1 pt2 ang): O$ D7 q* A" l9 M. C( k
(setq cmd (getvar "cmdecho"))$ W, M" m: H- f1 h8 f/ V1 j5 b
(setvar "cmdecho" 1)
$ [0 p; Z3 H5 G) @: ^4 C
(prompt (strcat"\nSnap angle will be set to angle of line"))* \9 ]* h; R( Y& Y% f% V! c
(setq ent (entget (car (entsel))))
( Y+ e/ P2 |2 S' {8 [
(setq pt1 (cdr (assoc 10 ent)))
8 H/ b/ k: F- r7 C9 Q+ q+ h
(setq pt2 (cdr (assoc 11 ent)))+ w7 S" I5 ^, a' }8 w: o6 ?6 V
(setq ang (angle pt1 pt2))1 `7 Y$ [5 I2 j7 M; E# R
(setq ang (/ (* ang 180.0) pi))" R; d8 W+ ~5 l/ n! O, s7 p/ B
(setvar "cmdecho" 0)
7 @" {; i) o3 C/ Q5 I5 D' w) k# ~
(command "setvar" "snapang" ang)
. j ?- T; T$ r. U* W/ K
(setvar "cmdecho" cmd)1 e1 f- B! t: G
)
^. y1 d( a, \$ ^, y. L9 X; k* c
X& \+ V+ w* k0 |( S2 [
(defun C:TG ()0 e1 q$ m2 t# w2 ?! t
(initget "Increase New")
7 ?0 {5 m6 r/ H+ N9 Z% @
(setq ans (getkword "Increase/<New>: "))( e% U& F( H8 C6 ]2 @
(modang)8 S, }% U' T2 x% R! K2 ]) l. a; ?
)
Y7 D' t4 g, \5 k
(defun modang (/ ang ss ca e na ssl)
5 f& q4 \- y2 d. g8 Q- T# q# G7 O
(if (= ans "Increase")
% b* Y" k9 B9 h( |! h$ L B* C6 ^3 _
(princ "\nIncrease angle for text by: ")) ^' K* Y o' i' v4 d) r+ B
(princ "\nNew angle for text: ")& q ?" F& j5 t5 a! b$ [
)
* J4 f2 a3 T$ E7 y! e5 T6 j; k: q
(setq ang (getreal))
m1 l4 P Q2 t8 u9 Z) ^' G
(setq ang (* (/ ang 180) pi))3 w+ X6 A: _7 r0 a7 X) b% g5 j7 v
(setq ss (ssget))9 e# C! c4 ]* L8 H8 i3 a
(setq ca 0 ssl (sslength ss))
* C- T M0 s8 R
(while (< ca ssl)( c) D+ X9 z% x2 r1 I; |
(if (= "TEXT" (cdr (assoc 0 (setq e (entget (ssname ss ca))))))- F- a% a8 r0 i& U, D
(progn4 Q1 w4 D) ]" g1 w
(if (= ans "Increase")
! C [* K% A( p$ I E. K- |
(setq na (cons 50 (+ (cdr (assoc 50 e)) ang)))2 @) U$ l) i0 T* M9 J2 J$ P
(setq na (cons 50 ang))2 z; T; d/ u* w5 k$ B
)7 |0 r3 l1 D: k4 a
(setq e (subst na (assoc 50 e) e)), N% m5 u( y# N- U1 l
(entmod e)
9 c$ c2 ~$ G0 }* L
(setq ca (1+ ca))$ `, j+ }# T1 ^6 P. M$ v3 f
)
; d! t2 R# ~! }" \
)
$ x: {3 b& z; p5 t) } P4 e& G5 M
)- A3 ?: n6 ?( Y+ g# r+ {( f/ T
(terpri)
5 c% O( P( Q/ x3 t/ b+ E6 F2 s
)' w, p6 E. |$ y) K
* ]" @' ]4 B/ b7 {' J6 p
8 \" k! ] h9 }
(defun c:WL (), u7 @/ U5 M; W4 b& c+ W3 }( O
(setvar "cmdecho" 0)
- t: g3 L# t V/ j
(setq a 1)9 d8 I! y7 z' b7 w6 m% ~4 ]
(prompt "\nSelect Polylines to change: ")' V$ S/ j1 F, g- a: w- P& I- e
(while (/= a nil)1 \% r6 p! k) l5 r' }* C# c; V z8 o
(progn. a0 K1 j+ r: G% W$ s
(setq a (entsel))
* O" V" z# h, w; t
(if (/= a nil)2 h" }9 n: `$ Y! {3 k# T- B
(progn
9 e: r: T& `: W; p8 d/ B8 e+ c5 p
(setq b (entget (car a)))
5 A, _8 O. D6 y. E
(setq c (cdr (assoc 40 b)))
7 [- J, L( [( Y( R- l
(princ c)
" E, ~$ D& D5 b0 [& N) c' F0 s
(command "pedit"a"w""lw""")
9 k2 f7 ^* W2 U
))))
5 N$ y/ b* J% F' n6 r
(princ)
1 [4 R: g# R6 O
)2 I3 s L2 F7 S
" c' v; n1 _6 w r
;;; ================================ TEXT FIT ============================
; M8 K2 [, F/ M: z3 X& ^0 g% B* }$ b3 G
7 t* l/ ?6 A* ?0 F; c" d
(Defun c:FT ( )7 e+ g% H6 l4 [4 b5 f! Z5 x
(defun setsnapang (arg /) (setvar "snapang" (angtof (angtos (cdr (assoc 50 arg)) 0 8) 0 )) )+ T! R: e, a$ b( e/ d- ^3 N& [- q7 ]
(Defun LL-xyz (arg) (CAR (TextBox arg)) )
; ^* p( u3 L$ S8 b+ k& j
(Defun UR-x (arg) (CAADR (TextBox arg)) )
4 H2 @1 m! b& Q3 c& R: u
(Defun LL-y (arg) (CADAR (TextBox arg)) ), K# r" K3 Y; r0 `
(Defun LR-xy (arg) (List (UR-x arg) (LL-y arg)) ); B* W# \# V6 f: _1 q( E3 K0 o9 O3 \
(Setq ename (CAR (EntSel "\nSelect Text to stretch/shrink:" ) )
/ {% k @# z) Y3 n$ e
Textent (If ename (EntGet ename)) ) 0 J" z9 X7 ?; T( A
(If (= (CDR (Assoc 0 textent)) "TEXT"). A4 k: r( w7 j7 B8 v; e Z
(Progn (initget 0 "Start")# a6 m$ i+ [' Z; ?6 a
(Setq NewEnd (Distance (LR-xy Textent) (LL-xyz Textent) ) )
" G3 W+ J d4 X, k( P
(setsnapang Textent) ;set snap along text entity
$ [) p+ E; U. \9 m$ N" L
(setvar "ORTHOMODE" 1) ;drag along the text8 A9 z/ C5 b/ S
(setq
7 Z9 s9 i+ a+ O1 F2 K
TMP (getpoint (cdr (assoc 10 Textent)) "\nStarting Point/<Pick new ending point>: ") )
$ ~& F0 e3 [2 Y" M1 G V) |' y
(setvar "snapang" 0)$ ?* U* F5 f5 c) D- G9 b7 g5 H# T
(cond" b& ]) P3 Z" D4 S) X" G, s2 {- D: f0 F
((= (type TMP) 'STR) ;;new starting point to be selected) H. X4 M1 ^8 m8 U/ X' E& A4 u# U) e
(setq Start (getpoint "\nPick new starting point: "))
( \1 ^6 T, T$ Y9 J
(if Start (progn9 G+ l2 X! U2 _3 u* p0 s
(command "_UCS" "_E" (cdr (assoc -1 textent)))
: Y( {3 h( k, ^
(setvar "ORTHOMODE" 1)6 Q6 e& |0 j P: Y5 z
(setq NewPt
6 ^! ]0 P) H v& [9 L8 j) C
(if Start
- T! y) [( F, R9 r' @+ m( k* t4 c
(getpoint (trans Start 0 1) " ending point: ") nil ) )4 _4 o t |( ]; N( {6 w$ Q
(if NewPt (setq NewPt (trans NewPt 1 0))), n, X' z# X/ f8 F9 ^1 R& B
(setvar "ORTHOMODE" 0)
# s! i% e/ b f9 K- g
(command "_UCS" "_W") ) ) )
# [& E8 K- }& ~- L* `' i
((not (null TMP)) ;;new ending point selected
7 [: l& b6 K \! U/ o! E3 W) ~
(setq Start (cdr (assoc 10 Textent)) NewPt TMP) )
: B/ Y7 H' |/ i5 ^; c$ \9 q7 u
(t (setq Start nil NewPt nil) ) )
; q7 c$ j( l8 J! X/ F
(if (and Start NewPt) (progn2 S- q, n* P' M! H
(setq Val (Assoc 41 Textent) ;;current width factor
, u8 T2 @ V2 h+ V3 R* O* c
Val (if Val (cdr Val) 1.0) LTC_%
; K- w7 Y) r+ T
(* (/ (Distance Start NewPt) NewEnd ) Val )
textent (Subst (cons 41 LTC_%); ~) o) W' A: l/ u
(assoc 41 textent) textent)+ A% E I/ X g! o
textent (subst (cons 10 Start) (assoc 10 textent) textent)
6 f8 L3 o. c( J
textent (subst (cons 11 NewPt) (assoc 11 textent) textent) )( T$ j$ z$ o. V \9 H
(EntMod textent) (EntUpd (cdr (assoc -1 textent))))))) (Princ))! u+ l4 d' T5 O- S$ H2 [+ m- g
8 P7 Z, j0 q6 k% Y+ q( T/ X
;=====================================================================4 Z8 Y3 u/ S- r& g( g/ D7 u
;=========================COPY + ROTATE ==============================
- r- a( B, N$ T7 n* F
;=====================================================================1 A6 C1 b( Q1 |" V
& k( o9 }, O- r' R0 o% K6 q8 @
(defun c:CR(/ olderr cm loop ss1 ss2 bp mult lent ss2 lp1 lp2)' U: ]5 Z% L; X3 O% I
(setq olderr *error*
! i4 f# P6 `8 {) B' a" }% ~
*error* croerr)
2 V' ?: H# u9 V7 |/ \# t' \: |
(setq cm (getvar "cmdecho"))
3 O* k/ G6 T/ i5 D% H2 ~
(setvar "cmdecho" 0)
4 \& z# h/ |7 x( _8 L) O7 O2 w
(setq loop t)
# N' |# f; d. s/ l
(while (not (setq ss1 (ssget))))+ F, L( P+ t3 D/ e
(initget 1 "Multiple")
# t1 a. p- q: \4 A# v e9 ^9 J
(setq bp (getpoint "\nBase point or displacement>/Multiple: "))
# ~+ u5 M, r* d) Y
(if (= bp "Multiple")$ ?4 [3 Q% o l8 o
(progn
4 S5 k( ] X9 C$ y
(setq bp (getpoint "\nBase point: "))
w: J' w3 P. |* \5 A/ H' A
(setq mult t)% R: n# |/ F9 C3 @, g# `
)
) z1 K- a$ t& c+ T7 @2 q
)
4 ?" _6 a7 _+ c& e/ p7 K
(while loop
8 T! ?1 J1 m, _7 W4 w, X
(setq loop mult)5 m5 Q9 J8 j& E- s
(setq lent (lastent))
3 T$ m ?2 ?2 Z& X. E# x! x, \
(command ".copy" ss1 "" bp bp)2 b% \: n+ d( Q3 m) x
(setq ss2 (lss lent))
! v0 _7 D5 }& m7 c1 \
(setq lp1 (getvar "lastpoint"))0 \ @- s5 n6 ]0 X6 b* V
(prompt "\nSecond point of displacement: ")7 O( z8 `0 f) A
(command ".move" ss2 "" bp pause)( {) h6 f( B% p" i2 k1 W* X
(setq lp2 (getvar "lastpoint"))3 ]' g! r: V# @
(redss ss1)
* h* S' n0 ~% X% _2 I1 t8 L
(if (and (not mult)
; }4 s: K3 l6 e3 n O- F
(= (distance lp1 lp2) 0)
6 r$ u0 P1 s3 l) y6 e2 Q b
)
7 _! D9 F2 ?' J7 W5 C3 l. v5 ?0 z4 E
(setq lp2 (getpoint "\nRotation Point: "))
8 R3 `6 B& X5 j* N; ?7 S
)* L2 @: e f4 i
(if mult
( E1 M2 Q+ ^6 \4 S5 a7 B: ]. r
(prompt "\nRotation angle ")# E3 l6 W3 i; d: {
(prompt "\nReference/<Rotation angle>: ")
0 S& H# S9 g5 A
): }! C( S; ]. y
(command ".rotate" ss2 "" lp2 pause)
) v% e( p& K+ o, w$ P3 q5 t7 b+ q( Q
)
7 n/ p" c J4 {
(setvar "CMDECHO" cm): t2 T0 V$ p0 _) A& l( M4 T+ `7 s
(setq *error* olderr)3 i! |9 c& |! y5 }8 w
(princ)
; `3 I( Z; i! @! B% O
)- |, ], i6 u* T; w/ K) A
(princ)% v% ~- U, ~ M/ }3 R# t7 @3 t
(defun croerr (s) - N( ~" D7 V- @6 w
(if (/= s "Function cancelled")
7 @; ] S8 ] T4 X7 _
(princ (strcat "\nError: " s))4 D g q5 L( z
) 4 F8 l' n1 A5 C( B
(setq S nil)
- O8 L, y( C0 K( u; ]+ c
(setvar "CMDECHO" cm)" n7 i E- @6 T9 ] g
(setq *error* olderr)
6 v2 K/ y% G1 a a& B* ~
(princ)2 t+ ]5 ~0 e/ Q# k) y0 w9 B$ E0 b
)
4 y. u, ^6 g8 \( U9 _/ k2 d, ^
(defun lastent (/ a b)
9 B" v# s! T; S
(if (setq a (entlast))* j( A+ @- n( H3 Q
(while (setq b (entnext a))
! i( u; S, L6 M/ m+ D9 R
(setq a b); y. d3 t5 ?3 w8 p6 k5 t, M
)
( H t |5 c* r4 z9 \) k
)
% s" z& o8 N- ?5 ?
a# H8 O+ m* W1 c7 k
)2 P% E; m5 U4 R1 l; w' d. X
(defun redss (ss / en i)0 Z9 k: e( D6 m
(setq i 0)
# \4 O6 L6 f2 j1 x0 q6 i
(while (setq en (ssname ss i))
! |1 f" k, o N
(redraw en 1)
, Y% ]: n" }# \3 s% N2 d
(setq i (1+ i))8 n q. K9 ~9 Q' L p" t
)2 f8 O' ?- A) H( D
)
9 S) z! v, W$ f3 @
(defun lss (en / sels ed)/ j' e! F' W3 X$ U1 q/ S
(setq sels (ssadd))+ {) S: N+ }2 e2 ?4 } a$ q
(while (/= en nil)
. q! p0 P' X# y6 t! p& K
(if (setq en (entnext en)) (setq ed (entget en)))
3 X0 h. Y# ~" y" g( L6 ]' S
(if (/= en nil) (setq sels (ssadd en sels)))
6 k9 x7 A5 Y# ^/ b
(if (or (= (cdr (assoc 0 ed)) "Polyline")
0 u4 r H( ^) C2 t3 p' D% U
(= (cdr (assoc 0 ed)) "Insert")
0 w% G- t7 E3 D. y; @2 C
)
6 b& _8 T+ j% U( z
(while (/= (cdr (assoc 0 (entget (setq en (entnext en))))) "Seqend")) i! Y7 `% v7 L8 e P
)9 c5 j$ j. u+ A7 v
), ~; A+ ^. A' }/ T9 d- ~0 }
sels
: U3 a0 n w3 S. }- d; |8 I
) O/ [" m; O2 t/ ?
9 n. h$ ?; r+ ?9 I
;;;; ================== CAC FUNCTIONS DUNG TRONG ACAD.LSP ==================
( @) l; D5 N3 ?, e- N! p D
/ q( }: {/ M# j; n6 p+ }& }
(defun c:00 ()(princ "\nChon doi tuong net Defpoints")(ssget)(command "change" "p" "" "p" "la" "Defpoints" ""))( m, ?- n$ j# r# H4 H4 W* H7 @# w' f
(defun c:0 ()(princ "\nChon doi tuong net 0")(ssget)(command "change" "p" "" "p" "la" "0" ""))
; |# T- [& X. W1 _! @* X; ?
(defun c:1 ()(princ "\nChon doi tuong net COT")(ssget)(command "change" "p" "" "p" "la" "COT" ""))
& I7 e U5 Z) o& H/ a
(defun c:11 ()(princ "\nChon doi tuong net DIM")(ssget)(command "change" "p" "" "p" "la" "DIM" "")). x: M! h( o1 F! ~! A* P
(defun c:22 ()(princ "\nChon doi tuong net MANH")(ssget)(command "change" "p" "" "p" "la" "MANH" ""))
7 U2 ~! l" }3 A' G: ^( t, {5 q
(defun c:33 ()(princ "\nChon doi tuong net NETMANH")(ssget)(command "change" "p" "" "p" "la" "NETMANH" ""))$ Z( f/ H3 C) d+ G
(defun c:2 ()(princ "\nChon doi tuong net NETDUT")(ssget)(command "change" "p" "" "p" "la" "NETDUT" ""))
# e' B0 ]4 c4 ?3 e0 ^
(defun c:3 ()(princ "\nChon doi tuong net NOITHAT")(ssget)(command "change" "p" "" "p" "la" "NOITHAT" ""))
5 L& ~# S0 T" P- U
(defun c:4 ()(princ "\nChon doi tuong net TUONG")(ssget)(command "change" "p" "" "p" "la" "TUONG" "")): _6 _2 _# g( c% u" I V" y
(defun c:44 ()(princ "\nChon doi tuong net KHUNGTEN")(ssget)(command "change" "p" "" "p" "la" "KHUNGTEN" ""))
( D" ^$ V3 ~4 X
(defun c:5 ()(princ "\nChon doi tuong net TIMTUONG")(ssget)(command "change" "p" "" "p" "la" "TIMTUONG" ""))
: ]& W y; n6 {' N' s o R
(defun c:6 ()(princ "\nChon doi tuong net CUA")(ssget)(command "change" "p" "" "p" "la" "CUA" ""))
/ I \ e4 z, C' G4 S
(defun c:7 ()(princ "\nChon doi tuong net THAY")(ssget)(command "change" "p" "" "p" "la" "THAY" ""))
, D% j+ ?& D0 f7 `
(defun c:77 ()(princ "\nChon doi tuong net NETTHAY")(ssget)(command "change" "p" "" "p" "la" "NETTHAY" ""))
" `8 Y5 K) ^3 V$ N
(defun c:8 ()(princ "\nChon doi tuong net HATCH")(ssget)(command "change" "p" "" "p" "la" "HATCH" ""))
6 G$ r. R: s4 u" {( b% Q9 V0 D
(defun c:9 ()(princ "\nChon doi tuong net TEXT")(ssget)(command "change" "p" "" "p" "la" "TEXT" ""))
& b% n9 m" ~: s) L: `
(defun c:99 ()(princ "\nChon doi tuong net CUAMATDUNG")(ssget)(command "change" "p" "" "p" "la" "CUAMATDUNG" "p" "C" "bylayer" ""))
% z$ U2 s7 d8 A6 e
(defun c:td ()(princ "\nChon doi tuong net THEPDOC")(ssget)(command "change" "p" "" "p" "la" "THEPDOC" ""))
0 S9 ^" u" W( j# y) S% J6 M: I$ [
(defun c:ddt ()(princ "\nChon doi tuong net THEPDAI")(ssget)(command "change" "p" "" "p" "la" "THEPDAI" "")), u2 J, s( Y/ y/ F
' Z Z% A, n+ q# G
;=============== DAT NET IN de xuat anh JPG [W x H] [5940.00 x 4200.00] =============
0 G" I' H0 k$ e M
$ X$ z6 l, B' x. C) @* A7 I
;=============== DAT NET IN de xuat anh JPG [W x H] [5940.00 x 4200.00] =============
0 V) m+ }8 z6 I* _ Q
5 a G: n7 X4 b# L
(alert "Using the NetXuatAnh-[ 5940.00 x 4200.00 <pixels> ] command!")
4 U0 y* F- @2 u) x w7 j
(princ "\nEnter (DEFUN C:netxuatanh () to get to real LAYER command.\n") (command "NETXUATANH")
2 |2 L C' Z0 e" Q
# l9 Q5 t6 y f- e" | y8 V8 i
;=============== DAT LAYER NET de xuat anh JPG [W x H] [5940.00 x 4200.00] ===DRAW===
2 ]- p% J+ {5 R; F H3 b
' q* o% ?! n2 A/ v0 z
;(DEFUN C:netxuatanh ()6 K2 f1 h; ^& z# r$ v5 f
(COMMAND "-LAYER" "M" "NETDUT" "C" "8" "" "Lw" "0.6" "" "LT" "ACAD_ISO03W100" "" "" "LTSCALE" "5" ""$ u: E7 x2 k" Y) f* ]2 Z
"-LAYER" "M" "TUONG" "C" "4" "" "Lw" "1.58" ""
s( {* V+ q, R9 V k% q+ k; L
"M" "MANH" "C" "9" "" "Lw" "0.5" ""
9 D; i, g. W& M, t0 Z2 ?
"M" "TEXT" "C" "7" "" "Lw" "0.5" ""
% D6 G$ v8 K# F) S
"M" "DIM" "C" "1" "" "Lw" "0.6" ""$ f3 [ d( S' X! R; W
"M" "THAY" "C" "7" "" "Lw" "0.7" ""9 y4 \" p$ V! B1 w; J& o: H n
"M" "NOITHAT" "C" "3" "" "Lw" "0.5" ""
# z: n8 Q' ^+ ?5 F# H. L. m+ O; W# k
"M" "HATCH" "C" "5" "" "Lw" "0.35" ""* B5 f/ \. f8 M" m( N& }" Y
"M" "COT" "C" "2" "" "Lw" "2" ""# h9 B. y p3 P
"M" "Defpoints" "C" "7" ""# t% ~% P% m; Z* f. R4 `
"M" "0" "C" "3" "" "Lw" "0.5" "": g" n: h" G+ A+ y Y; c
; "M" "1" "C" "1" "" "Lw" "0.5" ""% x5 Q1 n6 b3 v, I3 Q3 r
; "M" "2" "C" "31" "" "Lw" "0.5" ""4 e2 p" ?2 _4 h
; "M" "3" "C" "8" "" "Lw" "0.35" ""- p& t) f6 B8 p N) U' N! [% v
; "M" "4" "C" "4" "" "Lw" "0.8" ""
7 L" N1 @8 C0 d3 |' y- J
; "M" "6" "C" "6" "" "Lw" "0.35" ""3 P( E" R( T+ E' g
; "M" "7" "C" "7" "" "Lw" "0.4" ""
, U! n: L b' L* E
; "M" "8" "C" "8" "" "Lw" "0.35" ""; \, {9 y, i; ~1 P ~2 m
"M" "DAY-DIEN" "C" "3" "" "Lw" "0.5" "": ~4 Q- Z$ x7 o/ p7 F
"M" "DUONGBAO" "C" "7" "" "Lw" "1" ""
- T) [4 `+ L7 P+ B" P
"M" "KE" "C" "8" "" "Lw" "0.3" ""7 ~# @( D1 N* I4 q4 p C1 L
"M" "KT" "C" "9" "" "Lw" "0.35" ""0 m3 D/ f& E. U5 O& ^9 b5 Y
"M" "NETTHAY" "C" "255" "" "Lw" "0.7" ""3 \, N& X& n0 X4 n, S$ ^
"M" "NETMANH" "C" "43" "" "Lw" "0.5" ""+ Y) ~' B; Z* E
"M" "TBD" "C" "2" "" "Lw" "0.8" ""
' ^* a4 o+ ?) E6 P# n" B
"M" "TEXTTXT" "C" "7" "" "Lw" "0.4" ""
$ s$ H4 R# ]) M L- ?: l1 L! d
"M" "TEXTVN" "C" "132" "" "Lw" "0.4" ""7 f% k# J g5 f" n6 }7 m% v3 e
"M" "THEPDAI" "C" "3" "" "Lw" "0.7" ""+ T4 C2 Q/ ~( I- M; {
"M" "THEPDOC" "C" "2" "" "Lw" "1.58" ""0 e; o* G& |3 B
"M" "CUA" "C" "6" "" "Lw" "0.5" ""
8 R! l2 Z2 m' y
"M" "CUAMATDUNG" "C" "6" "" "Lw" "0.5" ""
. P7 w* b- V# L7 P) X3 i
7 c% r. Y6 f0 F ?
;=============== DAT NET IN de xuat anh JPG [W x H] [5940.00 x 4200.00] ===NUOC===- I2 L6 c0 M2 ?) n, n& g
+ t* F7 U9 S8 _; v: |4 E2 U+ Y
"M" "10-VAN_KHOA" "C" "10" "" "Lw" "0.5" "" }+ U: A5 b$ g, D6 z. K
"M" "4-WateR_IN" "C" "4" "" "Lw" "0.6" "" "LT" "FENCELINE1" ""
3 c$ |9 I' u/ m% o: B$ P
"M" "4-WateR_OUT" "C" "4" "" "Lw" "0.6" "" "LT" "FENCELINE2" ""
- X) w9 N% K. f: {" S6 @0 w
; "M" "250" "C" "250" "" "Lw" "0.35" ""
) g; c. W8 u U9 p; y5 t
"M" "KHUNGTEN" "C" "4" "" "Lw" "1" "" y- ]2 E# E- V, t! M% @( }0 ], d
"M" "TIMTUONG" "C" "5" "" "Lw" "0.5" "" "LT" "ACAD_ISO10W100" "" "" "LTSCALE" "10" "" )$ _5 \" V5 ~9 R( t3 {- \$ a
/ E& R0 K0 U8 }3 {
;=============== DAT LAYER TEXT de xuat anh JPG [DIM] [TEXT] [GHI CHU]======# `6 u9 z3 ?& J6 G2 S
;===================================30|04|2024==============================
9 _6 l! D% m9 V/ n) [
. I+ P ]8 g4 o' N0 |$ g7 P* D
(Command "-style" "Vni-VietNam" "vn_vni,vns.shx" "0" "1" "0" "n" "n" "n" )1 e! j2 x+ K( `+ S/ ^
(Command "-style" "Vni-ROMANS-TEXT" "vni-romans,vns.shx" "200" "1" "0" "n" "n" "n" )
# ~+ X, ^! |- w3 a8 A$ i
(Command "-style" "COTES" "verdana" "" "1" "0" "n" "n" )
, r% |8 P2 r9 H( R
(Command "-style" "TRUC" "impact" "0" "1" "0" "n" "n" "n" ), x- ?) a; u& p) v* { s1 h
(Command "-style" "VNHELVLT-Hoa" "vnhelvh,vnh.shx" "500" "1""0" "n" "n" "n" )1 {2 B1 W3 N' y4 G* O
(Command "-style" "VNHELVLT-Thuong" "vnhelv,vnh.shx" "500""1" "0" "n" "n" "n" ); ]" T' g+ H: I: H& e: d
(Command "-style" "STANDARD" "Verdana" "200" "1" "0" "n" "n" "n" )
. O# p7 ^/ B- P4 l( v' Q z2 Q0 g
(Command "-style" "VERDANA" "verdana" "200" "1" "0" "n" "n" )
, h9 I3 v. w' U& ?
(Command "-style" "ROMANT-DIM" "romant,vnh.shx" "0" "1" "0" "n" "n" "n" )2 e2 g$ i( b) s% {8 O+ _* l. h5 z+ r
(Command "-style" "ROMANT-TEXT" "romant,vnh.shx" "200" "1" "0" "n" "n" "n" )(princ)
; O/ V, ^4 |& o0 F, {
. Q2 v. r( R0 s e2 o8 {1 o
;============= DAT NET IN de xuat anh JPG [W x H] [5940.00 x 4200.00] =DIM-STYLE=
3 X" ?8 I3 F8 u- b& f
;===================================17|10|2024===================================
/ H: K; n: `$ [* b
9 C3 U. b6 e/ g/ X8 ]- @
(Command "DIMTXSTY" "ROMANT-DIM" )
5 D# D0 |: O. p& m3 A; V. O p
(Command "DIMBLK" "" "Closed" )
$ v5 U$ i' t% O W; t2 o9 _
;============= DAT NET IN de xuat anh JPG [W x H] [5940.00 x 4200.00] =DIM-STYLE=
; l' y0 C3 C5 Z) ?* C
;===================================17|10|2024===================================5 m+ h$ y9 I& N2 q
0 S6 t I9 x2 y) a
;(Command "-units" "2" "8" "1" "8" "" "N")* R2 R+ f; V% \. B( g6 j" N
(Command "-plot" "Y" "" "publishtoweb jpg.pc3" "User 1 (5940.00 x 4200.00 Pixels)" "Landscape" "N" "Display" "Fit" "Center" "Y" "monochrome.ctb" "Y" "")(princ)
; |' X( T7 Z: u3 o
5 x+ s$ \& B4 r/ z8 U
;============= DAT NET IN de xuat anh JPG [W x H] [5940.00 x 4200.00] =DIM-STYLE=
: k! S9 Q! C/ ^; Y: S8 ], W
;===================================17|10|2024===================================7 U$ ~# d$ G" i4 J. T
" L/ N8 X' g4 X8 q: l$ }& y
;======== KET THUC - DAT NET IN de xuat anh JPG [W x H] [5940.00 x 4200.00] =====/ q7 r' z/ |( g& b8 q
7 x/ s. p' }" B, T ~
;======================== DAT NET IN & TI LE BAN VE =============================
0 n- ~4 r2 q+ x
) w" S* x! h" {- L0 i2 `* ?
;=================LENH VE KHUNG TEN - Tieu Diet Lenh==================
( W0 ] }) j8 s) V# I6 P
;=============== DAT KHO GIAY BAN VE - KIEU KHUNG TEN ================; v% \, S( y& F! X8 H3 L
;=============================11|07|2025==============================* w; R! X: B* `
;Ti Le Ban Ve - 1 : 1004 O; Y' o x* t
(Defun c:kta4 (). d C! R9 K& D& r, T/ Y2 g
(setq mv_sc 100);Ti le ban ve
! k+ c1 a4 p* G6 H/ P# o
(setq x4 297)% b$ @$ G: W2 {. d+ I
(setq y4 210)5 ], |2 g$ |4 @# q- O
(setq x4 (* mv_sc x4) 3 F$ g/ Z$ H& R3 u r% @9 M
y4 (* mv_sc y4) )
% H- k$ J: P% Q: ~% f# v f
(command * y, @: n$ J" ~2 ]
"LIMITS" "0,0" (list x4 y4); ]8 e/ X" F4 i- ^6 a
"PLINE" "0,0" (list 0 y4) (list x4 y4) (list x4 0) "0,0" "_C". Y& D9 N! \; @" u! h, c' @
;Khung CHU NHAT Chinh
9 h& v3 Q6 H' I; _
"RECTANG" "500,500" "@28700,20000"
; \) [8 c' a8 ^6 U
"RECTANG" "700,700" "@28300,19600"' ]# Q7 n; ~0 q+ v7 B
;Khung Ten Chung
( B6 A: f7 e0 ^/ v7 \" Q2 ]
"RECTANG" "700,700" "@8000,1250"4 l- y+ ?* T/ n
"RECTANG" "700,700" "@17300,2500", F; a) x3 N* G f! e4 b
;Ten Ban Ve
, A8 v3 F, D, `9 L" ]( j3 h
"RECTANG" "18000,700" "@11000,1250"
+ t( j8 Y9 e# [% B0 E; {0 O
"RECTANG" "18000,700" "@11000,2500"
7 {5 r% X7 @/ [3 S1 l4 Z1 x
;Khung Ti Le + Ngay Thang Nam" e, F( f2 m1 g1 t- f( ?/ C
"RECTANG" "22500,700" "@2000,2500", |3 K; y+ o, i+ H* P* A
;Khung CHU TRI/ K' W4 V7 [3 _% l
"RECTANG" "8700,700" "@3800,2500"! x; \& a+ K% ?, I1 i, z
"ZOOM" "_a" ))* e: j) u2 C& U& v
;=====================================================================
5 J1 n3 P" X# F9 y1 j2 V4 c
;Ti Le Ban Ve - 1 : 100! b# x: B) ]0 x! O! u
(Defun c:kt4a (): o8 {- B+ i8 i9 A6 s
(setq mv_sc 100);Ti le ban ve
* G. a; c0 w: l- B5 X
(setq x4 297). h+ r. O1 k6 j# [; x* M3 H$ l
(setq y4 210)
! T$ X3 n3 @/ K+ F. U
(setq x4 (* mv_sc x4)
% N' w2 I; w: W
y4 (* mv_sc y4) )( t8 b: v0 Y% ^" b V3 z; A
(command
8 G6 d0 {) S) J/ Z
"LIMITS" "0,0" (list x4 y4)- _( k" M. S) V3 w/ L
"PLINE" "0,0" (list 0 y4) (list x4 y4) (list x4 0) "0,0" "_C"' k4 i8 D) s& O8 N( i8 w5 B9 r
;Khung CHU NHAT Chinh ( X6 o) c/ {# M2 i8 j
"RECTANG" "2000,500" "@27200,20000"
! G! o, S% G/ p5 a7 [% E+ F
"RECTANG" "2200,700" "@26800,19600"/ |9 \ a' ~. Z, { ^2 W
;Khung Ten Chung
# C: Y- M9 ]/ c7 ~# ]2 E8 b* Z
"RECTANG" "2200,700" "@6500,1250"
! A A/ \7 O2 A/ p1 _2 r: G/ j& n
"RECTANG" "2200,700" "@15800,2500"
% a- H2 A( i5 z; ?2 N S
;Ten Ban Ve/ m( G! o( b% X, w) U& P: Y
"RECTANG" "18000,700" "@11000,1250"
3 |+ L% f3 H! P. u2 ~. L% o% J5 r
"RECTANG" "18000,700" "@11000,2500"% b$ @$ m* ?3 I. f9 |% C
;Khung Ti Le + Ngay Thang Nam9 G# t& c) I: O* d
"RECTANG" "22500,700" "@2000,2500"
7 \6 V: C5 a* h7 F. `0 l F
;Khung CHU TRI5 V' b2 j) u4 R. S; S4 F
"RECTANG" "8700,700" "@3800,2500"
8 t+ t1 j* c4 G* j: p
"ZOOM" "_a" ))
( x0 L! f+ o6 O/ C. F$ ~
9 a, s1 n# i4 y3 J( q: R$ Z1 g
;;; ============================GHI CHU Khung Ten========================
' b) t$ [# ]" J
;;; ======== Phai Vao STYLE Tao LAYER Ten TEXT + Phai Dat Height ========
9 j8 L# p4 m# t$ g3 e* P6 `
;;; =======================Thuong Dung Font Romant.vnh===================
+ ~! k/ D9 i# A6 E+ g
+ |8 D. f* j: g7 v9 m
(defun c:GhiChu (/ pta ptb ptc ptd X Y X1 Y1 rmsz pl1)
/ |9 h$ q2 d0 p% v' H3 {
(setq oer *error* *error* err2)0 R, [, s8 Q# D
(PROMPT "\nChuTri. ThietKe. KiemTra. TiLe. Ngay. HangMuc. QuyMo. KieuNha. CongTrinh. KyHieu. TenBanVe. Kts. TranNgocThang. ")& S+ r9 Z- j/ _. g6 ]. `
(SETQ Cpt(GETSTRING "\n(CT). (TK). (KT). (TL). (Ng). (HM). (QM). (KN). (CTr). (KH). (TBV). (Kts). (TnT). "))
7 F' j0 f% C# t
(IF(OR(= Cpt "QM")(= cpt "qm"))(SETQ CPT ' "Hå S¬ ThiÕt KÕ Nhµ D©n Dông quy M« :"))
5 n* W1 N8 F v9 b5 }) X/ N
(IF(OR(= cpt "KN")(= cpt "kn"))(SETQ CPT ' "2 TÇng 1 Tum Thang"))
1 m% L8 n* s F4 T$ s7 u4 d
(IF(OR(= cpt "CT")(= cpt "ct"))(SETQ CPT ' "Chñ Tr× :")); e, h3 f) F8 C7 S% V( f9 B1 @
(IF(OR(= cpt "HM")(= cpt "hm"))(SETQ CPT ' "H¹ng Môc :"))
- W: s0 S9 S$ c6 {! p4 Z
(IF(OR(= cpt "CTr")(= cpt "ctr"))(SETQ CPT ' "Nhµ ë Gia §×nh - Nhµ LiÒn KÒ"))
8 Y; l! p; [ \
(IF(OR(= cpt "TK")(= cpt "tk"))(SETQ CPT ' "ThiÕt KÕ :")); E8 H1 q$ E7 i2 O
(IF(OR(= cpt "KT")(= cpt "kt"))(SETQ CPT ' "KiÓm Tra :"))
* u+ B$ U0 c8 R
(IF(OR(= cpt "TL")(= cpt "tl"))(SETQ CPT ' "TØ LÖ :"))
3 u# v: s: N% U5 o
(IF(OR(= cpt "KH")(= cpt "kh"))(SETQ CPT ' "Ký HiÖu :"))' B6 v) W( |& b; E2 O8 T9 `/ }
(IF(OR(= cpt "TBV")(= cpt "tbv"))(SETQ CPT ' "Tªn B¶n VÏ :"))7 ~9 n4 L& D1 f- o
(IF(OR(= cpt "Ng")(= cpt "ng"))(SETQ CPT ' "Ngµy :"))
6 v9 {2 S3 x- S- {' `- j) I
(IF(OR(= cpt "Kts")(= cpt "kts"))(SETQ CPT ' "Kts. TrÇn Ngäc Th¾ng"))1 ]: x- n6 I2 M& w5 [
(IF(OR(= cpt "TnT")(= cpt "tnt"))(SETQ CPT ' "TrÇn Ngäc Th¾ng"))8 \& L' Y; K. X& c7 d
(setq pta (getpoint }7 t- N' t, D6 r& _3 o
"\nPick first corner. : "))
B. t7 i8 n3 M7 p& z
(setq ptb (getcorner pta' q% c; y! F9 i) b! k9 i
"\nPick second corner. : "))$ P% ]# x2 q# S- u5 Y
(setq ptc (list (car ptb)(cadr pta)))5 P' i" M3 [: m; I# @
(setq ptd (list (car pta)(cadr ptb)))% g$ |8 d; F$ u# ]
(setq ang (angle pta ptb))
, l+ T: g: z% }0 q+ R; a% I
(setq d1 (/(distance pta ptb) 2))" f" o; X7 a, U+ P$ J
(setq cp (polar pta (- ang (dtr 0)) d1)): B' g& ~9 C5 `& N- e3 H0 y
(setq X (distance pta ptc))" Q( t7 y7 u' c
(setq Y (distance pta ptd)); l* ~! k" b. R1 a/ N% p U
(setq X1 (rtos x 2 1))
. y( i+ q! b0 Z/ g
(setq Y1 (rtos y 2 1))' N& f! i. w3 D% Y
(setq rmsz (strcat "(" X1 " x " Y1 ")"))7 ?4 p+ g; y" a! `
(command "TEXT" "c" cp "0" CPT "text" "" rmsz))" L' W+ W. I6 ?9 ~7 V
(defun dtr (angg)
6 u& {. b7 @2 T
(* pi (/ angg 180.0)))
# i1 @6 Q t2 M0 f; I( T+ Y- L
$ L4 K2 Q6 S: o) _4 a+ l9 p5 r; ?
;=====================================================================
4 e: ]4 v) K, E6 d1 z3 \
;==========================DAT KHO GIAY BAN VE - KIEU 1========================
/ C) I: ]$ O* ], X# ?. c
;=====================================================================
, y& o$ [/ |; j- l
: S+ z8 R+ n" u- C
(Defun c:a6 ()" F1 |, y$ N0 F; S5 X
(setq mv_sc 100);Ti le ban ve
7 C) W( I6 e$ Q" _8 [, z( f9 S
(setq x4 74.25)
8 [7 D0 ]' ]5 E# O+ [' E7 m+ V
(setq y4 52.5)
9 \0 \; d0 O' f" F$ Z$ \
(setq x4 (* mv_sc x4) $ G- Q7 O9 B, R" u! e
y4 (* mv_sc y4) )
( R# \' g: V0 X( c' U$ p: Q
(command
* o# H5 R. C" f S
"LIMITS" "0,0" (list x4 y4)! ?5 v: ~3 l! j& Q% x
"PLINE" "0,0" (list 0 y4) (list x4 y4) (list x4 0) "0,0" "_C"
+ w& ~+ c8 t4 w2 S& ^- f; N& v# z5 |
"RECTANG" "125,125" "@7175,5000"
( r( H4 N, U7 I' s2 ?$ w7 ?
"RECTANG" "175,175" "@7075,4900"$ Q) d" s( F3 I1 J7 C8 [, s. ?. Q
"ZOOM" "_a" ))
6 K% C- z. r4 h: `5 c
;=====================================================================- z' [$ Z, Z; g& x( `& ^' [
(Defun c:a5 ()* ~" v( B- O, e5 r$ U: e
(setq mv_sc 100);Ti le ban ve( b( J7 e+ u8 N% c
(setq x4 147.5)
# ~3 W0 _1 h0 s8 \; B
(setq y4 104)0 N* Z2 |* Z9 K0 L
(setq x4 (* mv_sc x4) 4 J' M) u, z+ Q$ e! w0 E
y4 (* mv_sc y4) )0 G" J8 c2 A* K4 g3 z& f
(command " y% \% @ Z1 A0 F7 ^5 Y
"LIMITS" "0,0" (list x4 y4)9 v" s7 M5 d: C6 Q6 l; G
"PLINE" "0,0" (list 0 y4) (list x4 y4) (list x4 0) "0,0" "_C"8 t( T6 ~% l" D. H% p
"RECTANG" "250,250" "@14350,10000"
; i" ~# N7 Q- C+ N
"RECTANG" "350,350" "@14150,9800"
/ c: [. G, x [. M, g$ h5 l
"ZOOM" "_a" ))
3 S1 i3 r" g# l" Z+ t! x' d8 c
;=====================================================================. [0 z o" @* a, q
(Defun c:a4 ()
+ Q. s) j: M2 e# z
(setq mv_sc 100);Ti le ban ve. w* d& }+ |. S- o& \# T( Y
(setq x4 297)
& E5 e) [, J3 e
(setq y4 210)
9 Z- N( _3 }; k
(setq x4 (* mv_sc x4) , h4 M! h2 b) e$ ? r$ p4 E
y4 (* mv_sc y4) )* t& z2 `" Q- g# r0 S( t0 B
(command
' A# x- s$ M: `" [" A, U
"LIMITS" "0,0" (list x4 y4)
! q" V7 Q, d9 H
"PLINE" "0,0" (list 0 y4) (list x4 y4) (list x4 0) "0,0" "_C"
( `6 P( z& S) s# y( b8 @! n( M
"RECTANG" "500,500" "@28700,20000"
% N z0 t2 o9 _# ]* f; X5 j' \ t
"RECTANG" "700,700" "@28300,19600"
1 P' _2 f0 z& j, U
"ZOOM" "_a" ))
3 ^2 U5 S/ X1 P" k
;=====================================================================# Q# P; e0 W$ R1 k
(Defun c:a3 ()
* N6 D! M9 H5 C( [7 l7 B) D0 ?
(setq mv_sc 100)
# I% C0 s. H3 K" R) }9 K; n
(setq x3 420)8 `+ ~. q8 B! b d
(setq y3 297)3 Z7 b% }, n, U( O! i7 Z" K x
(setq x3 (* mv_sc x3) : Y5 Z4 B. r. R6 q K! g. s' Z
y3 (* mv_sc y3) )
- I4 m) k0 W; Q
(command 4 |2 S# e2 n, ~, ]" E4 N' j
"LIMITS" "0,0" (list x3 y3)
6 c3 C$ f A4 Q1 e6 i8 r
"PLINE" "0,0" (list 0 y3) (list x3 y3) (list x3 0) "0,0" "_C"
2 x* x4 \: K, u0 Q# y9 B1 u6 L, P; C
"RECTANG" "707.14285714,707.14285714" "@40590,28285.71428571"
; n3 {* \+ e) r" u! z
"RECTANG" "990,990" "@40024.28571429,27720"
6 X: z; o" k5 P0 J) |
"ZOOM" "_a" ))
) n' m" H5 D3 d6 `/ [1 o
;=====================================================================
" c0 z8 J& ?3 P l
(Defun c:a2 (). Y5 _3 x; l/ R [+ D: ~+ K# C) a
(setq mv_sc 100)8 L, m/ p& ~* x. D7 x8 y
(setq x2 594)
, p* P1 h7 d/ Z7 t4 E: C
(setq y2 420)6 A- M* w# |( w
(setq x2 (* mv_sc x2)
% a" `2 P; _/ { T3 N# B
y2 (* mv_sc y2) )
0 J2 E' v1 a2 N4 J8 x
(command , M4 K9 W1 B$ I) c9 U t
"LIMITS" "0,0" (list x2 y2)
0 v- l* ]' d0 ?2 W# g0 Y/ J) V0 V
"PLINE" "0,0" (list 0 y2) (list x2 y2) (list x2 0) "0,0" "_C"
5 ~# x/ ^0 A: R" y5 v
"RECTANG" "1000,1000" "@57400,40000"
- E; z$ P: l$ I! D% N2 s
"RECTANG" "1400,1400" "@56600,39200"; Z9 ^% C& \! i4 Q/ x0 D6 V
"ZOOM" "_a" ))
9 r. k, j4 L/ w
;=====================================================================1 p) v) ]: Z8 b
(Defun c:a1 () v* b( V/ k2 V/ f: a
(setq mv_sc 100)
: | v6 P! u% a. N6 A2 `: {; }# v
(setq x1 840)
l& _" F, h4 C9 ~6 y& c
(setq y1 594)
2 C' s2 [! n' G) Z1 {8 M6 V! N
(setq x1 (* mv_sc x1)
" v$ K3 @5 l" f% U* B( R
y1 (* mv_sc y1) )2 T) F' Q3 l; l
(command
) L$ l1 H) `! a6 Q5 d
"LIMITS" "0,0" (list x1 y1)
3 A6 q0 b. s8 V: i* i- a
"PLINE" "0,0" (list 0 y1) (list x1 y1) (list x1 0) "0,0" "_C"
1 a6 Q2 S2 G$ U- V0 @1 o$ ~
"RECTANG" "1414.28571429,1414.28571429" "@81180,56571.42857143", P+ O. [8 M+ X; ?1 X* R6 |
"RECTANG" "1980,1980" "@80048.57142857,55440"
+ b: a# W5 {$ a5 H
"ZOOM" "_a" ))8 T0 b$ V8 t1 }% z& ^+ \
;=====================================================================- L& p2 i3 M. O4 t% y
(Defun c:a0 ()
/ @( T+ z. y1 R4 c9 \
(setq mv_sc 100)# V+ W# }2 @) w8 c
(setq x0 1188)% Z6 n; ?/ t( X( \9 V% ?) o
(setq y0 840)
) S4 O! j; `; k, _
(setq x0 (* mv_sc x0) 7 C) \9 L% l& @ p% R
y0 (* mv_sc y0) )0 C& d. B, R! Q o7 g
(command + P; O0 b) g# a: ^2 J6 \( k; U; ~
"LIMITS" "0,0" (list x0 y0)0 Y* z2 T" B( t3 d
"PLINE" "0,0" (list 0 y0) (list x0 y0) (list x0 0) "0,0" "_C"
, j$ z! D$ j% ?4 G! Q( n
"RECTANG" "2000,2000" "@114800,80000"
" z% `" x' z5 ?: C7 D5 N a
"RECTANG" "2800,2800" "@113200,78400"! A2 {3 F* K# w, f' i: E, ?
"ZOOM" "_a" ))
5 G! [* o+ {3 L# X; Z/ |; g
. p1 {0 ^& O) E, k |
;=====================================================================
+ I7 O/ J0 e3 b7 W
;=========================DAT KHO GIAY BAN VE - KIEU 2=========================
. {9 N- X. `: T# O! {7 D5 Q8 D: X
;=====================================================================! q+ g1 E) ?4 A* O
9 f# j& H0 l y1 }
(Defun c:6a ()
, |, N! {- s. u
(setq mv_sc 100);Ti le ban ve
2 x5 w9 E1 e m1 ]" L! z
(setq x4 74.25)
# `; r5 Z$ a' H( j9 F. N6 B& g5 ~
(setq y4 52.5)
8 \# Z, M. h* ~; K7 I
(setq x4 (* mv_sc x4)
- N- x, V) D( ~- Q; f' ^
y4 (* mv_sc y4) )
4 u( v" _) Q. E: N/ _: M) }* p
(command % S1 D6 t4 g0 U7 E
"LIMITS" "0,0" (list x4 y4). t" J$ p# ~! N2 _3 C$ f( z
"PLINE" "0,0" (list 0 y4) (list x4 y4) (list x4 0) "0,0" "_C"5 K& o% W2 o+ h, ?
"RECTANG" "505,125" "@6800,5000"
& e& H4 f, Q i5 Y2 V0 U
"RECTANG" "555,175" "@6700,4900"
8 w# h9 e7 M# V, t2 O% R5 w
"ZOOM" "_a" )), y6 E% i+ Y; Q; L* T, v- T
;=====================================================================
9 f' p: l5 Z2 |/ Y+ n
(Defun c:5a ()
# X( N: Q5 d. k% e
(setq mv_sc 100);Ti le ban ve
: D% l1 @4 F2 \
(setq x4 148.5). F8 X* Z+ Z; c* w5 U, U; N5 F" e8 z
(setq y4 105)/ [ Y' V0 h4 f/ E. d
(setq x4 (* mv_sc x4)
3 f& _0 ~/ t& E; c) } W2 X
y4 (* mv_sc y4) )/ J* b9 w2 o5 J( O! M
(command
4 e, T; d" a; O+ g$ ^& b
"LIMITS" "0,0" (list x4 y4)+ \: L2 E" p( X5 ]; n* Y
"PLINE" "0,0" (list 0 y4) (list x4 y4) (list x4 0) "0,0" "_C"
/ i) r9 S, |0 `1 N$ r
"RECTANG" "1000,250" "@13600,10000"
: J. A+ H' }" @! X3 M/ f: o3 ~
"RECTANG" "1100,350" "@13400,9800"
8 t9 A8 a6 d, [$ y
"ZOOM" "_a" )): `. g1 z4 p3 e2 D0 c
;=====================================================================! E, P5 ~0 Z2 F) |( p" H% t/ {
(Defun c:4a ()7 K I1 K& ~9 I2 \+ T% X7 u9 C1 @
(setq mv_sc 100);Ti le ban ve
' W1 H4 Q, n% O. l0 g# m
(setq x4 297)
: D& Q. B6 X: f, c$ _
(setq y4 210)9 }5 ` V5 x+ |* ?" \5 J
(setq x4 (* mv_sc x4)
. ]" _' C/ T5 z# l7 h3 G
y4 (* mv_sc y4) )0 A0 N1 c4 m- q' B3 {1 T8 c3 r
(command
$ X5 G9 {( [$ ]. A- G9 S3 v
"LIMITS" "0,0" (list x4 y4)
& {' c# X5 X+ }) o
"PLINE" "0,0" (list 0 y4) (list x4 y4) (list x4 0) "0,0" "_C". h9 W- B, ]9 |0 S$ `: ^ \3 G
"RECTANG" "2000,500" "@27200,20000"$ E, N# ?/ _& z
"RECTANG" "2200,700" "@26800,19600"$ h! t' Z, h5 N; g+ i
"ZOOM" "_a" ))- q1 V) [- X/ Y# j' I! T! F
;=====================================================================
3 T+ A( V$ q# P0 y7 u
(Defun c:3a ()
0 H; H! c# B% S/ h: @& V
(setq mv_sc 100)5 l$ v) K. O- R. T
(setq x3 420.0428571429)
3 q9 A) ~9 r3 }! R
(setq y3 297)' J" H( T s, G3 _3 T
(setq x3 (* mv_sc x3) ! m7 a; K m; j$ a, }. v# [9 q
y3 (* mv_sc y3) )
2 z1 e& s. d) k& `2 f8 j) ~; j
(command ' e$ @, V/ i% G0 m" W
"LIMITS" "0,0" (list x3 y3)4 U7 D5 B9 W( l) Q% T n
"PLINE" "0,0" (list 0 y3) (list x3 y3) (list x3 0) "0,0" "_C"" d" j8 s$ L9 f5 R$ f9 e+ h
"RECTANG" "2828.57142857,707.14285714" "@38468.57142857,28285.71428571"
$ Z, ]9 O0 m7 Z4 @% A
"RECTANG" "3111.42857142,989.99999999" "@37902.85714287,27720.00000001"
0 B, d' O% K$ o5 \4 d$ J4 d
"ZOOM" "_a" ))+ o$ R. }# }7 h! [/ `+ }6 O# z( Q
;=====================================================================# m# K' u# g0 o8 v
(Defun c:2a ()
Y& I8 K1 O* s8 F z5 c% ^
(setq mv_sc 100)) S0 z" K" c% ~8 ?. a$ x
(setq x2 594)
, j- q7 ?# W$ Y G6 K' o5 e5 b
(setq y2 420)) _6 X7 B; S7 d/ c
(setq x2 (* mv_sc x2)
: ^( w" @ T& G
y2 (* mv_sc y2) )
- q k$ F3 [; Q# y
(command
$ C4 z5 P$ j! @, {3 ~' e0 B
"LIMITS" "0,0" (list x2 y2)0 q1 e+ ^; R9 `& v3 h
"PLINE" "0,0" (list 0 y2) (list x2 y2) (list x2 0) "0,0" "_C"
, ~# ^# t y5 x7 d Z* x
"RECTANG" "4000,1000" "@54400,40000"
& Q8 `; T/ H4 \ _
"RECTANG" "4400,1400" "@53600,39200"
8 z' g5 p8 l% T; u; ~( C* a0 Z) G
"ZOOM" "_a" ))
8 A6 v/ f# z4 U x% R
;=====================================================================
* ?6 C& R. w: i% @$ |$ \
(Defun c:1a ()
! B$ G: r% i( B1 {
(setq mv_sc 100)
(setq x1 840.0857142857): Y6 O0 z: g3 C! V8 v7 Q$ F6 m
(setq y1 594): e8 n! u {0 e, ^4 I
(setq x1 (* mv_sc x1) . V/ c( @ d' e
y1 (* mv_sc y1) )
9 h# i+ z2 P% q& N4 H
(command
% Z4 S: s0 V/ k: l! N2 [" l) {
"LIMITS" "0,0" (list x1 y1)1 n2 Q: H! g! ^8 b# W$ m5 _, H1 j
"PLINE" "0,0" (list 0 y1) (list x1 y1) (list x1 0) "0,0" "_C"
$ n3 v9 e* H* L
"RECTANG" "5657.14285714,1414.28571429" "@76937.14285714,56571.428571436". R* D" N9 ^% g; W# F- P$ Z
"RECTANG" "6222.85714286,1980.00000001" "@75805.71428570,55440"- q/ u( s3 x/ H( R- [- Z
"ZOOM" "_a" ))
W, y- T a( ]0 U; b
;=====================================================================
2 c+ {! x7 T. r9 g7 g
(Defun c:0a ()
* Z! q0 e/ [' B( r
(setq mv_sc 100)
4 {3 a" \7 N+ K4 G, ~8 }
(setq x0 1188) n4 c" g5 Y( R7 y2 y* _
(setq y0 840)* b5 c% F; f+ j) w
(setq x0 (* mv_sc x0) ( [+ G9 P8 Z7 Z( Y6 P8 A
y0 (* mv_sc y0) ), e9 b! m2 K0 F# Y
(command
9 O+ e5 X2 ^% ^: u1 t/ E
"LIMITS" "0,0" (list x0 y0)
' Z0 j: Y$ H% r/ {% V% O6 ]0 c
"PLINE" "0,0" (list 0 y0) (list x0 y0) (list x0 0) "0,0" "_C"- q' t4 }+ L! M# F0 i7 [* L3 s. F
"RECTANG" "8000,2000" "@108800,80000"
4 q* q5 W- F" {0 r, Q$ A; z: V' Y
"RECTANG" "8800,2800" "@107200,78400"
. m Z: p2 b7 E# i4 J$ l! B3 C* H
"ZOOM" "_a" ))# `. h' f5 T O4 D( D0 i8 U; w3 \
/ ~ u# w4 f& T' O0 s0 P! `
;=====================================================================9 I: `1 [$ L" k2 a8 f; n
;==================DAT KhoGiay Theo KHO GIAY BAN VE===================
2 i# P5 @0 v" b, Y
;=====================================================================7 d8 _+ O' }' s! Y( a6 Y7 G
(defun c:khogiay (/ oldlst a b c d e f g h kho TL)
) u% ]' j: T* Y! c# L# |( V
(command "undo" "be")) J4 q# G6 [3 c5 \) {
(setq oldlst (mapcar 'getvar (list "CMDECHO" "OSMODE" "cecolor")))- e7 q- p; a+ k/ T6 c
(setvar "CMDECHO" 0)% d0 q4 J) L5 F) B3 O8 X
(setq a (getpoint "\n chon diem chen :"))
; U0 G0 D6 v' w1 n3 ^
(if (not TL) (setq TL 1.00))$ F5 V: p6 d& G4 a3 {2 w! U
(setq TL1 (getDIST (strcat "\nScale <" (rtos TL 2 2) ">:")))
4 C( F# o% J! @! V2 P0 d. y* Y
(if TL1 (setq TL TL1))& m9 A* v, O3 y4 ^2 }& P1 d
(setvar "osmode" 0)
) j7 \& |" X" N2 y
(if (not (tblsearch "layer" "Defpoints")) (Command "layer" "N" "Defpoints" ""))
! v; f( l3 o) {. [0 F* W
(initget "0 1 2 3 4")
W1 A, p/ V5 A I/ d
(setq kho (getkword "\Kho A0 _ Kho A1 _ Kho A2 _ Kho A3 _ Kho A4 [0/1/2/3/4]? <0>:")). Q2 q" V/ S; S
(if (= kho "0")
4 x: [" q" ~( \ h
(progn7 l" q Q, B+ P
(setq b (polar a 0 (* TL 1189))): @: C/ g Y$ W# l/ r* P9 g2 \
(setq c (polar b (/ pi 2) (* TL 841)))
]( \. F, g# _1 O2 v; ^: _3 N
(setq d (polar a (/ pi 2) (* TL 841)))6 S6 t1 `4 q% Q. d5 G
(setq e (polar a (/ pi 4) (* TL (sqrt (* 2 12 12)))))
* r$ A! ?" {% v
(setq f (polar e 0 (- (* TL 1189) (* TL 24))))' t% I% R* O! H6 L& j7 ?6 Z# Z0 [
(setq g (polar f (/ pi 2) (- (* TL 841) (* TL 24)))). M' \+ \4 Q) v" V0 z: r! |
(setq h (polar e (/ pi 2) (- (* TL 841) (* TL 24))))
, T( [. C7 G( r% S! G3 s
(command "Pline" e f g h "c")
$ D. h/ j& [; p- m; ^3 ?: Q0 ]
(command "change" "last" "" "properties" "layer" "0" "")
$ S1 ?" Z/ c0 q; ?
(setvar "cecolor" "4")
" U7 r! ^1 q+ A: v
(command "Pline" a b c d "c")# m( ?: [; W3 T9 f- T
(command "change" "last" "" "properties" "layer" "defpoints" "")))
U+ K( B" I* V. L2 z+ W& e
(if (= kho "1")* z& j' D8 S' H0 I
(progn
+ ]# d$ C- Y8 t. ~ j" R( V
(setq b (polar a 0 (* TL 841)))
! \/ h; L6 O$ p: v, X) }
(setq c (polar b (/ pi 2) (* TL 594))); P, Q2 t( x, b; @! T! h8 b7 G" i
(setq d (polar a (/ pi 2) (* TL 594)))7 ^6 e- q1 Q3 N8 T( w
(setq e (polar a (/ pi 4) (* TL (sqrt (* 2 12 12)))))# w* H( Y1 [. U! C. K" ?+ e/ q
(setq f (polar e 0 (- (* TL 841) (* TL 24))))
! U+ C" F9 D! K [
(setq g (polar f (/ pi 2) (- (* TL 594) (* TL 24))))
+ ~2 V G' f+ W! h: d/ {# ]
(setq h (polar e (/ pi 2) (- (* TL 594) (* TL 24))))+ A* {, O( s. ~" k5 ^- i4 B: Z
(command "Pline" e f g h "c") 2 [: T: g {4 E, q( b
(command "change" "last" "" "properties" "layer" "0" ""): ^2 k! j& ~; o- P7 |
(setvar "cecolor" "4")
, M( |1 ~6 M* Z, n0 _
(command "Pline" a b c d "c")
6 e2 k. k; |$ Z: [( q; ?
(command "change" "last" "" "properties" "layer" "defpoints" ""))). i& }7 K- g3 a" Y: t9 V! `
(if (= kho "2")( K# O' ^% u4 K" n+ z' _
(progn& R6 `! X9 j" I0 {. u
(setq b (polar a 0 (* TL 594)))% n' N0 Q9 I! D' k7 e* ^
(setq c (polar b (/ pi 2) (* TL 420)))
+ |" p4 W0 r* k: Q
(setq d (polar a (/ pi 2) (* TL 420)))
8 L" ]; l" n4 }' h; K( P
(setq e (polar a (/ pi 4) (* TL (sqrt (* 2 100)))))1 ]0 ~2 a; L' p* d5 {7 f
(setq f (polar e 0 (- (* TL 594) (* TL 20))))- {0 o# X% l. N8 L$ W
(setq g (polar f (/ pi 2) (- (* TL 420) (* TL 20))))
! c9 C1 r! B/ N. n7 D; ]2 v" N4 c
(setq h (polar e (/ pi 2) (- (* TL 420) (* TL 20))))
% h/ b1 _7 o; ~: c a' Q( ^8 E
(command "Pline" e f g h "c") 8 s! c8 K' P9 c; g o$ C
(command "change" "last" "" "properties" "layer" "0" "")3 K3 Q7 B1 c: r3 c" }2 W" N6 Y
(setvar "cecolor" "4")
; i+ l8 o, S. a. v
(command "Pline" a b c d "c")/ R# q! v$ }8 N. Z/ ?+ m, |
(command "change" "last" "" "properties" "layer" "defpoints" ""))): L7 H q2 J( i8 R
(if (= kho "3")
" E8 t$ x- H/ w8 P. t( e. V+ O
(progn. b5 f* L( {9 F# J' K/ Y8 ?
(setq b (polar a 0 (* tl 420)))
+ H6 s0 Y" I$ r5 Y# i$ K
(setq c (polar b (/ pi 2) (* TL 297)))
& k: p+ P8 d5 }# O
(setq d (polar a (/ pi 2) (* TL 297)))5 T) ?+ ^4 x W8 l# p2 j
(setq e (polar a (/ pi 4) (* TL (sqrt (* 2 100)))))
" |" F8 Y& h4 d: K# D
(setq f (polar e 0 (- (* TL 420) (* TL 20))))' A. l- n) J' o( u5 H% I) N2 V6 O
(setq g (polar f (/ pi 2) (- (* TL 297) (* TL 20))))
$ v/ [& J- s G9 c3 x0 T
(setq h (polar e (/ pi 2) (- (* TL 297) (* TL 20))))
! W/ l c- H8 v' S( a H5 x8 w
(command "Pline" e f g h "c")
. h6 j8 i, @+ j# [8 q, i
(command "change" "last" "" "properties" "layer" "0" "")
9 t# M8 J7 e' ^/ F- A$ s
(setvar "cecolor" "4")3 g7 h8 c+ e* l z4 O/ O! _4 c& [
(command "Pline" a b c d "c")
' N" H. Z, V) N/ |( ]) N; P
(command "change" "last" "" "properties" "layer" "defpoints" ""))) O5 j6 E1 c7 D9 }$ A- w1 K
(if (= kho "4")3 l: y5 t$ s% w; ?4 H) S6 F
(progn; E0 I% ?: ?( [* A
(setq b (polar a 0 (* TL 297)))
) i0 u" D/ l. z8 h. V
(setq c (polar b (/ pi 2) (* TL 210)))
& a+ ?3 {9 X' l* l
(setq d (polar a (/ pi 2) (* TL 210)))+ n& T3 l" \; O# K+ W
(setq e (polar a (/ pi 4) (* TL (sqrt (* 2 81)))))
$ g; h' M; I. c7 y7 ~
(setq f (polar e 0 (- (* TL 297) (* TL 18))))
0 d! Y5 y8 y) `( k, ]1 W
(setq g (polar f (/ pi 2) (- (* TL 210) (* TL 18))))" K1 Q- E& S1 D
(setq h (polar e (/ pi 2) (- (* TL 210) (* TL 18))))$ P7 E1 b" k* o3 O* ?% i; U
(command "Pline" e f g h "c")
7 j2 m$ W X; n5 g% @
(command "change" "last" "" "properties" "layer" "0" "")9 s& N( y- {, F( ~& R5 r" [/ G
(setvar "cecolor" "4")
1 G5 }% \$ i( T' l6 F6 a
(command "Pline" a b c d "c")
1 H( d4 p3 R/ O& \) T
(command "change" "last" "" "properties" "layer" "defpoints" "")))
# ?& q4 [, f. m+ V% y9 d
(mapcar 'setvar (list "CMDECHO" "OSMODE" "cecolor") oldlst)
# Y x/ W* V% @. p
(command "undo" "e")
' C/ ^, ^: _/ J: K
(princ))
/ \: k" S# n6 O0 L8 H( T
;=====================================================================
9 u# j5 u: _. n/ w) a# d
;==================DAT KhoGiay Theo KHO GIAY BAN VE===================: |- E1 k, |' B, b
;=====================================================================" x/ C6 N$ U. t( j
" R- u+ ]- Y& S. |! c
;=====================================================================
5 ~: `3 r! D- d1 b) w& Z3 t
;===================DAT Ti Le Theo KHO GIAY BAN VE====================. w9 v& b( d4 n, a
;=====================================================================2 |/ O% L, s4 B+ w" S1 `5 s
( H# |& X. O1 c4 C( t" a: x1 l% r2 q5 R& d
(DEFUN C:SA6 () (COMMAND "-LAYER" "M" "NETDUT" "C" "8" "" "Lw" "0.1" "" "LT" "ACAD_ISO03W100" "" "" "LTSCALE" "5" ""
2 x6 n% z; e% [5 \6 p, ~4 t
"-LAYER" "M" "TUONG" "C" "4" "" "Lw" "0.3" ""+ z4 L3 S9 J8 g0 e+ a% \
"M" "MANH" "C" "9" "" "Lw" "0.1" ""$ C( U' h: k" O. l; [' i3 y; a; V
"M" "TEXT" "C" "7" "" "Lw" "0.12" ""
. W- Y. Y- ]! }7 O- z/ I* ]$ i" _
"M" "DIM" "C" "1" "" "Lw" "0.12" ""
0 L- F S! G8 \# `* M
"M" "THAY" "C" "7" "" "Lw" "0.2" ""
7 \$ a$ [9 w3 J
"M" "NOITHAT" "C" "3" "" "Lw" "0.12" "") l2 t; T0 @- M' z7 N' A, |
"M" "HATCH" "C" "5" "" "Lw" "0.1" ""
3 A+ @$ K8 G: Y
"M" "COT" "C" "1" "" "Lw" "0.3" ""+ q8 a' W* H; w6 v9 `
"M" "Defpoints" "C" "7" "": c4 }5 G6 L( Q3 D) x
"M" "0" "C" "3" "" "Lw" "0.12" ""( M5 I$ Q: Y% M! |8 \
"M" "CUA" "C" "6" "" "Lw" "0.12" ""
& j: |2 E4 v# r2 Y0 @
"M" "CUA MATDUNG" "C" "6" "" "Lw" "0.12" ""
! B( y9 V& x' q1 X
"M" "TIMTUONG" "C" "5" "" "Lw" "0.1" "" "LT" "ACAD_ISO10W100" "" "" "LTSCALE" "3" ""))
- d( I* h2 f2 d0 c. R4 e6 R
(DEFUN C:SA5 () (COMMAND "-LAYER" "M" "NETDUT" "C" "8" "" "Lw" "0.12" "" "LT" "ACAD_ISO03W100" "" "" "LTSCALE" "10" ""' t) [( C$ u' m8 D
"-LAYER" "M" "TUONG" "C" "4" "" "Lw" "0.4" ""
6 J& d Q! L; q0 {+ {; S) N0 n7 _
"M" "MANH" "C" "9" "" "Lw" "0.12" ""7 ~& _2 d( |8 Z
"M" "TEXT" "C" "7" "" "Lw" "0.12" ""
' ]9 v: A/ s- E
"M" "DIM" "C" "1" "" "Lw" "0.2" ""
: u/ o1 i: ?: Y8 Z1 t- k
"M" "THAY" "C" "7" "" "Lw" "0.2" ""
2 ?9 v- a+ k; t ~7 l, S
"M" "NOITHAT" "C" "3" "" "Lw" "0.2" ""& P+ P. m" k p/ I. O4 t7 p# [: d
"M" "HATCH" "C" "5" "" "Lw" "0.1" ""
7 A8 y) b$ F1 G* C9 R/ C& \
"M" "COT" "C" "1" "" "Lw" "0.4" "": z# V& [0 w0 p
"M" "Defpoints" "C" "7" ""7 @, K$ A0 n0 R2 K$ K
"M" "0" "C" "3" "" "Lw" "0.2" ""
. b/ T2 y9 B. P: E& I5 H2 j, @
"M" "CUA" "C" "6" "" "Lw" "0.12" ""
" Q' \' T N: Q
"M" "CUA MATDUNG" "C" "6" "" "Lw" "0.12" ""
" Y% X+ h8 m, F% N, I# x$ @
"M" "TIMTUONG" "C" "5" "" "Lw" "0.15" "" "LT" "ACAD_ISO10W100" "" "" "LTSCALE" "5" ""))1 _. B1 W$ P1 G1 B
(DEFUN C:SA4 () (COMMAND "-LAYER" "M" "NETDUT" "C" "8" "" "Lw" "0.2" "" "LT" "ACAD_ISO03W100" "" "" "LTSCALE" "20" ""
2 r6 W* j- J D$ W9 X
"-LAYER" "M" "TUONG" "C" "4" "" "Lw" "0.6" ""+ r, y7 d c& ^7 a0 F
"M" "MANH" "C" "9" "" "Lw" "0.2" ""3 D& z* G! P- u; j3 Z
"M" "TEXT" "C" "7" "" "Lw" "0.2" ""
2 j! K. j7 A$ t) e5 q6 M* j1 P' n
"M" "DIM" "C" "1" "" "Lw" "0.25" ""4 y4 q" @4 V+ G6 u+ l" w' i
"M" "THAY" "C" "7" "" "Lw" "0.35" ""
! m m" E" T: ~9 J# V
"M" "NOITHAT" "C" "3" "" "Lw" "0.25" ""
* `7 t! A( I9 \; G/ l, o* c7 ~. h
"M" "HATCH" "C" "5" "" "Lw" "0.15" ""
1 C1 E# L2 a- T5 w; n& @, ~
"M" "COT" "C" "1" "" "Lw" "0.6" ""
- q" i* L. `5 n4 y
"M" "Defpoints" "C" "7" ""7 ^ k8 O) o9 w. V( y& g5 C% c
"M" "0" "C" "3" "" "Lw" "0.25" ""- C6 s- a/ K) I% W5 ?2 o& C" W
"M" "CUA" "C" "6" "" "Lw" "0.25" ""
2 i9 E( r& q+ n2 I/ q' a" d$ q
"M" "CUA MATDUNG" "C" "6" "" "Lw" "0.25" ""
5 v( Y r9 ?0 ^, j
"M" "TIMTUONG" "C" "5" "" "Lw" "0.2" "" "LT" "ACAD_ISO10W100" "" "" "LTSCALE" "10" ""))
7 _% g/ |9 d3 L9 w- c( H
& C/ }% S3 F& p9 U8 U
(DEFUN C:SA3 () (COMMAND "-LAYER" "M" "NETDUT" "C" "8" "" "Lw" "0.35" "" "LT" "ACAD_ISO03W100" "" "" "" "LTSCALE" "30" ""- l& o3 m% m& ], w: c* M! T, N
"-LAYER" "M" "TUONG" "C" "4" "" "Lw" "0.7" ""+ d4 h* H; l: Y2 @8 a2 B8 g4 R
"M" "MANH" "C" "9" "" "Lw" "0.25" "", `7 i7 J% A2 t
"M" "TEXT" "C" "7" "" "Lw" "0.2" ""6 R( ^8 h% w) K. H
"M" "DIM" "C" "1" "" "Lw" "0.35" ""
* j( ?( {% p+ K r: {% b
"M" "THAY" "C" "7" "" "Lw" "0.4" ""' k \3 E* f$ l% o* j$ s; @
"M" "NOITHAT" "C" "3" "" "Lw" "0.25" ""6 `8 M' F( p: L3 p7 ]" ` F
"M" "HATCH" "C" "5" "" "Lw" "0.2" ""
& H4 \; D3 V# d; n0 ]" \
"M" "COT" "C" "1" "" "Lw" "0.7" ""# h" J1 z$ k5 C% W; a. ]
"M" "Defpoints" "C" "7" ""
( K# X) u5 ^; [- }% w
"M" "0" "C" "3" "" "Lw" "0.25" ""
$ Y3 P8 ^5 l( ?. R
"M" "CUA" "C" "6" "" "Lw" "0.35" ""
1 k |6 o4 r' Q, a
"M" "CUA MATDUNG" "C" "6" "" "Lw" "0.3" ""/ ~1 U4 T7 @4 N; B
"M" "TIMTUONG" "C" "5" "" "Lw" "0.25" "" "LT" "ACAD_ISO10W100" "" "" "LTSCALE" "20" ""))(PRINC)3 d. b5 ]/ U5 A! _
8 A8 g. o. n6 v/ y3 h
(DEFUN C:SA2 () (COMMAND "-LAYER" "M" "NETDUT" "C" "8" "" "Lw" "0.35" "" "LT" "ACAD_ISO03W100" "" "" "" "LTSCALE" "45" ""
3 a2 C8 M7 }: f% K
"-LAYER" "M" "TUONG" "C" "4" "" "Lw" "0.7" ""
) Y2 G, m+ K0 K0 g* S2 @9 o# ~
"M" "MANH" "C" "9" "" "Lw" "0.25" ""
7 ^: e3 Y8 m) d& y9 h5 P
"M" "TEXT" "C" "7" "" "Lw" "0.25" ""0 A# f+ Y- x4 n5 t5 Z
"M" "DIM" "C" "1" "" "Lw" "0.3" ""
. ?" C' E! ~ q1 `: d, `, j' ]/ n
"M" "THAY" "C" "7" "" "Lw" "0.4" ""8 E, _6 v3 g$ F& [
"M" "NOITHAT" "C" "3" "" "Lw" "0.3" ""
5 h1 p% ^ v. O7 q ]! M# u
"M" "HATCH" "C" "5" "" "Lw" "0.2" ""
& d. W& P9 {" q4 E
"M" "COT" "C" "1" "" "Lw" "0.7" ""
# T/ L' o' S* H9 @
"M" "Defpoints" "C" "7" "", X" z* U' N1 j3 v6 b+ X
"M" "0" "C" "3" "" "Lw" "0.35" ""
; ], C# { [+ ?, n" R: Q
"M" "CUA" "C" "6" "" "Lw" "0.35" ""
1 }6 H6 `4 X! c( O
"M" "CUA MATDUNG" "C" "6" "" "Lw" "0.3" "": p. k# E8 D! v8 \% N
"M" "TIMTUONG" "C" "5" "" "Lw" "0.25" "" "LT" "ACAD_ISO10W100" "" "" "LTSCALE" "30" ""))
~4 k% m8 L$ _( ?3 X+ q0 f
8 _' _/ X1 q) c2 z% K3 i6 u
(DEFUN C:SA1 () (COMMAND "-LAYER" "M" "NETDUT" "C" "8" "" "Lw" "0.4" "" "LT" "ACAD_ISO03W100" "" "" "" "LTSCALE" "60" ""
) I |; X, m6 S' Q3 @0 D7 O
"-LAYER" "M" "TUONG" "C" "4" "" "Lw" "0.85" "" _) i5 S0 @; W4 @3 j/ I
"M" "MANH" "C" "9" "" "Lw" "0.35" ""
5 @1 w/ K3 F3 }3 |- w
"M" "TEXT" "C" "7" "" "Lw" "0.5" ""# [$ g# | [/ }7 d/ T! l* {
"M" "DIM" "C" "1" "" "Lw" "0.35" ""
# J! Q1 i. B- j B% q* ~: {
"M" "THAY" "C" "7" "" "Lw" "0.4" ""
; I% }3 f) x3 M. @% \, T$ @+ n
"M" "NOITHAT" "C" "3" "" "Lw" "0.35" ""4 b* E- l c& w ^; @) @" G$ \6 ?
"M" "HATCH" "C" "5" "" "Lw" "0.25" ""
9 E, [) E$ F& g" G! }
"M" "COT" "C" "1" "" "Lw" "0.85" ""# A/ P7 d5 M5 R
"M" "Defpoints" "C" "7" ""% @, J3 K, w- K& h6 W2 D2 `( s
"M" "0" "C" "3" "" "Lw" "0.35" ""
: I$ f7 y' b/ A
"M" "CUA" "C" "6" "" "Lw" "0.4" ""7 b5 r/ R4 i: J# R# R/ O
"M" "CUA MATDUNG" "C" "6" "" "Lw" "0.35" "" A; A2 r2 o) Q! d
"M" "TIMTUONG" "C" "5" "" "Lw" "0.3" "" "LT" "ACAD_ISO10W100" "" "" "LTSCALE" "40" ""))- q7 S/ h# K6 a9 Q
0 N: i3 G @" ]
(DEFUN C:SA0 () (COMMAND "-LAYER" "M" "NETDUT" "C" "8" "" "Lw" "0.5" "" "LT" "ACAD_ISO03W100" "" "" "" "LTSCALE" "85" ""* J( {- @) @4 F
"-LAYER" "M" "TUONG" "C" "4" "" "Lw" "1" ""
! ]0 V; ^$ ~/ i- s. B3 t) e' K
"M" "MANH" "C" "9" "" "Lw" "0.35" ""
" d8 B8 B8 e# z' {# Z$ t
"M" "TEXT" "C" "7" "" "Lw" "0.5" ""
5 [; E% Z2 P$ w# c+ q r
"M" "DIM" "C" "1" "" "Lw" "0.35" ""$ y1 q; `2 d9 l N; _
"M" "THAY" "C" "7" "" "Lw" "0.5" ""
$ s6 b( ]: ~1 s( Q* v) p6 ~( D* V
"M" "NOITHAT" "C" "3" "" "Lw" "0.4" ""' M& B; p3 D \4 M9 z
"M" "HATCH" "C" "5" "" "Lw" "0.35" ""6 x" h+ U# b& A
"M" "COT" "C" "1" "" "Lw" "0.1" ""8 d6 t( Z# S3 J% I) n5 O% u5 A
"M" "Defpoints" "C" "7" ""7 u( S# W* g: K6 C$ v N! [5 W
"M" "0" "C" "3" "" "Lw" "0.5" ""0 |! F$ M' d1 C# U q( J
"M" "CUA" "C" "6" "" "Lw" "0.5" ""
# w9 q9 {5 i- {; g8 t
"M" "CUA MATDUNG" "C" "6" "" "Lw" "0.4" ""
$ [4 Y0 Z3 G, f
"M" "TIMTUONG" "C" "5" "" "Lw" "0.35" "" "LT" "ACAD_ISO10W100" "" "" "LTSCALE" "55" ""))
8 o& C$ |4 t& g6 }7 w4 x3 {
(DEFUN C:O () (COMMAND "OFFSET"))
4 S/ o. `: D, A7 ^1 h
(defun c:s1 () (command "surftab1"))
% p+ i& o$ i+ G1 k m6 b/ Q
(defun c:s2 () (command "surftab2"))( g% V& [/ w8 V4 U. S& G2 v6 V0 @
(defun c:ep () (command "explode")) }* Y+ T5 c/ ?. d/ N
(DEFUN C:QS () (COMMAND "AUDIT" "Y" "purge" "all" "*" "N" "QSAVE"))% S0 W* \0 l5 u& V
(DEFUN C:QV () (COMMAND "QSAVE")), H5 F# l7 \5 j1 M- u
(DEFUN C:S () (COMMAND "STRETCH" "C")) C: Y1 E; p3 Z i5 K7 i5 m
: O$ ]- [5 V. |# q" U
;************************** CAT DIM **************************8 H0 L$ R3 L: Y ?
8 m6 p# [ v$ ^+ h6 I& I
(DEFUN C:DC (/ CMD SS LTH DEM PT DS KDL N70 GOCX GOCY PT13 PT14 PTI PT13I PT14I
" Q2 l2 E# f7 h/ {1 X7 t7 I" n' A) ~
PT13N PT14N O13 O14 N13 N14 OSM OLDERR PT10 PT11)
9 W$ T0 D! g* A* O) W: b4 P2 i
(SETQ CMD (GETVAR "CMDECHO"))
: h) y4 c" @0 V* A/ V- M, Q
(SETQ OSM (GETVAR "OSMODE"))
; v1 P: E4 [9 B8 i
(SETQ OLDERR *error*
; t2 c$ u& U( y
*error* myerror)/ I& b7 E/ C% ]- f: O
(PRINC "Please select dimension object!")
(SETQ SS (SSGET))* S, J; x& x' n9 i( T* V7 J
(SETVAR "CMDECHO" 0)" }# N& G2 b, x/ Q% i8 G
(SETQ PT (GETPOINT "Point to trim or extend:"))
* ~; f, q- E) t* m* S
(SETQ PT (TRANS PT 1 0))1 k0 w6 f' Q# e2 @$ W
(COMMAND "UCS" "W")
- r# K" M) @6 f+ Q% M# C
(SETQ LTH (SSLENGTH SS))5 O2 w5 M1 v2 h# `! i+ K' Y; q
(SETQ DEM 0)
0 D# W+ |# y- x# o
(WHILE (< DEM LTH)
* D2 [9 r: d* I# [: ~/ \" c) {
(PROGN, o- s) D- q5 G# n& h& j! l
(SETQ DS (ENTGET (SSNAME SS DEM)))
2 y+ s5 L5 j0 b
(SETQ KDL (CDR (ASSOC 0 DS)))
0 g0 @4 d5 |1 w; a5 R* x# B
(IF (= "DIMENSION" KDL)
3 X: d+ J; \$ t6 Z- a- x% O
(PROGN
|4 v5 E. z% k) ^* V+ D! A
(SETQ PT10 (CDR (ASSOC 10 DS)))# Y' }8 g# T2 z) W
(SETQ PT11 (CDR (ASSOC 11 DS)))
6 a- m. w, v1 m& ~6 Z Z0 f) n
(SETQ PT13 (CDR (ASSOC 13 DS)))7 ]( N6 w3 n$ v) l+ [4 N
(SETQ PT14 (CDR (ASSOC 14 DS)))! f! Y$ Z0 G& I! g6 U
(SETQ N70 (CDR (ASSOC 70 DS)))
5 M8 I2 J* V. E$ ?0 d, t
(IF (OR (= N70 32) (= N70 33) (= N70 160) (= N70 161))
# `; ~" @6 j+ n* o
(PROGN; V+ p, H5 B, r- O1 ~( a# u
(SETQ GOCY (ANGLE PT10 PT14))( t( [3 ]# W- v: o9 n
(SETQ GOCX (+ GOCY (/ PI 2)))
7 r; s6 p7 ]! L& r+ Q
)( a# A i# E& I5 j
)
1 Q8 F9 s+ e5 [8 Y: o6 Y# g
(SETVAR "OSMODE" 0)
! M3 J4 H4 i/ B& S' a1 [' ]: m" j
(SETQ PTI (POLAR PT GOCX 2))
: z) p3 s- x" \) g2 A
(SETQ PT13I (POLAR PT13 GOCY 2))! [% u" q+ J0 @8 c5 @1 l: F" g. k
(SETQ PT14I (POLAR PT14 GOCY 2))& s; d: {/ E5 Y
(SETQ PT13N (INTERS PT PTI PT13 PT13I NIL))
7 F+ ~& i1 U4 b6 m
(SETQ PT14N (INTERS PT PTI PT14 PT14I NIL))
' G( {6 K1 V! }. z/ v; \8 K
(SETQ O13 (ASSOC 13 DS))
' a) {" h8 |8 p9 T& x O3 e' w, u
(SETQ O14 (ASSOC 14 DS))$ _4 n6 _2 X, A6 q) E, V
(SETQ N13 (CONS 13 PT13N)). T3 } v3 ~! d, S7 y# j
(SETQ N14 (CONS 14 PT14N))2 Q; d" j. m8 t
(SETQ DS (SUBST N13 O13 DS)) W% M8 _" t) X) p
(SETQ DS (SUBST N14 O14 DS))
5 u- C9 N0 x( Y m/ g# Y, }
(ENTMOD DS)
, j: O+ t) N0 c! M1 ?# v
)
( c" U; A* ^# }
)/ u& O( C; {% z8 H/ k
(SETQ DEM (+ DEM 1))
' S/ h% L( e, g1 M
)1 v0 T" u+ K2 w3 o' \& B
)
8 \/ X" O- o% [" n) K$ V# `
(COMMAND "UCS" "P")
6 A M+ F7 N8 F( O) }! C$ H
(SETVAR "CMDECHO" CMD)5 i6 n# E9 i$ V6 O. a& o
(SETVAR "OSMODE" OSM)# | Q2 A1 o1 h$ g, x2 B% ~
(setq *error* OLDERR) ; Restore old *error* handler
9 F( T" S0 F6 T; ?. v0 u2 A
(PRINC)- O7 v0 G4 }9 C1 a4 N) H* j d* _
)* z7 L% @, y1 d, g- [* q
3 d: N p( e; _$ J2 ?
(DEFUN C:BD (/ CMD SS LTH DEM PT DS KDL N70 GOCX GOCY PT13 PT14 PTI" \) X: K7 W( a, U; I Y
PT10 PT10I PT10N O10 N10 PT11 PT11N O11 N11 KC OSM OLDERR)7 ~1 m. H/ z/ v% V5 P! j1 z" d1 s
(SETQ CMD (GETVAR "CMDECHO"))
3 g) @3 G9 G* E! V$ F
(SETQ OSM (GETVAR "OSMODE")), r! t Y8 T ~4 H
(SETQ OLDERR *error*" y3 D& K( W" T( A4 ?4 y _" G
*error* myerror)
/ [" Y9 A( k+ f9 c0 g" f
(PRINC "Please select dimension object!"); j' v2 m- {% M2 M
(SETQ SS (SSGET))
; `+ M7 j6 u$ F. b, @; y
(SETVAR "CMDECHO" 0)$ A- ~$ e, k2 P1 [4 k/ A
(SETQ PT (GETPOINT "Point to trim or extend:"))
7 ^; ?+ o" \+ _. T) n2 T1 w
(SETQ PT (TRANS PT 1 0))
7 c8 a& b% V# D: u
(COMMAND "UCS" "W")3 V/ }1 z) K* W) }- J
(SETQ LTH (SSLENGTH SS))
& S, X s' Q& M; [
(SETQ DEM 0)
- B; i: r2 |% ?4 ^& A
(WHILE (< DEM LTH)
4 u# O1 ?9 p+ W. W3 K
(PROGN
; K' G1 Q# N+ h8 b" M* b
(SETQ DS (ENTGET (SSNAME SS DEM)))
0 w5 }4 n3 r) @" ?% U$ [, Q
(SETQ KDL (CDR (ASSOC 0 DS))), h: ]0 e) J+ E$ U
(IF (= "DIMENSION" KDL)
l) X2 Q) o+ b" J3 P" H
(PROGN
, {' G7 s' O( K+ M6 Y
(SETQ PT13 (CDR (ASSOC 13 DS)))* U# b7 l$ S8 c2 [. g! @6 n1 ]
(SETQ PT14 (CDR (ASSOC 14 DS)))! B# m4 D( |+ K6 l
(SETQ PT10 (CDR (ASSOC 10 DS)))) ^5 r- i+ P- c7 Z, ?4 j3 `
(SETQ PT11 (CDR (ASSOC 11 DS)))
) c" ] o: z; r. e- Z% L3 R) |% i; \
(SETQ N70 (CDR (ASSOC 70 DS)))$ ?# O& y1 N' b% c: r
(IF (OR (= N70 32) (= N70 33) (= N70 160) (= N70 161))
' \) n( B# |6 z! s' f
(PROGN# n: v7 a/ n! ^8 G9 J8 K0 O: }
(SETQ GOCY (ANGLE PT10 PT14))
W7 v" j" Z- N& o" p2 q8 h% k
(SETQ GOCX (+ GOCY (/ PI 2)))
' T( Z" }( U; Q o& Q4 O& |
)
( K+ U% q" s$ c6 ^
). Y5 L3 l% ]8 o3 J k
(SETVAR "OSMODE" 0)
( M" @2 M3 T# P3 p4 ?7 A
(SETQ PTI (POLAR PT GOCX 2))
0 Q/ e7 \3 i, _3 ^. a/ _. k9 L
(SETQ PT10I (POLAR PT10 GOCY 2))& d/ B: H( K, ~4 c' ? S3 E- W' v! a! P
(SETQ PT10N (INTERS PT PTI PT10 PT10I NIL))
1 k2 `. O# v- A( }. x2 ^- ~
(SETQ KC (DISTANCE PT10 PT10N))
6 ^, P% C P {$ X2 B
(SETQ O10 (ASSOC 10 DS))0 h& z& m* L5 l; E" g9 h5 g
(SETQ N10 (CONS 10 PT10N))
& {# R* c- h- Y n- t9 G
(SETQ DS (SUBST N10 O10 DS)); J3 S$ m2 c" t9 e5 [% z
(SETQ PT11N (POLAR PT11 (ANGLE PT10 PT10N) KC))
6 q1 z' m2 Y) l' R8 l* a
(SETQ O11 (ASSOC 11 DS))1 _6 D; F* q' d: I& ]) X7 B
(SETQ N11 (CONS 11 PT11N))% h! g, o% v- m
(SETQ DS (SUBST N11 O11 DS))
, i, L- V% R/ J: {: k
(ENTMOD DS). K ?0 T; o/ ^
)
; W3 s6 ~, V- A
)
3 j9 R: @$ g$ T6 \2 y O" U
(SETQ DEM (+ DEM 1))& O/ O. z E; H8 Z% p
)& f/ Y' @3 M) |4 N
) X( |# j1 a" u n
(COMMAND "UCS" "P")
( j$ H2 y6 G; q7 v, x
(SETVAR "CMDECHO" CMD)0 u, }! I7 C2 d$ x8 j/ o/ d. U. |
(SETVAR "OSMODE" OSM). t% ^" V) {4 x" s
(setq *error* OLDERR)4 z0 r' z* W0 @* Z/ t2 h6 Z
(PRINC)4 D2 ?/ U8 ]. r! g
). ]" w f. q% T' @' N* E& O
' ~$ T# H1 p1 @8 x
;;; ================ BAT - TAT CHE DO GACH CHAN TEXT (TU) =================
* _1 O# P& A: i. B9 M. C3 i
( D5 v" J( [( t7 q4 X
(defun c:tu () (setvar "cmdecho" 0)(prompt "\nHay chon dong TEXT can gach chan ")7 P6 I* L; N/ q3 S) `
(prompt "\nSelect objects: ")(command "select" "au" pause)(setq sstxt (ssget "p"): N( b/ G: \. D
sslen (sslength sstxt) ctr 0)(command ".undo" "mark")(while (< ctr sslen)(setq listxt; G6 w$ \$ C) O; j
(entget (ssname sstxt ctr))txttxt (cdr (assoc 1 listxt))enttxt (cdr (assoc 0 listxt)))
( X5 v- ~5 F/ K& }1 K
(if (= enttxt "TEXT")(progn(setq testxt (substr txttxt 1 3))(if (or (= testxt "%%u")* m& [$ k/ F. Z+ U
(= testxt "%%U"))(setq newtxt (substr txttxt 4))(setq newtxt (strcat "%%u" txttxt))). C+ W# q5 O3 R
(setq listxt (subst (cons 1 newtxt) (assoc 1 listxt) listxt))(entmod listxt)))- X$ A6 g1 I' c7 o3 A& u
(setq ctr (1+ ctr)) ) (setvar "cmdecho" 1) (princ))
9 d/ j/ _5 o1 P( c
! A4 L4 q9 i) {* K
;;; ================ CHEN COT (TUU) =================1 @! X1 A: C3 n; h1 {( }
* c3 U$ U7 Q2 `
(defun c:tuu () (setvar "cmdecho" 0)(prompt "\nHay chon dong TEXT can chen cot ")
7 Y2 H# d* w& T( o+ p( p' u+ x
(prompt "\nSelect objects: ")(command "select" "au" pause)(setq sstxt (ssget "p")
, @# e4 B* ~* {
sslen (sslength sstxt) ctr 0)(command ".undo" "mark")(while (< ctr sslen)(setq listxt- M( f- \( k/ ?, c+ Y# \: g- x: E- C8 s
(entget (ssname sstxt ctr))txttxt (cdr (assoc 1 listxt))enttxt (cdr (assoc 0 listxt)))
1 X) r! b7 e# f, \4 [6 Y
(if (= enttxt "TEXT")(progn(setq testxt (substr txttxt 1 3))(if (or (= testxt "%%p 0,000")
, a2 I9 S6 N% P
(= testxt "%%P 0,000"))(setq newtxt (substr txttxt 4))(setq newtxt (strcat "%%P 0,000" txttxt)))
6 t3 y5 A$ M0 S+ a$ q* v2 @
(setq listxt (subst (cons 1 newtxt) (assoc 1 listxt) listxt))(entmod listxt)))
$ P( @; m. ~2 ]& E8 X
(setq ctr (1+ ctr)) ) (setvar "cmdecho" 1) (princ))3 x. a1 X+ n; @* c1 l! p1 _" a
$ L0 b6 P( R& j( e1 Z' }
;;; ================ CHEN KY HIEU THEP (TP) =================( @; q) S( _. u! D! J9 v
4 T! {+ |' p% c8 o$ q. d
(defun c:tp () (setvar "cmdecho" 0)(prompt "\nHay chon dong TEXT can chen ky hieu thep ")8 c) I, b9 E0 ^! h' b
(prompt "\nSelect objects: ")(command "select" "au" pause)(setq sstxt (ssget "p")
5 A/ T: c' i ]2 T' A, q
sslen (sslength sstxt) ctr 0)(command ".undo" "mark")(while (< ctr sslen)(setq listxt
) p: P: f7 j- A, P0 Z
(entget (ssname sstxt ctr))txttxt (cdr (assoc 1 listxt))enttxt (cdr (assoc 0 listxt)))" S6 k R( B/ ~1 i% F' h# ?- L
(if (= enttxt "TEXT")(progn(setq testxt (substr txttxt 1 3))(if (or (= testxt "%%c")/ h; {1 x& ^7 x3 S2 r
(= testxt "%%C"))(setq newtxt (substr txttxt 4))(setq newtxt (strcat "%%c" txttxt)))% |1 D+ S+ |: ]3 [, S2 Q
(setq listxt (subst (cons 1 newtxt) (assoc 1 listxt) listxt))(entmod listxt)))/ E1 a* Q; ?( H) i1 i
(setq ctr (1+ ctr)) ) (setvar "cmdecho" 1) (princ))
% l, i0 X2 }; `6 K( a& b" _
# f( W+ u" j+ v
;=========================== TAM TUONG (TAM) =================================
b( {( M5 a- ^) t3 \$ i+ W! e
6 b* p8 V# r- D# C" g% p0 d/ C
(defun c:tam(/ data_m)2 }! i! q3 o5 \7 M# d
(defun import_data(/ i)(setq data_m (ssget))(if (= nil distan_m) (setq distan_m 110.0))0 g$ |& @/ B! Q. D: e
(princ "Distance (")(princ distan_m)(princ "):")(setq i (getreal ))(if (not (= nil i))* e; O5 I- T! k& c
(setq distan_m i)))(defun process(/ ent check)(defun p_check()(setq check 0)2 C) p/ |' S2 z* d& E/ O9 P! ?3 [
(if (= "LINE" (cdr (assoc 0 ent))) (setq check 1))(princ))(defun p_d_offset
" ^9 s+ X. x2 v" {9 ]3 Q
(/ p1 p2 p3 p4)(defun makeline(/ e2 e5)(setq la (list (cons 0 "LINE")(cons 5 (cdr2 ~, J$ t" V7 A! j! f G
(assoc 5 ent)))(cons 8 (cdr (assoc 8 ent)))(cons 10 p3)(cons 11 p4)))(entmake la)(princ)
+ b2 c! D) M+ B) k
)(setq p1 (cdr (assoc 10 ent)) p2 (cdr (assoc 11 ent)))(if (not (= p1 p2)) (progn (if3 P- t5 T/ x2 p
(< (abs (- (nth 0 p1) (nth 0 p2))) 0.000001) (progn (setq p3 (list (+ (nth 0 p1)
# h' C& `- w& Y# _. J$ M
distan_m) (nth 1 p1) (nth 2 p1)))(setq p4 (list (+ (nth 0 p2) distan_m)(nth 1 p2)9 q# g' i. W% O$ U$ {+ ^' x
(nth 2 p2))) (makeline) (setq p3 (list (- (nth 0 p1) distan_m) (nth 1 p1) (nth 2 p1)))
, M6 K) G( I! N( b
(setq p4 (list (- (nth 0 p2) distan_m) (nth 1 p2) (nth 2 p2))) (makeline)))(if (<
3 \( w. R. l" r& j6 \7 O
(abs (- (nth 1 p1) (nth 1 p2))) 0.000001) (progn (setq p3 (list (nth 0 p1) (+ (nth 1 p1)- U, g6 ^/ }4 Q, \* l `; L# j
distan_m) (nth 2 p1)))(setq p4 (list (nth 0 p2) (+ (nth 1 p2) distan_m) (nth 2 p2)))3 q$ m5 l/ ~/ Y2 u5 G
(makeline) (setq p3 (list (nth 0 p1) (- (nth 1 p1) distan_m) (nth 2 p1))) (setq p4/ J: y+ f# ?" [" q1 A
(list (nth 0 p2) (- (nth 1 p2) distan_m) (nth 2 p2)))(makeline)))))(princ))(if (not( s4 z" U- F3 [3 ~* _1 w: e2 g
(= nil data_m)) (progn (setq i 0)(while (< i (sslength data_m)) (progn(setq ent (entget5 T1 u; @7 O# K
(ssname data_m i)))(p_check)(if (= 1 check) (p_d_offset))(setq i (+ i 1))))))(princ))- M; i! u1 x4 A3 I) M
(import_data)(ai_undo_push)(process)(ai_undo_pop)(princ))8 ]) b7 e$ |6 |8 y
! z5 n7 y2 R" e) ^
;============ GHI CHU PHI (T1) ================, j/ o1 {3 j) D$ q9 l r5 H' A8 }
0 ~( {' J- p8 a
(defun c:DuongDan ()(setq D1 (getpoint " Diem thu nhat: "))(setq D2 (getpoint "Diem thu hai: " D1)). k: `" c/ c+ i8 ]- {' }
(if (> (car D2) (car D1)) (setq D3 (polar D2 0 16)))(if (< (car D2) (car D1)) (setq D3* q/ v* g. ]% _+ ]6 {2 S# f
(polar D2 PI 16)))(if (= (car D2) (car D1)) (setq D3 (polar D2 0 16)))(if (> (car D2)
% C$ Y0 B+ K! L9 L
(car D1)) (setq D4 (polar D3 0 3.2)))(if (< (car D2)(car D1))(setq D4 (polar D3 PI 3.2)1 a" a1 z1 Q2 A# d$ `
))(if (= (car D2) (car D1)) (setq D4 (polar D3 0 3.2)))(if (> (car D2) (car D1))
& t4 R/ r; G- z8 m% V# X+ k. k& H- R
(setq D5 (polar D2 (/ PI 9) 3)))(if (< (car D2) (car D1)) (setq D5 (polar D3 (/ PI 9)
6 Y v( B& J( n2 {3 D" |- L
3)))(if (= (car D2) (car D1)) (setq D5 (polar D2 (/ PI 9) 3)))(command "color" 1)$ ?5 @, m0 n; _; x
(command "line" D1 D2 D3 "")(command "circle" D4 "3.5")(command "color" 7 )( X# I% A4 i: o& ~" d0 G: x. D
(command "text" "m" D4 2.5 0 "1")(command "text" D5 2.5 0 "%%c6a150")( {! Z) u' x6 \/ E- P* Y) k& ^, z
(command "ddedit" pause)) l; a! ^- L, f9 u3 x j8 }+ x
2 C1 W2 E! B4 Z3 H6 p
;;; ========================== Join (J) =================
' D; g2 w5 O8 u8 m5 |
' D. w5 B, X0 T
(defun C:J () (Setvar "cmdecho" 0)(setq m:err *error* *error* *merrmsg*)(setq sset (ssget))
9 O/ g! i) O- O* a3 f& F. u8 Y
(if (null sset) (exit))(setq kt (getstring "\nJoin all (Y/N) <Y> ? "))
/ F, L' I1 `* u, M
(setq ssl (sslength sset))(setq temp (entget (ssname sset 0))etype (cdr (assoc 0 temp)
: ~* y( v3 M9 I$ C# i, m
))(cond((or (= kt "Y") (= kt "y") (= kt ""))(progn (cond((= etype "POLYLINE")
# t+ C k+ x: Y0 r! i- f
(COMMAND "PEDIT" sset "J" "all" "" ""))(if (or (= etype "LINE") (= etype "ARC"))4 x1 T' e+ W. V; \, {
(COMMAND "PEDIT" sset "" "J" "all" "" "")))))((or (/= kt "Y") (/= kt "y") (/= kt ""))$ `* s% t* H- n4 P, Z
(progn (cond((= etype "POLYLINE")(COMMAND "PEDIT" sset "J" sset "" ""))
: E7 K% S' R, \, {2 G4 w8 d
(if (or (= etype "LINE") (= etype "ARC"))(COMMAND "PEDIT" sset "" "J" sset "" ""))))))6 U3 u' Z3 ?1 a8 a- ]
(setq *error* m:err m:err nil)(princ))2 O# E. b4 Y- S: M: Q: H4 u
' G$ k& J& L0 t- `: I" r" l0 G4 I4 v
;=====================================================================
0 r/ X9 V0 s7 l& R m$ M, y2 a, R( x
;;; DOOR.LSP 1.0, Copyright (C) 1998 by CAD Department, HUCE.
9 r: @1 z: I, \" U8 B6 d h
;=====================================================================9 \* y$ P _2 G6 B3 k
4 ~& r0 ?& n! P' Y# ?
(defun C:D1 (/ p1 p2 p3 p4 side dis wid ang angsile old)
% E# r$ r4 q2 r$ `
(setq old (getvar "OSMODE"))
3 H' [5 Q+ `0 U7 z' c3 {6 ~
4 b1 x" X" J7 }# w" c- V7 v
(setq p1 (getpoint "\nStart point:"))# a5 O9 ^ B2 {6 Z, E6 _
(setq p2 (getpoint p1 "\nEnd point:"))
' n5 H3 k) i3 |8 q+ \
(setq side (getpoint p2 "\nOpen side"))
* B' g7 e" j+ ?$ q O
( } f# M: G6 S+ S# T X& [
(setq dis (distance p1 p2))
6 x# u: N8 q9 {
(setq ang (angle p1 p2))
' J* _9 Y3 D9 u* |2 @
(if (< ang (angle p1 side))
8 y0 A2 E; I, ~
(setq angside (/ pi 2) )0 ~. w8 b; s% [
(setq angside (- (/ pi 2))); g* X; _8 ~$ c
)
7 {' o1 U0 p3 D
(if (>= (- (angle p1 side) ang) pi); B/ S& e# _ O, b. [
(setq angside (- (/ pi 2)))
6 \5 Z$ ^/ T- m- @
)
: H- T9 n/ A' I' ~
(if (>= (- ANG (angle p1 side) ) pi)
$ b. {8 ^0 i" P v& K; v& K+ L
(setq angside (/ pi 2))' H# ~4 T9 X I' N7 e' A/ Q
)
7 b0 p' p* T& k$ m, K' h/ J1 M
0 N/ R0 |' l- K7 m, j! d
(setq p3 (polar p2 (+ ang angside) dis) )) X+ a% A! y' x0 F
(setq p4 (polar p1 (+ ang angside) dis) )5 [; B7 b9 p' g# |/ Y; s
(setq wid (/ dis 15))
+ M$ [1 _- v6 W+ U, A. {* X: K& _
2 Z0 G9 @( v% y% |4 z6 K
(setvar "OSMODE" 0)
: L( J$ k) S) V7 N1 M
# ~0 R4 o8 O; V5 t
(command "PLINE" p1 "A" "D" p4 p3 "L" p2
! ^2 l0 h1 `' c+ H6 c# c6 y' u
(polar p2 (+ ang pi) wid) 5 K3 F; w: j- R- T9 Q2 [
(polar p3 (+ ang pi) wid)
0 g/ \6 w; F/ a i
"")" |0 b7 L5 v( m2 a
8 R" L4 E1 F. L9 F9 Y5 G
(setvar "OSMODE" old)0 M. |9 \) J' p: y
(princ)
8 \$ C w! o# o# H/ D6 [7 n8 S
)7 Z0 {0 j8 a' A; j( h7 f& _
7 n3 ~1 Z* O& V0 t, E
;=====================================================================8 \' ]$ |6 K5 n
+ h) q+ j4 H8 d& q, V0 a5 k, K* G
(defun C:D2 (/ p1 p2 p3 p4 side dis wid ang angsile old)1 u8 d3 n$ p1 F
(defun cua1 (pt1 pt2)
' c! _ K1 k! H* E- Q, W
(setq p1 pt1/ q- z6 Z. }1 @5 I2 t# }4 {
p2 pt2)6 c- r( p* x" ^3 Y7 M/ L2 Q
( g- }5 _4 {/ r8 b; r( F
(setq ang (angle p1 p2))
6 w' M' N. L6 d M+ J- W9 [2 t9 x
(if (< ang (angle p1 side))) I0 ^- N, q# t) R" _6 X3 r
(setq angside (/ pi 2) )
3 [% m# D0 c, c' I% e
(setq angside (- (/ pi 2)))8 K% I% d0 X% I4 W
)3 ^1 e5 O7 n' u
(if (>= (- (angle p1 side) ang) pi)2 M$ N: m8 S! n4 A; }- ^; _
(setq angside (- (/ pi 2)))
# f* U) b* F0 `! U! |1 T, s
)
# G+ i1 d8 o, w+ J0 d% F
(if (>= (- ANG (angle p1 side) ) pi)
1 w/ |$ `9 z& }9 J
(setq angside (/ pi 2))9 X0 w7 U. ^; R! Z; n
)3 _: C$ u$ e* m# M6 C) j
- z) \! N$ P3 C5 f! o: R) U
(setq p3 (polar p2 (+ ang angside) dis) )
E) L& M( S( k* u
(setq p4 (polar p1 (+ ang angside) dis) )
7 _; u; @/ N0 B, i
(setq wid (/ dis 15))
# P# \0 S$ J1 V4 D6 _
3 i$ U" d" [' ?: c- y
(command "PLINE" p1 "A" "D" p4 p3 "L" p2 9 }) {, v8 X; q$ F/ K7 g
(polar p2 (+ ang pi) wid)
$ |! j( \, S1 i( N3 M, p" d0 e/ B' t
(polar p3 (+ ang pi) wid)
* a+ s6 ~1 }3 H; [: g4 d* p0 x
"")0 Z8 K! r6 U4 r9 l* z' f
)
5 ^# T0 N3 j: A( d/ O
;=====================================================================, n' ?0 C1 I9 n9 j
(setq old (getvar "OSMODE")) ( K6 `% U* o" @$ N' V4 I
+ k$ {5 m" O& J- o: \$ k! Z9 d
(setq p1 (getpoint "\nStart point:"))
* x3 S2 A) V1 \3 s
(setq p2 (getpoint p1 "\nEnd point:"))" p. K& A% [4 C. A* b* y
(setq side (getpoint p2 "\nOpen side"))
( l/ L$ i8 S+ O. P, @& b% f2 Q2 g3 r4 W
5 r0 F. Z$ N7 C& G. A* T& O
(setq dis (distance p1 p2))1 ^. `1 |: v6 E
(setq dis (/ dis 2))9 Q3 `- V; [! M7 Y. h3 |" l# E: z( i
6 x7 S0 a: ?, n0 |7 h3 X9 Z
(setvar "OSMODE" 0)7 I# U, {& Q, F8 I5 A' Y
\, S p; Y( V1 n3 o
(setq p1 (polar p1 (angle p1 p2) dis))/ p0 M' Z. `0 } c V
(cua1 p1 p2)
% i3 x' @% k/ m. a8 t$ q
. F, F- V/ {5 P3 t% X% I
(setq ang (+ ang pi))7 E4 w' @6 G, C
(setq p2 (polar p1 ang dis))' v' |4 g( T9 ^! Y; D( U
; (setq side (polar p1 () dis))
! E* @; u# D$ W' s( Z
(cua1 p1 p2) . ^% N' o! Y& T% M a
+ |: I$ P4 ?# q. D1 K$ ~5 _
(setvar "OSMODE" old)' U: R Y( p+ t+ V9 T! Z
(princ)9 u" d8 [) E0 ?* n* d6 ]
)
0 o2 Q; Q$ V* v" [- D% o
# D5 w& n W( M9 S
;=====================================================================
. d; q0 F" D1 ~/ t7 X, }7 j3 _; o
;"Glue" text strings. All adopt first's properties.9 }8 A. B7 Q# o N* b
; Author:
$ C8 E3 g Z: ? X
; Henry C. Francis
7 o6 Z$ X* |4 h5 R7 I
; 425 N. Ashe St./ h8 C* Q5 V3 [& C- D
; Southern Pines, NC 28387
8 W; ^7 v$ F% r: s! c
; http://www.pinehurst.net/~pfrancis
* u: @5 y, c0 Y- i5 S* I# {
; e-mail hfrancis@pinehurst.net9 M' x% M/ W3 Y4 I' }+ a
; All rights reserved.
8 [, v- E- i6 K+ B# B8 A& ~2 D
(defun c:gst ( / ename ent1 ent2 old1 oldsl old10 old11 old40 old50 newstr newsl new1 new10 new11)
: W5 \& {# G& _0 n ? A
(while* f& h* d. x3 g$ t# I$ B, ]- t0 D8 |/ T
(not5 J/ C' P3 n+ Y
(and: p$ f% ]3 w+ ?4 m3 R: i2 g
(setq ename1 (car(entsel "\nSelect first text string to join: ")))( i, B/ }( m9 t- N5 U3 t% V2 g
(setq ent1 (entget ename1))& I5 p/ ]* D$ n6 _0 G( [: @1 K
(eq(cdr(assoc 0 ent1))"TEXT")% V# a, e) i& q/ A
);and! E6 e% D* v0 c- c2 [( E2 X8 E1 P
);not+ \- E6 f) r' W3 M# R6 h- C/ D+ r
);while
/ ^' I) j" T- H N7 V; a
(setq old1 (cdr(assoc 1 ent1)))2 X, n8 L- V4 N4 G. Z% \% M/ @! v
(while
, T# r3 j" `4 H/ Z- ]
(not
4 N' v% b5 x) T a3 M$ e5 v
(and
6 n- h* j. @. {3 Y; ~. S- l7 Q% W8 @
(setq ename2 (car(entsel "\nSelect second text string to join: "))). e$ G {1 v. T
(setq ent2 (entget ename2))
- ^& u( V6 s! f
(eq(cdr(assoc 0 ent2))"TEXT")2 c. I- V/ e6 L+ z2 @
(not(eq ename1 ename2))5 u; q+ v1 B6 a/ H! D; h
);and0 A" s& G$ z+ d0 C" d
);not4 S* N6 W9 _) c' H# O; t; l
);while; a+ q6 W: E# f4 T; I
(setq old2 (cdr(assoc 1 ent2)))8 d/ X W% X- w
(setq new1 (strcat old1 " " old2)
& i8 d9 z# A2 _
ent1
7 S6 {; R* o' ~; x' U
(subst (cons 1 new1)
(assoc 1 ent1)% ^7 f5 B( G8 R6 c m
ent1)
1 |! r6 ^1 B2 b( M8 N# e
);setq
8 L* l. A+ j* s4 i c+ U( \
(entmod ent1)- H- S# }7 g' X& t+ l/ V
(entdel ename2)
% P' f4 s, L5 }# B% r$ c
(princ)
) U5 l! A# l/ C( {0 S
);defun- B% g5 V! O" S" f' q
/ g3 ` i* B- ~
;=====================================================================8 M/ M. R X1 A/ j1 g" ] V
/ S& _0 R W; J& m6 d
(defun c:nt (/ g1 g2 ss1 olderr nterr l i temp e1 e2 new old dd dc)
( m' }. J" j6 a$ j& l9 A0 i% u
$ \: k# m' d( L/ O2 G
(defun nterr (s)" S2 U( T" H$ F3 q, R4 }
(command "_.UCS" "" "_.UNDO" "E")6 L6 W+ A3 W3 k4 N
(setvar "cmdecho" 1)9 w# G3 i8 ]" K* l
(setvar "blipmode" 0)3 M/ f7 S6 i0 s: `' u& \+ n
(setq *error* olderr)$ ~) U' z7 d+ o( Q# G' U; P8 t
(setq g1 nil g2 nil ss1 nil e1 nil e2 nil olderr nil
( M3 F1 G7 K8 {: J1 Y
nterr nil temp nil i nil l nil new nil old nil dd nil dc nil)# z; s5 P) j5 t5 f1 j1 g7 o
(princ); _2 X7 G y0 j4 j. ^# ?
)/ I2 b$ Y* ]. N: [* n7 @; q
) b3 f& b( O# [
(defun tim_in (dt / p01 p02 ktra)
, R9 i' Y" r7 r, u
(setq p01 (cdr (assoc 10 (entget dt))))
8 M# M/ O- {, p! Q9 A& t
(setq p02 (cdr (assoc 11 (entget dt))))
* W! @' [! u" t) r0 ^
(setq ktra T)
* L8 B2 a! t$ J5 ~
(if (and (> (car p01) (car g1)) (< (car p01) (car g2)) & b! r9 G9 L1 K4 k3 X2 l2 a
(> (cadr p01) (cadr g1)) (< (cadr p01) (cadr g2)))2 V8 o( @8 p3 _5 m) p5 e
(setq ktra nil)
6 b2 R/ D s+ L/ Z' S7 [
)/ M$ ]/ |& p, W Q9 I! W" ]( T
(if (and (> (car p02) (car g1)) (< (car p02) (car g2))
" n. j" U% E2 C% u5 h
(> (cadr p02) (cadr g1)) (< (cadr p02) (cadr g2)))
2 X9 k6 L$ H u4 A
(setq ktra nil)
" a( G$ X0 m/ |
)
1 e) w& l N8 k2 ~2 A! |4 ]: ~
ktra# C1 _9 J0 u( v% M( V( V3 j S2 v
)( G. ?" c! y. _
# h7 p0 t4 i! x1 s; P/ P( X) r
(defun timdt (dt1 dt2 / p01 p02)) K' f+ v5 f+ p+ V$ d
(setq p01 (cdr (assoc 10 (entget dt2))))
* [" O9 j8 l4 B+ N% x- w/ W
(setq p02 (cdr (assoc 11 (entget dt2))))
; A6 v q2 Y c1 o/ H, K
(setvar "ucsicon" 0)/ [. h5 ^' L1 m: ~+ o
(command "_.UCS" "E" dt1)! I8 E8 x8 q+ I8 ]% e& V
(setq p01 (trans p01 0 1))
4 T8 F+ a9 ^, `
(setq p02 (trans p02 0 1))7 l$ D# h( \' A- _) t8 y- V. c
(command "_.UCS" "")/ o4 @% _1 P8 s
(setvar "ucsicon" 1)
$ j' E$ I; h9 ^* J" ?. U; L
(if (and (equal (cadr p01) 0 0.001) (equal (cadr p02) 0 0.001))( n5 J: E ]: T. T- X2 ?- g5 E0 C
T
; C0 ^' y V: N
nil* y t* i. \+ c: v; E8 B8 h
)
, f4 v" B9 [* D7 ]$ _# O
)
- f3 t; m! |# U* [
3 W' b0 H+ Z' [ v. X7 T
(defun tim_out (dt / p01 p02 kt)
. N. `% m7 k! ]# t- l0 h i
(setq p01 (cdr (assoc 10 (entget dt))))
% b# l7 R+ [* E- `8 Q; x; z
(setq p02 (cdr (assoc 11 (entget dt))))
, f4 L6 F$ J A& D: o+ G1 d
(if (and (> (car p01) (car g1)) (< (car p01) (car g2))
# `' y: P/ U/ P
(> (cadr p01) (cadr g1)) (< (cadr p01) (cadr g2)))
7 [& m' B. j8 v/ q8 ?
(setq kt p02)9 l* A3 _0 w+ e/ T4 o# `
)4 e7 `- c" x( i: V# u' z6 Q% C: n- @
(if (and (> (car p02) (car g1)) (< (car p02) (car g2))
4 x& f, ^2 {& s: ~ E2 l
(> (cadr p02) (cadr g1)) (< (cadr p02) (cadr g2)))
5 V2 f6 _1 b/ y: r. N
(setq kt p01)
2 k' B& n# N; f+ a; S
), N* u: X! f6 n5 J
kt
6 u w6 y6 e, |1 B9 p4 M! h0 i
)* E# P! h1 ]/ I' o+ x1 h1 i7 X
# T4 o( A1 h$ z
(setvar "cmdecho" 0)( H. m9 C) F$ \; i
(setq olderr *error* *error* nterr)8 n; p1 T1 _- c( R
(command "_.UNDO" "G" "_.UCS" "")
. V) e" \: i4 n8 i3 l
(while (null ss1)
+ V8 _6 p5 |2 b9 ]# A5 w& _
(princ "\nChon tuong muon noi...")" [. w- E/ O- A
(initget 1)
, n: w9 K. S5 S/ \7 i
(setq g1 (getpoint "\n>Goc thu nhat:"))
' Q$ E5 ]; `! j% T6 T5 ^6 K9 }' T
(initget (+ 1 32))8 \, L$ C$ c4 c& |8 z3 a
(setq g2 (getcorner g1 "\n>Goc thu hai:"))
5 g9 _9 z& K+ q4 `' x6 `
(setq ss1 (ssget "c" g1 g2 '((0 . "LINE"))))5 l; F! h3 R1 f1 F, r! o( ?
(if (null ss1) (princ "\nKhong tim thay doi tuong!"))
% x. C+ g9 o3 n8 F
)
* N( c# W( @2 x9 X0 b
" W0 z; o9 W; k+ i# m" I" K0 U5 h! @
(setq temp (list (min (car g1) (car g2)) (min (cadr g1) (cadr g2)))2 E% T+ D' X3 r3 E' `
g2 (list (max (car g1) (car g2)) (max (cadr g1) (cadr g2)))7 J3 S$ x$ P) [4 G2 `2 q
g1 temp): o1 k& Q$ d O# f
(setq ss1 (ssget "w" g1 g2))9 \8 `' ~: ?# V) { m
(if ss1 (command "_.ERASE" ss1 ""))& a5 F. k1 `0 c$ Q) X
(setq ss1 (ssget "c" g1 g2 '((0 . "LINE")))). P' J2 H: E9 z) v" R( V
3 I2 k% n. W9 U
(setvar "blipmode" 0)
5 ^8 v$ F* H6 c8 B" r1 _8 u Z+ |
(setq i 0 l (sslength ss1))" `5 s; u4 q! P
(while (< i l)
7 w9 R p5 b: m( O
(if (tim_in (ssname ss1 i))6 ] r8 Y/ Z; {: r3 ~
(progn 4 N2 m- x9 }3 _* l; z
(ssdel (ssname ss1 i) ss1)7 \# ^! h( Z* B% b2 l: N: z/ G
(setq i 0 l (1- l)), e1 K9 d' I9 x. T/ E$ }
)
1 o ~3 m9 \* D
(setq i (1+ i))
4 R7 g9 K7 C3 P0 d; \8 G
)
. g% @4 F9 x7 Z. s! ?& m
)% S2 e. T* P9 q% ]
(setq l (sslength ss1))
7 Z* [- K1 \; {) _8 H
(while (>= l 2)
1 A: Q/ y. E/ W
(setq e1 (ssname ss1 0)); y1 m$ t' T( {: M
(ssdel e1 ss1)
. E1 N& ^" J* l
(setq e2 nil i 0 l (sslength ss1))9 @' N# U' D$ F) k7 K. D2 d
(while (< i l)
: Z/ E6 L) n: n! c
(if (timdt e1 (ssname ss1 i))
4 l) q3 b, _& D" T
(progn
$ c# T2 {; N# q; C' v$ o: \5 R
(setq e2 (ssname ss1 i))! B# M; x5 Y5 ]/ X, v) R
(setq dd (tim_out e1))
" J5 @% c0 |: f& S6 h
(setq dc (tim_out e2))
# u( b6 @, z6 q2 M
)
$ `% |: r9 }. W1 [/ C# a
)
/ ~1 f9 T, ~/ w% t
(setq i (1+ i))
& z+ @9 u" G! b' X3 V9 Y
)) f/ _7 y0 \" p% N, k$ R' |1 y
(if e2 (progn
) i8 Z% D" r4 Y- ^% t
(ssdel e2 ss1) ; E& k/ l$ ?1 m* g/ U
(command "_.ERASE" e2 "")' X& w# P# ^( ]) f& t$ Q* ~
(setq temp (entget e1))
6 `* C* ^& w" Q/ j) v" z& K4 i2 a
(setq old (assoc 10 temp))2 z7 I* X# y- z( r0 p9 u: X( D" B
(setq new (cons 10 dd))
$ F U9 W, `# u6 R; o; B
(setq temp (subst new old temp)): f# v o/ Y0 b1 C: k# c
(entmod temp)- U3 M8 P6 P, Z5 j: S( e
(setq temp (entget e1))
$ {4 U: D$ i6 c: o% T9 \3 K$ C' t
(setq old (assoc 11 temp))
* }3 v8 q, S/ g* n! Z* j8 o
(setq new (cons 11 dc))
* e4 z# |8 h" E* n
(setq temp (subst new old temp))
2 s1 T0 g5 |) D& N; Q" S2 L
(entmod temp)2 n% n! S+ A) g) S( \: L3 K
(redraw e1)" e9 r: j8 m2 [
(setq l (sslength ss1))
$ d, z- K6 ]. s( L
)
5 W+ b! K5 K) G+ i! n6 L0 i
)! q- g( }/ b$ Y+ Y: Z& Q) [
)
9 |/ S1 \; C! i! f& H1 ~. o
1 q5 V( P& Q6 j, }' N5 {4 N" y$ k3 s
(command "_.UCS" "" "_.UNDO" "E")4 s2 R' H6 ]' ~, A
(setvar "cmdecho" 1)1 s8 z) G% ]5 L4 A
(setvar "blipmode" 0)
; V# r5 ^ @0 t* h9 {/ {; W1 [
(setq *error* olderr)7 L. A* ~" H1 b0 _
(princ)
. a O) g' T0 v( [6 c
)' {3 a# ^6 w; V' x. A/ U
;*********************************************************************
+ i( X: r7 Z! K* X3 \$ ^ A5 h
(defun ketthuc () |9 ^; C. G- N* S# t- x
(setvar "cmdecho" luuecho)& G- J! t3 D$ C, R7 V
(setq *error* luu
/ C' ]! Z$ f& |! ]3 v+ V! C
luu nil
; ~/ b0 C- G5 Q* E7 l
luuecho nil
( J7 O/ M/ r* U' w1 W' T7 L
);setq6 U# o$ V R4 W! D& ^
(princ)( k% f' K: t+ \! Z2 [
)
5 e1 W; b4 c% y' Q/ u" S0 k, d
;*********************************************************************; E/ W/ d! ?) ^% E
(defun modau (). q5 ?3 [; D3 l+ a
(setq luu *error
# g% I5 }: L6 u" D( j: a2 M# J
luuecho (getvar "cmdecho")
3 W- n, h& i- v7 [: n v
*error (ketthuc)( {6 Z2 ]8 h4 f9 V
)
: J; C+ [$ N, l# q$ |2 J) d& Q4 U
)
) [8 V6 \0 s; ]! v. M# p, y! f
;*********************************************************************
/ n7 v9 Y' i1 p1 v5 q' H- M
(defun xulytext (text / kytu ma sokt luusokt lui )
# N' n* D! \0 K+ q& J2 m/ w$ ]3 ?
(setq kytu (substr text (strlen text))3 n0 ?: T K! x! h1 t
ma (ascii kytu)
% P/ y) b9 j% w& @+ ^! X+ v1 _
sokt (read kytu)
5 D. A7 j) m2 o) [2 ?
lui 1
3 R$ |& g& h+ N a. e% \. S
)
# X9 Q/ E9 \. K4 I- l( v6 e, I
(if (numberp sokt)
5 ?, ]6 l" w v5 P' |9 x
(progn
& I- i5 C8 m; R+ \( ?
(setq luusokt (1+ sokt))
, ~, `# A y- ?+ u& D
(if (and (numberp sokt) ) c0 T0 }/ P7 B( @
(> (strlen text) 1)
* z% z% k; }. V. K, V2 j
)
5 Q( E: k* a" Q
(progn7 d- ^( x% j1 \6 n- v! k6 D* T
(setq kytu (substr text (1- (strlen text))): T5 k+ i( o& G9 k/ U$ H
sokt (read kytu)
2 O( L: U8 ~! J& i9 P
)% L" f0 w! _) H
(if (numberp sokt) " o7 B6 ?2 ^7 T
(setq luusokt (1+ sokt). o# x! u4 n O2 G4 ?0 R1 v5 D# s8 T
lui 23 v- y: K' F$ W& N& W! K9 k
8 ]8 p" @; U* [9 A+ ?$ K9 p
)
7 l' l4 s; y, y; ?5 e
)
' Y% ]7 e* M8 L/ o6 P
);progn
$ U. Q: I! N& o. s7 i3 j. C3 U7 u
)
' p! ` H3 ?1 M0 m
(if (= luusokt 100) (setq luusokt 0))3 T% @3 O$ ?% n& B% o: `
(setq kytu (rtos luusokt 2 0)
$ E$ o. _* n4 E& N; ~/ j3 B( u
1 V/ Y: d: k8 `! u. |% h, W
text (strcat (substr text 1 (- (strlen text) lui)) kytu); u$ f: @+ q7 ]9 q. V
)
7 E7 l+ C. W" @; X# b# ]+ ~
);progn ; @5 s8 w! p7 x, D
(if (or (= kytu "z")
5 w: y5 q9 y! p4 @
(= kytu "Z")
3 t# A, a i( ^9 t1 ]
)
% D! w) T8 B# r6 r5 a( n$ g
(setq text (strcat text "0")
- Q; I, X* N& L6 a/ M0 R* e
textxl "0"# g1 I" C X, `( @
)9 `$ x& O _2 F& Z Y
(setq ma (1+ ma)
+ I$ [( A* d! N* W I
text (strcat (substr text 1 (1- (strlen text))) (chr ma))
- `1 h. L( [5 |6 _
)
+ H; g# b" F( @- S0 }' h5 j
);if
5 E' v9 J# t# I1 ~& j$ F2 P2 k: S
);if
$ o0 U$ \. U+ k) o- J4 L
)
4 J* x4 X5 d/ X8 w
;*********************************************************************4 U0 J: ~* ^2 `! h
(defun doitext(tendoituong / chuoi doituong thoat tam dsach kieu text vitri10 vitri11 dem canle)
R5 C) C2 M7 u
;Neu doi tuong la text thi tiep tuc
, o* d) T1 V* C
(setq doituong (entget tendoituong)
& v+ c3 |. p5 V8 u8 o1 n& F% X
kieu (cdr (assoc 0 doituong))9 @5 i* s' Z( Y( t" ^- x
canle (cdr (assoc 72 doituong))
* l F7 X4 ~$ H
) , F0 M& Z6 \- T: B2 I3 R
(if (or (= kieu "TEXT")( P" A2 V; R6 y4 |2 N3 Q
(= kieu "MTEXT") $ k! Y( W. L- e0 j+ u+ P" h
)
9 r! A7 {+ P; I, ~) K, D
(progn: L. n4 e8 ~: F V4 d7 @0 g% H
(setq textxl (xulytext textxl)8 G1 r1 [6 Y$ x& D
text (cons 1 textxl)3 O: z5 P3 x9 N' ^* G
vitri10 (cdr (assoc 10 doituong))
% \% w- Z, E6 s7 j
vitri10 (list (+ (car vitri10) (car vitrilech)) (+ (nth 1 vitri10) (nth 1 vitrilech)))' H# f7 v+ I9 m( P2 u
vitri10 (cons 10 vitri10)
n6 F3 L9 u4 M5 N( H
vitri11 (cdr (assoc 11 doituong))9 d' l7 \) [ V3 ~* F4 r" E% o, t
vitri11 (list (+ (car vitri11) (car vitrilech)) (+ (nth 1 vitri11) (nth 1 vitrilech)))
+ y8 G( D6 F8 J" L6 A1 v9 t
vitri11 (cons 11 vitri11)
7 | g, i) s, g. O; Q
dem 0. h- D. b+ m% w
dsach nil, I( x3 x' }2 D: x
)
9 g, g9 p% ^( M4 D7 o
(foreach tam doituong* A# I- U6 Q& L* o+ G+ `; C
(cond' N6 @* p' c, P
((= (car tam) 1) (setq dsach (append dsach (list text))))( T; I( h3 E- g0 M* [+ q8 ^- u
((= (car tam) 10) (setq dsach (append dsach (list vitri10))))" c6 P( k1 G; [3 p
((= (car tam) 11) (setq dsach (append dsach (list vitri11))))8 I) C( b7 B" ~- Y% L
((setq dsach (append dsach (list tam))))
. J: G) L1 w1 n/ L
); w5 y% h" T A4 C( C
)
8 H6 L$ W, d3 n7 y1 @
(entmake dsach)4 U6 l, [0 o( m( _& A2 p
);progn
% e f5 a( Z# T; i8 h% b
);if9 p( b$ R4 f) A4 _- P# M. Q
);8 l" k( f+ ^2 T# p1 [. [7 N
;*********************************************************************
( c$ ^9 i+ _3 j; U1 e
;sao doi tuong cu sang vi tri moi
7 c; r. o4 a w8 ]2 j. ?
& l; x0 q# \: {5 N
(defun copy_dt (tendoituong )9 X: E: G( r! D% M
(command "copy" tendoituong "" goc toi )
# ~2 j4 B0 `" ^0 i
);defun: [. t; J" w' [2 V8 g
" ]+ n/ ?/ |; i$ v1 [
;*********************************************************************
! f( A" B: @8 x B
1 ]# J- [( |' K& e6 I! D
(defun c:ct ( / cumdt dodai thoat dem ten doituong textxl dem goc toi)
! f* p* c7 \1 l1 W
; Khoi dau cua chuong trinh
* w# p4 V( D- h# s H. J0 C& t
(princ "\nCopy Inteligent...\n")
/ K2 \2 z p6 n9 w. Q# u/ T
(setq luuecho (getvar "cmdecho"). R) c) Z1 k# R# |
luu *error*( R, E6 C2 D. C4 X$ L
*error* ketthuc
' F. ~3 l: T" g/ m% B+ I
cumdt (ssget)
, G: R- F5 z0 U+ h3 P& e
dodai (sslength cumdt)3 ]8 |8 N7 S3 g4 l4 d2 o
goc (getpoint "\nSelect base point:")
9 e1 t) H* v$ i1 Z0 w& V& t$ j
thoat nil
. V3 S' @5 s9 {! w
dem 0
4 t( j% S2 z% g. u5 o
textxl nil
4 z6 K2 I7 Y3 e5 p! w! z$ [! q
);4 Y; x# E" w+ n% W3 Q" [5 _" J
(setvar "cmdecho" 0)
0 t5 Y/ L+ S) `* T
; Loc ra duoc ong text de xu ly
- r( L% a/ g! T \" S
(while (and (= thoat nil)
" |7 J2 `$ Q: M. T
(< dem dodai)
. r( j4 I3 ]6 R
)
1 M" }3 m" F: w# E/ P; _* V; V
(setq ten (ssname cumdt dem)& `' z' P" T( F, \2 ?+ A& h
dem (1+ dem)8 I5 V3 D: S$ _2 C+ C
doituong (entget ten)( q. R: N# I3 O( j, G
kieu (cdr (assoc 0 doituong)) 9 S8 H, a3 J A T0 f/ r: W3 b6 Z
)
2 e+ r' Q& y/ q: @# ?+ ]$ L. `
; K8 p2 x% B( }5 h3 A& I7 V
(if (or (= kieu "TEXT")
- \# S a8 }) A" U7 X
(= kieu "MTEXT") _- o8 q! g7 o$ m- `4 a) z! m
)5 u' A$ Q- G2 n3 W& L: G% [2 a
(setq thoat T+ g, _3 E7 _ E( i3 P6 @- g' E1 m
textxl (cdr (assoc 1 doituong)) 1 t- e) J, Y l+ ^+ B
)
/ [' V9 {0 U" i
)" T' g& p. ]' }9 e
);) P( \5 D1 u; V
(while T
5 P/ _8 K* U$ H+ Q( c1 y+ e, b8 w
(setq toi (getpoint "\nSelect next point: " goc)
4 Z' S8 p' P% a- M
vitrilech (list (- (car toi) (car goc)) (- (nth 1 toi) (nth 1 goc)))* J2 }. Z% u3 a, y
dem 0
* \# ~: D0 I B& B9 s$ x3 T
)
3 G! U6 |* z& X! ?+ D# c
(while (< dem dodai)
' A; L1 M+ g! V# o
(setq ten (ssname cumdt dem)
/ v( n! f2 w3 @2 y
dem (1+ dem)
3 b; e) I$ ^) ^2 L, i2 R3 I) s
doituong (entget ten)! I+ S* W+ o. x' w: g4 u
kieu (cdr (assoc 0 doituong)) , E; k; ^" |; o
)$ Y2 r' P a8 }; D! \$ Q
: Z1 ~4 M! l! J+ w! @" S
(if (or (= kieu "TEXT")
8 S% G* n6 J6 Y
(= kieu "MTEXT")
4 e% U& {( j+ V, V" r/ b" }' w
)' z. g# \! t/ d* W4 g2 K9 b8 X7 B
(doitext ten), M; m3 k6 j t7 Z# Q: j$ s) N# X
(copy_dt ten)
5 J3 H3 n, {( d1 U
$ v% x4 `' O6 p6 p: y
);if
* J+ n' a g1 m# b$ L+ j+ M
)8 U0 K# J: }" e5 p
);while8 A4 {* o0 n& W: j3 A) F- }
(ketthuc)
: W7 q( [7 e8 K" K
);defun
( ^: ?+ c$ R' _% X* A/ O% R
(princ "Type \"DG\" to start")$ Y; i. i `9 A) e
;Note: bien toan cuc: textxl vitrilech7 P: M- p+ `# N
& S# N- j6 q5 n6 ?
;=====================================================================6 _6 p# F/ D, Z8 ~
;;; PLJOINFUZZ.LSP
7 G) A D; z% }: p
;;; Joins lines, arcs and polylines using a fuzz distance
Z6 u) G/ R) H' x% @4 J2 C
;;; If only one object is selected it tries to join to all objects that are possible; p- f+ h; A! T7 _: r
;;; By Jimmy Bergmark
8 q! H3 S$ ]4 Q) k
;;; Copyright (C) 2003-2004 JTB World, All Rights Reserved
# }- j1 {0 P/ m9 X7 b6 r4 s( Z, [
;;; Website: www.jtbworld.com
4 g; R2 v/ e H% d
;;; E-mail: info@jtbworld.com. [* S% I( F1 e: F. ^
;;; Tested on AutoCAD 2002,2004 and 20059 _' A' K1 M& m. G
;;; Latest revision made 2004-11-11
% }2 Z) M q1 X5 ^0 |, W# I
;;; Minor code cosmetic change made 2004-11-13
& c8 u6 ^6 u! }9 O4 o& \% }* j& ~+ x
;;; Bug corrected 2004-12-23$ ^. K% H4 d3 C% _
* ^& x! J; `+ d
(defun c:jf () (c:pljoinfuzz)) ; this line can be commented out if there is an existing command called jf
) J2 w0 n- O/ X W. H
(defun c:pljoinfuzz (/ ss1 entLine objType oldcmdecho oldpeditaccept fuzz okObjects)% G# Y) h/ t* V; a" T# u. E2 K5 u b
(setq oldcmdecho (getvar "cmdecho"))- E# z9 G2 v( Z7 {& Q
(setq oldpeditaccept (getvar "PEDITACCEPT"))
; C; r: v: a L4 z# t- N
(setvar "cmdecho" 0)% N# G6 R6 h) K. F% `
(setq A2k4 (>= (substr (getvar "ACADVER") 1 2) "16"))
2 {' t1 w/ A% q) I( `
(if A2k4 (setvar "PEDITACCEPT" 0))
; ?# X( }5 I, M& |# i, b
(setq okObjects '((0 . "LINE,ARC,POLYLINE,LWPOLYLINE")))
" r: p7 I# E6 c- v; n- x- E
(princ "\nSelect object to join: ")$ m6 h5 x) x- u
(setq ss1 (ssget okObjects))1 e. i O H4 z1 m9 V' M
(setq fuzz (getdist "\nFuzz distance <0>: "))0 o" R' S% t% H' ]- \9 R
(if (= fuzz nil) (setq fuzz 0))
7 d+ K/ b; m5 B: L3 _/ ~& F( X
(if (/= ss1 nil)3 F e: l, M0 x
(progn
3 t5 N; L, r8 x
(setq objType (cdr (assoc 0 (entget (setq entLine (ssname ss1 0))))))
$ c1 P* g; q3 S8 [& T: v, p
(if (= (sslength ss1) 1) (setq ss1 (ssget "X" okObjects)))3 H! H# p' R; Y* W; V: {
(if (member objType '("LINE" "ARC"))1 `7 \7 o& ?) [- E/ n7 ^& k
(command "_.pedit" "_M" ss1 "" "_Y" "_J" "_J" "_B" fuzz "")7 n+ j9 x( j; U9 I5 e4 t1 N
(command "_.pedit" "_M" ss1 "" "_J" "_J" "_B" fuzz "")3 W: ~" L! q9 ~& ?' C
)8 ?- ^& L+ S8 p* Y( M
)
9 j, ~: z1 v! B/ L- u
)
. e6 Y2 I' j' ?: W
(setvar "cmdecho" oldcmdecho)5 N4 g1 \6 A" F+ T. u% S
(if A2k4 (setvar "PEDITACCEPT" oldpeditaccept))
. q- }+ J6 f6 ^5 h0 y Y8 g
(princ)
) |7 N* I3 e8 S+ X5 H0 f
)6 O3 T% q8 S3 ?5 h$ q" |. \+ B. [
q" U' w% @/ m' C( |+ ]
;===========================VE CAO TRINH===========================5 y) _9 M6 t, J8 b
9 t7 i/ M# _0 t( T
(DEFUN C:Cotcao (/ CMD PT1 PT2 PT3 PT4 PT5 PT6 PT7 PT8 NPI TX DX DY TL OSM OLL
% @+ a. x( H5 {( w$ Q
CRST RSIZE TSIZE STR PRMT FCH NBC OLDERR)4 J+ Z% [: @* t. ?- f
(SETQ OLDERR *error*
6 R8 v8 T* y7 l+ z! ?$ B) x: m
*error* loisb)8 ]. R' p) [3 B- l: B
(command "layer" "m" "dim" "c" "" """")
?2 U0 u$ m+ Y t( c( Z
(SETQ CMD (GETVAR "CMDECHO"))
+ ]9 h; {2 e1 @( {/ ?+ V3 H# S
(SETQ NBC (GETVAR "CLAYER"))
. ~* E& x3 E/ O/ `: Z
(SETQ OSM (GETVAR "OSMODE"))) h$ F# X: |, U
(SETVAR "CMDECHO" 0)" G4 i1 o0 n+ ]3 Q" a
(SETQ PT1 (GETPOINT "\nDiem cao trinh:"))5 x' R6 B6 Y! A: [
(SETQ TX (GETSTRING "\nCao trinh:"))2 a% n0 z3 A g' x- l
(SETQ FCH (SUBSTR TX 1 1))
. w8 f0 \" L- T& G6 l: c7 i
(IF (= FCH "@") (SETQ TX (STRCAT "%%P" (SUBSTR TX 2 (- (STRLEN TX) 1)))))
0 R( n( |6 J {- X: ]3 Y
(SETQ CRST (GETVAR "TEXTSTYLE"))' H4 Z$ n( H3 q* ?+ y7 I/ k" H
(SETQ RSIZE (CDR (ASSOC 40 (TBLSEARCH "STYLE" CRST)))); h- i( I1 G9 u3 d$ R- O) @
(SETQ TSIZE (GETVAR "TEXTSIZE"))
4 @/ o5 y9 S, z2 F( j* B, ?! Y
(SETQ STR (RTOS TSIZE 2))1 k+ W; ]4 ~) G+ I+ C& a7 G
(SETQ PRMT (STRCAT "\nText height <" STR ">:"))' l! h+ @. G" _ w
(IF (= RSIZE 0)$ [) ^: Q' g% j
(PROGN
, p* _; q1 w2 ?' i
(INITGET 4)
# n: l8 {) l y7 m
(SETQ TSIZE (GETREAL PRMT))
" d" N, V: N' c- c& A! d A+ G0 K
(IF (= TSIZE NIL) (SETQ TSIZE (GETVAR "TEXTSIZE"))
7 \7 ~! U4 g3 Z# O' B, G
(SETVAR "TEXTSIZE" TSIZE))
7 [) \8 K; L" ?$ o
)4 J; Q7 Q8 {& |$ F- g$ B, X$ m
)6 j) l% @: s3 \- { I' Q
(PRINC)8 v! z2 W8 p* T* F: E: Z/ ~
(SETQ TL (/ (GETVAR "TEXTSIZE") 2))
$ X) y% L5 T$ Q+ ], E+ k) |
(SETVAR "OSMODE" 0)
6 a8 r1 b( M1 b% f
(SETQ DX (CAAR (CDR (TEXTBOX (LIST (CONS 1 TX))))))
( h' y% o; G: K
(SETQ NPI (/ PI 2))8 }/ }, S1 Q2 P- R* Z6 M
(SETQ PT4 (POLAR PT1 NPI (* 1 TL)))* m3 }, `7 T4 z5 F
(SETQ PT2 (POLAR PT4 PI (* 2 TL)))* n% `, u* Q- B4 f( h
(SETQ PT3 (POLAR PT4 0 (* 2 TL)))
6 L/ J! q% L Y- G3 f
(SETQ PT5 (POLAR PT4 NPI (* 5 TL)))
# l V9 r' `4 S4 Y" d
(SETQ PT6 (POLAR PT2 NPI TL))# Q. A7 H& A9 _( T' o* V
(SETQ PT7 (POLAR PT6 0 (+ (* 3.7 TL) DX)))5 Q" i( T( T% g) w
(SETQ PT8 (POLAR PT6 NPI (* 1 TL)))
$ p9 K9 ~/ p" }
(SETQ PT8 (POLAR PT8 0 (* 2.5 TL)))
; C: L3 Y5 q2 J
(SETQ PT9 (POLAR PT1 pi (* 2 TL))); o( v. f, i5 n+ |3 l
(SETQ PT10 (POLAR PT1 0 (* 2 TL)))" @) U* w. k4 r/ v/ ^( V, n" `6 N# ]
(COMMAND "COLOR" "7" "")
# P3 [) z k6 c2 w3 k5 B
(COMMAND "STYLE" "COTES" "Verdana" "" "" "" "" "")# B3 j. s+ C+ J$ w
(IF (= RSIZE 0)(COMMAND "TEXT" PT8 TSIZE 0 tX) (COMMAND "TEXT" PT8 0 TX))* X" s U S" V4 I3 ^5 `$ p) d; c# t
(COMMAND "COLOR" "BYLAYER" "")$ m8 s8 @. D0 k9 Q R+ u. `# w' T
(COMMAND "SOLID" PT1 PT2 PT4 "" "" "pLINE" PT1 pt3 pt2 "")
! F5 b: v# K' J, J/ r- `, T% ^2 B
(COMMAND "COLOR" "BYLAYER" "")0 V' M/ s, M1 V) c, v
(COMMAND "pLINE" PT1 PT5 "" "pLINE" PT6 PT7 "" "pLINE" pt9 pt10"")% o6 \8 ]& G. P5 `0 x- ?) e2 n
(SETVAR "CLAYER" "0")- f# ^" [+ n- F5 G
(command "ddedit" pause)
$ ^% r9 w7 O0 F; r9 d
(COMMAND "COLOR" "BYLAYER" "")' \# q' U7 g! O4 t, M$ s% ?
(SETVAR "CMDECHO" CMD): ~+ |; K1 M6 V, D1 g- |
(SETVAR "CLAYER" NBC)
. G& ^$ P. C5 k$ m( |: Z
(SETVAR "OSMODE" OSM)' \7 V4 j- y# D3 Q7 z
(PRINC)
: K7 n2 F2 n7 @5 l) W, J
)
, |$ n/ o! M- r0 ]4 `- V! o: F
M- o# h7 e% J( z- {# z3 P8 N8 Y
;;; =========================== VE NET CAT CHEO (GC) =============================& L% F2 E' k; T2 [( ^4 N
% i. z& B+ z% a8 k% t! J' K
(Defun c:G1(/ p1 p2 p3 p4 p5 p6 p11 p12 l ang)
7 G0 i! M7 y9 E5 b
(setq x (getvar "osmode"))! p% V- C0 b" a' i2 Q
(setq p1 (getpoint "First point : ")0 _2 d# g" R7 o3 J8 v5 c4 C( {1 u( n
p2 (getpoint p1 "Second point : "))
7 u% ~/ |% s5 e6 N& v
(setq l (distance p1 p2))
' U: W" ?" K# p1 G7 _6 u7 X& N
(setq p11 (polar p1 (angle p2 p1) (/ l 5))- E7 Y) ?, r7 P) y
p12 (polar p2 (angle p1 p2) (/ l 5)))
: V% J! E. k$ \
(setq ang (angle p1 p2))
0 r& s( Y7 T, f4 o- `; T5 S8 s
(setq p3 (polar p1 ang (/ l 2.5))
% l7 F: X0 s6 ^
p4 (polar p3 (+ (/ pi 2) ang) (/ l 5))
3 q, K6 l+ w' i5 J+ l7 a# [
p5 (polar p3 ang (/ l 5)); c, e! I0 o6 k; O, n3 t0 Q- I0 Q
p6 (polar p5 (- ang (/ pi 2)) (/ l 5)))
. L! X, F0 f% K( n: ?% O [
(setvar "osmode" 0)
6 n* p( l: i2 @5 I5 R! j
(command "pline" p11 p3 p4 p6 p5 p12 "")3 n3 a5 `# e% \
(setvar "osmode" x)" U% u& q- ~- z: p
)
+ ^( a& _7 u: p+ A3 B; O
;----------------------------------------------------------------------------------
& L) v' C/ {- o( L3 h6 D
(Defun C:G2 (/ ps1 ps2 pf1 pf2 pf3 pf4 pf5 pf65 H F, ~7 A8 k2 D3 B6 B u# x
pf7 pf8 sb sh se ang old_osmode); (setq old_osmode (getvar "OSMODE"))' K' v# A+ G6 o2 w& t0 ?
(setq ps1 (getpoint "\Chon diem thu nhat: "))/ J# K' m3 a! K: W K1 N
(setq ps2 (getpoint ps1 "\nChon diem tiep theo: "))' ^1 W& ]7 l( J2 j H: p
(setq sb 50.0 sh 200.0 se 20.0)) e1 Z; _( @" V) f* J% _& B
(setq ang (angle ps1 ps2))
% k2 @, ] g! F* a, V6 ~( [. j, T: _
(setq pf1 (polar ps1 ang (- 0.0 se)))* ~( F6 W6 f2 X1 y
(setq pf2 (polar ps1 ang (/ (- (distance ps1 ps2) sb) 2.0) ))
8 }( w8 r# S& ^; ?
(setq pf3 (polar pf2 (+ ang (/ pi 2)) (/ sh 2.0)))
0 q2 ^/ A7 q& {, G3 \* f
(setq pf5 (polar pf2 ang sb))% ]8 n! G* a+ f5 q0 ]9 [+ `7 f3 u$ H
(setq pf4 (polar pf5 (- ang (/ pi 2)) (/ sh 2.0)))0 s: T7 |4 N% t( E) l( ]. C: P
(setq pf6 (polar ps2 ang se))* C9 k# _# q; J
(setvar "OSMODE" 0)4 n! B( R) h _& |/ J
(setvar "BLIPMODE" 0)
8 } B% G b4 k2 n: l
(command "PLINE" pf1 pf2 pf3 pf4 pf5 pf6 "")# u# N3 T1 m9 ?3 o
(setvar "OSMODE" 703)' p h2 L9 s( g, ^, E
(princ) )
- n. s5 b+ Q- A' u' b* L
;----------------------------------------------------------------------------------
( e% y2 \% t& P% F* r8 r# z) C$ P
(Defun C:G3 (/ ps1 ps2 pf1 pf2 pf3 pf4 pf5 pf6. K; F8 J$ R6 H7 Q, a
pf7 pf8 sb sh se ang old_osmode); (setq old_osmode (getvar "OSMODE"))
) _* x( G T2 b4 T% z' v
(setq ps1 (getpoint "\Chon diem thu nhat: "))5 B$ \, d- ~2 I& F4 B C+ j
(setq ps2 (getpoint ps1 "\nChon diem tiep theo: "))
5 [- {2 E. |, u
(setq sb 100.0 sh 150.0 se 20.0)- o; [$ v9 g$ L' |( T- f- ~
(setq ang (angle ps1 ps2))$ h9 e8 f8 `" z9 y! k9 n. f
(setq pf1 (polar ps1 ang (- 0.0 se)))
$ F! I% b9 H- J+ Z% T
(setq pf2 (polar ps1 ang (/ (- (distance ps1 ps2) sb) 2.0) ))
(setq pf3 (polar pf2 (+ ang (/ pi 2)) (/ sh 2.0)))
4 w5 x F/ O; `5 v1 q) J) y
(setq pf5 (polar pf2 ang sb))
( t8 |* _. G- F7 ^) @1 J
(setq pf4 (polar pf5 (- ang (/ pi 2)) (/ sh 2.0))); K8 {' z$ m, v% [$ E. ~
(setq pf6 (polar ps2 ang se))
9 H( Z( x- a# K
(setvar "OSMODE" 0)# {1 ~" k/ X8 s& @+ ?8 }
(setvar "BLIPMODE" 0). _" b7 R! t' V! ?5 n# C
(command "PLINE" pf1 pf2 pf3 pf4 pf5 pf6 "")( i! V) V2 ?3 s: L
(setvar "OSMODE" 703)$ \, [5 Z" ~ g5 Z. E+ q1 M1 P
(princ) )' {6 w! P0 R& B, u$ S1 v
;----------------------------------------------------------------------------------
6 C3 `, f* A9 b
(Defun C:G4 (/ ps1 ps2 pf1 pf2 pf3 pf4 pf5 pf6
% E$ Q( T& X3 o
pf7 pf8 sb sh se ang old_osmode); (setq old_osmode (getvar "OSMODE"))- _2 d9 a7 ]" X% }* e
(setq ps1 (getpoint "\Chon diem thu nhat: "))
1 N( s8 \' O6 \8 g
(setq ps2 (getpoint ps1 "\nChon diem tiep theo: "))
% b3 o( P8 P1 b( s @" {9 @& g
(setq sb 100.0 sh 250.0 se 20.0)
7 O# ~' T/ F" T/ f
(setq ang (angle ps1 ps2))* i6 B) ~7 p9 ~( D7 F
(setq pf1 (polar ps1 ang (- 0.0 se)))5 a$ L3 H; M- d: U5 ^
(setq pf2 (polar ps1 ang (/ (- (distance ps1 ps2) sb) 2.0) ))
- [ u3 }( l& @0 z- x& ]5 S
(setq pf3 (polar pf2 (+ ang (/ pi 2)) (/ sh 2.0))); Z6 a& s7 N: B6 n4 u% ^% N% G
(setq pf5 (polar pf2 ang sb))
# b8 d7 F8 Q& a; c
(setq pf4 (polar pf5 (- ang (/ pi 2)) (/ sh 2.0))) m% j" \" ?$ Y
(setq pf6 (polar ps2 ang se))6 g+ _* Y+ `: h- z, @* Z; ?# ]
(setvar "OSMODE" 0)
, } x! O% a) X1 d+ n
(setvar "BLIPMODE" 0)8 j$ Y* Y, R" t+ ?9 `- S* O ?* ^
(command "PLINE" pf1 pf2 pf3 pf4 pf5 pf6 "")
' t2 Q( H. E3 b
(setvar "OSMODE" 703)1 x% O3 H/ M! ]- c7 y
(princ) )
3 T4 P' z9 b. U
S* G1 f9 J6 C$ t2 g
;==================================================================================+ B$ J' _7 \' K( X
(defun c:ang (/ ent pt1 pt2 ang)
[3 @5 N2 n$ C( S' G. n( R3 y
(setq cmd (getvar "cmdecho"))6 x- E3 w; g' ~* p# r8 v# b. G
(setvar "cmdecho" 1), J2 `' a( G) ?$ v
(prompt (strcat"\nThay doi truc toa do theo duong thang chon truoc"))
, w( N7 N2 G# ~
(setq ent (entsel "\nChon duong thang:"))
" h$ u4 P" z/ H
(if ent " y; k8 [) P- w0 M6 H$ Q, t0 T
(progn
! f* Z/ r# |% y @5 {! L
(setq ent (entget (car ent)))
2 [. ~6 v3 l& e8 P$ i
(setq pt1 (cdr (assoc 10 ent)))
! s' |0 D- b: q4 `& T" G& G& K: i' r
(setq pt2 (cdr (assoc 11 ent)))6 s) `5 u* I' _+ Z
(setq ang (angle pt1 pt2))$ l# ^2 g3 B& R8 T5 u
(setq ang (/ (* ang 180.0) pi))6 n2 R v" E8 a( @
(setvar "cmdecho" 0)" f a) ^5 Q1 g; G0 [9 K, `* x
(command "setvar" "snapang" ang)8 A" H+ l. e' N! u7 I- T) j3 [2 C' c
(princ "\nGoc cua truc toa do moi : ")
4 n& U j0 N" X/ F- U
(princ ang)8 x# @( M) d b/ X% p/ ?5 l0 C
)
5 l1 }1 \! ~3 d) a) E% Y
)
) K; x& |2 s5 O+ w% I: _+ ~
(setvar "cmdecho" cmd)
8 i L+ z4 `& X- N' {9 n) p
(princ)7 E; m: N' C6 E' U
)
" `: h$ d+ g% S) n" X& P E0 Z% |
;==================================================================================
- J. z4 x" \+ }2 f
;============================== KY HIEU DOI XUNG ==============================
8 u2 R- X4 Z, U: C
;==================================================================================
. o u* g0 I) P7 M3 R7 @
! V! N2 a6 J c: O. B" R
(DEFUN C:DX (/ CMD OSM OLDERR PT1 PT2 PT3 PT4 PT5 PT6 PT7 PT8 PT9! A# r1 U8 T9 Q1 N! C+ W
SZ G45 G135 G90 G180 SS loi)
9 }: e2 m! a1 o! S
(defun loi (s)' X' q9 f% _, o7 S8 F% a
(if (= s "Function cancelled")
# |- K% {9 g. g& [$ G- `! {# z
(princ)
; [+ G3 h2 x" z, y
(princ (strcat "Error:" s))
% W& R, o/ j# q, ^( I
) r/ U$ U+ a: k
(SETVAR "CMDECHO" CMD)
1 B8 M; v0 g- k
(SETVAR "OSMODE" OSM)2 V6 _) U% g3 _ o% c$ f
(SETQ *error* OLDERR)
" \% f& C1 Z5 _; z
(PRINC)6 D( \6 V6 Z+ n
)
' X, p- f3 ~$ ~
(SETQ CMD (GETVAR "CMDECHO"))
. n- ]8 A1 x, b5 A/ R
(SETQ OSM (GETVAR "OSMODE"))
; L0 T6 y8 r4 Y* Q) Z- [* G
(SETVAR "CMDECHO" 0)
" W/ n( X' }) d2 T6 B
(SETQ OLDERR *error*
% y7 X) d7 d5 R* A4 a
*error* loi): O2 o1 W C6 \% C' }9 i- |* i
(SETQ SZ (GETREAL "Size <1>:")); y) c( g# w; i
(IF (= SZ nil) (SETQ SZ 100))
A5 g1 z8 y- G& G9 E0 F% D
(SETQ G45 (/ PI 4))
3 D0 I8 S0 C+ ]) I- o9 v
(SETQ G135 (* 3 (/ PI 4)))
1 g1 k9 a. ]8 H( C1 n# }" Y; ]
(SETQ G90 (- G45 (/ PI 2)))5 x4 t$ s) _' Y( Q5 o
(SETQ G180 (+ G135 (/ PI 2)))
/ w9 j7 A: @% t$ N+ z
(SETQ PT1 (GETPOINT "\nDiem doi xung:"))
" V+ e6 O! q. q
(SETVAR "OSMODE" 0)
2 \+ E" D% N7 G% |% F
(SETQ PT2 (POLAR PT1 G45 (* 2 SZ)))
' t# _1 ^9 _0 W+ _3 X# B# w( C" l
(SETQ PT3 (POLAR PT2 G90 (* 2 SZ)))+ y- y- @4 i( _$ `& t d
(SETQ PT4 (POLAR PT1 G45 (* 1 SZ)))5 h# Y! P; n0 o8 o. ]
(SETQ PT5 (POLAR PT1 G135 (* 2 SZ)))
, x% A1 c! j" N( W% M
(SETQ PT6 (POLAR PT5 G180 (* 2 SZ)))) |0 U. ?5 L. b9 C2 G% ?
(SETQ PT7 (POLAR PT1 G135 (* 1 SZ)))
?2 R0 o: f$ N2 [( k- g+ U {
(SETQ PT8 (POLAR PT1 G45 (* -0.7 SZ))). t3 K$ X/ E: j! G% t
(SETQ PT9 (POLAR PT1 G135 (* -0.7 SZ))) ~4 n% A2 F+ |/ R8 _2 q8 Y
(PRINC "\nGoc quay:")
9 x/ E* O1 m7 w7 O2 X0 u
(SETQ SS (SSADD))0 w2 r8 V6 R; S+ D4 U
(command "layer" "m" "Dim" "c" "" """")
# p; w# G/ s% u5 m( b3 o
(COMMAND "COLOR" "1" "")
% K% u: f7 O) c9 ?# t7 E
(COMMAND "LINE" PT8 PT2 "")/ W2 ~/ j8 z9 E
(SETQ SS (SSADD (ENTLAST) SS))
/ u4 q! v/ [8 |# n* g' @
(COMMAND "LINE" PT9 PT5 "")
! Q% N, q& H) P3 E1 ]$ \/ Q q% Z
(SETQ SS (SSADD (ENTLAST) SS))
7 ^' O$ t7 G% j
(COMMAND "COLOR" "1" "")
B9 N9 Y y# \4 } k4 D
(COMMAND "SOLID" PT2 PT3 PT4 "" "")6 i6 y/ O+ @( I) T; N
(SETQ SS (SSADD (ENTLAST) SS))/ ]" ^. {. i) Q/ O/ e$ e5 i' x; P
(COMMAND "SOLID" PT5 PT6 PT7 "" "")6 Z0 J; c1 \/ y5 S: _- ^
(SETQ SS (SSADD (ENTLAST) SS))! N+ x6 q" _, h( h
(COMMAND "ROTATE" SS "" PT1 PAUSE)+ G6 U8 w) v4 C( t$ G, ^
(COMMAND "COLOR" "BYLAYER" "")2 Y W+ y `% ^( F3 M
(SETVAR "CMDECHO" CMD)4 R4 ~+ o: o4 |( a. B# A
(SETVAR "OSMODE" OSM)/ E; O1 l- Y. L: F) \6 Z
(SETQ *error* OLDERR)
' {/ F. G% A/ z) m& i
(PRINC)
% F( | R w5 \( I1 ]
)
0 X( j3 t" L- ]. `
' ] r3 B+ z1 ], O
;==================================================================================9 u7 z3 a) \ T! u% w9 @7 T) @
;================================= KY HIEU TRUC ===============================
/ n4 j, Z$ \$ A
;==================================================================================8 z1 c4 D. X3 @+ @/ m4 J9 |
3 p: J% y/ V# s4 M) w4 x0 u/ }; S
(defun C:vetruc ()! E* f5 |1 E2 Z A1 ~ T. K
(setq bk (getvar "USERR3"))! Y% d! m# d8 j8 }/ s
(if (= bk 0)( _' h* J. g8 ]
(progn' n* S( i3 f, k
(setq cont "1")
" i' j% ~8 y5 D) F
(setvar "USERR3" 1)
5 c& C! `! l% q3 f6 I9 A
)
# f& I# l$ d2 H. g) t3 I7 Z7 E& {
(setq cont (rtos bk))
; F" F; m$ s$ _# U8 ^0 A/ Q* R
)
9 f8 Z: ]6 j* C! p1 u* p
(setq pt1 (getpoint "\n Nhap diem dat:"))
/ Q9 b0 }9 u3 L+ S- J' p
(command "layer" "m" "Dim" "c" "" """")4 h0 e% s9 }1 l# x; A$ O
(command "osnap" ""); M" h. [& V) n M g
(COMMAND "COLOR" "7" "")
" p* O/ [* k( f3 } x) ^
(command "circle" pt1 150 ""); t7 P# u& R; k. X
(setq pt2 (polar pt1 0 150))
6 k* x1 @9 u% ^# T
(setq pt3 (polar pt1 (/ pi 1) 150))9 Z: v/ A$ C1 b4 m
(setq pt4 (polar pt1 0 300))4 p: T, C5 }0 M ]0 b
(setq pt5 (polar pt1 (/ pi 1) 300))1 B& B- k8 F$ I% Z. ]1 A
(setq pt6 (polar pt1 (- 0 (/ pi 2)) 150))
9 `. [, y2 |+ S- S7 X- ~
(setq pt7 (polar pt1 (- 0 (/ pi 2)) 300))
: k: _0 a+ R: n. T K7 Y, q% M" T
(setq pt8 (polar pt1 (/ pi 2) 150))
5 O( }& A. f3 W( {
(setq pt9 (polar pt1 (/ pi 2) 300))
( q$ h9 ?3 s# t9 e |: y: l: ?. r
(setq pt10 (polar pt1 0 150))& T9 [8 W b9 `! U1 F
(setq pt11 (polar pt1 (/ pi 4) 150))
7 q+ w+ d; W3 r8 S) B3 J
(COMMAND "COLOR" "BYLAYER" "")
+ c9 y/ D( r% H4 {0 x/ H
(command "line" pt2 pt4 "")
! n$ P$ F$ c& u
(command "line" pt6 pt7 "")
! `9 [& j/ }2 t, D+ {# ?1 D. n& {% Y
(command "line" pt3 pt5 "")
1 t; |3 O& ~4 P0 V
(command "line" pt8 pt9 "")
4 S7 s: r* J8 D5 A( S; D
(setq dk (strcat "\n Size:<"cont">")): @7 D' i/ [% G- J. \: ?& l
(setq bk (getreal dk))6 c; v$ _4 `1 r( o" e) E! R& ?; K
(if (= bk nil)
0 Q1 t4 T8 G- N! q8 P( S
(progn0 W6 X7 \; v; A0 N8 x# S
(setq bk (getvar "USERR3"))9 \6 @' J, u9 s, P" l, ^8 c
)
1 [" {* ]% J1 ? [; O9 m) w
(setvar "USERR3" bk)& _3 Q1 F( Z) {. w
)
8 }$ h) |" U8 d% Z, j
(command "scale" pt4 pt5 pt7 pt9 pt11"" pt1 bk"")! z7 k3 e9 R0 B4 h9 U
(COMMAND "COLOR" "7" ""), h3 |+ O' O/ k/ Q. K" r
(COMMAND "STYLE" "Truc" "impact" "" "" "" "" "")
2 I/ t" t/ x; N0 F9 t7 @$ ~
(command "text" "j" "mc" pt1 (* 150 bk) pt10 "A" "") 5 s$ c' k' h" ~; {! ?
(COMMAND "COLOR" "BYLAYER" "")3 C: G) R0 Y n4 }3 K3 o
)
5 e* a. d3 E( r2 i$ j7 B
% f5 Y9 m* C: {1 `5 {1 e
;=====================================================================$ F: V3 `# L! t! n7 _+ K) q- D: P
;CA - Reverses the case of text. (Upper to Lower and Lower to Upper.)
; `4 U% U5 a$ a
;* j0 r5 Q8 [% D% m* k
;Jeffery P Sanders: B4 F5 Z' E* n; f* {8 @
;
0 ?/ z- [. l# w9 j
(defun C:CA(/ en enlist tx newtx cnt tp asc note)
: q8 i% L' J$ f. r! W
(setvar "cmdecho" 0)4 R+ k2 K( |5 x8 p
(if(setq en(entsel))6 `! Z' [9 A& ?7 z3 _. g; d
(progn
+ x+ K0 \0 w0 b0 T9 K3 ~
(setq enlist(entget(car en)))
5 A% Y2 h; \3 }
(if(= "TEXT"(cdr(assoc 0 enlist)))7 N1 R3 w9 S; V, G( w/ V- Q
(progn7 `' P- E& U0 x- g( W
(setq tx(cdr(assoc 1 enlist))* ?- s) k* L3 i6 `& Q% ]% y
newtx "" cnt(strlen tx)
' m6 ^" \: q' ~: c6 `( s
note "\n...CASE Reversed. \n "
v. z5 Q' Q3 f* |" i" Y1 U
)7 n0 M+ V4 k: W; A2 H, t
(while (> cnt 0)
* a" N8 E; _ d# Y K
(setq tp(substr tx cnt 1)). i: j3 J- x) f. U1 @2 I0 ?( P- [
(setq asc(ascii tp))' [5 ]9 `7 ^# {2 p. U
(if (> asc 96)# C9 C" g: [! y# I/ b6 r& {7 z
(setq tp(strcase tp))- ^ F3 t+ m) P( m/ z
(setq tp(strcase tp T))4 B) [; T# a; y% l& a
)
r; ?4 R# Q' z- U: q& t3 @
(setq newtx(strcat tp newtx))+ ~! T6 I3 K/ d/ O4 V' C; H
(setq cnt(- cnt 1))( J! L3 \: U& I# a& a/ {
). }6 v9 C9 i, V P$ h- y' ~
(setq enlist(subst(cons 1 newtx)(assoc 1 enlist)enlist))- i% \* R, o( b
(entmod enlist)
2 ]; A# {- O+ i0 V. n
)3 ?! o( @4 u4 \" u- R3 i
(setq note "\n....Text Only Please. \n ")# {- }' e/ t- E; y
) U0 B: t4 b9 ?
)
9 Q# x c" q3 O
(setq note "\n....Nothing Selected. \n ")2 `! W+ C6 c. B/ l. h0 w0 x2 i8 t: g
)+ q0 R& |! F1 _$ ]
(setvar "cmdecho" 1)" E: p8 _# s, D( L v8 l* Q
(princ note)- M5 o' x8 o/ t, _, ]1 I
(princ)5 L6 v8 {0 a; h. M8 ]
)
$ Y& C, e2 B6 n2 Y6 v: t# C0 x! V& [
3 L$ r" M- w* q5 q5 m
;=====================================================================
7 i0 `. R5 J8 o9 c1 B
;==================== NEW TEXT STYLE UPDATE ==========================4 }. S0 C5 o6 C( Y/ S
;=====================================================================
( P& K/ q$ N2 { n; {9 a5 \* n# h
% D; |: e& K( Q6 D% D% S: `$ E
(defun c:nS (/ tdt ssdt sodt index)8 I, k1 z: _7 [! [/ j/ |( w
(defun ObjName (ssdt /)9 ?, U2 B# a- O6 K4 m& |
(cdr (assoc '0 (entget ssdt)))- {5 D! T' L! f' ]% C4 F# d& t
)8 z6 k& k+ C4 a% h: L( Q5 H7 e
(defun MoPL (ssdt /)- Y0 k5 D0 A+ n: s7 @
(= (cdr (assoc '70 (entget ssdt))) 0)6 [ T- l- E- c$ B
)
9 w% [/ M, w5 }/ A
(defun NoiPL (ssdt /)" f% X+ N/ v: B9 \8 x8 l
(if (MoPL ssdt)
9 [/ x& G0 |0 u \) Z+ ^
(command ".PEDIT" ssdt "J" "All" "" "X")
9 y1 ?* w' w3 B7 j+ ?! Q
); ?% D) K- J3 G
)
* E e: s- @/ z: G1 N$ p' [4 \. ^
(defun NoiLC (ssdt /), z5 j: h& s7 ?. z+ p
(command ".PEDIT" ssdt "Y" "J" "All" "" "X")
9 n0 V$ T% \* b
)
& h# T7 {/ O% C/ h& h9 L0 G
(setq0 R7 O, O1 h6 F# P2 [1 Z
tdt (ssget)
! v: I* g% J8 S
sodt (sslength tdt)
9 F" y6 u/ \5 o! C
index 0
3 P: b" w' ?4 S% u6 B" X
): y$ n% Y- r0 E$ t9 [
(repeat sodt
( j8 g) [ F$ |( l" ]3 c# a3 u0 A
(setq% e a4 q. l" @' X
ssdt (ssname tdt index)& K0 s1 `5 B0 X X: W) Q: W* F3 g
index (1+ index)
& y v6 u/ H. L( d( c3 ~8 Q3 f6 Y
)
! [+ Q- x* p/ V+ m7 v$ f. ~
(if (or (= (Objname ssdt) "LWPOLYLINE")
% B d& I- t* V" I' L( c
(= (Objname ssdt) "POLYLINE")1 n1 u% N. A; ?7 j( _4 B6 y0 C8 w
)
! v5 u9 s, c9 G% T8 m* E
(NoiPL ssdt)4 b: t- z! X5 Q* W6 \' v
)5 Y6 M" D8 L9 `7 Y9 j0 s* f
(if (or (= (Objname ssdt) "LINE") (= (Objname ssdt) "ARC")) M- j( O9 O1 S" b
(NoiLC ssdt)
; S4 e+ g: {! F: c+ y! U% w
)- [8 s+ R; R! Z" L; _. ~0 g
)7 B, E7 G3 R: ~2 m0 y
(princ)
: n7 v4 U2 J7 [' T
)1 Z4 G' x" V E
S6 s" I# Q: b- f* Q+ _
;=====================================================================6 A0 [7 Q/ {3 I5 W% F2 S
;;; AREAM.LSP
* T% @9 N3 @6 S4 k
;;; Function: Calculates the total area of selected objects- N" A% k" U# Z3 Y9 d4 A, ]
;;; By Jimmy Bergmark
5 v1 p- @ P' O5 z3 ~; b
;;; Copyright (C) 1997-2006 JTB World, All Rights Reserved
x9 b, h. I- O: W7 {
;;; Tested on AutoCAD 2000- T; Z; Z8 W" ?$ p
$ k2 M* g8 J7 v! i, k
(defun c:ea (/ olderr oldcmdecho errexit undox restore ss1 nr en tot_area)
1 s, m4 s7 Z$ Q7 Q3 O' z' s
(defun errexit (s) n, u, D+ z H* V
(restore)
& t I& X+ K6 i4 h& p
)$ P: g; D4 t7 _2 U3 B
) I% S z1 q/ I) J- ^0 l" @5 j
(defun undox ()2 \5 K9 g8 [/ F; e0 {
(command "._undo" "_E")
: o5 X+ O. I2 t1 x8 m+ P
(setvar "cmdecho" oldcmdecho)2 ~1 \! o1 W& Y& F' k9 X, ]3 @
(setq *error* olderr)' p0 Z5 V* s* t9 v; c- }
(princ)$ w( O" b( Q2 r
)0 r: y# n* s2 l6 M
: S( T6 k0 A, Z4 i( v
(setq olderr *error*
) ` g0 p% c6 h0 m8 @, w* u
restore undox
/ Q5 X2 k/ D1 i6 \# D
*error* errexit. x2 b( N1 M/ a# d" [" V
)
) J" Z6 N, k: L0 Z6 ?* D$ ?( I
(setq oldcmdecho (getvar "cmdecho"))7 G* o' a3 v+ Y
(setvar "cmdecho" 0)
* I( H& R- B! B
(command "._UNDO" "_BE")
& w, H: A8 y3 I( p; {- B
(if (setq ss1 (ssget '((-4 . "<OR")9 `* w" ?8 j: z5 m6 _8 G4 m
(0 . "POLYLINE")$ l, [2 _7 O- j4 ^3 X
(0 . "LWPOLYLINE")" G; w0 d2 V% @9 {
(0 . "CIRCLE")( v& T( i9 P7 h- ?2 V
(0 . "ELLIPSE")- C2 G- ?6 H( @ s, I2 S! E
(0 . "SPLINE")* ]: Z6 Z; O0 f3 E& j
(0 . "REGION")
; S8 ]% c; B' r2 F% P& n
(-4 . "OR>")
3 w9 w; S- i8 X: U1 X
)
3 B4 L7 {$ R7 Q
)
! A. V5 s) i. r) P/ F
)+ ]( U+ _# {. w
(progn+ C+ u; S* U- a+ a' U/ j
(setq nr 0)# Q- f2 O2 d% l: e2 Y. k& o: g+ S
(setq tot_area 0.0)4 [8 U; n: Z3 U3 Y; o" Q8 ?
(setq en (ssname ss1 nr))
, h9 k3 E' k* O) z2 Q
(while en
! M1 ?' J9 w! a5 @( v
(command "._area" "_O" en): ?/ Z3 B+ F. ~, h) Z) q6 z
(setq tot_area (+ tot_area (getvar "area")))
6 u1 \0 Z* y7 d: |4 {8 d! J; w
(setq nr (1+ nr))
2 _4 o, V9 k: s3 a( ]# K
(setq en (ssname ss1 nr))
9 f0 Y; p) e- r7 `- o) Q
)1 d. f3 i6 o R$ w; B' g; h4 }
(princ "\nTotal Area = ")
( _9 P$ q1 B' J
(princ tot_area)
9 o, z6 g# H/ a
)" s/ m, n( e1 u% U
)
, M: b% i3 o- Y2 D; f
(restore)
6 ]1 z* C3 l' n& m+ {. z
)
5 @5 F( S/ u0 F3 s- c/ ^! @3 o# c
2 o. f/ E- w- q: ]: @. P
;=====================================================================' r* ~. j7 @, z& g q& K$ V) J( W
;;; By Jimmy Bergmark
2 F( V) N" ?8 p; S P- {
;;; Copyright (C) 2008 JTB World, All Rights Reserved: X* J2 \% O7 _! ~* l3 h
;;;) n# c# F: y8 r9 O& K- R! v
;;; Created: 2008-03-31
7 J* w" m2 }) P, r
;;;
9 {! X5 i& |) J4 d3 l# l
;;; Convert Attribute definitions to mtext
: K$ m* @8 w% i& F3 Z
;;;
- Z5 H6 S! n3 O! X& p
H' I: d5 J& [; D2 Q8 `
(defun c:ATB (/ eset1 blkcnt en enlist tag1 ht pnt vl space)
V6 p3 }. g' E: l' ?9 ~$ o. _
(setq eset1 (ssget (list (cons 0 "ATTDEF"))). I/ Z$ H2 p# Q. E
blkcnt 0
; @+ e$ g" ~, o
): _" B8 D7 ?; l3 R) }! L+ x4 {% t1 T
1 m" E- H& ^# j8 f9 `0 k5 z9 T
(if eset1
3 W+ g7 B2 r* k, q/ S3 |, P
(while (<= blkcnt (- (sslength eset1) 1))
8 Q: F' I, D9 F' J. J- ~) d
(setq en (ssname eset1 blkcnt)
3 a9 v; T( f) \0 c9 o+ _
enlist (entget en)
* z4 \! C) G) I0 P0 ?
ht (cdr (assoc 40 enlist))2 O+ K2 }% F" @4 z4 E' A# V
pnt (assoc 10 enlist)
# U5 a8 A& ]" a2 @
pnt (subst (+ ht (caddr pnt)) (caddr pnt) pnt)
' R9 b/ O: X7 J0 u' D) w! Q
space (cdr (assoc 67 enlist))2 [4 I1 S' ?$ N
)
5 K# ^/ L- F; a% P
(setq vl (list1 x+ u7 X# H' Y9 x( L+ m
(cons 0 "MTEXT")0 h- ]- F5 t0 q2 [0 @! l5 }- v
(cons 100 "AcDbEntity")* |: j, ^) y6 ]9 L! M
(cons 100 "AcDbMText")
) Z1 l! k# R/ n3 j% G- i
(assoc 7 enlist)7 w9 |: q8 P# D$ V
(assoc 8 enlist), B' S$ S# f" n. x2 V E3 s. ]
pnt
, q4 z. y: p. R [3 b( @
(assoc 40 enlist)
& G( p$ ]' L% z5 E3 z
(cond ((assoc 62 enlist))
. h) d! R, m: Z
((cons 62 256))* j& P8 [( o2 W0 [: H& q4 ]! o2 |
)
: J. d$ F2 R4 S3 [, s
(cons 1 (cdr (assoc 2 enlist)))
7 s3 _8 U" O$ K( Y! u
(if (= space nil)
7 J* `& n# _7 }7 [/ j
(cons 67 0)* s, G8 T. {: Y4 s% W
(cons 67 space)
5 G7 Z6 t6 k: _
)
)9 T) f8 a7 `; ]3 D0 W6 h: Q7 f! m& U
)3 y" F* v+ n( ~' K5 }9 N
(entdel en) h8 H& o! l; \! m' b6 a3 C6 J
(entmake vl)
' v6 V4 K- V1 a$ O: ~. G
(setq blkcnt (1+ blkcnt))
8 J( V- w) W) ~% s4 h1 i5 c, A3 z
)
/ {5 f" l/ e% H& u( ?; I
)
+ B3 Z7 E2 H! k/ Q/ L2 _8 `
)' i0 d! A- n) p. J/ D5 D
5 V# V- g1 \# a7 T0 p5 d* Q
;=====================================================================
' d0 C8 [; ]- w! N a
( P$ B8 s' a9 ]. q( ]. {; {. Q2 |
(defun c:xxx ( / cumdt dodai thoat dem ten doituong textxl dem goc toi)
" F$ H9 G) g$ v, e- m
; Khoi dau cua chuong trinh; f/ \2 X: l" u3 U7 E" K, k5 Y
(princ "\nCopy Inteligent...\n")5 s5 _6 M! e4 Q2 f
(setq luuecho (getvar "cmdecho")" [3 m! R& d M6 N1 T/ J v6 I6 q
luu *error*
' z1 c' M8 h9 {0 Q! |( u
*error* ketthuc; A+ j4 y2 R6 A1 A, f
cumdt (ssget)* t0 p5 {; V: |; c
dodai (sslength cumdt)
goc (getpoint "\nSelect base point:")
& G( d) Q1 t3 a' Z
thoat nil# B" h/ Z' O% X" j- c; l( h
dem 0
( B! F# L4 r6 e9 W$ [3 l
textxl nil: b/ g0 b: s( Q7 L7 N! u I# |
);
0 w3 q9 B" D! S6 y0 t
(setvar "cmdecho" 0)
) t' |8 T* n8 @% a& t; p6 r X! q! O
; Loc ra duoc ong text de xu ly2 u D! D" I7 u# L# m
(while (and (= thoat nil)/ H2 j( z# g1 ?. W ~0 t* n) J
(< dem dodai)
5 N3 a0 k- L: F1 N% G4 C
), \* a1 g1 U7 h0 w! [1 ?+ x+ L2 I
(setq ten (ssname cumdt dem)
( _: E! ?2 r9 a g# P- r! N
dem (1+ dem)+ t5 o# f* F, U8 Z& ]) l+ w
doituong (entget ten)
! Y- Q+ _+ l3 S5 l3 A
kieu (cdr (assoc 0 doituong))
. A( Z z9 W( d5 M4 A/ X6 G) B
)
6 e; g7 E& B* ]# C9 V6 D: ~
; _! G, Y$ S! _6 W! F' |0 x |8 q
(if (or (= kieu "TEXT")" D( c6 @3 g4 ~- A, L
(= kieu "MTEXT")
( o" c" K0 U( t# `; v/ B1 l: v
)
2 W% i% a* z' ]/ k5 Q
(setq thoat T
$ |' f3 j z& \/ m* r W
textxl (cdr (assoc 1 doituong))
# a& s- R- }# x$ }- I: L
)
( t3 x8 C: [5 s8 w- j; B) r. G. m8 q
)2 u( T8 a2 G# w; a- e9 D
);% {5 e2 `, L+ z" H/ K: K- w
(while T
7 N' M8 u7 V# E! U5 S
(setq toi (getpoint "\nSelect next point: " goc)
1 _/ j4 p: v: ?: b* @$ ]0 s
vitrilech (list (- (car toi) (car goc)) (- (nth 1 toi) (nth 1 goc)))7 M* p* l$ {- |' p) x4 G M
dem 0
$ c0 j3 O2 l* u% N0 }0 C; S
)
, E& G) }, Y) d4 y* o
(while (< dem dodai)
4 Y0 I( d0 \1 W' t3 x2 g, ~. Y
(setq ten (ssname cumdt dem). x" _3 a8 \) D
dem (1+ dem)) I- Z$ F$ o* { b
doituong (entget ten)
! l3 ~' g. I( L3 \
kieu (cdr (assoc 0 doituong)) ) h7 v) t l0 q/ @, }( R
)
( n3 `! Z! F' f0 D
/ y S5 ]4 b0 u' X( n L+ ?
(if (or (= kieu "TEXT")
2 z m; _9 i7 D. |8 {
(= kieu "MTEXT")
- G4 ?( k6 P) ~7 D& w: E, i5 a8 Q
)* `& t8 W! Z2 \0 u( K1 G0 x; w( M& h8 {
(doitext ten)( A" M. O& j R
(copy_dt ten)$ F* |' I: c% o0 f" J# P: u" K8 k
( Z9 Y: S, o4 I
);if
' t$ C: r3 D) h7 M
). \9 Y9 E1 t( {6 l1 Z( {8 ?
);while" V) _6 i ~5 ^8 V, B# d
(ketthuc)
: ^6 _) s6 w/ R) q( P4 p; [' s
);defun
4 D' R7 }! E, c0 y* N9 i
(princ) S, `0 ^% `0 V$ j
$ U* _7 S. ~; k# i1 {3 t r
;=====================================================================
5 W* [: X$ h1 K8 ]$ U
;;; By Jimmy Bergmark# R7 R4 a8 h9 f
;;; Copyright (C) 2008 JTB World, All Rights Reserved7 Q( e6 d, t* N7 P' C" ^2 Z
;;;
4 }* F. Z3 @$ w3 p& k
;;; Created: 2008-03-31
1 g1 p: ?4 J/ p$ R9 C" a
;;;& x" v4 s! ^1 E8 R
;;; Convert Attribute definitions to text( X( n3 X' H2 H
;;;
- O# @. S9 ?8 g! U) G
" i9 I" @( R9 |
(defun c:ATT (/ eset1 blkcnt en enlist vl space)
5 |: f4 @, T' w% d4 N7 |6 r: c$ \
(setq eset1 (ssget (list (cons 0 "ATTDEF")))
; `2 L9 B. y1 G
blkcnt 0: Y% D% E5 a, S$ J* X
)
: x1 C5 T6 I) z, f
. ?4 n t, X- U4 `# ^5 Y
(if eset1- z: n. o7 Q# N7 t1 Z! u+ ?" \
(while (<= blkcnt (- (sslength eset1) 1))
( J$ [8 o: U9 n! `! m; [' K
(setq en (ssname eset1 blkcnt)% {% L# s5 N# I7 F: f
enlist (entget en)
- P! d. z2 b q+ M* ?
space (cdr (assoc 67 enlist))4 x1 M* I/ z5 y8 G+ R1 Y7 J7 r/ l
)
* A3 J7 Z$ A; M' M/ z6 ?) m
(setq vl (list
6 D/ x) C. {8 c; a& M5 N
(cons 0 "TEXT")9 q- m0 i' K8 K4 A) A
(cons 100 "AcDbEntity")
, o* u/ |- w8 _$ B* k' C. a4 q
(cons 100 "AcDbText")
% I$ b7 k) Q2 s' T
(assoc 7 enlist)( `' W+ K* B7 X- o* C7 A8 N( K/ Q8 l
(assoc 8 enlist)/ U" u q4 g& }6 d2 x. B) e
(assoc 10 enlist)' V& Y6 R6 h3 K
(assoc 40 enlist)( v0 }! W8 w+ ^$ u( }8 S: `
(cond ((assoc 62 enlist))0 Z }4 {2 G7 v+ ^3 R
((cons 62 256))
, L/ L2 o' i1 t4 [. [# ?
). P/ W* i' Q$ F6 F. ]1 W0 q3 d# U
(cons 1 (cdr (assoc 2 enlist)))
M& A2 ?+ A! h1 B- L3 ]
(if (= space nil)( p! f2 q5 H4 r4 t8 k" j- {) [* Y4 U
(cons 67 0)
* V4 @4 ~! `+ _8 @; [- T$ i; V
(cons 67 space)0 b5 ^5 `! i9 T2 ?+ k' S. _9 n
)
. }" Q# ]% A8 w2 F% g
)2 D9 V* J3 {+ p3 \& l
)
$ K o |4 q8 |; i
(entdel en)
" x$ d I+ ~' Q( X/ ?
(entmake vl). M- L% v9 H# h9 K. F
(setq blkcnt (1+ blkcnt))
4 F" k0 d3 U: L5 e
)" g6 {0 o% M+ V8 Y, t! z: T7 A3 m( w
)
8 p3 s7 x8 z$ d+ N# r
)% `( j# L" t `
;=====================================================================
3 X1 O. |9 \! n" T
;============================ Doi Truc ===============================* {4 X! H& ^9 m+ z
;=====================================================================
. R# V- w1 i2 J, a
3 \7 i' e) l/ g% L: C9 U; y8 W. B, Q: c
;=====================================================================
( {6 @ v; x6 V6 o! m( V- i
;=============== FUNCTIONS GA 1+3+5+7+9+11+13+15+17+19 ===============: S" n+ z, p4 F, k* o
;=====================================================================; `% j8 ~1 M% ~6 I5 [
(defun c:ga1 ()% u: a4 y! ~. s+ C. z. j6 d$ M" c
(setq a (getpoint "\nChon diem: "))
% D( ?4 ~$ n4 j
(setq b (getpoint a"\nChon diem: ")) k! E0 O, F# U# J
(setq c (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2)))$ k, G, P0 [4 J
(command ".circle" c a)
( @; u# c- |9 D6 f' k. u+ ~
(command ".line" a c "")
. P, q% F# D ]: d
(command ".array" "last" "" "p" c "1" "" "")
6 @1 r' T& Z& l0 q, U7 y, A
(princ)); l: U" M; s7 t: ]2 r
b9 B4 }2 _: `
(defun c:ga3 ()
; z6 e3 v* y3 ~( L( H I
(setq a (getpoint "\nChon diem: "))
: v, i. o( `9 }8 n J* z0 D
(setq b (getpoint a"\nChon diem: "))7 \1 ^% W/ U; a7 Q- p4 C
(setq c (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2))) f9 C" Z b5 y' N2 R# y
(command ".circle" c a). X0 N6 j8 A1 B% `" ~0 E7 l
(command ".line" a c "")
H& O) _1 B6 c! O
(command ".array" "last" "" "p" c "3" "" "")0 S3 A2 m$ M- N, e% f t4 }
(princ))1 z5 N) R+ D- @9 Y3 C0 A; y( {
2 O1 M: I8 R, a# ?) o
(defun c:ga5 (). v# v% E; C; U9 Z; j% l
(setq a (getpoint "\nChon diem: "))
k6 E9 B4 G. m* |4 `
(setq b (getpoint a"\nChon diem: ")). a" R/ f: a2 M8 Y* U* @
(setq c (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2)))
2 D+ {, H& `% z/ a% [- v7 ^
(command ".circle" c a) A5 M0 M% J5 y) H1 w- ^
(command ".line" a c "")
- ~5 t7 f, O! c! f2 X
(command ".array" "last" "" "p" c "5" "" "")* n" y8 x( w5 s# K
(princ))
3 Y, e1 @2 g/ U% @! T- H& O
`. B5 j' I) v6 G: o/ g
(defun c:ga7 (). a" `5 x$ k7 X+ M
(setq a (getpoint "\nChon diem: "))) w, c: V) j6 a
(setq b (getpoint a"\nChon diem: "))
4 a% g7 s, J9 z m$ h0 V
(setq c (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2)))7 f! q5 @* [( k# J- x: v
(command ".circle" c a)! u9 ^ M4 @$ f7 `# g
(command ".line" a c "")
- M3 x+ t6 a. p" X: d
(command ".array" "last" "" "p" c "7" "" "")
. x3 A) x' l, q9 u5 R
(princ))& P/ k! A' L8 {& Q
! U4 S. ^. \3 P" G- {7 P
(defun c:ga9 ()
: G8 r4 F% }, C: m( K
(setq a (getpoint "\nChon diem: "))
7 s9 H) v* d) G
(setq b (getpoint a"\nChon diem: "))5 e- t" h3 d, W. T& O+ n
(setq c (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2)))( Q9 o! i$ G1 B7 l
(command ".circle" c a)
" z! E4 U4 ]' _6 P, x7 [
(command ".line" a c "")1 J" s. a) n" M: c6 @4 q
(command ".array" "last" "" "p" c "9" "" "")
5 j) x- h- J% I
(princ)): X3 ]# |2 j8 C# I% O
; A- l7 j. Q) g
(defun c:ga11 ()7 k2 U7 }& p5 e4 |1 E
(setq a (getpoint "\nChon diem: "))* _; M7 {; j2 f- _, \ u5 S
(setq b (getpoint a"\nChon diem: "))1 d9 D$ B# N& C* C" N$ }% g
(setq c (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2)))% Z2 q- z: [: M- @/ ^' ?7 d+ g
(command ".circle" c a)2 b3 M/ m0 e u+ Q8 {+ y h( l
(command ".line" a c "")& Q+ P. q6 O+ e9 `2 m
(command ".array" "last" "" "p" c "11" "" "")
' x/ f. Z/ Y% z
(princ)), V. ]4 c% o) e0 H$ G
. T' I6 N( ~5 g% s! D" s3 A
(defun c:ga13 ()
( e- {( N: e: s0 c9 \4 ?, O. Q1 O
(setq a (getpoint "\nChon diem: ")). h; f+ x' y5 S* S }1 G7 o
(setq b (getpoint a"\nChon diem: "))1 U: x* R% o, c3 n! ^3 F
(setq c (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2)))
5 c! Y- N" Y; ?: A+ p# q8 `
(command ".circle" c a)
; J2 c( x4 B* k# \+ M+ b3 H
(command ".line" a c "")" b3 C* w6 e) X
(command ".array" "last" "" "p" c "13" "" "")
4 }' b0 s! m# o7 a: r( l9 J# _ I
(princ))
1 R! l: u# s0 z9 M2 F/ ~. v+ K
1 n$ V1 B1 y: J9 Y
(defun c:ga15 (): }1 D5 _& O) i# |
(setq a (getpoint "\nChon diem: "))
2 W7 I, A( i7 x9 o8 E; l
(setq b (getpoint a"\nChon diem: "))
9 k( p, k( Z% ^
(setq c (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2)))4 ]! b1 v" }( M
(command ".circle" c a)
7 G. `4 Z5 M( W
(command ".line" a c "")- ~2 e& _3 b7 \: ~
(command ".array" "last" "" "p" c "15" "" "")
# a, _# O- R( u. U0 d
(princ))
. b+ G- g: E6 Y5 O6 q
1 u0 p L# U6 |
(defun c:ga17 ()/ q1 S5 P/ _1 @* O
(setq a (getpoint "\nChon diem: "))
% S+ F" i" A( }0 Q+ j9 I: \
(setq b (getpoint a"\nChon diem: "))
9 ^$ T' I+ K0 E" E: Q2 {
(setq c (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2)))3 ^$ e+ }8 p/ n0 K" b1 m; \
(command ".circle" c a)8 L3 g, \/ S- h9 b. A# v
(command ".line" a c "")
7 {3 S5 h( b1 u7 _/ G) ^
(command ".array" "last" "" "p" c "17" "" "")
) K2 x4 w6 C! m: b0 n
(princ))4 i6 F: e; g5 M E6 v; y# y( K
7 e$ s) z& {7 C1 `1 a
(defun c:ga19 ()
- K! c3 k9 L8 c0 j' v( [
(setq a (getpoint "\nChon diem: ")): _6 F5 {5 _! {3 Q6 ?! @7 ?. n+ ~
(setq b (getpoint a"\nChon diem: "))
$ C; V, v& F) M. w$ u$ |
(setq c (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2)))
' n: a2 f& g9 V7 ]* ^, j' u* X
(command ".circle" c a)1 P3 { T) Q( X h; G2 J' F. }
(command ".line" a c "")
/ t# V% z2 Q( }# \! y: z
(command ".array" "last" "" "p" c "19" "" "")& ~2 n, O! m3 N' m4 {$ p: t
(princ))+ G& G& H. `. v+ K' P. |/ J: d
% L, X5 K8 z9 }5 b, p' E/ c
;=====================================================================: K. s- d4 ^! F1 v
;============== FUNCTIONS GA 2+4+6+8+10+12+14+16+18+20 ===============. I3 _0 Z: ]( p: I
;=====================================================================
5 t2 h) D# b# V/ W
(defun c:ga2 ()3 t: b% C( T+ {; x! k
(setq a (getpoint "\nChon diem: "))+ v2 ] s B! h- z N3 I
(setq b (getpoint a"\nChon diem: "))
; W1 b- q( z; o( @
(setq c (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2)))
8 F; k" @1 n# F- P. l$ B
(command ".line" a c "")
$ z. a( v P/ p5 E; f% r# b9 y
(command ".array" "last" "" "p" c "2" "" "")
6 u- U/ U6 W- M: U* |
(command ".circle" c a)
, q" P! D! q2 w6 j/ g! V# Y
(princ))8 q! [. M4 J' z
& o( o5 q, [9 o3 K
(defun c:ga4 ()* E- r6 k6 J1 k, `0 s, T; U' I
(setq a (getpoint "\nChon diem: "))& K' U, e0 d3 I. W6 U1 R& a
(setq b (getpoint a"\nChon diem: "))' Q) C0 ] \# e
(setq c (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2)))
# ~, {3 \: o7 e
(command ".line" a c "")
/ W6 H8 g% v. w) @3 J! M
(command ".array" "last" "" "p" c "4" "" "")
* x- P% [' e: I% a2 M) y" B( e
(command ".circle" c a): h2 o2 S2 j3 E3 m8 s# o& P3 e, D
(princ))/ d' ?, m) l- I; |
* P- R5 C8 m, h, a$ T1 ~1 q
(defun c:ga6 ()
/ d( F" u0 b2 k5 P7 L% ?. E- W7 `& |8 c
(setq a (getpoint "\nChon diem: "))
- W7 x. W( v% U+ C$ S, @4 _
(setq b (getpoint a"\nChon diem: "))( ~4 l$ b6 F4 V8 D
(setq c (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2)))) z& O4 Z* v' w
(command ".line" a c "")
/ s8 i* J9 C9 X. F" l) [3 K0 g, C
(command ".array" "last" "" "p" c "6" "" "")
$ R* r$ o+ l K9 _0 c0 m
(command ".circle" c a)& M7 t: Y# [3 o3 o
(princ))' _ k' \9 d5 u, E7 i
# N, d: u1 Q5 l9 {- C2 Z% v9 t) Z
(defun c:ga8 ()
9 ]* o, F7 }5 f! i5 K
(setq a (getpoint "\nChon diem: "))! W4 j% L7 o* {- N
(setq b (getpoint a"\nChon diem: "))
- x7 T0 c0 N9 K9 t/ f6 p
(setq c (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2)))1 b5 |0 F; `/ k2 U7 q
(command ".line" a c "")9 F2 q% Z5 X2 p; M
(command ".array" "last" "" "p" c "8" "" ""): c4 V5 k s' l# ^# i" K$ s
(command ".circle" c a)! a) |1 Z# @' K" W) U" m( F, T5 a) V
(princ)): b9 E. S2 l0 v, Z% A0 N! Y2 {
& B1 q% N9 ]# q: C
(defun c:ga10 ()
n/ k, C: b& X& ]! ~
(setq a (getpoint "\nChon diem: "))
; q# }4 v4 r: Q/ L; ~0 |1 ]
(setq b (getpoint a"\nChon diem: ")): H9 E# Q% @" ^- w1 k5 d* i
(setq c (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2)))
, ^: L/ ]- E& a6 J
(command ".line" a c "")
# b2 J+ L) ~# ~$ x
(command ".array" "last" "" "p" c "10" "" "")7 Z3 s. l. U& L% D5 ~ S) O- x* J
(command ".circle" c a): s6 ]( r, z0 I3 o& \
(princ))
$ m4 E8 a, S* x
% T% j7 h' c9 C
(defun c:ga12 ()
* x3 x' D# I( |' d$ K, Q- O) R
(setq a (getpoint "\nChon diem: "))
) N. \ P; @9 r' c
(setq b (getpoint a"\nChon diem: "))& p x% h: Z! z1 t
(setq c (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2)))+ X6 K7 L; o* p. [
(command ".line" a c "")% p6 I- x, T* x% d; I/ l- v
(command ".array" "last" "" "p" c "12" "" "")& m' c0 c, q* i6 T6 g
(command ".circle" c a)
/ X& c- T- y9 F! o' B- i5 I3 z
(princ))
1 ^3 v& k: Z) R+ ^6 t( C* {6 N# @
9 S; l4 A# E* w1 O/ u# S; t
(defun c:ga14 ()
# {6 }9 r1 e7 ]5 b7 [
(setq a (getpoint "\nChon diem: "))2 C( v8 e3 f9 T& P$ U" j
(setq b (getpoint a"\nChon diem: ")), `# X% b. I1 c9 J5 s5 d& h6 p
(setq c (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2)))2 H; I2 B5 e* c5 S' v; H
(command ".line" a c "")
0 q: W7 x+ Q% b" D, p
(command ".array" "last" "" "p" c "14" "" "")
8 B2 [5 K) _; c: C8 q; s" E
(command ".circle" c a)
8 }5 S7 Q% `& k* D& H% z5 ~
(princ))1 c4 ^ F3 n/ {
4 F4 w/ @8 j/ x O8 K' W9 w3 e
(defun c:ga16 ()
+ s' y I3 ]- E p* l6 ^8 D7 n
(setq a (getpoint "\nChon diem: "))1 L2 z3 [ P% e; b! q# v
(setq b (getpoint a"\nChon diem: "))! t3 J4 _# S- t
(setq c (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2)))
! |' W! ]. Y9 x0 J# C
(command ".line" a c "")8 d/ y9 W5 M* C# c
(command ".array" "last" "" "p" c "16" "" ""): R' v" y$ V+ D U
(command ".circle" c a)
. k* C9 Z4 |; s& p
(princ))
* E: F0 L. r2 p7 b4 h
* d% Y; U5 |: m0 \: N& |$ n. W# T8 l
(defun c:ga18 ()
a7 f9 C5 K( D+ ]
(setq a (getpoint "\nChon diem: "))1 N3 x# i- ~" Q% t; e/ s
(setq b (getpoint a"\nChon diem: "))) C0 c* x' N7 l& W
(setq c (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2)))* |- t. a1 G* O* v" w1 m- x
(command ".line" a c "")* y# D- D9 M+ ~5 a; t! F
(command ".array" "last" "" "p" c "18" "" "")
& c, L j2 f5 [4 V$ M% }7 ^7 e
(command ".circle" c a)3 b5 k5 e% c* t* Y1 D9 {
(princ))/ Z5 t( U% H. i0 e6 [% h
$ T! f/ e; {' e" z
(defun c:ga20 ()/ E5 ?, S/ s# o' A
(setq a (getpoint "\nChon diem: "))
6 B- W- ?# a9 x j. I- J' ]" w
(setq b (getpoint a"\nChon diem: ")): u+ C4 `9 J0 Y
(setq c (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2)))6 x8 a6 C5 c' \. H
(command ".line" a c "")8 D- M; V1 S; A( z4 t# P
(command ".array" "last" "" "p" c "20" "" "")5 ?' A0 q; J8 L1 O% G3 v2 V
(command ".circle" c a), s/ @8 K, ^$ Q6 @
(princ))
! ]9 ~1 ]3 g8 g$ f, m$ L
1 v; s- [$ a; q I, _1 e" V
;=====================================================================4 ^$ S4 p; l8 b
;============== FUNCTIONS GA TUY THICH : EVERYTHING IF ===============/ v0 |) d' p1 l0 |$ L4 b
;========================== 06-11-2016 ~ 18h00 =======================: W; j9 ?5 K# V# b4 Z5 ]* i3 E
;=====================================================================
" p; s. X; B( K/ h5 S, a' s
(defun c:ga ()
: ]0 ^/ @' J/ j2 j
(setq a (getpoint "\nChon diem: "))
3 t+ x- a# W) d& `5 K& Y" M
(setq b (getpoint a"\nChon diem: "))+ S' W8 u0 P7 |# }
(setq c (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2)))
' d; D/ I {. w' V8 ^
(command ".circle" c a)
# G6 t5 s; X5 k* V- Z/ K
(command ".line" a c "")$ M' l) h+ y7 m" Y5 N$ {, |
(command ".array" "last" "" "p" c "NUM" "" "")2 m; I0 ]. R# U1 n' z8 D5 d
(princ))
, g( Z9 K) J0 T2 A" b/ o
; {& r- B2 k* u' @; |
;=====================================================================
; t9 B1 ~! z& M- [/ K1 M0 o
;=========== FUNCTIONS HOA THI TUY THICH : EVERYTHING IF =============
5 Y/ j$ ]$ k) J# l# @ z
;========================== 06-11-2016 ~ 18h40 ======================= \3 M S3 E: u5 e0 ^ F; R1 v
;=====================================================================$ _+ g% e( ? `- A
- N) U+ w$ x" v) n
(defun c:hoathi ()8 Y3 ^- g! z+ X6 a5 `' _( [
(setq a (getpoint "\nChon diem: "))$ W5 {- |$ H$ }+ n
(setq b (getpoint a"\nChon diem: "))
' `1 I$ J3 m6 p
(setq c (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2)))! U" ] v* Z8 f- x4 d" s
(command ".line" a c "")
, K- O" g; |& I4 B
(command ".array" "last" "" "p" c "NUM" "" "")
F- |6 C8 i: _8 @) z
(princ))
" }- K# q6 ?; i' ]9 X0 P4 V
- j" y7 f. u9 m! z* F' W
;=====================================================================
1 K1 `( {% @( B# ?3 z8 A2 O& @% t
;============= FUNCTIONS CUNG TUY THICH : EVERYTHING IF ==============
6 B0 E0 q+ o9 K
;========================== 03-11-2024 ~ 19h33 =======================/ B$ i" j0 L7 J8 j1 D
;=====================================================================
5 ]' @: `- p# z- _7 a4 r
, x: k! r3 w6 W. t- f. C( n) ]4 a: S
(defun c:cung ()
(setq a (getpoint "\nChon diem: "))
$ R) x6 s. Q" y5 ^
(setq b (getpoint a"\nChon diem: "))
( s8 w( K% z) j1 p7 C
(setq c (getpoint a"\nChon diem: "))
& w0 N9 k* X% d1 U7 V" X
(setq d (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2)))
3 @' C! O; R/ B! D) w2 V8 r
(command ".arc" a b c "")( Z W/ o2 K6 n" \; \
(command ".array" "last" "" "p" c "NUM" "" "")
) ]# H9 e9 I# X2 }. }$ P0 s
(princ))3 a( a- y4 i7 b# U2 h
- N/ f: b9 L. D9 x0 o1 M
;=====================================================================% A7 w0 K! v: K1 [( o4 K/ u3 R% q2 j
;============ FUNCTIONS HECLOIC TUY THICH : EVERYTHING IF ============* W% q/ P+ F+ _8 ]. \
;========================== 03-11-2024 ~ 20h02 =======================
2 i1 q- r. ~) w9 x$ B4 @- @
;=====================================================================4 t+ }' C! f" A# k" W5 K& W, U8 ?
! `4 C7 ~8 E( s% p' V6 J7 ^
(defun c:hecloic ()
(setq a (getpoint "\nChon diem: ")). v) J) f7 q3 ~
(setq b (getpoint a"\nChon diem: multi "))
0 D% I+ l4 i: r0 x |$ i, j3 k
(setq c (getpoint a"\nChon diem: "))(princ)
O I% h, X0 ?4 A( \: y4 }" l
(setq d (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2)))0 U* o2 d/ d6 q# @% G6 n/ [3 p
(command ".arc" a b c "")) ]# z2 }; s- k, W# Y
(command ".array" "last" "" "p" c "NUM" "" ""), _5 S: R, w* F2 g- W
(princ))
5 M+ t$ Z1 x7 c. r- D
# f+ N' w! p8 }' P# E
;=====================================================================6 T, p$ [* l! C
;============== FUNCTIONS GAY TUY THICH : EVERYTHING IF ==============* |! c& P- C, }$ {& m ~3 S; i
;========================== 03-11-2024 ~ 19h38 =======================
6 C8 c" }2 t0 L* E% q/ Y# e: r
;=====================================================================
! q) Y) @" ]1 o- |6 w' @% Z9 y
) x; |6 y. i% {1 t/ v
(defun c:gay (), B) ]" ?! ]1 B- P
(setq a (getpoint "\nChon diem: "))4 I8 P: s H2 ` x" l
(setq b (getpoint a"\nChon diem: ")); h7 ]- C# R6 m5 T' |
(setq c (getpoint a"\nChon diem: "))(princ)$ Z E. R& D% R" a6 j
(setq d (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2)))$ E( x8 }; ?4 s7 F8 U: p0 f1 o: u: |2 K6 H
(command ".pline" a b c "")# `/ c" J P3 F* j7 F
(command ".array" "last" "" "p" c "NUM" "" "")/ C }$ m+ L2 x( r# ~
(princ)): ~# N& l* z" {
/ J1 Z3 o4 F4 o) K; f U
;=====================================================================( z! L/ k1 [) y H" m4 x1 a8 u
;============ FUNCTIONS HECLOIT TUY THICH : EVERYTHING IF ============
5 r! H# q: `1 K
;========================== 03-11-2024 ~ 20h02 =======================/ a5 \) }; h: Y3 u' \0 G
;=====================================================================
( s( J$ e6 a2 {. l2 _
/ O' }9 k- Y- A
(defun c:hecloit ()$ E* O4 c0 `; w9 ~
(setq a (getpoint "\nChon diem: "))1 g, e# s( g1 h; x# l M8 V
(setq b (getpoint a"\nChon diem: multi "))$ ^* J2 q# i" P# D5 o. h
(setq c (getpoint a"\nChon diem: "))(princ)
; a1 ]# {4 o( m# X
(setq d (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2)))1 Z$ e. v! J8 J8 d" Q0 I! ?
(command ".pline" a b c "")
& r; J5 \! W8 n8 v! m( {0 R
(command ".array" "last" "" "p" c "NUM" "" "")" o6 a! y) M4 Z) M3 S! J
(princ))
6 Y. E6 n2 `' s y( K) S
; Z- M: ?# }6 p9 N9 \5 Z" i
/ ?! h6 A2 n4 m+ K! Q! L* H. A1 Y/ J
;;; ============================ Merge Hatch =============================
. Q6 W, n! a4 w- s+ |
& G7 c, a1 u9 g7 f" [& h
(defun c:mh (/ ss entht sl i dt dtht)
& F: |& m( ^7 `* k2 ^
) S+ U, Z- y$ t$ ?: a a
(princ "\nMerge Hatch - free lisp from CADViet.com")
1 V1 l+ {! _/ o4 ]0 M5 t
) V7 b9 V5 j( l/ S" i6 J* q" g/ I2 X
(setq. Y) s% P( g" M8 ]- z2 h9 h- ? ^
ss (ssget '((0 . "HATCH")))
, O' D+ O5 D0 y3 e: g
sl (if ss+ A5 y. X3 a) `9 M! w" X
(sslength ss)
7 U8 ^" r5 |8 F4 `( H
0
1 v" Z u4 Q. h- [. _
)
$ C: B, ~6 w& M! e% L8 A
i 0* L& ]7 ~. ]# J0 U
l 0+ X2 ?; J' W' s# K" B8 d2 U/ \' X
)
* R7 p( [# g. \7 d1 y9 N7 h
$ p( ?( m8 V7 `" f2 A J% l
(repeat sl
+ x$ J8 b. p# v6 M2 I8 D
(setq
# @! G$ r% `& M7 l
entht (ssname ss i)# U# D7 p3 t- C
dtht (getbdata entht)" k C- u% e) S2 U9 X/ o) C7 @
dt (append dt dtht)
9 o$ `5 w a; V7 @) z( x1 }
l (+ l (cdr (assoc 91 (entget entht))))
`& V L; n4 @ z9 H6 V: u
i (1+ i); b! r" i. \- d6 |5 |% P# l
)
0 W2 P+ b& P x' d/ I) i
)
5 j$ z G" c# s! F4 U
' i- j* @& X7 d) o2 ~3 C' O
(setq ent (ssname ss 0)
1 e" ~6 H9 ~! ]+ B6 N+ i
ss (ssdel ent ss)
- z( w3 s4 p* p) t. f. S
tt (entget ent)
+ n" d8 B9 {& [$ M0 g
duoi (member (assoc 75 tt) tt)
( n8 t% c6 d `
dau (reverse (member (assoc 91 tt) (reverse tt)))! n1 z1 }& i# H1 C, q$ q
tt (append dau dt duoi)
3 M2 _. R( B+ C
tt (subst (cons 91 l) (assoc 91 tt) tt)
, `, ^6 G/ R" l9 k( P* ]* ~+ K0 {1 P/ V
)# J0 }2 M8 a- ?$ N( m
(entmod tt)# x- u$ N" A" l) B% j3 o
2 ?+ @* Z" b+ X. B
(command ".erase" ss "")
8 G% f* {1 [* ?' q5 _4 {1 n, W4 ]
(princ)
2 t7 s/ L* o" c7 g. M' \4 T+ b) Z* x
)' f1 t( G; H2 _. P7 P5 Z
* x6 W. G! o8 Q0 R f8 f# s
(defun getbdata (ent)+ j, J$ E5 a8 R
(setq tt (entget ent)8 D8 p1 c8 i$ b$ \& m
tt (cdr (member (assoc 75 tt) (reverse tt)))
1 `1 ?) _: c, y
tt (cdr (member (assoc 91 tt) (reverse tt)))! a' \4 j+ b7 a/ k
)' T2 V* l! b3 X- w
)4 K) C1 W6 I( g( X% N- A
1 n" f* u' G2 T/ m! A" a: u
) n: \+ Y/ R$ o9 W0 \
(princ)
3 E; A2 |1 ^, A* b) F, T; K7 N/ A
' M* U& ?% V1 Z3 t# |+ l
;;; =========================== CAC LENH LAYER ==============================
, o! F4 ~) F4 w/ O- }; U
;;; =========================== Layer hien hanh =============================2 d$ ^6 d/ }* Y3 D9 P4 d
/ c8 j4 W- M" i- L3 M! j4 m' v
(defun layset (/ LAY) (setvar "cmdecho" 0)
, g/ w; K) O6 Q( z& W* D
(setq LAY (entsel "\nPick vao doi tuong muon Layer hien hanh la Layer cua doi tuong do : "))* a+ J* x z. s: h F5 O4 W
(if LAY (progn % D+ M | l) I: U% [! b: b p( @% ?
(setq LAY (cdr (assoc 8 (entget (car LAY)))))5 E- L0 {& `$ X- v4 ^- K
(command "_.layer" "set" LAY "") (princ (strcat "\nLayer : " LAY " da la hien hanh.")) )1 j3 E# ]) h n/ A) E! {, V x o
(progn- F* X0 t7 C1 k5 f
(if (not ddlop) (load "ddlop")) (if (setq LAY (ddlop)) , a5 X% |! ~# [. m8 O. p
(progn4 k: M# \% o5 q% F+ p( o
(command "_.LAYER" "ON" LAY "THAW" LAY "SET" LAY "") (princ (strcat "\nLayer : " LAY " da la hien hanh.")) ) ) ) )(princ) )) w, C$ {8 X' L4 d: E6 D; E
(defun c:LLL () (layset))(defun c:LAYSET () (layset))
* ?( g) L5 ^2 a: Q4 ?! {
) N1 h9 q' Q& R) z
;;; ================== Cap nhat doi tuong vao layer hien hanh ==================8 l/ D4 z2 ?9 z f8 E
' u7 `4 p5 C o$ }2 w- w
(Defun LAYCUR (/ SS CNT LAY) (setvar "cmdecho" 0)
/ E2 H' |% g6 G$ v* {# o
(if (not (setq SS (ssget "i")))
2 j9 `" f; n& I! J
(progn (prompt "\nChon doi tuong cap nhat vao layer hien hanh: ")
4 z* o1 C( E" \. J
(setq SS (ssget)) ) )
(if SS (progn$ [0 P' Z1 |# T1 [
(setq CNT (sslength SS)) (princ (strcat "\n" (itoa CNT) " doi tuong tim thay.")) (command "_.move" SS "")
9 O- [, i6 I- ]4 J
(if (> (getvar "cmdactive") 0) * d. t3 ?' d% d
(progn
9 a6 h7 s$ _0 C1 l @
(command "0,0" "0,0") (setq SS (ssget "p") CNT (- CNT (sslength SS)) ) )% b: a0 r3 P& g7 c) _! C8 ]
(setq SS nil) ) (if (> CNT 0) % ?1 {8 g! I7 U1 P! o& y
(princ (strcat "\n" (itoa CNT) " doi tuong tren layer LOCK.")) ) ) )! {8 A5 p, ?3 D I2 v; R
(if SS (progn- l; u4 c9 V! m8 I
(setq LAY (getvar "CLAYER")) (command "_.chprop" SS "" "_la" LAY "")
8 M! j4 N8 p& q- `
(if (= (sslength SS) 1)
0 J. W" w0 o5 ~! `" Y
(prompt (strcat "\n1 doi tuong da cap nhat vao layer : " LAY " (layer hien hanh)."))
" M4 o7 Y6 \) u4 Q: `( O6 }, U6 M. m
(prompt (strcat "\n" (itoa (sslength SS)) " doi tuong da cap nhat vao layer : " LAY " (layer hien hanh).")) ) )) (princ) );end7 K. E1 q3 v0 y' V1 d
(defun c:LAYCUR () (laycur)) (defun c:LHH () (laycur)). o+ Y" r4 |7 T3 w
) \" a n6 _* n# @
;;; =========================== Layer Iso ===================================! X$ j3 J: X3 _) V# h+ P. t
% ~2 k9 ^; Y9 K5 L2 ~
(Defun LAYISO (/ SS CNT LAY LAYLST VAL) (setvar "cmdecho" 0)+ t4 L; G" I0 G6 @% y/ O$ O7 ~) {- w
(if (not (setq SS (ssget "i"))) (progn
8 b$ {3 Z8 q5 E% Z0 _
(prompt "\nChon doi tuong tren layer(s) muon lam viec doc lap: ")% f n- c' l- R) }
(setq SS (ssget)) ) )- _4 I! x0 O1 W' p$ t* F4 B/ W3 l
(if SS (progn (setq CNT 0)5 O2 @; O3 K8 ~$ E
(while (setq LAY (ssname SS CNT))0 a0 s) ]3 \- M, ~; v7 Q, D
(setq LAY (cdr (assoc 8 (entget LAY)))): ?: J' a5 z% l/ |) N* a! Z: p
(if (not (member LAY LAYLST))+ |* W9 c+ z( z5 |; E
(setq LAYLST (cons LAY LAYLST)) ); D6 v; r( |! g( J+ w) s
(setq CNT (1+ CNT)) )
# w! E2 U* y* M) e p5 J7 S; B
(if (member (getvar "CLAYER") LAYLST)
. H, q9 K2 l( z
(setq LAY (getvar "CLAYER"))2 S7 [5 p. }- M. y3 s7 X' o4 z7 @8 B6 I
(setvar "CLAYER" (setq LAY (last LAYLST))) )
! M$ b2 }9 r/ l! j) B4 ?
(command "_.LAYER" "_OFF" "*" "_Y")& W( q J2 I) f
(foreach VAL LAYLST (command "_ON" VAL))% k. F5 t& S5 e9 |" G
(command "") (if (= (length LAYLST) 1)
# ]2 }3 N4 C# h5 i9 O! W; ]
(prompt (strcat "\nLayer " (car LAYLST) " da tach ra."))7 t& N2 _ M$ S2 l1 U5 T
(prompt (strcat "\n" (itoa (length LAYLST)) " layers da tach ra. "
- ^+ O/ L# ?7 n: E
"Layer " LAY " la hien hanh." ) ) ) ) ) (princ) )
+ f% y( B3 v2 t0 c
(defun c:LAYISO () (layiso)) (defun c:LI () (layiso))
# X% S* \4 y( c! h, Y# z
' G4 P9 P; M& h) F+ J5 V E: k
;;; ========================= Layer Match ==================================
3 z3 F9 y6 m r- N0 ~7 o% Z) A0 n& d
% E4 w8 ~6 s8 i
(Defun LAYMCH (/ SS CNT LOOP LAY ANS)
) g& |) C0 F/ L# p
(setvar "cmdecho" 0). }3 k* {7 d# A: F
(if (not (setq SS (ssget "i"))) (progn- e1 N1 ~& {& K o
(prompt "\nChon doi tuong muon thay doi Layer : ")! ?# N+ a I2 o( s
(setq SS (ssget)) ) )1 N [5 \% ? s0 O
(if SS (progn* G& A; J; I( z- r
(setq CNT (sslength SS))
) m% H# U r- t8 ?' ?5 G/ W4 u
(princ (strcat "\n" (itoa CNT) " found.")) (command "_.move" SS "")
" p% a4 H% t& N5 N& g' F
(if (> (getvar "cmdactive") 0) (progn1 P a) |/ j. Z% y# W) {. B. n$ _
(command "0,0" "0,0") (setq SS (ssget "p")* y" [5 }6 T! x& G {5 k% o
CNT (- CNT (sslength SS)) ) )% n( R' Q" g7 a. }
(setq SS nil) ) (if (> CNT 0) + o( D; ~1 {) C8 y) X) S
(princ (strcat "\n" (itoa CNT) " tren layer LOCK.")) ) ) )
+ y+ Z: k: U" e" u& w) S8 O! L9 r* ?
(if SS (progn4 g" E; c4 h3 E1 [3 n, Q
(initget "Ten") (setq LAY (entsel "\nTen layer/<Pick doi tuong>: ") LOOP T ), c8 U1 M' G W/ D- ]
(while LOOP (cond
7 _3 ^* ]- L0 w+ `. o. L
((not LAY)% Z/ g: t8 B7 H8 ^- h" h
(prompt "\nKhong chon doi tuong.")& w3 K% T1 r p, b; N
(prompt "\nSu dung layer hien hanh? <Y> ")
0 ~! o# M: d: i! v
(setq ANS (strcase (getstring)))+ z4 w! c) Y3 Q: ^6 F2 v; Z' z
(if (or (= ANS "") (= ANS "Y") (= ANS "YES"))
% q7 C: ~: Z1 e
(setq LAY (getvar "clayer") LOOP nil ) ) )+ X% q# D: x$ ]% r
((listp LAY) (setq LOOP nil) )) q2 E1 Y2 S3 {5 B, F7 Q% ?
((= LAY "Ten")
, \ }, V0 a9 K* T9 c
(setq LAY (getstring "\n>Nhap ten layer: "))
# e& i# I) ?' m {
(cond
2 P- Q5 l: I# q( r" n
((tblsearch "LAYER" LAY) (setq LOOP nil) )
, ^% c8 v5 ^1 }* T% D
((/= LAY "")
9 ^2 c9 v' M9 V/ a; i
(prompt "\nLayer chua co trong ban ve. Tao layer moi? <Y>: ")" A" b7 s! e) U. }7 T" I$ S4 i
(setq ANS (strcase (getstring)))
& c! N( |3 O& Z/ @$ |3 t1 }' b
(if (or (= ANS "") (= ANS "Y") (= ANS "YES")); a# t3 k& C$ c) `) G( v
(progn- y0 W* ^" H+ X3 m0 q" i- E
(command "_.LAYER" "NEW" LAY "")
5 C: p, U& ~! L/ F- i+ Q# c. y
(setq LOOP nil) )7 e' _ S+ h. ~
(prompt "\nLoi ten layer.") ) ) ) ) )9 Y6 Z8 p' U0 ]. T8 Y" K
(if LOOP (progn (initget "Ten")
/ `! _7 ]7 H' T, Z
(setq LAY (entsel "\nTen layer/<Pick doi tuong>: ")) ) ) ); while LOOP
( o( {- m, z) N( o. V/ p
(if (listp LAY)1 y7 B# A: Z. p; {( \, ?4 m! E' [
(setq LAY (cdr (assoc 8 (entget (car LAY))))) )8 T! g% M- l& V- {* W
(command "_.chprop" SS "" "_la" LAY "")$ q8 m- i7 ~5 d* Q7 V
(if SS (prompt (strcat "\n" (itoa (sslength SS)) " doi tuong thay doi toi layer " LAY )) )
4 q. E0 E T6 h# h
(if (= LAY (getvar "clayer"))- Z; F. c9 N4 K ^7 D( Y. K
(prompt " (layer hien hanh).") (prompt ".") ) ) ) (princ) )
5 y V" @5 E. F9 `/ s* d
(defun c:LAYMCH () (laymch)) (defun c:CLL () (laymch))
/ ?2 X( f7 ]+ ]! J( [
- X$ R9 z: @2 `$ s g6 U
;;; ============================ Layer OFF =================================
+ k. F {, U6 O- K# ~" V( c
# D# X2 z0 p9 `: }0 Z
(DEFUN C:LJ (/ SSET SSL ENT LAY I MODE)3 N5 o; _. O3 H+ d
(SETQ SSET (SSGET))/ I* ~0 a7 F p2 b, Q
(IF (/= NIL SSET) 1 g; b( u+ q0 o' r! S7 e
(PROGN- x1 h( ?$ J% z1 G/ @5 Y% r$ Z
(SETQ SSL (SSLENGTH SSET))0 l% A" C/ }# z& {
(SETQ LAY "")6 G B. ^4 A4 R' K+ s2 m
(SETQ I 0)* P7 C* W; c; S/ }2 C
(SETQ MODE 0) 2 r) ]7 W2 g/ w- H
(WHILE (< I SSL)
]5 B8 s6 A4 X9 x I+ R8 @# d
(SETQ ENT (ENTGET (SSNAME SSET I)))/ ?0 A4 ?1 T! }" y% q* _) M7 ^
(IF (= (CDR (ASSOC '8 ENT)) (GETVAR "CLAYER")) (SETQ MODE 1) )
" [: \* w4 u( x Z* a4 H
(SETQ LAY (STRCAT LAY "," (CDR (ASSOC '8 ENT)) ))' b/ v/ D0 {3 z( u9 P
(SETQ I (+ I 1))& u( ~4 C5 \! v
)
5 r" u) z+ c5 H' X
(COMMAND "LAYER" "OFF" LAY "")2 j' H. s/ E2 A$ k
(IF (= MODE 1) (COMMAND "") )& M8 C4 f; U7 @# o
), {. f3 l) G. b3 v
)
6 S& |7 w4 l; I9 K
(PRINC)
3 d" f5 c$ Q! {
)
V, R2 C0 m2 s9 I1 i6 t. p1 B9 l
5 D: F8 b! \, d! M1 A: \' H0 Q9 r# a
;;; ================================ Layer ON ==============================
# f. r, X! Y. F0 h
7 @8 |6 g1 R8 E/ v% Y0 \
(Defun LAYON () (setvar "cmdecho" 0). o: u% ^5 g' b* S% Y# k! Q
(setq Lay loff1) (setq Loff1 Loff2) (setq Loff2 Loff3) (setq Loff3 Loff4) (setq Loff4 Loff5) (setq Loff5 Loff6) (setq Loff6 "0")8 k2 F3 m; L: Q* T
(Command "LAYER" "ON" Lay "") (princ (strcat "\n Layer : " LAY " da ON.")) (princ))
: x( {5 ]1 Y$ K
(defun c:LAYON () (layon)) (defun c:LOO () (layon))
! e& N9 J9 `0 a$ ]0 `+ e7 E* b& A
(Defun C:LO () (setvar "cmdecho" 0) (Command "_.LAYER" "_ON" "*" "") (princ "\nDa ON toan bo cac Layer !") (princ))
( ]0 p9 ~2 y2 ~. ]7 V
|4 }& W, H: v/ s
;;; ============================== Layer Freeze ===========================
* u5 T1 u1 [* W% [
( L. Z4 }$ {" Q7 M
(Defun LAYFRZ (/ LAY TEMP)(setvar "cmdecho" 0)
; \+ g6 c$ |7 Q2 E
(prompt "\nChon doi tuong tren layer(s) muon FREEZE: ") (SETQ SSET (SSGET))
. P! F0 T1 i' i% R1 g8 Z2 ~- \& ]; X
(IF (/= NIL SSET) (PROGN: |9 {. w; T6 R) _5 t
(SETQ SSL (SSLENGTH SSET)) (SETQ LAY "") (SETQ I 0) (SETQ MODE 0) " P7 S6 T+ n0 J; a$ C: X) \
(WHILE (< I SSL)
( } z3 d( q3 g& J
(SETQ ENT (ENTGET (SSNAME SSET I)))
+ |0 L1 Z' \6 k5 z0 j3 i. P+ s
(IF (= (CDR (ASSOC '8 ENT)) (GETVAR "CLAYER")) (SETQ MODE 1) )
2 V6 s" a9 Y8 ]* u, i% o
(SETQ LAY (STRCAT LAY "," (CDR (ASSOC '8 ENT)) )) (SETQ I (+ I 1)))( N. l+ d, H# I+ [: K( u2 I+ `$ a
(COMMAND "LAYER" "FREEZE" LAY "")) ?6 o' ]1 r! J5 H3 T- _7 Q% e9 E @
(IF (= MODE 1) (COMMAND "")))); |" `$ F0 M' {
(setq Lff6 Lff5) (setq Lff5 Lff4) (setq Lff4 Lff3) (setq Lff3 Lff2) (setq Lff2 Lff1) (setq Lff1 LAY)! K) _( }# W8 j4 C, I# x4 m
(princ (strcat "\n Layer " LAY " da FREEZE."))(setvar "cmdecho" 1) (princ) )
- q# w% h" E( l9 s) }0 y
(defun c:LAYFRZ () (layfrz)) (defun c:LF () (layfrz))& p) ]8 S! h2 ~# L
# _: S! e E8 P: W
;;; ============================== Layer Thaw ===============================
3 p* E: o" ], p1 J- k! C6 [
5 d! ^# f; o5 c p0 q
(Defun LAYTHW ()2 w) Y+ D4 s5 Q$ C
(setvar "cmdecho" 0)
+ V$ K# t( S8 F$ ?* I. K! k
(setq Lay lff1) (setq Lff1 Lff2) (setq Lff2 Lff3) (setq Lff3 Lff4) (setq Lff4 Lff5) (setq Lff5 Lff6) (setq Lff6 "0")
: L: L" b" x Y0 ~2 Z& H1 Y" s, i! D
(Command "_.LAYER" "_THAW" LAY "")
/ E% ~* c1 E# ^! D. t4 x
(princ (strcat "\n Layer : " LAY " da THAW."))
/ D& S6 `1 F6 K- s, V
(princ) ), r% \& e! I! V7 @+ F/ w
(defun c:LAYTHW () (laythw)) (defun c:LW () (laythw))
6 u% P. n9 x0 N+ F
& o0 y+ n8 q6 V0 k( b3 T
;;; ============================== Layer Lock ==============================& k; M; a4 o: o4 F) g, f6 D( N5 K" V
7 Z7 c: a N; X/ h! ^# A
(Defun LAYLCK (/ LAY)9 d' P+ ?8 a. i2 V* K4 n( E, M' k
(setvar "cmdecho" 0)
1 E3 m( k8 X: a( E e$ }) y% I$ q
(setq LAY (entsel "\n>Pick doi tuong tren layer muon LOCK: "))
' K5 t% L. N5 | M6 e+ _! f
(if LAY3 k# O+ {- w( @; [$ ^
(progn
1 @% s: B8 L4 i: Q" G2 f
(setq LAY (cdr (assoc 8 (entget (car LAY))))): h. h: @8 D( y7 Y! a) ~, P
(Command "_.LAYER" "_LOCK" LAY "")
, s# W. n' N- z! N- v
(princ (strcat "\nLayer " LAY " da LOCK.")) ) ) (princ) )
6 s* T/ U5 w9 I2 i% z" j$ \
(defun c:LAYLCK () (laylck)) (defun c:LK () (laylck)); U9 T6 h7 R; ~
7 }7 \3 U! ^" L) D/ ?8 P
;;; ============================== Layer UnLock ==============================- ^+ q. Z/ L Q3 Z X+ _$ c% C
* H* [5 q8 |" J$ k" I* B
(Defun LAYULK (/ LAY)
7 `& Z1 A3 H; V6 K& }
(setvar "cmdecho" 0), X8 S2 ~- Y. O( ?4 @ y7 C
(setq LAY (entsel "\n>Pick doi tuong tren layer muon UNLOCK: "))
+ D1 g/ w! x0 t# i9 u
(if LAY
1 a' Z4 C; P8 k
(progn
6 T" x; j, z' `, R! a+ T4 ] I
(setq LAY (cdr (assoc 8 (entget (car LAY)))))
9 T% w& m2 H9 B9 n# Z
(Command "_.LAYER" "_UNLOCK" LAY "")
: \8 A2 r+ M: g
(princ (strcat "\nLayer " LAY " da UNLOCK.")) ) ) (princ) )1 o, u6 q& V6 {) L1 b
(defun c:LAYULK () (layulk)) (defun c:LU () (layulk))
$ h) {: r" J2 p2 j, N L. D, N# [
2 b- D0 f$ c3 S4 {7 X
;;;===================== Delete all objects of Layer ========================
) q2 |/ t# \, s5 S: {
0 Q) d7 G# U9 s5 A. k- [" Z
(defun DELAYER (/ ocmd L S)
( W( `, D$ s5 `. [
(setq ocmd (getvar "CMDECHO"))4 }( B# d& U* ^! b' T) ?4 w, ~
(setvar "CMDECHO" 0)
) e) k) X/ p- W( ~% G0 [3 F
(setq L (strcase (getstring "\nLayer(s) to delete: ")))1 r8 b" x- \8 w0 E
(setq S (ssget "X" (list (cons 8 L)))) $ }' P. J; Q+ n; x! v; T
(if S
' @; |1 k) x) }9 [& D
(command "ERASE" S "")
2 S1 {2 i8 W' p8 s/ \' n/ `& C0 {) N
(princ "Layer empty or not a valid layer name.") ) . k G2 `) A# R
(setq S nil) 8 h5 W- V7 g0 r; E! s
(setvar "CMDECHO" ocmd)
( O- q# O+ r [" ? w
(princ) ) $ J3 ~- L. t. ?+ P
(defun c:DELAYER () (delayer)) (defun c:DELLAYER () (delayer)) (defun c:DEL () (delayer))
# r) S8 X3 j- U2 Y4 A
. y& h$ v, b# h0 _) ], y
;;; ========================= HET CAC LENH LAYER ===========================+ |) p1 K, s. U3 }# E
. B# h1 a. f% N1 P0 z/ ^
;;;====================== EXTEND NHIEU DOI TUONG ===========================
) ~7 k* X$ F5 `) Q! ^9 g
: t8 v+ @" N+ _9 ~
(Defun C:EET ()8 O- H( f/ c# f# Y- Q" ]& a# a
(Setq CVAR (Getvar "CMDECHO")) (Setvar "CMDECHO" 0)8 c) {* y# u. C) b$ |5 G5 G/ Y
(Prompt "Chon doi tuong dich cua EXTEND :") (Setq CUTEDG (Ssget))3 N S' J' f2 p1 I6 V7 d6 v& Z
(Prompt "Chon doi tuong de Extend :") (Setq SS (SSget)) (Setq LEN (SSlength SS))
! P5 E9 e4 [- l! T
(Setq I -1)9 L+ h( F2 t J4 e
(Setq SIDE (getpoint"Chon phia de EXTEND")) (Command "EXTEND" CUTEDG ""). @/ g' r/ ?5 j6 g
(Repeat LEN2 j( t' N! `1 |4 \5 D( R. q/ h
(Setq I (1+ I))
% e4 Z" H b5 [4 G$ a
(Command (List(SSname SS I) SIDE)) ) (Command "")
8 u. C7 H4 J8 @! d: u
(Setvar "CMDECHO" CVAR) (Princ "Da Extend xong moi ban lam tiep") (Princ) )
" k1 d9 T1 F( n% [2 P
) Y6 i) h F! G d
;;; =============== EXTEND 1 DOI TUONG THEO KHOANG CACH ===============. t. `. P- s2 g) |* r* b. p6 g5 m
7 |8 k7 i8 N1 q! k; Y* ^& U
(defun c:ETT () (setq os (getvar "osmode")) (setvar "osmode" 512)6 e% Z5 u! @" g& |$ h
(setq pt1 (getpoint "\nKich vao 1 dau doan thang can EXTEND "))" |7 V& H6 k4 f Y) n; F2 a0 |
(setvar "osmode" os)
, A0 I) g& y( i/ _ e8 B
(setq dis (getdist pt1 "\nKhoang cach can EXTEND :"))
3 g5 z& y* m( q' T8 z5 @( c$ R! F
(command "circle" "endpoint" pt1 dis) (command "extend" "last" "" pt1 "") (command "erase" "last" "") (princ))
) ]5 j% Y5 { _0 L
# N2 @0 h# Q5 U6 v1 A x' ^
;; ================ Change width of polylines =========================' s% S# g- c( W3 `
0 y) c) i7 o" u: b- v7 j7 d D. o
(DEFUN wp (/ a b sophantu sodem list1 ha:wid): A! C8 o3 B- c, S* C9 U6 ]+ A
(PRINC "\n Chon doi tuong can thay doi do day (Width) !")
, q. w* M) O5 y ^) T" `7 a2 |& E
(setq b (ssget)) ; A2 j% S+ C) l$ f: X2 G8 J0 E0 n) m L7 R
(setq sophantu (sslength b))
$ B( c8 `2 v- A5 K# ?8 w+ f
(if (null ha:wid) (setq ha:wid (getvar "tracewid")))
(princ "\nDo rong polyline <")
9 s4 b& }: D! r: b7 {
(princ ha:wid)" F: _9 ^8 s- k) Z8 u
(princ ">: ")
% R" j7 |$ W1 D0 N
(initget 4), |% Q5 Z7 f; B& x
(setq ha:wid (getdist))" j3 L8 q2 R. }' w/ ^( o
(if (null ha:wid) (setq ha:wid (getvar "tracewid"))). X( O! n5 c/ J- n6 J/ w) T
(setvar "tracewid" ha:wid)% P; \' t0 ^# D! B8 v7 w1 ~' I* ?
(setvar "cmdecho" 0)2 S! _ D) v7 q$ m
(setq sodem 0)
" n& M5 q4 P1 m" F5 w, C+ V
(repeat sophantu
* v8 x4 |" V, \
(setq a (ssname b sodem))* F9 _: m9 I1 @. r# a! i0 K
(setq list1 (assoc 0 (entget a)))
+ N; V" {) E3 u. y7 H& {9 j5 N; o
(cond
; ^5 I$ Q8 k& e' W) V" c. I. M
((= (cdr list1) "POLYLINE") (command "_Pedit" a "w" ha:wid ""))
\- g7 `" V) p; P0 h/ A
(PROGN (command "_Pedit" a "" "w" ha:wid "")) ) ( [8 u+ E3 Z" ~% P4 `+ H
(setq sodem (1+ sodem)) )(SETVAR "cmdecho" 1)(princ))! d/ |4 o7 ]+ @. j. {' `
(defun c:wp () (wp)) (defun c:pw () (wp))
0 u2 L) b2 K* b9 e1 I. E
, {3 R" c/ I( [: S
;; ================ Change radius of circles ==========================
2 k$ M% [# m. n/ @
; Q' d2 Y& D4 g/ t
(DEFUN C:CHR (/ SSET SSL M RD I) (PRINC "\nSelect Circles :") (SETQ SSET (SSGET))
# W3 ?9 Z" K1 w
(IF (/= NIL SSET) (PROGN (SETQ SSL (SSLENGTH SSET)) (INITGET 4 "") (SETQ RD (GETDIST "\nNew radius : "))
" E0 S4 [# D% H) y# b+ |1 T+ ]! O" {
(IF (/= RD NIL) (PROGN (SETQ I 0)
0 a8 \/ u3 `& X* ]( ?
(WHILE (< I SSL) (SETQ M (ENTGET (SSNAME SSET I) ) ) t& s! Q. f/ ^/ o! P* ^0 a
(IF (= (CDR (ASSOC '0 M)) "CIRCLE") (PROGN- g# ^9 N" U2 z0 g# m
(SETQ M (SUBST (CONS 40 RD) (ASSOC 40 M) M)) (ENTMOD M) ) ) (SETQ I (+ I 1)) ) ) ))) (PRINC) ); S- ^7 D: I/ _0 w' P$ x# D
3 e" X$ d3 c+ S& |9 i- y m; o0 I
;;; ============================== TEXT Hight ===============================
* }/ F$ Y# }$ x% m, z* r" {) R8 h- r3 Y
+ v' E1 J6 Y2 b6 G1 \9 Y
(defun texthght (/ ent hght)1 X/ U% _; D8 O- q8 A$ h
(setvar "cmdecho" 1)2 J* q( x5 k9 p( v" o, ]: }
(prompt (strcat"\nSelect text entity with required text height"))0 |; q0 w- {0 A! @( S
(prompt (strcat"\n."))& I) R- a) O# r# T) l. q
(setq ent (entget (car (entsel))))
" ?: R9 w5 l- W( c7 V
(setq hght (cdr (assoc 40 ent)))3 l2 Q: ?8 t2 {& {3 L! w
(prompt (strcat"\nText height now set at "))(prin1 hght)
' ?* _$ D+ S) w7 q0 [) c
(prompt (strcat"\n.")) 8 h% G' I" Z$ I6 @3 I% N1 ^4 e
(setvar "cmdecho" 1)
& H5 s. V8 h6 F* z
(command "DTEXT" PAUSE hght "") ), o/ l$ z9 a7 D
(defun c:teh () (texthght)) (defun c:texthght () (texthght))& W0 b6 `9 P0 b5 f/ C }8 `! H1 [( Z
& O$ O% P5 L. b+ ~; J/ ~$ H
;;; ================ BAT -TAT CHE DO GACH CHAN TEXT =================! z& K3 M b9 d2 C4 p
2 p9 F4 x1 L' a. ]) K6 y$ F M
(defun c:tuu () (setvar "cmdecho" 0)
5 A7 w% V+ X1 r$ N; n) v
(prompt "\nHay chon dong TEXT can gach chan ")* D$ t8 ~" H, Q
(prompt "\nSelect objects: ")
3 L, d0 }9 x2 C5 ?0 g# E
(command "select" "au" pause)" p9 Z& C4 [3 ?: t2 W1 A5 ? E
(setq sstxt (ssget "p")
/ J. m* L& J2 ~# u4 p0 o
sslen (sslength sstxt)
/ L0 M% n |8 \& k0 | I5 O
ctr 0 )1 i! I* [! s& g7 q* L4 s8 e. R
(command ".undo" "mark")! M8 g' ~. }/ [/ D6 S- @' g; U
(while (< ctr sslen)
) r* o: ?% _! ^: N& g6 j
(setq listxt (entget (ssname sstxt ctr)): A5 j- b( W. P8 z- `
txttxt (cdr (assoc 1 listxt))
0 M# ^2 @" Z) a
enttxt (cdr (assoc 0 listxt)) )
9 y( J7 w4 ~3 i5 ~3 ^3 u) o( r; Q
(if (= enttxt "TEXT")5 w6 s9 K* g% D6 x4 M; m& g
(progn F. ~3 }9 `( q$ G/ f7 Z% p: ?
(setq testxt (substr txttxt 1 3))
3 i+ K' a% G8 {$ `/ p
(if (or (= testxt "%%u") (= testxt "%%U"))
1 B# Z6 q k/ {) }: c2 b1 O8 D
(setq newtxt (substr txttxt 4)) A" r. \4 `( |+ P" T- u8 O
(setq newtxt (strcat "%%u" txttxt)) )
* c6 s% [& N) K: F0 H. a
(setq listxt (subst (cons 1 newtxt) (assoc 1 listxt) listxt)), {+ i* X8 x: n1 L1 W
(entmod listxt) ) )
1 J$ C$ C* A& P; ]4 F. y
(setq ctr (1+ ctr)) ) (setvar "cmdecho" 1) (princ))
( [. J! Q9 n# R. l( A! Y u
4 {5 F8 T0 }& a% q, k
;;; ================ BAT -TAT CHE DO GACH CHAN TEXT =================
5 L) m4 P' b2 }/ t' S1 W9 A( W1 [
?9 Z7 V6 [% y3 I: Q
(defun c:tob () (setvar "cmdecho" 0)
9 G) ?; r" n8 Q% O
(prompt "\nHay chon dong TEXT can gach tren dau ")
; b- d6 _5 e( o& ~0 R
(prompt "\nSelect objects: ")
" g* }! h1 F8 A; c
(command "select" "au" pause)' ~. _+ P" W2 N: f7 z y) f
(setq sstxt (ssget "p") c! C+ v# t, P1 {& B: w* ]( h
sslen (sslength sstxt)
' l, F# H# ?+ {: r1 w
ctr 0 )
, P1 d: k5 I" Q, S0 d( N5 x1 b/ L
(command ".undo" "mark")0 |' G g: H/ s; h1 ^ ^ h
(while (< ctr sslen)
1 I9 a& M1 F' N* M
(setq listxt (entget (ssname sstxt ctr))
" ^ g) R0 c+ R
txttxt (cdr (assoc 1 listxt))
4 O* x' t( l8 ?' ~2 n6 c2 ~& \3 W
enttxt (cdr (assoc 0 listxt)) )
* ^0 d: O2 v k) l/ _' E1 O
(if (= enttxt "TEXT")
$ r3 J- l* A7 c0 o
(progn
% _9 @, a: m3 K
(setq testxt (substr txttxt 1 3))& n. _. j d+ ]) L& p- `2 L# L: O
(if (or (= testxt "%%o") (= testxt "%%o")), T1 H9 Y) D6 g
(setq newtxt (substr txttxt 4))
0 H: n9 ?& H" N7 w T/ ~: O
(setq newtxt (strcat "%%o" txttxt)) )
% i* y# o" J( s' y( \8 x: ^: G
(setq listxt (subst (cons 1 newtxt) (assoc 1 listxt) listxt))8 W5 |5 f. J. Q, s4 D
(entmod listxt) ) ) [9 e6 H! ^& X1 Y( D
(setq ctr (1+ ctr)) ) (setvar "cmdecho" 1) (princ))3 r4 u# \ [$ \, C) t2 F' L
# F" @# u- H& j/ E8 t/ T# a+ [5 m
;;; ========================== Tim & thay the TEXT ==========================1 i- K+ K2 ~& A5 I% w! m& R
6 |7 c2 z- N3 W
(defun frstring (str search replace / str1 str2 index find)& L3 p; M: G9 L$ X
(setq index 0) (while (<= index (- (strlen str) (strlen search))) (setq index (1+ index))1 Q0 C- |4 j9 x% d' ~' q
(setq find (substr str index (strlen search))) (if (= find search) (progn (setq str1 (substr str 1 (1- index)))) ?- A4 ~0 [% i$ G. Z
(setq str2 (substr str (+ index (strlen search)))) (setq str (strcat str1 replace str2)) ) ) ) (setq str str)), X& Y8 X9 ^* T% M L$ S
(defun hai (/ dial)7 n" X: t2 O3 `* o/ E& Q7 `- |
(setq dial (load_dialog "hai.dcl")) ;;goi dialog& b# x8 b8 h* L& e+ N" v8 p) n: t
(if (not (new_dialog "find" Dial)) (exit)) ;;1 p' R* i- {9 V" k+ X, [
(mode_tile "find" 2); Tao dau nhac tai hop thoai6 V8 R4 y+ l) w9 L- p/ h# q
(action_tile "find" "(hai1)")8 J! H& S. Q) ?
(action_tile "replace" "(hai2)")3 c" u2 p' L. l1 E/ s
(action_tile "cancel" "(done_dialog) (exit)")4 O5 ~: V1 ~- D5 v, |
(start_dialog) 8 M3 O& j! Y4 [ F, p% t
(unload_dialog dial))
(defun hai1 () (SETQ str1 (get_tile "find")))
( C0 C% ]2 K: o" |9 N8 |- l
(defun hai2 () (SETQ str2 (get_tile "replace")))
8 m% O/ o0 s2 |7 V' h
7 S' N J& e+ t, `
(defun c:TTT (/ a str str1 str2 newstr taphop sodem)
@5 s& \; R* ]3 t O
(hai)
5 B4 @! @6 B# ?7 x' N
(if (or (null str1) (null str2)) (princ "\nDu lieu khong hop le")
. H5 {& F" h( G) P
(progn' r0 j* A7 u6 j: [
(setq taphop (ssget '((0 . "TEXT"))))
/ \% ]; m: u3 Q ~1 ^( a
(setq sodem 0)
4 a# H8 t# j7 Y+ p
(if taphop2 M# f+ R. O4 K$ n7 }9 g
(progn n# i4 K) _' d; F' @
(Repeat (sslength taphop)! ~& i% L) O2 D
(setq a (entget (ssname taphop sodem)))' U- H: D# N$ B7 J
(setq str (cdr (assoc 1 a)))7 q+ t1 f1 \2 p$ n v' T
(setq newstr (frstring str str1 str2))
% a& z$ R Y0 ]: C( s( c( O
(setq a (subst (cons 1 newstr) (assoc 1 a) a))) ]6 G! A* ]. f3 f. Q+ j! y
(entmod a)
4 g$ L/ S% m) r8 Y6 c
(setq sodem (1+ sodem)) ) )( C0 k: z, r, |& L/ B" V6 {1 M. d
(princ "\nNone "TEXT" selected") ) ) ) (setq *error* olderr) (princ))
3 y- A( F$ A" E6 n2 u: U
4 j1 q3 K9 n) t) M, Y6 ~( h( B5 p
;;;============================= CHTEXSTY.LSP =============================# W- q N1 C7 \
- k- a, R. L# t3 {' X) r7 T; O' X
(Defun C:TXS () (Setvar "Cmdecho" 0) (Initget 1 "SE ST ")
q ?) e$ `" F
(Setq G (Strcase (Substr (Getkword "STyle/<SElection>:")1 2)))
/ H7 B9 q5 b4 m6 Q
(Cond ((= G "SE") (Setq A (Ssget)) (Setq B (Sslength A))) `: |2 U, m- |$ v6 q
(Initget 1) (Setq C (Getstring "\nEnter new text style: "))
D! `2 ?+ n: i2 d, [' I5 a
(Extang C) (While (> B 0) (Setq B (1- B)) (Setq D (Ssname A B))
( w0 W& c+ ?8 b: K; l; t
(Setq D (Entget D)) (Setq E (Assoc 7 D)) (Setq F (Cons 7 C))+ C! {; W5 V- y' `) k/ K
(Setq D (Subst F E D)) (Setq H (Assoc 51 D)) (Setq I (Cons 51 J)): R. D4 b2 N2 f. {& V! H# t: z
(Entmod (Subst I H D))) (Setq A nil)) ((Or (= G "ST") (= G ""))* E* O6 J. A( I/ @1 X
(Initget 1) (Setq A (Strcase (Getstring* C* j" s9 L9 f6 S- j, `& ^
"\nEnter text style to change: "))) (Initget 1)
1 S8 o( c' b' ]. D' W) `. W
(Setq C (Getstring "\nEnter new text style: "))(Setq D (Entnext))
/ s: J/ B1 A: s! J t0 H/ j( q
(Extang C) (While D (Princ ".") (Setq E (Entget D)) (If. T' F* j4 _" b# U8 ~
(And (= "TEXT" (Cdr (Assoc 0 E))) (= A (Cdr (Assoc 7 E))))7 r3 a: @. N3 s8 {
(Progn (Setq F (Assoc 7 E)) (Setq G (Cons 7 C))* x) k+ l! V E. q5 M' G$ R
(Setq E (Subst G F E)) (Setq H (Assoc 51 E)) (Setq I (Cons 51 J))$ f9 C; O7 P6 c) g- x/ k
(Entmod (Subst I H E)))) (Setq D (Entnext D))))) (Princ))
* N& S; P9 I9 V1 q% H
, G8 Q$ C$ \2 \$ l& Q( @
(Defun Extang (A) (Setq A (Tblsearch "STYLE" A))
5 f9 {% \ S! k
(Setq J (Cdr (Assoc 50 A))))
7 o9 _: {( H/ T% h
% F9 {9 U# T7 ?
;;; ============================ DRAW CLOUD =============================/ J( l$ C$ S" m2 ?: ?
- x# T# m, Z8 R Q5 Q) ]2 p; E, g
(defun CLOUD (/ pt1 pt2 arc1 cnt ss la) (setvar "cmdecho" 0)
( S0 i5 f, t. M! u2 T+ q5 I' t
(prompt "\nVe cloud (may) khong khep kin - Tu khep kin ve diem dau!")
$ o. ~9 B3 v4 h( ~7 @2 R$ v* t
(setq la (getvar "clayer"))9 F, f8 j+ `8 k1 F# f8 N3 M
(command "layer" "m" "cloud" "c" "5" "" "")( Z E. l0 V- S! ^5 z
(setq pt1 (getpoint "\nEnter first point of Cloud: "))7 i) R( W. a) t4 w X
(if pt1 (prompt "\nProceed in a COUNTER-CLOCKWISE direction..."))
$ S+ _+ \0 {2 Q {! M/ o
(setq cnt 1 ss (ssadd))+ ]/ }2 o3 N: e- \9 {
(while pt1 (setq pt2 (getpoint "\nEnter next point - and close: "))4 i5 K2 ]$ j# r p& {( W7 I
(if pt2 (progn (command "arc" pt1 "e" pt2 "r" (/ (distance pt1 pt2) 1.75))7 d1 L2 m# e9 M) w; q# G
(if (= cnt 1) (setq arc1 (entlast) cnt 2) (ssadd (entlast) ss)) ))3 h4 V) O* J+ \+ F9 Y
(setq pt1 pt2) ) (setvar "highlight" 0) (if (> (sslength ss) 0)
! S! _" Q8 Y4 V* C+ \
(command "pedit" arc1 "y" "j" ss "" "x"), x3 [( e- v' z7 j. D- S; P
(if arc1 (command "pedit" arc1 "y" "x")) ) (setvar "highlight" 1)& S) t4 ^) Q/ i9 G
(command "layer" "s" la "") (setvar "cmdecho" 1) (princ))
, F2 k& K; i( l9 [5 O! @
(DEFUN C:CLOUD () (CLOUD)) (DEFUN C:CLO () (CLOUD))
" b7 Z; U0 e! r* I) x* q& Q0 U
2 d$ R0 `/ F0 I! a. g+ D: ~( J. l
;;; ================================ Funtion-Dulieu ========================/ j! {8 k5 ~* W1 F& k
;;; ================================ Funtion-Dulieu ========================
# E* j: s9 Q; x
;;; ================================ Funtion-Dulieu ========================
: L* q. w) F9 S1 i& ~$ m: l
( r0 s0 H7 n$ J( h j% h6 `
(defun ha:nhap (kytu thamso) (princ kytu) (princ thamso) (princ ">: ") (setq key (getint)) (if key (setq thamso key)) (princ thamso) )3 [' R9 J# W+ q
(defun ha:thoat () (reinit) (setq Temp "Da thoat khoi chuong trinh"))" h& r! ^: f5 g# g5 m; r
(defun khoangcach (kh khq11 khq12 / h0 h1) (setq h1 (polar kh (angle '(0 0) (vectophap khq11 khq12)) 500)) (setq h0 (inters khq11 khq12 kh h1 nil)) (distance kh h0))
4 l% v- [9 a L7 t* N% c: t
(defun hacat (hacat1 hacat2 / hacat3 chon) (if (and (/= hacat1 nil) (/= hacat2 nil)) (progn (setq hacat3 (polar hacat1 (angle hacat1 hacat2) (/ (distance hacat1 hacat2) 2))) (setq chon (ssget hacat3)) (command "break" chon hacat1 hacat2) ) ) (princ) )
* B1 Z8 v" _- M9 y, M0 r; f' Y
(defun hauon (hauon1 hauon2) (command "fillet" hauon1 hauon2))9 s6 k: g. l; N4 B$ {4 Q
(defun init () (setvar "blipmode" 0) (setvar "cmdecho" 0) (setvar "angbase" 0))
2 ?( i% g0 n7 n6 J8 Q3 h2 J
(defun reinit () (setvar "cmdecho" 1) (setvar "osmode" 0)): N. D( H7 ^/ q3 @6 h- a3 v
(defun tichvecto (vecto1 vecto2) (apply '+ (mapcar '* vecto1 vecto2)))- B8 ]* m: S. y; y1 f, ?
(defun vectophap (v01 v02 / vectochiphuong) (setq vectochiphuong (mapcar '- v01 v02)) (list (cadr vectochiphuong) (* -1 (car vectochiphuong))))
% J6 l5 ?% @; g% ~
(defun ha:giaodiem (dc1 p1 p2 / hc hc1 diem1) (setq diem1 (vectophap p1 p2)) (setq hc1 (polar dc1 (angle '(0.0 0.0) diem1) 100)) (setq hc (inters p1 p2 dc1 hc1 nil)))- t# }! D! P3 L4 j1 ?0 F* J
(defun dtr (dtr) (* pi (/ dtr 180.0)))
( y. z1 F6 U! ?/ z" M0 Q. w
(defun rtd (rtd) (* 180.0 (/ rtd pi)))2 c8 T% V# H7 a4 S1 E( D
, F" o% A6 o$ q/ O3 o* L
;;;==============================PROGRAME===============================" Q; ]9 i; h& M- A' H
;;;=====================EditDiM Hien Hop Thoai Dep======================3 ~% | N- u2 ~: e4 J
;;;==============================PROGRAME===============================* h2 R" o8 G' G9 r
2 ]# W2 U$ U# c& C
;;Dth Edit Text, Dimtex & Attributes(Chu Co Thuoc Tinh)
5 g& f. w0 H! ?! i
;;Chay Cung Du Lieu.Lsp & Hai.Dcl& k, G3 w, o# J# c5 \
(Defun Hai_Edim (Chon / Dial State Str Oldlis Dimdefault Pt10 Pt13 Pt14 St Ang Dis Pt Hc)! c8 b, q2 V) ?) X% A {) K# e
(Setq Oldlis (Entget (Car Chon))
; N. _5 A' W- ?: ]/ a
Pt10 (Cdr (Assoc 10 Oldlis))$ r- a3 F, n7 [' @0 i- r
Pt13 (Cdr (Assoc 13 Oldlis)); E# v0 o$ W) g" u
Pt14 (Cdr (Assoc 14 Oldlis))
" ~8 S0 }& |7 R9 J" y! ?% Y
St (Cdr (Assoc 70 Oldlis))/ X- \$ d5 P. L2 Q p9 |1 v
Dimdefault (Cdr (Assoc 1 Oldlis))
, x- I% M2 a% V
)9 P! t; `4 K( Q/ _" Y; o6 C6 C
(Cond o1 t5 z+ e8 _% }, [; ?; p; n
((Or (= 32 St)(= 0 St)(= 160 St)) I: G: a7 T7 t3 }+ p
(Progn
+ u/ I) G4 R$ U. H3 Q
(Setq Ang (Cdr (Assoc 50 Oldlis))
) X1 K7 {( j) B0 |: t9 G, b* Z
Pt (Polar Pt13 Ang 500)
7 o0 O% q ^4 m. k
Hc (Lay_Hinh_Chieu Pt10 Pt13 Pt)
' s/ R5 X4 o6 s
Dis (Rtos (Distance Pt13 Hc))( Q! ^2 c/ X1 V7 Q+ \% ]8 i
)
# ?5 E% V! k% v" G
)
S f" p& c; y! t
)
( [ k' _& j! D) ]( A. ~3 ?
((Or (= 33 St)(= 1 St)), K1 K L; E+ A; b9 ~3 H
(Progn(Setq Dis (Rtos (Distance Pt13 Pt14)))))1 g+ \& p; ~0 N$ N6 V" t& q
);;End Cond' b6 Z) a0 ?: e6 \! J O( l
(If (= Dimdefault "") (Setq Dimdefault "<>"))- z" F8 F$ n4 t B7 N6 }, G8 P
(Setq Dial (Load_Dialog "Hai.Dcl"))7 F' _8 G- ~1 Y8 M2 X2 }
(If (Not (New_Dialog "eddim" Dial)) (Exit))8 Y6 X' ]: m) I) U
(If (Or (= 32 St)(= 0 St)(= 160 St)(= 33 St)(= 1 St))4 I- o0 D/ ]9 {
(Set_Tile "text" Dis))
i; k5 O! y) h' M2 N
(Set_Tile "ha:edim" Dimdefault)
5 A5 Y: L% N4 s
(Mode_Tile "ha:edim" 2); Tao Dau Nhac Tai Hop Thoai3 K' u7 I: e' L* ?2 V. O
(Action_Tile "ha:edim" "(Setq Str (Get_Tile \"ha:edim\"))(Done_Dialog 3)")
, r c R9 Q, @1 q4 L; B
(Setq State (Start_Dialog))(Unload_Dialog Dial)1 S4 |( s1 Q% c( o
(If (And Str (= 3 State))
a0 c7 ?) w% U5 E" F) G
(Progn
: g" x: S" b9 X8 E* R1 Y( u8 @5 f
(Setq Oldlis (Subst (Cons 1 Str) (Assoc 1 Oldlis) Oldlis))(Entmod Oldlis)))4 z x5 [+ n. Z3 Z3 b( t
)6 z2 g2 ^# f, P* s
(Defun C:EH (/ Chon Name )
, v9 Y5 X$ E% M* M
(Defun *Error* (Msg)
9 e! P! G) S0 L9 N
(Princ "\nerror: ")(Princ Msg)(Princ " "), f& Q) p6 b8 O0 D D. \: e* G* f! h
(Start_Dialog)(Unload_Dialog Dial); _# r5 Z& A4 Q0 q% ]1 K
(Setq *Error* Olderr)(Princ), V$ S6 Y g+ P1 W
)
; V: e/ @$ c& V
(Setq Olderr *Error*)
w U. V! P; L' m. C0 M/ A2 F# P
(Setq Chon T)" e' j+ q1 W8 g. d4 |4 h
(While Chon |6 F7 {7 ]1 P/ A$ d
(Setq Chon (Entsel "\n\n\nSelect Text, Dimtext Or Attributes To Edit..."))
$ x( t& d7 o, u
(If Chon( D, i4 J/ U( N
(Progn6 j9 p' m2 i! Y2 O8 ^' `' _
(Setq Name (Cdr (Assoc 0 (Entget (Car Chon)))))
7 ~1 n( w9 _ ]% f2 t1 E ?
(Cond
7 Z7 j; v( z. D B6 N2 b- X5 E
((= Name "INSERT")(Command "Ddatte" Chon))! t; o2 f. L5 K! Z @
((Or (= Name "TEXT") (= Name "ATTDEF") (= Name "TOLERANCE") (= Name "MTEXT"))(Command "Ddedit" Chon ""))
4 b7 o, Y" ^5 C, ~- m
((= Name "DIMENSION") (Hai_Edim Chon))
/ {) ~* f7 O: }( L$ d
)
; {' m+ Z# u0 |+ D. Q# r
);End Cond. A* `+ J/ }7 R0 y
);End Progn
X+ g, w, F+ R/ m
);End While
: Q K' y7 u: t' Q; X7 I P
(Setq Olderr *Error*)(Princ)/ d5 T, Z9 X5 L W4 K, ?
);End Program( j* n6 ^( [2 U1 @
+ t# O2 Y* e$ _0 l5 s. d8 U) e
;;;====================DDeditDim=====================: m) G1 G$ r, t8 N$ L
;;;=====================Hai.DCL======================/ a* f; ~; r7 ]. P6 t+ g# V+ D3 g
;;;====================DDeditDim=====================
- B. Q' t1 ]1 I, m. g4 X
6 l' v( i; h% H- [2 L
;;Dth Edit Text, Dimtex & Attributes(Chu Co Thuoc Tinh)
2 Q7 ~( N( ]5 P8 P- Y3 h
;;Chay Cung Du Lieu.Lsp & Hai.Dcl& A6 I( i+ `! U6 t/ q) b+ q
(Defun Hai_Edim (Chon / Dial State Str Oldlis Dimdefault Pt10 Pt13 Pt14 St Ang Dis Pt Hc)" ]% O6 M" p* m* J2 ^
(Setq Oldlis (Entget (Car Chon))
4 O2 Y6 I& a, o, H3 g, R
Pt10 (Cdr (Assoc 10 Oldlis))
9 s! _/ t7 j( H6 e) R# j3 c
Pt13 (Cdr (Assoc 13 Oldlis))) r" A# s6 }9 Q& K9 q" q
Pt14 (Cdr (Assoc 14 Oldlis))
) C' Y0 ~. m+ @; K7 [! e7 Y+ x
St (Cdr (Assoc 70 Oldlis))
( \- u& k9 B7 Y5 F
Dimdefault (Cdr (Assoc 1 Oldlis))5 x2 p4 i$ p9 ~; M; ~0 ?' t
)# ]( d0 P4 v- U- P
(Cond
: Y8 U$ p) ^) S. R' S
((Or (= 32 St)(= 0 St)(= 160 St))
3 X# H! F& C! x- x4 W
(Progn
# A6 Y! T6 j9 N! |+ s- U
(Setq Ang (Cdr (Assoc 50 Oldlis)), z- _) Y/ P, q: b3 f. t
Pt (Polar Pt13 Ang 500)6 m7 P: p- i' R2 }/ A
Hc (Lay_Hinh_Chieu Pt10 Pt13 Pt)& e6 m4 N+ {* }' J. o/ R3 S
Dis (Rtos (Distance Pt13 Hc))
$ Z! K3 L+ o: I4 D! F0 P
)
) P$ p$ m" Y; G6 A( C
)& X' h" `( s3 c
)$ g2 l1 }& _5 |* ^, u2 M6 s
((Or (= 33 St)(= 1 St))9 [0 U8 x. _! \
(Progn(Setq Dis (Rtos (Distance Pt13 Pt14)))))
$ p( Z* O7 K5 U/ F
);;End Cond
6 U3 n% f( n1 m1 X0 }% @
(If (= Dimdefault "") (Setq Dimdefault "<>"))
% R2 g: o, C# a$ V
(Setq Dial (Load_Dialog "Hai.Dcl"))2 n9 D ]3 _+ Q; V1 _
(If (Not (New_Dialog "eddim" Dial)) (Exit))5 H1 u# y, e5 t* y5 w) s
(If (Or (= 32 St)(= 0 St)(= 160 St)(= 33 St)(= 1 St))4 T, j5 v2 f) {# @* @! h1 S
(Set_Tile "text" Dis))
! Q, ^2 |1 ~$ U2 A7 ~0 |
(Set_Tile "ha:edim" Dimdefault)! ]/ _: r' p; Y! z- [# U5 F
(Mode_Tile "ha:edim" 2); Tao Dau Nhac Tai Hop Thoai
. N! g) a. Q- A! j, V
(Action_Tile "ha:edim" "(Setq Str (Get_Tile \"ha:edim\"))(Done_Dialog 3)")2 o3 e' c3 Y8 B/ i+ y% B
(Setq State (Start_Dialog))(Unload_Dialog Dial)
9 n/ E- e, N& k
(If (And Str (= 3 State))1 }4 i7 ]4 W8 u& x; a/ n' Z% Z$ ~
(Progn$ o# V2 i. q( r
(Setq Oldlis (Subst (Cons 1 Str) (Assoc 1 Oldlis) Oldlis))(Entmod Oldlis)))4 G/ \% W' A6 ?/ q8 @$ w
)% o; [% x1 q3 s5 g
(Defun C:EH (/ Chon Name )
9 H) t7 `: @4 M8 l
! L% V. s' j6 x/ N# u) t
;;;********************Du Lieu********************
8 v8 b8 S8 `3 P* V
' W; M, V1 j' Q. N% l" G2 N& X8 i
(Defun Ha:Thoat () (Reinit) (Setq Temp "Da Thoat Khoi Chuong Trinh"))
1 W! u# l: j4 N# t
(Defun Hacat (Hacat1 Hacat2 / Hacat3 Chon)
9 }1 \8 N& O8 C! F. A/ O6 K5 I
(If (And (/= Hacat1 Nil) (/= Hacat2 Nil))
/ E- ~. J" B# S v* V- j# N2 Q
(Progn$ z. U. D. @. l& p0 f/ m
(Setq Hacat3 (Polar Hacat1 (Angle Hacat1 Hacat2) (/ (Distance Hacat1 Hacat2) 2)))/ n) X! g; d. q
(Setq Chon (Ssget Hacat3))
) V3 s) B" S/ |5 D! R3 H9 h3 s
(Command "Break" Chon Hacat1 Hacat2)" x0 Y) H5 o; ~3 I8 E, V+ N5 z2 i
): ^5 V: U- F1 R& k8 e" C" g0 z
)
5 y5 r0 u( ^+ N3 t R1 g, }
(Princ)
4 k3 e: M+ A J
)! M/ Y* ~5 I$ K, r
;;
, W _6 Z# D( X" k3 C. O! @% T
(Defun Hauon (Hauon1 Hauon2)(Command "Fillet" Hauon1 Hauon2))3 D% E7 k: m+ s: W9 |
;;; X+ A+ H) R( _( n
(Defun Taolop (Mau Lop / A)(Setq A(Tblsearch "Layer" Lop))(If (Null A)(Command "Layer" "_N" Lop "_C" Mau Lop "")) (Setvar "Clayer" Lop))$ N8 D- U0 v+ ^) ~# Y
;;. O2 D7 P: m4 o& ]& o& D& K0 o( r3 O
(Defun Init ()(Setvar "Blipmode" 0)(Setvar "Cmdecho" 0)(Setvar "Angbase" 0))
~3 y" c0 \' S+ F* J
;;
8 ?( o: a- g' s S0 ?
(Defun Reinit ()(Setvar "Cmdecho" 1))
3 z. C' C! G& p: k
;;
. N8 `3 j4 {! D5 ]( u& l5 t
(Defun Tichvecto (Vecto1 Vecto2)(Apply '+ (Mapcar '* Vecto1 Vecto2)))
0 {0 ]# n5 X- A0 `
;;
; U/ z/ V: F: `/ }" p
;;Cho 2 Diem Tinh Ra Vec To Phap; U6 q+ }: A5 U& J- j; |% B
(Defun Vectophap (V01 V02 / Vectochiphuong)(Setq Vectochiphuong(Mapcar '- V01 V02)) (List (Cadr Vectochiphuong) (* -1 (Car Vectochiphuong))))
+ A- ~/ U2 h, J: N* @, Q) O1 k
;;Xac Dinh Vi Tri Hinh Chieu 1 Diem Len 1 Duong Thang- G5 ?: B4 H/ d7 ]/ W4 s( d
;;Da Biet 2 Diem Thuoc Duong Thang
f+ F ^. [, X4 H/ D/ p
(Defun Lay_Hinh_Chieu (Dc1 P1 P2 / Hc Dc2)
4 R/ V! o) G6 P: X
(Setq Dc2 (Polar Dc1 (+ (/ Pi 2) (Angle P1 P2)) 100)) t) u0 ~) W% T2 |9 v: |7 Z! |* P
Hc (Inters P1 P2 Dc1 Dc2 Nil)))
; ?3 t! i0 y+ V `# l6 B$ }
;;Xac Dinh Khoang Cach Tu 1 Diem Len 1 Duong Thang- O& b8 {+ X5 J" G4 n) P" X- r# q
;;Da Biet 2 Diem Thuoc Duong Thang* w+ V4 b8 t" l# K
(Defun Khoangcach (Dc1 P1 P2 / Dc2 Hc)
3 N% ~2 @/ i' d: {
(Setq Dc2 (Polar Dc1 (+ (/ Pi 2) (Angle P1 P2)) 100)5 w8 i5 X+ d" D, f
Hc (Inters P1 P2 Dc1 Dc2 Nil))
% c2 j- E8 m2 q8 O
(Distance Dc1 Hc): r5 x. d, x5 z/ O& A
)
8 c( A' _, [! B1 V5 f
(load "nhapcua.lsp")
1 m1 b! Z6 o& v n, H
(Defun *Error* (Msg)
$ v3 N9 H* y# ^
(Princ "\nerror: ")(Princ Msg)(Princ " ")
& Q" a+ Y. X) ]0 H# g
(Start_Dialog)(Unload_Dialog Dial)& X- ~" N2 [6 c3 t7 @" E
(Setq *Error* Olderr)(Princ)
, B+ b4 K, T2 x5 [- o3 S' V
)
3 r3 ~! C3 N" Y* [' o
(Setq Olderr *Error*)! {( @, l/ p1 L5 l5 K2 B1 J
(Setq Chon T)" |# ] \" j, D% ^: H" g
(While Chon) @; k6 C) \) g
(Setq Chon (Entsel "\n\n\nSelect Text, Dimtext Or Attributes To Edit...")), u! B/ [7 d9 z, C1 H8 [! N
(If Chon
. R0 u S* @4 U
(Progn
1 U% O) K& f6 c M1 _' b# Q
(Setq Name (Cdr (Assoc 0 (Entget (Car Chon)))))
5 Z! k6 k. {: f* g1 `
(Cond2 c5 E) ?, A2 \; ]9 W/ @. v) h* Q L
((= Name "INSERT")(Command "Ddatte" Chon))! X& J! L, o% ]4 `! ~* | k
((Or (= Name "TEXT") (= Name "ATTDEF") (= Name "TOLERANCE") (= Name "MTEXT"))(Command "Ddedit" Chon ""))8 T3 y. W: M5 B4 e. ^
((= Name "DIMENSION") (Hai_Edim Chon))9 i# x+ w |8 o
)
3 ^2 w2 X: c) V/ E' D$ t
);End Cond: C4 P: u6 [0 k- [" a, r' l
);End Progn
* f8 u3 h( _& y: \5 {2 z
);End While1 v5 R; o1 J( ^1 L) q+ `
(Setq Olderr *Error*)(Princ)
# w$ n4 s2 w# {4 c
);End Program7 w# d1 J+ L1 W& U
- i$ u4 p5 q/ q
;===================HAI DCL Nhapcua.LSP De chay Hop Thoai EditDiM===================$ P" u8 S' @# d9 O
;====================================Nhapcua.LSP====================================9 X2 j: x5 ^* L7 E. ?: U
;===================HAI DCL Nhapcua.LSP De chay Hop Thoai EditDiM===================
2 B7 W% @$ [4 R- [: @4 `
: X9 m' j8 M3 `' G" x: y0 f
4 D1 C$ ?' D+ U6 }# ^! n5 V
0 m) m# n2 M: K" w: r/ _
;*******************;*******************;*******************;*******************3 z1 f6 _7 B) R: e' `. h( Z* H/ S- E$ `
;****K E T C A U****;****K E T C A U****;****K E T C A U****;****K E T C A U****
: L6 j* t8 V C/ i
;*******************;*******************;*******************;*******************) ] y+ k2 `' t" k2 b" w3 J( a: @5 i8 ?
# J: }9 A9 V, O+ l8 C; q
;VE HINH BINH HANH3 b9 f. n9 _# j/ t9 m3 u+ ?
- ^' [6 Q0 u. h+ W3 O" E
(defun c:binhhanh (/ p1 p2 p3)
* v7 g5 l1 G$ D4 u. g: T4 v& l+ p( ^
(setq p1 (getpoint "\n Nhap diem thu nhat:"))
% T- L- @' G/ `: f Q/ v
(setq p2 (getpoint p1 "\n Nhap diem thu hai:"))
: s* T8 d- @% ~ K* E
(setq om (getvar "osmode"))6 D& v( X4 S! v+ g2 R3 g
(setvar "osmode" 0)
y) Y& I4 X1 H. i* L1 ]7 Q% W: @
(command "line" p1 p2 "")( a% [$ B7 Q2 g8 `( y
(setvar "osmode" om)% G6 w+ [3 F4 A, a5 D: X8 j
(setq p3 (getpoint p2 "\n Nhap diem thu ba:"))5 F9 o' ~) l& \- b
(setq a (angle p2 p1))) P4 V+ t7 S @
(setq d (distance p1 p2))5 V6 c* T1 {8 v. w, ^9 _# Q
(setq p4 (polar p3 a d))1 u G6 |/ i$ S: f: x$ t& j7 ?
(command "OSNAP" "none")
0 f% ~7 T5 ~) Y' l" o
(command "erase" "l" "")
4 c' y9 D. u* a; u8 E" i R
(command "pline" p1 p2 p3 p4 p1 "")8 S, e0 f% l; R$ q2 ]: `3 [# k
(setvar "osmode" om)
; y. `7 \' Y8 I& A
), m5 q; H8 i! l( \; n( [' y8 M! S1 f2 T$ M
~2 ?( r& J5 a
;VE LUOI COT
1 R# n# n2 D3 a6 \5 V
! [* l; @% p" x1 Q
(defun c:LuoiCot ()' D/ ^( L2 g |5 _; Z! K9 [/ O
(setq om (getvar "osmode"))
+ \ J: l3 {* q, h7 ]8 T/ L
(setvar "osmode" 0)% f( D( S9 H" p* [7 `# z- M
(setq tile (getreal "\nCho biet Ti Le ve 1/x, x="))
( O1 Y. ~ R% Y4 F- Y5 H
(setq p0 (getpoint "\n Chon Basic Point:"))
/ z' F; y% w" ^! h! |7 D
(setq nc (getreal "\n Nhap chieu ngang cua cot : "))
( \$ [7 c2 \- ?) W9 z
(setq dc (getreal "\n Nhap chieu doc cua cot : "))! n% j4 L, p$ B3 ~
(setq p1 (polar (polar p0 pi (/ (* nc hstl) 2 tile) ) (* pi 1.5) (/ (* dc hstl) 2 tile) ) )8 [% S! C9 E; {6 b% Y* y% U
(setq p2 (polar (polar p0 0 (/ (* nc hstl) 2 tile) ) (* pi 0.5) (/ (* dc hstl) 2 tile) ) )# \& E7 {6 @: B P# @
(command "rectang" p1 p2)
" q. P# j- a; X- m
(command "hatch" "solid" "l" "")3 I# a3 p5 a z+ v
(setq bcn (getreal "\n Buoc cot theo phuong ngang : "))
7 f/ o1 }/ J3 _; c# C
(setq nn (getint "\n So buoc cot phuong ngang : "))
, `- K/ c2 @# F D7 Q
(setq w1 (polar (polar p1 pi (/ (* nc hstl) 2 tile) ) (* pi 1.5) (/ (* dc hstl) 2 tile) ) )# z8 x7 m8 S8 J) d
(setq w2 (polar (polar p2 0 (/ (* nc hstl) 2 tile) ) (* pi 0.5) (/ (* dc hstl) 2 tile) ) )/ P7 A7 w) U2 b$ M+ j2 |0 z
(command "select" "w" w1 w2 "")
" ?9 P+ C4 H) p& L' J1 w5 V9 h9 y
(command "array" "p" "" "r" "1" (+ nn 1) (/ (* bcn hstl) tile) )5 q$ l6 c3 C; a! ], D- F
(command "line" (polar p0 pi (/ (* 1000 hstl) tile)) (polar p0 0 (/ (* (+ (* bcn nn) 1000) hstl) tile) ) "")
* u8 k0 l. \- s0 l% M1 h
(setq w1 (polar (polar p0 pi (/ (* hstl 2000) tile)) (* pi 1.5) (/ (* hstl 2000) tile) ))0 D v; Y$ S& C" s8 P
(setq w2 (polar (polar p0 0 (/ (* (+ (* bcn nn) 2000) hstl) tile) ) (* pi 0.5) (/ (* hstl 2000) tile) ))' K- c3 A! f4 |" R: P# S
(command "zoom" "w" w1 w2)
0 U, E/ [) f5 ^) ~8 `' q6 M/ X
(command "select" "w" w1 w2 "")
5 [. O+ X( N2 U& a% k
(setq bcd (getreal "\n Buoc cot theo phuong doc : "))
D/ n; g: H4 \& y
(setq nd (getint "\n So buoc cot phuong doc : "))
$ L& ?1 r% E" K4 `
(command "array" "p" "" "r" (+ nd 1) "1" (/ (* hstl bcd) tile) )
! x3 |" c9 J9 g3 z% M! h
(command "line" (polar p0 (* pi 1.5) (/ (* hstl 1000) tile)) (polar p0 (* pi 0.5) (/ (* (+ (* bcd nd) 1000) hstl) tile)) "")2 G' i! A* h( t: Z5 b
(command "array" "l" "" "r" "1" (+ nn 1) (/ (* hstl bcn) tile) )% m" @$ z4 M; ?6 ]
(setq w2 (polar w2 (* pi 0.5) (/ (* (+ (* bcd nd) 2000) hstl) tile)) ) 6 k9 ]8 a# @4 G4 `+ z
(command "zoom" "w" w1 w2)
" R1 @& ^3 `) q4 @7 t
(setvar "osmode" om)
- T/ p* S3 f( x$ v4 _4 b
)+ t' i6 b$ B3 L Y# ]+ U
9 s0 ]7 X+ N7 O2 Q. o$ W0 A
;VE CUA DI
: C2 X# F0 H7 z) H( @6 m5 {- ^# O
/ P6 T5 M& R! Y% X
(defun c:cuadi ()3 |/ z" H" Q5 |
(setq om (getvar "osmode"))" x! o0 h& ?2 D# j; d+ X* |9 e
(setvar "osmode" 0)9 E3 k) g8 R" G; ]; U7 G
$ D) l1 C$ ^, |8 Y; V; R' I
(setq tile (getreal "\nCho biet Ti Le ve 1/x, x="))
5 g1 ?/ S- W. @7 {( ^; j
(setq b (getreal "\n Nhap be rong cua : "))
+ C2 y6 D( Z5 n$ C e( @+ S& K
(setvar "osmode" om)5 t0 x) l8 n Z2 B* N) c
(while (< 0 1)6 C6 V& s5 A2 N! i$ k( M2 l& h; m
(progn
+ H; c* O" d' h9 u) J+ `( H0 M
(setq p0 (getpoint "\n Chon Basic Point:"))- ?/ m. w) K$ E; \
(setq p1 (getpoint p0 "\n Chon diem de xac dinh huong cua cua:"))4 n6 q% a* {6 d- h/ I# ^
(command "osnap" "none")
( E+ x2 a3 E( g6 s8 `
(setq p2 (getpoint p0 "\n Chon diem de xac dinh huong mo cua:"))! c( _* G" u N# f, [. V# U
(setq a1 (angle p0 p1))
0 D. J e f- n9 q
(setq p1 (polar p0 a1 (/ (* hstl b) tile)))
( e: q3 A# a& p- E. D& h; J
(setq a2 (angle p0 p2))
4 A4 s) v0 l5 Y& \0 Q* M8 f
(if (< (- a2 a1) pi) (setq a3 (+ (/ pi 2) a1)) (setq a3 (- a1 (/ pi 2))) )
1 a7 l1 I, ^' m$ I6 @0 Y; r2 j
(command "pline" p0 "w" "0" "0" p1 (polar p1 a3 (/ (* hstl 40) tile)) (polar p0 a3 (/ (* hstl 40) tile)) p0 "")
' V7 ?* i/ \' e
(command "rotate" "l" "" p0 (/ (* (- a3 a1) 180) pi))2 J0 M5 T2 n- d1 {6 M
(command "arc" "ce" p0 p1 "a" (/ (* (- a3 a1) 180) pi)) ) P6 S$ f' I* V" V& h8 y" a4 F
(setvar "osmode" om)* f% Q4 N0 d( t, n, M- Q, X
))
2 u$ k" {: ~1 w* b# q* l% g, r9 T
)0 g+ v6 u3 Z2 ~
/ C, T+ e0 }/ w+ D+ J. I8 b H
;VE CUA SO
) R2 R- i7 m& M5 B
/ f7 E9 P/ _5 H. H, t9 ?
(defun c:cuaso ()/ @3 M/ w7 I: F% C- K
(setq om (getvar "osmode"))% W" r% P/ |) t$ L3 u1 ^
(setvar "osmode" 0)
; \6 @4 X8 V a1 V- Y% o
; {0 ~6 O) L, z& l& a
(setq tile (getreal "\nCho biet Ti Le ve 1/x, x="))
% H$ N( I- C! z: }
(setvar "osmode" om)4 n1 n3 d& F' o1 M
(while (< 0 1); C# D' z# K0 @
(progn
" Q& t) y+ G3 M9 k
(setq p0 (getpoint "\n Chon Basic Point:"))
% B+ c; ]6 |' c" i7 N
(setq p1 (getpoint p0 "\n Chon diem de xac dinh be rong cua:"))
t/ {8 m( C6 B: s! |9 G; h
(command "osnap" "none")
1 X1 J" t6 r# q$ r
(setq p2 (getpoint p1 "\n Chon 1 diem o trong nha de xac dinh huong cua so:"))/ R# X2 n% n# _4 T1 j- U
(setq b (distance p0 p1))( \. G9 b- j; l K
(if (< b (/ (* hstl 600) tile)) (setq du 50))
5 P; U% p% L! I/ ^( C; w
(if (> b (/ (* hstl 600) tile)) (setq du 150))! Y, `4 q8 h; Z/ q4 ~4 M& s
(if (> b (/ (* hstl 1800) tile)) (setq du 200))
% d/ J9 i" ?+ N' h e, w
(setq a1 (angle p0 p1))4 w q4 }) |, Q8 V7 _3 b
(setq a2 (angle p0 p2))
+ l; u8 ~3 D; H* R# \3 A5 v0 j; Q
(if (> a2 pi) (setq a2 (- a2 (* pi 2)) ) ); g! @0 e1 Z/ V& F/ j% q
(if (> (- a2 a1) 0) (setq a3 (+ (/ pi 2) a1)) )1 p$ y* K! D$ g
(if (> (- a1 a2) 0) (setq a3 (- a1 (/ pi 2))) )4 \6 c% i2 c, ?% R
(command "pline" p0 "w" "0" "0" p1 "")
, I6 e: ?+ c, K* D, f" P8 D
(command "pline" (polar p0 a3 (/ (* hstl 50) tile)) (polar p1 a3 (/ (* hstl 50) tile)) "")
: ?7 i D8 |* d! \8 R
(command "pline" (polar p0 a3 (/ (* hstl 100) tile)) (polar p1 a3 (/ (* hstl 100) tile)) "")
9 U$ {1 M: B" P( C: f' D
(command "pline" (polar p0 a1 (* (- du) (/ hstl tile))) (polar (polar p0 a1 (* (- du) (/ hstl tile))) a3 (* -100 (/ hstl tile))) 2 v* D `: B* d# u# u; l
(polar (polar p1 a1 (* du (/ hstl tile))) a3 (* -100 (/ hstl tile))) (polar p1 a1 (* du (/ hstl tile))) "")
+ T8 D0 w5 D2 I M
(setvar "osmode" om)% K2 N* h) @$ M* F# z4 ]! s
)) l6 m7 M, s7 z) l0 J+ j1 v( v! x
)% L9 B9 \' S& F; [# T* Q' R. K
# L' f; V, ?1 K4 J1 D) \
;;;=== General Utility Functions ===, @$ [9 U6 f$ ?# B- F9 y
9 r& r \; e) z. Z- }
; R12 compatibility - In R12 (acad_helpdlg) was an externally-defined
* W' r9 O6 S+ { D+ e2 k1 V) Z
; ADS function. Now it's a simple AutoLISP function that calls the
- Y8 [1 N4 J1 z
; built-in function (help). It's only purpose is R12 compatibility.
& r# D9 K" h- s- F# s, K& ^8 v+ @
; If you are calling it for anything else, you should almost certainly
# l3 V7 V2 h! @) n" i2 f' ~
; be calling (help) instead. ' U- m- i2 Y; J( [+ D
) q; x; b+ ^7 n% c
(defun acad_helpdlg (helpfile topic)
, F5 h. `- O7 w8 }3 ?
(help helpfile topic)$ h( W" g: P3 h9 @% w2 f Q T
)
+ {' G0 m ]% }
& I, t; o e0 ]1 i
4 u- B1 u* Z3 L4 t. i% v1 ~
(defun *merr* (msg)
+ ~: p ?; M; f) j6 Z7 a6 k/ E
(setq *error* m:err m:err nil)
. ]9 ^ c( @3 Z$ f4 \) T+ Y
(princ)1 J g: ]# j: i5 Z$ M
)! N) F ^: V9 \4 ]. Z7 P2 O/ d
6 V, o N b( g% W
(defun *merrmsg* (msg)( Q# o \) F8 R3 b
(princ msg)/ I+ i, Z3 r% G: s }& K
(setq *error* m:err m:err nil), j/ H" `1 G+ a+ S. A( u
(princ)' Q, A* _+ V! j1 D4 L
)
2 W5 I! D' `; o- o* W2 D Y
1 u. r5 e( Y; y7 V3 s
;; Loads the indicated ARX app if it isn't already loaded8 Q) q: A1 b6 g% U
;; returns nil if no load was necessary, else returns the
% L$ n; v+ ~4 B- d! F8 m
;; app name if a load occurred.
, J8 c" c4 {. A: x
(defun verify_arxapp_loaded (app) ' z" g$ ?, J+ ?
(if (not (loadedp app (arx)))
2 \/ Q/ w9 {3 ^( w1 a! |) K
(arxload app f)
) d9 i# @ X6 |
)
) m' y- M4 i% K) l( P3 R
)
$ e2 q; {+ ?2 Z
" N6 |' J" G9 v& Y: r* c8 q0 o4 G
;; determines if a given application is loaded...
4 s/ b7 H7 L A+ k8 a; w
;; general purpose: can ostensibly be used for appsets (arx) or (ads) or....# M& W! n& s+ ]% N+ l7 x$ s
;;
+ ]+ h% |) w0 `/ I9 f
;; app is the filename of the application to check (extension is required)
# u9 r6 u1 j, i0 O% }
;; appset is a list of applications, (such as (arx) or (ads)
, a+ ?2 M+ v1 M. ^7 @+ D5 g
;;
+ e! ~; h8 c" l7 n$ d
;; returns T or nil, depending on whether app is present in the appset7 S. M+ O( O- H. o9 s( a% d
;; indicated. Case is ignored in comparison, so "foo.arx" matches "FOO.ARX"
8 o3 P7 M$ _, S4 N0 m- d) Z
;; Also, if appset contains members that contain paths, app will right-match
3 |# K) w8 C* X+ {# S
;; against these members, so "bar.arx" matches "c:\\path\\bar.arx"; note that
3 r$ r$ m; {! m5 q s9 F8 P9 T
;; "bar.arx" will *not* match "c:\\path\\foobar.arx."7 H& K) C D! o4 q
(defun loadedp (app appset)
1 H6 S8 O! S( Z0 v* U/ j2 c9 b
(cond (appset (or
' `2 \1 A8 J& f7 H$ p, F
;; exactly equal? (ignoring case)" T' M. \ [( U- Z# A* K. I2 I' ]2 T
(= (strcase (car appset))# i0 V# c: w, x
(strcase app)) w: j3 _) V6 u8 |3 k
;; right-matching? (ignoring case, but assuming that/ U+ @0 D- B% |! [
;; it's a complete filename (with a backslash before it)/ K% ]: E8 ^ O5 {. q1 O3 p
(and
+ e1 W, f# @4 ~/ i7 k
(> (strlen (car appset)) (strlen app))
2 x* q, [, O; W8 I3 W( X, `
(= (strcase (substr (car appset) 8 I+ u2 r& ~* `6 x& f% G
(- (strlen (car appset)) ' [' G" y6 P6 ^* g o0 J
(strlen app)
0 O: p+ ?4 \3 w& q/ k
)
/ D, C' @2 Z: X; d" i; i
)
- h5 h$ P9 ~$ Q5 w2 m% d
)
/ E8 J' f1 }1 v/ G, h, S
(strcase (strcat "\\" app))
: B) x6 `0 b, p1 C8 T
)
$ z3 k8 a3 D" q; x. f# q
)
0 l/ U" z, N7 s6 R0 K
;; no match for this entry in appset, try next one....3 [2 W; b' [1 F, d
(loadedp app (cdr appset)) )))) D. y* V) c6 O, N2 M. n+ ?
)
0 I& [& H# h& T- T+ J' {: S! ]0 W; R
O6 ] f& M' w# b$ u
& C% J* S$ i; [9 n
;;; ===== Single-line MText editor =====
" q# h) j" X! u6 u! _. \6 {
(defun LispEd (contents / fname dcl state)
) L: i) O3 v8 t4 i
(if (not (setq fname (getvar "program")))
2 D% j, V8 q N
(setq fname "acad")9 J, a- F- E8 Z8 h
)5 N( M; t# @2 s3 X
(strcat fname ".dcl")
- \4 x3 e+ w! s, z& e2 T9 H1 q2 f; P
(setq dcl (load_dialog fname))8 C% E* D) E3 v( \" F4 i1 x
(if (not (new_dialog "LispEd" dcl)) (exit)): G! s# q1 Y+ T
(set_tile "contents" contents)" ]. g/ _. y, O3 t& m
(mode_tile "contents" 2)& O* P, M2 _+ }' g
(action_tile "contents" "(setq contents $value)")
9 e3 ]) ^ c+ O3 O
(action_tile "accept" "(done_dialog 1)")
7 w. f; K$ O) v8 h: A ]9 _* \
(action_tile "mtexted" "(done_dialog 2)" )
, g. w4 y: }/ f- z* F% Y. P
(setq state (start_dialog))
/ H) [( s$ Y2 G6 ?# ^& a
(unload_dialog dcl)4 |- s# O( H" F; |
(cond. q# _0 A( m; y5 i
((= state 1) contents)3 n6 j8 C$ w& M% a
((= state 2) -1)
) @8 w/ t! e; B
(t 0), n4 e3 S' ^ N: Q# F4 _% M4 N
)1 ~" p; J$ X6 j5 t6 s
)
2 G6 k) q g+ |% C% h
9 V% [4 W% y/ @ s& A) L
;;; ===== Discontinued commands =====7 Y/ C8 \ P2 t5 L
(defun c:ddselect(/ cmdecho-save)
) P E! M: o/ D5 r& F
(setq cmdecho-save (getvar "CMDECHO"))
4 ?9 w% a: p+ R/ n- N
(setvar "CMDECHO" 0)$ \- B o2 y! v
(command "._+options" 7)1 |( S; I- w: J
(setvar "CMDECHO" cmdecho-save)
) s& K/ _ u- L" t2 |
(princ), r7 O- S7 @$ G) `' W# u
)8 i8 C. A7 A* g3 x
8 e8 q: e3 D7 r) n! P+ v
(defun c:ddgrips(/ cmdecho-save)
- n9 `( v+ n; {3 Z
(setq cmdecho-save (getvar "CMDECHO"))
3 i! V9 H; n g G5 K
(setvar "CMDECHO" 0): K3 u, Z8 T) @& J9 P# u( b
(command "._+options" 7)
* K4 s9 K5 t: ~( @+ [8 a
(setvar "CMDECHO" cmdecho-save)0 U, [ X0 C! r: J5 w9 ~
(princ)
/ l/ g. z/ I; ~# s8 S) D! o# l
)
/ z/ l3 U s& ^' D
5 ]) ~& I* ], D* n6 b1 m# f- p
(defun c:gifin ()
$ C" U" @( c+ E+ I) M
(alert "\nThe GIFIN command is no longer supported.\nUse the IMAGE command to attach raster image files.\n"): K* U/ B7 k7 m/ ?+ B
(princ)
0 y6 y! j8 `! Q
). m* Z+ j# n) t/ P5 r) o# i
6 L' y* P2 V, s0 z% U8 `
(defun c:pcxin (). t3 ?0 P* p7 m& P3 V6 k8 Z
(alert "\nThe PCXIN command is no longer supported.\nUse the IMAGE command to attach raster image files.\n")" ~( D! q/ J$ l( O/ m
(princ)+ c; W9 x- ] [
)
* C1 D* w. ~6 D- ^6 g) T( b# B
( J6 |& q* W1 j8 @) X
(defun c:tiffin ()0 O* k$ V- M4 S- T. ^" V
(alert "\nThe TIFFIN command is no longer supported.\nUse the IMAGE command to attach raster image files.\n")$ i2 {* I5 x' e: c- H5 a+ G
(princ)
3 ]. a5 B; n5 W5 p I
)
' c; s( a l6 _- H5 k* F9 ^, Z# `4 O
* |$ |# n! p3 z; |! r
(defun c:ddemodes()* l7 I* O, V9 V8 q$ }0 A
(alert "The Object Properties toolbar incorporates DDEMODES functionality. \nDDEMODES has been discontinued. \n\nFor more information, select \"Object Properties toolbar\" from the AutoCAD Help Index tab.")
( ]) g1 u2 X; L! \& w* ]
(princ)
: q/ H! a# r0 Q* U1 H
)' f( m! `3 Z; Q
" j" n% |: T' D5 c+ v: ]
(defun c:ddrmodes(/ cmdecho-save)8 Z8 K J V( g7 ?5 Z8 E
(setq cmdecho-save (getvar "CMDECHO"))' {& l. q" r9 Y& c" j
(setvar "CMDECHO" 0)' \4 ~1 C2 A5 D3 o, k- A; [
(command "._+dsettings" 0)
]! a6 v/ z0 j* M! p. W1 V$ |
(setvar "CMDECHO" cmdecho-save)6 {- W6 g5 \2 H9 |+ \
(princ)
S+ j* D9 I; Q+ {! Y: E/ e
)
- d* u: N' R; o4 x- b( {! i
" z# U, F! a/ s! ?
;; HPCONFIG; Z6 G# x2 E: X9 c' w# ]
(defun c:hpconfig (/ hlppath)
; r$ `# h$ \3 L Y3 F! Q) B
(if (not (setq hlppath (findfile "acad.hlp")))! E: @# ~5 } j. d! E% u$ |# }
(setq hlppath ""))4 N3 s( w. F* w4 c5 ~
(help hlppath "hpconfig")
4 E; ~& v* x9 O2 Q( \" q+ v$ G
(princ)
0 |, q! r& T. @( O1 y* Z
)' i$ U: A5 j6 Y% S3 s9 S7 `
+ M( ?2 z+ d0 S+ K
;; OCECONFIG
' p) b" t4 y% M) y" @: B
(defun c:oceconfig (/ hlppath)
7 ]% Y* v, E% k$ ^7 a1 q7 S0 C
(if (not (setq hlppath (findfile "acad.hlp")))
6 q3 D) U; A5 i( X0 N. w- `
(setq hlppath ""))' q5 G; l# r' V0 ~+ T: E; Q
(help hlppath "oceconfig")0 j9 `. X/ h' ]! k( _
(princ)0 v5 a- R- D1 X7 q* d+ }+ ?6 `% x) _9 o$ X
)
; R$ C7 Z X* G0 }2 `, p
& K6 S+ b+ ~. G) ]. k
;; CCONFIG
. _- q4 j9 d& u
(defun c:cconfig (/ hlppath)
* g! C: N- r% }8 s' V+ M+ Q+ ~4 L
(if (not (setq hlppath (findfile "acad.hlp")))
# {) g4 E4 m9 x; Y+ U/ T0 d/ v
(setq hlppath ""))
! ?" W% Q! k. y8 ~% ?$ u; ]! z
(help hlppath "cconfig")9 |+ S! @' V+ q8 a
(princ)
7 C; m/ K% Z& K
)% M; ?5 G8 O; u+ O* A5 I
3 G, b! B% W& n2 \
;;; ===== AutoLoad =====
7 r8 G* ~% u- G& A
. b- m; n( `" y
;;; Check list of loaded <apptype> applications ("ads" or "arx")2 ^* D1 G+ L# I6 [) p* ^4 C5 E) I
;;; for the name of a certain appplication <appname>.
+ v$ T3 L/ u g: B
;;; Returns T if <appname> is loaded.
4 V6 x/ Q% e+ d# K7 h5 r9 a- N
, A( h( x# B* w. q. c
(defun ai_AppLoaded (appname apptype)2 @' @) n) h$ m8 S1 f; F
(apply 'or
; W2 O: T; E o( ~$ F) f) n
(mapcar
4 N* u6 {- |* ?. L; n/ b' L* r
'(lambda (j); m8 K$ l3 I& v
(wcmatch
. K' _; z; ^& j! ]/ }$ @! d
(strcase j T)' j; q+ R" |3 h h
(strcase (strcat "*" appname "*") T)5 x% T, ?) g' \0 M) A x
) . O8 e8 u% J$ r, Y
)
+ j4 u% k: X' Q" N- B- [- `
(eval (list (read apptype)))) u' [6 {. g" k8 n" C1 b. R* A" {
)+ L0 T* Z4 Y- r" b
)
3 z+ H% `4 W5 C' X3 Z1 ~
)
1 k v* ]# W! z
% d1 J" r( z, P6 `0 E
;; : x, D5 v( ^# d) M
;; Native Rx commands cannot be called with the "C:" syntax. They must ; i: d% u3 }) k# N7 a
;; be called via (command). Therefore they require their own autoload
( t8 [8 v# n$ z7 ]$ U& o
;; command.
' C3 q+ A% n7 K8 G
; H( p2 v8 l! `: S1 N4 S
(defun autonativeload (app cmdliste / qapp)" I- j. m! k4 ?
(setq qapp (strcat "\"" app "\""))
3 T; q2 V) {) A0 Y) G/ f: I H
(setq initstring "\nInitializing...")* ~% B( O; X* i
(mapcar
2 B, K/ t! T$ R' `9 Y( ?. [
'(lambda (cmd / nom_cmd native_cmd)
2 m l, T& ^* Q4 X8 |4 C: h
(progn
( A3 K) }9 a1 R& s4 W
(setq nom_cmd (strcat "C:" cmd))
! C& h4 c& z7 G, \0 a
(setq native_cmd (strcat "\"_" cmd "\""))1 I! V$ ^" l' `: P5 M% I0 E
(if (not (eval (read nom_cmd)))
7 h4 N' G( w' l9 M2 a
(eval
7 |0 q: t5 i$ K" ^/ @
(read (strcat
2 |" D# n- _) s }5 V2 V5 t
"(defun " nom_cmd "()"
) v& x8 s, o; h# s3 _- }" \; o) c
"(setq m:err *error* *error* *merrmsg*)"! g* M1 ~( ?5 i
"(if (ai_ffile " qapp ")"* k6 s% i% k; Y/ o! y; f, ?* w
"(progn (princ initstring)"0 K! A; c# p' Q6 s4 v5 v A/ U
"(_autoarxload " qapp ") (command " native_cmd "))"
9 k7 t; [* e1 `( D
"(ai_nofile " qapp "))"
% s( K) y5 j5 `8 q' L* v
"(setq *error* m:err m:err nil))"$ j s9 {: N- G( \1 k
))))))5 D; c1 Y8 P3 x
cmdliste)
. }& Q/ b9 |/ m. N4 Y. ^5 O
nil. U( U- }0 H( T- B
): _. ^, c. @3 {5 y0 ?; r2 X
" b- d; {) D: n# m* ~& _* @
(defun _autoqload (quoi app cmdliste / qapp symnam)
8 I _& Y& d* ? W* a2 {
(setq qapp (strcat "\"" app "\""))& X# A5 i# |' y0 w
(setq initstring "\nInitializing...")& ~5 m. D) ~" n2 L5 |
(mapcar
6 S" @& A- @* \3 Z
'(lambda (cmd / nom_cmd)* r+ N# v* j' {: \
(progn
r! H# l& Q: v0 D, ^5 d. j5 z
(setq nom_cmd (strcat "C:" cmd))! W0 c1 N: M5 n& m
(if (not (eval (read nom_cmd)))) q( V1 n/ k9 _
(eval2 x7 C1 T, s$ n. U5 K( n: x }- k7 W
(read (strcat7 a! {" O: V7 @% X/ j
"(defun " nom_cmd "( / rtn)"
q& n& q5 K1 h) y! m0 q
"(setq m:err *error* *error* *merrmsg*)") m$ Q. X( q# `5 K
"(if (ai_ffile " qapp ")"
4 B' N9 s3 H6 B2 n$ D( C4 H
"(progn (princ initstring)"* _) v, s1 d3 q2 p4 |
"(_auto" quoi "load " qapp ") (setq rtn (" nom_cmd ")))"
o: r0 c% v% ?
"(ai_nofile " qapp "))", P$ s) @$ f \/ ?$ ~! }% S0 a
"(setq *error* m:err m:err nil)"
) ^! G8 c- J3 U* [
"rtn)"
" [6 M8 }" B2 a: H$ @
))))))" k4 C/ l$ Q3 b
cmdliste)7 }- I; I* P. [4 o: y" m
nil
$ I- G, A" c4 R7 Z3 U- i
)
1 [8 P0 {. q7 E5 Q
7 m6 P7 A( K: L
(defun autoload (app cmdliste)
7 r) X3 v9 l. g- V( P) L+ ~: I$ b
(_autoqload "" app cmdliste)
6 |" p; R1 U% b6 V0 h2 r2 d
)4 H9 A2 G$ H+ ~7 ^- M8 v
0 V; k+ F1 R/ b. V1 q8 `+ _
(defun autoarxload (app cmdliste)
( O. f) i4 l' s9 h, h
(_autoqload "arx" app cmdliste)
p7 @7 s$ {, a: n- W
)
/ |2 L g+ K) O, V
% w, g- v4 A' p2 \" _
(defun autoarxacedload (app cmdliste / qapp symnam)
, l; K0 P+ \; j7 V' E5 d- o* Z
(setq qapp (strcat "\"" app "\""))
0 K* z3 a+ ]& ~+ t
(setq initstring "\nInitializing...")
, Y$ l1 M2 ]: y- }3 |7 _
(mapcar
+ E6 z0 A: w+ {$ b! Y8 C3 M" }* z; S
'(lambda (cmd / nom_cmd); o# C5 R# D: }- p
(progn
0 e" {# ?1 a5 \5 M5 e
(setq nom_cmd (strcat "C:" cmd))
- o9 L8 s1 a5 M' j8 ]$ a, V+ w' w7 |
(if (not (eval (read nom_cmd)))
# Y L" G. n. ^; q4 v+ ]8 c
(eval
1 }5 I: A( U$ l; ]
(read (strcat
! @% e+ j; a- c! B0 C
"(defun " nom_cmd "( / oldcmdecho)"2 P/ }0 u* c6 Q5 T0 [$ E
"(setq m:err *error* *error* *merrmsg*)"
' X- Q) ?6 ~& S+ c
"(if (ai_ffile " qapp ")"4 l7 J; |1 b/ x
"(progn (princ initstring)"
9 _& l6 J6 f; ~- G$ V0 I
"(_autoarxload " qapp ")"
, P8 X, N+ k; X. f |. l5 ^" {- _
"(setq oldcmdecho (getvar \"CMDECHO\"))"+ e, J( L* l- C. ?. L3 Z
"(setvar \"CMDECHO\" 0)"
% v6 R' `( _3 e* C1 o* \
"(command " "\"_" cmd "\"" ")"
1 ^, j, i0 J: l, T
"(setvar \"CMDECHO\" oldcmdecho))"6 d9 I9 t9 s0 R* A5 I4 s
"(ai_nofile " qapp "))"' l% a1 m* B3 O# W9 H8 K' a# i
"(setq *error* m:err m:err nil)"6 D- {( B: ]- h
"(princ))"
4 ^ M& H4 s1 L, ]
))))))
" U& P/ o7 a8 j- X8 @, r& Q) s& j
cmdliste)
4 L3 r! m3 F2 ~$ y5 v4 [) y
nil
+ Y9 z; ?- `, b" q: s& Z e
)
' F, \% T. Z6 p2 I: a
% W3 ~6 P8 h \( R; H. J
(defun _autoload (app)% t T$ R, e8 `1 j; K# A. Z5 v2 q
; (princ "Auto:(load ") (princ app) (princ ")") (terpri)1 Y8 L9 L5 g- F* ~# N; [; |( \4 J. ?
(load app)" g% }# ~% }0 Q# ]: ]7 [' C
), ]0 L, Z+ v. h8 I D
! W- s0 F* Y, }! \) j2 l
(defun _autoarxload (app)
$ l6 s/ f8 j+ U
; (princ "Auto:(arxload ") (princ app) (princ ")") (terpri)
9 u: a- _) L, r, H% F+ H8 @
(arxload app)
8 V, @4 B5 u4 |. c0 H/ }
)9 e! ?! t" b. w8 K$ P, i
; r8 g; i' g" { Q
(defun ai_ffile (app)
4 X' ]. y$ m5 |# o+ v8 [2 r1 J$ L
(or (findfile (strcat app ".lsp"))
1 j4 {! M! g& |& |* x
(findfile (strcat app ".exp"))* j! J- q) E) ^; Q+ @- r4 z, V
(findfile (strcat app ".exe"))* T( `9 q; C: [0 `7 c1 V
(findfile (strcat app ".arx"))
* S+ B( i K: s1 W( ~
(findfile app), x; S! x4 k( m5 `; \9 A( `
)) D8 {! X' K$ K
)( {1 ?9 Y( R5 l# _
7 v% [5 _* e! N6 r) z( l& Z8 [
(defun ai_nofile (filename)
- l, h' D5 X) b
(princ
* w( U ?7 A8 N- V: U9 K3 S
(strcat "\nThe file "
/ T0 H" e' |2 C L' P3 x
filename
: J% [# Q" o( h. u9 T
"(.lsp/.exe/.arx) was not found in your search path folders.". V$ W# @) _: K" E4 R% o* O
)- j" D' c8 o. p6 [% d/ y n% D
)
" M& S" J x E/ J2 @7 G7 Y
(princ "\nCheck the installation of the support files and try again.")+ @3 E) n8 ?( Y; Z' _! b
(princ)
: R- U! J0 R' K ^
)
& U. x( m0 j D% d, }
d: g" ~ f/ N0 `+ {- J; ^8 L7 {
& ?2 O& F O6 u
;;;===== AutoLoad LISP Applications =====+ J- R( N& p0 h: V2 t
; Set help for those apps with a command line interface# ], ~3 y1 r+ o! O; i# I
' A* Y. ?3 @2 \% q5 m0 Y: @
(autoload "edge" '("edge"))& }9 M* I2 X x6 @& h, z9 ~
(setfunhelp "C:edge" "" "edge")! X3 `2 E1 M' q5 C2 r( I- z
9 X- i7 [2 z7 J8 A/ [* G
(autoload "filter" '("filter " "filter"))
' n0 E( u" u1 [/ n7 X' A
4 q9 s, ^4 G. O2 V( f9 D
(autoload "3d" '("3d" "3d" "ai_box" "ai_pyramid" "ai_wedge" "ai_dome"8 f$ d! d6 ]% A" h) w3 |
"ai_mesh" "ai_sphere" "ai_cone" "ai_torus" "ai_dish")
0 x+ Z0 R1 }* l. J2 Y' E! w
)4 x3 B) x. d! S
(setfunhelp "C:3d" "" "3d")
1 a' L. ?- y$ z( n7 J, M; k
(setfunhelp "C:ai_box" "" "3d_box")
@8 R# a) |, x0 u' i* L
(setfunhelp "C:ai_pyramid" "" "3d_pyramid")3 H# T. F! h3 }8 R" O
(setfunhelp "C:ai__wedge" "" "3d_wedge")4 u2 A" C1 s! q/ l4 b. S; x3 ?
(setfunhelp "C:ai_dome" "" "3d_dome")
5 e, D* ~9 f6 @0 t
(setfunhelp "C:ai_mesh" "" "3d_mesh")
1 N2 j* }( y" D$ H
(setfunhelp "C:ai_sphere" "" "3d_sphere")4 m: U% b( N9 X; p8 ?; _( w
(setfunhelp "C:ai_cone" "" "3d_cone")+ k2 T! Z6 R* Y4 f# {* W
(setfunhelp "C:ai_torus" "" "3d_torus")
) _2 w& i( W% F. @( U
(setfunhelp "C:ai_dish" "" "3d_dish")
9 ?. u5 H& Q1 G9 Q8 H( j
`7 v6 A6 I" q8 {2 m7 e
(autoload "3darray" '("3darray"))
; I) [( @4 Y# u; F. W5 C& h
(setfunhelp "C:3darray" "" "3darray")
) Q/ _8 Q+ i: W1 M# ]' U3 h
3 U: X% @$ {. O* c9 U3 L$ {: r
(autoload "ddvpoint" '("ddvpoint"))
1 ?4 A4 s. K, X( c: d1 Z
( p, p L) e/ z# Z( L3 }2 p; }
(autoload "mvsetup" '("mvsetup"))
9 f" b: p/ o0 m0 o; D) u: b2 u
(setfunhelp "C:mvsetup" "" "mvsetup")
( k! s# p8 `, ^7 o3 o0 @
1 t) E( s/ [) j, m
(autoload "ddptype" '("ddptype"))
) ~. h$ A! m) B" _( }- t
$ i. C- V: U% P u- P2 M
(autoload "attredef" '("attredef")), `, I5 j" ^4 |1 Q- b
(setfunhelp "C:attredef" "" "attredef")
+ u/ I' Y3 r6 _, N$ Y
4 x9 Y- {+ k$ S |* Z" S
(autoload "xplode" '("xp" "xplode"))
5 P" Z) F! k5 e% J# z% Q* [
(setfunhelp "C:xplode" "" "xplode")4 K, }& n S6 n" b
9 F9 ]. B4 g' c1 g7 {: i
(autoload "tutorial" '("tutdemo" "tutclear"
v7 V9 ?9 n X9 E& [
"tutdemo" $ `' B+ C. X$ o. C
"tutclear"))
0 y, I; h8 r/ g" I8 g) N
7 H: ?! G8 G+ z; x. t8 K; n! u
;;;===== AutoArxLoad Arx Applications =====
& x4 \: R8 Y& Q5 ]: C
8 r1 _! @6 c. U7 s# y4 n; [
(autoarxload "geomcal" '("cal" "cal"))
: F% [6 @! p1 w4 @$ A
2 q: n% Q# S3 m% t- i s
(autoarxload "geom3d" '("mirror3d" "rotate3d" "align": p0 Y& K1 D* e# j+ H0 i, A
"mirror3d" "rotate3d" ( q& j5 t4 |0 o* [$ y, K
"align"))( I) D) j' B0 ~: N9 P
" E9 V X2 Q' V( b( Z: |" C
/ z6 R! R O5 x+ z7 Q! s2 h6 A
;;; ===== Double byte character handling functions =====) f, t( K$ \4 `, i j
& x$ F2 c& g% e' U J8 |
(defun is_lead_byte(code) [ r0 _+ I$ j: y+ f' Y, O
(setq asia_cd (getvar "dwgcodepage"))* Y, D6 z" C( d& X: ]$ c9 v
(cond
F! d; s# @2 ]! O. U
( (or (= asia_cd "dos932")7 i' ? Y& D$ T$ v! Z
(= asia_cd "ANSI_932"), i& B8 i1 f/ w& S9 o9 p
)
8 s% a9 o6 Q# e* \6 {- z& j$ H
(or (and (<= 129 code) (<= code 159))
+ i' d2 R0 ~( n! N3 o6 t' K( R J
(and (<= 224 code) (<= code 252))
4 p8 b$ d. K1 {0 h6 m
)
, q. { `+ {6 P1 ^6 @
)
( (or (= asia_cd "big5")
; W2 c$ J A# l# T* f
(= asia_cd "ANSI_950")* u% d5 E* ~2 S$ H9 m
)
' f3 q1 b9 f4 I" y' E% U4 g
(and (<= 129 code) (<= code 254))
8 @% h) T& h* j* t& {+ c
)
9 D& U1 w+ r" _* z8 i* i3 `
( (or (= asia_cd "gb2312")5 C( |5 Z- p/ ]" G+ `$ t6 x/ s
(= asia_cd "ANSI_936"). A2 O3 I7 `1 q3 W( T6 U3 S5 V
)
1 @4 U/ c9 y! K8 A
(and (<= 161 code) (<= code 254))
+ ?, K n$ g! C1 E9 k
)
8 ]" l. }. u% `! D
( (or (= asia_cd "johab")& D' ] @$ t* `" r6 \ Q0 e( N
(= asia_cd "ANSI_1361")6 B1 Z$ ^1 {, [1 a' t' d
)
6 a N1 H5 L' C d+ Z7 z x6 [
(and (<= 132 code) (<= code 211))
6 ~- U" N' T. H/ j. z' Y: A. q
)
0 m6 [9 ]: l) P w( U
( (or (= asia_cd "ksc5601")9 b1 p1 v$ D% H1 N n6 N/ J
(= asia_cd "ANSI_949")% z! }5 [! C) y$ a" b1 T9 t
)
7 @& B/ u, P# T/ m4 ^
(and (<= 129 code) (<= code 254))4 {: |- r/ b, J, j, I. G
)
) X: A! {* \5 V1 z* q3 `
)
4 R, m2 s7 f9 d8 x7 x, k
)
8 M2 X9 C3 x5 i5 X4 W% O h
- k g6 J+ Z! F% E! U6 H2 ?9 t
;;; ==================================================== F. q. G1 K$ N1 R9 ?
. @# p7 A) X$ A4 Y8 [. r
- D- X/ h# u) ?2 C
;;;
& T9 y3 M7 o+ O( S$ {
;;; FITSTR2LEN
5 p6 \9 o1 s- k- G
;;;
( u! V4 P) e$ }' H. P5 @
;;; Truncates the given string to the given length.
2 f# q3 g4 G$ E: m
;;; This function should be used to fit symbol table names, that a5 P8 \! c2 V. X+ i) @) M
;;; may turn into \U+ sequences into a given size to be displayed
; V2 N4 r# R7 g# s" w' V
;;; inside a dialog box.
6 C) _- h q% Z ?# c- o
;;;
$ {1 r f. X5 k) b" |) W, f: g0 i
;;; Ex: the following string: 2 S, g6 e: t j- t& d
;;;! P" ]/ ?' L' I0 L" Q
;;; "This is a long string that will not fit into a 32 character static text box."
4 D2 F& j5 k/ X0 K& c! F: Q$ v/ ~
;;;
+ t( z# F& G6 x" p
;;; would display as a 32 character long string as follows:' I0 o' }# r$ g/ n
;;;/ _ L' x q- y3 `# K, L; d
;;; "This is a long...tatic text box."+ L/ a$ s- |7 ]8 G. m
;;;
0 }4 f( b) \. Y3 J5 }
- U& G2 y) u, Y! u8 D
(defun fitstr2len (str1 maxlen)# d% u0 R, D9 C- [5 H" }
2 j3 W( G8 p5 t. o
;;; initialize internals) \( U8 J4 z: [' b- K
(setq tmpstr str1); M* E) s4 W4 P( x* H$ R
(setq len (strlen tmpstr))
+ n5 C# y' { Z6 @
5 a3 V4 ~; s. r0 C' x+ r- D; k
(if (> len maxlen)
# z h1 ~% Y3 ?# v* n! n1 Y. O
(progn
9 P! O2 i8 s1 X# i# N
(setq maxlen2 (/ maxlen 2))
4 A e% |8 i6 Z( i& u) p' W- S8 W
(if (> maxlen (* maxlen2 2))0 U% I$ h8 m" q5 _
(setq maxlen2 (- maxlen2 1))
' r5 f" u5 g% b. \% |) x
)8 n4 C# O3 ?1 f* `8 I
(if (is_lead_byte (substr tmpstr (- maxlen2 2) 1))/ l7 a! e0 T1 x( i; d& _
(setq tmpstr1 (substr tmpstr 1 (- maxlen2 3))) o5 e( _+ ^5 y2 U( `
(setq tmpstr1 (substr tmpstr 1 (- maxlen2 2)))
. I7 X. M1 |; ?: ?3 U
)
2 ?! w' @6 I, Z" H$ @: L6 O
(if (is_lead_byte (substr tmpstr (- len (- maxlen2 1)) 1))
2 C! u8 h! z0 j( |/ Y4 L6 Y% m
(setq tmpstr2 (substr tmpstr (- len (- maxlen2 3))))( V3 i: u- S' _/ }5 g
(setq tmpstr2 (substr tmpstr (- len (- maxlen2 2))))
' K( c0 r2 A: Z/ @
)4 m6 e) F- J6 g3 {
(setq str2 (strcat tmpstr1 "..." tmpstr2))$ l, n( X7 ~' J; q, m* Z0 t9 }
) ;;; progn, J. S2 I8 o$ c7 z) m
(setq str2 (strcat tmpstr))( Y/ Z" ?/ ~2 v4 q5 v5 L: q0 ^
) ;;; if' ?4 g0 n6 g" R t: Y
) ;;; defun
) j0 _. s/ t# E9 S' N' z0 o! L
1 @9 S& H$ Y* z' K- \" ]
- l! d! A0 }( d3 ^0 o1 y% |
;;;
* C0 ?' q1 T- S3 v. f
;;; If the first object in a selection set has an attached URL7 D4 `* Y* R/ D# v" I, }2 K5 P' k1 j
;;; Then launch browser and point to the URL.4 I6 ^+ ^/ q1 T- i; y' R; n. p
;;; Called by the Grips Cursor Menu( i6 Y1 c, n8 |( I$ f
;;;/ w* t6 W5 p8 T, o; w3 Q6 P
! X1 i6 Z" J- M$ ^
(defun C:gotourl ( / ssurl url i)' V. Y i- W) U( P, g8 z- X0 W+ x
(setq m:err *error* *error* *merrmsg* i 0)
$ I' k) Y# ~" G! C" e
1 ~2 n' z' f& F! {
; if some objects are not already pickfirst selected, ) F& V0 F: S3 }" T' D
; then allow objects to be selected
& W7 @* h# }7 V- n Q' O E
6 X( Q. L: B6 ?
(if (not (setq ssurl (ssget "_I")))
( z' Y" w# H6 D' v" ?6 Q/ i
(setq ssurl (ssget))- ^: l9 c6 u9 w4 w+ c
)
6 r0 i7 I! Y+ _ y* J: F
& `+ Y: ]8 F% s. q n% B9 v
; if geturl LISP command not found then load arx application
9 X; ^4 T3 i4 v
" E* @% E m% H# m3 G; V2 ]! i Y
(if (/= (type geturl) 'EXRXSUBR)2 }+ j; n+ b) ~: ?$ k: D
(arxload "dwfout")3 i: _. r' N! c {
)- g" s7 W! J0 c
% ]$ ^9 _% J/ D0 M6 s) I' U- }
; Search list for first object with an URL
$ N& v% {3 c3 Y$ c2 \8 C5 D4 ]5 {
(while (and (= url nil) (< i (sslength ssurl)))8 j! {5 m& J/ ?& e6 r m- B ^
(setq url (geturl (ssname ssurl i))
. T% c2 e! u9 {* b. d! R
i (1+ i))
f% ]2 q [/ ?
) X. U" U0 O8 t( D. L3 w9 X# @
$ }0 p* F4 B# F: n
; If an URL has be found, open browser and point to URL
+ e8 a) q5 w" l( {
(if (= url nil)
4 F5 ^7 k3 k9 }( s* q
(alert "No Universal Resource Locator associated with the object.")+ ?4 n" X" Z- d% d( i) N6 \0 Q* c
(command "_.browser" url)2 \6 f' m& c5 X* c9 a1 K& p: H1 ?
)
S- ~' s( p: i; e
( \% b/ z ^$ f# ^1 Z8 k
(setq *error* m:err m:err nil)4 M% ^! Z* \( O0 a
(princ)6 w; |/ w% ~. L
/ ?# u# \+ ]8 C: `9 K
)& H0 }- f) b5 y" N# x1 v
% c& ? Y& F0 m7 l
;; Used by the import dialog to silently load a 3ds file
! M" U: U. v0 g; r/ M. L$ M
(defun import3ds (filename / filedia_old render)( ?) d$ v, f6 v) G) O* a/ t( q
;; Load Render if not loaded
! D0 Q; H7 Y6 @; p. I' m
(setq render (findfile "acRender.arx"))" [+ X2 B) F u( ?, ]7 L- N) Q! @
(if render) N6 [2 e3 ]$ j/ M! G
(verify_arxapp_loaded render) ) M5 Y/ a3 i3 _* A( D
(quit)
c1 I- P! c7 `( d; I% I6 _
)$ _3 L( V' E: ]
( [0 J) K) Z1 x3 K: p4 ^
;; Save current filedia & cmdecho setting.- f" u! w: v2 s7 r& i& j
(setq filedia-save (getvar "FILEDIA"))
. [# x& V7 F$ u& k
(setq cmdecho-save (getvar "CMDECHO"))" u7 [' d2 U. N: W' }
(setvar "FILEDIA" 0)/ ], O* k3 }$ ]
(setvar "CMDECHO" 0)+ s4 Q5 |9 {3 |: T
( S& g3 W' b& o
;; Call 3DSIN and pass in filename.
5 v, I- F6 b" ]! m3 C; Y. s
(c:3dsin 1 filename)
* H4 p' @8 [; a9 z* }
& Y: l* ]* M% t/ N# R
;; Reset filedia & cmdecho
# X3 U* Z3 G; _ g: S( g& R
(setvar "FILEDIA" filedia-save)( r3 S* D+ \* _0 \; p) i4 U" h1 l
(setvar "CMDECHO" cmdecho-save)6 S6 R7 E+ {4 ]7 z E1 I/ X6 c9 {
(princ)
6 l+ b ?- z# l8 N& P
)
3 \# T$ Q- G5 V8 ^( Y; L' Z
1 O( x3 _5 x- N3 K
- |( i; \# l% U+ P# `# J" e& w, k
;;;=== Menu Functions ====================================== f, `, t* `9 ~* }( V& R
+ f9 n+ S; c/ U; v ^/ t# f% ~
(defun ai_rootmenus (), o# c( M# d; J( ^6 o# `+ q
(setq T_MENU 0)
% J, c4 c0 E6 a: x
(menucmd "S=S")
' V$ G+ E2 \% E `
(menucmd "S=ACAD.S"). ?1 L2 k0 D. s+ ?0 i6 @& X
(princ)2 ^9 |5 N- f. [
)+ \/ j3 O& k5 }% F5 B0 L2 A
% K) T: U9 r$ e& e0 J
(defun c:ai_fms ( / fmsa fmsb)
% A/ q0 @. `' `' ^9 y8 I4 m$ `. v$ p& V
(setq m:err *error* *error* *merr*): g& a6 j0 J& z' g
(ai_undo_push)" m' U( u$ c* t: r
(if (getvar "TILEMODE") (setvar "TILEMODE" 0))
+ u( m9 V. n" w9 B
(setq fmsa (vports) fmsb (nth 0 fmsa))
: U7 L0 b1 D6 a2 V4 N
(if (member 1 fmsb)7 A& x: {! v w U
(if (> (length fmsa) 1)& n6 i2 W) G# I- G+ X
(command "_.mspace")0 b2 |$ ]) t& c) m6 ?% ?
(progn
3 R9 N8 o: T' ]0 q4 @( {& S" H5 x
(ai_sysvar '("cmdecho" . 1))
+ S9 U' S$ _1 n4 C! F
(command "_.mview")$ F) h4 i1 q2 o o
(while (eq 1 (logand 1 (getvar "CMDACTIVE")))5 f3 C6 U# k6 |+ B! y& V+ G3 o
(command pause)8 z: d! ]; L. J' z0 _2 W" R' R7 m' I2 X
)
6 ^! k6 Z2 M0 a# J& V8 f
(ai_sysvar NIL)
1 l6 @9 a4 F Z; X2 [; m$ o
(command "_.mspace")! Z# c' g* z( |2 O1 Z
)
( }! Y- i* x7 C( N4 `+ {
)5 l( m- \( f% W
) \0 D/ `4 g! b$ Y
(ai_undo_pop)
( b% x" u8 V8 }4 n! L
(setq *error* m:err m:err nil)
6 X/ Q2 `2 t* S0 J5 k& `
(princ)3 U8 A4 `: Z3 k9 }! f
)
3 e* |6 |9 z7 \! O, W
5 b5 Q2 J- N* f- K- v
(defun ai_onoff (var)
0 [5 I1 [2 E9 |0 p5 l
(setvar var (abs (1- (getvar var))))
9 \+ T+ u# D5 P. P& G2 Q2 U
(princ)
/ i5 f |3 a' Y( F. O
)7 Q. X6 s' m, O0 Y0 p
' w1 h. o: c0 b
;;; go to paper space- f5 g, O+ c+ D% {5 r7 W
(defun c:ai_pspace ()7 o# k( b& T/ y/ k
(ai_undo_push)$ A, | l6 P1 V" r
(if (/= 0 (getvar "tilemode"))" E6 f$ X9 \1 [9 T& x
(command "_.tilemode" 0)
. y3 d l4 Q5 S0 h& `4 z& B9 S- U
)
) A( J! O# G$ e- W
(if (/= 1 (getvar "cvport"))
# Y g" m3 D* V7 x3 F _
(command "_.pspace")
+ f# W U8 i8 `" C2 ^9 f
)
H. M1 L5 i- F0 }' L) ^4 Y
(ai_undo_pop)
, G0 [1 _0 A# V/ k
(princ)8 h6 ?& H% A7 y3 i
)
( ^& q6 E$ t. ]. E2 w2 e4 j; g
6 b2 |( r9 w* N
;;; go to tilemode 1
$ Z9 a2 U" ~5 q' o
(defun c:ai_tilemode1 ()
- x* H* K7 t2 X
(ai_undo_push)
7 \# `2 \! f% |. \
(if (/= 1 (getvar "tilemode"))+ N, t: l7 J+ n1 e8 e
(command "_.tilemode" 1)
( x* \6 b c/ K# b% h
); K6 h, A2 G" Y$ `: B
(ai_undo_pop)
) ~& z# w( e2 x) c! t* Z1 V
(princ)
$ V- m. b6 d! g9 w2 J4 E1 U
)
* Q) g% K3 [8 X4 ?4 k& E0 @
$ e: j1 \' ?, D6 D
;;; Pop menu Draw/ Dim/ Align Text/ Centered
1 t% S) P% T+ v& d6 ~5 V
;;; Toolbar Dimensions/ Align Text/ Centered, X3 o# L1 k# s) y9 S
2 J$ A5 G) B' h% J
(defun ai_dim_cen (/ ai_sysvar ai_dim_ss)$ W! z0 [1 K4 t, ]5 U
(setq ai_sysvar (getvar "cmdecho"))
( s3 ], d. ?8 G' h, F' d
(setvar "cmdecho" 0)
|& q7 P2 \8 W( f8 i! ^- x$ l& s! n
(cond
+ k) m+ X6 b# x! Q; j1 t
((setq ai_dim_ss (ssget "_P" '((0 . "DIMENSION"))))
; Q8 g+ F, R+ T, s B& l3 W
(command "_.dimoverride" "_dimjust" 0 "" ai_dim_ss "" 4 W9 ?6 I$ `4 D" L" o) [$ f
"_.dimtedit" ai_dim_ss "_h")7 H. g3 }. k7 g# u+ o5 |9 r$ w2 M
)1 _ s* V1 O: I) x/ H6 K( ?1 L+ N
(T nil)5 B1 |' [' \& n: e
)- K: l5 C( c# _( E5 X. b, Y" R
(setvar "cmdecho" ai_sysvar)
8 m# I4 s/ s" V8 E1 a
(princ): x- y9 A" ?) `+ {+ Y; x. e; Z
)
V6 f$ J6 X+ |3 |" n; d' ]1 g4 ~
% A. l9 V; z/ o5 a, g, v, m; y
;;; Shortcut menu for Dimension Text Above . r0 w0 k' n3 ?+ ^9 m
- ?# B4 s" ]4 i ?) s$ s
(defun c:ai_dim_textabove (/ ss)
/ @ _0 p3 b- C6 N5 }$ c
(ai_sysvar '("cmdecho" . 0))$ |! h( f4 Q: N7 U
(if (setq ss (ssget "_I"))5 z7 ?, Z* g0 \* N
(command "_.dimoverride" "_dimtad" 3 "" ss "")
$ T! G1 L) t; h) K9 \7 k- S
(if (setq ss (ssget)) |2 U( S; f- A! [2 h
(command "_.dimoverride" "_dimtad" 3 "" ss "")
& I1 H! d) b7 M
)+ G$ L& |, f- J/ S" T3 c/ n
)
7 j+ b$ w4 X b' ~9 _7 K) q0 G
(ai_sysvar NIL)
9 b6 _! I* x6 S2 d4 ~# ^1 X1 _; O
(princ)
x8 W! M3 |7 Y% t! m6 R7 i* [
)
! H$ ?/ K; G7 e
0 I+ }2 l* R4 Q: ^1 p1 o
;;; Shortcut menu for Dimension Text Center
; s- f) X- D$ \. Q7 _; T
4 _: n- ^& y( v/ E! d# M' Z
(defun c:ai_dim_textcenter (/ ss)
+ J5 b! D& E: D4 F X; w$ Y
(ai_sysvar '("cmdecho" . 0)): K n; O& I$ b- j* m' @
(if (setq ss (ssget "_I"))
' c9 b; ?- n7 S, Y5 k
(command "_.dimoverride" "_dimtad" 0 "" ss "")- N, u0 p- i# Y; C- q
(if (setq ss (ssget))
6 I7 C* s% u% i* J
(command "_.dimoverride" "_dimtad" 0 "" ss "")
2 n8 n0 E) A! f8 h, l
)
) u4 `7 i) ?6 n$ L
)7 _! X1 `! I& B8 G
(ai_sysvar NIL)
4 c' W" {* ~/ B( W [
(princ). I! Q+ ^# u$ ~! n
)
: Y7 K- S$ u9 m, p i
- ^: @# \7 H( E* U9 k' p6 T
;;; Shortcut menu for Dimension Text Home
7 [5 V% Y0 V) t% A& i
(defun c:ai_dim_texthome (/ ss)( ]0 x8 q" h3 ^( ]
(ai_sysvar '("cmdecho" . 0))
; U7 M7 W. ^- X0 K3 U1 j2 x
(if (setq ss (ssget "_I"))
! k t$ x& T3 V7 b( _; T
(command "_.dimedit" "_h")
6 J0 H/ D9 Y6 d# e2 \2 |$ ]2 Z5 q
(if (setq ss (ssget))8 N% Q9 A8 {# l0 ^6 a* T
(command "_.dimedit" "_h" ss)* v# a7 I6 L5 _3 u$ I/ s1 N: |
)
. ]3 K4 y# q/ ^ ? n2 ?) l m
)% f3 s* F4 _1 V* l2 b) X
(ai_sysvar NIL)% Q( \& I* l* i5 `3 c& K
(princ)! q- N7 m# E' {. F z
)3 K) w- x- {5 J! E# ~+ r4 d
2 @# O4 w X6 `
, H A! E6 b* ~- }3 f
;;; Screen menu item for CIRCLE TaTaTan option.2 a" d& M+ [4 Q6 Q% R
;;; first, get points on entities
% A5 u* o `6 o0 s
(defun ai_circtanstart(): F( t' N! M0 O9 I+ ^
(setq m:err *error* *error* *merr*). ~. q" w( P' g! e: V7 K7 ~$ p
(ai_sysvar
5 l+ _; R) ?9 V. G% m, g% H! H
(list '("cmdecho" . 0)( T3 P# x# I" X( X( ~% M
;; make sure _tan pick for CIRCLE gets same entity; s C+ q3 u* G6 o3 v3 X
(cons "aperture" (getvar "pickbox"))
7 q7 {% S% {; h3 l, q7 q
)
) R. S& L' ^' a
)
4 i7 O" \! w+ T% x" G$ Z5 ^
;; prompts are the same as CIRCLE/TTR command option
/ U% Z# O4 l7 E9 e4 C7 s
(setq pt1 (ai_entsnap "\nEnter Tangent spec: " nil))! q$ I' T/ ]5 ?- y+ N3 D6 R
(setq pt2 (ai_entsnap "\nEnter second Tangent spec: " nil))
& w+ {: Q2 ]8 H) F# V- U
(setq pt3 (ai_entsnap "\nEnter third Tangent spec: " nil))
: U0 ^* q8 y( N$ q4 x$ J9 R, ~4 H4 o
)
1 F8 c7 k9 ?+ z3 U- t ?. p7 |
;;; Command-line version
g+ m% G) u0 a! z
(defun c:ai_circtan (/ pt1 pt2 pt3)
# P3 B3 s0 y: I7 u
(ai_circtanstart)2 Y8 h& y* I y4 l! q
8 _4 x( ?7 B4 k+ p+ z! x
(ai_sysvar '("osmode" . 256))
( s8 F! @8 E: F* A
(command "_.circle" "_3p" "_tan" pt1 "_tan" pt2 "_tan" pt3)
1 ^, w7 L, `& G# D( s2 c
4 D# H3 P# x! d7 Y0 l5 c, H- A; o
(ai_sysvar nil)/ G! R) p, I+ k$ o i; d
(setq *error* m:err m:err nil)
: m3 ?5 e3 N) M% ~; T) l' {& V6 s0 P
(princ)* }' p* C; y- [# {: S
)! t: i9 n" |4 q
;;; Use this if CMDNAMES == CIRCLE
) f8 {/ X5 y$ x+ n. a- I
(defun ai_circtan (/ pt1 pt2 pt3)- o f& i0 P! [! |1 [ R2 Z8 U
(ai_circtanstart)6 X: \: `3 @1 K& h
2 d* u( r% C2 w) }
(ai_sysvar '("osmode" . 256))
* |- M9 z ]$ }7 U. p0 @+ P
(command "_3p" pt1 pt2 pt3). n0 z- V1 |1 [/ \. O) t9 |1 k; ~
% _( g# Q, c+ z7 K9 c; ]$ H/ Y
(ai_sysvar nil)8 `' h8 Q# y8 H! [ @+ Y- P
(setq *error* m:err m:err nil)
. G1 F$ z9 j, Z
(princ)
; A8 P2 U9 e, B; q9 P* C0 q, B
)
6 B4 p0 }! T! g' z/ Q' U7 \
+ N7 z( D( b7 A" t. ]
& u8 R/ G' M" J( t, F* [
W Z% B; M2 b6 w
;;; Shortcut menu Deselect All item.: d: }4 j, k: g1 }( {7 q
" J$ ]9 x5 c- ]
(defun ai_deselect ()# }' a; V3 v3 g; |9 I) E* c
(if (= (getvar "cmdecho") 0) ;start if
. [5 K9 v; J0 \- t5 a# N3 M1 B
(command "_.select" "_r" "_all" "")( a/ j$ o f( n) s- Q( a6 D
(progn ;start progn for cmdecho 1
) j8 |& d; A. a) a& L4 B. A' }! G
(setvar "cmdecho" 0): q! o5 t/ e$ m t! \
(command "_.select" "_r" "_all" "")
; A. l" B, i5 w& L7 e
(setvar "cmdecho" 1)
3 h* o) b1 Y2 Y( x; @5 J9 k
) ;end progn for cmdecho 1
! w/ J3 C0 k% y" b9 t8 I
) ;end if: y8 B# i* ]( J
(terpri)7 i' ?+ E( ?- y) {5 y9 }" s
(prompt "Everything has been deselected")
z+ ^- S. j( M0 x
(princ). ~& w4 E ~* q2 [
)) ~* C$ Z+ r; v* o* u
% Y& P0 [( k9 C4 ~; ?
;;; Command version of ai_deselect to be called from the CUI2 D2 F: ?6 p8 v8 c* d
;;; so it gets properly recorded by the Action Recorder
8 B$ U. G6 v8 p! g4 t
;;;
9 B( a: M0 R! [% I5 s2 h7 l, }
(defun c:ai_deselect ()! H) f- D& [" u) V
(ai_deselect)
% w) f' N6 P% Z7 f
(princ)- M0 O5 z9 I- A% o8 m
)
8 B8 e5 l' b) b0 @: M& S. y
+ _& Z6 W* x4 X9 y; q. W. N
;;;
8 ~; |" m+ V% E9 Z
;;; Enable Draworder to be called from a menu3 Q+ q! L7 V( n( h" |: y
;;; Checks for Pickfirst selected objects3 e# L- B H+ X/ t% W1 H
;;;, X: i' g7 a5 T: C( T5 A
6 j7 w7 K! ]* k0 x
(defun ai_draworder (option / ss )) r) [9 V3 d! s* W4 H2 P) @' v8 R
5 ?: Y6 m$ e3 b7 I
(setq m:err *error* *error* *merr*)7 T1 a* T, i: U# e4 ]
(ai_sysvar '("cmdecho" . 0))
7 m) a$ I( E5 y% O; e2 x
+ k1 T' f/ j) p5 @* G7 a9 ]9 t
(if (setq ss (ssget "_I"))
6 A; v) w8 S5 K) R4 e
(command "_.draworder" option)
: T( l! l& P. _
(if (setq ss (ssget))
. w. F# a$ {0 e% Q0 h
(command "_.draworder" ss "" option)
3 T4 l( [. ^, ~6 J, o
)
8 X( o. w. w/ i2 n+ R h
)8 W/ }' e8 q( H3 s, C
(ai_sysvar NIL)+ K0 p- N. O/ L9 P k- u9 [& a& U$ z
(setq *error* m:err m:err nil)
- k8 _ o- V1 j3 U Z: _
" @& [( M M% u; ~
(princ)6 [7 a) p! C; a, h
)
- G3 R2 L$ r, j/ r4 C4 y
2 ^4 |0 F! k! k
;;; Command version of ai_draworder to be called from the CUI
9 H- J, H V7 h
;;; so it gets properly recorded by the Action Recorder
/ R; t5 n3 |+ ^/ Z9 T4 j$ `, |
;;;1 y5 B# o& _! Z2 d( I
(defun c:ai_draworder ()
. _" o( W% F8 A* N5 k) l2 {
(initget "Above Under Front Back")
( N) Q% F! q4 w: K% z- I4 {
(ai_draworder (strcat "_" (getkword)))2 p( I* ^3 G, Y6 Z
(princ); g2 i& [$ j- V/ ?
)
2 v; ~2 E; x# B- Q7 ]
* y. ]% W; L! H
(defun c:vlisp () Y Z+ B0 ~* j( ~( V/ Z- O
(if (/= nil c:vlide) (c:vlide))
6 e9 e( W% l l4 `
)0 k% z( e7 J4 N' g! H
8 {5 U% T0 \" Z* {$ {5 e9 Y
(princ "loaded.")
; G s/ N! ~6 l) [; P
( ?! r; Z2 m7 b
;; Silent load.1 l1 ]. o2 I9 I0 Z, j; k3 C' L) r
(princ)
, j/ |. y, H) H1 @% h7 G5 O
) t5 p7 ~6 ^- Z' ?. J
;;;----------------------------------------------------------------------------* M% @$ i) B3 s/ k; u& n, p( x! U) L
;;;
1 o% c% d- b; B( V% g z
;;; DDCHPROP.LSP Version 0.55 d- C% G" r- `8 D$ G* o0 H
;;;$ W* r2 T4 @ a
;;; Copyright (C) 1991-1993 by Autodesk, Inc.+ c: u) Y1 W0 T$ V Y
;;;
, i+ u4 q8 J$ [( A# m5 `1 ]
;;; Permission to use, copy, modify, and distribute this software( g9 k; r- x- ^: ?; v
;;; for any purpose and without fee is hereby granted, provided) x& J3 o! E( a5 }
;;; that the above copyright notice appears in all copies and that
% {* l9 F4 G: j! I* F
;;; both that copyright notice and this permission notice appear in
& J1 M. a1 Y. U" `# l
;;; all supporting documentation.
/ }$ j: I% K) z6 E. ~7 E
;;;7 N W l: [4 ]3 ?$ k* [5 w
;;; THIS SOFTWARE IS PROVIDED "AS IS" WITHOUT EXPRESS OR IMPLIED$ E. z* C. C5 y0 E; i1 v
;;; WARRANTY. ALL IMPLIED WARRANTIES OF FITNESS FOR ANY PARTICULAR
! c$ y+ H* H0 w/ N) T4 m2 g
;;; PURPOSE AND OF MERCHANTABILITY ARE HEREBY DISCLAIMED.
# Y7 l& F, t+ f
;;;
* t; P* {! \1 d
;;; 2 February 1992( J ~' ?- o9 u3 E9 F! y
;;; 9 N( h, b, }0 d' w- s
;;;----------------------------------------------------------------------------3 X% d) m H7 a2 F7 n5 g6 E
;;; DESCRIPTION
/ V7 [) ^4 p1 J4 B3 h& K* Z2 C2 y" O( S
;;;----------------------------------------------------------------------------' G7 n$ Q2 J. _# P0 Z' q
;;; C:DDCHPROP is a dialogue interface for the CHPROP command.! P/ x, f& K+ z( ^( \
;;;) ~7 |: A9 a0 `& z! s# E
;;; The command looks similar to DDEMODES. The main dialogue has an image
3 w6 `6 ]) I9 O- V
;;; tile, 3 buttons (layer, color, linetype), and an editbox (thickness).
. d$ H& b1 E2 ?! M: P
;;; The 3 buttons each launch a sub-dialogue containing a list and edit box.
# n6 s, H" d$ m6 p: B
;;; The dialogues are all defined in the DDCHPROP.DCL file.6 i, [/ V6 F/ y& L- z% n; N$ E
;;;
" [% x6 |9 M0 |! k0 y
;;;
$ K; W4 s0 U! Z5 C; y9 H; c
;;;----------------------------------------------------------------------------: g' _! f* W7 O& D3 t
;;;----------------------------------------------------------------------------# [ B1 @+ e4 l& j$ K) K5 \
;;; Prefixes in command and keyword strings:
: ~ P: S+ S0 s8 V; s5 Q% D1 j
;;; "." specifies the built-in AutoCAD command in case it has been ) u8 |5 g8 f( R! v, F8 A
;;; redefined.) G+ C1 C; z. Z9 y4 e
;;; "_" denotes an AutoCAD command or keyword in the native language
: v7 _: X# r! @0 c
;;; version, English.2 f+ p- g( }: d* @9 s
;;;----------------------------------------------------------------------------
5 Q5 K; x/ F" O; P
;;;, q: `5 d5 z- i6 _7 O! |2 r
;;;
; C3 [2 Y( \! r$ i
;;; ===========================================================================
;;; ===================== load-time error checking ============================, H* K6 u1 X2 |$ H
;;;4 W# F9 g( ~0 S- A- ? x
4 A G* Y) G. X( E0 m
(defun ai_abort (app msg)
2 }6 ^9 M- V" E" e/ w7 ?4 G
(defun *error* (s)& g- J5 t! d2 y
(if old_error (setq *error* old_error))1 H4 b: ]5 m( Q# m9 L
(princ) A- ]& t: e: K6 c/ }# l
)) P) B8 n% O+ Z0 ~
(if msg
+ E" ?1 {" ? x/ C
(alert (strcat " Application error: "
- Z+ Z! Y5 b( ^& ~5 a/ A8 R
app) ~ J6 d# a) B$ Q
" \n\n "
) G( b5 S( c8 N# ~, h6 P2 p
msg
* e8 Y* R3 k, y
" \n") |, [. N# I" G7 s2 z" L# ~; W
)2 P* ]( A9 n+ d4 D0 X( N8 Y* C
) B, b/ ~7 {, E c- d8 _
)5 I9 G. y3 t2 z1 V! R
(exit)
! O" ~. S/ r& |" f
)8 |! y$ C& J6 u# i4 J& k# u
5 V7 U9 u, b/ p- }4 s0 Q0 p
;;; Check to see if AI_UTILS is loaded, If not, try to find it,, ~0 s# U: U+ E
;;; and then try to load it.
; g% z( R3 e% S
;;;
/ K& B1 n& H. S K
;;; If it can't be found or it can't be loaded, then abort the
; B3 }$ b5 K, X. P
;;; loading of this file immediately, preserving the (autoload)5 C6 V( Q0 r- t) u
;;; stub function.
2 t7 z1 x% w9 J5 i
( H2 ?0 M3 H$ }% B
(cond- C7 s% ?+ g- B/ O9 i
( (and ai_dcl (listp ai_dcl))) ; it's already loaded.! r* L' H% ?: ]1 s3 e7 u
P/ u* |% b$ P
( (not (findfile "ai_utils.lsp")) ; find it1 ?# \. s+ t9 `/ T+ w* A# n
(ai_abort "DDCHPROP"
$ e; a( x$ V4 V ^
(strcat "Can't locate file AI_UTILS.LSP."9 N! ^) d8 \6 }- o7 s$ f9 H
"\n Check support directory."))): l. H$ O/ C3 p+ y+ E
; I5 }; C9 t1 f5 N. i, W' ]. b
( (eq "failed" (load "ai_utils" "failed")) ; load it6 P% H! c3 M0 o! w6 z5 e _: V
(ai_abort "DDCHPROP" "Can't load file AI_UTILS.LSP"))" a+ o6 E$ Q2 U. e
)
; b8 N2 X5 V( Q' a: O7 ]# k
) ]* v6 Y7 g( G0 o9 |4 k6 C6 [
(if (not (ai_acadapp)) ; defined in AI_UTILS.LSP
& f$ `( e8 g4 ^5 |
(ai_abort "DDCHPROP" nil) ; a Nil <msg> supresses
. ?, X& d, B* N2 `/ o1 M: j
) ; ai_abort's alert box dialog. ]/ p9 a' Q4 ?& |1 `9 k, Y
0 x4 ^/ a* v& @: V4 v
;;; ==================== end load-time operations ===========================+ r+ h) P! }9 c" t; O* X" {. ~# o3 {
6 {8 K8 A/ d" o! M! o
;;; Initialize program subroutines and variables., z( m9 L+ ~! x) n! @
- |& i! J. e s5 V
(defun ddchprop_init ()
& @" k& [5 _7 ?4 U: z& _
3 \9 X8 l# b9 U! S$ Q
;;: \6 g* w% l8 w. c6 E" B; i
;; Define buttons and set values in CHPROP dialogue box 9 h/ M' r9 ~) b3 B3 o. j$ A/ p
;;
2 \9 t; P" Z1 I2 e
(defun call_chp ()
' V1 o) B: V7 `4 Q9 @( C l- {3 m3 h
(if (not (new_dialog "ch_prop" dcl_id)) (exit))
( x6 @1 a9 J5 h8 i1 ^. e5 F
(set_tile "error" "")
, S( `8 }8 S5 u
;; Set initial dialogue tile values2 l) h. d# a" [- W
(set_col_tile). u N4 L8 Y9 X1 J% ^1 K! \$ }
(if (= lay-idx nil)
! P! @9 q$ h3 \9 ~( ^- @
(set_tile "t_layer" "Varies")
# K9 c0 E# p4 _; r! C, r; @
(set_tile "t_layer" (nth lay-idx laynmlst))5 g' J: x9 r& w# w
)& D/ N% O0 c! r
(cond - f8 A4 y S, o) ?
((= lt-idx nil)0 N& x' ~, ~4 r" K7 q4 D, r
(set_tile "t_ltype" "Varies")
1 _6 O s( ~5 E, V+ [
)
" w2 m' _9 i4 I
((= lt-idx 0) ; set tile "By layer & layer linetype": _3 J6 k0 ?# `6 u
(set_tile "t_ltype" (bylayer_lt))
6 X: Q2 z$ _4 n$ O- F; K$ t9 k
)
. T6 J, d! _% `
(T
6 T& V1 {) {# t" {6 z d
(set_tile "t_ltype" (nth lt-idx ltnmlst))2 @" h+ K) V# ~
)$ I& W! P) q! c* `1 U) M
)" Z9 W- I8 a# j
(if (or (= ethickness nil) (= ethickness "Varies")) Z! H; _4 x) X3 {. x8 h5 s; A
(set_tile "eb_thickness" "Varies"), v( t, J) [- D _! d& J# T
(set_tile "eb_thickness" (rtos ethickness))8 q) ]0 e, o j+ G5 H5 G. E* i
)
' U4 G# o6 _. w( ]3 J
;; Define action for tiles; s. z2 T" w) \8 ^* y( ^, l$ S" d
(action_tile "b_color" "(setq ecolor (getcolor))")) P- h7 c: B: e. F- ~' H. g
(action_tile "show_image" "(setq ecolor (getcolor))")
* P& t8 l2 U- }, N: I5 {
(action_tile "b_name" "(setq elayer (getlayer))"). Y) l, g; w( t+ s7 \: p
(action_tile "b_line" "(setq eltype (getltype))")
& N) u1 {1 m( \
(action_tile "eb_thickness" "(getthickness $value)")
7 s6 ]% B+ o, J0 x8 Z
(action_tile "help" "(acad_helpdlg \"acad.hlp\" \"ddchprop\")"): O% D2 W& _8 g: k- g
(action_tile "accept" "(test-ok)")
2 M% G; w: T* o* q
(if (= (start_dialog) 1)
# O% M0 ^7 H/ @ e, X
(progn8 Q$ P h' ?4 ^! S& P
(command "_.chprop" ss "")$ A$ S3 I% B8 n3 Z$ f$ g9 r" c
(if ecolor
0 {8 [9 X% {: C+ H& x5 z
(progn
2 A% Y& z( J# D7 ?& ?6 E
(if (= 0 ecolor ) (setq ecolor "BYBLOCK"))1 a2 b% K; S& E; W( H( G1 O( x9 e$ u
(if (= 256 ecolor ) (setq ecolor "BYLAYER"))
# s. y6 {/ E' ?$ g- a
(command "_c" ecolor)
$ i8 O; b7 l. |* _8 w
)5 E3 t0 c& D! a
)
9 a" C/ J7 V/ [. t( ^. \ V
(if (and (/= eltype "Varies") lt-idx)
; N6 V: P2 h9 J
(command "_lt" eltype)
1 C% {# o9 c8 ~& B+ R- A6 C
); @; H; H/ z5 ]
(if (and (/= elayer "Varies") lay-idx)$ e$ Q. {' J! W, x
(command "_la" elayer)
$ d/ \& V6 r; q* u+ v0 v
)
; w9 x, a6 g6 ?0 ]& p0 N
(if (and (/= ethickness "Varies") ethickness)( E5 Q, D8 a$ l1 h) r& N& y
(command "_t" ethickness)
2 W! r# z0 R7 J0 _8 u
)
. p4 j- {" ~$ w+ R7 L7 Q1 H
(command "")* d( `+ |* Z- F2 s. _! _, c% U
)2 u8 F* c t5 {, k9 o- @
(princ "\nProperties unchanged")1 A5 |0 u6 N! d' {4 |( H& Z
)
+ l/ X$ j/ Q# S+ d A* Y
(princ)
" C. D0 U6 v. Q* [
)
h1 h- l1 W6 u$ s; |+ N9 j% l" M2 H
;;
5 \/ M& J, o" I9 z, P' F0 d
;; Function to set the Color text tile and swab to the current color value.
2 D! }' V4 B. h" X4 y" E
;;
. A' k# l" q; x1 d+ q. F
(defun set_col_tile()6 [" J2 C% q. E. q- F. i
(cond + U3 `* z( E! z% g# {7 M* _
((= ecolor nil)% ~. N% T, ~ F9 ]& u+ P
(set_tile "t_color" "Varies")9 [/ v8 c, c' v u+ U& P8 ~* m
(col_tile "show_image" 0 nil)
0 F, Z. o. h( W; q& @+ f' }, H
)) L( n. l$ K3 I, M" O. s, H7 O
((= ecolor 0)
7 A' v6 V0 F6 }1 [' X9 a
(set_tile "t_color" "BYBLOCK")- f8 q' h* D& O2 G
(col_tile "show_image" 0 nil)
3 ^0 \! w, C5 h. E
)
8 t9 ~7 A$ P$ v" r" B5 q4 ^2 [
((= ecolor 1)& }6 h) _. ]! m" B% \( H: r
(set_tile "t_color" "1 red")
- v0 h" K! n0 t
(col_tile "show_image" 1 nil)
, T) U' u: f+ R3 Y
)6 ?# @- F9 r/ K; g1 [! o) j
((= ecolor 2)7 ^1 |5 [- A, X. s; M z, \$ ~" O" K
(set_tile "t_color" "2 yellow"); T# B' G) ]5 n N1 u& [
(col_tile "show_image" 2 nil)
/ s/ h0 o, f% {1 f8 b" v# b# O5 i
)
! \2 k. D& f { Y5 k+ L
((= ecolor 3)
5 Y3 r: `) }. {$ A& j, K' \+ v
(set_tile "t_color" "3 green")
3 Z4 ^/ g) C; y, q' O
(col_tile "show_image" 3 nil)9 j w& z$ w/ R$ d8 o5 u) h9 z
)
+ A+ r1 _+ M1 B- I6 w5 ?
((= ecolor 4); c, q7 y) X6 B7 S1 q- @+ ~
(set_tile "t_color" "4 cyan"), ?& o: K) N- Y! p B3 z
(col_tile "show_image" 4 nil)
* {* X. _. b9 H0 ^: F, Y3 R
)$ k R( j9 N' D0 |1 J* M9 Q
((= ecolor 5)
: L* V" ^6 i: [: s2 W+ Y: Y1 H
(set_tile "t_color" "5 blue"). ]* Y- h* }2 @9 U
(col_tile "show_image" 5 nil)
! @$ X+ b8 {8 R. Y8 Z* s
) e# F6 x+ u7 J& U
((= ecolor 6)
3 F, _# e) c/ y* l: X, o
(set_tile "t_color" "6 magenta")2 W0 N, b' w$ U+ Z3 }" t2 Y
(col_tile "show_image" 6 nil)( z4 K- {5 b3 u/ h; |5 R
)$ s# [: `* X8 v8 x7 G h. t
((= ecolor 7)
% G# S/ A1 p* ]$ x2 {! C. [4 j# l
(set_tile "t_color" "7 white")
4 D) d; h7 e8 ^# I/ _$ Y
(col_tile "show_image" 7 nil)
) k- y. ]6 U) W- L( m* V7 K) W+ T
)6 D' C4 h# ~& _/ B; i
;; If the color is "BYLAYER", then set the tile to; C5 v( E: g& K! V
;; show it's set By layer, but also indicate the
. {8 p1 X6 @- d/ n5 [% c
;; color of the layer - i.e. By layer (red)
& U7 E$ `, D! `6 _& k
((= ecolor 256)
- O4 J! J$ @: |- A& \
(set_tile "t_color" (bylayer_col))" @! d+ `, `4 B, X. }
(col_tile "show_image" cn nil)" v* P; \: j- `! r k/ x$ z
)
7 R" H) O9 {( ^4 j! O, ? m
(T
- o2 I- m; Z5 u# k
(set_tile "t_color" (itoa ecolor))- u6 z7 z p/ N" y: L
(col_tile "show_image" ecolor nil)" e: f6 ^5 `0 c+ w9 r8 P5 y) l
)
' z) H) w( W1 G( Q& J& C/ s
)* H& T; p$ o0 c% N, K# e; f
)! G0 E6 B- b, [" Y% Y* Q+ Z5 o/ y
;;+ |# }1 }! V0 E2 \$ M/ t/ `- X
;; Function to put up the standard color dialogue.* P- E. y7 ?+ i7 L- }2 T/ Z+ _* A
;;9 H! x, h) L! `6 O0 m
(defun getcolor(/ col_def lay_clr temp_color). w% ? ^) R, w; N
;; col_def is the default color used when rq_color is called. If ecolor
4 D' t7 ^; t( w$ I9 @# L" }
;; is nil (varies) then set it to 1, else use the value of ecolor.
2 D l) | v/ f3 c1 z
(if ecolor2 [. [2 O' w/ I7 V2 Q, d/ ]9 x5 d
(setq col_def ecolor)
P8 p$ L8 e4 h( t' x0 L( E% h
(setq col_def 1)9 v6 M; y- M2 J1 U; E" ?5 D* |
)
% x' e8 P0 R# |1 Q& l. w8 Y
+ t, E# d8 i+ Z! Q% N
;; If we're working with a single layer, get its color! s+ E. P" |. ]4 d
;; for use in the color swatch if the user selects color BYLAYER.
N- F$ e6 E$ B6 Z% K$ p
(if (/= elayer "Varies")
$ i, f! c. {" Y. j- g% `, H% t3 i
(setq lay_clr (cdr (assoc 62 (tblsearch "layer" elayer))))
. C7 Z; W5 h- x3 b" O* _
(setq lay_clr 0). z- A0 k8 h: s, R- `9 i; v
)$ r$ ?5 w# `# e( R1 N
(if (numberp (setq temp_color (acad_colordlg col_def T lay_clr)))
. w& ?* g/ J* k4 Z2 m* `# v
(progn
3 O! Y% U( v- X9 O9 y
(setq ecolor temp_color)) V4 u1 ?$ D6 y. F; d4 D1 j/ V
(set_col_tile)* e0 A$ r* ~; N/ ?9 v6 K
ecolor2 M4 D7 T+ u) a: A
)
: Q( E/ z1 v) U# E8 h* s- Z$ O( @; \& b
ecolor, L% L0 h: H0 ]$ E
) " E' ?4 S& U n* h0 M+ F
)
$ ^3 k, A. u! Z3 w: |5 y" v
;;% |8 C2 E1 t# H& ~) b/ F, X
;; This function pops a dialogue box consisting of a list box, image tile,
; T- M( \$ D: z1 ~" N
;; and edit box to allow the user to select or type a linetype. It returns " |9 s3 M( z+ c6 u |/ @5 I6 r
;; the linetype selected., ?3 a2 E0 b; P! K; C' @
;;
( L* Z; r, y7 a/ H
(defun getltype (/ old-idx ltname)
4 _% b- F& l6 e* }* R
;; Initialize a dialogue from dialogue file
* S5 d8 I" i, _5 G) R4 \6 U
(if (not (new_dialog "setltype" dcl_id)) (exit))
* l! Z9 N" B- I( C9 o
(start_list "list_lt"): X k) K4 k) J( g, Z
(mapcar 'add_list ltnmlst) ; initialize list box
& z) A/ o; A7 K6 r7 V9 i8 Y
(end_list)
( \1 q5 }! Q! ~+ N& L2 h9 _
(setq old-idx lt-idx)
' t5 w" b( G' ~5 M
;; Show initial ltype in image tile, list box, and edit box
; k% G$ ?$ K; l( H. K
(if (/= lt-idx nil)6 D$ b% \6 G7 J; R" f9 v8 H
(ltlist_act (itoa lt-idx))
5 f$ Y+ N: P! A; r' R
(progn
, e$ m1 M3 G0 F- y( }, V# n
(set_tile "edit_lt" "Varies")) _: W; B: ]( j! x& x0 t% t2 L9 C
(col_tile "show_image" 0 nil)
8 P/ Y) K1 g2 i) `
)
g5 U) O- @, ], z7 e
) f) P# Y1 |4 d& t- w- n
(action_tile "list_lt" "(ltlist_act $value)")% T7 U: u, Q9 n0 v9 p3 N. L$ M
(action_tile "edit_lt" "(ltedit_act $value)"): `# Z4 N/ \( j3 s6 r" R( b E6 _
(action_tile "accept" "(test-ok)")
- }' w5 q- ~ w
(action_tile "cancel" "(reset-lt)")7 G' U# }" Z. n3 N {
(if (= (start_dialog) 1) ; User pressed OK
' z1 P0 f' r, ~
(cond 7 i* Q3 j' m2 @7 z8 A
((= lt-idx nil)- A& B: v1 S9 ^; M- D& B
(set_tile "t_ltype" "Varies")
8 _3 ^3 R5 z+ Y; F6 \" Z
"Varies"
8 O l+ D# G' ~% K
)
/ `; @( [7 R b) b" ?9 k' X
((= lt-idx 0)5 \, a2 _; }) v& M' U# g
(set_tile "t_ltype" (bylayer_lt)), m1 r' ?: D4 z8 p7 J
"BYLAYER"( q! m. w$ j- s4 W; c
)
# i" Z4 z( u! P# z6 d: y5 u
((= lt-idx 1)
+ h h2 M) [5 k6 X
(set_tile "t_ltype" "BYBLOCK")+ o# Y" T0 V2 u" d6 E0 \# s
"BYBLOCK") m5 z: ]4 F$ b: _+ b" q
)
. Q. ^1 E3 M- ?/ X
(T
8 {) G: |3 R) o8 n
(set_tile "t_ltype" ltname) ( \8 S& U& c$ J6 u, _
ltname. i# U7 o4 Z n, G: ]
)* L; S" s: i5 k# q# E1 _
)( b. V* K, C- @' D% ^6 ?
eltype
! ?/ I- t! i, e9 k; q+ b) D% R
)
* F" d: p1 F6 [4 n4 h8 \0 H6 X) j
)# ?& d* }! D, G2 @: l3 r. S9 |
;;- \2 J% v: L. S. N+ p% V
;; Edit box entries end up here7 W' N& w' T# }) w
;;
% R& T. ~6 G' I1 J, g9 l8 q
(defun ltedit_act (ltvalue)6 _' j8 u# [8 _5 N
;; If linetype name,is valid, then clear error string,
! _; s, s7 S- P! D( O$ m
;; call ltlist_act function, and change focus to list box.0 e- W7 G, M3 H" w/ a
;; Else print error message.+ W. O. n/ e) M8 J) X0 k- M4 B+ Q8 t- W
(setq ltvalue (strcase ltvalue))4 l7 j2 M" i2 ?
(if (or (= ltvalue "BYLAYER") (= ltvalue "BY LAYER"))
% H% G/ d! F) s2 n! w3 S
(setq ltvalue "BYLAYER")8 _+ L0 _! g( `$ v$ S W
)4 N( _ R4 W# m0 }3 ?6 _: {
(if (or (= ltvalue "BYBLOCK") (= ltvalue "BY BLOCK"))" J# g+ `* R, I3 n
(setq ltvalue "BYBLOCK")& n" X/ n7 j( d4 H2 n3 c/ y0 M
)
4 C% e' S% y/ N9 i! K1 v g# l
(if (setq lt-idx (getindex ltvalue ltnmlst))
; q: f5 i$ x7 I( P8 y. c
(progn! f7 r' `+ K. W2 N) G
(set_tile "error" "")' w8 D0 S" d" `1 h n V/ d! s
(ltlist_act (itoa lt-idx)), F+ e8 p/ }5 B
(mode_tile "list_lt" 2)
7 O0 t. t' I5 P' b
)) S' b3 ^# T/ K$ J1 t
(progn
8 V" P; G* j/ N( z N, _5 J& U6 h
(if (/= ltvalue "VARIES")
$ ^4 K6 [8 j! I/ Z3 ]7 H* |5 ^3 }$ p
(set_tile "error" "Invalid linetype.")
6 A, L( ^" s, @ I4 X8 j/ Z) G7 W9 O
)
( x8 a% D. y' | l' V7 e* c
(setq lt-idx old-idx)
4 ^( H) _* _# W( k
) 1 ^) |% s) L3 \; w
)' }& \$ l: O0 A5 ]
)
+ d u& n+ J+ w& [4 D v
;;2 Q2 e- l1 S" W: T, J2 {* a
;; List selections end up here
( i; c C9 O8 \+ A
;;3 h1 G/ n/ @% e1 k
(defun ltlist_act (index / dashdata)' r8 i7 f5 t) m8 R* o6 K6 O8 w
;; Update the list box, edit box, and color tile" b6 O# A7 K! ^
(set_tile "error" "")
6 L. n. g, p# t5 Q. B; }
(setq lt-idx (atoi index))
, ] H0 W3 j Z; i9 h, i
(setq ltname (nth lt-idx ltnmlst))) q& @* m& z8 Y
(setq dashdata (nth lt-idx mdashlist))! A9 P- W6 H' W; v$ w
(col_tile "show_image" 0 dashdata)7 N7 z& H0 z6 A3 ?- R3 K
(set_tile "list_lt" (itoa lt-idx))
& } Q% p( H' c7 B. \ a$ Z
(set_tile "edit_lt" ltname)
+ [1 o& ^$ w" l- L$ s# \
)
4 e7 O3 i7 V6 l4 S
;;# {) G4 F% n& N/ w! q2 C, ~0 x+ q A
;; Reset to original linetype when cancel it selected& o& e/ H; O( S& e, d9 W' S
;;
: x- d% a" p3 E+ d0 {/ Y0 Y
(defun reset-lt ()1 J) K- a) x" x9 M; G+ Z' ]
(setq lt-idx old-idx): I6 s6 q. C$ q l* |
(done_dialog 0)0 g2 H. ^0 J3 V2 A% x4 J% M" i
)) P' Z; M. \! Q5 S/ T- \
;;7 b$ ]5 R5 \+ g( r, Z5 h
;; This function pops a dialogue box consisting of a list box and edit box to
1 n" t1 B) ]: n% |; c: i2 j
;; allow the user to select or type a layer name. It returns the layer name
4 [% R* A2 ]7 P* M& J
;; selected. It also the status (On, Off, Frozen, etc.) of all layer in the
2 d' K9 I3 w2 q
;; drawing.1 o' R- { y% l: i* A$ E$ u0 b
;;
7 h* v+ u2 K# @# h
(defun getlayer (/ old-idx layname on off frozth linetype colname)
) ?/ A# ^! t* e7 g3 P
;; Load a dialogue from dialogue file- {0 J; r- I3 L, j+ p: k' L
(if (not (new_dialog "setlayer" dcl_id)) (exit))
j& `. `. V- Z* R, \
(start_list "list_lay")
7 J0 w7 L; P z" ^, E: H5 z* }6 ?& \
(mapcar 'add_list longlist) ; initialize list box* f9 N+ Q, }) t9 X, R$ R+ M. M
(end_list)
3 A/ f6 C8 n7 H! |! P) A
;; Display current layer, show initial layer name in edit
$ A8 K% s, e7 Q' I4 O; h
;; box, and highlight list box.: w$ e: O% `, q% m* }5 }
(setq old-idx lay-idx)
( M' G2 J# b1 S# R2 d+ a. [/ s
(if (/= lay-idx nil) (laylist_act (itoa lay-idx)))5 v+ K4 r8 H9 e! j) T5 u3 @
(set_tile "cur_layer" (getvar "clayer"))" R: K! M+ s8 j; |0 F( Z
(action_tile "list_lay" "(laylist_act $value)")# h; p1 s; R, C+ X
(action_tile "edit_lay" "(layedit_act $value)")* L& a! E, E# F6 E' h
(action_tile "accept" "(test-ok)")
1 t; T/ U7 O2 K% M/ s
(action_tile "cancel" "(reset-lay)")
; Q% M' a0 @1 s0 M7 c/ {
(if (= (start_dialog) 1) ; User pressed OK
( J% ?3 L6 b9 }8 X
(progn! C5 Z% d' F# _7 p! z
(if (= lay-idx nil) (setq layname "Varies"))
2 n9 p9 D. _8 O: x7 r
(set_tile "t_layer" layname)
+ p& s S4 d) b: ] m. m
; If layer or ltype equals bylayer reset their tiles
! |- w3 A, X' }+ c( ~/ H2 @
(if (= lt-idx 0) {0 T3 S( K9 [+ f t) {! Z/ T. [& J
(set_tile "t_ltype" (bylayer_lt))4 E9 Z+ V2 m' y( U2 t6 I
)
" d0 d# N) b7 A. M9 C
(if (= ecolor 256)
$ h4 g3 [9 v9 C8 t- O
(progn( ~" n) H0 u; F0 L7 q& W4 e6 B
(set_tile "t_color" (bylayer_col))
, L9 M) p6 o3 m4 k0 m% ]/ F
(col_tile "show_image" cn nil): @4 a2 }1 Q/ v5 d6 Y
)
% s9 ?& c5 \+ `, e. s E, T
)
* i7 {/ j& l1 P7 `
layname
+ {" m9 e2 U6 M* B, H v
)
$ K! I: `; m$ t' s
elayer
/ y9 u& m# r- n6 }! {
)3 B) ^& b) B) _5 U
)
6 @6 q. j; S- H: N2 o
;;0 G2 M1 M' q. o8 N. l$ U
;; Edit box selections end up here* E7 P- d/ l, l
;;
, t J9 G3 n" N) _9 ~7 ?
(defun layedit_act (layvalue)) S- R; m, E5 t" G O* Y! M
;; Convert layer entry to upper case. If layer name is: n2 J& u3 f: p! Y% t
;; valid, clear error string, call (laylist_act) function,0 `- A4 ^' r7 C
;; and change focus to list box. Else print error message.9 R; S3 C5 }) X) L4 b+ y
(setq layvalue (strcase layvalue))" N* g7 I' J3 [# I& p G" p
(if (setq lay-idx (getindex layvalue laynmlst))7 G. n" V2 H: `- q% g
(progn
$ T8 c+ d8 Z* z, I0 k9 j! C' |5 i
(set_tile "error" ""), |' z, b: C4 r6 O
(laylist_act (itoa lay-idx))
3 S2 x: o) \/ D. S5 n+ m5 n1 a/ O
)$ N* \& J7 U; f9 M ]
(progn
5 |7 p, z9 h6 A0 ~- E* \
(set_tile "error" "Invalid layer name.")
8 i6 k. k3 B! N5 Q6 v
(setq lay-idx old-idx)8 l2 T+ Q- N* u+ w+ j2 U- L& e
)
& O9 R& m3 N* \4 t. K) w Q* M
)# w, G( {1 h3 o. O& c
)
3 Z/ W, e" w0 Q" J. x" w
;;
/ W9 |5 m4 e- U+ j% \
;; List entry selections end up here
3 f3 m$ r0 F6 r5 c
;;0 q+ `3 B2 e. O: r9 k! |
(defun laylist_act (index / layinfo color dashdata)
8 {2 i6 ?% p" L8 E. o+ Y) Y* Z
;; Update the list box, edit box, and color tile
# p7 W- g6 E0 f2 ~) m
(set_tile "error" ""), z/ R1 h% C# A; A
(setq lay-idx (atoi index))
/ {& D: H3 c- u/ ~& U- g) N7 ?" H
(setq layname (nth lay-idx laynmlst))
* o, x E, W) j5 |' d
(setq layinfo (tblsearch "layer" layname)): D. {! j6 B3 ~# [! J2 P6 ]/ f; J; `
(if (= (logand (cdr (assoc 70 layinfo)) 4) 4)* Q5 C1 c* N! \6 k4 s* L
(set_tile "error" "Cannot change entity to locked layer.")) q) \! v, H! c, R
(progn& x% U* q, D) [: f+ \% a( ]; O
(setq color (cdr (assoc 62 layinfo)))
- S% M2 z- j. `: V. A
(setq color (abs color))2 I2 u ?1 W. L6 n% h! L6 J
(setq colname (colorname color))3 s' j6 [9 P! N7 K( J* s5 Y7 u
(set_tile "list_lay" (itoa lay-idx))
; n, ^8 `9 W9 I' d
(set_tile "edit_lay" layname)
# A. \6 w5 h- Z, k, M
(mode_tile "list_lay" 2)) i0 A N( D7 c$ a7 c" W
)
: d, v* E' N8 ?. Z) N- e. P
)
) O- z4 |- q; O
)8 [, S- t! u- M2 Q$ M% |
;;
. B+ V3 d% R. ^( M" `
;; Reset to original layer when cancel is selected
* O, L7 A. H+ r; u1 i% s4 [ O# u
;;
y& M8 p% ~5 F. q j
(defun reset-lay ()
/ N. k3 _4 N- M& n, s
(setq lay-idx old-idx)
# G; J3 x" o2 I" E, a/ W3 N
(done_dialog 0)
4 l* i+ j- T% z! W
)
) J0 R" X; _( F# m0 J
;;
1 j7 M. n5 i7 n0 M" G
;; Checks validity of thickness from edit box. Since (atof) returns 0 when a
$ Q0 \- z7 z1 U% y) x. |
;; string can't be converted to a real, this routine checks if the first
9 i6 x+ y9 a+ D; r% y$ `) s: @
;; character is "0". It also checks to see if the value equals "Varies".$ a8 T8 M b% X; {- V' Z$ ]
;;
: g# j# {4 h# H) z! d
(defun getthickness (value)
" n! v1 W- n5 K7 Z* l' F/ q
(setq value (strcase value))$ @: N4 D- {: v0 p6 S% z' V
(if (or (= value "VARIES")' d% N! u% t; l% q) o$ ]4 @
(distof value)& `- o4 D9 X& X, v$ C0 X
)
, T$ I& N" H z" s1 B
(progn8 g2 v5 Q$ X! u
(set_tile "error" "")
& ]8 M9 V3 {, }% ^) J3 m+ B/ Q% E
(if (= value "VARIES")1 m; C/ t" P& R! u( F, p7 A9 c
(progn+ A& c. q# l- S8 u; R: V* ^8 l
(set_tile "eb_thickness" "Varies"). V# \* }) F" J7 @6 ^7 {
(setq ethickness nil)9 ]9 q; M: N4 e2 C' h8 U+ L
)
1 z9 O! R% T' w
(progn1 ]# V* [4 b3 {3 z$ O/ ~& m
(setq ethickness (distof value))
2 `) P) z4 z) i' c/ D) m0 x( o
(set_tile "eb_thickness" (rtos ethickness)): Z2 b# b5 M- j6 d( i- w
ethickness
+ N. M' G n# K: ?9 w$ W9 e
)
) Z$ y7 }5 K& q: ^' K4 ~! T
). \5 B* P. \) E' Z
)7 p# b# w$ X8 I4 u
(progn/ ?* M* ^% {" o
(set_tile "error" "Invalid thickness.")
: ^9 V8 {3 y* |
nil
* R; C2 V; ~% A/ x/ i
)
2 l6 r: ]) r: d5 l4 M* x% C
)( X+ R1 L& f# i- V
). q6 I4 a! g( g, H
;;
& _2 G- S9 Q3 T" @% h+ f& g& [5 ]) G
;; This function make a list called laynmlst which consists of all the layer 2 t7 U$ J9 O* [
;; names in the drawing. It also creates a list called longlist which ! w8 D6 K- {5 n; Q- w4 S
;; consists of strings which contain the layer name, color, linetype, etc.
* n7 h4 F1 C* g) V- H' V: G$ p/ Q" y
;; Longlist is later mapped into the layer listbox. Both are ordered the
8 [/ B2 V2 d+ v
;; same." v0 a- B9 i9 a+ q
;;2 _( N: I. x' Y3 b: }% {
(defun makelaylists (/ layname onoff frozth color linetype vpf vpn ss cvpname
! Q p& {1 B ?3 A! C& l
xdlist vpldata sortlist name templist bit-70
* |7 ~6 s4 |1 b& m# o( }
)
* T: k2 M5 j2 n: k" t: g) f1 A
(if (= (setq tilemode (getvar "tilemode")) 0)5 V, R* t. [- M: {/ q1 {! x* z
(progn2 {1 C, N6 i4 K& N: c9 ~0 _- V$ a# H
(setq ss (ssget "x" (list (cons 0 "VIEWPORT")
, S% V/ I: z$ \ x5 f5 q9 c
(cons 69 (getvar "CVPORT")). D) M% x9 l1 X( F7 T( N+ i# f: S
)6 S# L4 C! w: B7 |; V
)
' k; R+ }) E8 B4 S5 p9 ?0 ^: O
)
; I, O/ J5 `* E: G0 V) g# O
(setq cvpname (ssname ss 0))
/ @8 P) N9 f; |$ @4 b1 D
(setq xdlist (assoc -3 (entget cvpname '("acad"))))
8 l5 b/ A: o2 I+ x) B
(setq vpldata (cdadr xdlist))" P! Z4 S3 w/ |! I( k) ^* \
)
) F7 } D o5 t0 p' M: q2 ]* p
)
8 y6 R0 ~0 L! x+ c( k
(setq sortlist nil); ~, `. l3 [4 T% w. h2 W* t! a
(setq templist (tblnext "LAYER" T))
- S/ l# x$ _ y
(while templist; ^% G; P$ V' z
(setq name (cdr (assoc 2 templist)))
( e9 c% f$ F) ~
(setq sortlist (cons name sortlist))
5 x% a& G! m$ g" v' B
(setq templist (tblnext "LAYER"))
) Y+ F# L: f2 G; ?- L* I% N
) % n9 n: g# {' x6 P4 U
(if (>= (getvar "maxsort") (length sortlist))
. _+ }) w4 j; V3 T+ b! w% z5 W @2 P
(setq sortlist (acad_strlsort sortlist))( J- P0 V/ j; Q$ A8 C
(setq sortlist (reverse sortlist))4 j+ w$ W/ l) l S- a( l2 d
)
: g& K6 h& R- i( B# N
(setq laynmlst sortlist)
7 P- C. S- E& u
(setq longlist nil)
+ I0 s% [: q. o( }+ m
(setq layname (car sortlist))
^/ h& R$ [' v' ^
(while layname. d0 e8 h4 u6 m( i0 _
(setq laylist (tblsearch "LAYER" layname))/ I1 i$ G( _" }: ~# ?( H
(setq color (cdr (assoc 62 laylist)))* g0 _5 j1 a9 D! P0 I
(if (minusp color)* i6 k& v! i! [+ g5 u6 v
(setq onoff ".")5 A7 i1 E+ F! X
(setq onoff "On")4 r; V N: r3 @; P' {9 A
)- ]- F& x5 m. c' R. K6 R7 D: G
(setq color (abs color))4 F& j1 R; a3 B; g& z! M
(setq colname (colorname color))
9 s) D1 J, F# y3 x8 P1 ]/ a* _5 j% G
(setq bit-70 (cdr (assoc 70 laylist)))1 U- |: O& W9 F! _
(if (= (logand bit-70 1) 1)
: y6 ]9 P: O; Z
(setq frozth "F" fchk laylist)( d+ m* n% G- [
(setq frozth ".")
' Z" _) F% _, }( l) x
)3 y8 _ f! I+ i: @9 |, W5 P; g
(if (= (logand bit-70 2) 2)
0 Q4 J% f" R4 b+ Y8 b
(setq vpn "N")) N7 N- X) |+ ^+ B" L0 W
(setq vpn ".")/ a, T3 F6 d+ @2 E
)' ?2 R9 j. s1 q: i7 ] q4 ?/ l e! S7 N
(if (= (logand bit-70 4) 4)7 _7 r' b1 x/ G
(setq lock "L")* n2 x7 A2 I; p+ [- ^
(setq lock ".")
)# D6 `" T! o# ]+ _3 u
(setq linetype (cdr (assoc 6 laylist)))
?9 n" ^4 ?/ I, z! `. A4 A
(setq layname (substr layname 1 31))2 V, p, r+ A- t9 ?3 n
(if (= tilemode 0)( S4 [! O: \6 I5 \2 F& u
(progn
+ X, F' C B( S
(if (member (cons 1003 layname) vpldata)
/ S% d, z$ m9 }) C1 g3 @
(setq vpf "C")
' g g1 @; `. G; N+ e& |! `) d
(setq vpf ".")
+ [) @! b& c9 A- J
)! O" I5 X. Y0 ~4 q: K9 E8 }
)
+ h6 b+ V J. H' x, V2 L
(setq vpf ".")' ?7 }; y7 K/ ~3 k' h7 Q4 L7 I
)) k' ?6 Z2 d8 w, E
(setq ltabstr (strcat layname "\t", r4 h, P4 |6 G7 s, ^
onoff "\t"8 M+ @& ]& U% S0 }- e* b6 `1 E
frozth "\t"
7 B+ W. s. V! [9 }
lock "\t"" T$ N; V2 \+ A `- J; j, F
vpf "\t"8 ]- T9 v! w5 b1 A" _0 s* m
vpn "\t"
; b6 s) p7 \: L, Z5 |, ~5 r& G. d
colname "\t"
! ?/ a# {$ x& F% p8 Y" E
linetype
" m: [, n4 |+ R: [; y
)
. N: j0 W5 k2 [. V
)4 K/ Q8 F" w5 F
(setq longlist (append longlist (list ltabstr)))9 E6 X. z" Z% U! h
(setq sortlist (cdr sortlist))
" I) _9 Q. x: e
(setq layname (car sortlist))$ S* W5 h3 v- ]7 G3 r$ z
)
8 m! w5 w. W3 m. @7 a2 q
)
) T! A7 B4 d: W& Y+ K: f
;;
8 c W5 n1 h# R2 n: c
;; This function makes 2 lists - ltnmlst & mdashlist. Ltnmlst is a list of : p! F$ b3 a/ {* V' I
;; linetype names read from the symbol table. Mdashlist is list consisting + w! F( v0 a0 j
;; of lists which define the linetype pattern - numbers that indicate dots,
& y! x. w% U, \! k
;; dashes, and spaces taken from group code 49. The list corresponds to the ; S# T; k' T+ ~- w
;; order of names in ltnmlst.! C d9 @" D0 I3 P7 ?
;;
: H( b% I8 V( t$ _+ i
(defun makeltlists (/ ltlist ltname)' B# Y* J3 ^ F
(setq mdashlist nil); w( \5 @" T) C w; L
(setq ltlist (tblnext "LTYPE" T))& }* Q9 }5 u% U7 |" Q
(setq ltname (cdr (assoc 2 ltlist)))% V" d8 B6 s+ {8 f
(setq ltnmlst (list ltname))
" w3 A% V3 \& w* ]& h: `! _$ c% D
& \& e; ^# a) D( d" V* v
(if (= ltname "CONTINUOUS")0 m+ d# R4 h! P( Q& _" n; n% J
(setq mdashlist (list "CONT")), j# {: N! F' x4 e) Q& e
(setq mdashlist 9 C$ R2 A$ X0 C4 z) _" |6 c
(append mdashlist (list (add-mdash ltlist)))
3 y& k0 E: N$ R& V2 }! ?
)9 u: ^: K( m( M: x6 Y1 N- R" P
)5 V% z% C- f# v" ?# O9 ~
(while (setq ltlist (tblnext "LTYPE"))
5 A: N& i5 b: ]6 |" r: z c! p1 r
(setq ltname (cdr (assoc 2 ltlist)))
. \/ N/ u$ T9 A, f0 ~
(setq ltnmlst (append ltnmlst (list ltname)))5 L/ ?) k1 B) y% \6 c% f( S
(setq mdashlist 0 }2 ^- e2 p9 g6 q$ K6 N
(append mdashlist (list (add-mdash ltlist)))
8 Y& Q7 C5 R2 d# ? ]" b4 N8 t
)
* \( U |) T% k0 L) ~1 J
)9 l: z6 D' K! U9 }9 z- d/ K
(setq ltnmlst (cons "BYBLOCK" ltnmlst))) G# M1 | r# E- @( w! C+ S, u q
(setq mdashlist (cons nil mdashlist))
* u% O8 m1 h @/ h; m& t* z4 s
(setq ltnmlst (cons "BYLAYER" ltnmlst))
* E3 K! D+ ]1 e% [
(setq mdashlist (cons nil mdashlist))
+ W" t# |+ U" @4 z- a. B/ G
)
^' D! x. p0 v* @$ D$ Q3 S
;;- D* G" p: y1 G7 l
;; Get all the group code 49 values for a linetype and put them in a list
8 Y9 {: y4 Y/ q3 N' f8 I8 n
;; (pen-up, pen-down info)/ f7 [8 Z; v+ B" ~8 P
;;
- W7 q' s* g: X" N8 U8 e
(defun add-mdash (ltlist1 / dashlist assoclist dashsize)4 o( e N+ r% ~# }4 R5 h, u. S. X
(setq dashlist nil)
! r0 P6 x7 ]. m2 m) e/ P# ?6 F
(while (setq assoclist (car ltlist1))
/ D+ c% _* A7 L0 ~$ }& @
(if (= (car assoclist) 49)" n# f/ O8 P1 A
(progn
2 ^1 q4 i o6 o/ T: }" r
(setq dashsize (cdr assoclist))
n% ]0 R1 D. `- @, P5 T8 ]
(setq dashlist (cons dashsize dashlist))" O9 Y% l7 D- ^' l0 \, y2 h6 X
)
6 c( g! ^1 Q7 e5 u: ~+ F5 n* d
)
. h3 H5 L- q1 V; l( F Z. B
(setq ltlist1 (cdr ltlist1))# S+ {! W( N& d9 j# g, P
)
6 [5 B, a2 q% o J; W% ]! t
(setq dashlist (reverse dashlist))
6 B0 M5 N! W6 c0 W9 S" @1 d' Y1 ?
)2 u) A& z- Z0 V9 Z/ F2 o4 b
;;5 J- K7 ^$ u" x4 q9 i% n
;; Color a tile, draw linetype, and draw a border around it
: S* _, o* K% J+ ?$ \( n* q" ], T
;;
) v, X# g$ S2 O* d2 U: d
(defun col_tile (tile color patlist / x y)
; |4 N7 \1 ^' n$ F9 p4 ~8 j
(setq x (dimx_tile tile))
9 j, ]+ @: c! W
(setq y (dimy_tile tile))
9 `. f( k- y V# D
(start_image tile); p8 ^, h$ J, |
(fill_image 0 0 x y color)8 t/ J6 o4 m/ x; t0 I
(if (= color 7)# v0 G& E5 ?) I: D3 R
(progn4 \/ |$ j3 e+ ?, c1 e
(if patlist (drawpattern x (/ y 2) patlist 0))
. H" {( K; s8 _9 x# ~8 r/ F
(tile_rect 0 0 x y 0)
9 _2 `' o& X# ]" {+ ^" q! P+ k) y! w
)
% T0 L0 i# o& D2 {5 R
(progn2 l: Y: S6 t( `: m. X' d2 q
(if patlist (drawpattern x (/ y 2) patlist 7))
(tile_rect 0 0 x y 7)
+ g! K7 {/ N2 s
); H% O" [7 Z* Z8 ?$ Z! `# y4 i- m
)
0 I& {5 d) [. F, r
(end_image)& J3 Y' M# B5 f' t
)4 }$ t/ q" x" t9 d, B
;;
4 V; r& f. k! h; _! k3 J# d
;; Draw a border around a tile% M2 r j9 E$ _' a
;;
- N/ V6 d* K2 F [8 F5 p
(defun tile_rect (x1 y1 x2 y2 color)
, _+ e" ~% r+ }5 }/ n+ Q
(setq x2 (- x2 1))
, X! L+ w. X/ @& l" x6 s
(setq y2 (- y2 1)). Q5 O( J$ R6 P) ?% k
(vector_image x1 y1 x2 y1 color)
( R- y5 t; g$ ]1 I) H) D
(vector_image x2 y1 x2 y2 color)
" X' v4 N+ N& _
(vector_image x2 y2 x1 y2 color)2 @3 b/ M5 o3 j6 i' ~; P) p3 y
(vector_image x1 y2 x1 y1 color)* l+ Y. n; n8 k/ x4 U" j. F7 ~# C
)7 z: A# f) m. r1 s
;;
! g$ Z& }; K- V
;; Draw the linetype pattern in a tile. Boxlength is the length of the image
- [! y) s2 a( q# f/ y
;; tile, y2 is the midpoint of the height of the image tile, pattern is a 6 @& H6 H* G+ h- h5 o
;; list of numbers that define the linetype, and color is the color of the
$ l6 ^5 |; D5 j$ r+ g# l. r. }
;; tile.0 ^) U W e5 I1 {; R/ m! R x
;;
, R7 o/ q/ K/ J9 {( {
(defun drawpattern (boxlength y2 pattern color / x1 x2
/ V" P! V5 C) T% s+ x& X/ j
patlist dash). q) R1 A& d3 o a7 ]# }
(setq x1 0 x2 0)
* H% Z4 }1 r9 {8 U
(setq patlist pattern)
' O. K. b* E# b, D0 A2 f
(if (= patlist "CONT")
0 X2 L. H/ a4 l2 @- j
(progn - X7 V g! B0 B4 z; {
(setq dash boxlength)
! {- [7 L3 x2 K+ R* `
(vi)
* d& B4 i/ m9 T" T7 X3 L) w
(setq x1 boxlength)7 d# p- C* t, Z D5 J
)
' s4 R/ X4 S6 h' l' ^# c7 z
)/ e& A7 S/ ~) ?, I+ g1 E
(while (< x1 boxlength)$ O5 e, t4 w4 u& P
(if (setq dash (car patlist))1 @$ ?' i0 Y9 P) G6 j) X3 S5 S2 E
(progn1 [! Q9 {0 S5 n, o1 N
(setq dash (fix (* 30 dash))). |1 v3 _3 E ]( l% T% U
(cond
/ l- o4 Y& L! r( L. Z' C
((= dash 0) ) u1 l B6 {; m) w" H
(setq dash 1)
2 U; R; y* R3 J+ }8 F8 d+ S
(vi)
7 O( o( W3 o( f5 t! X5 V! l7 h! a
)* n' A% z) G* J5 }
((> dash 0)
! c5 e C1 d& ~8 s/ _2 Z
(vi)1 y0 U! m9 r/ U
)
9 p) u7 H0 ?* N% j; {8 N
(T * P2 |2 Z' o( d; K
(if (< (abs dash) 2) (setq dash 2))
8 W$ L/ p- U5 w* k0 h. v9 m
(setq x2 (+ x2 (abs dash)))
& E* J/ M( N, | G
)8 B! M& E0 c- s9 m
)
N" z! G% _- y2 I0 x; X2 v) n
(setq patlist (cdr patlist))( G2 M0 t4 w6 W. f# ^
(setq x1 x2)
, V; h/ b* ^* X3 p, ~+ Y+ L
)
5 v! M- D, C0 h% e s+ g* T
(setq patlist pattern)" F' z- f a" M* D+ q$ G
)
/ h4 U$ r# P# @) X0 p! _
)
! S3 c; a9 ?/ z! M2 \; _7 n
)
' t2 U ?& d Y( H
;;. F* q9 G4 [, {3 ]7 }% K9 d* U
;; Draw a dash or dot in image tile2 u0 M% A+ H. C" `7 J' b/ x- z
;;0 `8 n% [, i, Q* v; H# w
(defun vi ()) g, C: t3 H& W4 Q' J( p T
(setq x2 (+ x2 dash))
- ~& V& D3 h4 F
(vector_image x1 y2 x2 y2 color)
) X& H: @) \7 t: V6 p2 Z, ]
)
0 n2 i# p5 Q" k: |' `4 C
;;
. g! V, \1 x$ ]5 ~2 Q
;; This function takes a selection and returns a list of the color, linetype, % F! j5 s% D/ H+ p& B! @
;; layer, and thickness properties that are common to every entities in the4 R3 M% _; ?4 h+ c- n# [2 r
;; selection set - (color linetype layer thickness). If all entities do not
1 k7 I$ y3 k6 P) h. ?- ]/ h% A3 T
;; share the same property value it returns "Varies" in place of the 2 e* y) c: @1 J* D: Z! o4 F5 Q
;; property value. i.e. ("BYLAYER" "DASHED" "Varies" 0)# d3 _( Z" }7 J a2 m3 } y
;;
: B0 t# V% e" |- u$ U3 q
(defun getprops (selset / sslen elist color ltype layer! c4 }! a, C4 s+ r4 S* t8 K# Z3 t" q
thickness go chk-col chk-lt chk-lay chk-th ctr)
3 {" k; r5 a& ~
(setq sslen (sslength selset))% d" a9 Z$ @* o1 t
(setq elist (entget (ssname selset 0)))
' F/ \; v7 F% s6 O
(setq color (cdr (assoc 62 elist)))6 P( F4 s# I1 c0 x* k# o4 ~
(if (not color) (setq color 256))2 c, Q" ~1 u& y
(setq ltype (cdr (assoc 6 elist)))
" R+ y- W: H. W- w& G/ ~
(if (not ltype) (setq ltype "BYLAYER"))6 r8 R/ a2 m2 H# L) N6 ^6 n
(setq layer (cdr (assoc 8 elist)))
1 L* _+ a% a3 ]
(setq thickness (cdr (assoc 39 elist)))0 S% E" E% y2 h/ {) i; y- C
(if (not thickness) (setq thickness 0))
4 M! _: D- U9 Z2 S. U: q
(setq go T chk-col T chk-lt T chk-lay T chk-th T ctr 1)
) x% t9 M* b+ H O) u
, v; v' I% z, e H, k% O( ]; {
;; Page through the selection set. When a property5 ?0 j5 u u3 p1 ]9 D$ m
;; does not match, stop checking for that property.4 }+ t$ J$ j. E1 u7 w- N* O4 q
;; If all properties vary, stop paging.
! J/ d' H6 ~" |7 Z. u0 E3 m! }, g, R, O
6 Q. Q0 b- `- }4 [: q& r
(while (and (> sslen ctr) go)
4 u U. _: J; I, p
(setq elist (entget (setq en (ssname selset ctr))))
8 E: m/ W2 q+ @9 r
(if chk-col (match-col))
' g3 Z; C9 e$ Q$ N1 o7 |' G
(if chk-lt (match-lt))
* ]$ E! i, ~5 b" F) u" {/ _# Y
(if chk-lay (match-lay))
+ g/ ^6 M# b0 @! _; O* V: ^; Z' D
(if chk-th (match-th))
6 F; W T4 T+ l, Y& t
(setq ctr (1+ ctr))8 l: J; y. C/ |1 D# e8 a# P$ {
(if (and (not chk-col) (not chk-lt) (not chk-lay) (not chk-th))* T/ R( `. B$ P7 _: D6 m g
(setq go nil)
* F z$ g: V& W# k: m" I4 I7 G
)5 a& m' ]" Z# O
)
( [2 G9 U2 X7 d
(list color ltype layer thickness)
& ]( \3 Z6 h; o, @5 c, L( ^
)
; B1 S5 f* l* ?3 j# t, s2 E+ i
(defun match-col (/ ncolor)
* V2 P V5 d9 B8 y/ O, |
(setq ncolor (cdr (assoc 62 elist)))3 Q; d) p: w% d4 Q! y7 x1 b. w3 [
(if (not ncolor) (setq ncolor 256)): y3 R2 o' S0 z: k9 h1 i
(if (/= color ncolor)" p3 p& A; v- M3 K; S& R/ D$ d
(progn
) o+ H, \+ n0 R6 ^3 e
(setq chk-col nil)! W: I9 ] E5 Z, X# |- l
(setq color nil)2 c3 q& t! e4 [) A/ {8 Z
)
) w1 ~1 A% U! a( ^6 b- W1 Y: g+ G' w
)- k* Q6 }6 l8 W9 m
)
9 q' l% i+ U [0 k( H" L
8 k8 L, x' C7 f7 N, | v
(defun match-lt (/ nltype)
8 `0 G- R* _) x. t9 i3 l8 f
(setq nltype (cdr (assoc 6 elist)))0 W2 P3 o. O2 R! M# m0 A
(if (not nltype) (setq nltype "BYLAYER"))
+ K" L2 Q. V- r' `- S3 w( t4 L
(if (/= ltype nltype)* u Q3 {7 D" |" m D w+ t
(progn
6 P% O: |! G0 ]6 `, t7 G
(setq chk-lt nil)
0 j2 V @3 H, J' z
(setq ltype "Varies")
( s2 J7 s4 x4 A0 O, U- e9 S
)
( D. Q. c/ b/ F: E2 h) G# E- @0 x
)
6 r* ?) m1 y( v# T1 z7 h- r
)
4 {4 ]0 \. E5 |& n- P
, B( z, \! o& X: P" v! E2 G9 T- P
(defun match-lay (/ nlayer); s, u+ S, {0 t
(setq nlayer (cdr (assoc 8 elist)))3 |2 N4 k3 l2 b! y i; d9 |7 O
(if (/= layer nlayer)" j! S# K$ g! o/ s7 m: M# _
(progn
, ?5 f1 W3 {/ a6 {
(setq chk-lay nil)5 p4 s8 x- X& ~+ z2 X' R
(setq layer "Varies"); r8 g, x' u4 S+ _6 ?0 d2 q
), @, ?' E+ Y8 G# S S- t& s: [6 Q
)
, p0 A7 G: J Y* y
)2 E, g( X |) H. C" y& c
" Y# d) P2 _" d+ V1 r) o8 V; B7 X
(defun match-th (/ nthickness)) h0 C2 }. r, P3 K) b# q. V, I
(setq nthickness (cdr (assoc 39 elist)))
( h' w/ J( B- B! y& M6 H+ l6 H
(if (not nthickness) (setq nthickness 0)) |, a6 I3 i- S: }( [
(if (/= thickness nthickness)
% Y" a3 `7 ~5 t- }2 R5 d9 G3 i
(progn
! U7 K8 x$ R7 z7 K
(setq chk-th nil)
2 g. a' C6 M7 \) \* h9 N
(setq thickness "Varies")% [4 i, O; c+ R5 h$ c( A1 Q
)' r- D) S8 k3 l& }# s
)
3 ?$ n$ A, v }: Z
)
J+ N6 Y- R' o
/ B1 A* H3 a J3 c! k# v
;;" s2 M; C1 J4 z; `
;; If an item is a member of the list, then return its index number, else
/ g5 x) A0 N6 z; S" y& p, o
;; return nil.
P8 Z) n8 Y' e
;;- [* S2 m, |) t( _: l
(defun getindex (item itemlist / m n), `6 E: j6 H9 p$ \8 s
(setq n (length itemlist))5 h# D: h& `- ~1 M5 G- A
(if (> (setq m (length (member item itemlist))) 0)
) O! O1 A" ?: G0 V% C
(- n m)
/ W- Q6 l8 E6 K+ p
nil
, @0 g$ ]6 V: e+ i$ J8 T! A
)
2 s5 M4 s! I6 T6 _! a
)
4 m) o) r* Q0 a% T$ H* y
;;3 t( R0 ~ o8 x; F
;; This function is called if the linetype is set "BYLAYER". It finds the $ C4 E% w. R' Z0 b# ?6 b' S
;; ltype of the layer so it can be displayed beside the linetype button.( b$ i4 b! d, a- d& c! l* ^, I
;;2 L9 q# M4 k) D
(defun bylayer_lt (/ layname layinfo ltype)
" k, Q9 b6 o& ]
(if lay-idx
2 J) f3 ?" T0 x e/ u: V& {* o/ B
(progn
# W1 v, S+ J- ^5 b3 [( a
(setq layname (nth lay-idx laynmlst))/ J+ N6 t$ {1 L2 E
(setq layinfo (tblsearch "layer" layname))5 M0 e( Z# i* ]* v
(setq ltype (cdr (assoc 6 layinfo)))
3 r, q" G5 p) Y3 d+ m
(strcat "BYLAYER (" ltype ")")9 |2 k1 k1 K& p" q% Z
)5 l' y3 B( O/ O B! O; ^
"BYLAYER", \% Y$ ?- d3 q$ {! Y
)
V1 c6 d/ Y# s- R9 b
), ~1 W5 P# i$ w- i# ]1 k) |/ U' i: h
;;
4 ?& _5 ~& Y- j4 O6 `" a! V+ ^6 J
;; This function is called if the color is set "BYLAYER". It finds the . Y& ^. _& [5 @" I- K* E$ h W
;; color of the layer so it can be displayed beside the color button.
5 H" O3 v. X2 [' I5 d
;;( ]: \+ A. ?0 g- t/ i7 \
(defun bylayer_col (/ layname layinfo color)% a, Q3 m0 K2 l
(if lay-idx
) L/ i+ I3 i6 b; U
(progn
( M9 p& @- R# S+ ]& Q
(setq layname (nth lay-idx laynmlst))
b; A* _0 Z8 t2 Z: W) F
(setq layinfo (tblsearch "layer" layname))
5 p' L/ U( @* l/ Y) ]
(setq color (abs (cdr (assoc 62 layinfo))))# I4 [: t' \' o1 R5 v
(setq cn color)/ @4 [5 p& r: {6 J
(strcat "BYLAYER (" (colorname color) ")")
8 \3 i$ S* P5 m5 p9 Z# |
)
% x. s9 h5 P) X
(progn- k: b4 g! D) |
(setq cn 0)
- J' i( q, C& s& @! t
"BYLAYER") X" O0 d' Y4 t& E3 N: @: ?/ n
)
, w6 ?6 \! Q( k* B7 Q7 ]2 w2 |
)4 ~: B2 }. Z1 W% h7 F
)
, x! g5 F& [5 M& {. ?5 ~
;;, D6 c7 h4 _' l5 X
;; If there is no error message, then close the dialogue
& J+ P- v8 U+ b, P) v8 G
;;
! q5 t3 K$ L+ R) L, k4 f
;; If there is an error message, then set focus to the tile
z$ b7 t4 w* \. v
;; that's associated with the error message./ q8 b5 o+ b* q( N1 W. V
;;
( V1 O; [! _6 n2 o+ }( w
(defun test-ok ( / errtile)
% c4 O, h- K7 m, z: Y
(setq errtile (get_tile "error"))+ D* v ?& ^+ q
(cond1 n- M4 j8 R9 K& h9 G* w
( (= errtile "")
+ a3 i- ^8 z+ } Z
(done_dialog 1))
" `' s# E) ?: T- u* M) \# m
( (= errtile "Invalid thickness.")8 g- ?& o+ Q6 L; q
(mode_tile "eb_thickness" 2))
T7 p7 h) `4 o9 j( [/ }% U3 K
)& H1 U% k+ \/ }$ X" R0 t3 u
); E) F9 |, R4 _5 Y
;;. h2 a( t8 k8 z* V( |$ R e
;; A color function used by getlayer.
1 I" w, F3 ]4 q2 \7 r9 S9 S
;;
; Q+ _7 j3 `* z
(defun colorname (colnum)
6 K9 y K4 m) o i7 |: _+ z
(setq cn (abs colnum))
4 n. O8 `) }, f+ _$ J
(cond ((= cn 1) "red")
( i4 k8 j5 L* G: u; X4 u3 o6 w5 C
((= cn 2) "yellow")# O K; M( B0 A
((= cn 3) "green")
9 D7 R1 L) H4 R1 s! b
((= cn 4) "cyan")+ U, \- C; O, F- g! a; U# r4 u
((= cn 5) "blue")
9 Y4 E* ^/ k0 X" E4 y: J
((= cn 6) "magenta")
- E+ ~' i: Y- ^, \* e% x0 a
((= cn 7) "white")$ D7 J* e( P `4 L
(T (itoa cn))5 _$ {3 b4 `! ?; B+ x4 _
)
* l/ v* |, v! x5 X3 g( A6 b" ?
)
( o) Y1 s6 K, D: G
7 S% d. F: h- d1 v; a
;;; Construct layer and ltype lists and initialize all
8 G& D) l3 J9 N: N( U
;;; program variables:) F0 n, Q9 ? t5 v3 W5 X5 p
6 I8 j: j' Y7 D- ^' x
(makelaylists) ; layer list - laynmlst C6 h9 F7 h6 |3 }+ x
(makeltlists) ; linetype lists - ltnmlst, mdashlist
* }& }2 _* e* b. i) Z6 ^; ]
;; Find the property values of the selection set.
) z. B1 B& j1 d, v
;; (getprops ss) returns a list of properties from' B6 Z1 ?2 k L2 z. ~. p
;; a selection set - (color ltype layer thickness).
: @/ O R. D4 W% @5 g' e2 C
(setq proplist (getprops ss))
_4 T- k0 ~/ m5 J- J6 B
(setq ecolor (car proplist))
- h4 @) K' g# P' u
(setq eltype (cadr proplist))
. K7 R5 m. l3 @8 Q# p; M
(setq elayer (caddr proplist))2 S# O% w( J2 \/ r+ u( N! B
(setq ethickness (cadddr proplist)): B, }: {: W2 |4 f0 Y% l# b
;; Find index of linetype, and layer lists9 g- d, s# m: m9 r
(cond( y, `" g6 \) ]3 J; F- a
((= eltype "Varies") (setq lt-idx nil)): L2 r( K' n G K
; ((= eltype "BYLAYER") (setq lt-idx (getindex "BYLAYER" ltnmlst)))
8 T* i* u6 K. {0 L2 [
; ((= eltype "BYBLOCK") (setq lt-idx (getindex "BYBLOCK" ltnmlst)))
2 X# A$ H0 a. [1 O
(T (setq lt-idx (getindex eltype ltnmlst)))- T# |- Q c; P6 [$ o
)" g$ y: X- ?: M% c! `, B. r; |
(if (= elayer "Varies")' r' V+ g& q. p/ J9 y
(setq lay-idx nil)
5 w) T" [9 ^2 `% h( r
(setq lay-idx (getindex elayer laynmlst))
8 E. {8 e1 h# s$ {" P/ K3 U) x0 G1 w
)
8 W" c3 Y4 j& D& N9 z A) P! Y) m
(if (= ethickness "Varies")% D: ?2 D2 B8 Q
(setq ethickness nil)" r+ b7 N& Y+ R& Y8 B. F% f4 Q h
)
% l+ o O& e x: l/ o
. j4 d, |2 K/ t3 }
) ; end (ddchprop_init)+ m& R2 Q" q; e6 S9 s% b
2 I- D1 D3 u3 W$ ~6 Q, D* B
;;; (ddchprop_select)
2 o! H% A7 Z% D' f; X' ~
;;;
+ E' F0 n& T9 o# Z' o7 e
;;; Aquires selection set for DDCHPROP, in one of three ways:) X- }8 Y( I: @
;;;; Y' ?1 o& F$ ], f3 v1 N L
;;; 1 - Autoselected.3 p3 ]* g, S4 M: C
;;; 2 - Prompted for.
f6 B% Y7 C. B; l ?9 S
;;; 3 - Passed as an argument in a call to (ddchprop <ss> )4 t, F* \' ?& e: v3 E: \: e
;;;
% N: I' Q5 p4 K8 }( {
;;; The (ddchprop_select) function also sets the value of the; S) Q& `" B. m! a3 s
;;; global symbol AI_SELTYPE to one of the above three values to
1 g8 E }4 l# Q9 K2 w3 i
;;; indicate the method thru which the entity was aquired.
' e1 d5 m% h. J5 v
1 t2 n. D" f$ q# ]% G
" v+ ]6 R1 T# [3 I- D' J
(defun ddchprop_select ()& R( Y8 c& H% A) J
(cond
8 y0 S( [& A2 w! s- v) G
( (and ss (eq (type ss) 'pickset)) ; selection set passed to; F& l" b' u! a7 T3 b- T
(cond ; (ddchprop) as argument
+ \3 \7 ^- T* g. j. D. n2 D; |
( (not (zerop (sslength ss))) ; If not empty, then1 v, S: f8 Y* e# P1 m
(setq ai_seltype 3) ; then return pickset. p1 l4 ^& z9 ^) K) a
(ai_return ss))))+ H* G( B2 Z. z$ W X
5 Q5 m9 ~1 ?! M4 E6 o5 a8 X' j
( (ai_aselect)) ; Use current selection9 `: r+ q2 ^5 P A1 A* j; v K. l
; set or prompt for objects
0 m) `+ @3 n; G! b: a
6 D! b% V" Q B
(t (princ "\nNothing selected."): g- c9 l) u( J; H5 [
(ai_return nil))# J9 F: G0 q0 ^# W. A$ E
)
" \ v/ d/ k1 ]
)$ r+ d: j$ R% R2 G
% J7 x- K( P: R/ U4 D1 R
;;; Define command function.$ d, L K. M. q d1 X
- W6 @4 ~; ?3 z- i1 P8 t1 o
(defun C:CH ()
* k, g, y2 W8 R( U
(ddchprop nil)
6 v j/ P' G" H' D
(princ)
* s$ T, N! C! Z) u4 `0 d
)4 B8 U- ^$ `) \( ^$ }6 E! C: K, V1 E/ s
0 c- m i* O0 u3 b+ @8 t1 y
, y; p8 L( h( @+ _ ^& [
;;; Main program function - callable as a subroutine.
5 ]9 _/ r; E. H( X2 c* B
;;;
1 l9 i+ t' |/ o* G: I4 |7 f
;;; (ddchprop <pickset> )
" D2 V1 {" e; Q4 e
;;;
$ u/ F) [# j" R% _# A
;;; <pickset> is the selection set of objects to be changed.( f# _( _; d) X8 v! b
;;;
$ y" P. f7 e2 [& {# t$ [7 Q7 F
;;; If <pickset> is nil, then the current selection set is6 [8 f' t' J+ `' q% U* ?0 N
;;; aquired, if one exists. Otherwise, the user is prompted
) |: E; j! g7 \$ u4 q
;;; to select the objects to be changed.: e5 N& P8 \0 Q k. K
;;;
4 ]$ c$ O( u4 [& A* w2 z3 j7 M8 K: p0 [
;;; Before (ddchprop) can be called as a subroutine, it must
, e- l8 Q9 [' v# t0 F; u
;;; be loaded first. It is up to the calling application to
# {6 K; m8 J) c( i) r
;;; first determine this, and load it if necessary.& W, x/ C$ l3 e! y1 y2 P) @( g
1 C. K& v/ [, [' C4 {- |! C) v
(defun ddchprop (ss /
T- p& u# n' \ r' x
S, M' V! _% t$ m% s; i# e% l2 y8 g
add-mdash ecolor ltedit_act s
( Z) p h; p. S6 L! U, N
assoclist elayer ltidx selset; r c: \3 ~; n* n l* N
bit-70 elist ltlist set_col_tile
( ^; N; U/ P7 K: H8 h( C
boxlength eltype ltlist1
6 M( [( r6 W; C
bylayer-lt en ltlist_act sortlist# f$ F8 J8 h8 x( F. p
bylayer_col ethickness ltname8 [% E6 o! S, F8 S. U
bylayer_lt fchk ltnmlst sslen
! @% H9 l! v! R" T
call_chp frozth ltvalue templist- Y. U2 |( i- P c9 M, P+ N
chk-col getcolor ltype temp_color i3 g& G0 V% P( o( u* s r
chk-lay getindex m test-ok
+ w5 Q3 V4 N+ x8 E5 K% F
chk-lt getlayer makelaylists testidx4 C r5 r$ {* m4 a( N) J4 v, }/ v
chk-th getltype makeltlists testlay/ y5 d1 s2 S; T. X9 Q9 ~
cmd getprops match-col th-value
3 m8 @& i$ c* k& n, e/ x3 O
cmdecho getthickness match-in thickness( R9 Y; I( p; ]; ?
cn globals match-lay tile
& M% R; A9 Z2 s3 \" |( m
cnum go match-lt tilemode
7 H8 A- \/ h) [8 [- Q
col-idx index match-th tile_rect
7 T0 n! ]6 p# B' S; x8 R, I ?
colname item match_col vi$ z! W. g t0 w
colnum item1 mdashlist vpf
. ~4 m' ^$ r; M) B# [- o8 D
color item2 n vpldata
. v0 R0 G, n4 X1 Q8 t4 M& R
colorname itemlist name vpn- Y9 M2 e' g% S1 b
col_def lay-idx ncolor x; J. ?1 O/ r/ ]" M. @ ~7 o
col_tile layedit_act nlayer x1
, H- u6 l: S$ q4 e' q6 E
ctr layer nltype x2) e- d6 P( Z; c6 W- c0 ^ k2 U5 _4 k# x; T
cvpname layinfo nthickness xdlist4 i/ H: T* l: y! h9 r9 X$ H1 k% m
dash laylist off y- d! x% n) [3 G, x6 G
dashdata laylist_act old-idx y1
- U4 S: ?% e- I2 A' G+ V
dashlist layname olderr y23 s9 `- O- w8 q, e; @( Z
dashsize laynmlst on undo_init8 O% m; y* K& O/ N9 Z* @. @# i9 p
dcl_id layvalue onoff% I9 a! H3 b% a7 q6 e+ t7 ^
linetype patlist- z3 R% V' |' C0 o+ S' Z8 t% R8 S
ddchprop-err list1 pattern: ~/ O! v( R/ Z( U7 i' s
longlist proplist$ k$ i1 B( D" x _+ O [% S+ z, k( h
lt-idx reset-lay
$ g4 Z) A% T0 @
drawpattern ltabstr reset-lt
+ i, z1 ]6 P1 C/ B( h; M5 F: K
)
3 e4 l$ d( P) i8 g1 Z9 q
( f3 f& M5 e) A1 y
(setq old_cmd (getvar "cmdecho") ; save current setting of cmdecho
# T# u X4 l8 k4 L
old_error *error* ; save current error function
6 N$ |; }8 F$ m# O
*error* ai_error ; new error function
" x' W' V4 a" A! @3 F
)
$ n; |! I1 K' p$ t* l, x
( e; u: o8 o \3 Z8 a/ k0 c
(setvar "cmdecho" 0)5 Q$ `/ H. t- l, p! `
; T" L$ l3 y8 `# r' J
(cond1 L" a7 o5 H/ |3 B, M6 ]" i' ]. Z% a
( (not (ai_notrans))) ; Not transparent?
9 c7 B3 H# d& k# @# [1 a0 x
( (not (ai_acadapp))) ; ACADAPP.EXP xloaded?& L$ y: T5 f7 P1 D% _
( (not (setq dcl_id (ai_dcl "ddchprop")))) ; is .DCL file loaded?
3 m! D0 s9 x" f, F
( (not (setq ss (ddchprop_select)))) ; objects to modify?! B: h) q1 e+ v. |2 v) U: `6 z: Q
, T2 J' r, t% Q; \/ N, b. O: e3 N
(t (ai_undo_push)
/ v: z3 ?# A6 c8 W5 @1 {
(ddchprop_init) ; Everything's cool,, ]; f# t6 B1 L; L* m
(call_chp) ; so proceed!
1 ~ [2 }3 n+ [0 p" `
(ai_undo_pop)
! _" Y7 M2 y7 d8 g% `* k5 a
)2 }) ]- x7 u: p# H( B7 I% e
)6 j$ K) x' {; b! H6 H% h
9 _: i# ^/ y, c& c, E% F! i
(setq *error* old_error) " i7 @: ?2 Z% F: c% Y
(setvar "cmdecho" old_cmd)
$ D' V$ R1 w( l p+ [9 I e
(princ). I* T4 J3 p" n) @) m
)
7 a* w" V. j/ f$ p5 G
6 L& y; a. S0 ^( l+ P
;;;----------------------------------------------------------------------------
- F- r7 `! `) Q$ m
' c* }* I) Q1 T# p7 `- B
(princ " DDCHPROP loaded.")
7 |) M3 {0 u) M) y) F* j1 N# l
(princ)/ R2 p/ |8 z2 K2 I0 O# r# p: c( l
- M- V# t' a# |0 a+ U
;;;----------------------------------------------------------------------------
6 T$ `% G) J X6 r. z) ]* |# c) A
% H8 {3 |% M* @ P: L1 x
;--------------------------------ddmodify.lsp----------------------------------
6 p) |: T/ v& N5 a
; Next available MSG number is 1114 O$ U) s. m+ ~- q" q: @
; MODULE_ID DDMODIFY_LSP_. n; E% s+ T' w+ i% H
;;;----------------------------------------------------------------------------
# p, a1 \9 v' B8 b2 t# m
;;; DDMODIFY.LSP
4 |/ w3 _& p$ Q( \2 [" w
;;;
: L% k" E, g4 W6 |$ @
;;; Copyright 1997 by Autodesk, Inc.& Z" V9 W9 ?9 e+ M
;;;
1 D$ f8 g! B( y; C: L5 ]" G
;;; Permission to use, copy, modify, and distribute this software
$ c0 S0 I7 |: k- t6 X# C
;;; for any purpose and without fee is hereby granted, provided
^& ?/ {& y9 Q% D* m
;;; that the above copyright notice appears in all copies and
- B% P. c5 r: I2 a' x
;;; that both that copyright notice and the limited warranty and
4 W/ p d9 W2 `+ ]1 _+ Q# e
;;; restricted rights notice below appear in all supporting
8 d$ F- T6 J" Q6 b' G! c" Y: |
;;; documentation.8 \. @3 A& [, W
;;;4 o4 r+ s" @& }8 W7 ^
;;; AUTODESK PROVIDES THIS PROGRAM "AS IS" AND WITH ALL FAULTS.3 J" c7 N6 f# \. X7 B2 R
;;; AUTODESK SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTY OF) O: e% B6 N: M$ a
;;; MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE. AUTODESK, INC.
& l" g) U# S' g* c; B) r8 ?7 w
;;; DOES NOT WARRANT THAT THE OPERATION OF THE PROGRAM WILL BE
2 F6 _( y# _3 L1 K) D$ o4 `
;;; UNINTERRUPTED OR ERROR FREE." y+ a$ ]. N$ |1 l# N! M
;;;( C6 W# K# F# X3 L5 L" L) {
;;; Use, duplication, or disclosure by the U.S. Government is subject to
$ |* _, f5 Z7 Q; c
;;; restrictions set forth in FAR 52.227-19 (Commercial Computer7 M5 N( I3 A$ [" R9 I
;;; Software - Restricted Rights) and DFAR 252.227-7013(c)(1)(ii)! s) U; n9 Z5 ?; h
;;; (Rights in Technical Data and Computer Software), as applicable.
( n) J9 L1 L( m2 c) V6 Q, |
;;;
" K' P9 U, M7 B; ~
;;;.
6 E$ `9 v; t9 m0 w+ Y
;;;
1 j5 u; M( M; v8 G/ j
;;;----------------------------------------------------------------------------" _& } z" w# @( S% K( V
;;; DESCRIPTION/ m' O- P' F. `% d
;;;
* |% o- ]/ P9 W) |( U
;;; This function allows the user to get a listing comparable to the LIST
3 V0 q v& n; _: ~
;;; command for most objects. In addition, most object fields in the, h* r9 S4 X, k4 Q8 N
;;; dialogue box are editable. Points can be specified dynamically by: s# w/ k/ L! P0 ^- y- j
;;; temporarily dismissing the dialogue box. Each object has a unique6 A/ n! \5 Y, U3 B7 p
;;; dialogue.
2 b8 i5 G( d8 E5 G' n8 H Q! ?) g
;;;
" X3 x; B8 y8 S9 r. r$ d7 u
;;; Naming conventions
, m- }) X P% _. O9 r, s
;;; Long function and widget names may use an underscore "_"
* N2 N t3 @7 s3 s
;;; in their names to make them easier to read, long variable: p& w* \- A$ x8 E4 B! `
;;; names use a dash "-".
! Z3 R; X7 e& d1 h( u8 q# A5 j% M
;;;----------------------------------------------------------------------------
7 f: H( P" E2 P# W3 G1 F
;;;----------------------------------------------------------------------------
2 \8 M8 O1 ^! I* s. X5 W+ h
;;; Prefixes in command and keyword strings:4 p3 F. T# m1 t; I
;;; "." specifies the built-in AutoCAD command in case it has been
! m$ _% [5 M) t4 f2 V4 C2 ?
;;; redefined.2 {- e* H$ b* D
;;; "_" denotes an AutoCAD command or keyword in the native language
9 ]: m! L$ i/ U! h3 m& T
;;; version, English.6 X8 b+ `$ S& h
;;;----------------------------------------------------------------------------
3 X+ I3 }* Y' k0 X
;;;
4 ]/ G7 Y0 `# D% U4 \
;;; Avoid (gc)s on load to improve load time.- v& T" r) V" |
;;;
7 a) |2 _% l: [8 x
(defun do_alloc (/ old_allod new_alloc)# t) J# D$ }- T7 U5 f( x0 c( A7 m
(setq old_alloc (alloc 2000) new_alloc (alloc 2000))5 d7 F& o) d; L2 E( h* Z
(expand (1+ (/ 17000 new_alloc)))' z2 C; u4 O$ v$ Y4 t* ?3 g
(alloc old_alloc)7 ?2 I1 ]' V) ^3 h& n/ M2 s
)6 r4 C/ q) a- I6 n: Q O
(do_alloc): d5 C: s) ]8 a2 k' X! I8 I2 y
(setq do_alloc nil)
/ A! R3 U" s8 g. Y8 U
4 l" R. z, J$ a3 B1 D, x
;;;, ~4 W% b5 S- s3 z
;;;
& k8 p ?2 n) Q: N$ W' z9 ~( S# B- n
;;; ===========================================================================3 `+ h7 R! h b
;;; ===================== load-time error checking ============================
6 l! a7 V9 f- n; K2 p# s- Y0 n
3 {9 H& O, f3 @3 H7 p
(defun ai_abort (app msg)
) L3 K `+ m5 v+ s& Y& {
(defun *error* (s)
9 I. |( m0 D6 L; v* n. V" z
(if old_error (setq *error* old_error))
4 w: a6 Z+ H* [4 I C; O+ F7 @9 A% G
(princ)
2 b G# i, q3 P: l6 g& A
)
W8 b+ u0 F: U( l! ]
(if msg+ O/ B) G% J3 e
(alert (strcat " Application error: "8 |9 M# x/ G1 ?3 |2 N% P
app/ f2 _* I" m* ~
" \n\n "6 a5 @7 p8 ~1 L
msg
k, Q! A' \3 F$ g& n4 `
" \n"
@9 G& M9 P! d4 p: g
)
2 R1 d7 q$ d+ G
)
* N Q/ W3 S! G% h* z
)
0 y: G. F0 `' J7 y5 k0 E5 M
(exit)
8 {6 r! U% |5 [% ]5 |: S' S
)
( n6 B7 \* J+ @9 G
1 p5 y; g" ~& Y: M, e* t0 c
;;; Check to see if AI_UTILS is loaded, If not, try to find it,& I7 s8 F$ h, ~ e& `
;;; and then try to load it. If it can't be found or can't be
. ~2 P L& ~: p# w
;;; loaded, then abort the loading of this file immediately.* H( w4 H9 T( l4 J: o
/ J/ ?7 L: p% g4 u4 w
(cond+ @, N# k3 G. S# n; |
( (and ai_dcl (listp ai_dcl))) ; it's already loaded.
% {! g' U$ ~) w' c) H8 V
* |. p" R. _% j# k" d* }
( (not (findfile "ai_utils.lsp")) ; find it
# s" S8 R' x6 X
(ai_abort "DDMODIFY": I/ J x. {. m& ]
(strcat "Can't locate file AI_UTILS.LSP."5 @/ A Q% L) G* A* B- {9 l' N
"\n Check support directory.")))5 b0 w# e: R1 W0 w4 c% h/ G
1 c$ p$ j7 U6 o
( (eq "failed" (load "ai_utils" "failed")) ; load it5 Q9 b0 ]& p& q' h
(ai_abort "DDMODIFY" "Can't load file AI_UTILS.LSP"))
5 A$ [# k2 |/ C1 k! `
)1 U2 X; O* Q5 s& x) A% Z) q: h" P+ S
5 W! o0 v* N8 U+ Q1 p7 x6 b9 l
;;; If we get this far, then AI_UTILS.LSP is loaded and it can
# v, e/ W( a4 y* }4 a. K
;;; be assumed that all functions defined therein are available.: N6 Y3 Z/ Z4 ^: ^8 |
7 N! r& x/ J# x7 I# Q3 Z' s4 x5 f! R
;;; Next, check to see if ACADAPP.EXP has been xloaded, and abort l/ q" ^# ?0 o1 J2 y; _: o6 v
;;; if the file can't be found or xloaded. Note that AI_ACADAPP
% E/ F; ^; k4 g J
;;; does not abort the running application itself (so that it can
3 j( p% @# L/ L1 y/ T
;;; also be called from within the command without also stopping+ M" S1 H$ B) L
;;; an AutoCAD command currently in progress).4 A7 f' v( s/ Z' P, V
/ c) [ m# t; w% f7 u) D; C) }
(if (not (ai_acadapp)) ; defined in AI_UTILS.LSP# y4 V3 q4 l/ @9 V6 ~
(ai_abort "DDMODIFY" nil) ; a Nil <msg> supresses
- W! d$ k* P4 u" A9 ~
) ; ai_abort's alert box dialog.( h6 a9 \* s, k/ A3 Y
5 Y6 Q# O3 N2 c9 f# [" C; p
;;; ==================== end load-time operations ===========================
( v3 y5 Z% e" P6 b# S. X7 S
' o* r8 x& p: o9 ]
;;; global variables
7 _9 x$ \; q2 ~1 W5 \ v) @
+ S. o0 `3 t! a" \$ ^ W$ V. C
(setq hatch-elist nil)
: K/ J8 o( Y4 \* [6 y0 X
& a9 f7 b1 E7 x( S w
;;; If we get this far, both ai_utils.lsp and acadapp.exp are5 X' s3 B& B& }2 {/ Q) |- K% G
;;; assumed to be available.7 x* N1 \( g8 Q. X t
2 n9 ~3 ^; O* M* E) c3 [0 n
;;; Define and encapsulate all subroutines that are declared) W9 R# ?4 W. ~
;;; locals of the (ddmodify) function.
: s; M5 b# W! M2 C: M
- e, V+ F1 Z' `5 E; p) A; w- C
(defun ddmodify_init ()( Z) L) g; I2 z, b
;;, G; }% [) h, E# w
;; These three functions modify the enitity list for common properties. Since
2 {* I; I* K \9 \8 I
;; color, ltype, and thickness are absent from the object list when they are
0 a$ _5 C$ T7 _+ H/ [4 `' l2 H
;; set to their defaults (i.e. color = bylayer), a simple substitution using
- @2 f( ?4 z; D8 h6 Q, Q- ?1 C
;; SUBST is not possible.
% ^$ ~; g6 _3 u; N
;;; R9 K0 c& H L
(defun modify_properties ()0 q* c7 F: d: ]6 h- l9 e
(emod ecolor 62)6 `# B. q: T/ h; z2 ~
(emod eltype 6)
8 ?3 @( g3 A( i; p. X( _
(emod ethickness 39)
, b& n5 i* f+ a9 A# L& z
(emod eltscale 48)
1 R5 ?! j5 Y8 h! O; O* @2 ^
(tempmod elayer 8 nil)8 k9 l) n i; b
)# d& \! q1 v8 [% u; R( k
;;* Q# c8 U/ Z* m, J% { y% p
;; This function is used for modifying common properties of the ACIS
% o8 }" }3 f1 Y1 D: _5 d( L
;; based geometry objects. Thickness is not valid for these objects1 \- t/ z H# g c! o! i
;; so it is left out.6 u) z& q w: o5 {( E$ L
;;
4 [' E/ E; h8 Q0 H: \2 a
(defun modify_prop_geom ()8 h0 x. _& \7 i" k, S7 G; _
(emod ecolor 62)" n6 ^" i7 h6 E0 _
(emod eltype 6)2 z! E; M4 d/ H$ [0 j
(emod eltscale 48)
" I: M: x2 x, r9 x6 X0 k& g9 H
(tempmod elayer 8 nil)
9 y E2 k" l; ~8 |) p* W
)
1 @: ]; H; Y/ b9 L
- f3 s3 F% Y% r! p( Y
(defun emod (value bit)% w" c6 U5 T6 R8 x
(if (= bit 62)
7 R# W% ?" p! R" y
(progn
9 d; r7 k. V) K0 ~/ v/ {7 e
(if (or (= value "BYLAYER")+ O X% T' a& p
(= value "BYLAYER")) (setq value 256))
8 q* B- b3 x- q/ s% ]' c: d
(if (or (= value "BYBLOCK")
* n# ]2 W) `1 Q4 h
(= value "BYBLOCK")) (setq value 0))/ O; ?2 m( @4 y$ k2 c) E
)9 ?$ Q. N5 x0 p
)
7 ~/ m- d( V2 j( H' O9 H& J
(if (setq oldlist (cdr (assoc bit elist)))
0 \6 i; N# ?/ x& w0 a- ^& h
(tempmod value bit nil)3 z0 Y9 B5 }% D! ~5 D2 |8 M; F
(setq elist (append elist (list (cons bit value))))
3 e1 v ?5 B/ C) T: l" _3 A
)
- Z m" r% V0 g; Z
)
# r3 l8 e) e; o0 |& z5 n. i
;;
2 J' o Z$ I+ H2 ^( H2 z' J
;; Resets object list to original values. Called when the dialogue or
( C9 M: B+ ]/ r
;; function is cancelled.
+ q( T- K" M- F4 a( A4 s; j
;;
( ^2 u8 P) w- R' r, o5 q9 x
(defun reset ()
7 J! j5 ] L& a( u# S t8 s
(setq elist old-elist. l' Q" s y& F: r
ecolor (cdr (assoc 62 old-elist))& R: o* g# L1 u/ ?4 F/ o% Y l+ `
ethickness (cdr (assoc 39 old-elist))1 J' R, k5 ] V% e! }
eltype (cdr (assoc 6 old-elist))
2 c( @/ y' M2 g p
elayer (cdr (assoc 8 old-elist))" t5 t& c0 y! G" e; l+ f+ j/ t9 r: y
eltscale (cdr (assoc 48 old-elist))9 O n! m: L$ O& e, }
)' U) a5 b, ]) a. u: ?
(if (not ecolor) (setq ecolor "BYLAYER"))
/ V1 T" ~ m$ s j4 E
(if (not eltype) (setq eltype "BYLAYER"))
9 @' v% |1 v/ F1 W
(if (not ethickness) (setq ethickness 0))
7 Z1 ~* J2 F# x5 @6 s
(if (not eltscale) (setq eltscale 1))
& f, K& M& P9 P+ W
(modify_properties). F( q8 x/ \ ^7 @$ `7 A
(setq reset_flag t)
+ v" }$ v* L0 C0 P8 D- V
(entmod elist); s6 _5 }/ {6 u9 _
)- S9 k; T! }& V% B
;;& f% s0 l* z4 u3 j0 t5 l* p2 H
;; Modify object when dialogue is temporarily dismissed to reflect latest
, v* _* T! G: \ w( u; K
;; settings of dialogue. It converts the point from current UCS coordinates to( H" A0 h7 w3 j! E
;; the proper object coordinates (world or object).
0 b; S- o! U4 d+ M
;;1 T1 y' }- P2 K
;; Arguments: value - in current UCS coordinates
8 b, Z# S# p& O6 ]7 L. _
;; bit - object code (i.e. 10 for start point)
/ m0 n$ {+ A; _
;; ptype - point type 0=world 1=planar
) q3 m. [6 A7 O5 u# y! X6 y
;; g U0 k0 X+ f5 | x, q% d" I- u
(defun tempmod (value bit ptype / newpoint): P8 F& [0 s( p' v
(cond
' J; g) f$ }+ F) {: h) n3 o
((= ptype 1) (setq value (trans value 1 ename)))( s9 ` G7 Y4 M" g( U
((= ptype 0) (setq value (trans value 1 0)))
& {$ `) [# y, n% G; W' K( l3 W
)
3 Z' F$ D1 D2 i4 }
(setq elist (subst (cons bit value)
- _& K" h8 A, I V% O
(assoc bit elist)4 V9 P) @4 z2 Y* C U. B- r, _
elist0 E4 Y/ e2 a4 b; k' ]
)! o5 X& e; C% W" z- F+ \
)
* i3 z2 E1 ] p
) l3 P4 n7 @) s' U2 b
;;- a9 I% ^6 L" H& x' e3 I, x
;; The following functions are called after a dialogue has been temporarily: N6 Y# _+ V9 S
;; dismissed and the user is selecting a point. If a point is selected the' T; E3 K7 A. W
;; object list is modified and new X,Y,Z values set. If no point is selected
; O t+ \0 o0 N! c, x
;; (null response), then the point is reset back to its previous values.
* |8 G6 T4 b- ^/ r
;;
, R4 ^9 R) Y8 \4 Y2 x6 G1 p7 l# s' Z3 `
(defun ver_pt1 (ptype)! U, \* X) S4 l0 ^ f0 @; E
(if pt1
6 \# b* K$ j' T2 d! O' a/ q
(progn
# l+ ^ Z C! F6 m5 Z! f: \0 S! q
(tempmod pt1 10 ptype)
$ d2 ~6 K7 J$ k: j* P3 \3 f
(entmod elist)0 p! M! {5 R$ I, T
); \# ~, H0 c$ N5 y& T
(setq pt1 (list x1 y1 z1))
I4 a' [7 s" D$ g
)" ] s3 J5 D% I6 D
)( }/ Y% y' T ?
0 R! u0 a% g. E
; (move_pt1 <ptype> )
0 G+ _$ O* C7 D; g, k1 s: U
;1 B; T0 V5 e+ C- a
; Called in liew of (ver_pt1) to translate block insertions which( Z# [$ s$ J7 v- \' x4 s
; might have variable attributes attached to them. If the distance0 M$ G. s: \' ]4 o% b+ E
; the block is to be moved is < 1e-6, the move is deferred. ~1 x0 u1 q; s5 K
" L: C# m7 m+ J: p4 x4 X
(defun move_pt1 (ptype / basept hi)
# I, Y) }! C7 `# U2 V
(setq basept (trans (cdr (assoc 10 (entget ename))) ename 1))
/ B/ Q" Q& ] l9 @5 D$ k
(cond8 R. `0 ?. C* ?9 u m
( (not pt1)
2 c1 b5 ?( E; X5 {$ O' i4 b( q
(setq pt1 (list x1 y1 z1)))3 V) [6 p4 c; O
u7 B+ t" M* D. ] D
( (> 1e-6 (distance pt1 basept)))
: k' e( n, Z1 L0 u
3 l$ \8 M0 |% }* a7 Q3 c
(t (tempmod pt1 10 ptype)
7 }7 w6 g8 Z5 g- ]$ X' @" A# Z
(setq hi (getvar "highlight"))
: k/ n6 v- e5 @( q7 K" c
(setvar "highlight" 0)
5 y6 z, t6 {6 t
(command "._move" ename "" basept pt1)% t( C0 Q! j" h# I0 c( [3 i1 b
(setvar "highlight" hi))
( `$ a( n/ I$ L. ]& D5 h h: r. o
)7 p3 N6 y7 {$ o5 t( u/ f
)9 r3 D0 f# x6 G, Z0 i
2 \/ T. C# P# ~: S
(defun ver_pt2 (ptype)
: I9 \2 T, T! m, C: R. _
(if pt2. z) B0 A$ d! M& z
(progn0 ]: p0 d0 ]/ w
(tempmod pt2 11 ptype); b# T& Q2 ?* n/ I
(entmod elist)
3 e3 P& q, `8 w$ M3 w C
)
# L, z. r0 A' F, r2 H8 d
(setq pt2 (list x2 y2 z2))2 c: A1 i. j# F% i9 i- h
)
+ W+ L. d6 K5 |7 J2 }
)
% n1 C6 R& I8 o+ u R2 R; H
4 N( d/ S. [5 z: @' X; V! M
(defun ver_pt3 (ptype); T& T# [$ F1 P" [
(if pt3: ^" m. _. {% Z" Q: [- m
(progn
2 k- }9 M2 P, A7 X8 M% `8 _; {
(tempmod pt3 12 ptype)- z5 Q& V# j/ U( m) b6 R
(entmod elist)
( O; L& F% o5 U4 ~
)2 |6 t8 c+ a4 j7 k
(setq pt3 (list x3 y3 z3))
7 N# t1 ~4 b/ x
)6 y+ i: l( A6 N
), k5 v. I/ @6 X
6 { c- s( u1 X, @" S: G7 w4 g
(defun ver_pt4 (ptype)
# ]. P) O3 Y' w! U3 j4 R
(if pt4) k) h/ s% z6 B
(progn; f; C' i" Z& e
(tempmod pt4 13 ptype)
) e3 z6 b1 i: q) _8 K
(entmod elist)% V; f% T( i, @
)* V( r. r' o( K/ q0 E/ o
(setq pt4 (list x4 y4 z4))4 e8 C" u1 K3 {$ A$ O# q* e
)" `2 g: Q- _- _7 D
)
& S1 x8 w" W: {& w, b+ U; L5 u/ M
;; Xline/Ray% i* Q# b4 Q0 ?) W& T( D
(defun ver_xline_pt1()3 [& J' V1 S2 ?1 s& C( v Q+ f
(if xline_pt1( x5 L/ H4 a8 G u
(progn
+ [$ D" ]3 d) W. z1 `
;; convert to WCS.; Z. J3 C9 a6 s, v" l
(setq value (trans xline_pt1 1 0))
+ h) I* U& r9 \, [* v1 [: @6 ~# Z
(setq elist (subst (cons 10 value)7 \0 k, Q" p6 }: a( m
(assoc 10 elist)2 Z: s+ ~3 N: e6 M2 j8 R
elist5 z% Z; A9 ~$ b9 Z0 c" U6 g* Y
)3 c* Y+ o$ `; c' s. W# a% ?
): {, U# X8 ]( l0 w* Z# F
)
3 {: _, j9 i K* Q* q3 }
(setq xline_pt1 (list xline_x1 xline_y1 xline_z1))7 u# `3 ]5 P; w
)+ L7 F) `3 X; d3 I Z
)
: t& @; W* {/ ^+ S1 v/ x
' z9 b, t& L* J0 {
(defun ver_xline_pt2()
7 Z7 H. @+ Q$ B: G$ {8 Y
(if xline_pt2
* [! Z8 F' u! V' t
(progn
" F9 d# w0 R: N2 V, m( n
;;* ]6 x, o x& @1 g
;; Calculate new Direction Vector WCS$ R+ m ^/ q7 z8 I, T
;; x / (sqrt ( (x**2) + (y**2) + (z**2) ))& d3 t- l% }3 C
(setq temp_dir (trans xline_pt2 1 0))
6 V# |, i& @2 J; O
(setq temp_dir_x (car temp_dir))
2 ~! L) x; h* Q9 \
(setq temp_dir_y (cadr temp_dir))
, D* z( c$ u% C* _: l3 r( H
(setq temp_dir_z (caddr temp_dir))% y& z i" f% F9 V9 ~
7 s& J- B1 L) b6 o! a% S
(setq temp_xline_pt1 (trans xline_pt1 1 0))
- p. v) { p% v( x: Q6 M+ R% c
(setq temp_xline_x1 (car temp_xline_pt1))4 Q* Y( H0 k3 [+ P# v; M
(setq temp_xline_y1 (cadr temp_xline_pt1)); w; h+ E; N% A, W
(setq temp_xline_z1 (caddr temp_xline_pt1)), _/ W L2 e( c/ r8 t. X
9 d5 ^3 ?- L1 c1 X8 V
(setq denom (sqrt (+ (expt (- temp_dir_x temp_xline_x1) 2)
$ m9 h1 V& W2 ]1 F2 s5 L0 ]& G: z
(expt (- temp_dir_y temp_xline_y1) 2)
) q2 Y! g9 Z- a4 @
(expt (- temp_dir_z temp_xline_z1) 2)
& b5 F! {) l. f3 p
)))2 d: T2 \$ D2 `! T5 M' t
(setq temp_dir_x (/ (- temp_dir_x temp_xline_x1) denom))
5 ?* u8 R$ K) d2 Q0 ]
(setq temp_dir_y (/ (- temp_dir_y temp_xline_y1) denom))
: i7 [+ f. u2 U4 F/ T
(setq temp_dir_z (/ (- temp_dir_z temp_xline_z1) denom))
# e1 \' u6 O8 K l- g% w! h
(setq elist (subst (cons 11 (list temp_dir_x temp_dir_y temp_dir_z)), H( @" l/ w" V3 z: y+ Z& a
(assoc 11 elist)( a6 K) r% t! O
elist
. U! d# m( ^) Q( [( S" e& P. ], |9 P
). A7 k6 W1 d/ X3 {2 R# Z
)3 S" P5 C( O4 C' j4 P3 \0 T
(entmod elist)
+ Z% o/ n' m( U+ t: i: e
(setq xline_x2 (car xline_pt2))$ C, z1 ?3 b. S% I* D8 z
(setq xline_y2 (cadr xline_pt2))6 o, h9 M5 a- \8 r
(setq xline_z2 (caddr xline_pt2))- i$ `/ d1 T4 ^5 p+ A8 D
: ^& Z" A) I( `% D. Z' ^( b( v, T
) `1 g% s8 B& O
)
9 H _( K7 s; @ F: v" E
(setq xline_pt2 (list xline_x2 xline_y2 xline_z2))
# L1 i5 D; h3 _
)
- T% `+ P; D2 V7 K/ `
): k9 O' R- I( F: {5 S
, x5 N1 @, m$ C( K
;;
+ p1 e/ [8 b; `0 X/ Y. U
;; Common properties for all objects
# h+ w* p5 @. B1 ^) D0 i- _6 _
;;) ?- P4 z$ G1 T' v# B d
(defun set_tile_props ()
! U$ w( o& Q& c/ K9 ^+ \5 l
(set_tile "error" "")
# t+ G0 }: v# Q1 D9 R( ~
(setcolor)
(cond
# z* D0 v: c, g; ^
((= eltype "BYLAYER")
* S& }$ g8 I6 r5 @" T
(set_tile "t_ltype" (bylayer_lt)))1 U8 D6 [% y4 v4 W6 p
((= eltype "BYBLOCK")/ e0 i3 s: U7 o9 R, S/ K; }: D1 M
(set_tile "t_ltype" "BYBLOCK"))
L( S6 A) H3 x7 t# Y
(T (set_tile "t_ltype" eltype))
u4 y) J& O, \4 j' f; | p
)
; p- {" z0 t0 m# s4 @* e
(set_tile "t_layer" elayer)
! v$ N) \- k7 z# M8 A+ l
(set_tile "eb_thickness" (ai_rtos ethickness))1 S4 p# G- b6 |+ S8 e2 @
(set_tile "eb_ltscale" (ai_rtos eltscale))
/ l- P/ O$ q- `9 O/ g8 A
(setq which_tiles (ai_common_state etype))
3 ~8 H) ^. M# L7 G
;; Disable tiles if need be...0 P" \7 y" v% y5 \7 I
1 H; R' }: o9 U0 F- D& [, v
;; Layer Button and Text Field
B" B" y3 n2 n5 |5 U
(if (/= 1 (logand 1 which_tiles))
6 [4 r4 F0 e) |" h4 A. i
(progn
1 z; j$ u% E- m" ^* |
(mode_tile "t_layer" 1)" c! z- o3 ~; I+ t+ v, y6 e
(mode_tile "b_name" 1)5 z8 Q" _' m: s3 X* E1 X k
)
! F; j' C: g) N7 v
)) ]( W/ s3 e& x3 |% r; u' K0 u" N
;; Color Button and Text Field
2 C q- B, A. ]8 o0 h( G: i
(if (/= 2 (logand 2 which_tiles))8 ]/ O: J' Z8 I0 M4 ?1 ~
(progn2 ^: s* @+ \' C
(mode_tile "t_color" 1)
6 W& m# q+ W7 f% @7 U1 w
(mode_tile "b_color" 1)0 G: s+ A9 n; \1 x
(mode_tile "show_image" 1)
% q7 Q1 k8 \' s9 a$ S7 L; ^ O2 U' R
)
% v: D! K* V1 ^8 _5 o* ~" K0 q0 E
)* {' C$ X" h7 l5 C/ u: M' n, i
;; Linetype Button and Text Field
' x( w7 b7 l) {6 W9 h- g" k7 \4 ^/ o
(if (/= 4 (logand 4 which_tiles))( ?7 L2 a" Q" b2 {* x( G
(progn! l/ h" y7 ]# L
(mode_tile "t_ltype" 1)+ v; B7 X) S4 S$ Z9 R( o
(mode_tile "b_line" 1)
i# S0 i: {$ l3 t: N$ _8 C$ {0 }. }
): G/ A; U( J! ]% j9 ~9 F2 Q$ {
)
$ B: x* B7 x A- \/ Z6 z' Z
;; Linetype Scale Edit Field
/ u; b3 ~/ s, Y4 u
(if (/= 8 (logand 8 which_tiles))7 @6 X, y+ V/ j' x# P0 K
(progn0 R& P2 o6 b# z; J# P
(mode_tile "eb_ltscale" 1)
" D: S9 V L4 N+ I* x0 N
)
: u! |3 o0 f) a5 F! i# C7 Y
)
( B" O. w) A5 r* y+ Q: U
;; Thickness Edit Field.) b- H4 T) D5 d, q( ]' c
(if (/= 16 (logand 16 which_tiles))9 e0 m8 J* N" H' d3 x8 c
(progn+ M( O' j( Z5 c! |4 s$ {0 C3 E+ W
(mode_tile "eb_thickness" 1)
$ m! ~: g/ c/ W$ \
)
" Q5 v/ }* @) R- x7 o6 F
)1 Z" x0 i3 S. K: J2 ~; [5 a7 c$ }
)2 t- [6 u% A4 y1 M. D9 _" G( n, q
;;
) v' Z$ T! y. ?" J
;; XYZ Point values for all enitites
0 o- B9 ^; I2 x. z. ?0 J
;;
_- [$ ]# R' ~4 C5 y
(defun set_tile_pt1 (ptype)
: z5 G9 Y* |/ e( {! f
(if (= ptype 0)- T1 G$ {, s8 y' E7 I( B; j2 N
(setq pt1 (trans (cdr (assoc 10 elist)) 0 1))! H" m; b0 R5 I- C6 F* ]
(setq pt1 (trans (cdr (assoc 10 elist)) ename 1))/ H! ]! o7 f$ X, H7 Z
)1 X4 W9 c/ G% {! ^( _5 l6 S
(set_tile "x1_pt" (ai_rtos (setq x1 (car pt1))))
7 c, \! u& w' f4 D- q5 j
(set_tile "y1_pt" (ai_rtos (setq y1 (cadr pt1))))
1 m5 C( c: U5 O$ n x
(set_tile "z1_pt" (ai_rtos (setq z1 (caddr pt1))))- p2 Z& ` O: n. B4 }: |5 K$ H
)
1 |0 ~# z, } [
(defun set_tile_pt2 (ptype)7 ^* _0 B) s8 [) I6 _
(if (= ptype 0)
+ s: @2 b& ?% p' p& h. `
(setq pt2 (trans (cdr (assoc 11 elist)) 0 1))
! m0 D& W1 p7 r
(setq pt2 (trans (cdr (assoc 11 elist)) ename 1))) q1 p8 ^8 l) y$ N
)0 P( _0 C+ A M1 m" k
(set_tile "x2_pt" (ai_rtos (setq x2 (car pt2))))
, b8 Q4 E9 \, D/ W/ K7 m ~. |
(set_tile "y2_pt" (ai_rtos (setq y2 (cadr pt2))))* B) A) u: i7 s4 d0 R3 k5 k
(set_tile "z2_pt" (ai_rtos (setq z2 (caddr pt2)))). v3 k* J/ R, A1 G% O
)
( V& n- i1 k" p0 t7 O' W$ d2 ~
(defun set_tile_pt3 (ptype)4 D# \ H2 b ]3 {; W( Q! i- E
(if (= ptype 0)& ^% q. ?( c3 `2 d$ C+ A
(setq pt3 (trans (cdr (assoc 12 elist)) 0 1))6 N u6 _' B8 p& N7 }) x" h
(setq pt3 (trans (cdr (assoc 12 elist)) ename 1))& t! N7 L' B6 Z" Y7 v
); p8 T, x1 X. E& r |
(set_tile "x3_pt" (ai_rtos (setq x3 (car pt3))))
, j3 h/ X3 u& j% K
(set_tile "y3_pt" (ai_rtos (setq y3 (cadr pt3))))8 s6 k4 h; c) W; J& K( c: T* z- R
(set_tile "z3_pt" (ai_rtos (setq z3 (caddr pt3))))) `; W* R7 F3 U. D, S' N
): i0 k& ~& V0 T
(defun set_tile_pt4 (ptype)
. ?8 H5 Z4 ]3 G$ j3 W
(if (= ptype 0)6 X/ l; x2 ?0 W' Q
(setq pt4 (trans (cdr (assoc 13 elist)) 0 1))% X7 k+ Z, G; I; W
(setq pt4 (trans (cdr (assoc 13 elist)) ename 1))
, i. h0 D8 u" H0 w+ f2 F0 |
)
0 Z0 j+ o$ r# i. U0 W* i: N% E
(set_tile "x4_pt" (ai_rtos (setq x4 (car pt4))))
3 t- W) s" O( A
(set_tile "y4_pt" (ai_rtos (setq y4 (cadr pt4))))# v* K6 U$ y7 ?- @; t. z
(set_tile "z4_pt" (ai_rtos (setq z4 (caddr pt4))))
0 C: m- B* e) N( A1 R A! H" ~
)
( u$ P& S$ P# O' N* T0 B' _
;;3 X# y' y$ d: z! _: _3 F
;; Xline/Ray. H( _8 a; E; ?# C) g2 D+ M. a
;;
2 y* }" W5 v2 n2 x# L6 ~0 C! M
(defun set_tile_xline_pt1 ()
6 j! T2 @1 h7 ?1 v; B
3 n; n& O3 H0 j( H# ^
(setq xline_pt1 (trans (cdr (assoc 10 elist)) 0 1))
+ l- D7 c3 E0 u2 c
/ h( [( G6 z, v- d& z1 B/ }
(set_tile "xline_x1" (ai_rtos (setq xline_x1 (car xline_pt1))))
+ m! |' k2 y- Q# Y/ O+ e7 n
(set_tile "xline_y1" (ai_rtos (setq xline_y1 (cadr xline_pt1))))
( b5 p" R) }) _3 [
(set_tile "xline_z1" (ai_rtos (setq xline_z1 (caddr xline_pt1))))
: j' m- O! P+ }+ z: u
)
/ s7 u4 ^' H5 k8 Y0 ~. L" j
(defun set_tile_dirv ()
7 z$ b; r$ K2 }
;; Convert 11 group to local UCS (displacement)
+ }6 f. k' n* g# O
(setq dir_pt (trans (cdr (assoc 11 elist)) 0 1 1))
5 I: k/ R g0 S0 J; k/ Y3 \
/ ?. W; @' N2 D" F) E9 h# }1 a1 A
(set_tile "dir_x" (rtos (setq dir_ptx (car dir_pt))))
/ j0 }5 I2 Z0 d
(set_tile "dir_y" (rtos (setq dir_pty (cadr dir_pt))))
0 f3 V# I! c0 S# s2 z
(set_tile "dir_z" (rtos (setq dir_ptz (caddr dir_pt))))' L# N; I( x# J' H) k8 L
)7 _5 \! {) e; P Z( z$ U# @
(defun set_tile_xline_pt2 ()
6 y6 u6 T3 t) `- O. O: f5 a# ]
(if (not xline_pt2)
! K0 B9 y& D" \. P
;; Initial second point is Root Point + Direction Vector
+ E5 }& @, H$ L. f
(setq xline_pt2 (mapcar '+ xline_pt1 dir_pt))
( I* w( }" r1 z
)9 H6 C& d1 q, G7 R! y
(set_tile "xline_x2" (ai_rtos (setq xline_x2 (car xline_pt2)))); ~* U# N' z' i# n. v$ f+ a
(set_tile "xline_y2" (ai_rtos (setq xline_y2 (cadr xline_pt2))))( x! `5 q, l& ^$ g! s
(set_tile "xline_z2" (ai_rtos (setq xline_z2 (caddr xline_pt2)))) M! x9 ?. T' B
)& y* r+ D0 g2 M3 Y/ K* ]* Z
5 q w& w0 M/ B2 ?
;;3 I5 k# d8 U M# @
;; Handle for all objects
/ q8 E; `' I4 B
;;( _5 ~6 ]/ K, Y. A: Z# W" @
(defun set_tile_handle ()
/ J, N3 `4 w) ?: E4 l3 ` f
(if (setq hand (cdr (assoc 5 elist)))
; X% W$ u- x, ?4 P
(set_tile "Handle" hand)( k- i5 H- ^: y8 O1 q
(set_tile "Handle" "None"). i: l H. N5 p0 K! C6 F2 L$ f3 d
)
' w e6 S, D+ I. ]
)
9 B6 Q7 J K8 c5 z/ E- R
;;" ]% r8 r! ^, a& I* d& X
;; Radius for ARC and CIRCLE
7 B2 o8 o3 Q, }
;;
k z9 m( ^) ?) H
(defun set_tile_rad ()1 V0 F1 g6 V/ M6 v5 \! m4 I
(setq radius (cdr (assoc 40 elist)))
+ Q& U, B# ~5 [# N; x9 w
(set_tile "radius" (ai_rtos radius)). Z, X& N9 {" }, }" N: \- w: Y
)
# R! M# Y, ~: f+ o& u
;;8 u2 ?- p- O7 X: T& f1 N
;; Start angle for ARC
# L8 \2 u) `- ]) B
;;
) C0 l; u4 X7 }; O
(defun set_tile_stang ()3 d% M+ @# m7 b+ @
(setq st_ang (cdr (assoc 50 elist)))+ t. y/ W; U/ M! @" d$ l: p, U0 z
(set_tile "st_ang" (ai_angtos st_ang))" d% v2 [; f$ ~( I" j% b
)
1 x; I& \- j8 |; V6 `# o
;;8 l8 U; Q2 Y9 P; `+ Y
;; End angle for ARC% _- A2 }- W) v) q" N. m
;;7 L1 v7 ^! A7 [( r7 u* e
(defun set_tile_endang ()
* v2 @! f1 n- M9 j. W: ] t
(setq end_ang (cdr (assoc 51 elist))): v! Y& p' m4 T1 s% D, u+ _
(set_tile "end_ang" (ai_angtos end_ang))5 z% u4 s- u- U4 u. Y
)! D" l0 t8 e c
;;
* d* Y! J* F" r$ d9 r/ J! j. F
;; Rotation Angle - Text, Attributes, Block insertions and Shapes
; u& g$ p1 e% K. x& }
;;
- x* b4 E2 o! v F4 ? d A+ q
(defun set_tile_rot ()' b+ k6 `4 S6 ?6 f# `
(setq rot (cdr (assoc 50 elist)))- k8 }6 h, O! z; \' v
(set_tile "rot" (ai_angtos rot))
( W h4 z! f2 x% P0 h3 T
)
2 _$ G4 J8 b, z2 o
;;* r' U4 E/ h! M$ ?0 S$ y6 F
;; Height - Text, Attributes and Shapes
- ]+ t/ C6 Q8 \& I
;;/ s9 K8 k$ k* O9 \5 x7 F5 g
(defun set_tile_hght ()
$ {- s$ R# _* N( q/ t# z
(setq hght (cdr (assoc 40 elist)))
% _; j0 e \8 }4 P! o: E
(set_tile "hght" (ai_rtos hght))
' f) |, O+ X6 M8 D
)% b7 b- H8 q, i
;;
: w# h$ b' s5 A
;; Width Factor - Text, Attributes and Shapes
: j- D0 R/ k- A$ Y
;;
8 |+ M% F# a i, b8 d3 g# b9 Y
(defun set_tile_wid ()# a7 p1 _& ?7 l
(setq wid (cdr (assoc 41 elist)))
, @8 v6 \0 n: E8 N4 G6 \; w' H- ?
(set_tile "wid" (ai_rtos wid))
i9 b' G' y# |8 B4 g
)
7 K+ K9 r7 \$ K; k0 W: ~& v) Y4 b6 j7 \
;;+ {3 n# Z1 l* D9 I% B
;; Obliquing Angle - Text, Attributes and Shapes% o o& s$ L9 S Y( V' D
;;
& M/ ]1 A& y( w$ x: {
(defun set_tile_obl ()4 C4 K$ ]6 ]0 D* J& r w
(setq obl (cdr (assoc 51 elist)))
4 Y+ R% I5 W- W, J2 W) `2 q1 P
(set_tile "obl" (ai_angtos obl))& v3 O/ F' `, T! Y) x
)
8 P# N1 T* p# S% H) _+ B
;;% `7 k1 B+ p9 {3 F1 o+ I
;; Text string
m; W) z% S1 b! X9 Y& @1 P( u+ R
;;& }2 F, o) O% Q# g2 Q
(defun set_tile_text ()# g3 a0 i& `, E& C5 ?9 }( u- ?4 |
(setq text (cdr (assoc 1 elist)))+ c+ i7 R* |( q3 ^0 x
(set_tile "t_string" text)
5 z8 m! Q: ?/ M3 {( g7 W' u
)
& i7 ]8 c, Q7 x8 w8 Z/ N- f
;;
5 k! S2 U1 Q4 S6 h
;; Attribute Tag/ O$ w1 ]! D9 ]3 W
;;
* W t" B% u9 i0 \1 [% P6 R* a$ E
(defun set_tile_tag ()8 a# |) n/ O. v7 B' d; s
(if (= etype "ATTDEF")9 A* y6 R, \" y% w
(progn& t. T' Z- |# T3 O( c" b
(setq attag (cdr (assoc 2 elist)))
4 \ U4 {# x+ A$ C6 Z$ w
(set_tile "tag" attag)
M) R' J7 G G& v9 r; |
)
& F& P# c2 D% q! y% G
)3 R+ u/ o6 \) p- y' X: g
)
l4 [4 w+ y& A7 r
;;1 c+ a/ N; O0 [4 U3 h+ C1 k" G, d
;; Attribute Definition& C" o+ @; o* }9 M
;;8 F7 m2 b" P/ d
(defun set_tile_prompt ()" G# W; h2 y: n3 q/ L F
(if (= etype "ATTDEF")
& O' T2 `* n3 t. k3 {6 I0 s) f
(progn
9 ?5 I9 f. O/ }7 v% {+ G' j! s
(setq atprompt (cdr (assoc 3 elist)))
0 d7 V) }0 k9 C( y/ {
(set_tile "prompt" atprompt)( I* I8 A4 J* S) x8 M, s$ Y* v% Z
)
5 {" ~$ l3 O2 X" U& C
)
0 h$ B( ]# ?6 j2 V
)# \8 X; j6 n+ u- k7 n- i5 i+ ]) q# y
;;4 c- A9 A- U* T$ Q7 y8 C: I0 @# ]7 a
;; Justification setting for Attributes and Text. Initializes. h2 `& a; i: N5 r' X3 b+ E9 h
;; popup list box! b$ R& i, o: t, Y, Y& P# ~ Z: z
;;
0 z; U8 p: {+ `$ M
(defun set_tile_just ()
7 q5 y$ h! i4 l5 I, d
(setq ha (cdr (assoc 72 elist))) ; horizontal alignment4 V6 [! H" v" h- q2 I
(setq va (cdr (assoc 73 elist))) ; vertical alignment3 p9 n) a% f- }$ _+ B1 V
(setq ha-prev ha)
/ S& `2 s* o0 f- T3 `' Y
(if (= etype "ATTDEF")8 p4 T7 `0 a6 o9 j1 [& \- A
(setq va (cdr (assoc 74 elist))) ; vertical alignment( H) U- p2 H( X
)9 j3 s( r( A1 \1 d$ ], Q
(setq jlist
9 ^4 l1 a1 U7 ?1 _! T7 C3 x
(list "Left" "Center" "Right"
- k, }! U! X c& i7 [+ ?
"Aligned" "Middle" "Fit"
, `! J$ C, q% A1 i
"Top left" "Top center" "Top right"* A6 C" N9 _9 z. V5 o' p! S/ _
"Middle left" "Middle center" "Middle right"
- U+ @" Q2 t/ |& X+ y+ N: C
"Bottom left" "Bottom center" "Bottom right"& q3 i, G* i* k; Z2 V9 L1 e/ h
)
( S* _. t' |7 i2 |) h
)* R4 {, H1 h! M' ~" w
(start_list "popup_just")0 C; C, v c; ?9 U3 ^" J
(mapcar 'add_list jlist)! o, u# b8 V" L4 T' ?1 q
(end_list)' x% c" y. d8 b- f& S2 j7 r- u3 c
(set_just_idx)
$ X. Y9 n4 A0 K2 z
(set_tile "popup_just" (jlist_act just-idx))1 f7 R) o5 Y3 q& t1 t; e- I
)
6 j3 r. O" q# `+ \8 W7 c
;;% C( V6 `% B9 M- x) Q! b
;; Style setting for Attributes and Text. Reads symbol table for popup list
( I6 ~6 q" H1 D4 v! |+ m6 _
;; box.# E( X6 B1 _7 r1 j2 v
;;+ v8 L1 E) T$ E* X4 F0 a! B T
(defun set_tile_style (/ sname style-idx tlist)
# O f) X% `% H0 M" \2 L: p5 }/ D
(setq tlist (tblnext "STYLE" T)/ c; F; K8 C' m
slist nil)
) q4 x; u1 Y2 u$ U$ ?
(while tlist8 c& k& @$ s+ I' R# ~3 L# \! U
(setq sname (cdr (assoc 2 tlist)))
. a2 G* n; \% g
(if (and (/= sname "")2 ? Z1 `7 s% v5 C7 B, [5 C h
(/= (logand 16 (cdr (assoc 70 tlist))) 16))
" X0 b5 f/ O8 P9 i: @! V8 ^, Q
(setq slist (cons sname slist)))8 x/ \) g$ p8 B. F ` n
(setq tlist (tblnext "STYLE")))
5 |% K! x+ l( d" E
(if (>= (getvar "maxsort") (length slist))- c1 w/ G/ i( [- h
(setq slist (acad_strlsort slist)) ; alphabetize style list. w4 k6 h/ Q- H' H
(setq slist (reverse slist))) ; or reverse it to put it in DB order3 m) P6 \5 ]8 `
" j- X* b3 @( @, y J; R p
(start_list "style")
! z' C$ S* Y1 j( J' `% V8 c& d
(mapcar 'add_list slist)
: {7 D" ^- C7 P* Z7 W( A; l4 C( b
(end_list)
) T/ S9 `3 Y/ p$ p1 n; q/ H
(setq tstyle (cdr (assoc 7 elist)))
4 m! p0 ]' m5 k) F* v
(setq style-idx (getindex tstyle slist))
, Q, |% o9 d0 j6 e" U# C$ w$ O6 Z
(set_tile "style" (itoa style-idx))$ N" H; j2 m9 j& U
)
d" m4 ^6 N! M# N
;;
" @( H5 O" f8 w3 R/ }
;; Text and Attribute setting - upside-down, backwards, K" Z- G- ^ X4 |/ r% r2 z
;;* Q3 R5 `$ q4 \& n
(defun set_tile_bk-up ()
) Z; J1 N5 ~; H l2 ^# b
(setq bk-up (cdr (assoc 71 elist)))0 K' Y/ C9 G" S$ [9 D
(if (= (logand bk-up 2) 2)% C, j: n T; @
(set_tile "bkwd" (itoa (setq bkwd 1))): ~& x; k: f$ m) Y' K0 |
(set_tile "bkwd" (itoa (setq bkwd 0)))
; K. D2 V: v7 k$ ?) I, F
)
7 E4 _' A& L/ h) S
(if (= (logand bk-up 4) 4)
0 P. D3 m9 _, o+ _7 y8 q S( ^
(set_tile "upsd" (itoa (setq upsd 1)))
0 Z; K( I' v) T2 O3 T
(set_tile "upsd" (itoa (setq upsd 0)))
5 w6 z% K5 v) s* M
)
1 g7 t2 x" k/ p! o% M1 x
)9 D$ `. c) `: G7 u6 A$ r% S' j
;;% `) | }4 l2 _/ ?/ |+ G$ |
;; Attribute setting - invisible, constant, verify, preset) w& z% M) O4 `+ Q: y9 O
;;
/ c/ C. f: H: l! I% U5 V( g
(defun set_tile_icvp ()
O; `8 T/ n) D! _& s! K. J* u
(if (not (setq icvp (cdr (assoc 70 elist)))): g/ G( X: O8 Y4 ]4 G
(setq icvp 0)
! W6 C5 ]% A v+ I& {
)
0 {- x) h+ y; q. {! d
(if (= (logand icvp 1) 1). P4 v) L. h3 d" L
(set_tile "inv" (itoa (setq inv 1)))) K( {5 k/ |; K- e
(set_tile "inv" (itoa (setq inv 0)))
* l& u) U, u/ ~4 W Z/ V
)
2 {6 I) t( C/ }
(if (= (logand icvp 2) 2)
$ n0 N/ J1 |+ p; G7 q6 F) j$ X
(set_tile "con" (itoa (setq con 1))) ~- |) ?! {* e" F9 `
(set_tile "con" (itoa (setq con 0)))% E8 l0 K9 g4 [
)
4 T. I/ G* X4 Q6 U
(if (= (logand icvp 4) 4)
- ]+ q" E- ~7 S n9 f$ Y
(set_tile "ver" (itoa (setq vfy 1)))
# ]1 i2 t# [+ a4 R( H
(set_tile "ver" (itoa (setq vfy 0)))& L9 {! T4 G5 ^7 _" r: _8 U
); _! j- Q1 E* o O; i
(if (= (logand icvp 8) 8)
% d3 `, d5 o3 w5 ^, r7 D u
(set_tile "pre" (itoa (setq pre 1)))7 V9 g. N9 ]- ~: x% E" _2 l/ Q0 g
(set_tile "pre" (itoa (setq pre 0)))" J* _9 ]" I% N2 P( B. s3 S8 }
)1 t9 A+ J+ j0 W& \
)
4 e: E6 `9 v8 j2 m9 x! R9 L
;;
) x3 S/ K0 Q; ^. ?
;; Scale factors for block insertions
* \" O2 ^3 D) a8 V5 {7 N s
;;
- M X1 h& m: B: J3 [% C
(defun set_tile_scale (/ temp)) e0 t4 H% M; u/ I4 U$ J1 W! H
(setq temp (getvar "LUNITS"))
% a9 Q9 U" J" b$ j8 f
(setvar "LUNITS" 2)
5 S) K0 ]# M3 L, d! C/ b* T
(setq xscale (cdr (assoc 41 elist))), @" [2 m: q% N0 Z; P8 K9 Q6 Z
(set_tile "xscale" (ai_rtos xscale))) p0 q) a2 B3 ?' F! f
(setq yscale (cdr (assoc 42 elist)))
6 d% ]2 o) T) _4 G
(set_tile "yscale" (ai_rtos yscale))1 [, o/ c6 [, \) [- g, g2 `5 G3 E
(setq zscale (cdr (assoc 43 elist)))0 q1 ^ c: t$ Z
(set_tile "zscale" (ai_rtos zscale))2 g0 N( ]3 H/ l c0 ~2 `. O
(setvar "LUNITS" temp)6 r* w L* ~; p: m# a" K
)$ E5 l! y9 }2 ?% F6 X
;;
+ N: r! \8 {5 w* ?, R3 u2 F: q
;; Rows and columns for block insertions
7 f6 q& R9 T7 W& ?. m
;;0 _ ^. j, R: v+ A" h6 u) }3 r
(defun set_tile_rc ()$ J7 J0 [% b: ~* x" C0 G8 R- p
(setq columns (cdr (assoc 70 elist)))
. }$ R( u9 ?4 {5 N( C$ b* I
(set_tile "columns" (itoa columns ))
4 U6 @% R; G5 p" v' y
(setq rows (cdr (assoc 71 elist)))' J4 a& j, X ^3 f
(set_tile "rows" (itoa rows))
- s3 m! e) t8 m4 I
(setq col-sp (cdr (assoc 44 elist)))3 g, [' d: A3 Q3 _5 Z' s$ k
(set_tile "col_sp" (ai_rtos col-sp))0 P+ Z- `8 q& Q% y: J
(setq row-sp (cdr (assoc 45 elist)))- [$ H& y$ \5 d' D
(set_tile "row_sp" (ai_rtos row-sp))
7 @0 y! Y0 \+ p" u# E6 q6 g
(if (/= hasclip T)# H2 v$ C5 k9 s& W4 V* c- d9 b
(mode_tile "xcliponoff" 1)
4 e( f# q3 c7 F) W
(set_tile "xcliponoff" (itoa xcliponoff))
( t3 s8 Y/ Y; n! Q0 l, o, A
)* ^+ R& I7 i2 z' ?' H# K: [$ L
)
2 a/ h% f2 I7 U. H5 |* q
;;) q: I9 I0 K) X) k/ ]
;; Invisible edges for 3DFACE/ G# ?9 i( _% _$ r3 J9 T- ]6 R$ n/ T
;;" C7 L, B. O0 F+ z: }7 c- M* K7 P, f' x
(defun set_tile_edges ()9 ^, e @2 K- n5 e2 E% k* K
(setq f-vis (cdr (assoc 70 elist)))( x1 n* I- H. w% S- h! M0 |
(if (= (logand f-vis 1) 1)$ S, X3 \0 K; w# Z
(set_tile "edge_1" (setq edge1 "0"))9 z. `% B+ ^6 i! w8 ]3 ^0 z; c
(set_tile "edge_1" (setq edge1 "1"))
1 e& D0 {( G q& z$ m
)
% f+ M0 u/ F |; |8 E
(if (= (logand f-vis 2) 2)- ^9 T+ V, `3 Q% h2 \
(set_tile "edge_2" (setq edge2 "0")) ^3 ]& t+ I- i
(set_tile "edge_2" (setq edge2 "1"))
3 N+ e7 `$ G, r6 @9 z2 m4 A5 }
)
6 C. \/ K7 M% C! ~1 e6 O0 f+ |& h( q
(if (= (logand f-vis 4) 4)
, R4 |! s, D1 }' H1 B9 d2 e
(set_tile "edge_3" (setq edge3 "0"))
. s: F6 z- ?/ k. ~5 L
(set_tile "edge_3" (setq edge3 "1"))& g6 g F+ c- U4 j: R. b
); m% e8 [: y5 a- s8 ]4 f+ r+ M
(if (= (logand f-vis 8) 8)* x5 N3 |; [- y( H7 p6 O
(set_tile "edge_4" (setq edge4 "0"))
+ N+ [1 n% [; O1 J* H6 ` Y
(set_tile "edge_4" (setq edge4 "1"))
9 k& Q8 w+ n6 f$ u1 V) a
)5 a5 J. ~. Z2 }3 G' \7 _4 I! h
)3 J& k6 O# N5 _ }; K$ _
;;7 s( c+ w8 D6 g A8 }1 A- E7 t( b) y. j% G
;; XYZ Point values for polyline vertex* L, f# \- t# [' S
;;
: w8 u5 x. @, |0 C# j( E3 D; B
(defun set_tile_vpt (ptype)
% ^3 U+ G% J% m9 h" B0 \ N
(if (= (cdr (assoc 0 vlist)) "LWPOLYLINE")
) k; F1 t2 I# f0 _
(progn/ ^# _' `2 V3 O
;; ctr is 1 based, vertices are zero based.
( c$ U* a! i6 R: ?3 U
(setq vpt (cdr (getLwVert (- ctr 1))))2 \2 r- O7 p: C0 U: D: |
(set_tile "xtext" (rtos (setq x1 (car vpt))))
5 M- N9 X) }- W9 P7 E$ }& ^
(set_tile "ytext" (rtos (setq y1 (cadr vpt))))
4 y! a( l8 S K7 _$ N: ^4 b5 W
(set_tile "ztext" (rtos (setq z1 (caddr vpt))))& Z8 {4 O2 N& i' |* E* x0 l
)
2 z+ A9 X1 f1 a! f+ F
(progn4 ?1 ?2 g: W7 J
(if (= ptype 0)& a( O$ x1 X* \' m
(setq vpt (trans (cdr (assoc 10 vlist)) 0 1))0 ] n8 A; i% Q* e
(setq vpt (trans (cdr (assoc 10 vlist)) ename 1))
% k8 V, D4 u, x' g0 t
)) A/ C& F# Z, J( ~1 h
! p9 J; J0 \; W2 k
(set_tile "xtext" (rtos (setq x1 (car vpt))))3 h0 D; d: Y" I9 h! {
(set_tile "ytext" (rtos (setq y1 (cadr vpt))))
2 g9 j: Y% b4 e) {
(set_tile "ztext" (rtos (setq z1 (caddr vpt))))4 k. }# Z/ B! M9 B! p5 b3 f0 O
)( @. ^, X% g! ?
)8 s C, z6 ^- i, v& v' A
1 b, }" x3 d% e1 J9 G
)8 S& L' m: |& j0 ]0 J, W
;; This is the equivalent to doing an entnext on the heavy weight
" _) D& i9 E6 v
;; polylines. The hard coded '4' below allow stepping over the0 g4 `3 Y5 _! i: u, d+ ^1 d& A
;; 40 41 and 42 group code information. The while loop finds the
- F# B( V% g+ h
;; first vertex which will be used as the starting assoc in the- s2 o1 ~0 t6 r1 T
;; call to nth.
3 F5 H- y g8 s$ i( {* |
;;$ V- x' ?& D& V) D" H/ j% x7 g: D ], @
(defun getLwVert (tmpctr / count tmp)
7 R, a" e# K2 j
(setq count 0)
3 S8 B; A: b4 k3 d
(while (/= (car (nth count vlist)) 10)
- J [$ [: R- b( ~% O
(setq count (+ count 1))
* f% b! n, ]0 ?
)% M+ H; t! }* i* f, G
;; If the counter reaches the number of vertices,
' {/ j* F$ v$ B- _4 f
;; reset ctr and tmpctr to zero again.
0 A3 E$ x/ g8 V5 D: G
(if (= tmpctr (cdr (assoc 90 vlist)))* O" ?4 ?- X$ b9 q4 [
(progn
0 R, P3 z! r, u* P
(setq ctr 0)
/ x# z: y$ j4 ^. Z' \; g
(setq tmpctr 0)
( L. U% M) z" _- e: S: v1 p
)
% r" R7 y F# B# d5 F3 m7 z7 N
)
9 Y* x3 L. ^& F m5 s. ?
(setq tmp (nth (+ count (* tmpctr 4)) vlist))
; B' e1 f: w4 |9 _6 K8 ^# V8 A
(setq tmp (append tmp (list(cdr (assoc 38 vlist)))))
# M* \7 [' z1 G# U! A$ W2 a
(setq pt1 (trans (cdr tmp) (cdr (assoc -1 vlist)) 1))! ?6 ^ B% i+ e- c. l0 x
(setq tmp (cons 10 pt1))
- _& {3 Z9 g* g4 k+ S4 J
(setq tmp tmp)
1 y/ m; X5 w/ B$ W+ t
)
9 {& M4 l* h- Y7 c; K- J
;;
e% T2 ? _1 y: [4 U/ O4 U
;; Set tiles for Spline properties. If the spline is rational then we
8 _0 ]7 [" J2 \- ?1 z
;; need to display the weight values of the control points, so set! I# ^( v( E: T5 h1 L+ ?& u2 s
;; flag to 1.
& k a& l. r; h7 j3 T; t8 M
;; 1 = rational spline
$ q$ A+ W2 X. P+ a( k
;; 0 = non-rational spline
9 k( J& A; B i) T. F2 C# a/ i
;;
/ N: G! D8 k7 h' K
(defun set_tile_spline_props ()+ z& G6 G. o- J% M
(setq rational_spl_flag 0) ;; initialize rational spline flag
' @' J z! c5 W; X k2 B* B$ Y
(set_tile "Degree" (itoa (cdr (assoc 71 elist))))( A# U9 F* `6 p
(setq bit70 (cdr (assoc 70 elist)))7 k5 V$ D' J( l
(if (= (logand bit70 1) 1)
& v7 ?+ V5 f# @, R( F. l: \
(set_tile "SpProp4" "Closed")$ [! ^- D3 @/ |6 p+ c! g
(set_tile "SpProp4" " ")
/ y/ e( `( A @, C' u* N
)
4 N) `5 U6 J- w) `. r
(if (= (logand bit70 2) 2)- u( F% t p" y2 N1 y6 W2 p8 Y
(set_tile "SpProp3" "Periodic")/ L% A* }1 m5 D
(set_tile "SpProp3" "Non-Periodic")6 q) Y5 f/ z$ v W
)/ ~. z) Z- p, `! V( j* T' d
(if (= (logand bit70 4) 4)
( F( u$ p1 J% B( a/ p& u3 B* ^
(progn0 z' ^& I j+ y8 ~' X8 `
(set_tile "SpProp2" "Rational")
' A* V7 ]! y0 q7 T1 C
(setq rational_spl_flag 1) ;; this is a rational spline b1 |& f6 B3 f8 A* R
)$ v4 P E7 v- c$ `+ l6 H: M+ B
(set_tile "SpProp2" "Non-Rational")& S2 \( ] Q& K) g) @
)
" |: a3 _/ r$ N5 D; G8 T) J6 ^2 z7 L! M
(if (= (logand bit70 8) 8)0 d; G5 K# Q5 n
(set_tile "SpProp1" "Planar")/ C. p5 n2 V2 y) _! t p
(set_tile "SpProp1" "Non-Planar")
. d) h* g; m* \5 q1 o8 y h
)
0 j2 ~$ y) S# l1 ]2 g. U5 N) S, g
(if (= (logand bit70 16) 16)9 D8 A! _0 }: [, B5 V+ p; \
(set_tile "SpProp5" "Linear")6 S) l. f2 D# H/ W- z! z
(set_tile "SpProp5" " ")
7 [( N% B0 x4 F1 J8 v, ]' K
)
7 B ?! q3 H$ p/ X2 k
)
" R! \; z" D6 ^4 w" t" v
;;) |8 ~3 `6 `1 T; i+ D
;; XYZ Point values for spline points
- Z' Y! _: m9 d+ b5 Y( X
;; Need to account for WCS/UCS
;;- T. ^. S) H4 z0 `( k- l" x
(defun set_tile_cntl_pt ()9 S; h' h. F5 V' h: I
(setq cntl-pt (cdr (assoc 10 elist)))
* g: F/ ?3 u" V2 m- I
(set_tile "xtext" (rtos (setq x1 (car cntl-pt))))2 F/ u+ x3 Z" y& Z5 f
(set_tile "ytext" (rtos (setq y1 (cadr cntl-pt))))2 E9 e2 H r% O, D' U# h+ a ^& d
(set_tile "ztext" (rtos (setq z1 (caddr cntl-pt))))/ G& z# z4 _; N2 `# c
(if (= rational_spl_flag 1) ;; if rational spline6 L7 U7 h5 r5 w( a
(progn ;; show weight
! q4 o) `* b' I9 e1 g
(setq weight (cdr (assoc 41 elist)))) ^3 D) f7 O- K; d
(set_tile "weight" (rtos weight))% V' j3 H- f& V( B R i& y2 z
) ;; else* n8 Y+ R' Q, Y0 c7 t( ~
(mode_tile "weight_text" 1) ;; disable weight field4 H. ]! R2 _: T1 y$ E$ K
); q7 Z k7 `+ f% ?- l" G2 I4 S( `- g
)+ @" d" c7 M* x
;;, |" [4 I2 u7 z" C" r
;; XYZ Point values for spline points
- a3 N8 J7 E S* Z/ ]; ^( `9 E
;; Need to account for WCS/UCS
; s( g; I$ @3 @7 s
;;
' F& A4 I7 e { Q& H* E
(defun set_tile_data_pt ()
+ d! I" @+ C2 {, h- Q3 j
(if (not (assoc 11 elist))* Q1 @) o. C+ [
(mode_tile "data_pts" 1) x# N% N+ P. i4 L: X. {* H2 z
(progn
6 U0 }6 N: S, p9 A
(setq data-pt (cdr (assoc 11 elist)))4 d8 _' P M$ T! Q$ l: C
;; display points with current precision.
/ I7 b2 K7 m# c- C5 Q8 b
(set_tile "dxtext" (rtos (setq x1 (car data-pt))))% {' U3 S+ r8 G6 }
(set_tile "dytext" (rtos (setq y1 (cadr data-pt))))
4 ]+ J& K3 \8 f" W
(set_tile "dztext" (rtos (setq z1 (caddr data-pt))))
6 ? O$ N: X1 u: H0 _8 ?
)6 }4 _1 C( S: x0 ]+ h
)" c4 o3 P- K* w( Z' p& v$ _2 X
)% t0 _* B' {/ X+ r# q
;;# S, \ S8 G' E2 p1 A
;; Fit curve, fit spline, or smooth spline surface setting
' W- _$ t# _' {
;;& [* Y1 Y. C2 \: n+ q6 B' G' C
(defun set_tile_fitsmooth ()9 H/ N' D& A" h" T3 b- i
(cond
* W; T( f8 B( f
((= (cdr (assoc 0 elist)) "LWPOLYLINE")
( q, T$ q) \" A( [
(set_tile "none" "1")
& V) B; L. Z1 n' \
)( j: b1 M! s& v
((= (logand bit70 4) 4)* I0 U X. ~" D' i2 W, h+ O3 \
(cond( u L u7 x6 n, N( l* H
((= bit75 0): }8 R" h0 Z/ Q3 A
(set_tile "none" "1")4 y% j9 u5 h! i0 }( R' |
(setq spltype 0)
' p4 ]0 A* C0 _* r
)9 y" [% ]- i2 S
((= bit75 5)
1 j( P! {4 r* y0 |; \
(set_tile "quad" "1"): ~ x, v% b ?5 _4 f
(setq spltype 5)
$ `( N9 J$ ]. u$ j
)
5 D3 s Z# Q* E0 g
((= bit75 6): g8 r+ M: w5 x" D
(set_tile "cubic" "1")& G, y& e9 @& k* ?2 k
(setq spltype 6)
/ v F7 {# K4 d# t
), U) g! r( y1 ]5 m4 \, j8 }
((= bit75 8)* |4 v+ X' f: {- ?2 C
(set_tile "bezier" "1")
$ e: \2 T: I9 A6 G; N, U4 |
(setq spltype 8), R7 H% z/ W4 A$ z; F- V% U3 s
)7 U3 s" \, u; @6 G* x7 U
)
% G1 g$ A2 L$ ^- i
)+ z% [) G6 o6 R4 K( G
((= (logand bit70 2) 2)
% I; ]; U1 ]" s( u
(set_tile "fit" "1")
* ]3 Z) S" b e# C
(setq spltype 1)( j5 b3 ~* b& _# P$ ]. K) ~. S
)
0 e0 H& v: i' q; t$ Z2 Z% u5 v) _5 X
(T (set_tile "none" "1"))4 k, a8 y8 {5 }
)* \8 n P: C+ ^/ l2 A+ Z/ \
)5 @" u2 ^+ h3 r& Z- ^
;;
$ }' M& U3 k" ?4 l) B9 c7 G4 V
;; Closed or Open mesh and polyline setting
% I9 f& {& O9 _" N" I; P# y3 o+ y w
;;: K' m8 x. X% d2 a- y
(defun set_tile_closed ()
4 R3 f3 o; W3 M- L- ?" J
(if (= pltype "3D mesh")
0 P7 ^) l, b* D5 `3 y
(progn
/ B" |, S. i! S6 W5 R1 K1 Z1 K* n7 x
(if (= (logand bit70 32) 32)
' k7 _: H Q* x0 \* ^
(set_tile "closedn" (setq closedn "1"))
% L6 Z5 ]) W$ B; w( H
(set_tile "closedn" (setq closedn "0"))9 }9 @8 k$ m. \! g- t, m& P
)
+ D: ~$ K! {3 i4 H+ H& {2 ?! v
(if (= (logand bit70 1) 1)
' Q. O" Y; X- s" c& U8 Q
(set_tile "closedm" (setq closed "1"))
, l# r9 h ?" O+ L! ~- ^, o8 d& ^
(set_tile "closedm" (setq closed "0"))
! A! d- n# n/ ]0 w# h# ^
)1 z& D8 f4 w! q6 L6 C! Z
(setq old-closedm closedm old-closedn closedn)
y3 \- I# B! `& Q7 D+ R$ u
)# Y2 Z) {$ i9 r6 M0 x& n! ^& X% b
)
6 W* [# T! W7 l* |) n/ X) Z# H! C- D# x
(if (or (= pltype "2D polyline")
7 ^1 F! ]: x4 T, s( G4 s8 R
(= pltype "3D polyline")
+ ], N4 @9 S X( K
); N/ p- K% Y' v% j! f+ m, u0 Y7 u
(progn+ x' \1 W( n6 ]% B2 a9 U- }5 c7 w$ g
(if (= (logand bit70 1) 1)
9 ~" o% Q5 H! b$ Y
(set_tile "closed" (setq closed "1")): z- a& h7 \, Z3 M; g+ d
(set_tile "closed" (setq closed "0"))
3 ^" |# r9 O; r/ {' h/ `
)# k" \$ h3 n, Y( |' ?* \7 p5 [
(setq old-closed closed)
, j, f# ]* }/ e1 E9 x) }# ^9 Z/ `( s
), l" s6 @. X& b
)2 U: V& U; H2 D# m0 r3 H% V
): U0 t( p9 x& f& ]' x8 g
;; Set common action tiles
% u) z- m5 P T) H
;;3 {+ E7 U4 r. `7 t$ U9 r
;; Defines action to be taken when pressing various widgets. It is called
; {' [0 [' j. V) s' T
;; for every object dialogue. Not all widgets exist for each object dialogue,
4 Z- k) b/ m' ^( Q- d u- ]7 V/ c
;; but defining an action for a non-existent widget does no harm.
' g; e; Q W: g; I/ }
(defun set_action_tiles ()2 S; l. Z! f6 p6 ~# S% V, [# s
(action_tile "cancel" "(dismiss_dialog 0)")
" ]& ]7 `- m- c. @3 n
(action_tile "accept" "(dismiss_dialog 1)")+ }6 b% _$ O: y( p! X
(action_tile "help" "(help \"\" help_entry)"): o4 K/ e0 V2 A e
(action_tile "b_color" "(getcolor)")7 h0 c5 U1 m; m! Z
(action_tile "show_image" "(getcolor)")
$ D/ G' W( ?9 z
(action_tile "b_name" "(setq elayer (getlayer))")! c5 c" }; {4 ?
(action_tile "b_line" "(setq eltype (getltype))"), r; |# V7 k" h
(action_tile "eb_thickness" "(getthickness $value)"); k& G$ W9 L4 W0 S1 K; {3 s
(action_tile "eb_ltscale" "(getltscale $value)")4 z' t1 \5 f( U0 L" @
* ?+ f6 |3 f4 h" f
(action_tile "pick_1" "(dismiss_dialog 3)") h* S$ |4 C, q9 l8 `% @
(action_tile "pick_2" "(dismiss_dialog 4)")
2 k& P: ?. R0 z. Y! N' k. V
(action_tile "pick_3" "(dismiss_dialog 5)")
* e% d/ E+ w- P R
(action_tile "pick_4" "(dismiss_dialog 6)"): J e1 @/ X, r
(action_tile "x1_pt" "(ver_x1 $value)")/ x& R* a; d( u2 H( I; [" I! ~( ~2 ^8 Q! V
(action_tile "y1_pt" "(ver_y1 $value)")
9 ~$ P) @6 d( v8 w. [
(action_tile "z1_pt" "(ver_z1 $value)")
3 s2 O9 F6 M2 a& u
(action_tile "x2_pt" "(ver_x2 $value)")
9 r- o: Z. p8 ^# \: L) x
(action_tile "y2_pt" "(ver_y2 $value)")
7 d! x2 ]# v7 `; |
(action_tile "z2_pt" "(ver_z2 $value)")
& d7 M3 R: n- k+ U. k; U7 V
(action_tile "x3_pt" "(ver_x3 $value)")
" `) T3 @+ P' I3 l; P: I
(action_tile "y3_pt" "(ver_y3 $value)")3 B1 i( R0 w$ F: B/ V
(action_tile "z3_pt" "(ver_z3 $value)")1 A7 G2 i/ H& m4 v
(action_tile "x4_pt" "(ver_x4 $value)")
, [# t2 Y; J2 G9 S% P6 d
(action_tile "y4_pt" "(ver_y4 $value)")
& N7 C5 Y* X6 u+ [/ t
(action_tile "z4_pt" "(ver_4 $value)")$ _/ ~+ ~, e3 B# q( n7 q& x% z
0 K: g/ P) e. F3 o+ F+ \8 ]3 ?
;; Action tiles for Xline & Ray) x5 j* @1 [" q' ?- n. ? D5 a
(action_tile "xline_x1" "(ver_xline_x1 $value)")3 C% _& H9 Y; a
(action_tile "xline_y1" "(ver_xline_y1 $value)")
5 W, e- ]) g$ Q
(action_tile "xline_z1" "(ver_xline_z1 $value)")
$ o% g: a. u, m- b0 t
(action_tile "xline_x2" "(ver_xline_x2 $value)")
# H y: F5 i, Y# n' M' T
(action_tile "xline_y2" "(ver_xline_y2 $value)")/ `: A* i" _) p/ v
(action_tile "xline_z2" "(ver_xline_z2 $value)")+ ]. v2 k3 w2 \. H4 T9 r! V4 R
8 m% G" S C, G/ t# ?( S1 h f
(action_tile "edge_1" "(setq edge1 $value)")
9 \- t. \/ E3 Y2 O/ m3 y" D
(action_tile "edge_2" "(setq edge2 $value)"). |/ k: w: A% W
(action_tile "edge_3" "(setq edge3 $value)")
/ }) W" T4 u, k5 a4 }0 J
(action_tile "edge_4" "(setq edge4 $value)")' Q1 h1 d$ F8 c# H9 D, P
7 s1 \+ o: j7 [. C& v- f
(action_tile "radius" "(ver_rad $value)")/ Z- p! z3 D8 {/ ~4 [& b, ^2 {$ r
(action_tile "st_ang" "(ver_ang1 $value)")& A4 C$ \( V% F* {
(action_tile "end_ang" "(ver_ang2 $value)")+ T: y! J4 e" w) }
(action_tile "end_eang" "(ver_eang $value)"): I% Z& v- A- _) t
(action_tile "minrad" "(ver_minrad $value)")0 V7 s# ^3 M) [
(action_tile "majrad" "(ver_majrad $value)")8 l. M8 @7 `+ [, z
- I, ?1 _( D6 f+ h1 F/ H
(action_tile "xscale" "(ver_xscl $value)")+ Y- p! F s% x. }' v( h3 X2 A$ B& {- M
(action_tile "yscale" "(ver_yscl $value)")) f3 I E2 W7 g/ L, O+ }
(action_tile "zscale" "(ver_zscl $value)")
% u$ `1 F: |; X1 D% D! I
(action_tile "rot" "(ver_rot $value)")2 F9 K; L; ?- q
(action_tile "columns" "(ver_col $value)")2 M9 G8 q T4 x6 N2 e
(action_tile "rows" "(ver_row $value)")
7 v; Q+ C M2 w) }: d
(action_tile "col_sp" "(ver_colsp $value)")& \" A! E" _0 A# S% E$ a
(action_tile "row_sp" "(ver_rowsp $value)")4 ?) H( g! r- S( z: _) o
8 W5 N B/ d) m: p0 z/ j
(action_tile "hght" "(ver_hght $value)")/ E! z+ i, @+ z" n: x f
(action_tile "wid" "(ver_wid $value)")2 M! u. f( [0 z. a) V
(action_tile "obl" "(ver_obl $value)")) B! w0 q6 [. A, J7 V2 P
(action_tile "style" "(style_act $value)")9 ~6 @- @! r. \! A: f/ W2 M. x
/ X/ y' I. Y9 n/ m& v
(action_tile "t_string" "(ddgettext)")1 b B/ x& B0 b& I1 D! i. u6 C
(action_tile "tag" "(ver_tag)")
2 h1 _" X+ x% w$ k2 c' I
(action_tile "prompt" "(ddgetprompt)")4 B4 L L2 P4 q. n1 D I2 ~
(action_tile "bkwd" "(setq bkwd (atoi $value))")6 T3 { V* v7 S8 j. p+ F
(action_tile "upsd" "(setq upsd (atoi $value))")
; w( M, {. \4 L1 I- b5 e5 P/ h6 u
(action_tile "inv" "(setq inv (atoi $value))")( H0 _% u; D$ A6 k( `$ Y
(action_tile "con" "(setq con (atoi $value))")
6 u7 F+ {; j( P3 R4 t- c/ N4 o0 O
(action_tile "ver" "(setq vfy (atoi $value))")
; m* g4 ^7 o- r" Q9 e8 O
(action_tile "pre" "(setq pre (atoi $value))")
% A1 Q/ a) {# C4 U
(action_tile "popup_just" "(jlist_act $value)")% R5 ~' r$ P! }4 G, _
0 W& r7 [' P* M+ q
(action_tile "closed" "(setq closed $value)")( Q9 f8 R2 p/ W# z R9 V: j, B
(action_tile "ltgen" "(setq ltgen $value)")
& b+ o' c2 e$ T
(action_tile "closedm" "(setq closedm $value)"): U7 w( N" k% N+ P( n% }
(action_tile "closedn" "(setq closedn $value)")
9 V( ]; s5 D& n R7 x% q
(action_tile "next_v" "(next_vertex)")" }( |3 i" L+ y; V' T3 D( W7 T
(action_tile "xcliponoff" "(setq xcliponoff $value)")
- r6 Z8 b3 d$ R
7 u( z' Y4 M. F9 E; F! J, j
(action_tile "next_cntlpt" "(next_cntl_pt)")
y8 f2 ^- W; {, Q3 \9 S" _
(action_tile "next_datapt" "(next_data_pt)")
- Q; v; D/ ~7 _' W' ]8 r% L
' _) o8 K/ y( V% v6 h
(action_tile "none" "(if (radio_gaga \"none\")(set_uv 0))")0 f5 N) V/ O/ ~5 e" ]! W
(action_tile "fit" "(if (radio_gaga \"fit\")(set_uv 1))")
$ R5 M9 ?- ?+ c& J5 N
(action_tile "quad" "(if (radio_gaga \"quad\")(set_uv 5))")( ~, O& ?: i2 C# S
(action_tile "cubic" "(if (radio_gaga \"cubic\")(set_uv 6))")
8 T' K3 r. @, |, U! _* ~. z
(action_tile "bezier" "(if (radio_gaga \"bezier\")(set_uv 8))")
' |+ o9 `; I8 T% G6 b' U$ W
- u' b' F9 t; Q: q. O8 Q
(action_tile "u" "(ver_u $value)")
5 D/ P( K( S; _7 X/ e+ {
(action_tile "v" "(ver_v $value)")/ W2 Z0 f \/ q, v: Z( D' {
)
6 U! u/ z. D, x; D
5 u; E* p, \3 k! @
(defun ddgettext()9 l u6 R9 R/ u! f7 H
(setq text (get_tile "t_string"))) |4 e0 Y- V J+ A
)4 \3 O4 ^7 ^6 D+ s' V
# R7 d, e* d0 ^. t$ c$ {
(defun ddgetprompt()
. t+ x3 K0 \9 Z9 Z1 A1 ]
(setq atprompt (get_tile "prompt"))
0 a$ z# l) q4 f0 I. X; ^* a n
)
/ {# P6 T' S6 J/ q+ n' Z5 C
" J0 V8 v; ?' ^% ~7 x
;; As OW doesn't support disabling of individual radio buttons within- j, X! H* B* r& g T8 I
;; clusters, a check must be performed as to the legitimacy of the
: j+ ^& L' p+ H/ C1 S7 ~2 ~8 g9 e
;; button pushed and reset if necessary./ T, r6 {1 k b2 P
(defun radio_gaga (pushed)
5 S: f. U/ S( ^& P3 V6 C
(cond0 v) Y8 z' o7 y8 G" {0 }
((and (= pltype "3D polyline")
8 f3 B( r% w$ N
(or (= pushed "fit")1 Y! c3 A' E" e5 B+ Z
(= pushed "bezier")
4 R7 g& e; U: y
)
2 |( S |! e' k1 Z
)
3 q1 d& n2 a: `2 k! r5 p% y
(set_tile "none" "1")
Y3 T4 {5 l1 e `
nil5 N! h# x' z: L5 _- A0 r
)
1 \' O' j# l# _3 G) l
((and (= pltype "3D mesh")
' Q, V- E9 y+ X- p& q! ~
(= "fit" pushed)7 k9 f; a9 J8 e2 K" C- b
)
/ D- D/ l$ z) s) W
(set_tile "none" "1")
& d/ `' M; \: {2 t, G6 I8 h
nil5 j, `* [' J |* |3 z) ^3 c" T9 F
)
' i. ]( {% c- t# O+ M. d
((= pltype "Polyface mesh")
. R! I6 P2 A! T) [2 C6 O" r, }
(set_tile "none" "1")9 I- C- Q H5 a+ x0 r5 _7 E/ C% I6 X
nil
, W. d; l( G/ x8 q! g
)& w& y& ^1 h- ~! }$ _
((and (= pltype "2D polyline")
" T) X, _1 y" d& O) s+ p; m0 X
(= "bezier" pushed)
1 f, d. b. b6 V* W
)4 K6 S+ w6 V- T. A$ X# `* d" V
(set_tile "none" "1")
9 g, o" Y7 Y- k4 ~
nil
+ t/ F, t3 T0 S% s1 F' }
)
8 D- b4 G. U3 |' V3 y+ z
(T)
w, G1 L* z* f0 P/ t
)7 ^: g' ]$ q2 o
)
: q9 w. d5 C9 I' |/ y
;;. H: Y9 i3 K$ i$ y6 x" g5 @
(defun set_uv (type_n) Q% n- ~1 q* {" F
(setq spltype type_n)
9 s9 X2 j2 S4 W4 f' m! {
(if (= pltype "3D mesh")% S2 u( P. E& A) ^# q& v6 U9 Z
(if (= spltype 0)
. K% x4 j. `) m1 z
(progn
8 E" w5 l9 S; M2 V. x. N
(set_tile "u" (itoa (setq u 0)))- n; a+ Y% X9 r1 \. ?* p& G
(set_tile "v" (itoa (setq v 0)))
1 }1 i( Q8 D/ w' ]
)
' x+ c0 O6 s9 ], t" M0 x
(progn) c# x$ t. V) i' A
(if (= u 0)
: ?) `& s% j/ V* \) ^( G) l/ E2 ^
(set_tile "u" (itoa (setq u (getvar "surfu"))))) y0 T, N7 P4 ^# E% H
)
6 a! V/ [+ [6 @0 p
(if (= v 0)/ K+ x, @- B, n6 D
(set_tile "v" (itoa (setq v (getvar "surfv")))); E9 u; `* \4 G3 [" T# d5 N* [9 _9 ?! a; v
)
5 r" g, `' B& g
)0 F( N5 B# R: w, B# Y
)* E% }' I; N0 Q' h
)' G! S" q h; G- m2 G1 X2 u
)
8 S5 B/ S+ O# L8 }& x4 l# N' R$ w$ U
! w T7 o; ]+ {$ n: p
6 y* y, i0 {" `5 W: d7 H5 V
;;
. C$ M. v+ E% @' v# W
;; Verification functions
9 ^ ^6 w* I! f8 `. Y: ?2 C
;;
. t" E9 v: |9 k! t3 e
;; Verify distance function. This takes a new X, Y, or Z coordinate or6 Q. z3 a1 A$ q, T5 ]6 l; t% ]) o
;; distance value, the tile name, and the previous value as arguments.5 \4 a& P6 b6 s5 o
;; If the distance is valid, it returns the distance and resets the tile.
. ^9 K: C" X' w1 V, |
;; Otherwise, it returns the previous value, sets the error tile and keeps
2 I3 t+ f2 d: O q; R8 s, O
;; focus on the tile. Shifting focus to the tile with invalid value can
, w2 W! L& z5 E
;; trigger a callback from another tile whose value is valid. In order
- x) f; K9 N: i) v" {8 g
;; to keep the error message from being cleared by this secondary callback,/ e# g: N; g, [: C9 D
;; the variable errchk is set and checked. The last-tile variable is set1 k8 P7 t1 T8 g J4 l3 @
;; and checked to ensure the error message is properly cleared when the/ I% W' Q* E+ N1 s# `
;; user corrects the value and hits return.
" | Y' v0 r0 A2 N* x, J! O. u
;;
1 P) Y1 ^: C0 M- F4 q% X
(defun verify_d (tile value old-value / coord valid errmsg)( S9 f( X' e S7 e% I' M
(setq valid nil errmsg "Invalid input value.")( T& D$ F" _% e7 W! M( V
(if (setq coord (distof value))
3 ~+ J! U8 o; L) x
(progn% n) J# C+ o, G" Y) k w
(cond) [4 Y0 k& g+ u8 V
((or (= tile "radius")1 x0 f, c* C- N; s& P. \
(= tile "hght")9 V' w7 @9 t* b1 c; @& V
(= tile "wid")
, i' Q# p; f6 a+ u4 e9 C# e( K7 s+ j
(= tile "majrad")! h6 \9 t. T5 Z3 ?# c/ K
(= tile "minrad")
8 w! S% K- ]% j
(= tile "eb_ltscale")
& G5 w! g# J" M7 @9 S g1 A: P" u4 E
)! F7 i2 x+ G% p; H: b& t, g
(if (> coord 0)6 B/ w4 Y$ A7 c0 \* B/ ~, b
(setq valid T) d# J/ G+ t4 I/ N% c) c; o
(setq errmsg "Value must be positive and nonzero.")+ D o2 a+ h' s
)( g) T1 v3 M" `# ?; ^* O
); U8 T2 o" M1 i: M5 M1 N! Q: K/ |8 R9 [
((or (= tile "xscale")
. Q) w7 z) p3 s% P) e$ A
(= tile "yscale"); G& b7 M, e# l$ V( F: U
(= tile "zscale"): X7 B0 H' I K
)
, A; Q ~1 l6 K$ ]3 ^1 b8 i' j
(if (/= coord 0)
2 |) z/ V. \- w
(setq valid T)
+ R( v4 T, |* D4 Z0 l) q; b
(setq errmsg "Value must be nonzero."), [. f: {4 L# H/ \! z3 X
)
& @: B7 p; L2 d( @) K
)
. `# A7 J5 e+ V( T, j7 F4 p
(T (setq valid T))4 {) b' v, X) @
)
* e3 o X; U6 k. w
); `: ^5 t; q4 I9 `
(setq valid nil)
! e0 J! Q$ \% |6 ]" o6 T
)4 D$ E! q7 @) }9 \
(if valid
( }8 N' j6 M4 E" c+ g' \" i
(progn
3 T8 `, [( @% C' l2 K1 X5 j
(if (or (= errchk 0) (= tile last-tile))( m. D Z9 k E! F; w8 v- \
(set_tile "error" ""), [/ g( I) l" |1 o% ]1 x
)
4 x& X- q0 g9 f& H4 F( C# w
(set_tile tile (ai_rtos coord))
1 R3 B+ ?5 @6 P0 ^1 v2 C
(setq errchk 0)
+ c! \6 }0 k: x4 X# h
(setq last-tile tile)9 b- f5 B2 h' A2 w% _3 _2 @7 k
coord
& X3 E5 C8 s* @3 B9 j
)" g( `& \, ]4 V) W# ]
(progn
+ A- V; ^3 g9 \0 p" A/ |/ Y& k1 ?
(mode_tile tile 2) ; Move focus to offending field
3 e4 X+ I; k# ^" U" D0 c
(mode_tile tile 3) ; Select offending text
$ p) z. f9 f4 {
(set_tile "error" errmsg)! Y/ v, G2 Y7 s1 Z8 A( k; s, S8 T. a
(setq errchk 1)
/ X/ v6 A4 R* u$ I5 I
(setq last-tile tile)
4 o+ g1 X b ]5 h2 y" V( B
old-value
m* c" |$ r8 L$ Y3 }, i
)% ^. v6 v1 m2 c% u x' |5 p5 f
)
( {. `! A: R2 n; }
)* e/ S% R6 o, v5 Z5 q; } N
;; Function for Xline coord edit box checking.
" J+ \4 n9 Y/ X
(defun verify_xline (tile value old-value / coord valid errmsg)) W' x+ o+ W7 @; X
(setq valid nil errmsg "Invalid input value.")
+ B- h w# o: @% v$ _( S
(if (setq coord (distof value))
, H$ h) o7 Y9 j' H: k" W
(setq valid T)
# [- O V/ U) I# z# {: ]+ q9 f5 t! A
(setq valid nil)
7 W7 z7 ~7 P6 ^) b4 M
)
2 Z( l, C% `# S: A4 w! X' w
(if (and coord7 D; f/ Q% }4 e! T9 F" I
(and (= (atof (get_tile "xline_x1")) (atof (get_tile "xline_x2")) )
3 T- j; [ D8 i. p
(= (atof (get_tile "xline_y1")) (atof (get_tile "xline_y2")) )/ d+ w) k( y5 @- o8 k7 @! u
(= (atof (get_tile "xline_z1")) (atof (get_tile "xline_z2")) )
3 t6 P- G5 u5 b7 C+ q: R# f
)9 W+ d+ Y3 U( h0 c. e
)4 X9 z, O# p% K4 |2 a, A
(progn
7 o" A8 l8 |2 E4 c N+ R
(setq errmsg1 H* F3 U3 L. r. |4 t4 D
"The Root point and the Second point cannot be equal."). q$ N! m& T+ C; N
(setq valid nil)
5 L: y; h, f' t, g' h6 q' w
)6 M4 u4 ` E7 S, i" T; c! I
)3 c2 [0 q5 Q# L! a! [
(if valid
# ^" L* {# R" f) G: l# M
(progn5 i! |! Q* u% f2 \, I" ]
(if (or (= errchk 0) (= tile last-tile))
1 h. C5 i `$ i# L/ C
(set_tile "error" "")0 V' J G" _4 C
)
; `" [+ A7 e: i. U
(set_tile tile (ai_rtos coord))
# F; n2 u7 ], r3 q& D
(setq errchk 0). d& f: ^+ W* j% F$ |* b
(setq last-tile tile), Z1 a" B b; w
coord2 v$ _* ]+ p7 x4 U
)+ L# \: }, h7 }. T4 j
(progn
# @# f6 Q2 j. V, J2 a$ \; D
(mode_tile tile 2) ; Move focus to offending field3 G5 b0 ^, O/ \ v: I
(mode_tile tile 3) ; Select offending text
4 ?3 {0 v" p0 V6 A
(set_tile "error" errmsg)+ x# x7 F; _' U
(setq errchk 1)- c1 W' Z) G2 E
(setq last-tile tile)1 k* @ k8 C) N
old-value, ]# p4 a G% ]5 A4 r/ E7 Y; p
)& O+ t! Z3 z n+ O6 @& k' Q" ~% \
)! J7 l$ O% y. ]/ Y2 i" ~, n9 a
)8 a' B: u" X4 {5 U& [' d- ^, F
4 w# S+ y i; v8 H/ \! ~6 W
;;
/ {* a6 ~/ n* [8 ~2 b# t
;; Verify angle function. This takes an angle and a tile name as arguments.
& N2 _& l3 a J; Q' }
;; If the angle is valid, it returns the angle and resets the tile.
5 {2 z/ E1 k1 f: r% c# y" f
;; Otherwise, it sets the error tile and keeps focus on the tile.! c3 L8 Z6 d! n' o; h' Y
;;7 y7 D9 ?' `. @. n7 [
(defun verify_a (tile value old-value / ang valid errmsg oblqmax)
# V9 O8 L' ]. B$ S, f" m. ?( y
(setq valid nil) A9 ?* k2 y# h1 d- y, d
errmsg "Illegal input value."' _9 |' ?5 F; M; m# B7 L
)
7 s$ A( j) n" ]! e8 ]' T1 `: |
(if (setq ang (angtof value))
8 e, b4 {6 t9 R. _$ U# B+ X5 _
(cond3 X5 J/ A5 i0 U" L8 `9 b! I
((= tile "obl") ; Restrict obliquing angle% y( K* h+ U8 H* _7 p0 J8 j
(setq oblqmax (+ (* (/ PI 2.0) (/ 85.0 90.0)) 0.000001))
4 G- x: \% }, v2 y
(if (or (<= ang oblqmax)+ x! [- V) b- X- a
(>= ang (- (* 2.0 PI) oblqmax))
)
0 J$ ~: F6 |+ G8 t
(setq valid T)
" k# E3 d; \9 R% E
(setq errmsg
8 ^, M# ^1 [3 p8 f$ f, z, E% w
"Value must be between -85 and +85 degrees.")
, R9 [- z( N# h% j
)
% _% x/ J' c& x+ x% V8 v+ n) x4 o8 W
)
0 ^+ X- R# Q$ _( l
(T (setq valid T)) ; Other angles not restricted, d8 C0 y; V/ ^4 q/ W g
)
6 @# K w0 O" E2 z' y
(setq valid nil) ; Invalid angle input1 J9 Q3 c4 |$ u$ a
)9 y1 d/ s0 V( I. U$ U2 y! W
(if valid, G: x" f) A/ y8 x& @
(progn: {. \! @3 I% o% O- S
(if (or (= errchk 0) (= tile last-tile))
7 X. n8 \ s# d# T
(set_tile "error" "")$ b, ^, P/ S1 f8 z7 r$ r
)! o$ H( [. }0 b) l. \/ v' j- U3 O
(set_tile tile (ai_angtos ang))
8 G3 i9 o/ ]/ T9 U/ V
(setq errchk 0)! G1 M; e& h7 k3 S+ \3 G3 w% s
(setq last-tile tile)
9 A7 X9 M: h3 K3 I; u
ang: _" \* S& h/ k5 U
)
- \4 N& A d( b& s/ c5 P* V
(progn
$ a% E' q( L$ v; z
(mode_tile tile 2) ; Move focus to offending field
" ~7 q' t7 g; @7 C2 W
(mode_tile tile 3) ; Select offending text
+ t' A: @0 O$ |2 [" C0 D
(setq last-tile tile)& @2 J. I0 _1 m& |2 x
(setq errchk 1)
, X: q+ f! v2 p' X1 X7 t, N
(set_tile "error" errmsg)
4 [/ G4 m( U5 e' J
old-value- a; }7 O A% t7 A4 S9 E
)" o$ m5 T5 O+ w$ q& {9 q
)
3 G0 [* _6 R, `8 G
)
) n3 W9 j" u" F+ _( l$ d( t
;;0 i/ }: {) @4 {6 i( L4 F* l
;; Verify angle function. This takes an angle and a tile name as arguments.1 M& _8 f6 _2 U5 Z
;; If the angle is valid, it returns the angle and resets the tile.
8 t$ S8 d( h F4 Q
;; Otherwise, it sets the error tile and keeps focus on the tile.( W: {, h9 p5 i6 l8 g: N
;; This function is specifically for the end angle of the ellipse object. If
' X' V# C' X5 C0 ]
;; the end angle resolves to zero then we want to display it as 360.4 }5 q2 b. Y, J+ @' R
;;
6 n$ G& r. C5 i9 I+ Z- q( F
(defun verify_ae (tile value old-value / ang tempend)9 L( z/ v( \# H$ G5 w+ n$ r: u& M- B- b
(if (setq ang (angtof value))$ z; _+ @7 |, e$ U x: J
(progn
; h3 F% ~) k6 ~8 `% m. ?4 W& ~% v
(if (or (= errchk 0) (= tile last-tile))
* X+ _: \1 X- G4 J
(set_tile "error" "")) h2 W; u0 b3 p. K
)6 V6 _* ~$ U# q5 m9 L
(setq tempend (ai_angtos ang))4 l; k$ W7 H- b7 V0 f* v
(if (= tempend "0")' p: E! S; I8 m7 r2 {0 @6 a
(set_tile tile "360")2 f) K1 r; O$ o+ M% y5 j- q
(set_tile tile tempend), Z8 ~+ H0 {2 u8 Z9 W3 w3 \
)/ K( c9 [( \( n- q6 ]
(setq errchk 0)! L0 y& y$ @, n7 u v4 G. R3 f
(setq last-tile tile)7 H+ F9 T$ X# U2 C! d* u
ang. V- g! z$ Z8 M, _7 x0 S" Y
)( d1 s9 q& k9 f
(progn
2 ^% q$ n/ C3 j: r3 o5 d
(mode_tile tile 2) ; Move focus to offending field
- H9 E: |/ t( n. k/ \, w
(mode_tile tile 3) ; Select offending text. v4 T9 x; y0 b: o
(setq last-tile tile)/ A: n: {! N% d. G5 q2 f3 ^+ x* w" a9 H
(setq errchk 1)
7 m6 p* h( a% M( `1 v' a
(set_tile "error" "Illegal input value.")' v) s- r: p5 }) l
old-value& I* b+ B l8 B# r) ]* ]2 f3 ^# h% ?) @
)1 f! s N# o7 {) t; w
)4 G* z, P7 N4 |3 S. |, L
)" ^ b5 \) D. x' d6 W, x
;;
+ m; Q" L& o4 ~% Q0 O) s
;; Verify integer function. This takes an integer and a tile name as
( A. q+ S9 M- w, g
;; arguments. If the integer is valid, it returns the integer and resets the6 p# E# @+ K) u) l
;; tile. Otherwise, it sets the error tile and keeps focus on the tile.
6 [9 k- v7 ~7 L
;;& F+ c# ~6 ^# K- n9 k) B3 D
(defun verify_i (tile value old-value / int valid errmsg)
3 L6 x4 n' X" i) k
(setq valid nil)
; {/ h3 I) v% c8 q+ f
(setq errmsg "Value must be an integer.")
: n4 n9 q+ t+ c7 |: O
(setq int (atoi value)); s% u9 K) x4 h% \8 v2 y L
(if (setq intchk (distof value))
1 Z/ V1 A8 l. A( T2 q. ?
(cond
* `1 @9 y( O1 T8 [) [4 A5 P- s
((or (= tile "columns") (= tile "rows"))5 P1 a) ?0 F* s1 v! j( x
(if (and (= int intchk)+ b2 q* p; a& a
(>= int 0)
4 s' X' a8 i# `0 q7 |3 P
(<= int 32767)
3 {. b: A* W7 U3 f( w, s- P4 m
)
4 U2 ^* @. ~" o5 P$ B
(setq valid T)
1 y8 B+ f5 @9 }
(setq errmsg "Value must be an integer between 0 and 32767.")
/ Y7 g9 V: B: @! E5 A% @; T
)
; k }. u% F# K/ z5 B$ D( F
)
: k1 O/ Y' P. q6 H4 e7 ?3 a. ~1 f
((and (or (= tile "u") (= tile "v")))
$ z; ?1 E/ Q! Z# V2 z7 {
(if (and (= int intchk)
6 {0 z; U o5 I; }1 w- u1 Y+ h
(>= int 0)
* k E9 W2 M9 @; L/ d
(< int 201)
: q3 `, {" y' V- }4 C
)4 P, \0 X& J9 A9 y2 E- S
(setq valid T)$ G0 K5 f$ l6 c) X" K; ~
(setq errmsg "Value must be an integer between 0 and 200.")/ v5 d$ [* Q: U2 s9 e
)9 T& q1 E0 J+ B0 N! w
)5 A6 R' Z9 Q: {
)
5 @) g3 _9 y' ?
)" L, ^% n. u6 e6 I* q
(if valid" E9 o: q; o' d! k. \9 V$ M7 }8 l, M
(progn( v& A% k! O7 J7 G" }) u
(if (or (= errchk 0) (= tile last-tile))
! l* y& B9 j, q/ N
(set_tile "error" "")8 T9 j; e; h! M, _
) L4 u9 _- z8 P! P; U/ x- `
(set_tile tile (itoa int))$ y. W, d3 z! x9 p
(setq errchk 0)! s/ o/ ]# S( _8 k9 A( T
(setq last-tile tile)
6 l: o0 ^5 m& m" F6 ]* q
int
+ Y: H, U* H" A& h d2 _3 G( @
): Y8 d) k$ A5 l; y; B3 g3 V/ L
(progn! r$ @' A+ c% f1 l- H3 a$ K
(mode_tile tile 2) ; Move focus to offending field
, a6 J0 e+ @/ v" u: f
(mode_tile tile 3) ; Select offending text( \' [2 Q$ s0 b( R G% E7 e4 b
(set_tile "error" errmsg)3 ?! W3 C/ ^3 C T) f. E" @0 m
(setq errchk 1)3 F& t* ~- w* p6 h% w4 W k9 ?6 z
(setq last-tile tile)& n* d0 z0 o" ]6 F! y, @4 [* z
old-value
, |/ O- z" b9 ~( P! t
)& Z: m: d& [2 M9 p+ S
)
* d, p6 j+ a" M$ O
)
9 X) @+ X' N% v; P! b5 n& f3 l
;;2 V: f6 `- w, b1 H1 M
;; Functions that verify tile values for integers/ J4 x+ S8 k' ?" N# ~
;;- E3 _, R3 x7 n. k. Q
(defun ver_col (value)
$ N: p; O: J8 c( I2 }
(setq columns (verify_i "columns" value columns))
( H0 Q- ~+ J2 `* i) J
)
# Z& T' u) _& v( O. a
(defun ver_row (value)& W' d. L: F0 G) `5 c) N
(setq rows (verify_i "rows" value rows))- f2 ]0 q& p" D7 p/ \3 T
)/ c8 F. L+ {; v1 ~5 k$ Z
(defun ver_u (value)
4 ^, T) W- j e8 I \, `5 D9 |
(setq u (verify_i "u" value u))% k# {2 T1 u6 U1 ^1 T( V
)* p' U0 j$ J% {7 U* Y
(defun ver_v (value)1 K! Q# w% v$ G* R. G7 V6 l; C
(setq v (verify_i "v" value v))* u1 }* o7 _- M* |1 s2 }0 u/ r
)
! v5 K. S& G, K6 ^3 k
;;
0 b# Z8 D; x- F7 l
;; Functions that verify tile values for reals) _# m5 ^( h& K6 j5 ~
;;! r% l; Z( g$ J8 T
(defun ver_x1 (value)
6 v3 |$ }) y! f0 e% v$ z+ E0 n
(if (setq x1 (verify_d "x1_pt" value x1)) (calc))0 o7 e8 ~: }. N$ ~" y! U, u
)4 F& l( q% q1 c8 F/ @- ?0 n
(defun ver_y1 (value)
7 T/ x$ e' o7 w( l% |, B
(if (setq y1 (verify_d "y1_pt" value y1)) (calc))+ a5 n: ?8 b: e( X# [% U* D" ]7 W
)
; @: S+ F$ V9 x9 e: l
(defun ver_z1 (value)
, `0 a0 N r& E8 R: f
(if (setq z1 (verify_d "z1_pt" value z1)) (calc)) G {/ T( w8 ^+ e5 q
): N5 A7 r2 d* i B* Y& ]3 k) ^. Z. T( `( m
(defun ver_x2 (value)
4 ^+ m3 j2 s, a2 A8 {
(if (setq x2 (verify_d "x2_pt" value x2)) (calc))" e* E. y1 Q: R/ ~/ m
)
& b6 C7 `; Y% {: ~" o- N
(defun ver_y2 (value)4 p6 E) H. q) w# x$ m& p
(if (setq y2 (verify_d "y2_pt" value y2)) (calc))
6 X: E# P% a1 h1 y% @5 y
)7 r. [5 p3 V3 k- \* U: G& b( @% @
(defun ver_z2 (value)
(if (setq z2 (verify_d "z2_pt" value z2)) (calc)); c& q' y# g8 T3 X+ ]. |
)
0 x* B- p& l# Q* U
(defun ver_x3 (value)6 G3 [; n# A# O2 v: h% f
(setq x3 (verify_d "x3_pt" value x3))2 u2 |& x. t) m2 F' c* @* ?; @% B
)
" W5 @, O, u( U! L8 V
(defun ver_y3 (value)
$ s* O4 n7 J% o' o. C. s
(setq y3 (verify_d "y3_pt" value y3))% r8 S' J; J) u6 c
). \0 q$ M( ^5 [
(defun ver_z3 (value)
. W2 v6 a7 h/ T! {- e) x
(setq z3 (verify_d "z3_pt" value z3))
* _! }4 M. {% T: ? K; F5 p
)
7 T& k( x- j5 [5 }! e
(defun ver_x4 (value)
$ E& ^5 I) W. U/ Y1 j8 s# b7 j
(setq x4 (verify_d "x4_pt" value x4))4 \5 i! n) g& E- B8 x
)% B+ b8 |3 H8 | }, @% ]
(defun ver_y4 (value); C, L& q8 F+ `
(setq y4 (verify_d "y4_pt" value y4))
0 [! S7 M- `: u, i9 [. @* H
)8 \# z4 B! p% s/ f( D0 Z) N
(defun ver_4 (value)
I- s. J4 V* Q9 @. J/ u
(setq z4 (verify_d "z4_pt" value z4))( n, x3 b8 p6 o8 c- t% _+ n
)
- [$ t' _ \$ H3 I6 k' Y( f, H
(defun ver_xscl (value)% r. e+ |5 f% s5 H: h3 s
(setq xscale (verify_d "xscale" value xscale))) @+ [: R- f$ L5 E0 e
)
1 l$ S1 N' @# _3 B" M
(defun ver_yscl (value)
6 h0 v. f) L3 h" v
(setq yscale (verify_d "yscale" value yscale))
, A4 n1 K3 t( g" q1 A3 N& W
), U! K6 m9 u: a0 w1 o
(defun ver_zscl (value)1 Q! `9 t/ x9 t6 ?+ R- R
(setq zscale (verify_d "zscale" value zscale))
_; P7 o, r1 }- |0 ]
)/ v5 z3 Q' b' u( G2 J8 w
(defun ver_colsp (value)
/ N: l1 |3 g! u* y
(setq col-sp (verify_d "col_sp" value col-sp))
7 @" i3 `, i% o4 z* R$ r" }
)1 h5 D0 c" Q1 N" W
(defun ver_rowsp (value)( O# H) F4 e7 n. r6 S
(setq row-sp (verify_d "row_sp" value row-sp))+ C6 q: X4 f0 h* u* q& T% F
)
: m" l4 K. M1 H% l$ Q% |& `! b. X2 |
(defun xclip ()4 Z. T' s9 ~ T. s
(setq xclipmode t)8 Y7 o* ~5 H9 A& r! _; d
(if (= xcliponoff "1")
9 T5 T4 D1 N9 c% y1 x. N6 I
(command "_.xclip" (cdr(assoc -1 elist)) "" "_on")
2 I8 t4 ^; L$ d/ H
(command "_.xclip" (cdr(assoc -1 elist)) "" "_off")
7 ?. E8 ?! T4 |# F: r% G9 K
): P, B; N2 J$ n3 R q
)
7 P# ?7 K7 Y' o+ N
(defun ver_rad (value)" e) w+ c" j- e; v% v( ~& j7 O
(if (setq radius (verify_d "radius" value radius))
0 S8 i/ L$ A# F" k' n
(calc)3 i& O* X ?6 ~% d
)* J7 U4 W J% N; h
)
6 @9 J; Z+ U% w/ x) d
(defun ver_majrad (value)7 ~! u9 E3 n" P* \. D l l: |
(if (setq majrad (verify_d "majrad" value majrad))9 R& ]4 J) J7 K4 R
(ell_calc_newval "majrad")# Z+ ]( [# u" P) ~& e
)+ I/ X$ S( M. E3 Q) Q2 \
)
9 ~! M# V! s `1 T" L
(defun ver_minrad (value)
. m( @3 d$ t( K% p- W9 S! @2 e
(if (setq minrad (verify_d "minrad" value minrad))
+ D, r6 ]0 u/ T: U+ E G4 o& O
(ell_calc_newval "minrad")
3 m3 a i$ b1 |, ?! O
)5 y; b& L4 F0 g. X! b5 Y+ \- z
)( K9 i& T+ q: m. h9 q
(defun ver_hght (value)
W3 H4 z; D2 k/ u% q
(setq hght (verify_d "hght" value hght))
4 x. a7 `. J1 d( b7 U
)1 R3 s1 _+ v* w" G6 y! A
(defun ver_wid (value)8 ?% }& ?7 O7 n Z
(setq wid (verify_d "wid" value wid))
4 y+ x R1 N/ X' t* q
)
/ n/ l2 p: F6 m( ~5 k |
(defun ver_xline_x1 (value / temp)( A2 i7 ]$ w, \% L
(setq temp xline_x1)
5 R9 k5 }4 o& O7 r' v; { @! b* t
(setq xline_x1 (verify_xline "xline_x1" value xline_x1))5 f6 Q. z* G$ O; k
(if (/= temp xline_x1)
6 D" u$ r3 Q) u5 ~! q; T+ e9 q
(progn (modify_xline 0) (set_tile_dirv) )' C7 z$ s5 e; l$ W1 C' j2 d* S
)
/ [* {8 k6 i& y/ J/ k$ ]$ j
)$ p7 O- {" V5 [/ J2 D. @
(defun ver_xline_y1 (value / temp)6 E2 L! ~* ]# t' h2 W0 g
(setq temp xline_y1)2 {, d4 K! o% I {' t w
(setq xline_y1 (verify_xline "xline_y1" value xline_y1))) }0 `' Q( s/ E# N
(if (/= temp xline_y1)3 p: R" W! D( F
(progn (modify_xline 0) (set_tile_dirv) )0 t9 j+ F& s) z+ V# R9 W
)
' |6 H& x; y/ v5 }9 u i, d
)
' }- L% U- ]% h8 y3 k# d
(defun ver_xline_z1 (value / temp)
/ O* A0 S1 J r
(setq temp xline_z1)+ K: x$ o: w! k7 t! ?9 S
(setq xline_z1 (verify_xline "xline_z1" value xline_z1)), a" [& y) m4 Z+ W7 M
(if (/= temp xline_z1)
- W4 g4 w; }/ f4 a2 y# G3 b
(progn (modify_xline 0) (set_tile_dirv) )/ r% ?( o8 r( u3 U/ P2 m, K
)/ F" ]5 k! K0 u
)
0 f/ ?: D, T9 c2 V6 [8 K
(defun ver_xline_x2 (value / temp)
0 J6 H% }0 ~ ]* g6 Q
(setq temp xline_x2)
. t, y* K; h6 A, v* r
(setq xline_x2 (verify_xline "xline_x2" value xline_x2)), G) J/ Q' G% x" l
(if (/= temp xline_x2)
+ S; E" t9 A! l! r, T$ a
(progn (modify_xline 0) (set_tile_dirv))9 L9 y4 Q* p$ [" [7 I
)& P: D4 j1 S1 O% h# x
)
1 y+ q3 m) ]/ g6 ~+ V; f* ?8 _( t! P. l
(defun ver_xline_y2 (value / temp)
# C3 Y t' E4 w% s, X0 R( P, M+ ~% D
(setq temp xline_y2)
6 C* G( g& W% h
(setq xline_y2 (verify_xline "xline_y2" value xline_y2))' i" J3 G, k P- B! O$ A# K+ B
(if (/= temp xline_y2)
) ]0 k: v" j* S; E/ O& d- X8 z! N
(progn (modify_xline 0) (set_tile_dirv) )
* t! M% \, w5 I1 e
)$ ?4 s+ P6 o) ]/ z; G+ ~
)6 a' K7 \( t6 A5 o/ } s5 r
(defun ver_xline_z2 (value / temp)
/ C% z8 C1 r5 I* ^7 y. D
(setq temp xline_z2)
9 j$ K& ^" C5 k( X1 |! F/ l
(setq xline_z2 (verify_xline "xline_z2" value xline_z2))
3 E( j# ?' L- W9 q- l
(if (/= temp xline_z2)
9 q- ~) K1 g: k! J$ a
(progn (modify_xline 0) (set_tile_dirv) )
4 t! b* R; O8 E9 p3 Z, ~+ f
)
; [7 F" p! G$ _; t' C
)2 O3 b( `$ u$ i# v' m+ ]% |
;;" ?, p' Z3 U' G/ |- x
;; Functions that verify tile values for angles
7 B* n$ n* a7 T( l
;;7 u" u$ Y7 ^3 }+ J* s% _' t; B
(defun ver_ang1 (value)6 P# W( i1 D7 h c& Z* A
(if (setq st_ang (verify_a "st_ang" value st_ang))
! _5 d3 L' V$ V6 Q! z4 r
(calc)
7 r# d) ^- ] E" z4 w. x
)
+ c. v2 f- O7 F
)) s! P8 N& J o* B& b
(defun ver_ang2 (value)# t; X6 r, c6 H1 F9 {; W x
(if (setq end_ang (verify_a "end_ang" value end_ang))
\% N3 U2 C$ s7 X" U: }* Q* r
(calc)
" G( c R/ r4 U" S |
)
% A _* c- \* f& W
)! E8 l- _7 G7 C4 {. r( } X: `
;;4 |3 P. k% ?, ~0 g( O3 f" a
;; Verify tile value for ellipse end angle. Handled slightly
" d3 q) D9 _* I8 h" ~
;; differently than the other angles.# t- P8 h& d& \8 |. ~1 y5 d
;;8 y% y) m* o$ P# I9 ]7 x
(defun ver_eang (value)
/ m; U& h8 ^3 F' W
(setq end_eang (verify_ae "end_eang" value end_eang))' n, ]& Y, Y' }2 A9 `
)
8 U2 i6 \5 c3 _$ A+ P& n+ o P% n
(defun ver_rot (value)$ M# K* [* _$ t. T4 X
(setq rot (verify_a "rot" value rot))
6 A5 i4 v9 f3 K5 H. _2 [- U
)
7 `8 g B9 K0 ]* v S
(defun ver_obl (value)
% T9 r% z5 T7 D9 V* V, r/ t
(setq obl (verify_a "obl" value obl))/ ]' a7 ~# U- b- {" g
); A: M( S+ R# o; z) D2 q1 `
;;1 N' q3 h5 M5 l3 Q4 }
;; Function that verifies attribute tag field for null string,- i# U2 q. W8 Y9 t/ i6 i3 N- X
;; or a string that contains one or more spaces. Tile value
% _2 a1 v% e: |
;; is also converted to upper-case as well.. p7 I# x/ f8 n- `( {$ |+ s f5 ^1 ]# T
;;
, S- P/ F4 T- v) @6 i ^
;;
" a5 B# E1 r# x: W, r
(defun ver_tag ( / tval)
7 y* n, d& n- p9 a. w- T3 g
(setq tagval (get_tile "tag"))8 l# \' W* O2 c5 s2 d* f
(set_tile "error" "")
0 C a$ x% S* Q! s- z
(cond
8 E# p, m N( k6 ~& q
( (or (eq "" (setq tval (strcase (ai_strtrim tagval))))
3 F. ]8 n$ y# c- V; m
(wcmatch tval "* *"))3 ]5 J% \) ^# a: l4 j1 M9 ]4 G' g
(set_tile "error" "Invalid attribute tag.")
2 n* D9 s" M* F: Z: C& W' f P
(mode_tile "tag" 2)
4 C! N1 x: B g8 o, {2 O+ h- V0 \+ ~
(mode_tile "tag" 3)). [" b( a1 i9 w
(t (set_tile "error" "")$ P: m. e: F M% w
(set_tile "tag" tval)5 X9 e+ W& L) P: p8 z ]
(setq attag tval)))
9 e0 y% H9 _9 j9 G
)2 ~. }, ~! e _% N( `0 c, t
;;
9 _( G& W% n$ w4 ~- B5 B
;; Calculation functions8 @2 `$ c6 o9 v9 l7 D8 M
;;$ G2 p. w2 f: w l
(defun calc (); v% Y. f, ^* p0 f0 H7 K
(if (= etype "LINE") (line_calc))
5 k1 ^- k. E: B4 l7 h
(if (= etype "ARC") (arc_calc))
# Q) z. r# I' W* p
(if (= etype "CIRCLE") (cir_calc))
! B5 C5 L S7 o
)
- {0 L* g0 O2 e$ }: c
;;
8 E$ e) x0 ?' J% y# @0 p
;; Calculation functions for lines, arcs, and circles7 W' l; X" ~6 a% s% v% K2 p5 x
;;) ^$ p0 o# u7 H& T+ |' D# e6 S1 ], {
(defun line_calc ()8 [7 k& Y% K! c: U% \, y/ q7 H
(setq stpt (list x1 y1 z1))
0 M* P; E0 z( T9 n2 U. C
(setq endpt (list x2 y2 z2))
, h( [, }) y/ d l9 l% B& \
(set_tile "delta_x" (rtos (- x2 x1)))
- ?" y" F$ i, Z, S( t, @0 F+ J
(set_tile "delta_y" (rtos (- y2 y1)))
9 s% L5 g; L" v' e7 N/ D0 j; L1 i
(set_tile "delta_z" (rtos (- z2 z1)))1 U1 m5 [* e+ X( J% \+ a9 ]" C- O% e
(set_tile "l_length" (rtos (distance stpt endpt)))3 W/ \- S1 K/ Z6 ]2 k @, R j( j
(set_tile "l_angle" (angtos (angle stpt endpt)))
: }, I$ V2 J0 W T
)
) `/ l# E1 x+ n
. J; v2 {/ z! M6 ?- r
(defun cir_calc ( / area units)
% r0 C* h; M+ m* n
(setq radtest radius)
! U# L: O/ W/ N* z9 Q
(set_tile "Dia" (rtos (* 2 radius)))
1 P& n! }: P5 P5 y& M" u, q% ~
(set_tile "Circum" (rtos (* 2 pi radius)))9 }' e2 J1 G7 v% @" Z
(setq area (* pi (* radius radius))); m3 I9 M$ d; Z
(setq units (getvar "LUNITS"))$ O% b. D; h& _% Y
(if (or (= units 3) (= units 4))( N: w. w' s! r% Z( s
(progn
7 n4 D1 G4 U4 ~+ d/ L& q
(setq area (/ area 144.0))
2 a0 E# f: `( z, g, a8 y
(set_tile "Area" (strcat (rtos area 2) " square ft"))& d Z# u/ U& }- m! n
)
- C/ V* l+ _# r; ^! D& M% D u
(set_tile "Area" (rtos area)), c1 Z) a/ P( R* W' c; M4 J- g
)
. ^8 P$ {+ t- o. i0 p Z1 u
)- @2 Z, K" m+ W8 N
+ b3 C2 `' Z1 L8 f0 D
(defun arc_calc ()
) j% d9 \# V' B! w& U6 j- [0 ]
(setq totang (- end_ang st_ang))
& M( G9 p- o" M1 O# T+ l6 Y
(while (< totang 0)) f2 A, ]9 o& g. H+ ]
(setq totang (+ totang (* 2 pi)))1 a& r" a. G5 B
)
+ _6 m( z1 K& V
(while (> totang (* 2 pi))
+ P- r% v$ |4 R6 R
(setq totang (- totang (* 2 pi)))
+ P1 d* v4 \8 P: o0 j& V- E9 H
)
x+ z N- \6 [( `/ u1 @% V& j
(set_tile "tot_angle" (angtos totang))' g; ? G6 Z3 `% q: U
(setq arclen (* (* 2 pi radius) (/ totang (* 2 pi))))3 L* f2 h' B3 p, o* P8 x
(set_tile "arclen" (rtos arclen))7 {# u1 s6 C5 A) T) v3 r1 S
)
# ~8 s9 C' }! o* z
;;! O2 T( |- X& P
;; Calculate the major radius, minor radius, major axis direction.0 M& T* u& Y0 x% K
;; Get radius ratio. Convert Start, end parameters to start and end
1 P4 G1 S9 W/ S8 o* i
;; angles. Save Major Radius value in "old_majrad" in case the user
4 [7 s3 o( A! R# g+ f
;; chooses to input a new Major Radius value later. It's needed to
! w' U% c, k! c4 d: T5 q& W
;; calculate a new Major Axis Vector value.
3 C2 s5 {# ^: }+ c8 O% I, E: B
;;, v3 `8 X9 _1 @9 E3 }8 N
(defun ell_calc () n' m# }1 y) @: g0 c; J
;; Get major radius from the major axis vector.
6 F1 ^& f+ A4 {' O' l
(setq majaxis (cdr (assoc 11 elist)))8 b/ V9 {, J2 D( `
(setq xx (car majaxis))
. @1 b- m1 Y# f
(setq yy (cadr majaxis))
/ W6 ]6 }' ^2 f+ z
(setq zz (caddr majaxis))$ J4 R) V/ t- A1 f/ s- K
(setq majrad (sqrt (+ (* xx xx) (* yy yy) (* zz zz) )))- N# Y: t* E$ V* Q. ?, {! ~
(set_tile "majrad" (ai_rtos majrad))% ?. s' p' l% ^7 U2 g/ W
(setq old_majrad majrad)
e$ h$ m4 M' |% F# X8 S2 b
;; Get radius ratio) w% Q$ h& t" b* w- Q# i
(setq rrat (cdr (assoc 40 elist)))
- t# ^2 q O; y. }
(set_tile "rratio" (rtos rrat))) a# t: V5 t1 F2 x; O7 {
;; Calculate minor radius
(setq minrad (* majrad rrat))! f3 _) \1 `% P o6 S7 r& m
(set_tile "minrad" (ai_rtos minrad))
9 p3 L1 k4 U# m& b
;; display major axis vector: V, c _" b) u7 V# R* d2 O
(set_tile "Majraddirx" (rtos xx))
0 L8 G4 }' @: P
(set_tile "Majraddiry" (rtos yy))3 C1 ?/ ]2 G% Z
(set_tile "Majraddirz" (rtos zz))7 ~! r$ ~' f) y Q8 I# T
6 k" Y, }1 D" C6 _, Z
;; Convert start parm to start angle1 j. I8 Z3 } e
(setq stparm (cdr (assoc 41 elist)))
% X. y: N' Q8 L c9 E2 L, H1 d7 Q$ S
(setq vecx (cos stparm))
, S+ S+ r5 r; u, V, M! o4 o
(setq vecy (sin stparm))
0 b a' d5 [2 n/ z1 W
(setq st_ang (atan (* rrat vecy) vecx)) \7 c, ? ?' Q$ i# {
(setq tempst_ang (ai_angtos st_ang))
1 e. V0 @ S4 v" V# z
(set_tile "st_ang" tempst_ang)
0 |) h7 V4 Q9 d$ C* K' n
;; Convert end parm to end angle. If end angle evaluates to 0
7 E( J' o3 Z4 K! Z" M! b' f
;; degrees then display it as 360 degrees.
$ M- g6 R+ x0 H5 b0 e- z, F5 k
(setq endparm (cdr (assoc 42 elist)))
m3 H% k" Y: I. D* h- j; D
(setq evecx (cos endparm))( Q" W6 b* w3 @' Q f8 m0 ?& `# ]
(setq evecy (sin endparm))
6 r: T% R7 x" i( s+ M3 a3 u3 j
(setq end_eang (atan (* rrat evecy) evecx))
2 ?2 g2 k+ Q# g9 w5 ]
(setq tempend_eang (ai_angtos end_eang))5 @5 O7 D! H) ?% M* d
(if (= tempend_eang "0")# X! K* }6 o) d! `% J/ H7 }9 \; Q, B
(set_tile "end_eang" "360")
" D) ~8 W/ B- l1 L* u6 L
(set_tile "end_eang" tempend_eang)
! {) j# o$ n7 T7 N- }
)
/ F1 K* h- {: g( M! S
;; Get area of the ellipse.
2 ?' g* e4 t( O( p
(ell_calc_area)
! _$ I( v# {) W* m5 o6 n
)
+ k5 H1 d' V6 ?: f- m% L1 m
;; Calculate area of ellipse. If it is an arc then
) G5 L+ X! \" M0 o/ O5 a4 D2 ?/ E
;; grey out area display.
. g) l" _( @7 \. F7 [
;;
' q( L1 W0 R* A' v- v
(defun ell_calc_area ( / area units)
7 Z5 ~' f5 H8 x- C
(if (and (= tempst_ang "0") (= tempend_eang "0"))
) F# R6 p; Y! C1 \ A
(progn
2 ?- H5 B: _3 z* G' B8 X- T
(setq area (* pi majrad minrad))8 ~! Y* j, X* L0 r/ }. z
(setq units (getvar "LUNITS"))
, G6 [9 J: A7 l! r! U
(if (or (= units 3) (= units 4))
F# I6 i+ @3 j, J" W% |1 O
(progn
- c v; R$ i' A! [
(setq area (/ area 144.0))
( `0 F6 K& l) }/ d% v9 x" L
(set_tile "Area" (strcat (rtos area 2)" square ft"))# h4 ^9 x' n$ F1 p, e( v2 l
)
) t9 e6 k7 [0 ?" q' ]
(set_tile "Area" (rtos area))
4 H% [, ]# k0 Q% ?
)
6 Z! I( }! O0 _4 v
)( y4 f* n6 f( @7 k+ u
(mode_tile "Area_text" 1)8 r- E* U, l- j0 w0 U
)
9 r& Y, Y l n+ ]% w" ^
)2 ^- B, e/ U8 ?/ M4 Q; y
;;& V5 C# J6 X& p! j
;; Calculate new values for ELLIPSE
' V* ?% ~$ X5 z. s5 J+ P4 o
;; Minor Radius, Area
}9 e6 t3 K6 E0 R: P- X9 E
;;( b% i2 G0 ^+ J4 P
(defun ell_calc_newval (ell_tile)
! K6 F3 H' b3 t( M1 O$ I
(if (= ell_tile "majrad")
1 Z4 X! p" }2 A* n% p* F
(progn
; F8 y% l) q* C q
(setq rrat (/ minrad majrad))
5 r. b3 o' g5 `/ o8 L( i- h( J
(set_tile "rratio" (rtos rrat))3 I2 f( T3 {% X( f2 H
(ell_calc_area)
, J) E) x1 V9 P
)
4 J) V4 d8 U5 P7 J t- e3 t
)
9 W' ?% w! | G# b
(if (= ell_tile "minrad")
! D0 Q5 B' V& X- \
(progn4 t) R' c# C7 `6 z$ s: q8 {
(setq rrat (/ minrad majrad))
0 ~) l2 _: ]/ o( o: q- D
(set_tile "rratio" (rtos rrat)), B) a4 m7 k8 F* N! p
(ell_calc_area)) s& ?, I% W3 G( S
)
. q8 H- E: u3 O7 ~8 ~9 ^( v4 v
)
' O/ [) [, w7 { n
)
+ s4 I5 u# j2 H6 f+ h1 O
% @( X h) Z7 ~( e
(defun set_dimen_props (/ loop a stl txstyname)
2 x% G% t# \2 H% |, I6 X
$ O' ^9 T# s$ N* F: X4 b; }+ P
(setq stname (cdr (assoc 3 elist)) ; get style name
' s9 ]# `: O/ Z' C
stl (tblnext "DIMSTYLE" T)" l. f4 Y5 c/ G, B$ e' m
stlist nil)' O" X8 r4 I" E G8 y
;; Get all style names and list them in alphabetical order
$ o, z1 p* `: g8 |' U. j
(while stl9 m8 F5 V8 a+ @0 B6 Y1 L
(setq sname (cdr (assoc 2 stl))) n& H7 Y3 u2 C" }/ } y
(if (/= (logand 16 (cdr (assoc 70 stl))) 16)
0 P! q K7 o2 H7 N
(setq stlist (cons sname stlist))), j+ S' J2 Q! n' Z! p
(setq stl (tblnext "DIMSTYLE"))): x" S: G7 p( k9 z% d) U: ~
3 T" m( I5 d1 @6 T0 I {5 F
(setq len (length stlist)
0 l% S, O. d! _) F7 [: l1 D
loop 0, x! k4 Y: k2 O2 K
dimsty stname
% R# N: x: E* r0 A- j G
)
2 n' O/ O5 E5 s1 J
2 e# o% |5 E2 Q& _
;; alphabetize style list, depending on maxsort# ~1 ^4 i. _6 }+ ^# a' f
(if (>= (getvar "maxsort") len)9 ]; Q6 _* m* Z! z7 w% I/ \# d: a4 S
(setq stlist (acad_strlsort stlist))
/ X5 l" k2 s/ m/ i
(setq stlist (reverse stlist)))
$ u7 x- w& c6 x' ?
6 V9 y5 t5 Y5 ?% a' J' N# m9 e
; *UNNAMED style (dimsty = nil at this point) is replaced with
_7 M0 q( y4 y. @1 k& u$ Q
; the current style. After R13, we require dimensiosn to have a
C6 B- |1 n. }
; dimstyle, so we plug any holes where we find them.
/ G0 E# }4 M' `9 N/ l ?6 Y
(if (null dimsty)5 R g; N9 @% [$ K3 D
(setq dimsty (getvar "dimstyle"))$ Z8 [* c& U2 G4 V& A9 N# r
)+ X! c$ S8 p2 V
; Show the styles in combo box4 n2 u7 `6 m; e$ }! P" b
(start_list "mod_style" 2)- o3 Z( s0 P( M
(while (< loop len)1 N; `8 {# J( M* v) {
(add_list (nth loop stlist)), x, f& F t0 L0 f
(setq loop (1+ loop))
8 b* L6 u K6 o9 i4 m# o/ R
)
" Z9 f' A7 _, l& `$ G+ o
6 `, q9 Q8 V8 x% D* D+ E# I
(end_list)
2 Q1 d/ Q; d( S
) G) `' f5 H* h7 l& n! [- d+ h1 \7 [
; Hilight the style name of the selected entity W Y/ y. i: d/ N) s1 H' e8 n( u+ n
(while (and (< 0 loop) (/= dimsty (nth loop stlist)))
/ W Q. p' `& x( i7 p1 r+ d( b
(setq loop (1- loop))
( e( D" c9 V# \; e
)
% z$ f2 C6 Q6 r1 T! _
(set_tile "mod_style" (itoa loop))
0 n+ w" t" h3 J K
) x& x( a: k0 P5 t0 [) v
; The following is the list dimvars. It must be sorted in the same9 s: d! I/ x% \
; order as the resfub returned from DDIM (ADS module)./ y" U8 e! J+ g1 i
7 D* C$ S" m* o: V0 O" h
(setq dimtbl (list "DIMSTYLE" "Style name" "Standard flag values"4 r" o; c) f! g( f
"dimpost" "dimapost" "dimblk" "dimblk1" "dimblk2") R m% i& `* e8 |2 Q! _' C
"dimscale" "dimasz" "dimexo" "dimdli" "dimexe"
- H% s% V J" G+ D6 [* h
"dimrnd" "dimdle" "dimtp" "dimtm" "dimtxt"
: \4 {/ o+ T& a( ~
"dimcen" "dimtsz" "dimaltf" "dimlfac" "dimtvp"2 K' x8 _6 ^! I2 X0 _
"dimtfac" "dimgap" "dimtol" "dimlim" "dimtih"8 I4 J+ m& m/ F/ ]! z9 B- S) G1 F
"dimtoh" "dimse1" "dimse2" "dimtad" "dimzin": P7 k4 u1 [" R& e3 m& |* e' f9 i
"dimalt" "dimaltd" "dimtofl" "dimsah" "dimtix"
- k3 d/ a. e8 A- |. ?. y
"dimsoxd" "dimclrd" "dimclre" "dimclrt" "dimunit", B7 c" Q8 b6 G; a! c
"dimdec" "dimtdec" "dimaltu" "dimalttd"
7 h/ D. P1 u4 } q. N! i
"dimaunit" "dimjust" "dimsd1" "dimsd2" "dimtolj"
6 c/ V' ^2 r- C' Z4 A
"dimtzin" "dimaltz" "dimalttz" "dimfit" "dimupt"
& G& U) X6 h: v' s$ W+ V7 ]% T
"dimtxsty"
4 K5 z3 X$ x8 ?; ~* O$ `6 I# ?
))8 X5 Q+ O7 Q! p7 l- S* L4 I
(progn" M7 z* c }# }1 |, T7 e
(setq sv_dvlist (ddimen_getostate dimsty)
! P! b& H8 r& k0 \8 D4 N
txstyname (assoc 340 sv_dvlist)% h5 c8 i' ^* p7 U; a# c
sv_dvlist (subst (cons 340 (tblobjname "STYLE" (cdr txstyname)))
; C$ r8 P8 v$ L6 L- s. A
txstyname sv_dvlist), ~* v$ m. d5 e5 c
dimlist sv_dvlist! V9 \3 L7 a- i% L; l
)) O* d7 A% ` Y/ T2 A- [) m
). n3 C0 ?; i1 {; c2 c9 u
(if (= dimtype "DDLEADER")
" ~/ N9 U9 q3 a. K' b( A
(mode_tile "mod_format" 1)
& k- y/ z. A( m7 {
)8 W' l( K: j, p7 s4 e% ?
(action_tile "mod_style" "(setq dimsty (ddimen_style))")4 F/ V; z7 s" {- H' }
(action_tile "mod_text" "(done_dialog 4)")" o" v) T# o+ \) j- P( `/ |) s
(action_tile "mod_geom" "(setq dimlist (ddimen_dlg dimtype 11 dimsty dimlist))")
- t. N, X) q: }* A
(action_tile "mod_format" "(setq dimlist (ddimen_dlg dimtype 12 dimsty dimlist))")! p: p/ J5 z# d: K b! w, H
(action_tile "mod_annot" "(setq dimlist (ddimen_dlg dimtype 13 dimsty dimlist))")6 y5 j N" M" x6 M; M. N& _# R
(action_tile "accept" "(done_dialog 1)")* m& | r/ G8 v% E; b8 w. C& ~ M. _3 y
)
4 S1 E I1 Z8 n, d. t2 }
;;8 x$ _! j. i: C2 Q4 T5 p
;; Get dimvars that have been restored.3 U$ ?& b, [+ @8 L7 ?4 f5 g
;;" \- t% T! J/ {# a4 f( _' B$ S% e
(defun ddimen_getvars (/ elm dvlist dv i)
- @& o1 j8 c/ }; @' u# J. W8 M
(setq i 3( m$ i$ X" U( ~' p7 C/ c; V9 A P
dvlist (list (cons 0 "DIMSTYLE")) K1 I- I) a n% t
(cons 2 (getvar "dimstyle")) (cons 70 0)): R; c4 f; g& H5 a9 R
)
8 k+ C0 O* f) o1 H7 v
(while (setq dv (nth i dimtbl))
8 b' G0 |9 h, G0 d- e
(setq elm (getvar dv)
6 m) S3 k/ _" f$ I$ W. |
dvlist (append dvlist (list (cons dv elm))): ~; B% ^) o: L! h7 [3 \
i (1+ i)7 r/ W, p- U7 u0 |! a: H
)8 i- @. J4 G" M$ {. f
)( H7 G) ^( f1 u
dvlist4 |* K9 l b2 o8 I
)
2 b8 p3 T* |+ K. `" d1 o4 l
2 g% M l) o k3 ?' t5 t% T
;;$ P9 L* W# f- m% W; x6 U
;; Get the original states of dimvars. This is for DIMENSION entities.
+ S) C4 U7 V6 \* D/ y2 x# `
;;
, @; |% u$ S" x- y$ V
(defun ddimen_getostate (dimsty / dvlist elm i dvvars)
2 G4 J3 @' A' \0 y' ]
(setq dvlist (tblnext "dimstyle" T) ; Get a skelton list
& ?. O! H; z3 A3 D! a! W- \" [/ [ ~
dvvars (ddimen_getvars) ; Get dimvars for that entity# J9 M* r7 E7 {4 m' G5 \
i 1* F+ f/ S- O1 E4 p" x
)
) t, q( Z$ Q9 C" @+ [
0 ~; p& k' u: ?
; Create a list that contains values of the selected entity.# |4 q# U/ q" V5 Z' A% T" K
% E$ |# l/ z& C2 W
(while (setq elm (nth i dvlist))
1 Y& f5 d: q* {
(setq dvlist (subst (cons (car elm) (cdr (nth i dvvars))) elm dvlist)' ^+ q9 F) y% o9 Y0 a3 T t0 q* L
i (1+ i)
7 {% b0 @4 J. ~) l: S4 K* V1 f
)' d3 r4 q0 p2 C( j4 D
)
- I3 O' p0 l5 F5 j( j0 m
dvlist
$ V) Y G4 I6 B2 \( V: b# I
)6 L; i9 B* t% I* ]
4 Y" Q+ t' J9 ?( s& U1 m
;;
3 L9 F( R0 Z* }
;; Restores dimvars of the selected enity.
7 c% b' {# m# c8 K: t$ L
;;; I* K( ~& w! y: z7 w
(defun ddimen_dimsty_restore(/ dimtbl dimsvcurset en)7 U/ r" U8 }. W. X" Z) M% O
(setq dimtbl (list "DIMSTYLE" "Style name" "Standard flag values"0 t: A; z" [+ K% ^4 w+ M
"dimpost" "dimapost" "dimblk" "dimblk1" "dimblk2"3 q# ~& C' T, a5 R
"dimscale" "dimasz" "dimexo" "dimdli" "dimexe"
) p4 `: o* z- W( u- Z
"dimrnd" "dimdle" "dimtp" "dimtm" "dimtxt"
# ~& ]3 |$ e8 i/ I& q7 S
"dimcen" "dimtsz" "dimaltf" "dimlfac" "dimtvp"+ Y2 }! i5 ^$ `- n# \. F8 J
"dimtfac" "dimgap" "dimtol" "dimlim" "dimtih"7 a9 W! `, `8 T: [* n3 F8 n2 N
"dimtoh" "dimse1" "dimse2" "dimtad" "dimzin"
$ a0 Q4 `, e$ T* u6 x+ b% K
"dimalt" "dimaltd" "dimtofl" "dimsah" "dimtix") {0 N0 N/ e+ H* |
"dimsoxd" "dimclrd" "dimclre" "dimclrt" "dimunit" ] ^1 U5 }$ V5 p
"dimdec" "dimtdec" "dimaltu" "dimalttd"
D* q9 m( F' _1 O% t
"dimaunit" "dimjust" "dimsd1" "dimsd2" "dimtolj"
( b; p/ M% F8 C2 q2 T* V% S+ g# m
"dimtzin" "dimaltz" "dimalttz" "dimfit" "dimupt"4 {7 S4 }% G) E) \% M1 F, y: v
"dimtxsty"
) u1 u( O7 d4 u' {
))
% L$ v3 L# h% p: z8 d! K, N
(setq dimsvcurset (ddimen_getvars)) ; Save current variable settings8 v% b6 ?4 v$ ]% w: K5 }
(progn
0 [( z) x4 w7 Y; ]
(setq en (cdr (assoc -1 elist)))
. m3 a7 t. x$ z% m5 I
(command "_.dimstyle" "" "" en)
4 W; W4 \6 Z3 N: b- G8 m3 P
)
& P! [* j4 w1 e6 ^- m
dimsvcurset
" F$ j1 G' ^! p8 E) L$ J
) x# Q" J" _7 A Y) x! @2 O* G7 U% w$ P% D
;;
7 Z5 W/ ]. d! I6 [8 S' W, t
;; Modify Leader
! v4 t# Q& w- _) ~3 e
;;. E. _3 F8 e3 f J6 l& x
(defun ddleader (/ dtypebit blkname bename sublist a stname n dimtbl
- e( q, p% g7 L# L: k# v9 N( z
dimsty dimlist dimtext svtext dimovr sv_dvlist stlist/ g6 Q0 b$ H- F% F4 I9 K
dimtype dimsvcurset)
0 s9 X% G0 }4 I, V& K6 l, j8 S6 j5 g
(setq dimtype "DDLEADER"
! f. D7 h3 G* E/ J2 t- Z) z
dimsvcurset (ddimen_dimsty_restore)
/ e; L! [/ j: D. c# _
)5 t6 }8 Y7 l+ S4 b8 b$ j
(if (not (new_dialog "ddleader" dcl_id)) (exit)). w5 k" Y4 k2 d$ p4 p$ H( k
;; Set initial tile values, w" @; g& S" s& B0 w% W
(set_tile_props)
" W9 t+ s0 A! m; y, x
(set_dimen_props)# n; ]4 w L/ ~
(set_tile_handle)* U+ ~1 n$ v. t
;; Define action for tiles
w; D1 B6 p9 ?. w# ~) h
(set_action_tiles)' v2 h% b/ y- D7 g& H9 O$ h. H
(mode_tile "mod_text" 1)" n( }+ { F' g
- T J1 L) c j; @- |0 w) u
(action_tile "mod_style" "(setq dimsty (ddimen_style))")
: X. \: n( H* r2 a8 U4 z! T
(action_tile "accept" "(setq leadtype (get_tile \"s-s\"))(setq arrow (get_tile \"arrow\"))(done_dialog 1)")
' m' E: s$ k5 ^% q
;; Get ARROW and TYPE.
( M( d1 G- x5 F: j% u9 T
(if (= 1 (logand (cdr (assoc '71 elist)))) (set_tile "arrow" "1"))/ Q2 v& J8 i5 S* M
(if (= 1 (logand (cdr (assoc '72 elist)))); e: o. ]7 v9 d/ T( x9 s# g) @" n
(set_tile "s-s" "spline")# S0 s3 [! o& z1 `3 T9 b
(set_tile "s-s" "straight")
; P/ ^/ X' E0 p1 t2 V0 a5 d6 {
) u! l6 [; v, B% y
;; Start the dialogue.! {$ _5 n: A6 L3 R7 g9 o1 i
(setq dialog-state (start_dialog))1 E7 p4 J( ?2 Y: y2 a& B
(if (= dialog-state 1)
0 B, O. T" h7 ?9 ]
(progn
- k3 w9 D6 M. ?- t" `
;; update the style
( W5 [0 M- j! |) v( k& Q2 h
(if (/= dimsty stname)7 k0 t0 p9 A( s5 Q
(progn
7 s2 N4 h6 {# A% w8 k
; Be sure to add (3 . dimstylename) element. R12 *UNNAMED case
& F \4 V7 U, X7 y4 ^* B, z
; doesn't have it.
/ t6 B. T8 f5 q6 L
(if (null (assoc 3 elist))
e. R) q) b: M! j
(setq elist (append elist (list (cons 3 dimsty))))
& s( X1 M& U; S" u
; else just replace it.
5 I+ s7 J# V1 A" H, R' r+ [
(setq elist (subst (cons 3 dimsty) (assoc 3 elist) elist))
$ w$ [4 U: c1 c* F0 l
)4 B' o: S, Q3 n7 W
; refresh sv_dvlist with new dimstyle.# e. u0 l1 A2 v! q
(setq sv_dvlist (tblsearch "dimstyle" dimsty))* Z, `# Z, f: Y9 ?8 H& k' k6 {8 Z, _
)
6 w% Y9 m+ Y% B7 Y( y: ^; o
)3 s0 m5 m0 ?/ A4 e- G
(if (not (null dimlist)) ; attempted to change dimvars1 E" e; h6 ~5 N& }' N b/ ^+ M
(ddimen_complist sv_dvlist dimlist dimtbl)
8 u4 b% Q) t' J! j2 Q2 @2 r" V
)0 ^7 s% D/ u: H% C, ^$ {2 N; o
;; update for ARROW.
/ J `* c; {3 ?9 B8 n0 n, ]
(if (= "1" arrow)8 G* [" ~( {. S; w, E" F
(setq elist (subst (cons 71 (logior 1 (cdr (assoc 71 elist)))) (assoc 71 elist) elist)): }6 x. z' h( \" B- S+ ?# U- W- X
(setq elist (subst (cons 71 (logand (~ 1) (cdr (assoc 71 elist)))) (assoc 71 elist) elist)) d; P: G9 ^+ Z1 z5 l
)
* `: [- H+ \$ @ a# r8 d0 K( v
;; update the TYPE.9 K t& v4 r8 u9 O7 i9 v/ a" u
(if (= "spline" leadtype)% `) [" g- {$ X B, W9 j6 H6 p2 \ l
(setq elist (subst (cons 72 (logior 1 (cdr (assoc 72 elist)))) (assoc 72 elist) elist))
/ h2 y/ e( M3 T, u1 P
(setq elist (subst (cons 72 (logand (~ 1) (cdr (assoc 72 elist)))) (assoc 72 elist) elist))7 s; v! c/ z" m" [* [
)$ K1 p. y$ M9 j h$ o
(modify_prop_geom)
: p3 a1 p/ b( \
;; update the Color3 m ?9 L j) E* }4 e3 W
(setq elist (subst (cons 77 ecolor) (assoc 77 elist) elist))
! X" e7 s6 E' X5 w
(entmod elist)! H; }' f7 D( R8 w4 [
)" K9 m) L. k5 w, j( A
)/ T" K+ a6 t j1 C: G
(ddimen_setvars dimsvcurset) ; Prepare to exit
0 Z* N+ `' @0 ]/ J8 ?6 `# j
): i# ^- `) {1 Q+ e4 B
) a: J: k( S3 r3 H; z, O1 c% z
;;
3 r" {* ^4 v5 h+ j5 e5 l
;; Get dimvars of a dimstyle with overrides.
6 f5 G& c! v3 K5 _! E
;;) h4 H0 e% s% {! O( o, d
7 \( I7 h( G+ s
(defun ddimen_getdimvars (dimsty / dimovr dvlist elm i)
1 R; S& d9 f+ j6 v, }9 w% B
5 b6 {, F. p+ Z; r$ `
;; Get override information for the specified entity.
9 k4 w$ j- l& u+ I E. U7 t- w
;; Leader/Tolerance cannot be restored by DIMSTYLE command, so we6 _6 e* g# n. E% J+ ]- h& b+ N
;; must obtain override information through this tedious operation." @, a- H' U l+ P. H" C8 F
(setq dimovr (car (cdr (assoc -3 (entget (cdr (assoc -1 elist)) (list "*")))))
0 V. a; D* G" x" ?! l) k; N
dvlist (tblsearch "dimstyle" dimsty)
$ ` G$ K: m g/ t
i 29 K: V4 q' P( M0 K5 h5 R* @
)$ C4 F1 o: \/ |8 r8 G- T3 }
+ u( p% q2 L2 X @* f
; Update the list with overrides if overrides exist.: e' M6 P: \- o4 Y* u3 z* s
# U A$ u* Z1 p3 y, g
(if (and dimovr (= "DSTYLE" (cdr (nth 1 dimovr))))6 V, l+ o( L. t3 U0 C$ {7 b# d
(progn8 p4 Q5 _ j% D0 ` ^9 R
(while (setq elm (cdr (nth i dimovr)))1 ^: H& F* I8 W8 T: F& ?
(progn
8 W \% m8 `+ g4 n/ p0 A/ g
(if (or (= elm "{") (= elm "}"))
' @" w. Y+ l9 O' I
(setq i (1+ i))
" z, h! `, m( t7 q& A
(progn1 G% H* b* u |2 O* ~
(if (or (and (< 180 elm)0 N. K2 z' \+ N0 }) R
(< elm 190)6 R2 ?4 ?# |9 J
)* }; r4 r1 g. i7 q, X4 p% N
(and (< 80 elm)1 E1 @1 O& g# j( c
(< elm 90)
|9 A% d. @1 ~
)% ^3 X. F. D8 Z- ^) F9 |4 L! K
)
8 S4 W7 ~9 V: n. @' k
(setq elm (- elm 10))
/ c2 ^6 j, H1 ~
)
. i7 g3 k- `& W5 J
(setq i (1+ i) A. r0 O/ S! Y
elm (cons elm (cdr (nth i dimovr)))7 b4 Q; X, ~- V2 w
dvlist (subst elm (assoc (car elm) dvlist) dvlist) U/ j% f. f% l+ a
i (1+ i)
, O. o( X H4 N
)
* d* ^0 J0 h* r9 @+ _) q7 D
) b- I, q6 Y1 e6 h- \4 c+ G
)3 H& E7 c! ?7 q* A% E
)
) }8 s, D4 P* f7 D0 {) B, N0 l9 I: x
)
" B0 Q2 w" v3 s' d: E
)( X7 r( y- h( a1 f3 H/ P
) r$ s) f1 V7 o$ u5 j
dvlist
1 Q8 W: M" m/ e
)! {0 k- ]/ ?1 f' w" ~
9 g1 T2 L `# K* f: _
;;( Q3 N5 |( T9 J- d ?( o( X
;; Modify POINT
5 x& s4 U: R7 S
;;
) ~2 _% d) s$ U
(defun modify_point ()
: t- ^' Z. ]5 F7 ^3 C
(modify_properties)
' W0 ~0 u& _* P1 q/ u
(setq pt1 (list x1 y1 z1))/ ]! X* q9 c: p7 M; B& d
(tempmod pt1 10 0)5 B4 R: V4 x3 Z+ A9 m
(entmod elist)+ A/ V7 o1 G1 z8 V
)2 @6 S7 d d# T: r E4 N. q
! U# g& M& |7 q, Y5 p$ v
(defun ddpoint ()
' L# [4 f9 G2 H- {4 P& ?& M
(if (not (new_dialog "ddpoint" dcl_id)) (exit))* v' o" k. z: Q& b: h4 F
;; Set initial tile values
+ C. z$ M7 m3 X4 l, P$ G- U
(set_tile_props)
) D/ t" q! D( ~9 P
(set_tile_handle)
9 v( _# p2 q9 t' A/ H6 I
(set_tile_pt1 0)
& y" T. F4 I3 G( @9 v
;; Define action for tiles
! n: B- K, M1 r( j
(set_action_tiles)
! [& c3 S; o' `/ q( n! j) o
(setq dialog-state (start_dialog))
) `& j! G+ Q& I% c; {$ ?( \
(if (= dialog-state 0)
7 \0 U6 ^/ w7 G" P7 i i
(reset)6 S' A3 ^5 A$ {' K- l
)- v( h+ j1 d7 C
(if (= dialog-state 3) M0 x- s$ [8 m7 j1 m+ i
(progn3 Z5 v; K) u7 ~- X5 {2 [
(modify_point)
0 I! h* H& c" Y
(setq pt1 (getpoint (list x1 y1 z1) "\nPoint: "))
; a+ N; f7 u- r) a _+ j' R3 u# ?$ A
(ver_pt1 0)
+ A# S5 w# V& W- H- x# ]
(ddpoint)
2 f X+ a) g. [/ {6 P1 z d3 F
)
: c+ c4 v! ~' ?' n+ x. f# w. A
)% G6 F! [# d% T# f
(if (= dialog-state 1)' a+ X2 r% ?9 ]: Y. ~
(modify_point)
0 W+ X7 P7 l2 K
)
! v( A+ ]% w2 K- M* \
)
& ^/ s9 v% K) n; B' x) Z: L5 Q, \
;;5 f: a2 I# ?) n$ ^4 W
;; Modify LINE
; L) I6 F& z" D0 H* D' S! w+ L
;;
3 l4 D8 I! t/ R! F9 @3 F& I
(defun modify_line ()) z# x/ p% H% p% ^
(modify_properties)* p- D6 ]/ B) p# v3 y" E
(setq pt1 (list x1 y1 z1))
& A8 g( W# s1 b- g e7 O H
(setq pt2 (list x2 y2 z2))
9 e' o* z5 W% e/ C/ s8 E
(tempmod pt1 10 0)7 }7 R- p3 b, y) o1 `! q
(tempmod pt2 11 0)% r: S( v, ^) z: L$ p+ j6 O- N7 @
(entmod elist)* n, [8 h0 `- I- V4 v t
)
" F _4 Q8 S: U2 V
(defun ddline ()
# z. l; C) ]/ q; p
(if (not (new_dialog "ddline" dcl_id)) (exit))
7 H* G- g ?% y8 H: t' v* ?3 o
;; Set initial tile values- g: y3 u& x4 ~: s/ O# z" ?$ G1 V
(set_tile_props)
8 x/ G$ w+ u4 `0 ^1 g* ~# P( @3 c) D
(set_tile_handle)
' Y0 Q7 j1 ~9 X; K4 [
(set_tile_pt1 0)0 a {- S C- _5 q5 ?
(set_tile_pt2 0)
, x) V. [& z6 {
(line_calc)
1 l" E- F% z: T0 s. m
;; Define action for tiles
% z; i* U! Y7 c- M* z, d& ?
(set_action_tiles)$ h) Q, p* l' W' R
(setq dialog-state (start_dialog))3 C8 {, }% h8 x. ~6 V
(if (= dialog-state 0)! S. x, ~! {) D4 z5 O: ]% X. G: f
(reset)
7 l& y, V1 s9 \8 c9 F- c; x; t x
)& j: i5 \+ l9 _, x3 T6 ^6 P R
(if (= dialog-state 3)
) r$ X+ i2 v9 a8 X- w! s
(progn2 X* T+ H$ S3 S6 O. I
(modify_line). n: U9 W& j7 J; g; v
(setq pt1 (getpoint (list x2 y2 z2) "\nFrom point: "))1 ]8 l ?0 l2 D+ C x; E
(ver_pt1 0)
* w& b; Z) P/ _
(ddline) ^3 \* F. f p
)
$ n* Y W4 u, w7 m6 ^
)
+ u$ d6 w2 O5 N: i4 R* `$ [
(if (= dialog-state 4)9 m. ^ v: e" z3 M. v# t6 @
(progn8 B# i8 e0 l t; n3 V G2 k F/ K
(modify_line)3 ?( V6 _& X D: ~' b! M$ \
(setq pt2 (getpoint (list x1 y1 z1) "\nTo point: "))
! l" G4 E; r4 L4 \$ Y
(ver_pt2 0)7 S# k1 F) t1 n" B
(ddline)
F' G* i6 G6 D2 l2 U( Q+ d
)
1 G! x$ y3 u+ }
)8 N' } {% R5 y4 ?/ @
(if (= dialog-state 1)
0 Z9 W: J! K* v$ M m8 ?* t z
(modify_line)
9 @# _- q, @$ U. \' d
)
7 I+ i) D c& t
)# \' \# t$ D; e4 b3 f, O4 b
;;
4 b: g- q/ `* h5 o' ^+ s2 L3 }
;; Modify MLine
3 U+ Q+ W9 p2 i! A1 [
;;
9 [3 r8 }4 _8 \( E1 k
(defun modify_mline ()- l, J$ ~# E) w
(modify_properties)2 J3 h. z6 @6 W% ]+ D* y0 n; \
(entmod elist)3 U8 @* i3 }* r. Z' l2 K
)
: g+ z2 G# _# R% d
(defun ddmline ()8 C; L# v& C9 c
(if (not (new_dialog "ddmline" dcl_id)) (exit))6 E9 e, X9 A% s1 F* z, i+ |4 L
;; Set initial tile values
* F+ `6 v9 l$ A- K
(set_tile_props)) v |# ~% g R+ o) ^7 o' Q/ G
(set_tile_handle)% r# I0 ~# @6 Z& k. G
;; Set mline style text field.
8 ], u4 S% e* k9 F S# M
(set_tile "ml_style" (cdr (assoc '2 elist)))3 L! P# _/ {" e B; d5 ^
! v7 c+ r9 `* b9 [3 J6 `
;; Define action for tiles4 p. j' c$ S8 u p" {
(set_action_tiles)* J8 } h/ W! f: F! y( ]
(action_tile "ml_edit" "(done_dialog 3)")5 h; R1 i: m4 A4 P( X$ S
(setq dialog-state (start_dialog))
* [! W3 r$ T$ Q" c& j
;; Dialog cancelled, reset to original values.0 F- A: V7 Y$ u0 E C9 n
(if (= dialog-state 0)* I2 G. w0 |* n; }- S4 c
(reset)7 x- z7 C, i- Y4 R
)
4 M6 ?! l. ^7 ~0 R# Y8 r
;; Dialog OKed, update the mline.3 q7 n4 _6 Z6 g" L- z; ?1 I
(if (= dialog-state 1)
# B% L& M3 X) b5 R. l
(modify_mline)5 E) S* o- y, j( l+ N+ Q2 B
)7 R! |6 K9 U( V2 D5 X1 f. q p
;; Edit Mline, call MLEDIT.
& e8 M4 v6 T5 `5 N: P! b4 r: y
(if (= dialog-state 3)
" k! x) o! t% T' u( g6 @/ _- p8 E: r
(progn
/ g0 m; M/ Y; o* F4 x/ \6 h) d, w
(modify_mline)
: q; V+ [$ G5 V1 z! G! |1 g2 c
(command "_mledit")
4 j3 [; J' }- p0 ?$ P8 r
(ddmline); v; m; P# {) E4 X
)
6 g x U, I# |" i0 _8 B
)8 h6 F) f% s- m# S' i' q" J
)# Q4 D" `( z4 ]6 C3 T& u
;;
6 X% r. n1 R4 N8 H% |% v$ ]
;; Modify Xline
9 d- m% b. ^1 ?# X& W
;;
$ h7 o4 ^" c6 w6 P
(defun modify_xline (flag)
' U: [. A9 r% u. u7 P' B6 ^
(modify_prop_geom)
3 ~- m9 ^! @1 k, ^
(setq xline_pt1 (list xline_x1 xline_y1 xline_z1))
6 {2 d$ I! e5 P; D, t8 }! s
(setq xline_pt2 (list xline_x2 xline_y2 xline_z2))- w1 b" I% l) H e% y
;; Update the Root point.
! h2 h& N9 K# w" H: K
(setq elist (subst (cons 10 (trans xline_pt1 1 0))
+ L* |& [, |) i& [2 |; y5 b
(assoc 10 elist)
: P ]$ K8 Y" |/ z4 E! B$ h, n
elist" [$ P! r9 N5 Z
)9 {0 H4 b9 l) n9 Q* A1 w( E
)) U8 i- ? E% ]
;;8 f# R, z! p$ z; G
;; Calculate new Direction Vector WCS
9 o [3 N- C9 q+ U6 Y# J' b
;; x / (sqrt ( (x**2) + (y**2) + (z**2) ))
; L# ~ y7 F6 W
# x# R h( L7 u$ M1 X
(setq temp_dir (trans xline_pt2 1 0))
8 R$ Y& A2 n! p( [6 s/ q+ W
(setq temp_dir_x (car temp_dir))
' A- ~6 b1 u( D2 h, }! p2 m' z; y
(setq temp_dir_y (cadr temp_dir))) _7 N3 T! G; F! i, z: W
(setq temp_dir_z (caddr temp_dir))2 ~/ t3 w/ f2 y* `/ H4 g& {1 _
! X7 @% \2 |1 k1 Z/ ?5 s I3 h' Y3 E
(setq temp_xline_pt1 (trans xline_pt1 1 0))+ C7 ?1 P3 j- ], B+ ^8 i: p- g
(setq temp_xline_x1 (car temp_xline_pt1))& \2 ` ]) O4 M5 S7 d& L
(setq temp_xline_y1 (cadr temp_xline_pt1))2 D( w: f7 y. T; a
(setq temp_xline_z1 (caddr temp_xline_pt1))
/ u' g7 b- n+ }7 k# n2 O% N; e
* Y' @- M2 V( _- }# ?5 \
(setq denom (sqrt (+ (expt (- temp_dir_x temp_xline_x1) 2) M! d+ n3 N$ c) |$ y$ m0 R. }
(expt (- temp_dir_y temp_xline_y1) 2)
, M4 D l& t5 a# l
(expt (- temp_dir_z temp_xline_z1) 2)
" p5 U2 M+ _( x+ @9 ^2 `; q" _9 D
)))
8 T3 `, T. L) Y3 U3 P4 \. N0 [
(setq temp_dir_x (/ (- temp_dir_x temp_xline_x1) denom))# v% f/ G5 W; Q6 x, s- x( }# A1 ~% A
(setq temp_dir_y (/ (- temp_dir_y temp_xline_y1) denom))7 y! V% b% d- }- ~9 J5 J% s
(setq temp_dir_z (/ (- temp_dir_z temp_xline_z1) denom))* j% Y5 e, f% T4 B+ y. _
(setq elist (subst (cons 11 (list temp_dir_x temp_dir_y temp_dir_z))
* q0 h6 ]& _5 U% @% `) Y
(assoc 11 elist)
% J1 H( q, v- j3 N& K4 q/ G$ X' b
elist
* C( l2 m7 h8 N
)
; A& [" o; M' K' S5 s7 a( e7 ]5 F
) a4 Q# u7 [ X; D# o4 h ^: _
(if (= 1 flag)5 ?9 E5 i1 K; y( P
(entmod elist)# r5 j' g: P9 j* V+ |
)
( v1 W* H. v& T0 B9 y- {) @* m
)
* f3 n$ f8 _ P" }: p
" W8 j- w3 l- {
(defun ddxline ()- m0 @, a2 }- m) d4 k
(if (= etype "XLINE")
7 o7 s& t. h+ \+ Z& a6 a9 B
(if (not (new_dialog "ddxline" dcl_id)) (exit))* P6 K/ P1 j* |) y" t* V) w
(if (not (new_dialog "ddray" dcl_id)) (exit))
- l4 s5 ~$ b1 W2 d" T9 r6 Z
)6 a# O- c& s* Y$ q. x! j5 [
;; Set initial tile values
4 T) F I: C1 B! a7 v4 M0 Y
(set_tile_props)
. _3 G6 X4 F3 D
(set_tile_handle)( ~ z3 N8 t2 }, T- ?# |
(set_tile_xline_pt1)- C0 \- v+ p# |* m. N5 j' X
;; Convert to UCS and post Direction vector.$ j- x5 R; K; s4 e0 g/ u% m
(set_tile_dirv)1 k. U# E" D( r$ u, _3 e& Q
;; Calculate second point by adding Root Point + Direction Vector.0 z) [$ G7 J0 l9 y
(set_tile_xline_pt2), f+ c# r5 {9 E8 {
;; Define action for tiles
5 Y9 P/ @ O% N8 ]7 W, d2 R8 T- k
(set_action_tiles)
$ W& S/ k1 v5 j4 Q
(setq dialog-state (start_dialog))' ~ `+ ]! W( h+ o( c
(if (= dialog-state 0)
; h% Y- p* v1 I
(reset)
5 d. c) B3 V0 G2 y) G6 F7 V' C$ [9 I
)" U0 d' U3 `+ t, }
(if (= dialog-state 3)
- m2 K! H! N1 ^- J( k8 u
(progn
, J) Y. ]1 z/ i% n) ^ S
(modify_xline 1): X2 P( W6 N+ z+ F' K9 I( h6 W
(while (equal xline_pt2/ b8 t8 B3 r7 E4 y
(setq xline_pt1 (getpoint xline_pt2 "\nRoot point: ")) 0.000001)
M: n: r# l% M9 F j$ n
(princ "The Root point cannot equal the Second point.")" M* a8 Q. j/ M; v# {$ l
). W- S# |/ j$ ?9 o$ e; r
(ver_xline_pt1)% K/ l) r- P C8 P% H- J. I5 y
(ver_xline_pt2)3 t9 A- T0 g1 |+ X, Y: s7 p
(princ)
% l6 E/ \ `7 D! W1 ^
(ddxline)
: o8 O* y. X& L
)0 r$ l' k" ]4 b$ b! t7 b8 T! x
)
4 T' a8 M% e( ]6 P
(if (= dialog-state 4)
. w* x" B; o. _) S
(progn' C4 G: s. ~$ p I
(modify_xline 1)
; I# `3 f/ S& ?8 w7 M2 R4 p
(while (equal xline_pt1
( V+ K5 |( l4 F7 B8 o4 z* i
(setq xline_pt2 (getpoint xline_pt1 "\nSecond point: ")) 0.000001)6 `$ r4 x+ v4 h/ w2 k
(princ "The Second point cannot equal the Root point.")
" t" [7 ?% j7 I+ h/ H; w
)
: J. q& q6 G* |2 J2 R
(ver_xline_pt2)
5 j& f. c# g' t
(princ)
2 `. h; m+ s& I8 J3 c
(ddxline)) a$ E0 U+ i) s* F
)) B3 `0 T' I3 X/ U$ q
)
( J) f! a* ?2 e. B% h. u! P
(if (= dialog-state 1). K2 w: R! L, w* L) X
(modify_xline 1)
/ H. ^0 T3 ^! Q% i
)) _" {4 c" A1 N, X
)* o) P1 Q' u: Z' `; [9 W
;;" ?- k, V* u( `5 M' g
;; Modify ELLIPSE
3 L1 y6 X- H* b
;;# w4 A- i; c, t
(defun modify_ellipse ()+ ?3 F" a4 n% |
(modify_prop_geom)
5 L$ k x2 J# y9 m( j6 u4 ~
;; Update Ellipse Center Point value.; y. l! d, B' w- l
(setq pt1 (list x1 y1 z1))
6 Q& c/ e# M. i' F0 r% ^5 m5 H' s
(tempmod pt1 10 1)4 o: M: f- k" z2 E: a: _7 e
;; Update Start Parameter value.
+ N) W) W8 r: X6 H3 }2 n
(setq y_val (sin st_ang))" J' |" u" i& S) L$ [# p7 p( ?
(setq x_val (* rrat (cos st_ang)))5 u8 ]+ m+ r* J7 e
(setq stparm (atan y_val x_val))1 i$ n9 P. Y) C4 B7 r. w- V7 s
(setq elist (subst (cons 41 stparm) (assoc 41 elist) elist ))
4 \' n t8 k6 O9 ?+ P
;; Update End Parameter value. Normalize it, if it's less than2 t; X! w. ]- s& z4 }
;; the start parameter.
( e( ]/ a" I4 l$ P6 D4 d# @3 G
(setq y_eval (sin end_eang))' |& A- D3 \& @% n8 p6 K% b
(setq x_eval (* rrat (cos end_eang)))
( w4 y' t* G. o: Y, O
(setq endparm (atan y_eval x_eval))
6 ^/ h2 O/ h" ^& Q" E
(setq diffparm (- endparm stparm))0 v/ Z5 c4 b( {' i6 j: K/ A
;; Epsilon of 1.0e-6 radians for checking a zero length arc.
2 j- Q- p5 h- ~$ u# Q. X/ e, T* ]& z
;; Since zero length arcs are not allowed - construct the full
' C+ H, ]# B1 n0 A
;; ellipse in this case.
" ?2 X! \5 g6 t1 ? o0 l
(if (<= (* diffparm diffparm) 1.0e-12)3 C: h5 N3 c) M9 I3 b% P
(setq endparm (+ stparm (* 2 pi))) y" S. h5 u; v3 C6 h. R; f
)
2 f) V" {/ v% N. T
(if (<= endparm stparm)
; m: k( r+ O! {4 K6 d& I. k
(setq endparm (+ endparm (* 2 pi)))
0 y9 z7 `' a, x" G( h( j ?
)
: D- p+ V5 b7 q% N( e& Y. _
(setq elist (subst (cons 42 endparm) (assoc 42 elist) elist ))
/ G2 f+ h/ g( l+ E X
;; Calculate the Major Axis Vector by first calculating7 ^7 J" ~3 P; b2 i+ D
;; a unit vector using the old Major Radius value. Then
+ X% t' M# Y" K
;; Multiplying that by the (possibly) new Major Radius
& X# m \/ ?3 I5 z
;; value to get the new Major Axis Vector value.
' J R8 v& k8 f }/ V
(setq unitxx (/ xx old_majrad))
- ^. ~* z4 P1 M8 T
(setq unityy (/ yy old_majrad))( T- @- I% \% D
(setq unitzz (/ zz old_majrad))
' s) ?3 K1 G. U$ y6 R9 y3 b
(setq newvecxx (* unitxx majrad))
}" h" ^2 J) W S4 e3 m
(setq newvecyy (* unityy majrad))% }2 N2 c3 O; T
(setq newveczz (* unitzz majrad))8 Y1 z6 C- ~( p" c; ?
(setq newmajaxis (list newvecxx newvecyy newveczz))
0 d9 L2 E- R- u+ R" \
;; Update Major Axis Vector value% G8 X) p; p, W6 m( c) C3 K; X
(setq elist (subst (cons 11 newmajaxis) (assoc 11 elist) elist ))
) L/ \& `! X$ @1 Z2 E M
;; Update Radius Ratio value+ Z4 }4 }2 G3 {& q# }7 Q
(setq elist (subst (cons 40 rrat) (assoc 40 elist) elist ))
$ r1 N# i! N( z# ?+ g* d
(entmod elist)
1 q0 z- ~3 t4 X# C& r3 P# I G L
)
$ t/ o" f. @ Y) x
0 i+ {" }- @1 f0 p( N' |3 A
(defun ddellipse ()8 M! ^6 }' d; g4 _
(if (not (new_dialog "ddellipse" dcl_id)) (exit))
1 n8 R. k" c; ^0 r) q
;; Set initial tile values
1 d7 i* s2 E \8 a' P/ [1 _& x
(set_tile_props)
" X) V4 ~# \4 F! } m
(set_tile_handle)
4 H6 G# C& P1 W! h6 |/ M
(set_tile_pt1 1)
6 _$ Z" w# |; ~1 X% ^3 P2 O$ ^
(ell_calc)
" \! ?1 d* x* ?5 \/ x- D+ \; V& l
;; Define action for tiles( A2 u2 T1 i/ v
(set_action_tiles)
7 h0 |* h# c. s) ]5 Z- T* _
(setq dialog-state (start_dialog))& o8 Y6 X5 _9 u: ]! q7 ~& u
(if (= dialog-state 0)
+ O# X1 f9 P, z; X" \0 ~. n6 |0 q
(reset)" a2 v/ `, M) n+ M1 i- u
)
4 a2 X: J& {" k( [' P
(if (= dialog-state 1)% i L6 p# E( r5 V
(modify_ellipse)0 ]' L9 Y5 P$ Q
)5 n C! Z2 V7 f0 P+ V( j# T
(if (= dialog-state 3), B: e; ]2 k6 U+ x( R9 v* ?
(progn. U6 o6 e, y$ d% y& r( F
(modify_ellipse)5 x8 K, W6 J2 u- v% R
(setq pt1 (getpoint (list x1 y1 z1) "\nCenter point: "))5 B8 Q9 d; `% Y+ z$ A
(ver_pt1 1)" z) W6 n/ } m' H
(ddellipse)" R( g- Y9 z4 ^8 g2 d
)
. X U, h4 O) b% Q: P
)
+ [/ N, K+ J/ t/ p
)
5 c6 o0 p+ U2 {: M- @0 e
;;
5 ~( n8 j1 |# b! u% y' S
;; Modify REGION0 w% X4 e) H0 G0 I# R: L) q
;; P+ @; j$ h4 N# j2 l) u. @ g
(defun modify_region ()
5 ^1 h& I' |+ M/ g2 W1 I( ]
(modify_prop_geom)
8 t, e7 J- Q ? H
(entmod elist)) G4 Q8 K& J4 e0 K* p9 p! ]
)
8 E q" s0 n2 e1 Q& Q$ B [
8 P: ^! O7 F7 [
(defun ddregion ()5 g7 x$ G2 Q; Y* W7 @+ G+ S! v
(if (not (new_dialog "ddregion" dcl_id)) (exit))& D$ p2 x, t2 E# H
;; Set initial tile values a; F& l: | Q1 L
(set_tile_props)& m: T5 W) k) H. W( w4 c, S
(set_tile_handle)
6 [. o" d* P& E* ~2 e, ~
;; Define action for tiles) J8 b9 o/ D% S8 j8 E
(set_action_tiles)
+ x; n" p, M* K, _9 S, i
(setq dialog-state (start_dialog))
1 \! ~4 {! W* s& u
(if (= dialog-state 0)
; I" r) O! h2 Z& M$ l* g
(reset)% l' ~: m2 y" H
)
@& b- u$ N! j1 I) A4 v% D
(if (= dialog-state 1)
0 N% s0 Z% P! Q' l/ V5 V* V# w: c
(modify_region)
3 r# u% \( M" y+ d+ U1 d9 j& c
)" H1 O- K4 \, v# F
)2 G* `( f; ^3 P* b" P# X
;;
- x H( c2 u) m+ s; F
;; Modify 3DSOLID; E/ M7 V+ W* J: X5 T
;;. o. O; I4 j5 a4 ?) u2 m. F, _
(defun modify_3dsolid ()# v' {! X- [7 d. c) d4 ^; c7 h
(modify_prop_geom); I/ f2 ^' @, P- A% Y
(entmod elist)
& n( v! f0 o) w# y/ |& [4 t* o$ s
)* ~$ t8 |- _) L7 O) r" k. j' v
2 F3 l' [, A1 ]# s' `1 u3 r+ [
(defun dd3dsolid ()
9 m5 p( G$ c' N) g% l
(if (not (new_dialog "dd3dsolid" dcl_id)) (exit))# Z7 J& f# Z0 H3 F
;; Set initial tile values C5 M. \9 [' ]; B/ r: G5 M ~3 b
(set_tile_props)
- j% b% N+ }9 P
(set_tile_handle)0 D* p$ w0 D/ x# c( [9 j; w8 {
;; Define action for tiles3 i: J$ \: I. B' C5 m, W9 P" t
(set_action_tiles)# t. l1 {' i0 t& Q2 a
(setq dialog-state (start_dialog))
" T5 h% h3 X, A
(if (= dialog-state 0)
% G5 N' ]& ^% C, }4 i" M; g
(reset)
8 R6 W; P) w# l: y' @2 O: T, j6 ?
)
) K0 |7 n" j! m9 n
(if (= dialog-state 1)1 H4 A }2 A9 Q; i+ d! z1 @
(modify_3dsolid)
! u* q: A; B9 _5 f0 k
). x7 V& M$ J; }2 S+ m1 M& _; p8 z& {
)
5 ^6 |# z7 S. A( t2 C4 V( a9 }
;;/ ^$ T+ W9 ?9 i8 h8 e
;; Modify AcDbHatch
/ f9 N1 ]6 e' U$ S3 p9 \* J9 B
;;
" H' B% p6 y# z
(defun modify_hatch ()$ M Z9 k* T- ~( g: m* \
(modify_prop_geom)
1 Z, x, r. D. n; q3 P7 P, W+ R
(entmod elist)2 I5 Q5 ?: [6 k( ?
)
, H* }1 s3 s3 f5 n( @( L2 \
' _! O( q" F; A9 D2 k
(defun ddnewhatch ()3 i& z+ f' h5 Q
(if (equal hatch-elist nil)
0 x- Q) x& v2 f) o6 ~
(setq hatch-elist old-elist)7 x0 O* L" G/ s1 K
)! ]' d7 ~' @# L; E- T
: f, a+ | A8 s! o3 ^' `
(if (not (new_dialog "ddnewhatch" dcl_id)) (exit))
* U3 }/ l) ^* w% x5 m* `8 C* k
$ Y$ [/ c5 I4 T; H9 Y
;; disable the thickness tile. m9 t$ w5 G+ |7 C
(mode_tile "eb_thickness" 1)
5 \) F0 H* l' ?- c" N- h0 h
(mode_tile "e_thickness" 1)) G6 I( T1 `4 O; @2 @
& S" l5 i" i) @6 s% G! S
(setq help_entry "modify_associative_hatch_dialog"). q1 o) {1 v& l, H! f. w' k% |7 Y. Z
(set_tile_props)' g* p$ n( L& @5 M/ i& G
(set_tile_handle)1 ]0 Z3 `: F7 N7 z( }$ m
3 k5 y9 X, Q, f
;; Define action for tiles
3 Q( v9 N% p2 r
(set_action_tiles)
: g: L/ J- g: q( h
(action_tile "b_hatch" "(done_dialog 2)"), R* C5 C* g# X6 k
(setq dialog-state (start_dialog))
l8 I# ?4 V: U' ]( D6 Q* \4 J
(cond
4 C% w b' A/ S- N, @; }& K
( (eq dialog-state 0)0 q9 o# s: J( A3 g# O
(setq old-elist hatch-elist) g! {& R; t5 \7 {/ V
(setq hatch-elist nil)" W2 c: W3 e' j# W/ X8 P- G
(if (= (checkforlockedlayer ename) nil)
; z& _8 U9 j- ?9 _* ]/ t9 `
(reset)3 R9 d( `6 K6 E* Q( f" F# Q7 d# p
(progn ;;; special handling for locked layer reset
' D z" R% N, _) n3 r5 l# L5 @- e
;; unlock the layer
* f: p* T3 V! a1 e8 \( T) a. F/ r
(setq layername (cdr (assoc 8 (cdr (entget ename))))); n+ Q. J) S- X/ W6 ]
(command "_.-LAYER" "_Unlock" layername "")
6 o, J1 S8 P- X4 \# C& ], b
;; reset modifiction
& `2 X4 u( b" }; K& K( `
(reset)
& Q5 s5 {& `7 a; y H, L8 D9 F
;; lock the layer again h6 ?, j0 G) U5 ~; g6 u7 E- F# D
(command "_.-LAYER" "_Lock" layername "")
8 b( f. v* f: }% H
)
1 j; i8 O2 i u7 W
)
5 ~" O! b2 U7 @3 }5 A7 M: N2 N
nil ;;; makes (ddnewhatch) return nil for Cancel3 P8 e3 f0 v! G5 i
)
( Y4 L2 s; q7 W @% t
( (eq dialog-state 1)
. V& G ]4 H4 F+ ]* U9 l
(setq hatch-elist nil)0 `2 b; {0 r8 z8 W) l$ m* c
(modify_hatch)
- y M( T% O+ w
T ;;; makes (ddnewhatch) return T for Ok
# l% U' R: ~5 t0 J
)
3 I& Z0 d& f5 [, W; j( n
( (eq dialog-state 2), B. x1 }: g" Q, s c
9 j6 u C/ l; t D
(if (= (cdr (assoc 70 (tblsearch "LAYER" elayer)))
0 q) Z5 c& H4 H+ S
4, S9 b" O) l5 ?
) # m, f8 Q& B/ Y. n
;;; new selected layer is on a locked layer
1 P* _( ^% {! C
;;; we can simply modify the hatch properties
1 _9 r' _1 n8 s& x: m! a- u
(modify_hatch)
* d' U; \" w' l* |- G& f0 ~
(progn8 n* W9 J/ l' \/ ]. O
(if (= (cdr (assoc 70 (tblsearch "LAYER" (cdr (assoc 8 (cdr elist))))))
+ h5 ~$ b1 F2 D6 ?- z5 w8 ?. Z$ O( N
4
; @: b7 w" b2 R4 `
) & v+ g, ?% [. u7 X9 @ |0 L/ H/ v
;;; We changed the layer previously and now the hatch lies on a locked layer.
. m3 [2 J- b! U" j D
;;; We have to unlock the layer forethat we can update the hatch properties.$ l6 w; `9 O# B
;;; If we don't do that (entmod) fails to update to the new layer.8 A _3 W2 ~; T
(progn
( k% i+ f4 z; x+ u1 O# m3 G
(setq layername (cdr (assoc 8 (cdr elist))))
8 E7 ^ |. X v( }( O" Y9 t2 `; Z
(command "_.-LAYER" "_Unlock" layername "") ;;; unlock the layer5 |# k+ X1 \6 Z: r+ p
(modify_hatch) ;;; update the properties6 ]; N4 {0 ~$ ^8 y
(command "_.-LAYER" "_Lock" layername "") ;;; lock the layer again
- ~# T; b- W% d9 p# d9 O
)6 m' X: J/ R' @, e, \' t9 z8 X+ N+ e- s
;;; All other cases we simply update the properties; ?2 z% G0 J' I2 T- c* `) K
(modify_hatch)4 F% E# U3 e5 D; V
)
- [" m, K- i9 O; m3 p8 G
); A2 d( `7 h }9 l. k* }. [3 f7 f
)
+ p& I* e: h) R
(if (= (checkforlockedlayer ename) nil)
, K1 d. j! X/ N
(command "_hatchedit" ename)
8 b) S7 _! x0 Y$ @ F
(alert ;|MSG111|;"The hatch object is on a locked layer.")3 Q+ p4 h/ ^4 q/ F
)9 |- o) _- c) l: o
(ddmodify ename)
* u! N8 X& G1 _4 D$ y4 d/ U
)0 \ v. m% z* ^& ?9 d1 r4 r
)% B; u% }, @0 U! m9 L% b) a, l$ T
)' g* v+ i- h* {' U7 G
;;. u& T* ~' @8 w L
;; Modify BODY
( }; T- A1 t5 \) t1 M7 J
;;) S+ L7 Q- l; `: c! g, q
(defun modify_body ()* O/ ]1 H; h( _
(modify_prop_geom)
: _ p2 l0 w: M8 l( w; i
(entmod elist)
: k* G& Y6 y& y1 b. V
)$ q4 ` h# B# {
* {6 d# S/ E) U3 _
(defun ddbody ()
. D5 E4 d; |+ s! ]$ j: ~
(if (not (new_dialog "ddbody" dcl_id)) (exit))
# B0 {) y8 E6 g, _2 Z2 |
;; Set initial tile values
7 |* X$ r9 c6 `4 G4 m- z
(set_tile_props)( H) {3 K# u/ l/ m" f& W
(set_tile_handle)
6 E( \; `9 m, C1 f3 ?5 f' U
;; Define action for tiles% _ e1 |6 R, b- Q d/ L
(set_action_tiles)
% U& P% _ o' A4 Z/ ~. s6 z
(setq dialog-state (start_dialog))/ N# J x% F0 V; x0 w& f
(if (= dialog-state 0)
6 R6 L: @; n8 u6 m) X
(reset)
5 Q# B: x6 I- q |' G+ w
)! G! K/ }# W- C% P! N" _
(if (= dialog-state 1)
3 t7 Z6 f9 [! W! ]. p
(modify_body)' R2 F+ K( [4 Q4 M
)
+ d) v. g# b$ ]! e0 l+ s5 t! E* Z
)/ _* \4 A- d( ^- z
;;
3 B6 c7 x; H$ h+ `, }4 a' J; F, z7 W
;; Modify CIRCLE
6 G8 h/ ~" ^) ]0 [4 Z( |
;;
' C4 `3 ~3 e" ?# ~3 I8 ]
(defun modify_circle () t7 J8 c' t3 X& {- |' _. [
(modify_properties)
% |7 l5 q+ r3 [; q4 j
(setq pt1 (list x1 y1 z1))
! ~, P# I/ ]% w
(tempmod pt1 10 1)! n& n c: `& U$ P" i+ o5 n: D
(tempmod radius 40 nil)
- d: |- J9 T' `7 I- a
(entmod elist)
. m0 _& l, T/ \3 X8 l+ }
). X" |# [/ E& h& r9 m$ G1 H+ u
# U: L7 b/ J1 {9 W
(defun ddcircle ()
' a* }, }9 C3 R; E5 f, c
(if (not (new_dialog "ddcircle" dcl_id)) (exit))
& k) I8 ^* r, A. L# f
;; Set initial tile values
" [/ A9 K% O) `0 Y# K
(set_tile_props)
; c$ C# P* q8 c# O7 @" V6 T
(set_tile_handle)
4 y% n/ `4 |5 E# ^7 s* U q4 G
(set_tile_pt1 1)/ Q! C# P _! M) Z7 D; Q
(set_tile_rad)' }) |4 B# P$ }! N2 H! `7 {- v/ [$ C
(cir_calc)
5 d0 R( `0 ^4 u% z/ n5 ~ E% E
;; Define action for tiles
: x6 ~( N" s$ n2 I! O% Y" ^
(set_action_tiles)
. H( y3 j# k) n
(set_tile_pt1 1)
8 s8 c. E! ^" v8 X
(setq dialog-state (start_dialog))9 U' ^7 {7 t8 \$ e5 Q1 n4 c& `
(if (= dialog-state 0)& |( ^) C, h) e" x7 s9 @3 V
(reset)( I1 ?- I" V b9 A2 ]; Y
)" F% M2 V+ E) C% x6 o
(if (= dialog-state 1)" D9 t7 I& J4 m. u
(modify_circle)
! V D+ ?0 k4 K* H2 ~9 O
)
2 Q" {7 m4 ]4 U$ L ^! O: x
(if (= dialog-state 3)
x/ E8 S8 v. Y- H0 v3 p& [
(progn7 a* O" o7 @; q! o3 \( c, \; C
(modify_circle)
) |' i" r+ t: J6 H, w: H
(setq pt1 (getpoint (list x1 y1 z1) "\nCenter point: "))* c+ g9 I4 r& T" F% w) B: I7 G
(ver_pt1 1)
7 x9 l, e5 k0 [. R
(ddcircle)
% }1 s; _' @) t9 ?1 H5 Z
)+ c; h& H) ^, H- f. [% t# P
)4 S2 f- k# n7 @
)
: B! A+ q' U* v' G+ \
;;
. N: b E8 s( x6 [& f0 c! k4 X
;; Modify ARC' o$ c9 A7 S% y8 q* v" F2 V; n
;;
; h6 v$ U3 A0 w5 w. p/ P0 D
(defun modify_arc ()
" `' D1 n. r% l! E& w
(modify_properties)! Q S& F' ]& }$ P# T
(setq pt1 (list x1 y1 z1))
! P; N& S5 R. \
(tempmod pt1 10 1)
# a$ |; y8 _- T+ `9 u" W* Y
(tempmod radius 40 nil). M1 {! { z! m2 H! m6 ?
(tempmod st_ang 50 nil)2 s0 L7 E2 _3 T6 F
(tempmod end_ang 51 nil)
$ u$ t5 b# j7 V, l8 e" \
(entmod elist)
7 K# ]0 V0 w. `: h
)
; z, i# Z2 X! A* j
(defun ddarc ()
. [2 [4 Q6 D$ h. b) S" Y
(if (not (new_dialog "ddarc" dcl_id)) (exit)), A* t5 c, R8 ~/ ?# m
;; Set initial tile values) X& r8 A' P/ d" `. W- ?& F
(set_tile_props)
5 T2 v9 y* h3 K! K9 T9 s
(set_tile_handle)' _* s" Q* j/ m+ M! E6 w
(set_tile_pt1 1); W) ?, d# C$ ^
(set_tile_rad)& v+ l3 U% R0 k6 W F: N
(set_tile_stang)
+ N3 j$ e7 X% c
(set_tile_endang), @0 ?' J; O( X: C ^& c# z% U
(arc_calc)3 z. }% P# h$ M2 r7 ~
;; Define action for tiles: n9 L) X+ v( R/ _/ Y# |; B
(set_action_tiles). C- i e$ [ k; c9 D" c. Y
(setq dialog-state (start_dialog))
% |# m, q. S* R
(if (= dialog-state 0)- ]8 u6 G6 L; c0 b" o' U5 r
(reset)
" j W$ M" t( k( R/ @ ?
)$ U4 a! _5 B9 _- d* A3 J
(if (= dialog-state 1)
$ C+ L7 f) Y. f @! T9 y2 P
(modify_arc)' K$ W) J! @5 s, T0 n+ p. }
)
0 m" h8 b- c( {+ }1 C$ w
(if (= dialog-state 3)
* \6 c4 E% L' v: Z' @
(progn
$ t* c1 M9 Z2 N1 T" N
(modify_arc)
; l5 I( E w3 V3 R" L- i E) a
(setq pt1 (getpoint (list x1 y1 z1) "\nCenter point: "))) k: R0 i8 f1 D7 t$ E" B0 e
(ver_pt1 1)% R- {+ i: X- R# ]0 t0 R
(ddarc); g, ~1 J3 _: F7 t; Q) z
)
5 `8 F4 |( w2 H3 h3 H& O
)- u; }- e: v" }; ?! E* F! C" v
)7 {/ B2 }: V3 i. P4 r& f# e
;;
6 B+ S, d+ @9 P! I
;; Modify SOLID or TRACE* Z$ i0 U$ M7 D' K4 @, z
;; Note the Z value of the object is determined by the Z value of the fourth
4 O* i# C# e9 i/ _* k+ ~' Z& `: _/ J0 S
;; point - code 13. Changing the point values of a solid or trace from a UCS
- ^. @/ [8 c* s6 p
;; that is nonplanar to the UCS the object was created may confuse the user.& L- |' M) _+ L7 m& m
(defun modify_solid ()
& ~) D* ?0 d5 E4 l z$ q( I
(modify_properties)
4 M; v* K! N* w: g; c9 s/ L( n
(setq pt1 (list x1 y1 z4))
) L3 j; \. _6 `# Q$ u
(setq pt2 (list x2 y2 z4))) D) |0 p j* e6 M/ P1 Q& F
(setq pt3 (list x3 y3 z4))
( V; |2 V6 U& D& r9 r2 P' X z
(setq pt4 (list x4 y4 z4))
( @6 p" E' j1 ?* ]# X+ i
(tempmod pt1 10 1)
* q6 d6 W1 V2 n. t+ g1 G% i( ^4 j
(tempmod pt2 11 1)* h! D" e+ \1 ~1 o( z) G
(tempmod pt3 12 1)* Z& i$ E6 z5 S B& u- U
(tempmod pt4 13 1)
% y" G3 O( u% g
(entmod elist)
0 G4 o5 M7 j" @! I% j, S3 `. [
)+ A. ?# y/ k. j/ S: W4 m6 t+ O
" p% p ~* i" q8 _1 v
(defun ddsolid ()+ o/ X. P7 R% G8 b" t
(if (= etype "SOLID")9 S) S, T* |5 K: Y, ^/ `( {
(if (not (new_dialog "ddsolid" dcl_id)) (exit))
4 b0 T2 e, Y' \ o" y: o+ v
(if (not (new_dialog "ddtrace" dcl_id)) (exit))- u! k0 a# M% z+ D
)
0 t6 p, n$ Z+ z2 T! O
;; Set initial tile values
& J: R5 q4 T9 j! F9 |2 e
(set_tile_props)
7 `, y) F- C& h+ |0 O
(set_tile_handle)
S# P, e$ v) W! t
(set_tile_pt1 1)
& O6 v! d. H. R9 T, y
(set_tile_pt2 1)
) y: }$ Q3 h2 b$ W4 R4 F
(set_tile_pt3 1)
8 ~' U+ @/ z# @) r6 u0 A% [
(set_tile_pt4 1)
* h. p0 I1 e- ^
;; Define action for tiles
, g- g! Z" U6 q& w6 G
(set_action_tiles)! q! b: G7 N# `+ G7 H
(setq dialog-state (start_dialog))
# a+ e. l/ y- o X& N& R4 c5 L0 A
(if (= dialog-state 0)$ A' t# l+ _- s# o5 ~% Y! j: s& ~
(reset)
N! c* @) X- f2 x$ U
)+ C9 e( i( R, ^$ L. {2 u5 x9 N" i- Q! d2 i
(if (= dialog-state 1)5 Y1 V% c7 j8 k' N& g5 e
(modify_solid)$ ^4 p( q; {9 i6 R) p& U7 x" K# l, p
)
# g6 {8 o) M! E' N- X& K/ E
(if (= dialog-state 3)
, X% M, _( g3 G2 r6 h6 A
(progn" b8 j' r; _' y0 w6 n/ t8 ^
(modify_solid)$ F3 f; n% t' |- Y R' s, o
(setq pt1 (getpoint (list x1 y1 z1) "\nFirst point: "))+ a J" ?0 |" U
(ver_pt1 1)( |! J/ `8 ]( ^* `4 z/ O
(ddsolid)
1 |% T9 @, L4 w4 v- U
)8 ] O* X2 W4 t9 c8 F$ W
)& |2 B. \1 E0 U! |6 S7 x8 R0 o
(if (= dialog-state 4)
3 P( {6 }/ X2 n. W2 q
(progn
. x* J# ? l3 s% ]. C
(modify_solid)
$ {% J7 D, v, ]! z& i
(entmod elist)" u4 Z. |4 v! j z
(setq pt2 (getpoint (list x2 y2 z2) "\nSecond point: "))
% K9 J- A; }% P# e! Q" m
(ver_pt2 1)
2 a: ]0 F1 z$ B6 E
(ddsolid)
( x4 N$ E! l" x
)" f4 ~% O$ d0 e# p
)
! f6 { B1 q9 k( d+ l" z% A
(if (= dialog-state 5)
5 U5 ^3 x; L" G
(progn7 Q7 Q7 a, [# [" a! N
(modify_solid)/ U+ L2 e* ]+ u' @
(setq pt3 (getpoint (list x3 y3 z3) "\nThird point: "))3 V# `/ ?$ z. t+ A. j: r
(ver_pt3 1)2 l z; T) {/ j
(ddsolid)
7 Z% L# d- u6 d$ B1 q* o7 J
)
3 I3 ]. C' V$ j4 p0 k+ {& L
); Y# M( F/ y9 N0 X6 D! Z
(if (= dialog-state 6); x3 Z$ s+ {' O8 R
(progn3 ~5 T; J, N/ W1 a) A) q# S) c
(modify_solid)
7 q$ H6 w& K- K5 v; a6 m7 {- s2 b
(setq pt4 (getpoint (list x4 y4 z4) "\nFourth point: "))$ H# M# c9 q X0 t8 a
(ver_pt4 1)# G7 @1 Q6 Y7 ~- V4 n' T
(ddsolid)
9 m0 c! ?, X! q2 j
). I/ y- E/ N) m
)
% L+ T6 W6 I7 e
)
' o7 w% ~. p n6 K' n8 t( w* V
;;
4 ]! \8 K' X7 F
;; Modify 3DFACE: w7 x* Z% e% L/ U
;;0 R+ Q8 m5 F {/ x1 D+ ~! @" y
;; Check visibility of edges, L( R$ ?% m0 F2 @6 ]* S
;;1 M# p/ a' r: W4 T
(defun edgetest (/ bit1 bit2 bit3 bit4)8 E+ i3 k4 f0 j, e
(if (= edge1 "1") (setq bit1 0) (setq bit1 1))
9 Y/ T( c) a* n1 T- |
(if (= edge2 "1") (setq bit2 0) (setq bit2 2))
. R+ `+ G' C7 u" Z5 S2 j3 z! X
(if (= edge3 "1") (setq bit3 0) (setq bit3 4)); M9 ?$ i! P! l$ D
(if (= edge4 "1") (setq bit4 0) (setq bit4 8))
?7 t" x. ]5 v8 w
(+ bit1 bit2 bit3 bit4)' Z& A, l" A" K$ o6 `1 C7 e
)
* q z7 H$ C/ o" N$ W
% ?; ^$ ~5 ?" A* M
(defun modify_3dface ()+ ] N% @; Y8 }8 W
(modify_properties). I. _- v6 H- b! y. l9 |
(setq pt1 (list x1 y1 z1))
! N0 i4 y' Z# I
(setq pt2 (list x2 y2 z2))
- j/ I9 G; q5 v. I% ~
(setq pt3 (list x3 y3 z3))
3 D6 @/ T3 S9 N7 J; C* D' i
(setq pt4 (list x4 y4 z4))
7 v- Z% Y5 h9 |4 `2 L* A
(tempmod pt1 10 0). S% O; c8 i8 f
(tempmod pt2 11 0)0 h, @) U4 x$ K
(tempmod pt3 12 0)9 w3 ]' x9 S. c# i) x
(tempmod pt4 13 0)
7 {! F; p; Z0 a3 M8 n" c
(tempmod (edgetest) 70 nil)
4 U5 _$ g$ R; P8 D6 F8 Q* H
(entmod elist)5 E T, m2 e0 S7 _
)6 T- n% J5 v5 n3 G& y, C
8 n1 a: A# J4 v
(defun dd3dface ()
3 x1 o2 q$ Q+ f9 k, g
(if (not (new_dialog "dd3dface" dcl_id)) (exit))/ h+ ?/ ?5 i6 U+ v$ ]
(set_tile_props). E7 g- W) ]+ [9 t' g" @
(set_tile_handle)+ I, R: @! Z* o6 {- J
(set_tile_pt1 0)& v- k7 a2 Q6 o) S. `' a; o
(set_tile_pt2 0)8 Z% q/ x) q8 F$ d9 p
(set_tile_pt3 0)3 o2 {! A' ]2 C- e
(set_tile_pt4 0)
8 W; H" v& b1 z& A2 Q
(set_tile_edges)5 \! M" d3 ]/ C$ [6 C) M8 @
;; Define action for tiles
(set_action_tiles)$ S) K9 k5 X5 Q1 J; k% Z
(setq dialog-state (start_dialog))
' J3 D7 P- K& }" e
(if (= dialog-state 0)
9 ?' q& Y* m* c% `
(reset)
% |# X# B2 Q6 ^
)0 C% j% ]: j& L7 f! h
(if (= dialog-state 1)7 ]7 ~4 U) j0 X: j0 Y
(modify_3dface)
9 r8 L9 ~$ ]' j h. c1 r, @
)+ H4 N. v Z, E5 `9 a
(if (= dialog-state 3), g' \5 d& `$ k* W m. E
(progn
8 w7 T' j8 f7 H9 ^
(modify_3dface)
5 Y" j3 X. O# ~/ y6 O {% b0 `
(setq pt1 (getpoint (list x1 y1 z1) "\nFirst pt: "))
. e+ y5 S! Q6 \
(ver_pt1 0)
/ Q- m! i% G; Q/ M
(dd3dface)/ i# w: }1 \: l! I
)$ d4 s' _0 s# N
)
S) ~; H4 A! I: [/ _7 A* \
(if (= dialog-state 4)4 {8 V# s: I6 ~2 G( U' ~
(progn/ ~. ?: y; [, P! z, x
(modify_3dface)3 @, [: g" A8 h/ {6 Z
(setq pt2 (getpoint (list x2 y2 z2) "\nSecond point: "))4 e1 K$ C4 ~' G! T* A: S; y
(ver_pt2 0)
4 ~, n2 Y' M# v
(dd3dface)/ l0 v- t5 h, Q4 W ]) q: P# [1 F
)1 W4 S4 \' A1 D8 O' A5 T
)
' C2 z# ~8 E1 n; t# E# }
(if (= dialog-state 5)1 W- i' N o# {+ q5 Q5 v
(progn
% a" m( f3 C" v9 v: R: l
(modify_3dface)
+ J! J0 b( q% ^+ X
(setq pt3 (getpoint (list x3 y3 z3) "\nThird point: "))
. }3 B7 I m: m6 A# E
(ver_pt3 0)5 v0 O5 T+ y3 b& a/ A& ^
(dd3dface)
, ^4 m4 M; z. r+ j6 _% U
)
1 n5 S' T6 I/ B1 V
)2 i! Z1 Q% H! p7 G( o' {+ @5 H
(if (= dialog-state 6)
0 w: ] M ?; v) G6 Y8 L$ k
(progn
% M4 l3 I* T$ ]" j P" t
(modify_3dface)
. d$ v3 B4 }5 N+ n* d- a# q
(setq pt4 (getpoint (list x4 y4 z4) "\nFourth point: "))4 f$ P9 U2 H% ^7 k% }8 K5 j& O( h+ B" R
(ver_pt4 0)
# {) G5 }: _4 L8 ^- Z
(dd3dface)
# F5 a& k8 T1 p& @* c) V* e
)
3 N& u5 _# |4 ~. |
)* e5 E _: J! i/ ~* W7 b# M
)
) ~0 T1 F: e9 t! V/ e8 J
, c# X- g6 v. t4 i7 q5 d
;;& }$ u! T( K: o5 `5 ~9 h
;; Image functions
. Y. m; r2 b6 z$ u
;;
" v" ]" m" F7 w
(defun image_scale (/ upixel en n userscale temp)6 k z) c+ l1 o5 j* G3 Z9 M6 [6 P
;; Calculate the size of an image pixel in AutoCAD units& e& X" K1 ~+ T Q' r) \
(setq upixel (distance '(0 0 0) (cdr (assoc 11 elist))))3 M9 x) U3 r5 }4 x5 g
/ _7 v% A! T/ c: P
;; Retrieve the user scale0 s7 W3 L) A7 C) |
(setq en (dictsearch (namedobjdict) "ACAD_IMAGE_VARS"))
7 L4 O& ~* B, @8 U+ n
& V5 P" A! Z J* C! b7 _! M8 w
;; Next, extract the image units and pixel resolution
3 g$ T6 M6 J* P( z
(if (or (= 0 (cdr (assoc 281 image:olist))) (= 0 (cdr (assoc 72 en))))
1 J1 P3 }1 j- Z s
(setq image:scale (* (cadr (assoc 13 elist)) upixel))
/ `) Z: o) W# @4 A; p
(progn
* B: w, c4 m% P' R
;; Convert the user scale to the proper word( Z8 x4 y. Z- R6 n# P
(setq n (cdr (assoc 72 en)))
1 L$ s8 A+ u7 l }& Z
(setq temp (getvar "LUNITS"))9 t+ r( j; Z& R4 c7 P. A1 @+ n
(if (and (/= n 0) (or (= temp 3) (= temp 4))) (setq n 5))
(if (= n 1) (setq userscale "Millimeter"))
+ }" K' V$ y0 [: H5 b
(if (= n 2) (setq userscale "Centimeter"))' P1 C* q% r" a. [6 k
(if (= n 3) (setq userscale "Meter"))1 ]) m& a% Z% c$ Z
(if (= n 4) (setq userscale "Kilometer"))9 N) U# V, M$ h6 w3 }: ?/ F8 S
(if (= n 5) (setq userscale "Inch"))! j' d1 S u: l. C8 q
(if (= n 6) (setq userscale "Foot"))
& _- u/ Y7 h/ h, m
(if (= n 7) (setq userscale "Yard")); T" d; _" a/ k$ K' W
(if (= n 8) (setq userscale "Mile"))
e% X/ x7 c0 M' @
(setq image:scale (/ upixel (cvunit 1 "Millimeter" userscale) (cadr (assoc 11 image:olist)))); E) ~, L1 @# X' G, w- [8 r8 T' O
)
# f# l" u! i9 B
)! _, G% |) r1 b# u8 B
)
/ x% c9 [9 l2 J& W6 J
1 W' M6 _# i( \/ Z+ A9 X
;;) p: A) v {; c2 O7 a
;; Scale factors for block insertions
8 t5 S1 C$ s0 Y# b7 o* d2 A2 U/ l
;;
8 A4 X/ u& G; r4 j
(defun image_set_tile_scale (/ temp)
* H% T6 O l# _: F* f
(setq temp (getvar "LUNITS"))
' P t( e6 K( z1 \7 ^
(setvar "LUNITS" 2)
8 s8 q7 q7 L2 @9 [ D
(set_tile "xscale" (ai_rtos (* image:scale image:mult)))/ L# l' P) Y( I3 N# }1 h7 m1 O4 ]( ]
(set_tile "wid" (ai_rtos (* image:width image:mult))). ~0 D4 n0 D0 V* Q+ q+ j
(set_tile "hght" (ai_rtos (* image:height image:mult)))
5 ^& Q8 g5 G) T+ H# V6 P
(setvar "LUNITS" temp)
' X0 a- h9 Z4 ?, w$ y
)
+ H$ M% J4 l, |$ w
# m3 W% w- S( @1 C ~% g, _% ~3 F
;;# @ A% h2 W) O3 e3 m
;; Set the scale, width and height values appropriately.
. Q& O" I4 ?: ?; p
;;% y8 }0 H3 e. W9 X1 i
(defun image_update (field value / orig_value new_value mult)/ I7 V$ w# S, u& w% z% t2 _' D- x
(if (= field "xscale")
4 K/ R& i" V' H
(setq orig_value image:scale)
1 ^# U. H/ Z' c2 x& }7 V
)& N/ [2 N9 B7 N. Z3 j+ g# p0 z
(if (= field "wid")- T3 D/ B' r2 _7 ~6 v! @+ U- `
(setq orig_value image:width)
6 u! x9 Y& U( F, ?
)
+ p, i! F) ~$ h8 i
(if (= field "hght")! T3 j1 F& Y) |$ c$ v: n
(setq orig_value image:height)
; w4 @% d. {6 _" `5 ^9 i) n
)
* L2 A! E" v& G" \' g- `, P
(setq new_value (verify_d field value (* image:mult orig_value)))
, ]! @1 R6 s8 i9 R# g% y
(if (/= new_value old_value)
/ F# l4 ]4 W0 x8 ~: e6 |- K! S
;; Make sure the user has entered a sufficiently large value
6 j- u+ }4 Z% F
(if new_value
4 l& M* i6 L9 b
(progn
5 n) t6 Z) G' e5 E
(if (< new_value 1e-8)
# A& p, o' d; Y
(setq mult image:mult)
9 {: z+ B$ v. @- z
(setq mult (/ new_value orig_value))
4 Y: Q( x9 a9 I( V; ]
)( b: X& u6 A8 U/ Z
(setq image:mult mult)8 q' y. D3 R; E# \
(image_set_tile_scale)4 S( |$ Q7 H9 d: c0 \
)
7 H! n. l: s, }
)
( O. k" e' b2 u% W$ \( H
)
( F4 Z N' i4 ^4 _$ X" O1 d* n" S
) Y: \$ D! s6 [# a4 L B1 x! d6 K
4 E: u3 x$ a- S' D) [, O
(defun image_disp_opt (bit)- w: f4 M1 h* s+ Y
(setq image:options (Boole 6 image:options bit))
' p, w) }0 E% g& B& M1 a
)
9 p+ k) C/ L h9 A% h6 g
( C) I2 l' K# Z" V3 T1 d9 T
(defun image_modify () V- o( z4 m3 X9 b) z( j
(modify_properties)
* F! l' x m! ~5 m f/ k/ Y
(setq pt1 (list x1 y1 z1))
7 B$ _, U1 M" O; x% V
(tempmod pt1 10 0)6 G# x, m8 A! h$ p8 E* M: ^
(entmod elist)
+ M ~; a, a% t/ x C
)
& j1 O! l, g& }/ t) O4 `
9 S. Y1 k$ J2 b7 a u" ?7 N
(defun image_clean_variables ()
& C; z4 a1 ?2 }$ @# y2 Z8 T
;; Clean up global variables used here7 ?, r5 W/ e/ D3 c4 k
(setq image:scale nil)
; A- B/ B! H, b8 F. \0 x
(setq image:angle nil)0 }+ K& M/ W& T( s1 C* z. ^! w
(setq image:width nil)
9 X- E+ {7 _! \) h
(setq image:height nil)
$ @& w5 ~2 o% `) x; v" l. |
(setq image:options nil)
# `1 ~% a, @, j5 S
(setq image:oname nil)
( E$ y7 |+ `" N3 a+ K) ^- x4 H
(setq image:olist nil)
( J) ^' H) D4 _
(setq image:mult nil)+ n2 V7 i% D9 d: C1 O
(setq st_ang nil)
8 G; s, o1 N' B; L
)/ Z7 J% x! c9 J& a; k0 S6 ?
2 }" x5 M+ U9 H5 H9 _
(defun image_scale_vector (v1 value)3 L1 ?6 N+ e g, a7 ~. _
(list (* (car v1) value) (* (cadr v1) value) (* (last v1) value))
* u; c, v/ o+ w& q, }# n! J* I+ g
)2 q0 T- B" [$ _. J& `" A; B) e2 }
' i: J% Y- H5 ?, S
(defun image_cross_product (v1 v2 / vx vy vz)
0 r2 X# N! g0 `
(setq vx (- (* (cadr v1) (last v2)) (* (cadr v2) (last v1))))
2 G# p0 H5 s. Z1 ^$ h6 G+ P4 @
(setq vy (- (* (car v2) (last v1)) (* (car v1) (last v2))))
) O2 I; b3 w( l3 m, W
(setq vz (- (* (car v1) (cadr v2)) (* (car v2) (cadr v1))))
0 @5 a+ @6 ~/ d* V6 ?* b2 Z
(list vx vy vz)
3 Z0 e, i. Y5 L+ I6 \- x
)% {4 N- ]- ~- M8 X X, p
2 L# z' `7 d* @" E9 p4 K
(defun image_dot_product (v1 v2)1 o8 l2 T# E2 B& N# O+ A" w) X- C B
(+ (* (car v1) (car v2)) (* (cadr v1) (cadr v2)) (* (last v1) (last v2)))6 N/ I+ y9 p0 I k
)
, H1 `" f2 m$ \; ~* ^7 z1 N5 E X
/ m9 Q; h0 g7 g
(defun image_add_vector (v1 v2)7 E( H9 S6 v! K8 b* Y
(list (+ (car v1) (car v2)) (+ (cadr v1) (cadr v2)) (+ (last v1) (last v2)))1 Z# `4 j, k; z- x
)3 d/ u6 `4 |6 a
) \1 k) s* W! u" j/ ?: _3 g
(defun image_subtract_vector (v1 v2)
9 \* ~+ c" l* q0 Y
(list (- (car v1) (car v2)) (- (cadr v1) (cadr v2)) (- (last v1) (last v2)))
7 W: C( z/ T) U" O
)
) z: P& N; E3 r. u6 m4 \% W5 c
- s1 P1 }, a( w/ A: u
(defun image_normalize_vector (v1)) u( p) M# p9 \. f7 F7 P
(image_scale_vector v1 (/ 1. (sqrt (image_dot_product v1 v1))))
: h! D; J/ G" M( F0 U+ ?
)1 G% j0 i) }% i% l1 D# B! i
$ N5 c% {7 C% X
(defun image_rotate_vector (vector angle axis / along_axis axis_x_in_rot_plane axis_y_in_rot_plane in_rot_plane)
: y! r: ?% U6 E% \
;; Normalize the axis
( N9 B) }- N* u
(setq axis (image_normalize_vector axis))
; a* p. X! f5 M! o# t* F
(setq along_axis (image_scale_vector axis (image_dot_product vector axis)))* I8 Y$ F" ~6 x& i% ]5 [/ Q9 g
(setq axis_x_in_rot_plane (image_subtract_vector vector along_axis))* c' I% t$ v* g" M9 e) K
(setq axis_y_in_rot_plane (image_cross_product axis axis_x_in_rot_plane))
% w; x1 z5 U. [- _: }4 P2 W8 r
(setq in_rot_plane- R0 a; r+ Y6 Z0 j" M u* i Z- b- I
(image_add_vector1 c" t; J; Q# L0 o6 z
(image_scale_vector axis_x_in_rot_plane (cos angle))
) H7 p8 P3 {. p. V
(image_scale_vector axis_y_in_rot_plane (sin angle))
. D! R1 V* R' K0 `. _% c
). ^" e" q4 i' R8 f: @
)
( f9 C [* p6 f* s
(image_add_vector along_axis in_rot_plane)0 D0 |4 F) J+ H5 a! y7 K* Y- Y
)* H. `: N1 `# W
3 y i0 {! J P' X/ l" ^" q$ j9 \
;;6 Q2 _ ^1 h' _2 q7 t
;; Calculate current rotation angle if appropriate.
4 n; C& ]. Q, T8 V3 K- i; \' g$ s
;; If not, grey out the rotation field.% k! n! U- i. L+ Q9 e
;;
; K0 N8 W# B0 ~4 d9 @9 m! I; w+ s
(defun image_rotation (/ normal rlength zlength sqrt_tolerance)
; z0 H/ }( a# P
;; Determine if image normal is codirectional with* L8 f+ g3 s3 E( N6 E6 K1 l
;; the current UCS Z-vector.2 g+ [: g( m0 {7 @* \8 {! Y
;;/ W- L( V. ~ g* ^' Q' ?
(setq normal (trans (image_normalize_vector (image_cross_product (cdr (assoc 11 elist)) (cdr (assoc 12 elist)))) 0 1 1))
8 P; ?* P6 c0 t# z9 m+ b) l H# ^
(setq rlength (+ (* (car normal) (car normal)) (* (cadr normal) (cadr normal))))
9 v4 C. H# d2 N6 D
(setq zlength (* (last normal) (last normal)))) f$ k+ @4 O3 f* j
;; Note that the value .0001 in the radians is approximately 0.0057 degrees.2 C [2 F R* P8 Y* Y
;;( }" n/ j) l5 T. N7 K
;; cos(.0001)^2
& } K! L+ v; I, @4 k
;; Tolerance = --------------
R+ ]' l& W3 Y I# H$ v
;; sin(.0001)^2
; I( A. S! S/ n' K; n
;;8 p0 o3 }' e3 d1 w; L- O
(setq sqrt_tolerance (/ (cos 0.0001) (sin 0.0001)))3 c- j2 \* P# w! \# I1 `6 l; ], i0 y
(if (and (< (* rlength sqrt_tolerance sqrt_tolerance) zlength) (> (last normal) 0))
+ d/ ^+ @1 P8 g
(setq image:angle (angle '(0 0 0) (trans (cdr (assoc 11 elist)) 0 1 1)))& [) p1 C0 L. N
(progn; G/ ~$ [* h$ O5 E
(mode_tile "st_ang" 1)
/ ~) X: k8 U0 F# o' [: }$ J
(setq image:angle 0)6 z, a$ H8 V, x; G. A7 [0 G
)
1 f9 n x# e9 z
)
" }% {6 z" N5 P+ g1 R
)
% G' [8 x W. R1 b H, ?! z
( L6 u! I* y7 w
;;
6 T6 E0 A" v1 s* s: Z4 D
;; Modify Image
- E5 `) M r2 s% M, ?$ F$ \
;;
# X/ y3 ^& G9 n
(defun modify_image (/ u_vector v_vector z_vector)
: h0 G$ O8 S R5 t5 [
(modify_properties)
; s. b* }$ e- K) N% g
(setq pt1 (list x1 y1 z1))6 v% N3 R4 L8 k4 S$ Q5 v
(tempmod pt1 10 0)
! R& n* ~) n1 u3 Z/ T
;; Make display option changes to image! }( x7 N( k( x( _
(emod image:options 70)/ Q+ D2 g$ Z- i1 Z! Y
;; Get the u and v vectors2 m# H* q- w9 O$ V# o2 t
(setq u_vector (cdr (assoc 11 elist)))
( ?( u6 P/ A. i0 C
(setq v_vector (cdr (assoc 12 elist))); f& ~- n s8 S" D5 K/ @
4 R9 y5 ^6 u$ I
;; Make scale changes to the vectors
# q- Z" [9 O: g9 x
(if (/= image:mult 1)
6 p' n9 Q6 ?. \: O2 ]. N
(progn
% ?5 F! Q$ P- N% x
(setq u_vector (image_scale_vector u_vector image:mult))/ L' s) @+ }2 {0 X8 c# W
(setq v_vector (image_scale_vector v_vector image:mult)): F6 t7 e4 ?* r. |3 v
)
$ I! l/ \& g3 n8 R$ [( G
)7 j- j6 e5 S) V% A
;; Rotate the vectors/ P0 ]4 K& o* z% u4 ^
(setq st_ang (- st_ang image:angle)): Q1 j# p* g- u6 R3 v
(if (/= st_ang 0)
# N+ }3 m, ~, H, C* f' U1 G7 @
(progn7 S$ D4 x( O: ]/ H# n! j
(setq z_vector
+ x1 @9 \- w1 b8 m! Y5 [- d! X
(image_cross_product
& C% V% O- F5 ~9 {; R. w! v) M
(image_normalize_vector u_vector)- a' k) |; p5 s) E
(image_normalize_vector v_vector)/ ~$ n- d! }' j
)
6 l$ c( ^0 I* V' B! Y# y& s
)7 K" x$ p4 V! [4 n! S( @
(setq u_vector (image_rotate_vector u_vector st_ang z_vector))
% x- [& }9 Q7 u, t. b
(setq v_vector (image_rotate_vector v_vector st_ang z_vector))
- P& k( h0 s5 v& b
)8 n# W! t; ]. z, a9 D/ B$ y
). w: s! x) ?+ g& \" {6 F
(emod u_vector 11) K3 O% A$ }/ V
(emod v_vector 12)
1 [' a' ~ f! ^$ a! ]; Y$ Q
(entmod elist)7 X z2 | I. m- P5 a1 K5 @! A
)
6 X& E P: o7 {5 N2 X% u6 k& I
r% A6 L5 t6 j# v1 z p; c) ~
;;8 `- W* s; T( {1 n9 j" n
;; Run imageadjust on given entity, working around possible
0 i: f8 F% M/ |; S% b+ Y1 m
;; re-entrancy problems
( J3 v$ c: e5 B1 r
;;
! g1 q2 `* I& X; T! M! L6 {
(defun image_adjust (ename)& J( `% _8 m1 j9 m) C0 [
(verify_arxapp_loaded "ism.arx") ;; make sure it's loaded...
4 h! }6 ~ e _% v, G( _. a
(imageadjust ename)
- [& w) U$ G0 H
)
! Z e8 y+ B& O7 f* C! U# q* J
" H2 K2 b# Q: i3 k3 j( o7 j& I6 ~
(defun ddimage (); g! K6 C, i: K2 j7 t
(if (not (new_dialog "ddimage" dcl_id)) (exit))
# J" P2 v4 {* L, C& [- [3 l
) T7 }2 ~$ L2 J, o
;; Grey out the thickness field.3 M! m$ Y4 w9 V% l9 Q2 f+ d
(mode_tile "b_thickness" 1)
# C) O1 t" p0 M+ d* E, _9 h. y
(mode_tile "eb_thickness" 1)
W( P1 t2 R2 c6 c* T
5 {" {6 o7 G# ^! G
;; Get the associated def object.4 I; G6 L/ @) F. i) ^3 j x
(setq image:oname (cdr (assoc 340 elist)))
) c6 X$ D5 \+ K" H* _! u5 K- A
(setq image:olist (entget image:oname))
7 ^* v A# p. o0 s/ b
# d+ h, K, L) b, a
;; Set initial tile values" Z( h. r6 R6 x6 W, S8 u: U& Z; Y& u7 v
(set_tile_props)
: m* ~( ~, {. s, }8 g
(set_tile_handle)7 N& \, W: \4 b5 q0 U) O
(set_tile_pt1 0)
3 B+ B- _: g0 [7 x) k
(setq image:scale (image_scale))9 c, O& N" y& h& g* L
(setq st_ang (image_rotation))
^/ p+ P. b+ U: H
(setq image:width (* (distance '(0 0 0) (cdr (assoc 11 elist))) (cadr (assoc 13 elist))))
. l" R1 A* j, q
(setq image:height (* (distance '(0 0 0) (cdr (assoc 12 elist))) (caddr (assoc 13 elist)))), H9 l- g/ u6 i
(setq image:options (cdr (assoc 70 elist)))
1 f9 n# B% G/ Y F
1 e( Q% N; E% b6 T
;; Record the last multiplier for use in image_update function8 }2 `5 j0 p% {, n& B% p( B/ M5 R9 o7 n
(setq image:mult 1)
( I5 |# p4 _- B% w5 N' R- l7 [
( R7 v! \8 H" r- o* o
;; Retrieve the image name1 \1 a3 R, y1 R
(setq fn (reverse (dictsearch (namedobjdict) "ACAD_IMAGE_DICT")))
' K( G8 B7 Z2 f9 }' `' I+ N$ z
(setq flag 0)
/ D9 s5 G) L( J4 v
(foreach n fn; O$ Z: A) h& Y4 Y; t, O) b8 [
(if (= flag 1)
0 d1 _4 d! M8 n9 C1 ]
(progn
' {5 H4 d( H2 h- O+ O
;; Display the image name
+ Q1 o7 d. `3 H" w0 y8 |
(set_tile "image_name" (cdr n))
/ n* }3 Y9 T& W$ B( G' W: H
(setq flag 2)0 o/ ?5 C9 s1 U& j S. c
)
( p3 O8 z- p1 ~& o
)/ T9 U' `0 [+ Z6 o9 c6 k
(if (= flag 0)5 [! Q* m0 U: e$ l U# i
(if (equal (cdr n) image:oname) (setq flag 1))' W* m* T9 c! B. `' ]) S
)6 L" H8 x& S4 T
)9 `! j6 @; `0 o) i( m6 I& f
, B3 y& H9 u2 N
(set_tile "image_path" (cdr (assoc 1 image:olist)))% V- o e5 d% A$ o
(set_tile "st_ang" (ai_angtos image:angle))
: U9 L* Y. X5 o0 b1 A$ |6 f7 W: W5 }
(image_set_tile_scale)
; v( p8 c) q4 ~; d7 L B. N
! Q7 |) _: O+ V5 Y
;; Check the appropriate boxes6 j& w, b# {3 Z5 J4 ~+ t, {, {
(if (/= (Boole 1 image:options 1) 0) (set_tile "image_show" "1"))8 h. v3 w3 c) |' |9 ~
(if (/= (Boole 1 image:options 2) 0) (set_tile "image_non_ortho" "1"))
$ {5 ?4 ^+ e# Q: j- _5 p U
(if (/= (Boole 1 image:options 4) 0) (set_tile "image_clipped" "1"))% ^% v; i- m4 D# L5 s
(if (/= (Boole 1 image:options 8) 0) (set_tile "image_transparency" "1"))/ j$ f3 t3 N4 Z: j" J( H" k
: q! t1 M, N/ T
;; Define action for tiles1 W+ [0 b! ]3 o5 F O
(set_action_tiles)" y% u% ~7 d8 k
(action_tile "xscale" "(image_update \"xscale\" $value)"), `. z N8 U: O) }7 L% e3 z
(action_tile "st_ang" "(ver_ang1 $value)")
9 [8 F7 V% Z! F0 V. h. p* m
(action_tile "wid" "(image_update \"wid\" $value)")
(action_tile "hght" "(image_update \"hght\" $value)")8 G0 w) n7 T) y$ t' d
(action_tile "image_show" "(image_disp_opt 1)")4 O2 @' K# l3 N, O
(action_tile "image_non_ortho" "(image_disp_opt 2)")6 [* L, f& m/ j+ z; L ^( J
(action_tile "image_clipped" "(image_disp_opt 4)")
# X' G5 W8 c5 Y7 l+ o/ x2 j
(action_tile "image_transparency" "(image_disp_opt 8)")
- r7 r# L; m. d+ z$ y( s
(action_tile "image_adjust" "(done_dialog 4)")
$ Y U j2 g" G$ e- f: w
" N' U' ]( A" S& F# D; J. ~2 {2 u* a) K
(setq dialog-state (start_dialog))
0 D+ X( P" S' _3 e# E3 A/ h- O* K/ F4 ~
(if (= dialog-state 0)
* D7 o$ r+ e& M# T' F0 m
(progn
7 N3 E5 V A/ z6 `$ Q# x- Z
(reset)4 i, W: L# S, C
(image_clean_variables)* x" y' s& R( U- r- A
)7 V: s7 `6 X7 G* p+ X
); ~/ Z7 F" K" ^5 b, H6 f
(if (= dialog-state 1)
. b6 n, O7 E7 f2 k
(progn
8 S, g3 {6 U+ q4 }
(modify_image)& h2 f; P2 Q5 C! |2 _
(image_clean_variables)
0 }7 Y# E$ T& C7 h& L
)
- T; `' ~4 z; h9 L( ~' Y# y) S
), E9 ^- M+ `! @# b; l4 [8 y4 g
(if (= dialog-state 3)
7 f# T8 ]3 \: \) \
(progn8 q% w* f1 `3 T9 j1 ]
(modify_image)4 a+ P& z; G6 [1 O' F; A- H
(image_clean_variables)3 L M1 @' x$ t% f, e6 T. p& `
(setq pt1 (getpoint (list x1 y1 z1) "\nNew Insertion Point: "))
$ y+ ^, B( {. k1 c
(ver_pt1 0)9 B" P- L; U+ k' M4 Q) |. W' U! `
(ddimage)
9 ^6 f3 u1 ~2 O5 F5 Z _
)
( _, n6 F- B. r- W6 j# U6 C5 }
)
! O l/ r8 J G2 o
(if (= dialog-state 4)/ I" M- l! o. k3 q. Z
(progn
i' ?! v7 ]$ A
(modify_image)
# j" u7 m( u0 g" u6 W/ W# S
(image_adjust ename)
& P) P0 E: ~9 U! E& {
(setq elist (entget ename))# ?. a: A9 G! K7 X3 t) l! I
(ddimage)! o: ~8 u: Y' V3 M
)8 q( A- G$ H2 @3 r5 U7 Y
)
: S9 `4 A# Q% y {$ @! ?9 Q
): l& Y/ z" q4 j! ?& Y: Z2 J
) C3 U5 a4 [/ B4 c% W4 P8 g
;;
/ y( \3 y7 e1 Z" O
;; Modify BLOCK (and its Attributes, if any)% e( v. l) @) Z- m, r7 J5 g
;;4 ~5 C( `. c# U. V& d* R# f
(defun modify_block ( / el en2 p1 p2 oldp1 oldp2 new_hgt old_hgt attr' X9 l, f) t/ r \" ]: r
new_wid old_wid old_rot scaling old_scale& C3 f$ F0 R- }) R
xdelta ydelta zdelta xbase ybase zbase ipos)
# b: q+ p3 s& o$ Y# s: j' y
(modify_properties)
/ L+ v" |8 q8 h* R1 _! H5 _+ V& A
( F# z6 U% N' v0 @6 t
;; First, translate and scale the Attributes, if there are any.
6 F& _8 U9 r A; ~
(setq old_rot (cdr (assoc 50 elist))0 W: f3 x$ H% R w
old_scale (list (cdr (assoc 41 elist))
7 e' [( `4 y0 P; z
(cdr (assoc 42 elist))
4 r- E" X0 P5 a5 L0 f" G" T
(cdr (assoc 43 elist))
K4 t" D) L/ Q
)
( w6 {( P! \5 [& m! z
scaling (or (/= xscale (car old_scale))
1 l. _5 p3 s0 j' m7 R# G2 ? k
(/= yscale (cadr old_scale))
/ c% Q. _" N. u9 ~
(/= zscale (caddr old_scale))3 [* F. h* k9 T( C! w* A1 m
), U+ v8 \4 f; s# t) z
attr nil ; No Attributes modified yet
8 x& g1 Q; H6 h( V& C
)
" A7 A" W2 l/ r+ _# x
(if scaling
! `$ f! d h4 Z3 b
(progn- @, R& ]8 [* E* Y) J
(setq xdelta (/ xscale (car old_scale))' k8 H2 z8 y7 t/ k: W% w
ydelta (/ yscale (cadr old_scale))
* ]# \9 M# k+ x2 u* j1 w- K
zdelta (/ zscale (caddr old_scale))' M# D z8 c1 y
ipos (cdr (assoc 10 elist))2 l" H2 [; x8 ?* P. ]* T7 b
xbase (car ipos)/ i& k4 c4 `% y i4 y# g+ W- x ] r
ybase (cadr ipos)6 |: P2 `. ^$ {4 ]
zbase (caddr ipos)0 g1 M+ V, F' L! h I+ O
en2 (entnext ename) ; First Attribute
" M% M& [3 `2 v- G+ m
)
1 J( Z: }% H8 Q# d8 x
& H3 N/ c. ?/ h/ a
; If the Block is rotated, temporarily un-rotate it, along& [% [) D) W* | Q
; with all its Attributes, so the scaling/translation of the# M' L) f0 ]' v$ e& @2 m& x
; Attributes won't have to take the Block rotation into account.
. L) }+ h7 a3 B0 M
(if (/= old_rot 0.0)
, g' F) A o4 h3 D
(progn
; K8 _1 x6 K' Y0 C m# I0 V
(command "_rotate" ename "" pt1 (ai_angtos (- old_rot)))
, @; j& a9 `1 Z% n8 @0 Z0 a X
(setq old_rot 0.00 h$ c) S/ E# n6 L+ s4 G
elist (subst (cons 50 0.0) (assoc 50 elist) elist)7 P' L* X" }5 [
) j& s2 j; h2 N- X4 ^7 G# F6 H9 h
)
# M: U. f) b2 a- `# I8 p$ V* k
)
4 j! U( p" c/ o8 P8 D& D
6 X0 A# n1 J% u" ^. ^4 g
(while en2/ z: ~. V" l1 [# r o
(setq el (entget en2))" M4 E% S+ C3 T- |& P: G
(if (= (cdr (assoc 0 el)) "ATTRIB")
7 ~ t; D7 }, c+ s# N0 f
(progn
$ d. `' E3 E! F t
(setq old_hgt (cdr (assoc 40 el)) ; Height
2 X# J. E' R- H7 n P
old_wid (cdr (assoc 41 el)) ; Width-factor
* ` P- Y- [8 O$ E0 B. w5 `
oldp1 (cdr (assoc 10 el)) ; Generation start point* {+ D& R. ?" x7 a# ?4 R+ G
oldp2 (cdr (assoc 11 el)) ; Optional alignment pt, d }5 u* _8 [, `7 ^0 r) C
ha (cdr (assoc 72 el)) ; Horizontal alignment
h; |( F! E& a) g5 y( S
va (cdr (assoc 74 el)) ; Vertical alignment
: P8 S2 j1 z: f' O' I
3 x g `3 V& r: D* O7 H
; Translate gen. start point& K5 { M( u( X6 N* [2 i+ a+ z
p1 (list (+ xbase (* xdelta (- (car oldp1) xbase)))9 a S7 }6 @% s' J' b+ t5 { `
(+ ybase (* ydelta (- (cadr oldp1) ybase)))* ?$ h, B0 }) @
(+ zbase (* zdelta (- (caddr oldp1) zbase)))$ I& U& [. q$ C# x! m! _
)
5 i0 C+ B4 }! ^. [( @ b
el (subst (cons 10 p1) (assoc 10 el) el)7 M/ `( f) g1 W( \. T5 y; v
)
/ k; M- v* k4 I' I, X6 I! c) K
: ~ H7 X& a5 m7 r* v4 m6 x6 X0 X
; Translate alignment pt similarly, if present and applicable
6 e1 P" r* \: n3 Q7 b" E7 Y# {
(if (and oldp2 (or (/= ha 0)
# @6 ?: E- @& p
(/= va 0)5 |( b+ z. O6 |5 [6 Y# w
)0 [. M$ F! d7 w" U1 m
)
6 _$ F+ V2 r' v& h( I4 {7 d4 w! h( W; J
(setq p2 (list (+ xbase (* xdelta (- (car oldp2) xbase)))
% J% H3 T. I/ C
(+ ybase (* ydelta (- (cadr oldp2) ybase)))
% z5 |( `# N1 F2 T
(+ zbase (* zdelta (- (caddr oldp2) zbase)))
* l6 {1 m) {4 W2 b* d1 t0 B5 I
)
! m1 F# a N- e' k, j! p, H
el (subst (cons 11 p2) (assoc 11 el) el)$ U, P4 N/ s( e
)2 I. `# D9 n8 J
) S3 v) E8 G; ^
% c e h" Q0 W; o% S: u! d
; Each Attribute's height and width-factor were computed
8 y% f: Q* n! i( Z& X( Y) s
; based on the Block's scale factors. Adjust them now,
{, e8 f1 X1 `- [8 g
; by first reducing to values for 1x1 scale...
2 ]! i# }9 w* H% V
(setq new_hgt (/ old_hgt (cadr old_scale))$ h- q0 @1 W: `: W" ^
new_wid (/ old_wid (/ (car old_scale) (cadr old_scale)))' u& h6 D6 T0 h, q
)+ t F, \1 w) ^7 C2 L
; ...and then rescaling.% ~9 A" U* F4 R& ^6 H
(setq new_hgt (* new_hgt yscale)% U3 @' N# l5 N
new_wid (* new_wid (/ xscale yscale))! ?. f8 L; X$ P# M) w
)
0 V3 Y. k9 P u; @- h2 W) c
(if (/= new_hgt old_hgt)0 w2 U8 E* Q, u/ c( H/ k3 g
(setq el (subst (cons 40 new_hgt) (assoc 40 el) el))
8 |, z( K! ~ V2 r) `% t/ p1 V+ _6 Y
)7 r8 a6 Z9 w! p4 |& f0 D9 Z) f( R
(if (/= new_wid old_wid)" X8 z E. _# L0 Z
(setq el (subst (cons 41 new_wid) (assoc 41 el) el))
3 J+ k# v& D! ^. w9 {
)1 P2 I. ]) D- E! R2 }
(entmod el)3 U8 b& P7 e+ s5 _; I) H! x
(setq attr T ; At least one Attribute modified7 `5 E# k+ U8 K
en2 (entnext en2) ; Next Attribute
0 B% ~( \/ Y1 f& X: p, K
)
5 F0 _: x) c! ]% _( n7 J1 j- H* b; q
)
, |2 G5 b+ ~+ V& f
(setq en2 nil) ; No more attributes
S v8 B5 ?4 s. H1 O5 q" `. L2 x
)
* g- [2 g9 G+ J; M) r
)) n% d# c' u' `6 V5 {8 j6 w7 r" u
)
; G( C7 p9 H6 R6 V( F) D
)
* w! e7 x8 z0 J: k! X
6 j. A- v5 o% h. C) c/ ~, z# ^0 O
(setq pt1 (list x1 y1 z1))) T- F/ f' l# ?8 V! w0 u3 @3 c
(tempmod xscale 41 nil)$ n3 b8 x9 E/ X! G) e5 v
(tempmod yscale 42 nil)
* t- ?% G0 z( v Y
(tempmod zscale 43 nil)
: @# ], U" J3 G. T' g( y+ ?5 P
(tempmod col-sp 44 nil)
7 ~) b7 t. ~/ C" v& z, ^; @
(tempmod row-sp 45 nil)
% m2 G; @; e2 l( S/ @8 }% B
(tempmod columns 70 nil)/ H8 L6 y2 d& C0 {3 m7 B
(tempmod rows 71 nil)
. k+ F8 F1 ?: V0 m8 m0 e" i1 d) k
(if (= xclipmode nil)
(entmod elist)- N- p3 Q1 H& `9 J1 M
(setq xclipmode nil)
( L0 K0 r/ J8 V5 x
)& t6 v1 I; j5 S- a4 i
(move_pt1 1)4 s$ @; U) J( H3 o) a: E
6 Q/ a' w3 |; z% {4 l
;; Now do the rotation with the ROTATE command.
1 Z9 e. Z1 s g' j Z; u, r
(if (/= old_rot rot)
5 n9 X; u' y( ]2 a9 d# M, ^
(command "_rotate" ename "" pt1 (ai_angtos (- rot old_rot)))( u0 U' J: w- _, U
(if attr ; Else, if attributes were modified,
) G; N5 d4 p5 L ^$ I0 e
(entupd ename) ; just regen to force attrib display
c; y2 a2 K$ E* G. s& B
)
1 ` [. d: r: l# Q( @3 `
)
+ y5 i6 b, v, u& k
(setq elist (entget ename))
. } o' g4 Y; ?3 W% D, ~
)
9 G$ ~4 d. P/ w3 Q; Y
(defun ddblock (/ temp temp_xclip newhatch blkname blklist blktype program xrefpath)
* u+ j- N) W& D
(setq newhatch 0)
8 V0 E/ L, n+ R4 P% C5 j
(setq blkname (cdr (assoc 2 elist)))( w6 J d. N) s3 Z2 y
(setq blklist (tblsearch "block" blkname))
! R, k" a/ w$ C, Z9 ] |: |) `
(setq blktype (cdr (assoc 70 blklist)))5 ` W" ~4 `& P$ D- f
(setq xcliponoff 0)5 i1 U0 m% _. {8 |0 k2 t% U1 v
(if (or (= blktype 0)(= blktype 36))
: R8 n1 C8 c& F6 e0 a. X
(progn
' [2 [! i6 ]* M3 t
(setq xcliponoff (xclipon elist))
5 H- O6 ?0 Q4 t( R% [$ ?7 @
(setq temp_xclip xcliponoff). c5 z1 \" Z" g8 i
)8 f! c Y# r m+ h
)" S3 t4 I3 n2 i. F' d, p
(if (= (logand blktype 4) 4)
# J8 A9 F' [) \7 P# P1 s) O8 f2 P$ _
(progn- a: i" e7 E6 l+ J+ k
(setq xrefpath (cdr (assoc 1 blklist)))
6 K3 R9 `7 ^& X* D3 u
(setq help_entry "modify_External_Reference_dialog")& L8 f# | a! v1 @6 _
(if (not (new_dialog "ddxref" dcl_id)) (exit))
/ g% [- V7 H. ~
(set_tile "Bl_name" blkname)
& ?3 B8 I, w9 O
(set_tile "path" xrefpath)
; H4 H- z) S, q3 T" n! t0 J
)3 x8 {( @$ p# v# L
(progn1 R' D+ R, B( i) \7 r
;; Get program name for use as Xdata app name
( u# |6 E* Z, z4 k' K6 Z
(if (not (setq program (getvar "program")))
4 e& H/ W; o" ~
(setq program "acad")9 C1 ?# `# W+ K) J4 V! m
)
. p: I9 b0 ?8 a2 B" y8 H
(if (and (setq temp (assoc -3 (entget ename (list program))))
+ `5 T( w9 j" p9 D [" z
(= (cdr (assoc 1000 (cdadr temp))) "HATCH")
3 X0 |" ]/ I. i6 r9 g( Y# v+ \
(assoc 1005 (cdadr temp)); t. K7 `% Y' E3 O: O4 P
)
4 V" g) f1 G ?
(progn
6 u3 H' g; R% M. Z* w: O5 C
(setq newhatch 1)" }1 Y, H) t( O2 `+ `/ G
(setq help_entry "modify_Hatch_dialog")6 k6 |- B1 x0 }( A9 `$ N/ r
;;; convert the object into a new hatch
- K# G9 [7 q1 a
(ai_undo_on) ;; enable undo
9 {' H4 y6 x: {2 Z2 w* U% H
(COMMAND "_.UNDO" "_Mark")
1 l$ \8 {1 n! M. |% l/ D9 t' d
(COMMAND "_.CONVERT" "_Hatch" "_Select" (cdr (assoc -1 elist)) "")5 { T3 u1 p7 L7 u; B
;;; suppress nasty message from convert command
; O& }4 A" D1 r6 _& ~9 x5 p
(princ "\r \r")
. i% F/ Y3 }$ |8 k
(setq elist (entget (setq ename (cdr (assoc -1 elist)))))! m6 ?3 o7 W% @: J% n* t
(setq old-elist elist)
" E& i, X; N, u3 k7 L
;;; If we have cancelled ddmodify7 G6 P( W1 X, F6 u1 G7 f, h: m7 f
(if (not (ddnewhatch)) ;;; (ddnewhatch) returns nil for Cancel or T for Ok6 J4 G& @. Z1 r* p5 @7 T' n( f: F# o
(command "_.UNDO" "_Back"): ^/ h" v* V- D. [; i6 H
)- M" E( X% y: t
(ai_undo_off) ;; restore undo state" m* _( G5 p* s) e
)
( g1 E0 R0 ` Z
(progn
2 U9 [8 D( Y- M. T" H, G
(if (not (new_dialog "ddblock" dcl_id)) (exit))- K9 W8 C6 M+ y0 ?: `% H" r
(if ( = "*" (substr blkname 1 1))
8 A# v3 }. o8 v3 p; T7 R6 P! @ {
(set_tile "Bl_name" (strcat blkname " - Anonymous block"))
$ @* `9 O) N0 h) p# h. v
(set_tile "Bl_name" blkname)8 T: g: p8 l& ^# X6 N$ \
) N) ^* P, `, t
(setq help_entry "modify_Block_Insertion_dialog")& j0 q; r! W, m% @+ z
)
. Z! K. v) m. e8 ?5 M9 x
)3 p( E5 A7 ^+ D
)7 x6 o) N' q G5 J
)$ k1 ^- w. D) F* }/ n
(if (= newhatch 0)
v$ X$ j& u) u T
(progn
% T0 ~6 e! V+ x! @; i
(set_tile_props)4 L9 J6 Z; [: N( K; q4 J
(set_tile_handle)
1 G, H; F& L2 N/ l8 k L
(set_tile_pt1 1)
4 |# F5 g' w/ b9 Z' f4 I2 H. L
(set_tile_rot)
4 P$ ] S0 S' O; H
(set_tile_scale)
. c0 W, w2 L9 j# K5 d4 e
(set_tile_rc)' s3 T" i6 p* [
(if (= (logand blktype 1) 1): l7 \# ^! g+ `% i. d
(progn
6 S& E. g7 n6 N0 j# C7 S) J
(mode_tile "xscale" 1)# e, W: k- ]. C$ z' u# H" s
(mode_tile "yscale" 1)7 F6 W$ O0 z& F5 _4 v4 }! ]
(mode_tile "zscale" 1)8 c* U6 R! u$ P% X* P) U5 p
(mode_tile "rot" 1)
; s* `4 J( o3 _- ?# f" x5 Q/ ~% y
(mode_tile "columns" 1)
- L4 F3 w; _- F' }
(mode_tile "rows" 1)) H! T$ G# s/ d, x
(mode_tile "col_sp" 1)
, S/ {7 j8 a6 \: f$ d& V) T" }, `) v" [
(mode_tile "row_sp" 1)7 b/ h8 |3 W' [* L$ l
), @+ J- f9 m _4 `" [
)% P/ F2 y& @+ |/ {4 B# f
;; Define action for tiles
9 z3 {8 y8 M# W8 |4 b
(set_action_tiles)
: a$ q, D! J$ x$ ^1 h( Z3 S8 }0 b
(setq dialog-state (start_dialog))
+ w# M8 G1 A; E2 Z! Y& v: b
(cond4 Z4 [- S4 d: X7 C
( (eq dialog-state 0)5 W& m! B( @1 v% k+ I$ o
(setq pt1 (trans (cdr (assoc 10 old-elist)) ename 1))- {6 J; }7 u" {
(move_pt1 1)4 ^: u' y5 F2 m- ~8 b! T
(reset))
- Q4 M, q$ D+ |( z4 f
( (eq dialog-state 1)6 g8 M$ V' \! v6 ^4 l
(if (and (/= temp_xclip xcliponoff) (or (= blktype 0)(= blktype 36)))
3 `; g# G0 \2 A' ?" M, q, f5 t
(xclip)
! u- s! `3 e0 {
)
$ C, S" m L# }$ i
(modify_block)); G# I3 M i: Q4 `# X& X6 d' x5 f
( (eq dialog-state 3)
: P; U* B8 B) U& w
(modify_block)% p' i! n5 A3 {2 g1 F, g
(setq pt1 (getpoint (list x1 y1 z1) "\nInsertion point: "))
4 M# Y% C" k H, z/ T! p1 }
(move_pt1 1), X5 x! H& R( k/ J6 S5 Q8 u$ t' b
(ddblock))
( H4 t" q# E: O) I1 ~
( (eq dialog-state 4)5 a. q) ~. _* e, i- F Q. _; d
(modify_block)2 g) ?7 d% d2 Z5 `. e+ S/ s
;; Get current handle.0 t: F# \( m9 n) M Q
(setq hand (cdr (assoc 5 elist)))
* A i3 M4 M1 R! ?& ?+ U
(command "_hatchedit" ename)! |/ w/ W3 h6 [* X
;; If OK in hatchedit, a *new* entity is created and the old one
1 e0 a( N9 ~* r3 K C5 i- b1 V
;; is deleted. So if the old one exists, it must have been a
* ]' v+ D# _2 P7 F+ z" Z
;; so rest the entity.4 x$ h8 T7 i5 Y. J
(if (entget (handent hand)) (reset))6 D5 z$ x' d) S- K
)' x W. _0 S6 B8 I
)
. d0 F7 ~0 r0 k
)
& S2 d. I- |% Z9 a* D$ Z
). @6 s8 ^7 J2 c' v
)
" o% ]8 ]8 K+ V, ?9 V, H
;;4 x) W. |& m; B+ D T
;; Modify SHAPE' U$ u: X* N( G8 y2 g
;;
" ]: @, g9 `" o$ Z4 {
(defun modify_shape ()
/ h" ^5 a! j% \& m5 c# {* m
(modify_properties)8 J5 O3 w) f0 v3 F
(setq pt1 (list x1 y1 z1))
) G+ j, f' [% r' f
(tempmod pt1 10 1)
1 w3 q( h# D! c2 M }+ n/ r5 |- l
(tempmod hght 40 nil)
% e. o; l; p1 }4 g2 v
(tempmod wid 41 nil)
" ^' |0 p" p0 O: `
(tempmod rot 50 nil)
; v3 Z, K# R8 _
(tempmod obl 51 nil)
2 F4 G7 f$ W, H4 d
(entmod elist)
( l: l [& a6 O6 h/ l
)9 H2 C/ E% W- e# T( m
& a; C6 i9 F' g6 E
(defun ddshape ()7 k$ U4 }$ m* c- M+ z- i1 n: m
(if (not (new_dialog "ddshape" dcl_id)) (exit))( i8 S# y* k9 }+ |
(set_tile_props)2 o# V% v5 g R+ k- ?
(set_tile_handle)
% I4 s8 p0 p4 g" m% i
(set_tile_pt1 1); K$ V9 r5 |& @5 f% I1 D
(set_tile_rot)
+ U$ ~- l; D2 o% n+ j* R
(set_tile_hght)
% A$ O) h0 p) ^8 q. C1 t
(set_tile_wid)
* j0 E f& ] _1 u: W
(set_tile_obl)7 Q* ~+ p- \; {; i4 i* ?
(set_tile "sh_name" (cdr (assoc 2 elist)))4 p4 B6 ~/ s; W3 l/ Y, M
;; Define action for tiles3 t5 `: a* F9 T: Y$ N4 h& f) _
(set_action_tiles)' D7 t* B5 H. j& |+ R# m
(setq dialog-state (start_dialog))) K& d+ a0 E$ E3 s4 F
(if (= dialog-state 0)
( J: T; F" c2 a$ H
(reset)
' w; X6 h; _" e# n
)
$ N3 ^. L6 b& @- Z1 O- e1 G2 R
(if (= dialog-state 1)& p$ ]5 l* p: @+ b2 z* l, v
(modify_shape)/ G4 A, M5 C: W: }1 k0 F
)
0 y( k4 E# I$ G5 j* e
(if (= dialog-state 3)
6 S+ z1 W) W6 Y# x
(progn
+ y4 d+ I% I7 V& i
(modify_shape)3 V* v+ K7 k' _* u$ m3 L P
(setq pt1 (getpoint (list x1 y1 z1) "\nInsertion point: "))
, C* ~2 }7 t' E) T% j5 H R
(ver_pt1 1); [6 \4 D# K3 j* M. @
(ddshape)
. ], K! s7 l1 L1 U- K" n$ R
)
}0 A/ _- z1 [, R* A% x
)! F( i% w- w7 E/ e( h
)
9 { M* Z+ y' G" y- \
;;) I* c* O4 S% m( _8 `4 w
;; Modify TEXT or ATTDEF) J$ C0 H" N: D7 I+ X6 U$ X3 P8 S
;;
" `# z$ P t4 w& t$ K/ G
;; Set bit code for upside-down and backwards setting
' b2 r: Y! u" {3 q0 Y/ L
;;7 {- e" Y, R. Z. p
(defun code_71 ()1 ^3 [- g: `$ r$ C
(cond ((and (= bkwd "0") (= upsd "0")) 0)4 |& k6 w( \% x- H: i9 z' b& O
((and (= bkwd "1") (= upsd "0")) 2)
$ {) M* Y/ I6 f' B( x! B3 m! |
((and (= bkwd "0") (= upsd "1")) 4)
# F: B! h9 l. b% E, N: G1 J; J. Y, C
((and (= bkwd "1") (= upsd "1")) 6)
4 O# g5 o# o# O( k; s8 {! G
)
1 ?% O9 h5 X) c; ?5 P
)
' \- O% i- f- P1 O0 d% m
;;
, y* h) L( }- T1 y9 K4 E9 n
;; Style action. Reset widget values to style defaults% E4 r# O- t5 b. Q& i" q J
;;# ~% r/ M* S M' b, t- y: r
(defun style_act (index / style-list)9 @/ Y. x X+ _% |
(setq style-idx (atoi index))1 l: F# h) r$ b) s j
(setq tstyle (nth style-idx slist))
; ?) T/ I; V( K- U% A
(setq style-idx (itoa style-idx))5 ]6 D- O9 a- ]
(set_tile "style" style-idx)0 u' G J% v O$ r" D
(setq style-list (tblsearch "style" tstyle))' N' Q! _! j( a$ @+ S
(setq shght (cdr (assoc 40 style-list)))
}! x2 B& m" D' g T
(if (/= shght 0)
9 l+ u9 X' ~: @6 q9 \0 v
(progn
8 x* `+ S9 V0 L' |$ I9 X4 \* q
(setq hght shght)
+ D9 J7 c/ l# R! N0 T5 m/ o
(set_tile "hght" (ai_rtos hght))
; A) U. n. D+ m. n" P u7 I
)
9 Z2 S! H1 L( e8 ^& y2 q4 z
)
5 z4 T; }4 _- _9 I
(setq wid (cdr (assoc 41 style-list)))
3 C/ @2 l; G6 e/ ^" G4 Y4 F
(set_tile "wid" (ai_rtos wid))
6 ^- f! N6 t" \! j9 ?) _7 X- w4 D
(setq obl (cdr (assoc 50 style-list)))
# {, P9 A# k/ H% ~
(set_tile "obl" (ai_angtos obl))
: ]$ J' o2 }8 T
(setq bk-up (cdr (assoc 71 style-list)))
* j7 ^6 D/ t) ^+ M
(if (= (logand bk-up 2) 2)( M* x: Z6 k$ b5 Q! l! o# j0 V
(set_tile "bkwd" (itoa (setq bkwd 1))); ^1 @8 B9 J: C, ^7 j
(set_tile "bkwd" (itoa (setq bkwd 0)))2 q; I5 j7 v9 Z/ W6 o R, T8 W+ P
)" z# q2 N; G9 E6 v
(if (= (logand bk-up 4) 4)
# h Y: v0 C Z& I" T' @: ^
(set_tile "upsd" (itoa (setq upsd 1)))$ u( g2 i o. Y5 k. p
(set_tile "upsd" (itoa (setq upsd 0)))
: U2 D5 A/ T: c
)
c+ a+ W* L" Q" F% C- i' Q5 k2 @
)
h% q' t! P1 m; K) w
;;9 K/ v- C7 [% r7 K
;; Justification action. Set vertical and horizontal alignment variables,- i# S5 W! [6 |7 {, ]
;; grey out rotation and height if alignment = "aligned", grey out rotation- |- a4 W- w. \: r& L5 w
;; if alignment = "fit"." Q/ Y Z4 m& h" s! S, @
;;; y7 |1 Y0 @, J, q& ^
(defun jlist_act (index / templist)
& }- F9 k1 E: h
(setq just-idx (atoi index))( q" L `9 H9 |4 \, V
(cond
3 Q, V3 M' |6 p2 y
((= just-idx 0) (setq va 0 ha 0))
/ m4 Y/ \$ f( D! _6 s% V3 m4 @* @
((= just-idx 1) (setq va 0 ha 1))
, ^! h: q$ m: m( J1 ^! ]8 m6 h
((= just-idx 2) (setq va 0 ha 2))! y6 a+ h8 R( } p
((= just-idx 3) (setq va 0 ha 3))
/ ]9 z/ J0 d1 Q
((= just-idx 4) (setq va 0 ha 4))
& X) n( b m+ g7 U% P
((= just-idx 5) (setq va 0 ha 5))
" ?+ v' H3 B* d' I8 H9 R* t
((= just-idx 6) (setq va 3 ha 0))3 R9 v9 `7 `9 J8 O
((= just-idx 7) (setq va 3 ha 1))3 M8 L7 y% P3 q. {1 ?
((= just-idx 8) (setq va 3 ha 2)). y/ b: E$ a& i
((= just-idx 9) (setq va 2 ha 0))
9 ^# P! M3 ]: x6 L
((= just-idx 10) (setq va 2 ha 1))
0 D) S/ n) s- {6 x6 w7 q3 C+ e$ l( U
((= just-idx 11) (setq va 2 ha 2))
5 }( O7 {4 z2 N' x: W) G; s0 |
((= just-idx 12) (setq va 1 ha 0))
3 W/ B; y+ T1 A: m- q, o
((= just-idx 13) (setq va 1 ha 1))
7 }6 |" u, j2 D3 W$ t1 ~0 W
((= just-idx 14) (setq va 1 ha 2))% y0 v) L! k: O( G9 |, u
)0 Y: e& T) _9 \1 k# }1 M
(if (or (= ha 3) (= ha 5)) ; If Aligned or Fit text: Z& }3 C7 a: w3 X. ]: H0 d/ u
(mode_tile "rot" 1)* \$ z" G3 l5 s5 i
(mode_tile "rot" 0)
& E$ r: v! T6 t
)
5 Q# r- ?; j4 P! n
(if (= ha 3) ; If Aligned text
0 m. j8 m& V. Q I0 _9 S
(mode_tile "hght" 1)5 ~- {; m, S' y1 p+ v# G- V
(mode_tile "hght" 0)
) v" Y/ a+ i; \2 H* \
) N4 R, k7 R$ m x. E& [. c
(if (= ha 5) ; If Fit text
; ?) C' R0 }* s; n9 c
(mode_tile "wid" 1)
2 q, @* _. H6 ^3 r3 z- f% z3 b6 g
(mode_tile "wid" 0)# O% g+ n8 K; e. G$ I7 L+ v. X; ?
)
( G& ?6 |2 Z4 \8 r/ D: }
;; Reset rotation and height if changing from aligned.
4 t8 ?3 ^; K; _
(if (and (= ha-prev 3) (/= ha 3))
+ Q4 K/ w5 B6 x) E& j4 o7 v
(progn
. E- Q9 ~) d; D! ]; P9 `
(set_tile "rot" (ai_angtos (setq rot 0.0)))3 j" y' O' ^: ~" b
(set_tile "hght" (ai_rtos (setq hght 1.0)))& A: e; `1 ~% p7 y v
)
9 @4 n+ b1 ?6 i$ W3 d$ A
)
! }& y5 g" H! s1 [
. c9 \( ^. H0 i9 S
;; Reset rotation and width if changing from fit.
$ D; v* I4 c# y
(if (and (= ha-prev 5) (/= ha 5))
/ H) p' m# u( x _" P8 m; b
(progn
5 N0 ?) ^, Q6 Z
(set_tile "rot" (ai_angtos (setq rot 0.0))); C" ?( d' R3 r
(set_tile "wid" (ai_rtos (setq wid 1.0)))1 j/ {8 _4 B# V) d
)
/ l) k/ a. y v5 ^- l
)
0 X9 A0 r- P( |& \7 p
" I: I' B+ ^1 Z
(setq ha-prev ha) ; update ha-prev for next time# J1 q+ B3 ^* S H6 u+ ~, L% j A
(setq just-idx (itoa just-idx))
0 Y& T( c8 i! I
)& f) }* U9 U4 H, ?7 R0 L+ D* A4 S
;;; P0 e! f: I3 \3 k
;; Set intitial alignment setting based on vertical and horizontal alignment
3 {& L) q6 y0 m- z; H
;; bit codes.+ L7 z: _4 m$ S6 b/ a# N+ Y% Q* i/ X @
;;
7 s8 b4 t# L4 _8 Q4 v/ r# y* L
(defun set_just_idx ()
1 i9 y/ J! \- Z% L
(cond
( x( I. I. u" ^" y9 z0 L6 m
((= ha 0) ; Horiz alignment = Left
: S! x1 S* H0 v+ W# m2 \8 K$ x
(cond
( e+ `9 b3 i: w6 T- b! w2 I8 \
((= va 0) (setq just-idx "0"))
+ q% x# Y, r. c5 @, m/ f2 G" _: _
((= va 1) (setq just-idx "12"))
/ L$ t( [1 O+ ?
((= va 2) (setq just-idx "9"))
+ \9 E8 ~, N, g
((= va 3) (setq just-idx "6"))$ X; f9 v7 i4 f3 N8 Z! M& T2 }* D
)
7 Q9 i; O+ X8 G# H4 I
)
2 }$ u4 ^$ }5 A% D- ]
((= ha 1) ; Horiz alignment = Center+ n Y& Q( L( E& q; ?' Q% A
(cond, T" c9 d3 T$ K) B) A/ X) G
((= va 0) (setq just-idx "1"))
( s7 O( @2 E# H% d4 A
((= va 1) (setq just-idx "13"))- L9 i9 ] B q' [7 r; T
((= va 2) (setq just-idx "10"))6 _8 t1 B; T% _- b! r+ d/ M
((= va 3) (setq just-idx "7"))
4 O' V+ G0 {& _( X* C. y/ N
)
2 z# F* x" w, k% z6 Q' e6 T4 ~& P* f
); ~* U+ W& ]4 B+ f/ H5 n: Y$ Y
((= ha 2) ; Horiz alignment = Right
, j" u; M+ z0 J
(cond- i/ y2 A; C9 o. f7 O5 s4 G
((= va 0) (setq just-idx "2"))+ [; g- L3 U2 Y( ? j0 g% d1 E
((= va 1) (setq just-idx "14"))
4 }, \2 L4 |6 b1 ]# S/ Z9 }
((= va 2) (setq just-idx "11"))* R$ P; J, [( g% x S4 W
((= va 3) (setq just-idx "8"))
$ q. R' o- Z( J( B& H: b
)5 [6 V, z( t# V1 V- G2 ?: l% v
)
) I0 E& m) v" ^* V
((= ha 3) (setq just-idx "3")) ; Aligned4 w4 F) r: s+ r; C- ?
((= ha 4) (setq just-idx "4")) ; Middle+ G9 V5 N, z) a7 @2 [: i
((= ha 5) (setq just-idx "5")) ; Fit! f/ K' b# X: q
(T (setq just-idx "0"))' v6 x% S1 m" @/ g7 h1 V% Z
)( C' P/ {9 g0 W9 ^$ V, F' Q9 m
just-idx
/ g) Y" D: _& T, X0 k/ J
)
7 t e; H' c# t+ G3 \
. Q) Q7 _9 ~& Z4 t
(defun modify_text ()
, x1 H) u9 H3 M1 j* b
;; insertion point) M+ C" u- p, g+ s
(setq showpt (list x1 y1 z1))1 i9 @) S. ?2 ^0 t; j/ M( f
(setq bit-10 (trans showpt 1 ename))8 e* W- ~8 S$ }
;; alignment point9 l( v9 V* s; w" e
;; for 'Aligned' or 'Fit', alignment point must be different8 C) v, h) g7 Y9 X3 k8 ~
;; for all others, use insertion point+ R( h; f% R. g+ z; d6 v1 l& F
;; (ACAD will recompute insertion point); q4 W+ k( q; Y
(if (or (= ha 3) (= ha 5))* b3 O# S& ^. F+ x' l9 c% G
(progn
, ?: l d& |6 t/ `/ k4 X2 d
;; if no alignment point, fabricate one
+ M( ~ @8 J- o5 p3 t4 {2 H$ ^
(if (not alipt)$ A" A, e0 G6 M; ^3 w
;; add text width to insertion point9 _" o4 m' s b( `- r" S1 v$ C
(setq alipt
! D! J" x9 r1 i) N
(list (+ (car showpt) (car (cadr (textbox elist))))9 J% G) K E7 s% y% j0 H6 F
(cadr showpt)# G: s) c' M9 R; t9 x: C' C8 A
(caddr showpt)- s8 l) h# X- D* B
)
: ^1 x6 B4 S. n* p
)
& L. Q% c3 D: } W
)- u2 t% p! ~8 x9 H
(setq bit-11 (trans alipt 1 ename))4 P4 T( O, I# e# D" [. o
). c9 A( g. L9 t9 a
(setq bit-11 bit-10)
& c! z9 ^: I7 z2 w- {" N
)! j* X0 d7 V& e
(modify_properties)
: Q. q3 g7 E/ K: t" L, ~
(tempmod tstyle 7 nil)* v+ h" n3 J6 [; j5 [! I; u
(tempmod bit-10 10 nil)% t( M2 T0 {. t$ J; A
(tempmod bit-11 11 nil)+ }* n K: ~8 H
(tempmod text 1 nil)) E: z" H+ Y1 j, }. ^: L k
(tempmod hght 40 nil)) T8 ]0 O" Y; t9 x
(tempmod wid 41 nil)
( V4 j' n+ \9 h2 F- u
(tempmod rot 50 nil)
6 X+ Z/ g d6 E: p! E5 D! r
(tempmod obl 51 nil)
% `& j" Q1 w2 [7 }% `, L
(setq bk-up (+ (* bkwd 2) (* upsd 4)))+ b& T) r5 T+ `2 W( u: V
(tempmod bk-up 71 nil)) X. C; O8 I- S# R5 W8 l
(tempmod ha 72 nil)) e% o6 @4 l' L- c1 T5 j. m
;; Attdefs use 74, text 73# f2 u8 r* q) b5 \/ ~' b
(if (= etype "ATTDEF")& n+ t- [1 Q4 ?
(progn
6 b, v7 F' a8 N8 I" E1 Y
(tempmod attag 2 nil)3 B1 h( G: b5 W7 d" K
(tempmod atprompt 3 nil): V! P. l9 E2 J8 Q
(setq icvp (+ inv (* 2 con) (* 4 vfy) (* 8 pre)))
/ O/ i7 j2 C, v# ^- s
(tempmod icvp 70 nil)
2 E. D+ Z$ X' w( F2 s
(tempmod va 74 nil)
: @+ X" s; i5 ^' `. v! J) M
)' Y4 J: O3 T$ m
(tempmod va 73 nil)1 p* }1 `( o& }8 z1 S
)2 I0 v" U; j; _* Z& D- ?+ G
(entmod elist)
* |& z4 C% z; W4 d% l: a. T
)
# c5 t8 {! J# {0 y" W
4 {/ h( k7 e7 z3 ^! X' ]8 f
(defun ddtext (/ 2ndpt slist i)
) a2 C" O5 D4 }! P+ Q7 _& Q
(if (= etype "TEXT")
+ l' c) L* X" l8 V, I$ m2 u. V
(if (not (new_dialog "ddtext" dcl_id)) (exit))$ k- n5 ]7 J' T! w) G: D K8 F
(if (not (new_dialog "ddattdef" dcl_id)) (exit))
( y1 i" J* |/ ^6 `- T/ s7 r& V
). p4 c) _, |9 H; }9 U0 ]
(set_tile_props)
7 Q. o7 N0 I( A [
(set_tile_handle)
9 ^; i; T) t; ]3 L) `
(set_tile_text)1 T8 a! s* x7 M Y/ H% ?
(set_tile_tag)
# q7 G5 t, ^6 q
(set_tile_prompt)
; L4 P/ B, p$ \5 r
(set_tile_hght)" q) Y! d( Q: w8 ?
(set_tile_wid)5 x) R& `# a9 S! g! ^( e
(set_tile_rot)
$ _: g7 u4 j/ I
(set_tile_obl)& K7 d( o8 a% J' m" |# o
(set_tile_bk-up)4 Q: ~, ?4 o' w( L# l' Y
(set_tile_icvp)6 S. E0 p) ?4 i/ j I \5 K
(set_tile_style)) {* K: w1 s! _6 m1 W4 H& e1 ^
(set_tile_just)- C8 A& `& [- t' B% S9 K* ]
(setq pt1 (trans (cdr (assoc 10 elist)) ename 1))
1 t7 r8 B1 p+ h. K7 u4 x$ f3 \
(if (not (assoc 11 elist))
! g2 a |/ r% W, H
(progn (setq pt2 pt1)
; G* h$ J# @" u& h/ X8 W; s
(setq elist (cons (cons '11 (cdr (assoc 10 elist))) elist ))) `% u( P" V0 [
)
;;(trans '(0.0 0.0 0.0) ename 1))) U" W" [) I6 b+ r7 [6 z
(setq pt2 (trans (cdr (assoc 11 elist)) ename 1))2 y3 Z0 o0 p1 `% _6 @9 Z* l3 K
)
" L- G0 W( C1 j0 ~
(if (or (and (= ha 0) (= va 0))1 f) B5 ?0 l9 j; I
(= ha 3)
* C! ?) i( b6 m2 Q
(= ha 5). U% s* n) v& W
) S" w- O& f" A, Q9 M
(setq showpt pt1)
. _7 C% L' d: O! v, x" U0 v2 }
(setq showpt pt2)# ~* p( f" _1 E: L8 `* k, Y% X0 J, E
)) Q Y6 C. Q! Z1 C2 p5 J
(if (or (= ha 3) (= ha 5))
3 U4 I$ w/ X' x0 ?2 H
(setq alipt pt2). B' f: p$ p: X5 ]% }: w | S
(setq alipt nil). t K& [0 X( [8 b) z! S- K; r! q
)
+ \2 v; i8 @; ^$ z
/ \ l( f9 ^" s1 O; o; y. V
(set_tile "x1_pt" (ai_rtos (setq x1 (car showpt))))
# ~8 {9 _5 }; n$ k
(set_tile "y1_pt" (ai_rtos (setq y1 (cadr showpt))))# W- n9 \/ n* x
(set_tile "z1_pt" (ai_rtos (setq z1 (caddr showpt))))9 Q- r! T, [# K9 w# T, `
: ` h9 |$ o' Z/ I( m5 W
;; Define action for tiles* J! ?* s- N! C, B
(set_action_tiles)9 l! } B4 k0 s \9 T2 R3 \
;; Set focus initially to the text edit box.
c. q! E+ N, v/ i. G0 [( x4 G0 O( E
(if (not i) (progn (mode_tile "t_string" 2)(setq i 1)))
( F. ]& Q8 W8 \9 Q
(setq dialog-state (start_dialog))6 S* x" Z2 l- Y7 u2 h; O- O
(if (= dialog-state 0)
3 l1 L: ?: n# ~- d5 R/ J( E
(reset)
+ @) q4 t% j2 G6 j9 V, c
)- e1 k+ N. d* ]3 ^" N
(if (= dialog-state 1)
4 B1 c, v* T2 ]- {
(modify_text)" W X, E, ]+ A' g
)
. d6 Z( x" v; J8 T9 s4 b; c
(if (= dialog-state 3)
; f- T$ t7 n, F4 D3 a4 |; i
(progn o. x3 W9 C5 R/ F' h' Q4 q' G A* O
(modify_text)
: }6 K* r* q* x% g! O: j' M
(if (or (= ha 3) (= ha 5)), @, \; \, O' J. L0 ]7 [( T, E
(progn
! Q& s$ [$ G$ |
(setq showpt (getpoint (list x1 y1 z1) "\nFirst point: "))
0 n b7 @* Y. w5 x0 C
(if (not showpt)5 Y' }/ o: i8 R5 j/ a" o. ^% A
(setq showpt (list x1 y1 z1))
7 \2 x* [5 s$ D
)
! C {. F* p. H3 m, i% r
(setq 2ndpt (getpoint showpt "\nSecond point: "))7 U: N! C7 B4 o! k. Z* |% |" ~2 H
(if 2ndpt
% Z, e; W8 W, |5 j7 U( k# @
(progn1 F! \8 P* x! U+ L1 `* e
(setq alipt 2ndpt)
$ c5 z9 r- ?/ m/ C
(tempmod showpt 10 1)
/ t# k* L! ?3 i5 e/ D
(tempmod alipt 11 1)3 ^0 _) d Z% M% v/ v' ~
(entmod elist)
* A! f! Q6 ~9 F9 k' N6 }
)% `5 z1 C. R* |5 u( x v
)/ K9 F2 J N' Y# }
(setq elist (entget ename))( v0 n& f5 U* c7 t: C8 R
) w0 q C! |" C7 l# w
(progn
! n8 \. T& w$ o
(setq showpt (getpoint (list x1 y1 z1) "\nInsertion point: "))
. L A" y0 S, Q" ~6 p
(if showpt
; ^, t: |, L4 N$ V- y
(progn! O3 {1 q; H" E, @
(if (and (= ha 0) (= va 0)): Q8 Y3 X& L1 A+ y3 n9 a8 I
(tempmod showpt 10 1)
. T) b/ t( J3 }
(tempmod showpt 11 1)
! T8 t8 m2 a( I6 R. n+ w
)7 }8 Q# P7 _& b" Y2 U
(entmod elist)
; `3 b, W9 W$ K2 [ o9 z! M
)! i, w9 [) Z* n% L- m
(setq showpt (list x1 y1 z1))
8 Y S+ s$ u( |7 @
)/ I7 F+ }1 ^# J( z- P0 g+ i8 v) M
)
), H/ C6 n6 D( h O% s. W
(ddtext)1 ?; q$ b" E2 v/ R0 h% w5 h
), o& r: w, i; J, A& D
)
l; D% O9 m5 k( m O
)0 O" P5 ~% l7 p0 `4 h; L" Q( X
7 e4 r& Y. S- E& K- U0 U$ r+ ^
;; F( b, H; i I
;; Modify MTEXT2 e2 P# P& k$ w
;;
2 ~1 g; x, Z" a) w
(defun modify_mtext ()
9 @/ W; w9 b3 D; [
(modify_properties)
) `3 c9 K4 v1 C' U) {
(setq pt1 (list x1 y1 z1))
n. [* Y( l, h
(tempmod pt1 10 0): G6 D* ?) T8 U- z2 f$ D2 c
(tempmod text 1 nil)
9 B2 N* |6 e, h. t; G0 U
(tempmod tstyle 7 nil)8 V" T! X* C+ h9 P" ]4 w% R
(tempmod just-idx 71 nil)
- u ^$ v8 D5 n5 Y6 J
(cond
, v, P4 }3 Q8 l5 R4 U6 ?* Y `' I
((= dir-idx 0) (setq dir-idx 1))
0 O$ l3 `/ V5 \3 `
((= dir-idx 1) (setq dir-idx 3))
1 t' A- j) h. M. q' q3 Q
((= dir-idx 2) (setq dir-idx 5))
: m) q% D! R9 ] g0 P2 F1 L/ j* B
(T (setq dir-idx 1))4 s2 d% Y& {6 p; a0 a' `( N4 {
)
# r; u1 D/ m/ k- U! c, R% T
(tempmod dir-idx 72 nil)3 Q7 A$ _8 \5 ]% x& S; D6 S
(tempmod hght 40 nil)& L+ y" X5 ~5 S Y7 U$ i! f5 u( n
(tempmod wid 41 nil)! g" {1 `, @3 i) d& b
(tempmod rot 50 nil)
4 b( c* }8 N- e/ W6 q
(entmod elist)
# g! e6 }/ Y' p, w k; s
), h! j& _7 D: i9 i) o% } c
: d8 e8 K' f) ?2 w. V' Z8 ^
;; Set MText text style
; s% o" I- u5 R X
(defun MText_style (index / style-list)
d/ c9 ^) B& O
(setq style-idx (atoi index))7 D; Y2 _. @2 E1 n: H
(setq tstyle (nth style-idx slist))4 q! m" d7 t) T) _4 T2 L
(setq style-idx (itoa style-idx))
/ b, S( v5 b% |: l7 u6 n) Z( S
(set_tile "style" style-idx); O1 F' w; u1 C t/ F4 C
(setq style-list (tblsearch "style" tstyle)); w9 Y+ t2 ^' d \- a' K& {6 y
(setq shght (cdr (assoc 40 style-list)))* U& N5 i* L& E5 Y u4 y
(if (/= shght 0)8 ?8 }7 a3 K! G1 G; f' B) a
(progn, \8 l+ W3 e7 T4 y: a& q
(setq hght shght)
5 g* Z3 e: N" Y" E; G) n
(set_tile "hght" (ai_rtos hght)); U7 } S/ u7 B3 P1 W3 t
)
3 R! `, I O5 b8 ]- `6 |, y6 T# r8 C
)
7 b6 {1 ~: N% E8 b+ K& c, o
)
& }6 y$ {1 i- c
- B& k8 U- L9 }: ^. Z7 F4 ]$ m
;; Run DDEDIT on given entity, working around possible re-entrancy, [) I0 ?+ j' F ?, p
;; problems with MTEXTED$ ]; ~8 c5 z8 u9 i: b& \9 p8 x. m
(defun safe_ddedit (ename / orgMTextEd work)
& L/ {, O* a4 S' i
(setq orgMTextEd (getvar "MTEXTED"))7 o7 X3 {- T; ^' X& r: t& ?) P# o% ?7 t6 ?
(setq work orgMTextEd)' ~$ o7 O+ N' W/ Q9 ~6 T
(if (= ":" (substr work 1 1))
! @7 @/ n# h/ c& r8 g3 A s; i
(progn
4 W5 f7 m; c. u% E& o; H$ |: ?1 A
(while (and (< 0 (strlen work)) (/= "#" (substr work 1 1)))
* I$ @/ D7 q2 r7 x9 ^$ y7 s
(setq work (substr work 2))
- O0 ^+ R/ N$ x4 x0 I
)
5 ?: `% o) x; q+ [
(if (= "#" (substr work 1 1))
/ f. B: W) x6 X: p. p2 U- ?' ~% S
(setq work (substr work 2))
- p7 c% [; \; ]1 L6 @
)
8 |/ N- w, z3 n; b! l# i
(setvar "MTEXTED" work)
! `4 a1 l1 K( Y: E0 w6 w& T
)0 p3 w" v/ V9 o* G
)
Y$ j* q3 V( o9 h1 j3 e" Z" o9 J- w
(verify_arxapp_loaded "acmted.arx") ;; make sure it's loaded...: f8 g/ y. U* G7 l( b
(command "_DDEDIT" ename "")1 Q* v, e# }0 z
(setvar "MTEXTED" orgMTextEd)
0 [6 ?! I3 \2 n
)2 f& v$ b4 N7 Z ]$ L" N
% ?; S9 j2 _1 W/ ]7 D1 `
;; Verify MText object width
: D8 N. R( I8 I* T9 o
(defun ver_MtextWidth (value): }5 E5 Q: B/ ]; X& M
(setq value (distof value))9 q0 s3 |6 z1 u) h6 D5 [# U$ Y6 m
(set_tile "MTextWidth" (ai_rtos value))
Z# [1 K K. j ^0 K
(set_tile "error" "")
6 t0 T( U! n2 |2 f5 H7 t9 d
(if (< value 0.0)7 n ]) K% q& c* k& h2 M2 ]
(set_tile "error" "Value must be zero or positive.")
% ^0 E3 |9 s9 d
(setq wid value)6 B: Y3 K+ z* T( T& r; z
)4 F; `' V! O/ |( m' Y2 O
)9 _" ?" p+ q6 a# S1 }& ^9 W2 Y: S6 R
* A4 f) Z5 k2 S m F9 M
(defun ddmtext ( / gc3)
$ W8 S+ }. Y6 W/ r5 H
;; Get dialog t; g# k1 ]) C7 S1 [5 o6 ]
(if (not (new_dialog "ddmtext" dcl_id)) (exit))
3 R3 U( }# n) A, h
8 F i( i5 m* R5 S {% v$ u
;; Load list boxes1 |3 C" H. w* {* D: N
(start_list "MTextJustify")
- x# m: ~) F/ M% t( w4 y
(mapcar 'add_list '(. h; Q! `% q: w% l; _4 I. A
"Top Left"
' A+ i; S$ r* Z8 J7 o) m
"Top Center"! }+ o1 Z8 @) ?; f
"Top Right"$ t9 |( V* R; z+ W: K* S5 U* B
"Middle Left"3 \# \1 q- \* w4 I0 I
"Middle Center") K; D+ u ^1 Z) Z" X
"Middle Right" O' p( @2 x) R
"Bottom Left"
% d: a$ C& w( ^6 f+ l
"Bottom Center"- G" x, Q D' U( ^) r6 o! G
"Bottom Right") J o6 _/ t9 M g) Y& `
)
3 ^* @* j# f7 C
): }- t( a! Q& t
(end_list)
7 {: ], e4 Z4 |4 s$ W+ v+ z2 d9 P
" k( F1 o ~2 |9 ^: n: R* t! A1 A
(start_list "MTextDirection")
. P8 U0 F4 g3 e6 |' B! E0 i
(mapcar 'add_list '(2 k: I, G) Z5 n- f: h# J
"Horizontal"
8 ~; J) I6 D: |& _* d& h0 U/ |9 N/ Z* F
"Vertical"8 `, x7 U7 [6 `7 W9 @2 r: M) Z4 |
"By Style"/ k6 [5 @* i! t0 @
)
+ a# }* c! Q% R
)9 L/ ~9 b' ]' V3 Y t
(end_list)
# o7 L" g4 q6 v& k4 @* j: p
4 O q7 u( T# m
;; Set initial tile values# i( h1 X( x1 u* E
(set_tile_props)
# \9 \3 G n1 V! a% p2 m
(set_tile_handle)1 T; p, G' s+ Y/ r) e- X
(set_tile_pt1 0)% S4 w5 A# N/ E1 d6 o+ ^1 c
(set_tile_style)# _- x. a; ?/ q' z% |, _% ?, v
(setq just-idx (cdr (assoc 71 elist))), g4 m+ q+ e# s, t0 @8 i9 u
(set_tile "MTextJustify" (itoa (1- just-idx)))1 d5 q9 t1 A5 I
(setq dir-idx (cdr (assoc 72 elist)))
! h' _" t8 ~9 Z0 a+ G/ ~
(cond7 U# a P" P z- r( b" H+ o% A- R6 A& h
((= dir-idx 1) (setq dir-idx 0))$ `7 R( A, v7 ^+ X, i$ c) i
((= dir-idx 2) (setq dir-idx 0))4 _4 n/ p- E+ G
((= dir-idx 3) (setq dir-idx 1))2 B. u4 Z& p: B0 |3 D; e2 Y" V# ]
((= dir-idx 4) (setq dir-idx 1))) D. [7 i7 G+ @: w3 _2 D
((= dir-idx 5) (setq dir-idx 2))* E0 w0 ?8 r6 H' k
(T (setq dir-idx 0))+ L* b |1 [0 M f( k: S* J
)) ?9 z9 l0 a1 }; l3 J# { f. ~$ a
(set_tile "MTextDirection" (itoa dir-idx))' p) W( ~! G8 T( W; ^
(set_tile "MTextWidth" (ai_rtos (setq wid (cdr (assoc 41 elist)))))
" B8 _/ v6 _/ h6 x+ M
(set_tile_hght)& p# s# m* ~2 k L# [, L
(set_tile_rot)
, b: n6 b4 B5 b; H: K8 p6 F
1 {2 i2 I0 b, K7 A8 H9 I: a
;; Set edit box, disable if too long
$ y8 I2 }6 v* O# W8 b0 l. U
(setq gc3 (cdr (assoc 3 elist))3 q& {' F9 S$ F' Y
text (cdr (assoc 1 elist)))
- ^# ?( Y- o& W- L( b2 j' |( X
(if gc3) P/ @1 g6 Z: ?. t$ d* k
(progn ;; Text is over 250 chars, disable edit tile
% H8 t: w6 d- i- `* D$ z( I
(set_tile "t_string" (strcat (substr gc3 1 25) " ..."))
* e2 Q$ Q, A( c$ @/ E6 h
(mode_tile "t_string" 1)& e1 B1 Y7 ~1 o7 [' }! B1 r- |3 x
)
" t' g* Q3 R7 N6 r2 a5 s- r+ g
(if (> (strlen text) 80)
8 G0 U- m. J6 I! t5 ?' l, V
(progn ;; Still too big' ^9 R# X! @; }( F
(set_tile "t_string" (strcat (substr text 1 25) " ..."))3 J' O$ B9 T( u3 b
(mode_tile "t_string" 1); N% F+ r7 b& V' e1 g$ x) y1 Q
)/ P J& n5 }! M; }( b4 o
(set_tile "t_string" text)
3 N' @4 A9 `: S A% z
)
3 [! `, x4 K% E$ K% H
)$ _$ W$ K$ c) J2 b
3 K! _3 H) L/ W1 r# u5 {0 |7 F
;; Define action for tiles( r9 m G/ E- Q' i& @# {
(set_action_tiles)
0 ?+ l- U# h! y5 A7 E8 `( r
(action_tile "style" "(MText_style $value)")% V# V0 J) D9 H8 m" D
(action_tile "MTextWidth" "(ver_MtextWidth $value)")( x7 G& l B( A
(action_tile "MTextEdit" "(done_dialog 4)")2 E. R6 C3 E; k# q- S
(action_tile "MTextJustify" "(setq just-idx (1+ (atoi $value)))")
7 U7 W0 b6 I% [5 P& k0 n% y
(action_tile "MTextDirection" "(setq dir-idx (atoi $value))")
6 N# z6 U& Z) W* @
4 [/ }8 ?( N# _) ?! m( D# b
;; Set initial focus to text edit box.
+ w8 J) g0 H, K6 Y a" A
(mode_tile "t_string" 2)
F( X( e. A, \% s
# |$ G) Q V+ O+ W8 w! C" e' N
;; Run the dialog
5 \* @8 J9 G7 x: @
(setq dialog-state (start_dialog))
; M" K, [; M, H) m* Y
(cond
/ O) C0 ~, K7 F* T: z [
;; Cancelled - restore saved data1 y2 n) K4 z( W; w: @
((= dialog-state 0) (reset))! i, m) j4 S$ u4 \. W+ Z
;; OK - save new data
9 `( f+ s8 s: n% q+ @! D
((= dialog-state 1) (modify_mtext))5 _/ X9 k& _1 ], C
;; Pick new insertion point' `+ i' B4 ~8 g7 c! |7 n3 u/ h
((= dialog-state 3)
1 m7 [% s$ [" J5 ~ g. ^
(modify_mtext)) E3 ]! T; s+ ^) ]/ P3 ]
(setq pt1 (getpoint (list x1 y1 z1) "\nNew Insertion Point: "))
7 Y' C, H9 B1 J& b8 q
(ver_pt1 0)
: T g0 l' {4 x1 q7 {. W
(ddmtext)2 Z- ?1 p T2 ?+ A& h( m. t
)
0 k$ t: [: [! Q& q8 ]
;; Run full editor7 c( h5 L6 k1 h c) ]
((= dialog-state 4)! C4 _3 t, O- p- }3 k
(modify_mtext)& v d; w0 p, @
(safe_ddedit ename). C" |2 c- U- I- {7 B
(setq elist (entget ename))
& W2 F. Z" F' g& n1 e( l- o
(ddmtext)4 ^ p# k# Y* m& ]- x8 }3 u, E
)
1 q. G9 E' i, z) p" f8 i, B
(T nil)
9 ]! F; o* ?: A% L. A- g0 v* q
)# P$ W/ Y1 H7 E% L
)
+ U9 u( |2 e* V: r' Z1 f/ A
+ ?7 C4 t2 j* a$ C3 d+ a
;;
: I' R1 y; p J$ O: P
;; Modify VIEWPORT, ~5 R0 b: w' z& b
;;
# u+ {" @1 }6 o' M& o
5 E# D3 }7 o' w. I8 B8 Q+ I( j$ T
(defun ddvport ()- Y+ g+ M/ s- e& m A+ s
(if (not (new_dialog "ddvport" dcl_id)) (exit))6 K# }% I. A o0 m- t a2 c2 \
(set_tile_props)9 B: L# O1 ~! `
(set_tile_handle)
, S; K! o1 J! B! d" D! ^* C; U
(setq vpt (cdr (assoc 10 elist)))
3 A+ p- C T7 t( @* g P
(set_tile "xtext" (rtos (setq x1 (car vpt))))2 N0 K" `4 A. \! y% m: i
(set_tile "ytext" (rtos (setq y1 (cadr vpt))))
$ f: `9 v- ]( g, d7 q
(set_tile "ztext" (rtos (setq z1 (caddr vpt))))
$ U! \5 Z* _) R) J
(setq wid (cdr (assoc 40 elist)))" k( E4 n) {4 w0 i& r* e+ K
(set_tile "wid" (rtos wid))3 C$ X( ^ S/ V- r4 e8 I( K
(setq hght (cdr (assoc 41 elist)))
n# N) ~* _% ^; c' Z, P, o1 {- N
(set_tile "hght" (rtos hght))
) ~& \3 N' O9 G$ x: d
(setq vpid (cdr (assoc 69 elist)))! ]& D& u- |- ^( G" ?2 Z. O7 ~& q, z
(set_tile "vpid" (itoa vpid))
: ?. B9 x! ?; J: ]6 P
(setq on-off (cdr (assoc 68 elist)))" F- x+ Z4 ?$ ] R* ~7 |6 v
(cond7 P, e! w5 C! h# R9 ~+ ^4 i
((= on-off 0) (set_tile "on-off" "OFF"))4 C0 B7 q, c4 L
((> on-off 0) (set_tile "on-off" "ON and Active"))
+ Q6 r. p9 n6 o! \" c. w* q
(T (set_tile "on-off" "ON and Inactive"))
( B8 \2 o, [7 G
)
* _. {% Y; F0 O) w( L, g
8 f5 G- p, Q0 X# X# h$ I% k* c
;; Define action for tiles4 K" P! O5 m5 p- V* o) @% e
(set_action_tiles)- }. w9 a' R( `% H( x
# P: N$ h" B& f1 \
(setq dialog-state (start_dialog))
) d+ e4 E6 D. |& y0 }/ q3 A" h
(if (= dialog-state 0)' R; \$ a3 \% k' u
(reset)* p6 o2 @2 [2 w! Q/ u' ^
)
7 H1 i2 `" T4 W" O
(if (= dialog-state 1)
! ?; T M1 |- p9 Q) p4 r3 e& P8 E
(progn
# b9 A/ ] `) q9 H+ O6 k/ ?* H" R
(if (= ecolor 0) (setq ecolor "BYBLOCK"))1 o5 B) `$ M: u/ W# o; _
(if (= ecolor 256) (setq ecolor "BYLAYER"))3 d& }7 i- p3 K# u9 B n
(command "_.chprop" ename "" x4 p% J0 j9 S& l
"_la" elayer
3 E/ K1 y! s1 Z0 Z
"_c" ecolor ""% E5 \; s, g& _: f0 O& M" J
)
8 g. J6 C$ X* f! r4 k# ^
)( m1 X6 T' }- j% O$ T
)
5 C6 c7 R+ ?# t! L$ a5 x5 b4 w
)/ `3 o1 C5 `+ m6 Q4 \5 s2 m
;;! K, r" K, ^1 R3 B
;; Modify POLYLINE4 z& h* q" X/ g& E
;;
& i6 V# o# z7 v" W8 X M: @- S
(defun modify_polyline ()
/ }' q' t, V; z' b
(modify_properties)2 t% p' }' C$ |( D
(if (= ltgen "1")
( _+ N* E1 C: L, C& a8 s
(if (/= (logand bit70 128) 128)
9 }) M5 q; h8 v- a" u; z
(setq bit70 (+ bit70 128))
4 ]2 V& i1 {! X$ B* M5 @
)
3 \$ j# _+ H/ \
)
+ ~, W/ Q' V9 x; i: y/ I
(if (= ltgen "0")1 q6 {& X/ q3 m
(if (= (logand bit70 128) 128)+ [/ o/ C$ e$ ?; Y, x
(setq bit70 (- bit70 128))7 n& {/ j* D% v' V! V
)1 b1 Q4 C5 ]- Y2 l
)! }# V! K5 P8 c. \, R/ k
(setq elist (subst (cons 70 bit70) (assoc 70 elist) elist))3 j. R d. y& X; g; K7 D0 a4 k
(entmod elist)1 a [! Q7 {- ]$ B! ?0 C' |
;; Added to take care of updating Vertex information for color
9 T$ T9 U' w7 y
;; and linetype./ ~3 N$ L- h* A1 W1 z
(setq save-ename ename save-elist elist)
( u N# m4 b& `+ S. z
(if (= (cdr (assoc 0 elist)) "LWPOLYLINE")
5 F/ |! W' ^) {4 u: l% |
(progn* j6 ~) A* l7 {/ J) r
(emod ecolor 62); T. I2 @1 t& v4 S
(emod eltype 6)
* h- V& l! c" {$ n! n, E
(emod eltscale 48)
! B! a% Y' W ?, I6 W# L( Z6 q! V
(entmod elist)
- w2 u! A$ q. w& y6 ~1 Z% f) R
)
- V* A' {# m/ `; y+ T: ~* ^$ j h( n
(progn3 Z$ r# r$ S; f# E
(setq ename (entnext save-ename))1 ?% l F0 v# `( d8 l' K" \# t2 ~
(setq elist (entget ename))
7 h- d# X) f4 f' R2 F
) S# i. {+ u$ o9 c
(while (not (= (cdr (assoc 0 elist)) "SEQEND"))9 y b& N1 Z* Z1 O, }
(emod ecolor 62)
; _/ O6 G/ D% t/ \7 l
(emod eltype 6)* N. R! `' W) v8 N
(emod eltscale 48)5 x3 m* n4 b1 I3 [
(entmod elist)' V& d4 P6 A& D# \
(setq ename (entnext ename))+ [ j# d6 a% s5 e
(setq elist (entget ename))
' h( L7 G1 b9 h# V4 ?; Q9 f
)
. C4 N/ f/ G" r b* U
)
& Z5 A( `% ~; E
)' g) i8 t& G) _% C
;; Update the SEQEND3 [4 x0 K/ Z. Q
(if (= (cdr (assoc 0 elist)) "SEQEND")0 Q, A& Q; b' Z/ c. i# T
(progn6 y7 u: u' W' Z! i0 K2 o. @4 N' e
(emod ecolor 62)
( W# p P0 ?4 V% E
(emod eltype 6)
5 P" h/ h- {9 L0 I- ?; q) l' F
(emod eltscale 48)
7 W+ w$ E9 E* P" s
(entmod elist)
3 Y+ M3 H5 W8 A& D2 w. t! C
)7 f# g6 `% ^- b6 `: |! s
)( `* r* F. m% h! ^2 V- L1 f
;; Go back to header.
# V* j- p. v" `5 ^" d* T/ n
(setq ename save-ename elist save-elist)$ L& l* m6 V; b/ X- \: [' ~) R
, D( `) j# `: h
(entupd ename)7 l O" T0 W$ `; h0 \/ R
)9 w) p6 }! e" Z) F
, |5 i8 E2 a# i$ G
;; Increment vertex. Set tile values to next vertex
& f# ^; w+ E. E
;;
( D- `8 b$ @" d2 u
(defun next_vertex ()2 T- @8 I0 Y* i8 O0 E
(if (= (cdr (assoc 0 vlist)) "LWPOLYLINE")& g' M, ?8 N# ~7 h2 }
(progn
( L" H/ U" K! u4 b5 P: V1 R F
;; If the counter reaches the number of vertices,
2 K5 A. ?( i5 l4 n) y- u
;; roll it over to zero again.
. @; e P/ B9 D" e
(if (= ctr (cdr (assoc 90 vlist)))
4 b& ?6 _. s q
(setq ctr 0)
4 s( n2 s* |# z& O0 k9 C# ]
)7 ]) b! T) _1 w
(set_tile "ctr" (itoa (setq ctr (+ 1 ctr))))1 U; g1 `) b9 O9 j
(set_tile_vpt pointype); s! p, _7 J$ [8 ]
)* ]( T, Z0 V/ ^& v
(progn
. L$ B: d! b2 d8 \. F( g$ B. B
(setq vname (entnext vname)) M2 C$ C9 _6 z9 X& x
(setq vlist (entget vname))
3 O2 E _: @/ M' U2 E
(if (= (cdr (assoc 0 vlist)) "VERTEX")
& a' E M* ]% t* J, k8 `8 j/ N) }! y
(progn( l G; P/ f$ a
(set_tile "ctr" (itoa (setq ctr (+ 1 ctr))))
2 f( s; Q5 {+ b9 i0 n4 B9 T% ^
(set_tile_vpt pointype)
$ g$ C% n$ Y: k/ z. e
)5 m/ e1 Z; C( l4 e/ u/ p
(progn" i* r3 g: i* q: ^9 p @
(setq vname (entnext ename))
3 w! J+ m' G4 c6 v e
(setq vlist (entget vname))0 j2 r( T$ k, ]6 `# i g7 u
(set_tile_vpt pointype)% n& ?, r, G" Q( K r& W4 C
(set_tile "ctr" (itoa (setq ctr 1)))
( }$ f* K$ e/ Z. @& O1 S
)/ n! l! m# }+ k
)
9 J; l# s6 x v; A3 p( ]
)
$ \: s7 S9 } s. t& I; F9 @; M
)1 @. q; a) d& u
)
% v& `2 S8 L* [8 ?. c6 a ?
; ]/ D G0 F& J/ T6 C
(defun ddpline (/ oldecho)
( L/ a/ \ o6 N6 ~" S. n
(if (not (new_dialog "ddpline" dcl_id)) (exit))
6 _8 d. z8 `4 \5 B# Z+ A8 o
(set_tile_props)* D7 n7 V: X- U+ e" a: @1 l2 v) {$ @
(set_tile_handle)
# ~ j2 {8 h; o' g6 d; {- L: T
(setq bit70 (cdr (assoc 70 elist)))3 n: T6 G6 B) E- |5 N k3 Y3 Y
(setq bit75 (cdr (assoc 75 elist)))
/ W8 I+ ]2 s- K# w
(cond
: R1 z' m2 L% a% C1 |1 ]( l) m
((= (logand bit70 8) 8) ; 3DPOLY6 z. G7 j7 g8 \+ d
(set_tile "ptype" (setq pltype "3D polyline"))6 d- k( s i4 e, z
(setq pointype 0) ; WCS or ECS point values/ h, {5 k" o0 ?; T! r; C( t
(mode_tile "fit" 1)
4 B8 J8 q( H4 X. A" v8 a
(mode_tile "mesh" 1)* r1 y: e# |% B9 ], J' S9 [5 B6 S
(mode_tile "bezier" 1)# J! p9 e% `1 W
(mode_tile "ltgen" 1)
. f1 K9 b* w$ x2 E3 T
(set_tile "none" "1"): g1 d9 }: c1 ~3 [- W8 ?6 i
(set_tile_closed)
) w" P5 w) l; z" ^& R
(set_tile_fitsmooth)
# f1 \( y3 O/ `% O" C
)
- k% x2 N: p4 W, @& c9 g, i
((= (logand bit70 16) 16) ; 3DMESH
1 ?* c4 u4 }6 U" R4 Y
(set_tile "ptype" (setq pltype "3D mesh"))
$ A A) ?$ ^1 h' p/ Z: @
(setq pointype 0)% G+ U) s) ~; ]7 q, N
(mode_tile "pline" 1)$ E7 w# R: v; i. d5 x1 R
(mode_tile "fit" 1)- Z" S) d I& }5 w
(mode_tile "ltgen" 1)
; a& h5 [' M3 i1 X- Z/ U, \
(setq m (1- (cdr (assoc 71 elist))))6 F+ G- ^4 s" R- m$ x
(setq n (1-(cdr (assoc 72 elist))))
) ~/ T4 e( q/ I3 i
(setq u (1- (cdr (assoc 73 elist))))+ J' e- q7 Y# F8 r
(if (< u 0) (setq u 0))
$ _' s$ y5 e/ D }! f% T# w
(setq v (1- (cdr (assoc 74 elist))))
+ B7 e) C ]6 P* k- ^* t$ r3 K: u
(if (< v 0) (setq v 0))
0 t8 v/ W$ H& c3 D2 d5 d' J7 X
(set_tile "m" (itoa m))5 f, W, d6 |2 P) j
(set_tile "n" (itoa n))
, R( z- E$ ^3 i* Y) L7 R b
(set_tile "u" (itoa u))
+ h9 h( N5 ^. W1 Q/ H. u* d
(set_tile "v" (itoa v))3 Y/ ^" w3 N" e/ k' I
(set_tile_closed)
/ D) a3 O' a+ G0 j6 _6 L
(set_tile_fitsmooth)' G4 s& m% v$ d' @; `
)0 i' ?8 j" @2 v U6 I
((= (logand bit70 64) 64) ; POLYFACE MESH$ e% t& m; ^4 z# B( L
(set_tile "ptype" (setq pltype "Polyface mesh"))
, f& w$ K8 E. W
(setq pointype 0)
- A$ P( [+ ]# x
(mode_tile "f-s" 1)* z) B' m7 T. c. \; H! M
(mode_tile "mesh" 1)$ p# h! W/ N0 {9 z
(mode_tile "pline" 1)4 t- L1 u: N: k/ l2 E
)
; s% @) |* Q* G1 Y" ]1 y9 ^
(T ; 2D POLYLINE
/ L- A( @, b3 J* B
(set_tile "ptype" (setq pltype "2D polyline"))
8 ~2 D/ t) {7 y4 \8 A
(setq pointype 1)
& Q# c% o8 k' T8 L. E- {
(mode_tile "bezier" 1)
2 T2 I& Y e) _6 c
(mode_tile "mesh" 1) q q0 f& [8 r5 h5 s+ R3 E+ o w/ R8 t
(if (= (logand bit70 128) 128)7 R4 V4 V+ \, N3 T8 [
(set_tile "ltgen" (setq ltgen "1"))
8 O: w; R* e& d( i. O% c
)) \* r2 ]+ l( t7 t9 L
(set_tile_closed)
& r( Z* |& o+ ^$ C
(set_tile_fitsmooth)
% M1 Q7 A/ g8 s# n
)8 |' T; ~0 L7 ~$ H+ H
)
% a. [5 D4 ^" C& l# _' {
1 c7 m; b; T2 X/ l8 M3 [
(if (= (cdr (assoc 0 elist)) "LWPOLYLINE")* G5 G6 X6 E; e' f: w1 i
(progn
2 ?( T1 A0 _$ O3 F/ Y9 K; S! F
(if (not next) (setq vname ename))
" T2 {& d1 ?! `8 Q& k$ |8 J
(setq next T)
% w" ^6 ^" X6 | {. C5 w; j, @
(set_tile "ctr" (itoa (setq ctr 1)))8 M- s8 |5 k, } I# n
(setq vlist (entget ename))( b& S3 c- ~0 T5 s
)% j$ A$ |0 d% {! _- D
(progn9 P. e6 f( ?. R- x; ~" w$ Q7 G
(if (not next) (setq vname (entnext ename)))* ?0 B3 J; v* w) m$ F% O6 g
(setq next T)- \- A7 `" H# e/ j3 c
(set_tile "ctr" (itoa (setq ctr 1)))
; M# N7 U8 B5 Z) V- a# {
(setq vlist (entget vname))
( A8 A: h1 o/ ?4 D& X3 T
)2 N0 U' ?2 k* Q- g+ @
)* r) i: j) a0 ]; X: k
(set_tile_vpt pointype)
/ _7 _$ R6 \1 v2 \* H! e
;; Define action for tiles6 b3 A8 d- f! c& J) y W! F+ A
(set_action_tiles)
, F/ x# s$ P' S( z5 v
(setq dialog-state (start_dialog)): J; F9 x7 F& c' _8 S! O1 C
+ L. Q8 S% n+ K' v% M3 Q
(if (= dialog-state 0)( @3 c2 v5 N- F6 P, {. P3 K
(reset)" q1 n5 G' V8 v! k' N
)
# n9 ^: W7 [3 O' v' f' y
(if (= dialog-state 1)' p+ v6 ~( y8 @. i
(progn
4 H+ b! q: q, E) k2 f1 k3 Y4 @
(modify_polyline)" G2 p+ t' ]- Q) J7 z3 E
(if (or (= pltype "2D polyline")6 f3 z1 F9 c/ k6 b! M* n8 a
(= pltype "3D polyline")
: D0 V$ R/ L3 u: ~* d
)9 b3 b$ N3 D" V$ j; G/ i
(progn$ I# L7 S7 {# N+ F! g
(command "_.pedit" ename)
) A' I# a* g9 `# I
(if (= spltype 0) (command "_d"))
9 G9 `1 h7 {8 s s Y' J) M
(if (= spltype 1) (command "_f"))5 `% W0 Y# w- H( _* r0 X
(if (or (= spltype 5)" O- [0 l* N4 @2 u) y; v$ N o
(= spltype 6)
( I7 |4 r8 }5 m% o/ |
)( U# e5 H/ `2 T7 D7 }: C( T, b
(progn# w6 T. z! L6 q! @" Z# C1 y( d3 H! x
(setvar "splinetype" spltype)% C; R2 Z" ^$ N" `* l+ _
(command "_s")( a4 Y8 z u6 J1 R4 N& W5 i" d
)) m+ t3 q5 R( T
)
3 |" c7 B: K- a c; K% b8 v
(if (= closed "0")
' a$ C; e* Y# j [* f
(command "_o")/ x; M# D5 n' Z
(command "_c")+ O) u0 Y d* _& R8 ^
)
8 k3 Q, H) p6 D; n
(command "")
/ Q* y% Y3 C! c8 Y a' i$ m% F% _
) w- ^6 G# q# W4 R, b, s7 K
(if (= spltype 0)8 [5 M- o6 W: M
(progn1 Z4 @" U* I1 q" D( g2 N5 R
(setq oldecho (getvar "cmdecho"))
8 n0 \$ i' C J- ] e8 I& P2 z
(command "_cmdecho" 0)
(command "_convertpoly" "_light" ename "")( \4 Z; J0 p% Z9 {, d# S2 V
(command "_cmdecho" oldecho)( o* n3 H* G6 x* e' v; w- k$ {
)+ t7 f; I5 P' J6 q I [
)
5 r: i- M2 @6 h% \) |8 j
)
( u# c* Y$ ?6 t8 z& t& y: t7 g! f: X
)
( W; `( f: Y3 g+ x# l
(if (= pltype "3D mesh")
9 R( y/ G! Z" p* `8 s9 ?" Y3 ~8 }
(progn! u6 m: q; r2 A0 g
(command "_.pedit" ename)4 Q9 t- [& O/ r. L! z
(if (= spltype 0) (command "_d"))
' l) @+ G1 U! j3 p' A
(if (or (= spltype 5)
$ V9 n3 j6 A! e* p* _* C
(= spltype 6)9 w6 C2 b1 E: B
(= spltype 8); e C2 q/ E, H) a! i6 i
)! p7 h. ^ v- T) g. J
(progn! J K, m$ @- ~! b0 r; e
(setvar "surftype" spltype)
! C! y9 C* ]! N% U$ i, q2 b' v
(setvar "surfu" u), I1 D- g7 n# P/ J/ T. i
(setvar "surfv" v)
3 \' Y' F3 U* a: A- f6 M. T! I
(command "_s")/ [+ h g2 U+ R
)
) c9 L2 t* C3 C
)4 D' [- p9 z6 @% ]" R! @+ R4 s4 c
(if (/= closedm old-closedm)
3 A0 G$ q* c. x1 w8 \ l" E
(command "_m")
) l8 _- C9 @5 ~
)2 ~* W7 v8 ~6 ]7 ^2 J
(if (/= closedn old-closedn)4 P4 k% \( T' G5 o& [- `- N0 s
(command "_n")
. w; M4 q# A7 s/ y# ~. o) L2 |
)
/ S! t2 k6 J$ v9 q; c- ?
(command "")
7 F5 X/ K/ t. p$ o
)
) |3 F! O; Y F6 Z
)5 T8 _6 u& Z U) G" A
)
/ R1 T7 L1 T/ b+ [0 K1 P
)5 d( @3 l. }3 z9 X
)2 w; v* D6 a5 V. Q, L! p0 A
;;
2 \1 q4 p7 g+ w" \8 f
;; All the spline data is contained in a single elist. We must do some
( D1 e5 y5 @0 q) a/ M7 ^! z) {* Q) V
;; tricky list processing to loop through the elist in order to display
& i4 H' t, v6 U) Q* q" P2 t) ]
;; all of the control points./ |% q, W3 o- m& F* D& B
;;
% B* F a! m; A' ^7 h# P8 k0 q# Q
;; The structure of the elist is different for rational and non-rational
" R- R `7 P" y% ~' G
;; splines. Therefore, we check the rational spline flag.
5 s+ ?+ ?8 Y$ T8 f) C
;;
2 u9 f, `9 i3 H4 i0 v E" K/ m" e0 O
(defun next_cntl_pt ()
9 Y2 G; K4 I! Q! S* z0 C
(setq elem-no 0) ;; elem-no = element counter
' q/ l0 I6 Q' ]8 n# k, @0 }
(if (= first-10-time 1) ;; If first time, find location of first
" P! H" X8 {( f( t( E
(foreach list_item elist ;; cntl point element in elist. z9 [8 m% [( D' G' K) F! i
(progn
) F% }* |" x: \ P, r3 V& N
(setq elem-no (+ 1 elem-no)) B/ g: |7 G% K6 r3 U: o- |' N
(if (= (car list_item) 10)
4 N+ {9 c# p4 K6 J% S& U
(progn
5 M! @$ `2 [+ U9 I# d( Y
(if (= first-10-time 1)9 F: J; \( M! `
(progn* V, x8 t* o+ l* \& M
(setq first-10-rec (- elem-no 1))
$ K* N' t/ z/ q m; V- i2 |
(setq first-10-time 0)
1 ~7 J0 K9 ~8 I2 r) p o5 {! w
(if (= rational_spl_flag 1) ;; if rational
: U- ^2 h: C. Y% s# D
(setq cur-10-rec (+ elem-no 1))4 ?- g& K7 S' N5 {
(setq cur-10-rec elem-no) F$ s! _$ }5 I* E3 o5 ^
)
% B& c) Y0 L9 E, \" y4 t8 c1 l
)
! M5 [7 o4 _/ j2 e; I! @
) z1 F4 b1 O. T( [4 {
)7 B0 h& [7 G0 l1 B% w3 d
) b4 q9 D& b6 J6 q7 X
)$ ]( R7 p6 H) L1 R
)
; u. S) T2 n& P: v3 Q p
)7 N* A0 ?' u* `* F
;; Now we know the location of the first "10" record; it's stored ^+ B) b- W9 f6 L
;; in first-10-rec. The first 10 record was already displayed when1 `$ @7 h3 Z0 h3 a3 ^$ Y
;; the dialog first came up so let's display the second one when
; B7 a+ z! t( v
;; the user presses the "next" button (the first time through).
* R( a5 n6 E2 [' \
;;6 y# J5 \/ D& E3 t& b* m, [' E
(setq temprec (nth cur-10-rec elist))
: t7 Q% `5 U! E N' \- v* y
;;
& e5 n4 o6 B# }1 h+ E# W3 v" p% v. j
(if (= (car temprec) 10) ;; if 10 record
* x' G; |* F' n# l3 J+ ?- l2 k
(progn
9 E3 a3 |( F# K/ g* W6 [4 x
(if (= rational_spl_flag 1) ;; if rational spline
/ a4 P) p+ I0 J+ s1 x
(progn
- {" x0 P8 @! H- n
(setq tempweight (nth (+ cur-10-rec 1) elist))
1 n- E) {# A. ?
(setq cur-10-rec (+ 2 cur-10-rec)): C. d0 y$ V$ H6 N# Q" L. Q# O- f% L
)
1 e s6 t k, F
(progn ;; else
+ |1 R7 u7 X, b6 A$ I& I
(setq cur-10-rec (+ 1 cur-10-rec))+ Y% u- n; `& y6 k6 b
)+ Y2 r \+ X( @3 u2 X- N+ G
)* m: H/ k, Z% k) e! e* x0 U0 k
) ;; end if rational spline3 o1 F% |" n; y' @
(progn ;; else reset counters, T6 Z C, h3 j0 l) A( E1 R/ i3 u1 `$ U
(setq temprec (nth first-10-rec elist)) ;; get 1st 10 rec' c6 }7 ^% Q8 l, ]
(setq tempweight (nth (+ first-10-rec 1) elist))
, B. U( a- L" b; B! l8 f# |3 U
(setq cntl-pt-indicator 0)
: T& p- g/ C( v6 c# |9 v3 E
(if (= rational_spl_flag 1) ;; if rational
4 r2 I3 x$ }( m* u% D- C% ?
(setq cur-10-rec (+ first-10-rec 2)) ;; point to 2nd 10 rec- |, k% `& y& m d3 v" v* p
(setq cur-10-rec (+ first-10-rec 1)) ;; point to 2nd 10 rec
4 d; B1 _ [9 e7 a& r
)/ C6 D( E8 n$ N, p# N H7 ~/ L% A
)$ o( ~: r4 Y% v) y5 P
) ;; end if 10 record. V4 \; ~ w& p. Y5 _0 \6 X/ u
2 g8 J4 B/ h; T/ U. ^ v( Q
;; Display cntl point, weight and ctr. Increment ctr. v3 \6 O' M2 [' W/ @( |6 @1 |2 D
(setq cntl-pt (cdr temprec))
& H- _) f( b5 ?" v, q
(set_tile "xtext" (rtos (setq x1 (car cntl-pt))))- |9 H$ ~- E+ e
(set_tile "ytext" (rtos (setq y1 (cadr cntl-pt))))
& Y3 m1 g* c6 R9 A5 F: f8 M
(set_tile "ztext" (rtos (setq z1 (caddr cntl-pt))))
2 s3 g$ `" n7 E# u2 H
(setq cntl-pt-indicator (+ 1 cntl-pt-indicator))4 J5 Z k" R5 d6 U' w4 M
(set_tile "cntl_ctr" (itoa cntl-pt-indicator)), p- J( z- c \; R' p! |. l3 y# f9 z
(if (= rational_spl_flag 1) ;; if rational- G. r8 ?0 ^+ i% S2 j) h& l; b
(set_tile "weight" (rtos (cdr tempweight))) ;; disp wght
w! G7 S1 t) X/ V
(mode_tile "weight_text" 1) ;; disable wght" H2 j# o( z9 e' V7 I& l4 Q
)/ F/ w( y) ~2 e0 J7 R+ ^( R
)
5 f" r7 ? Z; I0 i) v* m' h0 @
;;2 @; E. \, e( I) L( D
;; All the spline info is contained in a single elist. We must do some" d- Y- i+ @9 f" x( ^
;; tricky list processing to loop through the elist in order to display
1 b9 l" [+ z: m2 Y5 c. m
;; all of the user data points.
1 [3 n+ U5 ]8 r4 h
;;
, W9 l7 { j! n" x2 R
(defun next_data_pt ()
& ]0 \9 T; p8 K7 ]5 A. w
(setq elem-no 0) ;; elem-no = element counter
. B7 a. A! S" v' b( ] i
(if (= first-11-time 1) ;; If first time, find location of first
! I& F) D/ t6 H5 V5 w
(foreach list_item elist ;; data point element in elist
9 E. | H1 z, z1 i2 }
(progn# j1 L5 V5 A% l
(setq elem-no (+ 1 elem-no))" e, v! P$ x% ^- \
(if (= (car list_item) 11)# Y1 B4 B1 k2 V2 h; y3 \, ~: S9 b& O
(progn
& r3 Z# k) K5 ~+ w D4 Y* O6 s
(if (= first-11-time 1)/ }- A# ~4 W( ], v0 A, P
(progn
% G" `6 x. V# q$ H- b! l
(setq first-11-rec (- elem-no 1))
* r6 v0 p" y8 ~3 |* _
(setq cur-11-rec elem-no)6 v( S* P6 ?7 ~0 H7 f" m
(setq first-11-time 0)2 R9 S8 ?1 n) Z( N$ o
). s1 w; E1 I; X
)9 Y( ]! I( [% g" |+ m0 A t
)5 y5 y6 r" z0 A' l: B1 h0 `
)4 P; \2 R1 ~' A% r9 S( L
)
0 |; N( T2 J, v- m) p
)
9 V) T0 V) K! U+ r8 s
)5 l+ ]) A. n* k1 e# \3 _
(setq temprec (nth cur-11-rec elist))
& s& s! R4 E [. e
;; If it's not a DXF "11" element then we've gone past the last' l% r" V7 P& a+ u
;; "11" element. Go back to first "11" element. Reset counters.+ _1 p0 {% R. h8 L! c
(if (= (car temprec) 11)
& L4 S% k0 ]/ g- |4 Y
(setq data-pt (cdr temprec))1 x" L6 U- o6 L& C. ^
(progn ;; else/ w- M0 H5 d1 _+ ^
(setq data-pt (cdr (nth first-11-rec elist)))
, X4 L' e; d s8 D- T s
(setq cur-11-rec first-11-rec)
2 T: E" [: _0 \1 j U4 x
(setq data-pt-indicator 0)6 [' e8 \+ j7 b# c% [& u
), ?8 _8 ^. E5 |+ M2 x
)
+ P) D' n3 z* U5 H6 X' m
;; Display data point and ctr. Increment counters.% m( A: b: H& Z6 ^; I( W6 y
(set_tile "dxtext" (rtos (setq x1 (car data-pt))))
8 {( S$ E! ~- i% \- u
(set_tile "dytext" (rtos (setq y1 (cadr data-pt))))! L# N' ?" ~* p5 ^( k; F2 q
(set_tile "dztext" (rtos (setq z1 (caddr data-pt))))
2 `9 I! u: A' y5 p- F9 b X% y
(setq data-pt-indicator (+ 1 data-pt-indicator))) O a6 }3 l, n3 } K! V
(set_tile "data_ctr" (itoa data-pt-indicator))
8 U' o8 V. p! o, ]8 W
(setq cur-11-rec (+ 1 cur-11-rec)) P: g$ b8 {2 O4 ?) b
)) j3 ~* u6 Q& l6 N) }
;;
* ^" R& F$ e5 M
;; Modify SPLINE$ v% r: O0 {# o0 \# J8 L y
;;
3 N. I, B8 \ A0 O. F- z
(defun modify_spline ()
2 N i6 C- K6 c% g( u0 R/ d" X9 F
(modify_prop_geom)
1 F9 j, h3 t+ G" `5 w7 a) q2 H
(entmod elist) g7 U- K6 c2 J; p
)
- x" R$ G$ }2 S
) [% w2 h. x* c9 g
(defun ddspline ()
) p" y# o7 j A$ e# p4 s# O
(if (not (new_dialog "ddspline" dcl_id)) (exit))
* K$ {, O0 @2 o) j/ _( }
(set_tile_props)
M$ R* E5 |- }) s' Q6 B
(set_tile_handle). o }3 Q; H2 U
(set_tile_spline_props)
9 V* V9 T: j, u8 a
;; Display first control point
* X' ?! A: F! R6 \
(set_tile_cntl_pt)# D- K2 F1 X6 b" m+ R6 X
;; Display first data point u* B2 k9 e, u
(set_tile_data_pt)+ A0 m' f1 R i$ J
3 i4 o" y$ P. ^9 O6 Y. L5 ~3 X1 U
;; Initialize flags to indicate first time through the dialog.( p' Z2 T8 f/ F# }
;; For control points and user data points the "next" buttons1 Q4 m' @1 [, K# P* f2 ]1 T1 @% S
;; in the dialog call the appropriate functions.# W; ]4 U% x' P; X h. E
(setq first-10-time 1)
6 z: G+ I' L" Q7 f4 l. _
(setq first-11-time 1)
" d/ R: s5 |# z4 X: F, O' Z1 B
;; initialize control point number counter! I0 _& F- `" k8 `) i* s/ W
(setq cntl-pt-indicator 1)
' ^" g( S( ^8 r- L( g. m9 }
(setq data-pt-indicator 1)( A5 z/ s3 R% ]# `; K
(set_tile "cntl_ctr" (itoa cntl-pt-indicator))
! W. [3 p% A1 K' ?: {4 M2 q
(set_tile "data_ctr" (itoa data-pt-indicator))
/ }0 c, ` y5 a
(set_action_tiles): J; E. ]9 R: b& p/ J0 @% w0 }
(setq dialog-state (start_dialog))2 f6 D( }' w# ^
7 W8 d7 H8 u$ p$ K2 `5 M
(if (= dialog-state 0)' C" G2 `7 s% l4 @0 ^5 q) W
(reset)
. `7 \; N' J0 H* H; N4 h
)
/ T0 r# S; |; A1 }+ i
(if (= dialog-state 1)/ x/ n8 |3 g% ]$ d( ^; [; ?
(modify_spline)
4 ]& C+ E8 a3 k$ S3 k1 E) [* N
)
. ?$ L& Q+ J( l6 M
) `$ H; N+ l9 V# C
+ E& ^9 Y0 Q( ^( q* k3 @ M% f3 m
;;2 A( `2 y' g3 @
;; Modify DIMENSION5 f( o. m% J% u7 N6 [; k: Q+ F
;;3 M9 U! B! d7 D) f+ p* q. b
(defun ddimen (/ dtypebit blkname bename sublist a stname n dimtbl e/ f J, S- M& P0 t
dimsty dimlist dimtext svtext dimovr sv_dvlist stlist& ^. |/ i$ x( C7 ?3 d6 l
dimtype dimsvcurset): N+ R1 e8 n' d/ ] ?& |
(setq dimtype "DDIMEN"3 I% p- y# j/ U3 T
dimsvcurset (ddimen_dimsty_restore)
7 j! Y- U0 @& {
)
' R# V* S5 r7 e. c9 n- B$ n
(if (not (new_dialog "ddimen" dcl_id)) (exit))
_: D+ G" @0 f+ Q1 v% e9 f/ B+ e0 T
(set_tile_props)7 Z( z+ ~; q. Q- W- D# v+ E
(set_dimen_props)
3 e R0 d$ q% N
(setq dimtext (cdr (assoc 1 elist))); P0 {$ N) i& X9 x! [' ^- e
(set_tile "t_string" (if (= "" dimtext) "<>" dimtext))
) A2 _& a. a7 J( _7 s3 n' m
(set_tile_handle)5 ?" l1 E$ Z9 T& a( _! K+ @2 z& N0 q
;; Define action for tiles
6 u# {" I! A8 z, ?7 J5 g
(set_action_tiles)
8 {' v; Z# n8 i' Z& U$ T
, B2 V8 ~9 w% U7 P/ E( v
;; Set initial focus to text edit box.1 A: @7 V: b* q: d
(mode_tile "t_string" 2)
" G }+ I. l3 x9 {) i8 H/ [
: b; A* l& h8 @0 Q7 O7 B
(setq dialog-state (start_dialog)). M; @) ? F8 b4 d/ {" c9 u, U
(if (= dialog-state 0): [3 {$ M+ y" @, v8 a
(if (= ddimmt 1)5 d, R8 W7 z& q% Q9 c) g+ m' Q
(reset): k, Z. k7 D9 N3 H6 s1 Z3 e
)0 d7 L& T, I$ [
)
7 Z7 T( q6 U" Z* b
(if (= dialog-state 1); _/ B4 e& H, }' R( V: D
(progn
, h4 h3 g+ H; }1 j( J0 Q8 k, m. C
(if (/= dimsty stname)3 y; Q5 a+ F8 w2 C; V
(progn- x4 ^* n- M+ P M
; Be sure to add (3 . dimstylename) element. R12 *UNNAMED case8 R9 D6 w( m# X6 u+ \+ c9 P1 x
; doesn't have it.
) n$ r2 Y# Z8 ]. x' J$ z# o
(if (null (assoc 3 elist))% I! b# u0 [" t' D
(setq elist (append elist (list (cons 3 dimsty))))3 [; G7 n1 |$ r( _- `) O
; else just replace it.$ ^: k2 J& I7 P! L
(setq elist (subst (cons 3 dimsty) (assoc 3 elist) elist))7 q" i* g$ k- U6 `- A" D- S
)3 e( | x: G# ^$ Y; A/ g& T
; refresh sv_dvlist with new dimstyle.. f: _9 a0 @, f8 }) [9 y9 O" c
(setq sv_dvlist (tblsearch "dimstyle" dimsty))9 C' {! H2 ^4 ^
)0 v1 G: { }. B
)# v; J- x" j5 i. l) O5 ]2 C- w
(if (not (null dimlist)) ; attempted to change dimvars+ o4 U$ H5 `# i/ |- @
(ddimen_complist sv_dvlist dimlist dimtbl)
+ c# ]# g; T G$ |, m( q h
), c" }$ I- t, P5 H4 J4 D8 [
; Modify dimension text5 r* p3 U5 O6 v: ?/ F
(if (/= dimtext text)4 Z+ h4 c$ X( O0 G) J; t& j6 j
(progn+ f( m: U A8 J2 F8 b3 P% b
(setq dimtext (if (= text "<>") "" text))* ?. C& N6 t1 {- o& E5 I) H m
(setq elist (subst (cons 1 dimtext) (assoc 1 elist) elist))2 R' r' \. m" \1 O
)0 p- ]5 y( R4 y+ e! ]
)
" F: z1 W* u' ]5 o c
(modify_properties)
# [% l4 r/ K; H8 B% x4 W u
(entmod elist)
3 h# R* O* U+ T7 K, v! K
)
0 _9 J! a2 ]' C, A3 I. x0 l
)6 B3 Y8 I6 D1 r! v+ [- R
(if (= dialog-state 4)
8 K9 k; n+ ]4 `; W$ \" D1 d9 t2 D5 K: h
(progn
6 n8 x& n1 B/ J7 l
(setq ddimmt 1)2 U3 C) B$ t) m
(if (/= dimsty stname)$ p# R4 Y; @" s7 i( J( s2 d
(progn
+ R& b' C' y# |$ x! a
; Be sure to add (3 . dimstylename) element. R12 *UNNAMED case
0 `1 T2 q7 o3 O" Q$ }- J' S
; doesn't have it.
* `5 A" P, ]' Z- | t
(if (null (assoc 3 elist))
- Q" I5 O9 M2 o4 @& j
(setq elist (append elist (list (cons 3 dimsty))))
; q. D, h) B+ @
; else just replace it.) T, {& F0 {* b8 U1 B; C& z
(setq elist (subst (cons 3 dimsty) (assoc 3 elist) elist))
6 p" G% t. h' U/ _2 g
)4 i- u+ i! i+ m4 w% B0 F" D
; refresh sv_dvlist with new dimstyle.; n1 h% R1 f& x$ b6 Q
(setq sv_dvlist (tblsearch "dimstyle" dimsty))
- ~" t' U; ]! l% T
)
% R" t* D5 X5 ?: \2 T n
)
$ W I& l; p4 t. [2 @3 r0 q( P& Q
(if (not (null dimlist)) ; attempted to change dimvars
; [: N3 @2 T& x
(ddimen_complist sv_dvlist dimlist dimtbl)9 Y' s' q$ p, u- A2 Q3 _) [2 m* f
)& V- M, |5 d: S# A' w ^6 V! S
; Modify dimension text
8 E% D$ j" Y3 W6 L6 g- w
(if (/= dimtext text)
- l6 N: C! m, W' X; M+ F+ g# c
(progn
' ]( ~- r5 @% k- t
(setq dimtext (if (= text "<>") "" text))
" C$ i0 {9 m7 b5 Q$ j2 S
(setq elist (subst (cons 1 dimtext) (assoc 1 elist) elist)), x/ g) |4 \/ y# w# P
)5 n4 x! O' F" @& b% {* b
)/ K, x) P& }! e3 y8 s
(modify_properties)
; B6 M& T* w5 B" l: a4 U
(entmod elist): j+ i2 p/ w& J: W9 j" T
(safe_ddedit ename)- A+ A( R* F7 g
(setq elist (entget ename))/ F8 b6 V, b; i% V- ]0 m @& e9 p/ z
(ddimen)
5 m" A3 H. G% Q+ b B
)
3 m: {$ E6 n1 [; m6 e/ V6 t9 [ A2 b
)# D5 Q1 G/ W+ n" ^. i3 X) s
(ddimen_setvars dimsvcurset) ; Prepare to exit7 {% j9 D0 M, t( s7 Z' D/ f7 e
)0 m8 }% D v7 p0 u# b( g
! _' V' D; k- Z5 N+ ^" B0 C) Z; ?
;;& @9 J# t0 ^% @' d
;; Modify TOLERANCE
8 P5 S. b5 d5 @
;;# }. B1 @2 U/ ~' ? Y
(defun ddtolerance (/ a stname n dimtbl4 A0 Z8 x, l$ ]; }5 `
dimsty dimlist dimovr sv_dvlist stlist dimtype, `1 D" m3 ^0 U/ {4 }
dimsvcurset)
' D! N& {1 ~. J' D
(setq dimtype "DDTOLERANCE"! }) s) @0 l! l! H O7 K/ S' ]3 O
dimsvcurset (ddimen_dimsty_restore)# B: \5 }; Z) q) U ~ |
)8 z1 } | w9 o; Z
(if (not (new_dialog "ddtolerance" dcl_id)) (exit))
% h5 ~! n! S7 M" d x, `& B
(set_tile_props)
$ `% k9 Z8 G' P; J
(set_dimen_props)# n1 e& {# l+ n k$ e9 E+ ~
(set_tile_handle)
# u: P1 z2 b) z$ r* Q
(set_action_tiles). k. x; ?* g" N& {- y$ I
(setq dialog-state (start_dialog))2 P9 n1 i( b8 M& I! d
(if (= dialog-state 0)6 O1 {: b& `+ D
(if (= ddimmt 1)
/ J( i2 P& E+ m3 M- o
(reset)
( t* F7 j# i& T J D
)
! k0 @# f. \; p( _/ \7 }4 z5 z( N
)
( O7 }9 [$ c- t) M
(if (= dialog-state 1) B a' b! U! x- {7 F
(progn' i0 R# \4 s& G5 r8 F6 ^8 O8 s
(if (/= dimsty stname)
9 u2 ]0 _# A! v3 U; |9 B
(progn
2 W2 ^: [ @) Q5 \8 g/ D
; Be sure to add (3 . dimstylename) element. R12 *UNNAMED case
& K2 g- w( s. x4 v' ~
; doesn't have it.% s% z- d5 Z& e. c2 `+ U
(if (null (assoc 3 elist))
4 S: R2 ^: G* }' ]0 x! S
(setq elist (append elist (list (cons 3 dimsty))))6 N% Z9 \$ h' w: K# {( Q( c/ I
; else just replace it.! ~0 w4 z; G# O! E A* a0 n+ N
(setq elist (subst (cons 3 dimsty) (assoc 3 elist) elist))! ?! i9 _, H0 {2 J7 u0 _
)* j1 Q' b; s1 H/ L3 ~0 O1 ~
; refresh sv_dvlist with new dimstyle.
* M. j4 ~" z" S* F+ e& P& t5 D) i
(setq sv_dvlist (tblsearch "dimstyle" dimsty))
0 s1 _$ g$ T; D7 N9 r2 u
)
% b# I3 I1 k, y- f6 H
)
& V! r+ L- v }4 o$ Y, P$ G! @
(if (not (null dimlist)) ; attempted to change dimvars5 p3 P9 l9 x6 B( @% U& K1 |; {
(ddimen_complist sv_dvlist dimlist dimtbl)
. ] Y+ ^: s' @1 a4 I& c
)! |6 {. g+ ~' B# f) q) Q8 C
(modify_prop_geom). l) p2 S" ~. r& |, |
(entmod elist)
% S$ v" T3 p0 H, b: n% m; L6 S
)
6 |6 ?, `: `( {7 e2 e/ E0 m
)5 B$ \ K" t& f
(if (= dialog-state 4)+ Z/ x# W: `- Q' F4 e: X n
(progn5 A! f7 |2 W$ F$ }+ @2 l
(setq ddimmt 1)
: h. w- B* |* ?7 y4 v7 D8 H! q
(if (/= dimsty stname)
8 d4 y. G7 e3 z0 d7 u6 x$ T% v& U' l
(progn
5 U) H! d! s# ~; P! ~; h5 q- E: g5 q
; Be sure to add (3 . dimstylename) element. R12 *UNNAMED case
6 G( X+ {+ K- |; E/ L
; doesn't have it.
, h$ _3 `5 `, f5 t% N% k
(if (null (assoc 3 elist))( p2 @: d! A8 Y0 m; k* P4 _
(setq elist (append elist (list (cons 3 dimsty))))
9 J, M8 E7 X+ B
; else just replace it./ _. ~1 v( x1 _) A
(setq elist (subst (cons 3 dimsty) (assoc 3 elist) elist))0 l$ D1 h- O& y8 X, o
)! X5 M0 s" e& _! l, h
; refresh sv_dvlist with new dimstyle.- I& q9 i# [9 P- B! I+ s0 _
(setq sv_dvlist (tblsearch "dimstyle" dimsty))/ M# Z- s8 q! q2 s( m1 ^
)1 @) O1 y( Q* O0 t! @; T, b* }' T
)
; o4 Y$ ?6 Y5 ?4 `
(if (not (null dimlist)) ; attempted to change dimvars
+ ?# g3 @ N' V J$ i
(ddimen_complist sv_dvlist dimlist dimtbl)- i( x. Z5 Q5 @
), j) |/ }+ `0 P. a1 B# Q1 ]
(modify_properties); q; }, [' I+ ]9 b
(entmod elist)2 N, {6 k) F6 ]9 Y
(safe_ddedit ename)# A2 m3 ]- l4 H9 w C+ F1 i
(setq elist (entget ename))) s# Y* {- T7 f$ `5 L# B" u, U4 Z3 d3 ~
(ddtolerance)7 D+ G! a1 v# O. m" L9 [
)
( R& ]8 _7 v1 \( A9 E
)* L3 D( N% W/ }( P1 b1 D3 n( V
(ddimen_setvars dimsvcurset) ; Prepare to exit
2 _6 c+ n* P" B$ \6 ~! |
)6 n3 i# @$ U- H& | ]$ C
+ U- Q; c, Y& O8 T% i% G
;;3 Z& ]4 p* C# m9 L# z/ Z& V5 {; M
;; ddimen_dlg - jump to ADS ddim module( f) j y% q% K3 N! Y1 Q* Y
;;
$ Z) L3 F: ?: h7 }6 g0 G; v
' G/ m! d6 J2 `5 v
(defun ddimen_dlg (dimtype tile dimsty dvlist / dimlist)
4 y( P9 W0 c" x5 j
/ [6 ]( K/ Y y8 V- M$ a6 B) i
; Jump to DDIM with overrides if any.
! H3 C2 j( Y( q# l; l8 `( ?
(cond ((= tile 11) (setq dimlist (c:ddim "DDMODIFY" dimtype tile dimsty dvlist))) ; Geometry
0 |# k; m1 S: M4 b# C
((= tile 12) (setq dimlist (c:ddim "DDMODIFY" dimtype tile dimsty dvlist))) ; Format
' l3 |' v4 D, s: W
((= tile 13) (setq dimlist (c:ddim "DDMODIFY" dimtype tile dimsty dvlist))) ; Annotation% J8 _$ J7 u" n9 Y& I$ l0 L
)
7 G% a$ w8 p4 K( j8 B
)* h2 p8 y; Z, ~* r
) B- u$ r0 y& M2 E) G! P! v5 `
;;
9 G" w# Z7 H; I7 E, `) J( C% M
;; Dimension variables updated are stored as overrides.8 E E' f4 h+ @/ r# L
;;/ ]6 b, m- Q; r( J
9 v3 L9 Y) |& f$ S) ^( @7 A3 C7 U
(defun ddimen_complist (dimolist dimnlist dimtbl / i odvar ndvar
( }4 Y5 |( o7 M* Q" ^
dv dime commandIssued)
1 a0 Y t$ p! q& T3 R0 G
o; V9 i: B! i/ d, g
; Here we skip the following first three items:
7 L& i) a1 h8 g, n. ?: j8 ` T
; (0 . "DIMSTYLE") (2 . sylename) (70 . 0)! M% u8 f% F; v0 ~6 i/ ~: S, h1 x
;& {& N- J: G, L( |1 W
; The list comparison immediately begins with dimvar.) B2 B4 J2 x, H" h
;$ f4 }5 j( S I9 a+ p1 P* B
; dimolist - original states of dimvars# {! T) x3 g/ O; q/ V W1 n+ e& V
; dimnlist - new dimvar list which is of the resbuf's
8 n/ Y, k. ?* O# n# r1 W
; dime - entity name for the dimension Z* Y, Z7 a+ x# a4 [
; odvar - value of dimvar for the dimolist
! w- U* Q* ~& X; U; T
; ndvar - value of dimvar for the dimnlist
* U6 @+ f* {0 K a( L4 ]- n
+ n( o9 d5 o: q4 Q2 F& Q2 N, \
(setq i 3 E! P5 Q, T" x h/ x8 q0 f7 j$ S
dime (cdr (assoc -1 elist))
m/ v0 ]) x6 j# I5 [
)
: ^( m( l5 e! P, E
(while (setq odvar (cdr (nth i dimolist)))
5 B0 l6 w( G- p( r* R$ `! ]( l
(progn8 y( ?) I$ m4 K& F& h" S8 |
(setq ndvar (cdr (nth i dimnlist))) y1 n" E0 A* u5 c6 z( F7 R& p. H
(setq dv (nth i dimtbl))1 x# l& B; |, i! ]" X3 h- u4 S
(if (eq dv "dimtxsty")
+ l; [5 B8 a4 @& x' W3 I: p
(setq odvar (cdr (assoc 2 (entget odvar)))
5 N0 g& F& F0 J8 P9 T
ndvar (cdr (assoc 2 (entget ndvar))), y* o$ \2 |/ @* X
)
- t; `# u, S* z# e
)
. |7 S6 [2 W# C. D- ]9 z
7 {# n9 C: v/ z/ O
;8 s! e! o" n: l9 Z* n/ W3 S
; In order for DIMOVERRRIDE to operate correctly with string
) t3 F H/ l3 x+ \3 E+ I& l
; based dimvars, we must pass "." versus NULL strings.$ O, P; C6 L5 M$ ^
; In this case ndvar is the new dimvar value the user wishes
$ H( i2 o. F& m: e* k$ ]7 k! a
; to update on selected dimensions.
8 }2 f% g4 f5 K7 d$ t
;
0 v1 s* s8 u) A# u6 ^. ~
(if (/= ndvar odvar)
- c2 x0 B" }# Y; [
(if (= 'STR (type ndvar))
( c/ A8 c4 K. t/ X4 n
(if (= ndvar "")
( Y7 K9 q* z# D& i# s. X
(setq ndvar "."))))3 m( z& e' @! c3 }2 P) G X
) A) @, W6 ^7 N) S; m! u
(if (/= ndvar odvar)! M- q0 B. M4 o, j* P' b g
(progn7 ?7 Y% N5 X' i" g1 t1 \3 \# D
(setq dv (strcat "_" dv)) N' a! g5 s" F% b: u
;
8 v: z2 _& B+ f: e- p7 O
; Start the dimoverride command
& ?& M, R, d8 y, t
;" l- `) C' |. ~# j' s
(if (not commandIssued)2 {% f! {. t7 U8 k( u; ?! e& I
(progn
- @# [5 T$ i" m! g6 e& f; Z, a
(command "_.dimoverride")9 d' p* [3 E( P" m- ^$ g
(setq commandIssued "T")* A) a5 h/ v$ \
): R* Q$ X# w5 Y& |* o5 Z
)
0 m5 ~# y1 l* r2 {6 ^
;, I6 U7 j# j/ }8 U$ S; M( e& ]0 o
; Issue dim overrides, U: ?8 u9 _2 r( q6 L9 P5 H, @
;
2 r! r9 ?- r7 H( @* {* t" d
(if (and (or (= dv "_dimclrd") (= dv "_dimclrt") (= dv "_dimclre"))
) h) }3 @0 `2 q% C6 H
(or (= ndvar 0) (= ndvar 256))0 h3 [% ?5 Q1 H. D; B8 l/ i1 z! L
); x8 m0 u/ m7 ?
(progn
: \, U" Z6 [6 c6 I6 c
(if (= 0 ndvar) (command dv "BYBLOCK"))
+ t) ]8 v2 V- U" H
(if (= 256 ndvar) (command dv "BYLAYER"))
4 B" X5 i& |/ t& N9 N- x4 N$ |
)# Q% ^/ H5 J; B k+ c
(command dv ndvar)
( M. x3 h: l1 V7 R
)
' j, {& c5 _- e6 U, b
)
+ o. {0 a5 ?0 ]; i6 D/ e8 E6 S
)9 m/ a% B1 u* K. d: f
(setq i (1+ i))
2 o9 D" z& u$ b8 l$ {* H9 z
)+ }9 E. `6 k' ]0 m
)
% S% a3 X/ V* m0 H# r
;
8 q5 Q7 o+ F% ^
; Select Entity and terminate command! [ m7 ~6 [8 K" T& z
;! c- j f( W" I- K& f. A7 F9 F# @
(if commandIssued
8 a" ?4 B4 l; K3 i2 U
(command "" dime "")9 j" C/ S a7 F
). r. q9 [0 E0 |; _! [
)4 {/ X; P1 T- d# N: F# k
* Y$ e9 R; O: e2 j1 \
;;2 I! m/ w9 \8 C7 E+ `5 J
;; Get style name currently selected style name./ Z. Y* \6 T* u5 P! d) S4 s
;;1 i. |' [1 c( d/ L9 P& d' w
" S2 e/ U; p) x0 A: f4 U `
(defun ddimen_style (/ dimsty). D) Z T1 m& @
(setq dimsty (nth (atoi (get_tile "mod_style")) stlist)
3 x- y: [/ t' f7 v& V4 O
dimlist (ddimen_getdimvars dimsty)
7 n, `. S! @* _: p ?- o
)
8 ~3 e9 x! V2 u$ n0 L8 E
dimsty
) C7 Q& V @/ G9 Q+ }# N8 y
)$ G# B& T" P) O# r4 [
) }- t) p Z, V8 Z, g- T+ n/ [
;;3 X+ L; L0 n( }: u' J
;; Set dimvars; j0 N1 \) i4 r& i
;;% i- X- Y, I9 m0 d
(defun ddimen_setvars (dimsvcurset / dv i)" b0 ^. M! {' G& a8 u
(setq dv (cdr (nth 1 dimsvcurset)))
$ z" I; {0 y* n
(command "_.dimstyle" "" dv)
; |! U3 c9 U/ B
(setq i 3)+ Y2 E, ~. B0 H6 G& r9 S5 ~) Y# H
(while (setq dv (nth i dimsvcurset))
) r: [) s3 p7 i7 B9 ^) M
(progn6 g# l4 ]: H8 l+ }
(setvar (car dv) (cdr dv))
8 T6 C2 G, N1 P' J
(setq i (1+ i))5 d* U2 Q3 ~ B: |1 b
)
% P. ~1 g$ {- Y- q
)0 @0 m$ s& d2 h8 P4 I- G& v$ L! E
)
6 _$ e2 P' z: ~
;;
( ^: k5 u3 S' u' s* V, y
;; End-of-dimension- a8 A, \" r* I' |# j0 A/ U
;; ==================
" n& P- U* B7 y8 W6 y
* i9 b) A L* ^% V* F! \8 H
;;8 n( o+ ]3 V/ c: R5 \: g7 t
;; Sub-dialogues for properties. Common to all object dialogues
y+ ]$ e- \" i' C# c$ E. m
;;
4 T8 g% k' a# }- n; |( l
;; This function pops a dialogue box consisting of a list box,image tile, and3 v* w) Y4 i- `8 V
;; edit box to allow the user to select or type a color number. It returns
7 a( [6 n* ?) ?9 |9 E) v. e
;; the color number selected.
d& [; C' e) j& S% S
(defun getcolor (/ old-idx colorno cname lay_clr)8 \: }% f9 T$ @0 o
(if (= (get_tile "error") "")0 [$ X8 u6 ]1 [) x4 O5 g
(progn' _6 _% c. K1 D7 I: Q2 X
;; Get the color associated with this object's layer, for use7 B# E7 [/ D+ o; f2 \6 v
;; in the color swatch if the user selects color BYLAYER." q( o! ~4 _6 i x1 T" B
(setq lay_clr (cdr (assoc 62 (tblsearch "layer" elayer))))7 k& |, p6 `; x! t! q8 ~) w
(if (numberp (setq temp_color (acad_colordlg ecolor T lay_clr)))
/ y- u# B# o$ R6 U
(progn
+ `1 o$ T4 v( P
(setq ecolor temp_color)7 A3 K9 k. j& `+ m
(setcolor), h9 K! }, Y5 s6 h$ F
)
5 e5 b( p* i6 w& H2 ? W
(setq testcolor temp_color)
6 A) q/ W6 m/ R: f1 s
)
: y6 h7 E% \0 h/ @; B8 v9 u* b
)
" |4 a. r1 _" [2 ^" C6 j- N
)
2 {7 x |5 _. S
ecolor7 g" |1 x" e$ i4 J. b7 S& w, x' l
)0 y; D+ ^$ {0 k. h+ F! h; c ~+ E' U y
;;
9 m( N$ @7 I' ?9 ]
;; Function to set the color tiles.
! h8 q1 s% N7 S5 r2 ]0 h! W7 H
(defun setcolor()7 p* r @% L3 M
(cond2 e3 c o+ u$ w+ N2 [
((= 0 ecolor)$ h- T3 h- E! Z( d# ]
(set_tile "t_color" "BYBLOCK")/ M6 {- s3 C: y; J7 H9 }( z
(col_tile "show_image" 7 nil) ; show BYBLOCK as white
7 q- N- X E! c# F
)
1 x' \ l' }5 a
((= 1 ecolor)
$ J' N9 Z% w" U! e4 Z% B
(set_tile "t_color" "1 red")* v) d6 s5 n% r6 V) w
(col_tile "show_image" 1 nil), b5 l7 J6 p- P- s2 X, _
)
/ X% W2 c- `* v2 W
((= 2 ecolor)
9 E6 P7 x8 Y* J, j' v5 l! a
(set_tile "t_color" "2 yellow")
) P+ L$ E0 t8 B. E; h* u- l
(col_tile "show_image" 2 nil)
+ \+ B' R! U1 \1 X1 [
)4 o, X9 j3 e7 V! Y" |- p0 }/ M
((= 3 ecolor)% A. N( @$ s6 c! w
(set_tile "t_color" "3 green")
: b4 O+ i. s. a* |, u
(col_tile "show_image" 3 nil)
+ Q: j5 _: ^6 o5 U
)
0 R' e& U _$ ~5 k2 `# q# L
((= 4 ecolor)
' c/ [5 T+ l$ _2 s5 ]5 q7 J
(set_tile "t_color" "4 cyan")
8 ]2 _9 ]9 @- t* D
(col_tile "show_image" 4 nil)1 |3 k9 c! N" Z/ p8 \1 Q7 u( S
)
7 R/ Q5 D1 S( D1 L0 {! f
((= 5 ecolor)8 m# A. G/ i6 w% }
(set_tile "t_color" "5 blue")
# `1 p R, @4 D2 `4 M! E/ S. c) \
(col_tile "show_image" 5 nil)1 j( }: K" S4 T1 r6 T
)
. E$ Q8 V3 K/ |8 k/ E5 z
((= 6 ecolor)5 h! ~" k. v6 }, c) w( C+ V! _# A0 B
(set_tile "t_color" "6 magenta")
+ x3 s5 D3 M; ?: o% e
(col_tile "show_image" 6 nil)1 b1 P! h7 }$ Q0 [ h4 l+ [+ }5 _6 {
). O- k+ P- D0 W r
((= 7 ecolor): T. @/ M5 z# L1 V
(set_tile "t_color" "7 white")
5 K9 R+ i m$ e/ Z' E/ r% Y
(col_tile "show_image" 7 nil)" O' S7 b; C8 K, Z9 Q8 }1 P0 l
)
3 `# C; [6 |( C* A3 t" Z
((= 256 ecolor)2 f5 N2 f% M* Z4 ? O* P' u
(set_tile "t_color" "BYLAYER")
9 u! q) ?0 {* c! W% ]
(col_tile "show_image" (bylayer_col) nil). n' q0 H6 i. p* \
)( b$ o* u0 x% x* [" t- R
(T
8 D( t) O+ x, p/ W7 o _
(set_tile "t_color" (itoa ecolor))
1 S j8 b& l; D9 y: q, z
(col_tile "show_image" ecolor nil)
; |( G1 v# r' B6 ?
): s% s) `9 B# Z. ] ^ l3 S
)6 [/ x2 o: }9 ^+ c8 I
)3 ^$ x5 e% n: V1 y% l
;;% H0 Z( P2 U6 s/ D
;; This function pops a dialogue box consisting of a list box, image tile, and
; a3 D0 r- c j. W+ t+ z) A
;; edit box to allow the user to select or type a linetype. It returns the
& v. `( o" R+ M8 r9 L$ i' Y
;; linetype selected.- ^4 E) N; B( O v a0 E
;;# p, `6 a P' b# a
(defun getltype (/ old-idx ltname)
$ G4 I& X5 ~& U- y
(if (not lt-idx)0 T4 W9 G( z( \4 P# t: {
(progn6 f& h1 z+ c, n
(make_lt_lists) ; linetype lists - ltnmlst, mdashlist% J- }1 e \ X/ b3 H# a' z
(cond. s! W" X4 A& T2 C7 t
((= eltype "BYLAYER")
( Z: J6 Q: S, A- ^5 K y! @" @
(setq lt-idx (getindex "BYLAYER" ltnmlst)))
0 O" [; t0 T' x X
((= eltype "BYBLOCK")
& C" ?6 j! h. o
(setq lt-idx (getindex "BYBLOCK" ltnmlst)))+ T, E- p; M5 }0 ?8 K
(T (setq lt-idx (getindex eltype ltnmlst)))/ C8 o8 h6 U) u; V3 }+ s( i& g C k, b
)
/ P) f; Z$ R& `
)* A' @4 P2 x6 }3 C4 ?1 b# H% P$ m- s
)! H: r; j7 F" j! c! J! S8 v( }% H
0 Y1 D( O3 l0 O9 i3 k: v$ f+ P
(if (= (get_tile "error") "")
9 y( [! T8 _; _ _) u% Y
(progn& Y7 {( U9 Q9 _
(if (not (new_dialog "setltype" dcl_id)) (exit))6 Y1 j; H7 U- O( |/ c% O
(start_list "list_lt")" V7 Q7 V, @( n( T
(mapcar 'add_list ltnmlst) ; initialize list box
^5 Z! p F5 x& v. i* n
(end_list)/ W7 P" j6 j( X. J6 N
(setq old-idx lt-idx)9 |8 ?3 J/ X+ g0 e
(ltlist_act (itoa lt-idx))' |. ^3 A5 m0 {% e, t( F) n |
6 y4 n3 ?6 `4 K6 b
(action_tile "list_lt" "(ltlist_act $value)")
: P& R4 _9 g5 O, Y8 L1 C, g$ j
(action_tile "edit_lt" "(ltedit_act $value)")
- ~4 s/ G; j5 n$ O* I9 x B
(action_tile "accept" "(test_ok)")8 ^7 U" K9 h! g( p( f
(action_tile "cancel" "(reset_lt)")
" M" V( Y& v# e
' S# t2 p. P. g+ N/ P( R
(if (= (start_dialog) 1) ; User pressed OK0 f3 ^0 H3 x4 ?+ Q) n w2 N H
(cond0 z' f1 P7 W- H1 T0 z5 t; L
((= lt-idx 0)" f; [+ G) z% v/ z* K% g
(set_tile "t_ltype" (bylayer_lt))/ P1 z% S0 c: C0 r1 j) E; P
"BYLAYER"4 y1 v4 ]: Q8 e4 C
)& B4 y5 B9 k& F+ I, e5 | l6 x
((= lt-idx 1)
' W' J# c% g; |7 w, b
(set_tile "t_ltype" "BYBLOCK")
9 K7 ]% x: c. z$ \! r; R G: r4 a
"BYBLOCK"5 p/ a+ K; y. @( T) `3 C, k1 z
)
& h+ x" Y$ x1 @. l
(T (set_tile "t_ltype" ltname) ltname)
# f/ A! I3 e6 P0 s# g, ?
)( O! ]2 u: C/ F8 E& Q
eltype$ `! E+ Z9 {! q; x
)
4 v, u6 D8 f. j: ?2 N% ~+ u/ D% v
)" Z* o+ f, C4 |4 o1 X# z) c/ j
eltype
" E' x2 D- c% A4 e, s; Q
)* s+ \# ~; B( r1 m( M
)* U- a! v3 {! E* D7 ~
;;
$ O# z ~3 {( ?- U& X& b
;; Edit box entries end up here, k* b: [4 U+ ]% d3 r
(defun ltedit_act (ltvalue)
5 Z# K1 s7 u' _0 U
(setq ltvalue (xstrcase ltvalue))& n. i4 f4 d6 k7 H0 Q! D8 O
(if (or (= ltvalue "BYLAYER")
! _" `% D1 d" I- ]5 Z
(= ltvalue "BY LAYER"))
/ T7 Z [6 y7 J, F- U
(setq ltvalue "BYLAYER")
N# E b8 z! Y
)! w( O* k' [$ ^: a& z9 b
(if (or (= ltvalue "BYBLOCK")5 g4 G' G2 `/ D* |3 ~
(= ltvalue "BY BLOCK"))) C9 o; e1 j* \( a: `5 J4 D$ ~
(setq ltvalue "BYBLOCK")
- ?$ _" }0 ?6 q
)& Z4 I+ Y" Q7 q) k) [2 u/ \
(if (setq lt-idx (getindex ltvalue ltnmlst))
( P7 K. O* p7 U' y& b
(progn! \; w. Q# ~" Z. q' w
(set_tile "error" "")
1 m3 H: A k) _5 k1 a2 G
(ltlist_act (itoa lt-idx))% z' u/ S& N2 I+ Y/ A6 x
)
7 z! K4 f+ h2 E; _6 t
(progn
0 h9 C; `4 H; s
(set_tile "error" "Invalid linetype.")
9 ]# ~8 r6 m* p3 T" I! A# ?
(setq lt-idx old-idx)9 b( d0 O$ Z4 X9 b: |+ G
;; (mode_tile "edit_lt" 2)3 [7 |, ~& D; E4 {
;; (mode_tile "edit_lt" 3)' D$ P& ~+ {6 [' u
)
6 s6 ^( g( N/ o6 u# U, s+ ?
)
. R$ O8 x r( X
)
1 K8 Y; |& e9 `- |7 \. f7 d
;;# {7 q7 A- t7 |4 R# U/ b0 b
;; List selections end up here. Update the list box, edit box, and color
, x, m' g7 P( l6 }4 j
;; tile.
* Q) y. [; }8 a8 v
;;0 \% J2 M W# `! U; k" G
(defun ltlist_act (index / dashdata)( L3 y' M0 I: s/ r& k. b
(set_tile "error" "")
0 B$ a! S; V' i% S! A/ J, N
(setq lt-idx (atoi index))3 v8 W" J$ s/ w3 l- q
(setq ltname (nth lt-idx ltnmlst))$ e5 P" @" T9 d6 @9 H" A' D
(setq dashdata (nth lt-idx mdashlist))4 |2 U$ H3 u$ r+ l0 i6 ~
(col_tile "show_image" 0 dashdata)% U1 o% x9 |, n9 `/ J( y
(set_tile "list_lt" (itoa lt-idx))8 U' _( C% a! q( w, N" j/ H
(set_tile "edit_lt" ltname)
0 q. S9 Y) {% P
)9 E2 N% u9 p \+ P; h* m ?
;;
- S8 ]3 N* @ D5 K. M
;; Reset to original linetype when cancel it selected
: e1 ~$ ^3 ~7 F8 K0 _7 L& a
;;. g8 {, a# U, ^4 }
(defun reset_lt ()/ i' I9 R5 n5 B
(setq lt-idx old-idx)
$ [1 h& T5 X# v& v* ?4 ?
(done_dialog 0) V9 l3 `* `% k/ l/ o% @$ ^; y
)
/ T% w; p$ l2 u- w4 w
;;
# J* h' l) B, C
;; This function pops a dialogue box consisting of a list box,image tile, and
# q, l9 Q3 s# A9 \0 k. C
;; edit box to allow the user to select or type a layer name. It returns the
0 L$ t2 t3 n/ q1 r; ]- ]
;; layer name selected. It also has a button to find the status (On, Off,
. a4 u: }6 s9 \
;; Frozen, etc.) of any layer selected.6 v% m: R$ |/ Q5 _* S+ d, o
;;
" j2 ]9 A) M. R4 w, j
(defun getlayer (/ old-idx layname on off frozth linetype)
# v! l. G# L9 Q$ l1 @
;; Create layer list the first time the layer2 H" O- ^+ s7 y0 s" ?4 `+ R
;; dialogue is called.
7 q, }0 R7 S# a& [
(if (not lay-idx)
8 Y: q& s a* I8 Y9 e
(progn
5 ~6 v+ Y# ~# J' A* R
(make_lay_lists)
% L) Z9 L' G+ b3 S9 R; ^
(setq lay-idx (getindex elayer laynmlst))- Q9 Q5 f5 z, f( U1 V
)
$ E% L% @5 ~2 Y. Q, S' p" P- A' z) U
)" T3 f. G% e1 P- C( s r+ m
4 o+ |& h% x) d; F, w- N
(if (= (get_tile "error") "")
3 S1 g* _8 @: n* g# s3 O
(progn
' \4 _: P8 o: [' O. x
(if (not (new_dialog "setlayer" dcl_id)) (exit))
4 `9 p: C$ h A
(set_tile "cur_layer" (getvar "clayer"))
5 w0 m7 e: I- v4 F) m6 b3 J2 j
(start_list "list_lay")6 Q, F, H! ] |0 S8 y( d2 I
(mapcar 'add_list laynmlst) ; initialize list box& V' R4 f( i; i, p
(end_list)6 a6 u4 T1 g* Q7 N- x
(setq old-idx lay-idx)
' G& N! b0 ]5 R7 D8 |) K
(laylist_act (itoa lay-idx))
/ ~5 G% D1 x& h0 Y, t G2 }1 K) L
(action_tile "list_lay" "(laylist_act $value)")
0 t: H4 ^7 A8 |" r$ j& a- m
(action_tile "edit_lay" "(layedit_act $value)")
5 I% @6 f0 q, U4 R7 r8 Z8 A
(action_tile "accept" "(test_ok)")2 _* z5 g. @6 ^, Q) }& }; x4 e
(action_tile "cancel" "(reset_lay)")
# K7 R* f; X- o" f% w" K3 g! ~
(if (= (start_dialog) 1) ; User pressed OK- j" \" k3 r7 g+ v
(progn" g$ h, f/ o( P2 n" j; b
(set_tile "t_layer" layname), A$ b1 \2 G* n6 b! F
(setq elayer layname)
# m' @& D! b: F, T
;; If layer equals bylayer reset color tile3 N& e4 b0 _1 U) e4 q
(if (= ecolor 256)
, K6 d8 N: }8 l s( ~% R
(col_tile "show_image" (bylayer_col) nil)/ i$ i$ u1 c2 X1 M+ u2 Y
)
) w* R" l9 S+ t: {6 q; ?' G9 a' A
layname
5 U6 D& L2 |$ C6 |9 p
)6 B) { e, w# p" d' K' x0 G
elayer
& `- Y) E, D. x2 `
)6 `, a/ m! J; E$ O% x; {
)* |' ?" T* F; ?2 f1 }
elayer/ a" t" u( z) y1 W& M
)- U4 m8 `0 t. S' j; U7 f
)
) X# P, Z4 n6 f6 b6 @
;;
+ W! e \8 [( X" M4 W5 }$ y( ]
;; Edit box selections end up here. Convert layer entry to upper case. If. v0 T0 F" r# b$ A, V" f
;; layer name is valid, clear error string, call (laylist_act) function./ l' F9 p( ~) h6 C0 }* o6 W5 x0 X
;; Else print error message.
. g# ^! k* y: m* R j3 Z) x" T- B
;;# [5 a3 ?' D( v+ { p
(defun layedit_act (layvalue)) Z* K5 P+ i% N3 y N) ~& l
(setq layvalue (xstrcase layvalue))( r: H% k. I Q. }! M" y
(if (setq lay-idx (getindex layvalue laynmlst))
$ b3 P7 F* N. A3 M e
(progn8 W0 K4 q2 ]5 e, O1 c$ n
(set_tile "error" "")6 i" I" c2 @2 E/ ]
(laylist_act (itoa lay-idx))
9 ]1 |4 V ~9 ~$ f9 _0 G
)
! y; e0 R$ h" L6 s$ i- w! r
(progn0 w3 @0 e; i0 u9 \3 ^( h$ Z/ o
(set_tile "error" "Invalid layer name.")
* k0 D8 t. c# Y, B$ D0 s5 {0 W2 h
;; (mode_tile "edit_lay" 2)# y3 v3 t& J3 {: r8 u8 I; R& u9 }
;; (mode_tile "edit_lay" 3)4 X5 D/ u7 z1 S3 Z% I+ a$ `
(setq lay-idx old-idx)/ _8 [- y% [- K
)2 W: T4 A6 \' A2 h0 S+ L
): A% B+ o; c P9 b) O2 o2 E- E
)
0 Y4 o3 w g5 v
;;
. b# O6 b+ \/ E3 _9 p A5 d
;; List entry selections end up here.
% |! A7 d- w" n" f6 T
;;
% X; p1 ] }5 g( q0 j
(defun laylist_act (index / layinfo color dashdata)
" f8 e0 S6 c$ v# T# |3 o2 o
;; Update the list box, edit box, and color tile.4 H5 ~, z& [& c
(set_tile "error" "")
7 Y T( N* R4 e# ~! W7 ?* }
(setq lay-idx (atoi index))$ o/ [- U" M4 x" F d; l
(setq layname (nth lay-idx laynmlst))" ^2 x1 E4 S2 m) P/ T# g7 a6 _
(setq layinfo (tblsearch "layer" layname)): T0 A/ g6 ?! Z& a% x y) W
(setq color (cdr (assoc 62 layinfo)))4 w4 ~' F6 J( O1 w; f- U, N$ B: s
(setq color (abs color))! p4 P/ q6 s( a
(setq colname (colorname color)): ] r) e. m: z5 p
(set_tile "list_lay" (itoa lay-idx))
& Q) H; A1 X, i( c$ L8 c
(set_tile "edit_lay" layname)
) h: z+ ]% I' F
)! q# a v0 q) ], k& l$ n# z
;;; q3 V5 ]; e3 j4 J( A; b8 O
;; Reset to original layer when cancel is selected.
8 p9 x# C) x1 m s
;;5 ]% y6 h! }4 P6 z) P" T
(defun reset_lay ()
! v% B1 }3 J0 s8 y5 U
(setq lay-idx old-idx)
9 D/ B( y8 q" D1 L2 n0 _
(done_dialog 0)4 ^4 O0 C3 g+ X2 o
)
$ F8 {* q- X7 Z* J
;;& o/ ?+ @4 h) j. G9 i
;; Checks validity of thickness from edit box.2 u" I* l8 x% z, a
(defun getthickness (value)5 v0 q- P0 Z$ s5 o
(setq ethickness (verify_d "eb_thickness" value ethickness))
! V# g- k& M! \# c# t
)
6 h3 ?9 A$ W6 S# Q y" h6 l l: L
;;- Y) `- p" l" \' e1 F W0 W6 k, d
;; Copy of (getthickness) for ltscale. If more, make this function. T# _- @5 L2 b$ }
;; generic.9 _2 X& r- n# C) E; O( s
(defun getltscale (value) Q- b4 e4 p. \9 c2 S f! w0 @
(setq eltscale (verify_d "eb_ltscale" value eltscale))
" p8 [) O8 F/ W6 \# x( Y9 m4 y
)
) q. d. K# ~( y; S+ c7 f
;;* N7 q0 z( i5 p3 S! f
;; This function makes a list called laynmlst which consists of all the layer
, p' f7 e% W2 {# U( L
;; names in the drawing. It also creates a list called longlist which: U- ^/ r8 q% g1 b7 _7 Y
;; consists of strings which contain the layer name, color, linetype, etc.1 i7 a9 r S* i% k' d& k
;; Longlist is later mapped into the layer listbox. Both are ordered the
6 @: ]5 f6 \' E, g. H8 V* u5 \
;; same.
9 V% V3 x) ?6 G. n
;;
+ P. @) S" R( r, K" I, a6 \
(defun make_lay_lists (/ layname sortlist name templist layer_number)* W) [2 c8 d. g1 }
(setq sortlist nil)
2 q2 ]( R/ r p4 I
(setq templist (tblnext "LAYER" T))# b2 ~ a7 y3 J8 z, Z
(setq layer_number 1). B3 j7 P h) o& h' B
(while templist8 Z% n! @* V: {1 p# |; S! C8 N' D9 {
;; No xref dependent layers, please.% m# a! L6 f- @' n) Z0 J- d
(if (/= (logand 16 (cdr (assoc 70 templist))) 16)) v- E( {" { X) U8 i) m7 b8 h
(progn
& W- Z1 V# T8 |& b, A e; @
(setq name (cdr (assoc 2 templist)))
0 I1 h0 a- y( O2 E% K0 }5 n
(setq sortlist (cons name sortlist))+ A) Y' I" S3 z( X
) s' |+ S! Z" F( B7 T8 {& Z
)
) j; B& @+ ^" n- |+ n
; Get the next layer.
% U) L6 [' f1 h( v$ J4 V! L( B
(setq templist (tblnext "LAYER"))8 k1 l9 d0 k* s. A6 f" d
;; Not dead message...0 Q" b2 o5 i- N( ]
(if (= (/ layer_number 50.0) (fix (/ layer_number 50.0)))1 |& U6 `! g$ Z/ d# P
(set_tile "error" (strcat "Collecting..." (itoa layer_number)))3 o5 m7 D! E9 F2 ~$ E
)( F7 N- p% E X6 [& h
(setq layer_number (1+ layer_number))
X9 W8 l$ k0 Q9 h% ~& z6 g0 x
)
4 _9 W. @% G+ Q) d8 j
(set_tile "error" "")+ L* |; y1 a, A3 v
(if (>= (getvar "maxsort") (length sortlist))
# q5 O9 v( W H7 d: s! m) u3 a) Y
(progn* O# U% ? I3 a0 K0 I5 E- ]- ^
(if (> layer_number 50)
% A& E) M( S f) v( e* M" P
(set_tile "error" "Sorting...")% g" @7 ~1 s: t9 v: g% F, ~3 D
)6 @; }; r+ v" T* \. S3 P+ h p" t
(setq sortlist (acad_strlsort sortlist)) X% B* @& q* t
)4 g$ |6 O, P" z
(setq sortlist (reverse sortlist))
0 M/ d( M, ~7 C' r# G& W, b& v2 `
)
7 |$ z" H5 q) }! B, i8 z% Q
(set_tile "error" "")
* L7 o" V7 u, u+ `0 b0 G# |. L
(setq laynmlst sortlist)
b7 P- P" i0 | u3 {- ], x
)+ ?+ W! ?7 g3 f$ W2 s! \) h
;;+ z1 v. j3 Q( b& Z; p- o
;; This function makes 2 list - ltnmlst & mdashlist.
) T8 e) t0 X. ]9 r
;; Ltnmlst is a list of linetype names read from the symbol table. Mdashlist% ]) P1 q, }% L* Y# }
;; is list consisting of lists which define the linetype pattern - numbers, o- E$ n( |4 J' r* z
;; that indicate dots, dashes, and spaces taken from group code 49. The list
g# b8 H$ ^! e$ h6 s, i a
;; corresponds to the order of names in ltnmlst.: X# s) j$ b6 r$ W! r- S! P
;;
+ S2 c, G; P; }9 R4 V4 ?0 w
(defun make_lt_lists (/ ltlist ltname)' t) ? Y3 o) r! i; D% `0 |
(setq mdashlist nil)2 u) u: ~. X* ], J% B- A% e
(setq sortlist nil)
. m6 ~ T: ]! I7 |% n
(setq ltype_number 1)
+ k' N) p q% l6 {" q( r2 l
(setq ltlist (tblnext "LTYPE" T))
/ N2 a) F, T# a& I: n8 h
;;(setq ltname (cdr (assoc 2 ltlist)))
- i, I* g( e C( F
;;(setq ltnmlst (list ltname)) `6 N% q5 k0 k% f* e' H
(while ltlist: z5 U* A& G* m, [; V* a6 R) j
;; No xref dependent linetypes, please.
5 \ ]+ L7 |! R; r! {% W( M8 [2 o
(if (/= (logand 16 (cdr (assoc 70 ltlist))) 16)
! @: M* K7 H, z$ n5 w
(progn. B5 C8 ?( y* r+ c4 R& R& O _
(setq ltname (cdr (assoc 2 ltlist)))
; {8 J- V8 y% E! Z- Z H, F8 z
(setq sortlist (cons ltname sortlist))
# p7 z/ P' K1 z E/ B
)
3 A, ]# X) V3 N/ a
)
+ h! z5 i1 o+ m r6 E# L" @: i
;; Get the next linetype.
% x1 W! u. q6 p' t
(setq ltlist (tblnext "LTYPE"))$ y. x( e( _( L! _! f+ x* ^
% ?& i1 X2 d& T( T
;; Not dead message...9 L2 J8 Q* S( Q8 E6 [: w
(if (= (/ ltype_number 50.0) (fix (/ ltype_number 50.0)))) p9 v3 B, L: Z$ v6 ^
(set_tile "error" (strcat "Collecting..." (itoa ltype_number)))2 J7 _) [1 t) I# X; X
)
- @1 b; d1 G, o" p+ g8 D
(setq ltype_number (1+ ltype_number))
! N& c3 Q0 B; @; L& H2 t1 b
4 f7 ~' |! b% a+ W- X
)
* n6 H7 h: |# o2 L3 _
" }3 k' L1 i& E {
;; Remove Collecting message.
k5 E7 Z0 D P
(set_tile "error" "")
5 r7 E, m+ \* O% {, F
4 Y7 T7 ]& @2 P* Z
;; Sort based on maxsort.; w8 p; f) J8 D4 A
(if (>= (getvar "maxsort") (length sortlist)): h$ O( J8 A9 e3 p2 H% j
(progn8 i2 d2 `; {5 z7 Z/ s
(if (> ltype_number 50)
2 B+ L9 o: K5 h$ \. y% o
(set_tile "error" "Sorting...")
8 i# @+ \7 e/ [8 |, r
)
) ?. F- C- Z4 j/ C
(setq sortlist (acad_strlsort sortlist))- @% S: k9 [% m/ r" m! \
)2 T1 M# n0 p4 `$ Q) P$ k% k
(setq sortlist (reverse sortlist))* h" n, x- C i) J2 t# |
)
6 T& X' S$ h6 y$ X: x
(set_tile "error" "")& @" T, T. v) e4 e2 n5 ?) c
(setq ltnmlst sortlist)
. K5 L- R% d- {5 g
; G$ y9 p4 h: p3 W# F/ Q. z
(foreach ltname ltnmlst2 U# Z |6 F2 s( @, d {
(setq ltlist (tblsearch "LTYPE" ltname))
5 U! R3 E! i) ~; w4 y! b6 [6 y2 b' W
(if (= ltname "CONTINUOUS")
; A+ G/ f& r$ ~, s8 ^
(setq mdashlist (append mdashlist (list "CONT")))
+ [, v- L4 @2 B. |, g
(setq mdashlist& d' a- p. `% m1 {/ q6 n9 }3 `
(append mdashlist (list (add_mdash ltlist)))
, s5 b4 r& H5 t6 U8 |
)
( W! n% s# Y3 \0 g
)! y& I& |% k6 Z
) e9 L( g. x6 n y- C V3 E/ b
(setq ltnmlst (cons "BYBLOCK" ltnmlst))/ A5 s$ p$ o1 o, q+ K7 z
(setq mdashlist (cons nil mdashlist))) @! z9 N- g0 |2 @# |- h! \& o
(setq ltnmlst (cons "BYLAYER" ltnmlst))
8 V$ O4 m- J D: ~
(setq mdashlist (cons nil mdashlist))7 E. C G9 ]# A( b& \6 ~
)
% x1 I+ l/ k' I3 I! c
;;# h9 L$ V$ r! h5 e& W
;; Get all the group code 49 values for a linetype and put them in a list
- F- y5 e0 x, ^* o' [% `8 s
;; (pen-up, pen-down info)., J7 \7 \% m7 O2 P7 E% x+ I. C
;;7 F! K/ z7 I# h2 D, m
(defun add_mdash (ltlist1 / dashlist assoclist dashsize)) d5 @) a7 J. _% h ~0 _
(setq dashlist nil), B4 e5 H! Q0 \1 A2 z# V8 A
(while (setq assoclist (car ltlist1))
# ]8 b/ g+ S. ~2 b s
(if (= (car assoclist) 49)
- a% ^/ k' c& j# W- T
(progn
9 v/ i( _: i: k3 }' J7 r
(setq dashsize (cdr assoclist))
5 O1 i- c% S; Z
(setq dashlist (cons dashsize dashlist))
3 I% q4 R: s# d4 X& @" r
)
2 D; ?. { E& x3 A, a
)
4 [, F" D% m9 l! F* F- ~
(setq ltlist1 (cdr ltlist1)): G2 _9 F* j3 S8 x2 f- x: B/ `
)& _9 U& d1 D1 X( n# X7 ?% L' y
(setq dashlist (reverse dashlist))
X0 @( x: X; }; ] P) ~8 R% Z: |
)4 l$ N1 M' p/ V, E0 w5 F
;;, W. |; p8 i' r$ J# u
;; Color a tile, draw linetype, and draw a border around it
. W1 {. _; g: |/ |1 F4 @$ T) K
;;
+ m" I0 o% f/ ~" f9 K# h
(defun col_tile (tile color patlist / x y)( i" Z$ r( J# H% w c, g4 W
(setq x (dimx_tile tile))- {2 m+ ~+ }6 s: `; C( b
(setq y (dimy_tile tile))
7 Q' z" N5 a1 U9 U
(start_image tile)9 R- A/ o, t9 h H- k3 ?3 t. i
(fill_image 0 0 x y color)
) T6 A3 h+ M$ J* G2 X7 x3 x
(if (= color 7)0 ?! {& I# ^* e/ f# w
(progn
3 a2 s ?1 d% T) H& d
(if patlist (drawpattern x (/ y 2) patlist 0))/ f( W; r( J+ x
(tile_rect 0 0 x y 0)
" }! E1 w( Q& j
)
( W/ W3 o, r" v7 F" w5 q0 v
(progn( o& \4 P& ^+ h
(if patlist (drawpattern x (/ y 2) patlist 7))3 p7 c1 o- g. T& |( P, V
(tile_rect 0 0 x y 7)) l2 m4 X( Q+ T0 J; I l0 @5 l! V
)0 Z1 `' q+ s; d! A" L" p
)# R1 ?/ e7 f3 W+ d
(end_image)
: R5 E- `7 G: |$ A1 S }
); y; \/ B& Y ?5 T# G+ A: d
;;& k8 F. p* V/ i4 [% u' d: `
;; Draw a border around a tile: y0 V" T% Z8 s! V
;;2 [6 R* r& z0 n3 S1 U: B; H
(defun tile_rect (x1 y1 x2 y2 color)0 O* j8 A5 ?4 t F" |1 h
(setq x2 (- x2 1))
2 L4 Q" V# J* j' t0 g4 ~' k* x
(setq y2 (- y2 1))
* n6 C& N! X% w
(vector_image x1 y1 x2 y1 color)3 B! k: g$ E6 | P
(vector_image x2 y1 x2 y2 color)) O4 A ]1 O' O3 i( {( b, Q) n- g
(vector_image x2 y2 x1 y2 color)
( B3 {8 F- F, m# I' ]7 [
(vector_image x1 y2 x1 y1 color)
$ V: G0 G; {* K7 H/ i
)7 n& c2 E0 `0 @1 h1 [! z" k
;;+ D8 o1 h1 A. C* i d2 h5 T1 ^& o
;; Draw the linetype pattern in a tile. Boxlength is the length of the image
/ M- ]% c" a6 p: d3 h! {
;; tile, y2 is the midpoint of the height of the image tile, pattern is a
4 ^: S8 G; C+ j8 |
;; list of numbers that define the linetype, and color is the color of the
$ Y- X3 n9 m( t: o, p1 u, d6 t$ n
;; tile.& h8 Q; S( F! W1 K
;;% V" x+ D# p! T
(defun drawpattern (boxlength y2 pattern color / x1 x2* [# V$ i& \- [- [2 G
patlist dash)! L! k( }. N g5 m$ O" V7 q
(setq x1 0 x2 0)
7 F: D. r9 P$ u, Y* f+ Z& M
(setq patlist pattern)# |3 W3 g' `4 }
(setq fx 30)
( {8 X" S& y) _! f5 x" ^- q" b: v
(if (= patlist "CONT")
2 s4 K- g# d: b$ a! e0 G$ Z; B
(progn (setq dash boxlength)
, w+ g$ f% S* [3 C* \5 D
(vi)
% k X0 U1 p' j/ A6 R; U$ _* O
(setq x1 boxlength) o6 _7 z0 B/ U$ ~/ G6 V
): x# d3 ?9 w! w- ?8 i
(foreach dash patlist, h; ]* A+ I2 [% K
(if (> (abs dash) 2.5)% c6 `( H9 {- F/ r/ c4 o
(setq fx 2)
' |" R: u% q$ {/ Y- ^# `6 G o$ E
)! o$ \2 x& u- p
)6 q. L- b4 q6 V4 Q6 @' B G. i; J2 ~
)
; N6 r0 _% _" j/ V
(while (< x1 boxlength)
! n4 r0 q9 t& A1 } g4 x
(if (setq dash (car patlist))
$ W4 E3 R4 l, i( [
(progn
2 f& a+ l" g2 p8 t# a) l% R. v, Z; x
(setq dash (fix (* fx dash)))
* s- R4 v9 U6 [1 K }: {6 e; a
(cond
& y% e6 }& m) ^0 S8 M
((= dash 0) (setq dash 1) (vi))1 A0 [; r& ~5 }% r/ Q" V
((> dash 0) (vi))+ X* w* H* F }0 I) U0 {, Q$ g
(T
5 z& ~8 @0 K9 l+ e9 }
(if (< (abs dash) 2)& e+ t2 x5 I- ~2 N
(setq dash 2)6 L& n' b* c/ G/ U! i! l* K }
)
/ S7 h- [* b6 {2 B) Z/ z
(setq x2 (+ x2 (abs dash)))/ t4 p) ^8 r7 n( i- g
)
6 H2 j9 H: x1 H( L
)& u4 C3 p8 K2 H: |4 N6 X! r, G# V
(setq patlist (cdr patlist))
2 ^: m! s! t N% R0 h7 C
(setq x1 x2)
5 {. S, p8 Q* v: Y& \2 s9 X& s4 e
)2 l2 ~1 n$ h& n
(setq patlist pattern)& `- @' c2 K" H. @/ T0 [% s
)1 q6 J4 n9 ?/ Q/ z/ e9 E
)
6 i8 W4 I4 g4 D, ~
)% l* e* u3 D7 m1 E+ m
;;
+ F8 D2 }9 M" L+ _
;; Determain state of xclip# R6 Z9 E& F" b; W( ~9 U2 U! h
;; Returns the group 71 value of the spacial filter dictionary.
! J2 C+ w' z$ o! \
;; If the entity doesn't have a spacial filter dictionary, this6 G6 T% k- v: J! w
;; returns 0. If it does it will return 0 or 1 depending on the
+ j* u0 g4 p1 p0 |
;; current setting of the state of the clipping visibility.
' o) S: b1 ]+ o9 D0 ^5 h- H4 Q& k
;;5 X2 N9 A, o8 Z% p% j7 }
(defun xclipon(elist). j1 p6 n9 f. i( @8 R
(setq hasclip T)4 D9 c, ^3 N* L' V& y! j W% x
(if (/= (assoc 360 elist) nil)
/ g2 T8 J% T$ t% ~
(progn* J8 U; \2 |( L
(setq tmp (entget(cdr(assoc 360 elist))))% b9 X: x: t; M: ]/ t1 O
(if (/= nil (assoc 360 tmp))
, {" S4 `' ^- l: ?7 t
(progn6 c! _1 J R! q, e! b, ]' ]& T
(setq tmp (entget(cdr(assoc 360 tmp))))
. w4 g' |( p6 c" O1 z( O- c( y& r
(if (/= nil (assoc 360 tmp))
1 R; D$ ]- h k
(progn
! `( C4 ^! H" |4 m# o
(setq tmp (entget(cdr(assoc 360 tmp))))
$ k7 y- m9 K* u' z) P! w
(if (/= nil (assoc 71 tmp))* x0 ~; ~; H. X* G! x/ G
(cdr(assoc 71 tmp)). S7 @* e) J! x" z& O
(progn
: d. D0 o: ~& k" ~7 D/ b
(setq hasclip nil)
7 K- m2 ~+ {/ L
(eval 0)
5 E3 D; l& D$ D8 ^4 c1 }
)
0 y2 J8 C+ A3 V) Z0 Z$ I
)8 ]1 [9 p1 P+ I5 L6 T/ N, F& [
)" Y; }( q' `/ w$ k# ?8 e1 U
(progn
5 y, T7 j$ a" C |3 `. C9 T/ i& L
(setq hasclip nil)/ T8 J7 ]5 \$ N/ G" B$ [" L
(eval 0)
; [! [/ w8 A* [: Y( Z
)
4 `$ W# @* r+ t
)
* g+ r/ y' D' Y. A M
): m: K) E0 z/ I6 F+ t) ?
(progn
; c" e9 c: {. Y2 F- p& u; O
(setq hasclip nil)
1 U8 ^/ w9 P8 {2 c" P$ e( _
(eval 0)! L4 i; i1 p/ }& B8 V
)
& }' E. i% _8 y( h5 ~" J
)
0 V( v. q: `! B+ M
)! A! q" y+ f, O1 h" j( _' r3 Q
(progn 0 v& q" X0 K' n! l/ u o
(setq hasclip nil)
% V& s: B6 d- M4 T
(eval 0)
6 Z$ V( Y- W' t$ l6 \
)& }- U: ]* }8 M$ w' r
)
5 z L8 O$ L4 r
)9 u! J: ?1 W: v, l
;;$ p/ V, V, R/ m% V5 \9 S2 q
;; Draw a dash or dot in image tile! Z/ }/ `& ^. t1 L
;;3 n- C; O4 @. N
(defun vi ()
4 R7 y4 w- f. o& S9 c, k4 ]& p
(setq x2 (+ x2 dash))
& I% q# k( S2 q" b5 T
(vector_image x1 y2 x2 y2 color)5 H; v( h3 U7 _+ v* m4 L
)
, o0 r/ I2 h4 a# K2 o& |" N
;;7 }+ a8 I* k8 f6 _
;; If an item is a member of the list, then return its index number, else% Y/ B G3 K9 C
;; return nil.9 n8 n" W* i1 R# r
;;
3 a2 Z- v+ H& D8 ~
(defun getindex (item itemlist / m n)
- v4 p+ D. ~7 _; L: A( {6 R' Q
(setq n (length itemlist))
l" I' q- O, g( [! T
(if (> (setq m (length (member item itemlist))) 0)
5 T) z3 t q9 r: M+ B
(- n m)
/ S C; [( Z( K! b
nil
* f' ^& H+ n+ q+ n1 s+ k( t
)5 v6 ]* f0 P7 f' k5 A, u e
)
6 t* \, W4 l) M, u
;;
9 Y) G; I1 k& l8 X2 m- k' s0 A9 Z
;; This function is called if the linetype is set "BYLAYER". It finds the
G0 o6 R- @! Z; F j0 P& B
;; ltype of the layer so it can be displayed beside the linetype button.& L8 `2 s g& N, a- D$ Z* d1 u- K
;;: v' Z* V% \, D2 S7 R
(defun bylayer_lt (/ layname layinfo ltype)+ B/ U7 G% |: [2 t
(if lay-idx
: r6 l6 q, O! q
(progn
7 I$ t& M1 ^. I% u* _
(setq layname (nth lay-idx laynmlst))
* r3 }- \+ o/ Q P- G2 w
(setq layinfo (tblsearch "layer" layname))
6 L' _- ^: t) h) C: b
(setq ltype (cdr (assoc 6 layinfo)))7 S! a# G4 L; A+ Q1 t- U& R
"BYLAYER"* t1 Q9 C( q& k; Y- N
)7 {9 _, P% b2 T- {. z2 _. X
"BYLAYER" A, U6 k$ U1 p/ ?
)
1 J9 r; f" V' |. K/ ~, n
)
M! h: ]- Q% C2 v& \
;;8 Z+ r" g: y' ^& p1 m3 H5 H/ o8 C" Y
;; This function is called if the color is set "BYLAYER". It finds the color* L; ^+ y5 ?8 x5 n
;; of the layer so it can be displayed beside the color button.1 ^3 V/ [7 A/ N2 B/ ?) D
;;9 v. |& D5 r ~3 {
(defun bylayer_col (/ layname layinfo color)7 |1 H t A H6 \ @2 ~
(setq layinfo (tblsearch "layer" elayer))
$ ~ K# ?3 K/ ]. g1 h" V, F0 ^
(setq color (abs (cdr (assoc 62 layinfo))))
6 }; F1 L- y' Q6 E( O
)8 x4 G' i- O+ ^) Q/ J
;;
* ~5 T+ w7 |9 g0 K2 [4 Q# n: ]0 u
;; Used to set the color name in layer subdialogue.
7 K a5 E* h6 r3 @; E/ F, \
;;( f' d% \# E) M* C
(defun colorname (colnum / cn)
: Y2 k& g$ L, p6 t7 m0 u G
(setq cn (abs colnum))9 y9 d) b6 K0 W
(cond ((= cn 1) "red")' v! |6 l& s' s) E1 A1 n
((= cn 2) "yellow")
) |1 e* p U6 ^( Y
((= cn 3) "green")
6 p. z# U- l* X3 U8 y: {. C
((= cn 4) "cyan")
! O2 n: \; Z+ @) Q# x b- Q% k# z, `
((= cn 5) "blue")
8 M6 a2 ^/ q- T* ^7 Q$ [ M
((= cn 6) "magenta")
9 J" V0 I- M, w" ^' S
((= cn 7) "white")
# `7 }. g0 m4 X1 L
(T (itoa cn))
- Z+ p2 N3 h$ h* E4 u, U. G
)
) e) u( H( J' J6 F
)
* i9 s, T2 ]0 n
;;2 U0 f' a8 v3 v% Y
;; If their is no error message, then close the dialogue.; K: L" j5 ?; H- o7 m8 `0 u0 L
;;
! }7 h$ F0 K3 t
(defun dismiss_dialog (action)5 ]5 o* u$ |) z w
(if (= action 0)
9 O/ r2 Z4 A; c2 L8 W1 M
(done_dialog 0); f8 i3 d8 E, r& q, x0 H, t# [
(if (= (get_tile "error") "")7 ?1 U2 ]& P4 g& r6 S
(done_dialog action)$ @( E3 j% d! c! V* e
)1 Z7 u. \- z! B4 Q
)! R5 F O. F7 Z2 H( r2 t$ O% e- C
)" Q |2 Q, u! g, H) ^
$ D% L# }; V* B. Z: h& L( A. w" T
(defun test_ok ()
- m1 L, Z9 f/ N+ l+ L! R: ]" i4 s
(if (= (get_tile "error") "")% \/ f Y% V+ Y' k( N! U6 M' o$ C
(done_dialog 1)
0 x+ P; I4 p8 T" @- w& w! n
)
" O6 A# v1 J, V8 A( M9 V1 Y; ~
)3 S0 V: @( a; Y& k" i: E
2 r8 d$ p9 r8 _* J
(defun cancel ()$ _2 A" ^1 t* H% a* e$ }, z
(done_dialog 0)
- P! B, }5 ]* d5 L7 c: W( M) g
)
8 W# i: ~7 w: l9 I) z
6 b7 p/ }. A) x! K$ O( [! D R- ?2 p
;;; =======================================================================
& m# S) v p ~. N
;;; SETUP layer and linetype lists for application, and initialize all
% u$ N/ W% ]4 N ~3 P
;;; program variables. c: Q5 n3 j' p0 O5 \7 R [; V
' X3 u9 [% x- Z) c6 T
(setq elist (entget ename)
2 {6 }3 e% q: X
old-elist elist
' O5 m! I1 v D0 w$ V/ i; @
modlist elist
5 Y4 r! m6 I& l- r
etype (strcase (cdr (assoc 0 elist)))
9 g6 p6 A0 l: K: j% b1 P
ecolor (cdr (assoc 62 elist))
! L- s3 Q! e: D5 r) \
elayer (cdr (assoc 8 elist))3 a2 B7 _! i6 \0 \+ G; }
eltscale (cdr (assoc 48 elist))
+ `9 q) M4 A. p
ethickness (cdr (assoc 39 elist))
) p3 `& r; r( K6 W5 a
eltype (cdr (assoc 6 elist))$ Q& n, I6 ^+ P7 z/ } [
)
D0 t6 a+ r& N% N m/ d R6 M
(if (= (assoc 210 elist) nil)9 F) ~: T4 Y, a( x. d. r
(setq extru (list 0.0 0.0 1.0))
# [7 Q" l, c6 r" s7 j+ x) `( B
(setq extru (cdr (assoc 210 elist)))3 k: y" \$ Y% p8 ~) d( w
)
3 U0 z, ^& j/ L% t
i# U7 {8 u) `# D! e6 _# f" C
(if (not ecolor) (setq ecolor 256))3 ]& G' B$ E f; P9 f" G- s
(if (not eltype) (setq eltype "BYLAYER"))
; T7 s' x) l/ H8 [+ u' M# I, W
(if (not ethickness) (setq ethickness 0))+ }& m/ r3 ^; _" T0 |
(if (not eltscale) (setq eltscale 1))
& P3 I2 C0 E2 L8 i$ [/ b$ t0 w
) ; end ddmodify_init
0 p! D" _9 I* ]7 T
2 Q% R$ ~- V5 }3 g5 [' K1 C
;;; --------------------------------------------------------------------------
+ h. [+ e& s5 V% h! Q; \
;;; Function: DDMODIFY_SELECT9 Y1 ?) W. o6 p: i7 e
;;;7 X2 g0 M9 }5 z3 _8 q) q% W& s
;;; Object aquisition function.
# }1 V0 I8 M4 A9 H4 |2 n
;;;
. \& [ H2 w3 h0 |5 x, L# x, p
;;; (ddmodify_select)
3 H" }4 ^$ H' T& \+ n! F& d
;;;
' {) r V% o a* M9 D: V) P
;;; Obtains object to be modified, in one of three ways:0 G9 _: `+ o8 e% H8 @0 B
;;;
9 s; ?& O/ q8 j# d5 N
;;; 1 - Autoselected.0 S7 t$ e3 X/ e9 \" \! U4 Z
;;; 2 - Prompted for.
/ J/ j: e$ [- M0 @' U
;;; 3 - Passed as an argument in a call to (ddmodify <ename> )' ?" g; P/ i! T& m1 w: v) G
;;;
: p3 a; N6 _# m( J, V1 A
;;; The (ddmodify_select) function also sets the value of the2 W8 q9 ~6 j" [1 _9 d$ t
;;; global symbol AI_SELTYPE to one of the above three values to
4 h9 E9 T2 j% K3 T
;;; indicate the method thru which the object was aquired.! Q# ~3 O3 \4 h4 y# o
;;;* g* k" ?4 W$ R& ], {
;;; This value can be useful to applications that want to RESTORE3 P) o; [5 v7 l2 x
;;; an object that was autoselected to its previous selected state
8 d; ^# v) j1 x
;;; when they terminate, although there doesn't appear to be any
" S2 J0 C$ H$ \# F8 C9 _1 L5 k
;;; way to do this right now.# h: N4 C: W( |$ ^8 i) U( |
& z* x; z( y# }$ q+ f4 Q
(defun ddmodify_select ()
4 t/ a! a' v% u( D6 e1 Y+ J
(cond
) q) c5 ~1 k0 A$ l
( ename ; (ddmodify) was called
& V# y' t1 }- t
(cond ; with an <ename> argument
. x, n+ \% F6 _
( (entget ename) ; If object is non-deleted% y( O5 T' m( V9 I+ Y
(setq ai_seltype 3) ; then return its ename.
& y1 h) S, m! b
(ai_return ename))))
$ |2 G& }& W' h/ k
! u$ p+ q7 e1 c+ }
;; return auto-selected , see ai_utils.lsp/ _, T9 f5 L L3 y* M2 Q) U! S
( (ai_autossget1 "\nSelect one object to modify: "))* r9 A ]' l- a8 _! [
x5 b5 u T- i8 r1 s
(t (princ "\nNothing selected.")6 w) w- b. K4 B% i# N x
(ai_return nil))9 d- m* V, u; r0 e! j
)# `0 _, b+ j& F$ o) L2 z* B& J
)' s) X) U# _6 D- s
" y2 E* R1 I$ p- V# c( V
;;; ============= Command line interface function =======================& R( M* g- r7 F0 a/ `9 V6 `
. a4 @8 J/ f; ]1 _& \$ a
(defun C:MMO ()
% J7 J% u- E* V
(ddmodify nil)
/ Z, e8 T: s1 e6 B, b) M! @9 s
(princ)! V+ c. B, Z$ g. u I8 o
)$ N! i* l H' B+ ]
/ a" y/ _% v- r6 a3 `
;;; ================== (ddmodify) - Main program ========================) s3 A7 B* J B
;;;
# u# n) o, [/ c2 k/ J& u
;;; (ddmodify <ename> )
. k8 s2 ?( q5 p% \7 Z& l- ~% ?% |
;;;1 D4 c! e+ y# R( [. F8 M2 V
;;; Main program function, callable as a subroutine.+ K2 f5 D/ m, s( e3 K' y5 p* e
;;;. v: n, N% }1 s, C6 i( @1 h% |. s
;;; <ename> = object name of the object to modify.3 J+ p9 E. k3 a1 V, A- a& B
;;;! t! K& _/ p) E2 _* X
;;; If <ename> is nil, then user is prompted to select
4 C8 Z1 T: f/ o1 z) F4 Y& d1 C2 Q
;;; the object interactively.4 i" D, q- i8 W% H6 [0 |/ L$ y! `
;;;
7 U2 L* [' w$ H/ ?% D( O) L
;;; Before (ddmodify) can be called as a subroutine, it must/ Z) O8 A9 N1 |9 X; Y
;;; be loaded first. It is up to the calling application to1 }/ A: O% v, S6 b' x; G
;;; first determine this, and load it if necessary.
- V, I( r, `- c2 J' |
' k8 q4 D( l! [. ^/ x4 z
y7 \0 t2 v/ L- L
(defun ddmodify (ename /$ W% f9 }% r4 i+ M8 s; ]4 e
2ndpt ell_calc_area move_pt1 templist
& M' @9 n$ n) p4 A* l8 q
add_mdash ell_tile n tempmod
1 m. K# V z1 X" n
alipt eltscale name tempst_ang6 U' @ _: ]* F8 Q
ang eltype newpoint test_ok9 Q6 f0 p% C5 \; R# A1 ~. r7 N
arc_calc emod next text& m. f1 F0 w- s; h
arclen end_ang next_vertex th-value
/ d+ I4 ?! m6 V- I
assoclist endpt obl tile
" L" w1 c0 a @ l: D$ b! X( v
atprompt errchk off tile_rect w/ B4 q+ ?; i* o4 e5 o3 X0 X
attag ethickness old_majrad tilemode1 O o# w8 |. E+ I3 \
attprompt etype old-closed totang6 f7 u% Y* s$ s7 h4 m; Q
bit extru old-closedm tstyle: a% l( G) d7 u$ V% ?
bit1 fchk old-closedn u
! x6 O& L) m, j) B% |7 I/ W
bit-10 first-10-rec old-elist undo_init7 r$ O6 }5 Y8 c+ u
bit-11 first-10-time olderr upsd
7 o d4 Z @$ _/ F3 G) Z
bit2 first-11-rec old-fit v+ ]' ^6 J* ~- e! v: v- q8 U. v1 Z
bit3 first-11-time old-idx va
( k9 _/ n) G# Y* c- t
bit4 fit oldlist value
2 m, z$ h! {, j! e/ ^
bit70 frozth old-spltype ver_4; K; f. \6 S! z2 x% j9 ?; v% w0 a6 q
bit-70 f-vis old-u ver_ang1
* c8 a2 G) L" R
bit75 fx old-v ver_ang2
- D2 H$ [0 j; ^' V
bk-up get_color on ver_col
( r0 j3 h1 q/ t" V5 Q+ b( Y A
bkwd getcolor onoff ver_colsp) {( {5 Q5 y4 W4 `: r2 K
boxlength getindex on-off ver_eangle: A0 y) W: f% B: }
bylayer_col getlayer patlist ver_hght
$ R/ z, A! n- y& o+ N
bylayer_lt getltype pattern ver_majrad3 Z' Q) u# U) d! a
calc getthickness pltype ver_obl" `: ?' h4 n! k$ m3 x1 k; ]
cancel globals polytype ver_pt1
, V6 m% x! u0 V- z( s
cir_calc ha pre ver_pt25 `5 E' `; L) G/ l3 c
closed ha-prev proplist ver_pt3
3 W' p; r4 H" C
closedm help_entry pt ver_pt4, V2 M( \3 I) [9 @
closedn hght pt1 ver_rad7 N( Z4 C I6 n$ g6 t5 P
cmd icvp pt1_eq_pt2 ver_rot
. s! [8 m( f, |3 q6 f1 }, w
cn image_add_vector pt2 ver_row; J. L9 `" N- j
cname image_clean_variables pt3 ver_rowsp
$ e( V: u0 t; c
cntl-pt-indicator image_cross_product pt4 ver_tag' O% a9 d+ _! Y+ E+ h) Q
code_71 image_disp_opt ptype ver_u6 \( _; L1 \* o& l* H. n6 `
col_tile image_dot_product radius ver_v! m; q% i+ n# ~- F
col-idx image_normalize_vector rational_spl_flag ver_wid
/ m6 ]( H: x# c8 u/ G, ?, l
colname image_rotate_vector reset ver_x1/ B' T' g/ a: p
colnmlst image_scale reset_flag ver_x2: o9 j9 u. ~ p; e6 N& x2 ~3 B
colnolst image_scale_vector reset_lay ver_x3
8 V; r/ J- `3 z
colnum image_update reset_lt ver_x4) {3 D @; S% y1 L
color index reset_uv ver_xline_pt10 \, g0 ^% I1 c, u* W
colorname inv rot ver_xline_pt2
* d5 y: }1 O' o* G( }: W- }' ^
colorno item rows ver_xline_x1
2 R! g# K& |3 N0 T+ y
col-sp item1 row-sp ver_xline_x22 b, o$ h3 y9 I1 r+ ~. }
columns item2 rrat ver_xline_y1+ E% ~4 Z1 ^/ Z' x' V/ F9 J
con itemlist s ver_xline_y2
- Q! r" y! O' O7 |' Y1 Q' ~) h
coord jlist set_action_tiles ver_xline_z1+ ^( Q4 H0 C* O7 i
ctr jlist_act set_just_idx ver_xline_z2
+ o" C# i0 z: q9 x2 z
cur-10-rec just-idx set_tile_bk-up ver_xscl0 j' v6 n9 w4 v3 w/ S
cur-11-rec layedit_act set_tile_cntl_pt ver_y18 I: v1 T3 q- \& q; T/ S
cvpname lay-idx set_tile_data_pt ver_y2
. f- [" F/ a$ i. k1 r
dash layinfo set_tile_dirv ver_y3% k$ d% S! _0 I
dashdata laylist set_tile_edges ver_y4, S' U$ A7 |# e% {
dashlist laylist_act set_tile_endang ver_yscl N; Z. M# l- Z8 v K% T8 _: N
dashsize layname set_tile_hght ver_z1
" ]. W8 |6 V9 R/ h5 U! q4 k) `
data-pt-indicator laynmlst set_tile_icvp ver_z2
4 h' c9 Q$ W, ^, f9 Y8 Q
dcl_id layvalue set_tile_just ver_z3
# l9 X' Q& F8 y/ x0 d* B
dd3dface line_calc set_tile_obl ver_zscl/ S1 O) N" w' w1 p' {& {! ^
dd3dsolid linetype set_tile_prompt verify_a
6 j6 I& G5 W5 y
ddarc list1 set_tile_props verify_d6 O7 a& p0 x2 B: Q- z% a
ddblock longlist set_tile_pt1 verify_i7 v' k" {2 E) f$ L5 X- v5 z
ddbody ltabstr set_tile_pt2 verify_xline
d+ P l5 ^$ H9 |0 [$ Q @- w
ddcircle ltedit_act set_tile_pt3 vfy7 k6 M0 j" i. p0 L& p4 O8 l
ddellipse ltidx set_tile_pt4 vi. K- Z: l g0 Q2 f- L# M4 T `
ddgetprompt lt-idx set_tile_rad vlist" l# i) k: s2 ]
ddgettext ltlist set_tile_rc vname
M5 Y0 _. j/ C& ^- C6 x
ddimage ltlist_act set_tile_rot vpf
% p. ^. f* G ^- u, p
ddimen ltlist1 set_tile_scale vpid
4 o, E# n( E' M6 x. B
ddleader ltname set_tile_spline_props vpldata5 M" {% q4 S! {8 R4 A! q+ K& i
ddline ltnmlst set_tile_stang vpn- } l- z; |' G; F; V3 W
ddlist ltvalue set_tile_style vpt
8 G5 x- _5 n+ |% H1 V7 @% w
ddmline ltype set_tile_tag which_tiles# Z& G: s3 R7 Y; |+ \4 T
ddmodify_err m set_tile_text wid
+ h9 B) j2 B: w& \& `5 s
ddmtext majrad set_tile_vpt x! @$ Q! H( C) P. @2 n5 A
ddpline make_lay_lists set_tile_wid x1% s9 e" o4 F* T$ {
ddpoint make_lt_lists set_tile_xline_pt1 x2
ddray mdashlist set_tile_xline_pt2 x3
1 [& Q: v' p& ]& g( L- a
ddregion minrad setcolor x4# m+ D& B! S1 d' k6 X8 S
ddshape modify_3dface shght xdlist
- }+ s4 z( \1 o- v4 B. X
ddsolid modify_3dsolid showpt xline_pt1
0 U* B! V, a$ l: I1 D# b+ g
ddspline modify_arc size xline_pt2# e, B. _2 Y. b/ i
ddtext modify_block slist xline_x1
; M* Q( S+ j% L& h1 J
ddvport modify_body sname xline_x2! {7 O% ?! h, u, p& v* S& ]
ddxline modify_circle sortlist xline_y1
% m: c/ G' A* |* `7 l e1 P" n
denom modify_ellipse spltype xline_y2
, J; b5 P; ^( ?/ v! B- d+ O
dialog-state modify_image ss xline_z12 l: z, M, }% s. S$ p5 r2 ?3 [
dir_pt modify_line st_ang xline_z2
1 {! Y- t/ |: W" K% @! g) S
dir_ptx modify_mline stpt xscale
% K/ _, ` M, r' e& _8 B+ U) \9 \: H
dir_pty modify_mtext style_act xx* A. K G& p+ Q
dir_ptz modify_point style-idx y
: ]% _! U3 r! {: f1 t& ~$ L
dismiss_dialog modify_polyline style-list y1
6 G) _: }5 h6 H% s& p" A
drawpattern modify_prop_geom tagval y21 d' i X) {9 J& H
echo modify_properties temp y3
* \7 D+ C: K' R/ ?, @
ecolor modify_ray temp_color y4
6 ~: t) r( ]4 q! F- p! r
edge1 modify_region temp_dir_x yscale
1 n' B. O& [5 ^1 @- F- E3 Q. ]
edge2 modify_shape temp_dir_y yy
% m3 e6 ~5 s/ B( j4 Q: X/ s# p- X
edge3 modify_solid temp_dir_z z1* _* B5 I6 Z; D1 j7 V$ C) H
edge4 modify_spline temp_xline_pt1 z2) g+ v4 u0 Y U* `6 N$ \: n7 [
edgetest modify_text temp_xline_x1 z39 |) b# ]/ {$ c
elayer modify_vport temp_xline_y1 z4
. v# P7 C# U$ H' o
elist modify_xline temp_xline_z1 zscale
" p9 K$ g4 \) [# b
ell_calc modlist tempend_eang zz
! p/ f9 G" i4 w* Y. \
dir-idx safe_ddedit ver_MtextWidth xcliponoff
; G9 x T1 B6 v
MText_style, _5 t1 I9 M/ S2 W3 i) V7 Q
)! ~0 Y; N5 O& o, g. m
- @. o! {! H5 ~% A) e
(setq old_cmd (getvar "cmdecho") ; save current setting of cmdecho
6 {+ H" G4 t8 W( K& }
old_error *error* ; save current error function
" ]2 l. ]; D0 J# S/ k' K
*error* ai_error ; new error function ?1 b. L, H- ~/ x, A9 l
)3 P$ M3 s* U4 I' Q# Y
4 j/ @8 W2 O3 g2 G# [& d
(setq old_pickstyle (getvar "PICKSTYLE")) ; save old pickstyle3 h6 J; I9 q9 b( H; [
(setq new_pickstyle (logand old_pickstyle (~ 1))) ; turn off group selection
. p9 u+ C# B1 N, @: j
(setvar "pickstyle" new_pickstyle) ; bit and set to new value
~8 h% T' F8 y% X: J
; H* d, m* j) n8 z9 P
(setvar "cmdecho" (cond ( (or (not *debug*) (zerop *debug*)) 0)" M$ Y& ~5 E5 v
(t 1)))
, i# x1 q# Y$ a7 N
(cond
; O7 q- R/ u$ W9 r. F$ v: T
( (not (ai_notrans))) ; Not transparent?
% L2 I7 z( w5 z/ }6 G7 q
( (not (ai_acadapp))) ; ACADAPP.EXP xloaded?
( N7 Q! m6 Z( k5 e$ {' }2 Z
( (not (setq dcl_id (ai_dcl "ddmodify")))) ; is .DLG file loaded?
9 H' w7 H/ U( y# L
( (not (setq ename (ddmodify_select)))) ; object to modify? V; H2 v l; j2 s C4 n8 e
7 _' R$ h/ N, H' N
(t (ai_undo_push), b$ K+ z8 O1 O3 u
(ddmodify_init) ; everything okay, proceed.6 P5 l! O. r. g6 ~$ ~" r
(cond
9 b6 ^7 ^0 L+ _' Y( \: P/ d
((= etype "LEADER")7 |5 j- j1 V6 g, E: w* }' n( c
(setq help_entry "modify_Leader_dialog")
' P3 f7 Y" z7 s7 u% B
(ddleader)
: ]' n' V6 J" ?( o; V4 |: }
)
4 ]; X ?9 W' {1 ~3 s: r4 z9 h
((= etype "ARC")4 O$ {6 H0 @" j1 ~% Y
(setq help_entry "modify_Arc_dialog"). z% M) I' R, o& E0 x X0 @
(ddarc)
1 B0 Y' R( m+ `) F
)
6 M( M) J8 X, }- S5 C- s0 y- V
((= etype "ATTDEF"). z8 D) N7 U. J! Z K) @
(setq help_entry "modify_Attribute_Definition_dialog")& W4 N. o/ z) A5 P7 k" ~
(ddtext)2 ]: w/ a# L. z' q, J, U/ `
)
' z) m! \7 g8 m3 h) X2 n5 L: O9 Q. ~
((= etype "CIRCLE")
) h& G' i9 q$ j! s
(setq help_entry "modify_Circle_dialog")% O/ x0 h- g4 Y
(ddcircle)
8 z3 i7 m: F, t$ N7 c+ q; z
)8 j6 ?; ^7 R D8 F. |1 J
((= etype "ELLIPSE")% `8 L8 X# x3 b0 Q6 c" y# R0 K# U
(setq help_entry "modify_Ellipse_dialog")5 n6 M6 V6 U: t6 j/ u. _, e
(ddellipse)4 t* a4 j# s0 _2 _
); R# z6 f' Y) \+ ^. \& V
((= etype "3DSOLID")* _# j+ @& p' g9 a/ \& v
(setq help_entry "modify_3d_Solid_dialog")
- i3 O. U+ z. x' I) S8 Q
(dd3dsolid)
- E; }) @# i' l1 M
)- [) b3 v! ^* p7 G7 }' f
((= etype "BODY")
! V1 f) ~3 k( e/ ]6 z5 T) }% u8 a
(setq help_entry "modify_Body_dialog")
, X" x3 J, E) ]! ^6 h
(ddbody)
. j: B$ H1 T! ?* U
)
$ B( [. n$ i& j! o1 o# c
((= etype "REGION")6 J; ]9 A9 y8 p& ]! Z
(setq help_entry "modify_Region_dialog")+ E/ ~' K4 V% g6 I
(ddregion)9 Q+ [9 U9 B+ V( Z9 [0 k4 X
)
/ ~( r1 C2 Z/ D- a2 U
((= etype "HATCH")
9 J3 W: w* l6 t# G- t; h
(setq help_entry "modify_Hatch_dialog")
' E8 N, y; Y' t8 T1 V3 Y) \
(ddnewhatch)
# c7 s9 T% p$ X9 {
)5 X8 {: F* T1 D) {% \! K; ?6 l- D
((= etype "SPLINE")+ \0 |9 v* T% i% Z6 b3 H
(setq help_entry "modify_Spline_dialog")
( f% ]- C4 a* \& k0 u, U
(ddspline)2 y- l8 G1 `9 S0 w. }: m
)
3 q" \7 g) `3 q, i0 M! c
((= etype "INSERT") ; see ddblock for help_entry
9 T: E0 I' U' h4 Y/ \0 U5 R& M
(ddblock)- `% d# s3 `+ n3 h
)
% u+ I8 K# y$ |4 B7 |
((= etype "LINE")4 g% ^( d) @* f+ [' l
(setq help_entry "modify_Line_dialog")
& N) {8 n4 W/ m& c' p$ H4 ]
(ddline)5 z8 Q0 l. R' W! F0 N* V, e4 S* a
) i3 T) e, u4 M8 |2 @
((= etype "MLINE"). g1 M8 i& s* H. N& h( i, p; o4 J2 C
(setq help_entry "modify_multiLine_dialog")
$ y: _, V6 s) \$ r7 j
(ddmline)3 }0 g0 L1 p$ I2 ]4 A( b5 z4 g3 P B
)! A8 P. Z0 w9 p( n/ w# R- J
((= etype "RAY")
) k2 i3 V, B; S( x, t0 T0 E% _, u
(setq help_entry "modify_Ray_dialog")
# x7 y6 F/ z1 y, q$ \
(ddxline)
; G8 y: Q/ }# p5 p$ [( }
)) w- I( E, x# B# j" z+ w: C
((= etype "XLINE")3 y- w; }6 t9 S( `/ g5 Y; }7 m* i
(setq help_entry "modify_Xline_dialog")
5 V+ }! [. H0 m5 x
(ddxline). s; M7 v7 c3 w; o2 [
) H7 Z9 d j( N" I6 m& J
((= etype "POINT")
$ q0 m) V* s& \; R3 K) j
(setq help_entry "modify_Point_dialog")7 d7 E* |) C: L+ ?9 O, C1 B; \
(ddpoint)
7 I* ^, I- W2 [4 F" g
)
7 u- a) B! \/ }- G: \
((or (= etype "POLYLINE") (= etype "LWPOLYLINE"))
. M4 h }& P2 X0 j
(setq help_entry "modify_Polyline_dialog")
; t& V5 C) n3 }4 z/ ^0 y# g
;; If a 2D pline, check to see if it is planar to the current" N0 M/ @3 z7 h. U+ t( _# @+ Z- N
;; UCS, reject if not. To see if the pline is parallel,. y9 Q8 y" }) X
;; the 210 group (WCS) is added to the current UCS origin (WCS)8 x7 F, I% L. t& o0 M1 p( r) ^
;; and then converted to the current UCS and checked to see if7 w8 H0 e9 @2 r1 H% h: U( q
;; it is equal to (0,0,1).
9 v" \" w3 w! Z3 Q
: |" ~/ n& _7 T) T1 w. x& p
;; Incase the 210 is default and not in the dxf list.
2 q5 t1 Z; F7 c7 D4 ~
(if (= (assoc 210 (entget ename)) nil)2 x+ E- M0 k+ [! d$ v% |
(ddpline)3 n( q6 m, s9 B2 y
(progn
/ @/ q7 ~- i- h1 G
(if (and (zerop (logand 120 (cdr (assoc 70 (entget ename))))). g7 V4 D' g" T7 M; t6 I: Z5 `) I
(not (equal '(0.0 0.0 1.0)
6 s/ q# P# l l! v
(trans (mapcar '+$ O: _1 E+ p( p4 t$ {3 m# ~. w" P
(cdr (assoc 210 (entget ename)))! f7 \) ?/ a. H* k+ t8 Q0 `0 s1 W
(trans '(0.0 0.0 0.0) 1 0)
7 v1 y5 t, w, Q1 i+ t
)
: h; W" l8 y* ~/ H; W$ g7 Z) g
0 1
" p) R3 E& l1 o: C% }( d- @
)
6 i4 }! |& i" t/ k) r% X5 v
0.0000000001 ; fuzz
& D) {; j9 |# H# K3 C/ V m
)8 r# Y) t! n3 u) @
)
4 Q0 h- I. W0 S/ Y- x
)
m. l; g+ {0 \) @# W3 s
(princ "\nThe 2D Polyline is not parallel to the current UCS.")
# M2 r% d0 ? [' ]; b" T$ L
(ddpline)
! h3 {0 v) B1 Q+ w( J+ Y0 w1 ^- L0 L
)" G/ |3 r2 x' Q% R
)
4 h7 {' M8 P! Q: [3 x( e
)
+ y1 W1 O/ @* h6 f# I
)! [# N/ C8 w) b
+ b% S3 c) Q+ l/ ^! F8 {
((= etype "SHAPE")
9 i4 L; O6 ~' D7 {( }' v7 a
(setq help_entry "modify_Shape_dialog")" |* Z4 a9 Y2 z; i
(ddshape)# Y0 s, K7 P6 }( q" @6 f) Q
)2 x" q& w5 W( S# ?' A! n
((= etype "SOLID")
3 g1 E1 J/ Q$ b( u* t
(setq help_entry "modify_Solid_dialog")
) ^. s# W4 ^! H# [1 R
(ddsolid)2 P8 `+ I( E; X/ d* i
)
( X. |3 |) G. x, d
((= etype "TEXT")( o/ W3 r) }5 _9 w) j7 V
(setq help_entry "modify_Text_dialog")
) S8 g% z$ {, r$ t- m4 x. m4 q
(ddtext)1 y X7 [: u7 z& S r
)3 N) }$ ?9 V9 g# z; e2 A1 |7 ~
((= etype "MTEXT")
6 z' W: u' V7 o6 e/ B2 C. [
(setq help_entry "modify_MText_dialog")$ ` y) e% d5 y
(ddmtext)) B2 [+ v6 e9 O% u( G- ?
)
# I# W2 w( w1 N7 i6 F6 E2 a! {2 }
((= etype "TRACE")7 T' a) b9 [; A% S
(setq help_entry "modify_Trace_dialog")
$ F% [7 s* J! Z) m1 n" ]2 D' A
(ddsolid)
1 z, [ c5 C% \1 B! b
)1 e7 O) C. P* v/ f1 h4 C0 h
((= etype "VIEWPORT") F$ Z; I* F6 W$ e# {" z2 R" y& W
(setq help_entry "modify_Viewport_dialog")
& `) L: ^( e$ k7 A8 z$ _
(ddvport)2 v" K, Y. r8 i9 u/ M
)
, Q% B' a; {/ ^& k. i% s
((= etype "IMAGE")
: G3 k/ c) ^0 G8 R: Z
(setq help_entry "modify_Image_dialog")
' }/ Q, u4 n0 ]: O' y% q
(ddimage)' `. y* r0 |% C4 @! n
)
9 t# U% |9 k" O e, V% V) j, a$ b
((= etype "3DFACE")7 D8 `- T* e' s
(setq help_entry "modify_3D_Face_dialog"). t% T- T! d& X& s4 l4 [
(dd3dface)
2 O3 B) [: U; Z- N) _
)0 ?9 F; I& D* H5 n
((= etype "DIMENSION")" u0 _0 N. c7 g' B
(setq help_entry "modify_Dimension_dialog")
2 j7 k' o5 W, Q; d/ D1 V" B. i
(ddimen)
5 L: B) Y. L3 P; {9 i; u$ ^
)
& @" s7 s6 Q$ |* X3 u% i! h
((= etype "TOLERANCE")
) k! `* o5 c( m2 c2 M
(setq help_entry "modify_Tolerance_dialog")0 h1 u9 t) f% y0 J* p- k
(ddtolerance)
9 X( w* P: y. v; N* m% C5 b
)! k- p- u* l3 Q: \8 ]2 y9 `$ g
;; Fall-through condition changed by MCAD for MDT 1.1 release.
! m0 W; _2 B7 s) m" W- O
;; This allows DDMODIFY to work on any custom object or any new object type
H5 c/ l d _! F% v) z4 }
;; that isn't specifically handled above by calling the more generic DDCHPROP.+ H8 [; S1 j' Y" ~! R1 j5 C) p8 ?3 z
(t
; M G" E" o9 O8 V2 t7 m( ?
(if (and (not ddchprop) (not (load "ddchprop" nil)))
1 Y3 l1 N$ c% Q) p
(princ (strcat "No dialog support for object type: " etype ".")))
# C9 }( I7 u3 W: r
(progn
7 f3 g2 R" D1 L# E/ h P
(setq tempss (ssadd ename))+ Y% W- _7 p. H
(ddchprop tempss)/ A' t y/ M6 `% D- }4 _. |
(setq tempss nil)
0 g3 K- V/ b% S
)5 a, W: m& b2 B* t3 t0 h
)8 a2 A* H" j n c5 r' t
)
* f2 l+ d# L1 | `, x1 {' E
;; Previous fall-through condition.! n0 s9 z% P9 f6 _7 j; g. T
;; (t (princ (strcat "No dialog support for object type: "2 Q! t1 G: D& N1 _
;; etype "."# J7 P/ q0 _. g3 F
;; )" M2 q$ D7 g+ n7 ]3 E3 i2 E
;; )1 L- t2 I0 v5 G% t4 {
;; )
& D# l4 F; |9 B6 E. v3 @
;; ); m8 ?+ p4 u& M
(ai_undo_pop)$ u4 f( c. @: {* q, T9 B
), `6 D# s# |0 Q: l# m
)
$ Q9 M/ j! |# h) `- D
# }4 _9 L- \9 W( U0 ^& ]" @
(if (eq new_pickstyle (getvar "PICKSTYLE")) ; if user didn't change pickstyle
* r* @) p1 N9 E, A
(setvar "PICKSTYLE" old_pickstyle) ; transparently then set it back+ Z: w- ~, N! D
) ; to what we started with! I- n- Q: Z* h* H" ?
" G0 ^, X# }1 e9 X. v: c, U4 a
(setq *error* old_error)" @( W( p5 z8 D6 M' K/ z4 P
(setvar "cmdecho" old_cmd)/ B9 D0 t: d5 q% O! l; T. h
(if (not reset_flag) ; if object was modified, then: q: c& ~( _) k7 C2 E: a) z; F, E
(ai_return ename) ; return it's ename to caller$ k" @& b2 H- l# X; a0 i3 q
)
( C7 U: h% k9 ^, l: m% U, |* [
)2 u* V( k* B, B/ |6 s3 Q: b
# p5 b; f% @! Z+ Z1 C
(defun checkForLockedLayer (ename)6 I9 u# H5 H4 Y2 y' N
(setq layername (cdr (assoc 8 (cdr (entget ename)))))
% v6 N! q! z+ u* g7 F( p
(setq layerflag (cdr (assoc 70 (tblsearch "LAYER" layername))))9 r+ V0 ~4 f3 f, i7 E, e" V" K/ ?/ O6 R
(if (= layerflag 4)8 K( [" b2 d! d2 `
T& ^0 g1 A5 {2 t% I
nil
% P/ r; L2 s- _. O
)% g4 `8 R" }) h) \8 _
)! @2 C6 u+ p, m( O" b
3 l# D0 o8 I; x5 b! b+ U
(princ " DDMODIFY loaded. ") @/ w3 u5 @3 V/ i9 R$ J4 _
(princ)
0 v# _4 z9 t, y3 s# p
;;;???;;;---------------------------------------------------------------------------------------6 T6 H+ N6 z9 ~& T
1 \" K4 ?1 L' C/ _% Y. O( b" |& p
; Next available MSG number is 8
( r0 I/ k* O# v% [4 o8 ?
; MODULE_ID DDUCSP_LSP_4 a: ^2 P' P1 p1 @2 w
;;;
: m; H" n. R- R- B- X# u# I U
;;; dducsp.lsp
3 r% J: v8 W7 \4 n. }
;;;' x" {; N. `. f0 x. I! `
;;; Copyright 1992, 1994, 1996 by Autodesk, Inc." I, s. h9 k7 T( F- v( F1 z
;;;
8 _ a0 ^' O; p* e H" a P
;;; Permission to use, copy, modify, and distribute this software5 M9 ?! ]3 |" t, B6 P. {, ?2 v2 a* y. ~ U
;;; for any purpose and without fee is hereby granted, provided
. i7 O6 u( F. X7 M' F* k6 Z
;;; that the above copyright notice appears in all copies and, ^2 H' {) H l# V
;;; that both that copyright notice and the limited warranty and
T, z8 u T; M, }
;;; restricted rights notice below appear in all supporting
, p. Y$ e1 Q- U% K- a
;;; documentation.. Z! v% x/ |/ \8 \( e: b
;;;0 d" ?$ c1 u5 _! I5 h& r' r, |
;;; AUTODESK PROVIDES THIS PROGRAM "AS IS" AND WITH ALL FAULTS.
( Z, [- s: U# T0 S# O! Y' D6 g
;;; AUTODESK SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTY OF
, u6 i, c7 w6 ?, t4 \" ~2 Y
;;; MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE. AUTODESK, INC.
# F9 ~, e# y) X. c$ D
;;; DOES NOT WARRANT THAT THE OPERATION OF THE PROGRAM WILL BE4 `$ v; x" [5 L; l
;;; UNINTERRUPTED OR ERROR FREE.2 _1 e( ?4 a, j) ]2 q. h3 @
;;;4 o+ N) R4 [( i: C1 R/ W8 U, O
;;; Use, duplication, or disclosure by the U.S. Government is subject to0 w' q/ I% [3 R, O
;;; restrictions set forth in FAR 52.227-19 (Commercial Computer
: v3 Y6 v1 K2 [3 }! O, t& _! m. F
;;; Software - Restricted Rights) and DFAR 252.227-7013(c)(1)(ii)
# h7 M6 K$ Q) T" z5 b1 k7 f* a
;;; (Rights in Technical Data and Computer Software), as applicable.& G6 D5 p3 k9 M# J" F7 Z' G
;;;
1 O2 O) q9 n& v
;;;.5 _7 L! R9 M9 [/ n
;;; C:DDUCSP - User Coordinate System presets dialogue.2 W# O8 D2 o3 n l! r
;;;
+ m, p7 |& W0 q
;;; Uses DDUCSP.DCL for the dialogue definition. The+ g+ [5 ^, k/ i3 Q
;;; slide images are in ACAD.SLB.. B2 D8 C& W6 e: v2 f0 k5 k. @+ |
;;;
6 e. p1 s# X1 v: t- w
;;; ===========================================================================
+ |' }8 M o. Y
;;; ===================== load-time error checking ============================& ^" u1 R% o X: M. X! `/ w% T
;;;
; {# V, f5 P s
g* @8 H5 v: Q; `- c
(defun ai_abort (app msg)
, i/ j8 W0 O3 b
(defun *error* (s)0 z% t+ i5 r( }) {3 |/ i
(if old_error (setq *error* old_error))
' a* V1 n% `/ u$ {# U1 H
(princ)& _) Z% [" I3 l! |0 L1 b
)
; p4 j& ^/ _+ ?- c$ h
(if msg
! W0 b8 G! U+ L
(alert (strcat " Application error: "# r! r! r; D; H" q. l
app
& g+ |- f4 {' ?; N! ~
" \n\n "6 w' ?, g8 A6 t# G, z
msg
' D9 L, J: Y! ?" K% s- P
" \n"
Z X2 ~* C( f) l1 t
)
z$ C3 E! X0 A, A' d" W
). w) t5 G8 A7 M$ d* m3 i8 }+ Z" Y% X
)- K+ m" @ l) L. z
(exit)
* r5 G/ I: t9 s8 x; G& ?& G
)
4 G: i4 h* I* O$ L: e6 X8 u" {
( q% Z8 y- ^0 g; L# y1 i% i, X* _
;;; Check to see if AI_UTILS is loaded, If not, try to find it," M" b1 }; c' m1 k0 z8 ^
;;; and then try to load it.
+ o3 k7 C- \! S
;;;
) u( @3 ]- T0 Q
;;; If it can't be found or it can't be loaded, then abort the
2 Y2 }: V# i8 A2 S6 w/ Q
;;; loading of this file immediately, preserving the (autoload)# ]) }+ _. D# c/ a0 _* m! R
;;; stub function.. R. D3 ?% b" Y* ?! f& [! g3 G: P
& `8 c2 G2 e+ ]( }4 X' u B
(cond0 P8 w' T' ?1 @
( (and ai_dcl (listp ai_dcl))) ; it's already loaded.! O6 f4 x) T( Y p
6 X! J3 D' P& ^; m# K3 F8 ]. ?, |! w
( (not (findfile "ai_utils.lsp")) ; find it
9 J; d2 z5 ?$ q# ]- {& Z3 O/ `
(ai_abort "DDUCSP"1 u& {+ s) v+ `$ e6 I+ w
(strcat "Can't locate file AI_UTILS.LSP."
! W1 o9 @4 n, q3 v1 t! L B% u
"\n Check support directory.")))
# N! q8 A [- U" u/ l
4 s& ]1 P/ t& G- I
( (eq "failed" (load "ai_utils" "failed")) ; load it5 M; y# l: F! h6 z! h
(ai_abort "DDUCSP" "Can't load file AI_UTILS.LSP"))5 Q" i3 p- Q c* ^6 s
)
% |% W* |. X- M
' c: R3 l9 W0 k) D7 b" E
(if (not (ai_acadapp)) ; defined in AI_UTILS.LSP
. w6 b" M# ]5 c; B- ]
(ai_abort "DDUCSP" nil) ; a Nil <msg> supresses9 W3 L& Y, [3 u) m t2 T0 l3 ^
) ; ai_abort's alert box dialog.
" c- ~+ e2 j" z" w
` U' ]' W, ^- ?+ y2 Z
;;; ==================== end load-time operations ===========================# v) w2 a! i/ i ^8 [2 h b
* k7 q6 E4 B0 Q: o2 g
(defun ai_ucsp_start ( / program)* p. P, M2 i2 F: c Y7 A4 q+ p& I
;; Get program name
2 o# F+ P/ K- P( u
(if (not (setq program (getvar "program")))
7 u7 Z: Q& y/ m( H. a4 \
(setq program "acad")0 w4 z9 X* I( Q# d% I+ p o
)
. T) q I7 f; h' O( U. z* p* ^9 U' J
(foreach v0 '("world" "left" "cview" "top" "front" 6 S+ C. ^- e5 x+ |
"bottom" "back" "right" "prev")6 z( g5 _. r4 }- A! S3 E n7 Z1 H
(start_image (strcat "ucsp_" v0))
) |& q$ |- r, d) A( h
(slide_image" w4 u# `5 M, X7 J4 P
0 02 \, G0 z8 j1 q: w+ m* b
(- (dimx_tile (strcat "ucsp_" v0)) 1) (- (dimy_tile (strcat "ucsp_" v0)) 1)
) G: H8 g: `* x) y* |
(strcat program "(u-" v0 ")")
, `1 G* b( ^6 U3 v0 Y7 M: A# Q( \
)
5 G; s( A2 I6 t0 o) W- k% p
(end_image)2 u, I3 z! W) \1 f
)
/ q8 k6 ]% I4 T
)
7 F% n6 m) i) c# |
9 H% O" k2 q& @, m% ~- n8 m; D
(defun ai_ucsp_set ()0 ?5 Q: J: h6 w- q4 i
(if ai_ucsp_sv( L% U9 T. Q! `6 p
(command "_.UCS" "_V")
1 b9 Z' h( c" U% K6 ?
(if ai_ucsp_prevs
+ ] y2 O6 M. N1 O# I
(command "_.UCS" "_P")* z' J9 G0 l* F( P. G
(if ai_ucsp_chg, O9 q. o0 b' Q9 N& B+ j, p
(progn
# K& s- `) O" c
(if (/= ai_ucsp_a "*")
* X8 e. A) U2 F+ v8 ^ O7 c
(setvar "LASTPOINT" (trans (getvar "UCSORG") 0 1))
) q( a! C+ ` m& p! T
)
5 w! N$ }* V9 P0 f
(if (< ai_ucsp_pick 6)
+ f' ]7 _4 X4 j* S* Q0 m9 h
(setq ai_ucsp_set0 "@")
2 ] v% u1 C+ \: r5 g
(setq ai_ucsp_set0 "*0,0,0" ai_ucsp_a "*")! a2 `/ W) H+ D
)
5 J I! j( R# M5 f
(cond ((= ai_ucsp_pick 0)
) z( q' f0 d$ u0 @ p8 g
(setq ai_ucsp_set1 "0,-1,0"
- ?( X' |. y: o" S! M
ai_ucsp_set2 "0,0,1"
" _" P: H) \; O+ G5 `, {% G" K, g
)
1 \4 @7 R% I- R3 R @; K, L! z
)
% m2 q7 n6 a9 h) j" x; R! ?# e g: U
((= ai_ucsp_pick 2)9 N- R9 Q% Y. y" @; @1 q; O
(setq ai_ucsp_set1 "1,0,0"
& Q# ?2 D+ _" c) s
ai_ucsp_set2 "0,0,1"3 N' D( I W7 v- S% b9 [
)
, ~# c; s! F, E3 ` k) q e% C
)4 P7 Q% V" P7 G- Z3 f- u @
((= ai_ucsp_pick 3)# N3 u; I6 g% Y) ]: @+ O3 W$ [- I
(setq ai_ucsp_set1 "1,0,0"
! G4 t x# {9 g
ai_ucsp_set2 "0,-1,0"% f' W1 x7 x8 Z, A6 J+ W
)4 [! w1 T8 M' E; y1 |& D
)
8 C6 K+ D1 X& Y3 z
((= ai_ucsp_pick 4). p5 A6 v) r: ]& h* ?+ f+ q2 W: p
(setq ai_ucsp_set1 "-1,0,0"
1 O8 b1 L. u! \. h2 j* D
ai_ucsp_set2 "0,0,1"
+ O" I4 N8 A$ ` H/ `) k- t9 R
)+ k& B4 I+ Q% O; F4 _
)
! L6 O. x7 ]* B2 k/ Z4 k
((= ai_ucsp_pick 5)5 \# Z. L% Y% ]; F
(setq ai_ucsp_set1 "0,1,0". ]( H! G- @$ {0 B( ?7 V, f
ai_ucsp_set2 "0,0,1"
) E) e! \$ u9 T
)$ g* s/ ?- @$ D/ a
)1 j# t: }8 }! B9 b
(T
: V9 g, e& D- |2 v0 [1 {2 [7 f X
(setq ai_ucsp_set1 "1,0,0"
% d2 f7 `0 g8 f4 q# s) F
ai_ucsp_set2 "0,1,0"6 v4 P/ B4 S5 V* f! g$ |
). ^5 T* T1 ~' p1 ?4 n/ g4 x* Z
)
0 G3 @' N, U9 e* B
)
$ n( ^( `! U4 i: Q1 H
(command "_.UCS" "_3P" ai_ucsp_set0
5 w/ j; b4 c% m
(strcat ai_ucsp_a ai_ucsp_set1) # v9 C- L! k8 [
(strcat ai_ucsp_a ai_ucsp_set2)1 Y) g7 q( O( B; F2 Q1 ^ \
) 5 ~; u9 ]. P8 G% X/ W7 Z) B
)
' @& j2 o8 H! n$ _" p F
)* w& [( u( e- p0 i' s: ]
) h3 n, m6 f% k# Y
)6 t( t! X! P; S% Q: c# f. ?* k! {% Q) W
)5 ^8 `8 [ h8 _; k' m% }
7 O4 _0 S$ N6 N
(defun ai_ucsp_p (val currtile)
* O( f2 ~) G: w) W6 d* {5 A
(mode_tile ai_ucsp_currtile 4)6 a0 x+ ~' Q! Z# {. r6 t1 M+ ~5 F+ N
(setq ai_ucsp_pick val
0 J2 n+ ~4 f8 Z, L5 K
ai_ucsp_sv nil
. z* @$ l0 `2 V( L* @
ai_ucsp_currtile currtile
8 ?: r1 n: E1 L
)
/ W; u" {: q# {; Z& C0 u
(if (/= val 1)
0 T) L9 I: z$ o$ i
(setq ai_ucsp_chg T)6 \; Z1 ?. S$ I2 S
)
, n; \" M& F2 q
(mode_tile ai_ucsp_currtile 4)
- v. |0 [' K4 c! }8 r9 u8 I
)
, B8 x+ n: F; V6 a9 S! P8 n
, y; z7 k; _8 x( u& K! N
(defun ai_ucsp_swcs ()
, D; W' A0 N. }5 P& k: G
(mode_tile ai_ucsp_currtile 4)
# P: s( \1 f3 t0 `* @3 |; b
(set_tile "ucsp_a_wcs" "1")9 j( [( r5 I4 s
(setq ai_ucsp_pick 6& z7 t' I. W1 R! C
ai_ucsp_sv nil1 ]1 w* H' V: S! w
ai_ucsp_currtile "ucsp_world"
' S1 s7 |7 C/ c* V& C
)0 t& m( f! j+ G! c# ]/ ?4 B) x) X/ E
(if (/= 1 (getvar "WORLDUCS"))
( g3 |0 e; J1 ~0 C+ E" w& `- Y4 c
(setq ai_ucsp_chg T)) z: p( J+ S6 d9 v* N
(setq ai_ucsp_chg nil)
+ [! h6 h0 u' }# _
). t0 p. a4 m) G( ]# t9 r
(mode_tile ai_ucsp_currtile 4)" `, k3 P9 `! C" Q' i9 K2 H
)% R$ ^$ J3 Y5 q; O4 a; _/ v. c
( b) ^; a+ R, ~0 f
(defun ai_ucsp_cview (), \( `9 g# O" p" W! p4 K# d8 O& a) S
(mode_tile ai_ucsp_currtile 4)
5 u, o! u+ q* j, l& O$ [
(setq ai_ucsp_sv T 6 i ]: e9 [9 m6 Q' |* ]( L
ai_ucsp_chg nil/ f. E+ P2 e! ^, p9 N7 ^
ai_ucsp_currtile "ucsp_cview"
~0 A, y* `, t. y# H# I
)
6 P) X5 d& |* r: S; Y8 J
(set_tile "ucsp_a_wcs" "1")
, y/ a! l, r* u" C
(mode_tile ai_ucsp_currtile 4)
" z1 t5 o; p( w0 ]: P `
)
1 ~! f7 n) R7 T; H7 q. Y) V
; p& e1 i8 G- W C( C. w" @' [' j) p
(defun ai_ucsp_rucs (typ)7 u+ Q' h. h V! P4 i; y0 D, M
(setq ai_ucsp_a typ)1 n( |2 ]) k* G0 i9 c3 s# z& p2 j9 T
(mode_tile ai_ucsp_currtile 2)
1 Y! U& N2 g5 U5 l# i
)
- C- y9 V8 ], i' H( W9 t
5 j* _! s; p; f0 C2 R% W% M2 |* L
(defun ai_ucsp_prev ()5 a8 J5 s9 q8 Q* U
(mode_tile ai_ucsp_currtile 4)
/ s+ K7 `. _& E8 r. S
(setq ai_ucsp_prevs T
) m0 k6 B1 U0 C
ai_ucsp_currtile "ucsp_prev"/ g/ e' Y& [" f: Z/ c
)
) b) Z& _! `% X0 g
(mode_tile ai_ucsp_currtile 4)5 M0 K1 w" ~* H9 C
)
5 }" u3 R/ U0 F& J+ q+ Z) {3 n
) K! d; g/ T( ]" q$ f0 \* M* T
(defun ai_ucsp_main ( / ai_ucsp_pick ai_ucsp_sv globals)& K+ R# A w D: r( |4 j: i
(if (not (new_dialog "dducsp" dcl_id))
0 R. T; Q4 I- G$ R7 x7 `
(exit)
# d5 j: m; e6 U
)
# A0 U4 J& Z! D8 H; z* j; K
' A; v2 o5 q u2 U5 N
(ai_ucsp_start)
! r U& W1 p% V& `
(setq ai_ucsp_a "@" 0 A# _- @, @: r- ]6 d
ai_ucsp_pick 2$ _( P6 x& q3 I" }1 Y8 U* q4 F
ai_ucsp_currtile "ucsp_top"
% s% F# ?: ]1 f& k" }7 Z. x
)
, c$ S1 ] |" g( F4 u+ f5 c
(if (= 1 (getvar "WORLDUCS"))
! \/ F, V4 O. \- D8 l' Q
(progn& s9 t" d: I' S
(set_tile "ucsp_a_wcs" "1")
& U, O: K9 p a& z0 h% r
(setq ai_ucsp_currtile "ucsp_world")* O" e, e7 _ j0 x- h' F
)) H) u- w& [2 ?, ]& q$ E8 L
(set_tile "ucsp_r_ucs" "1")
/ q; o) ^ x2 j$ H. D- N
)( [7 y+ t2 Y9 v; M
(mode_tile ai_ucsp_currtile 2)
; \7 N5 o/ [9 Q( q9 V0 p! {
(mode_tile ai_ucsp_currtile 4)* r8 i( g+ v; a; |- [
(action_tile "ucsp_world" "(ai_ucsp_swcs)")) g! c+ H* l n" T
(action_tile "ucsp_cview" "(ai_ucsp_cview)")
( u) L, i0 `% M B
(action_tile "ucsp_left" "(ai_ucsp_p 0 $key)")1 P) }' J* h7 O+ `+ _* e7 u. j
(action_tile "ucsp_top" "(ai_ucsp_p 1 $key)")& J) y7 A6 Z' r# v0 D
(action_tile "ucsp_front" "(ai_ucsp_p 2 $key)")3 Y$ e1 [. d) i7 N2 D8 s, V
(action_tile "ucsp_bottom" "(ai_ucsp_p 3 $key)")
7 T4 q+ K" {0 Y" ~: m: x) Y
(action_tile "ucsp_back" "(ai_ucsp_p 4 $key)")
5 `+ y y( {: O
(action_tile "ucsp_right" "(ai_ucsp_p 5 $key)")
0 I7 w; `- P" |
(action_tile "ucsp_prev" "(ai_ucsp_prev)")" G5 ~$ `6 y" E: y1 N) L% Y
(action_tile "ucsp_r_ucs" "(ai_ucsp_rucs \"@\")"): B3 Q" f4 _) d2 y! q8 J" i
(action_tile "ucsp_a_wcs" "(ai_ucsp_rucs \"*\")")/ H) l. b$ R* A
(action_tile "accept" "(done_dialog 1)")
! U- _4 g n+ z3 Q! V4 J
(action_tile "cancel" "(done_dialog 0)")
% X5 M6 _- p$ c- U. x5 t i
(action_tile "help" "(help \"\" \"DDUCSP\")"). ^( Q- j7 r d* p
(if (= (start_dialog) 1)
2 g3 `1 e8 r$ x1 E a2 B
(ai_ucsp_set). {% o2 p9 A/ H! O1 ~1 S
)/ |5 l3 F( f% s1 K! D
), v% W- Q+ U+ s; i% O. k M7 U7 Q
7 e( i6 y6 |. ^0 T A9 I3 R
(defun c:UUS ( / app dcl_id old_cmd old_osmode ai_ucsp_prevs ( q4 P: w) ?! N
ai_ucsp_sw undo_init)4 p6 e1 s* V+ X3 ^" d1 x- @0 q
) J6 B; j) T$ J! L7 U& t$ E
;; Set up error function. b$ ^$ m8 a2 X3 \7 m$ N8 v0 J1 U
(setq old_cmd (getvar "CMDECHO") ; save current setting of cmdecho
5 C+ Y( M" ]0 o% _& R
old_error *error* ; save current error function
5 K0 Q2 Z1 T5 N+ C; U
*error* ai_error ; new error function" [6 l0 ?+ O6 J; f* f: S1 P
old_osmode (getvar "OSMODE") ; disable OSNAP for duration
V- `& L! V8 M" d, R
)
- t; y, W8 v% j; W
" R& O" ` N' p5 O, _
(setvar "CMDECHO" 0)
; v/ F3 P) V6 |0 k6 Y
! }3 ^6 z# @( [5 w5 o
(cond. C. a) x7 |9 }1 m: z4 v! N
( (not (ai_notrans))) ; transparent not OK( z+ K6 G) t, }4 v" R m
( (not (ai_acadapp))) ; ACADAPP.EXP xloaded?7 r/ _1 ?0 N3 N% M7 U" I
( (not (setq dcl_id (ai_dcl "dducsp")))) ; is .DCL file loaded?
! X$ t- O* @ H$ l5 P7 M4 Y
(T (ai_undo_push)
/ F& G" X, _$ z* k' J
(setvar "OSMODE" 0)& M; H$ V r! q0 L+ L/ c. J
(ai_ucsp_main)
" ~9 b, ^+ ?1 \9 G" f4 u
(setvar "OSMODE" old_osmode)
9 |) _$ G7 k6 E/ v& R
(ai_undo_pop)6 R3 `% X- Z/ k+ u
)! a6 C) ?" |, y- x2 M& X
)9 d) L. a* S, `
+ d. Y+ q+ e$ l, J, Q
(setq *error* old_error)
(setvar "cmdecho" old_cmd)
; E& L! B& q0 t. A0 M7 X" R
& I' \$ s, D5 I
(princ)
$ b2 r) J- }6 }7 o# N3 k4 u" y: k
)
( z" E) ^! v" h Q4 h& R" Q
% k! P& Q: f7 G, I1 i# j3 s
(princ " DDUCSP loaded. ")* s* ?, N: K5 Z* m4 k" {' h
(princ)
+ O, n9 C) c0 f+ {' f# l
/ I. W# ]# z( M- w' Y
;;;???;;;---------------------------------------------------------------------------------------, T1 I& s9 E! P d
' K. i% D% f+ ~! E6 |. J+ E
;;;----------------------------------------------------------------------------. ?! T1 S g2 ]# E: o* v; M
;;;
4 _% {% M0 I( y' W
;;; EXCHPROP.LSP
* J/ b! r" V" ^( J2 n
;;; Polyline and text modification capabilities added by
6 U# j z; F" @0 p$ [) M4 R
;;; Randy Kintzley . S& w: b1 m& C9 Z8 x" Q, c
;;; 8 }: m9 K2 T8 U6 G' x. w
;;; Copyright (C) 1997 by Autodesk, Inc.
/ ]; w0 m+ v0 A n- t0 ?
;;;4 c( W- Q3 Q# _& L" R
;;; Permission to use, copy, modify, and distribute this software; @% ^* H* `8 g: O' K
;;; for any purpose and without fee is hereby granted, provided& p9 f+ R) @6 w1 J, z2 q- @
;;; that the above copyright notice appears in all copies and u$ X+ X' A0 v. ]3 k, a
;;; that both that copyright notice and the limited warranty and+ S7 B1 H8 Y% ~& T0 d5 i
;;; restricted rights notice below appear in all supporting8 W: |- K4 ]3 l# a
;;; documentation.; W$ A1 ~5 R: O) Y$ P0 I$ c& N
;;;: P. U: D3 R" H0 K
;;; AUTODESK PROVIDES THIS PROGRAM "AS IS" AND WITH ALL FAULTS.
) \ X: B$ l5 G2 e
;;; AUTODESK SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTY OF
8 ~+ G* E) J. @- {4 |
;;; MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE. AUTODESK, INC.
4 [6 R1 x5 ~6 c6 `4 x
;;; DOES NOT WARRANT THAT THE OPERATION OF THE PROGRAM WILL BE: W3 [' M: S, z8 P( Q/ S& {/ `
;;; UNINTERRUPTED OR ERROR FREE." [) u8 d% U9 m2 g7 b/ X
;;;
& _4 s1 |0 N# U& M
;;; Use, duplication, or disclosure by the U.S. Government is subject to. H: T7 _% D& v! ?6 S( Y, U+ `3 r
;;; restrictions set forth in FAR 52.227-19 (Commercial Computer
/ B D9 M! p- \9 w1 V- a
;;; Software - Restricted Rights) and DFAR 252.227-7013(c)(1)(ii)0 c* p' {. Y+ {. ]0 U
;;; (Rights in Technical Data and Computer Software), as applicable.0 k9 ^+ w5 |; {6 s: i
;;;* ?7 P% l# O, ?2 H+ k# H) k9 ~
;;;.
1 {) F+ y& M. u' r; z# n
;;; 28 February 1997* w* h/ ]4 D! _. K0 y1 h: |( r3 i
;;;# `1 @* e- a& H) c/ M- O* f
;;;9 `) E- }/ a5 `6 }. l; ]; a3 Q& a) |
;;;----------------------------------------------------------------------------. h U3 ^0 U, ]$ p1 ?! U8 n
;;; DESCRIPTION
+ E+ s# ?) ?! {& C
;;;----------------------------------------------------------------------------
/ h! N6 A" d& @' {! x
;;; C:EXCHPROP is an extended or enhanced version of ddchprop. This
2 ` O2 G8 l3 B, D' s
;;; command gives the user the abilitie to change several characteristics - H) y: o9 n3 L2 k3 S3 D
;;; of selected polyline and text objects. ' L; s+ ?% A/ m) b. F6 |' i9 a8 y
;;; The style and height of selectected text objects can be modified
! z: T% z/ S3 m: D# F
;;; (including text, mtext and attribute definitions) as well as, width and . P( _9 c- a% n4 y" M+ H& M! ^3 l
;;; elevation characteristics of selected polylines (includes lightweight and 8 P# a1 ^, V$ v e( [
;;; traditional polylines.)
, y6 r/ b6 K" \9 d0 `
;;;----------------------------------------------------------------------------
+ U7 |& n' |% K: [, q0 }
;;;----------------------------------------------------------------------------
: B& ]0 C3 k, R f5 |
;;; Prefixes in command and keyword strings:
4 C0 s5 J. r1 D
;;; "." specifies the built-in AutoCAD command in case it has been9 Z* v. {% ?! V
;;; redefined.0 i% m$ g' ~6 Z# |
;;; "_" denotes an AutoCAD command or keyword in the native language. e$ b8 Z; L7 M" V, w/ i
;;; version, English.
) ~& {" s6 i3 q2 O/ u) m& x
;;;----------------------------------------------------------------------------7 ?$ o$ q: e7 T0 y, V4 Z( ~$ r, a9 ]
;;;
# @1 ^+ x/ A, ?/ w
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;9 Z; @! e3 Q0 `- |
;;;;;;;;;;;;;;;;;;;;;;;;;;;;GLOBAL INFO.;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
0 y, t3 A4 x5 b9 z
;Functions created as result of loading file: exchprop.lsp
5 [. ~/ Y+ [3 I }$ q" C2 t# V
; DDCHPROP2
8 f* q8 f; |# k1 Q7 d' ^
; DDCHPROP2_INIT/ N3 `1 M% I* U2 Z
; DDCHPROP2_SELECT- i6 U- |2 J( `
;/ t! Q2 f5 X, e! V$ Q
;Variables created as result of loading file: exchprop.lsp
7 _4 O; D8 r2 Z) b% u* _' ]8 A
; OLD_ALLOC# d. i% m6 ? x5 z
;
3 C- \: V- v9 |; U
;Functions created as a result of executing the commands in: exchprop.lsp
8 l4 g3 O- N }5 @
;5 n$ ^) }- B, s' n k3 F
;Variables created as a result of executing the commands in: exchprop.lsp
% i: u3 h( F0 ]: ?. f) v
; AI_SELTYPE& M3 H# _8 P" _& _- U
; BONUS_ALIVE
6 q# w9 {/ K0 n% {1 ~
; BONUS_OLD_ERROR
/ p- R% q" `' w. H8 Z
;;;;;;;;;;;;;;;;;;;;;;;;;;;;GLOBAL INFO.;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;3 v8 L& t7 D3 [
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
" w6 ~& @0 P3 m; S' ?
, ? I3 h8 w* T# ]) @; R, E- G
;;;$ [0 O3 J* T6 w- @& G- r
;;; Avoid (gc)s on load to improve load time.# a5 ^- K5 j4 R& q2 O9 z7 U
;;;8 M6 z7 R" r1 H9 L1 d, J4 i& ^% P
(defun do_alloc (/ old_allod new_alloc)
) N6 ]3 U: x1 ~4 \, G+ a1 M# n
(setq old_alloc (alloc 2000) new_alloc (alloc 2000))
" ]: F" E X e Y
(expand (1+ (/ 4750 new_alloc)))
6 q. F$ l4 O: \- V; L6 |& i: e
(alloc old_alloc)7 A" v0 n5 B+ S
);defun5 P5 L* A! F4 ^/ [: m9 o
7 n, _7 ?( e$ H5 E
;runs at load time - rk
) `$ p" a8 `' }" J
(do_alloc) g9 ^; S5 H" y, `% L
(setq do_alloc nil)6 k% o& w0 J9 D
;;;8 i2 f$ x3 A+ D6 d4 a2 O" k
;;; ===========================================================================+ b4 ?7 ]5 `& z4 b+ j# K7 @" Z7 [2 O
;;; ===================== load-time error checking ============================
# s( \$ {+ l) `1 p: a$ r
;;;
. ]2 I$ I2 B& k
% c5 O; X0 e- |3 l
(defun ai_abort (app msg)
" z& K }# f/ C: z) {
(defun *error* (s)
5 v# Q7 q) T( K$ R! K* i& B
(if old_error (setq *error* old_error))+ J- b+ c5 | ]: \4 k
(princ)* X E' i0 E7 w7 I2 L. o' V7 A E& ?
);defun
( p% k" |6 D0 Z5 p1 \- m
(if msg
( [, ^* k4 t7 k4 x1 N% p
(alert (strcat " Application error: "
: b6 J) W4 P U/ y
app
' g- L! y B/ F+ h, N% B
" \n\n "
. J+ ?5 q' L$ s. b3 v
msg! e4 m- M: _0 G+ ]* r# _7 H6 W6 o7 N
" \n", P5 s' s1 c8 C% \
) U3 l9 w- @2 n- ?
);alert' x) T! \7 X M& a- U0 u* @" a
);if& u2 l( Z# d/ w- j: `/ g: H2 i) U8 r$ i
;(*error* msg)
& @5 X8 J# D. I6 W8 V+ b
(exit)
) ?& u4 b& |5 v+ m F
);defun ai_abort
6 h- W, S) q# Q* M) K- }
- Y: i" r" {/ e4 @% S$ ^9 |
;runs at load time - rk" v1 x; H) \- O* ?5 k. ~
;(if (and *error* ;added the if wrapper around this - rk." U8 X9 \7 g* H+ a
; (not old_error)
) X6 h9 |+ j r+ }' p! \* [
; );and
% J7 r- |8 K* }7 E* H1 @& I
; (setq old_error *error*);setq
- K2 w) t# ~! u( c5 F) n
;);if
/ M6 [' r. K" ~% j9 h& i
6 s/ y- ~7 x# S5 D0 L- D5 Q
, D0 q3 k( A! U+ Q0 c r4 h3 L, |
;;; Check to see if AI_UTILS is loaded, If not, try to find it,6 Z% q) \& F# T, q8 h; X$ w+ [5 B
;;; and then try to load it.
. O4 Z- T( ~0 s: T9 M a2 Y' j
;;;
1 {8 i! e8 v0 j3 o8 i8 g3 H: z
;;; If it can't be found or it can't be loaded, then abort the
% y: w8 g8 Z2 d6 _* o
;;; loading of this file immediately, preserving the (autoload)
- E9 h3 Z6 r I- O# v: f6 t! d
;;; stub function.
3 p" d! v* X% N; m5 a6 o2 p
5 I5 H4 t6 M+ E) F$ f5 I( Z. y$ i
;runs at load time - rk.
- S/ i7 F, m3 l+ t( P
(cond4 b3 d7 l V9 ?# B% P
( (and ai_dcl (listp ai_dcl))) ; it's already loaded." S# u5 y0 W" P+ N
( (not (findfile "ai_utils.lsp")) ; find it5 Y6 F9 L4 f1 W6 s& {
(ai_abort "EXCHPROP"
* h9 a' ]. O% O: l' H |
(strcat "Can't locate file AI_UTILS.LSP."
: Y% g- r5 Z5 a7 f$ q2 s. J
"\n Check support directory.")
: U' T' \. [! d7 R* H
);ai_abort
' o& e1 K2 Q. Q
)* t1 `" o \! {
( (eq "failed" (load "ai_utils" "failed")) ; load it
(ai_abort "EXCHPROP" "Can't load file AI_UTILS.LSP")
, Z" ~6 `9 H, k# t' M
)
0 }3 }& M9 H$ y, {1 o2 i: X5 B+ q
);cond close
& G2 p7 w1 ]# p2 f7 s2 w9 a0 r2 I
4 q6 {; L! `8 M) Y( H6 @3 X
(if (not (ai_acadapp)) ; defined in AI_UTILS.LSP( y+ ]4 Z* h2 w3 V6 [& f
(ai_abort "EXCHPROP" nil) ; a Nil <msg> supresses
6 O# i! f) T8 k3 d
);if ; ai_abort's alert box dialog." e9 C/ L n1 }' b$ R( T
9 O w: e/ Q' }+ N5 r
;;; ==================== end load-time operations ===========================
* z% r* {9 P1 \. |$ x
) y( u$ W" \7 H1 \' Z' A# z3 k l
;;; Initialize program subroutines and variables.
% s2 |! F3 F0 l$ j
; p$ C P8 h$ p; K; \- H! c
(defun ddchprop2_init()# x' ^! {3 B4 k1 {
7 U4 X2 _3 V9 y/ w; n
3 ~6 F( y- V# e$ a* X8 I
5 g0 d: u+ l6 i- R8 T
;;
8 t0 M* W ~6 o3 b w
;; Define buttons and set values in CHPROP dialogue box
8 e5 }$ x- z* p* Y3 n' l) O" q
;;
2 t& X8 ~- p! S
(defun call_chp2 (/ cmdact p1 p2)
% ~6 \- E# b: _8 L: `
. h; C# E+ h) m
(if (not (new_dialog "ch_prop" dcl_id)) ( U5 g! ]* N# P7 A
(exit)5 F+ I7 g8 Z1 e
)
; W: ~4 N. H }! ~" V5 N
% B( J) Q# R7 D! E2 v3 W
(set_tile "error" "")! v9 V1 q7 O% ^' }
;; Set initial dialogue tile values
$ b- z' X* E+ C8 K; }
(set_col_tile)3 I2 V' C, u0 w/ n# m3 {
(set_tile "t_layer" elayer)
6 r; K7 e. d x- @
" T" A# B, ^8 k' f
(cond8 ^2 ?. N5 v6 S- V. W; E
((= lt-idx nil)
; f" H; _3 p# p! z- Q
(set_tile "t_ltype" "Varies")9 {: }1 e* |9 \- Z
)
) w) ^ X6 E! ~ W! \: k
((= lt-idx 0) ; set tile "By layer & layer linetype"
' N+ \, ^: Q1 p
(set_tile "t_ltype" (bylayer_lt))
) y: i6 A6 K. g/ v
)8 ~& O5 g5 ?8 Y1 |0 ~: q
(T
/ V, M) o2 C, _% w4 r
(set_tile "t_ltype" (nth lt-idx ltnmlst))
5 }5 M! _+ A: J& x- B1 d& O
)
9 |' E" B9 b5 Z' B3 `9 |
)4 T8 {( ~0 u% u% Q4 J+ s
- j3 R' i/ w- T. B* w
(if (or (= ethickness nil)
; u% |; k1 H0 x1 n# G) D" V9 M$ Z! s
(= ethickness ""); D. _1 Q( Z8 D5 y9 n- l6 I
(= ethickness "Varies") : H" ~$ I T. n5 o; X4 w; H
);or: X4 l1 z, u2 n: ^; X
(set_tile "eb_thickness" "")
4 L4 H% {9 G% ?: V9 A
(set_tile "eb_thickness" (ai_rtos ethickness))
, d5 B3 ^1 ~5 V8 N0 f, V5 d
);if
: f! h8 S2 @+ d" d( T& H' c; F
(if (or (= eltscale nil)& V# n8 t8 f8 G: A) V( s/ y
(= eltscale "")( \& |0 R0 T7 ]! z
(= eltscale "Varies")
5 z4 _7 F8 ~6 q/ o) O
) H6 C; N) D0 L7 U! f! a
)
3 o# V& Q' Q. G+ x0 p1 {
(set_tile "eb_ltscale" "")
3 u/ K$ D! h$ k y' N
(set_tile "eb_ltscale" (ai_rtos eltscale))
: e8 h1 q: s7 c8 d: E# ?
)
' B# S# o4 H0 x" r) t$ D
(if# L' G7 D& f; @+ ~7 a5 P4 v
(numberp ewidth)
1 O! v7 U+ t1 V) t1 U$ i! [ d
(set_tile "poly_wid" (ai_rtos ewidth))( q5 c1 j+ }$ ~: H( |, V4 z
(set_tile "poly_wid" ewidth)2 C; O- m& ^* S Q, w
)
o: q! [$ c- `4 v( i5 s! [6 O) N
(if
) s# F( o( @. i! j- l5 O+ t
(numberp eelevation); ?9 E/ L- J6 N# [
(set_tile "poly_elev" (ai_rtos eelevation))+ i/ h4 S6 `6 O
(set_tile "poly_elev" eelevation)
# b+ I; L/ k+ U0 D2 v
)
8 f( G7 A b, n
(if! B! A; g' e( |! A
(numberp eheight)
; u$ p7 s* i% W' k5 q) g+ t9 w
(set_tile "text_hgt" (ai_rtos eheight))" q1 j% c1 `4 x8 n6 {
(set_tile "text_hgt" eheight)
& _0 `. ?) `# V3 a
)* J9 T6 g7 o6 `. T6 v
(if (not estyle)# o$ j, ~% U9 D( o
(setq estyle "")
0 ]; V5 S; v r9 ?3 j* N
);if
) t7 u( h9 L0 r9 i% `8 W {
(setq hair_style_list (tnlist '("style" 16)));setq
; O$ v! g6 @* @5 b
(if (not (member estyle hair_style_list)), {9 S \7 t, u' L# c4 U: Z" [
(setq hair_style_list (append hair_style_list (list estyle)));setq1 Z ]1 E8 k D
);if " W4 n: R( _3 n5 a1 J; |
9 M$ x# u3 ]0 E. w7 d2 c
(setq hair_style_list (acad_strlsort hair_style_list));setq
' d! ?0 z9 M3 H; B8 ]& J
(mpoplst "text_style" hair_style_list)
9 l# C) G* d" @
(set_tile "text_style"
1 ^$ G' o$ _# J8 w% F7 t0 B0 b; e
(itoa (position estyle hair_style_list))- e0 O/ C4 R, U1 h4 z/ V
);set_tile
0 i$ _5 K) N6 J h
- ^: h# D4 {* K" k. F; E. j* f
;; Disable tiles if need be... ;@RK
. Q# \- O' I0 ~# X: x9 [7 l, K
(setq a 0)
5 N$ L3 E* z* {* {" x4 T* w
(while ( < a (sslength ss))
7 `: h6 {2 ?* J- o& U8 W0 g0 j; ^
(setq which_tiles
! a) Y# v9 M8 J, N& \
(ai_common_state (cdr (assoc '0 (entget (ssname ss a))))))
4 L' {9 S4 G7 j5 V: P0 o
% T" h. c0 P8 m, v n1 Q9 F
;; If all fields are enabled, don't bother checking anymore.6 y S% B- c7 `" A4 n' o0 r
(if (/= which_tiles (logior 1 2 4 8 16))6 k% y' Q4 U6 X6 w
(setq a (1+ a))
( f- T" b0 e$ ?8 v
(setq a (sslength ss))5 H- m _) w3 V2 {4 P' j/ _
) H( m; N, t# F4 z% p9 n6 E
)
2 A% M; {( A( f5 B
;; Layer Button and Text Field
4 a5 ?* y; f# y# B$ b
: n- S; ~, X; {( h0 ]; F
(if (/= 1 (logand 1 which_tiles))
1 M1 H' b- G, h' b0 C! A
(progn0 m- G W, D# R9 v9 j0 L [
(mode_tile "t_layer" 1)) N: J2 [2 f9 v" K# s8 q
(mode_tile "b_name" 1)0 j5 v- B5 ]6 X6 v1 N
)
5 g! c C8 B. W ]& ?
)
/ s+ \+ o$ E6 |. ?2 g& j! [
' l1 w5 \4 F: [- W
;; Color Button and Text Field
5 a' E+ d* L1 S$ F- N
(if (/= 2 (logand 2 which_tiles))# B4 t6 T3 V5 b% g# x! a2 m
(progn0 B7 R4 ~6 C6 Y8 k
(mode_tile "t_color" 1)
& }3 A$ w( J n
(mode_tile "b_color" 1)
& [% y" P! W' h/ X1 B. j
(mode_tile "show_image" 1) K6 s! x: o- M( |: _; L3 K
)
' j9 j; }2 O$ b" [
)( k; D& }3 D+ G8 X% { e: w) M- S
;; Linetype Button and Text Field- z# d/ G8 |+ j5 Y
(if (/= 4 (logand 4 which_tiles))
, d& j* F2 z) o: ]6 g5 g
(progn1 Y. q' A$ @, }% T4 ~% m9 d
(mode_tile "t_ltype" 1)
2 `/ h( X, M. I6 f1 w( ]% F2 [
(mode_tile "b_line" 1)4 y; n( v/ |, Y9 K8 a! c$ O! O
)- S4 c; G" q. l ~2 [ p" M* r2 z
)
8 s1 F/ g+ m/ L0 I
;; Linetype Scale Edit Field8 l# F/ e4 G/ ~: w# ]
(if (/= 8 (logand 8 which_tiles))4 e* f* [ _, |6 S1 s t0 @8 [
(progn, F% A+ `5 ~/ e0 o7 k( ^, V
(mode_tile "eb_ltscale" 1)
' Y9 ?/ Q K9 M. g! S
)( y! `/ g2 P3 {$ R0 [
)
3 M" V* v& c: L0 k
;; Thickness Edit Field.
2 @4 N* I% D0 s7 p% Q: j8 o# I/ Y! M5 f
(if (/= 16 (logand 16 which_tiles)) p Z7 X, ^" S# M/ `7 C8 `
(progn; M$ T2 H% K5 F0 P1 e2 C& g+ k _
(mode_tile "eb_thickness" 1)
/ `; k3 v9 f+ s) u! a
). {( R5 y& x6 }7 E( S# z$ R
)
9 e( W" Y9 ?' ]
# n5 n; Y9 i! `. l5 N: c2 p
;; Polyline box and tiles @rk 10:05 AM 1/30/97
( R& X* s4 h) H. }0 o
(if (not (= 2 (logand 2 eflag)))
: f- {$ a7 Z! |! g* c) C
(progn$ s! b% I0 H6 D0 C# _/ B
(mode_tile "text_hgt" 1)
: A( f9 h/ ^9 W$ ~
(mode_tile "text_style" 1)7 }* i1 x6 x% N
);progn
1 h% R0 b, Z) S- u8 p; l
);if$ _, t* @5 y/ V& p; I; A/ m
(if (not (= 1 (logand 1 eflag)))
4 v3 w, H! S o; t2 |
(progn
8 T& v+ }3 {/ c
(mode_tile "poly_wid" 1)
: K5 Q/ W6 k2 J s
(mode_tile "poly_elev" 1)- Y( o( h) P3 R$ x) W# X5 V& a R( `& p
);progn then disable polyline fields& C" X' D2 _3 L
);if8 ^" [5 K( l9 h7 u4 P
0 c- L; N% A, n. W: }: `
;; Define action for tiles& Q' v6 O' G* p5 i2 }* a! q
(action_tile "b_color" "(setq ecolor (getcolor))"); B! X' y8 J/ J. t4 Z, @+ _
(action_tile "show_image" "(setq ecolor (getcolor))")6 [9 b* C( [0 ~7 _* w; B# ^! }7 U
(action_tile "b_name" "(setq elayer (getlayer))")
$ n: O$ V1 |( p. \/ f
(action_tile "b_line" "(setq eltype (getltype))")
9 X3 H6 X! V8 o4 \+ g, |
(action_tile "eb_ltscale" "(getscale $value)")
, k& T# o4 D7 J; \9 c0 z
(action_tile "eb_thickness" "(getthickness $value)")
@1 A2 o9 l# g% H
(action_tile "poly_wid" "(getwidth $value)") U& B: e* D! e7 x
(action_tile "poly_elev" "(getelevation $value)")
/ k7 B" ]0 v) @
(action_tile "text_hgt" "(getheight $value)")
Q1 }5 b4 y; O/ y& k$ a7 A$ x2 b
(action_tile "text_style" "(getstyle $value hair_style_list)") . _$ w* p9 X( F1 Y8 m
(action_tile "help" "(help \"AC_BONUS.HLP\" \"EXCHPROP\")")9 q6 K' Q" W, Z; l& M
(action_tile "accept" "(test-main-ok)")
* u3 F1 G( g& b) E
4 A7 K* q) L2 A
(if (= (start_dialog) 1)
1 \! @3 z2 p) s8 s7 j% [, n5 I* w; l: y
(progn7 z# b4 N) }# z- o z
; Update special properties for polyline and text selection-sets.
4 x5 ^$ S. m# a% f& V- P( s
( a% r7 U- o8 ~2 J" }" x) S" Z3 o7 U
(if (and (= 1 (logand 1 eflag)) ; polylines rk chprop
7 S3 x, ]: B: X+ X4 O% U
(or ewidth! y; k4 E, t2 {. { ~8 g$ W' m
eelevation
! G$ V3 p6 h3 V0 P6 G+ {4 E) ~* v4 `
);or
7 l4 o; x8 U2 J2 D( H
);and
7 [8 K* {; k! k W6 G( x( m3 t( m
(progn
1 S" Q" v' r/ Z0 `1 k
(setq ss-index 0 * e4 ~: \3 h: @1 T7 ]/ M% d3 l
ss-length (sslength poly_ss)+ I. T7 Y P, p& p: {* |
);setq
7 C, q6 {2 c3 @% r# u
(while (< ss-index ss-length)( w/ p7 x$ q! R7 o+ ]# m% M1 ]5 n
(setq ename (ssname poly_ss ss-index)
1 p$ L, E7 S6 y3 G
elist (entget ename)
/ u2 h5 e, \1 {% @4 l
);setq
2 a, \! A4 g1 X3 }) Y
(ucs_2_ent (cdr (assoc 210 elist)));this function lives in ac_bonus.lsp) M+ ]( h$ z: }- c
(if ewidth 5 D7 A6 E/ z0 H/ n, t* ?
(command "_.pedit" ename "_W" ewidth "_x")+ R- W( W4 [7 S0 D/ U
);if
+ i0 y5 l; v" x& G) a
(if eelevation % b0 n8 G$ Q0 f/ A2 n' L: g
(progn* j$ A4 a1 A2 ~+ x$ f; ^$ \6 y
(setq p2 (list 0.0 0.0 eelevation));setq( U/ E! s8 p0 U# ]0 `: M) D: a
(if (equal (cdr (assoc 0 elist)) "POLYLINE")
! e, g4 C6 L1 V c. z4 c
(setq p1 (list 0.0 0.06 y$ E t. O2 X+ X1 @2 c
(caddr (cdr (assoc 10 elist)))
" W5 C+ F$ X- T( `0 p. y3 Q7 C% N; }
);list S: a. U7 t. X ~
);setq
- w8 n$ |6 f. o: k/ y! I
(progn( u9 D, I7 W8 W0 }" D2 G3 n3 f3 J3 ]
(if (assoc 38 elist)0 n3 O6 m( s E* j$ S; |
(setq p1 (list 0.0 0.0" q9 M" d, \7 c% z* K
(cdr (assoc 38 elist))
7 j6 u0 D! T. n( X2 a( z
);list
3 v5 m' m# V' ~
);setq
) L5 h" r: O1 u L0 Z5 |1 [
(setq p1 '(0.0 0.0 0.0)). K. v3 }3 \: U; c1 |7 g" X' V& `
);if
' f% F7 b6 s' z: \
);progn 3 U: y7 z8 _& W( |& f6 s+ k2 X
);if
: o9 H' h3 k e3 R, Y3 w: ]
(command "_.move" ename "" p1 p2)8 Q: X- _% p, a
);progn then change the elevation of the polyline
7 j* b' m) ]- ?6 i M; x, Z) M
);if9 e1 j3 u5 U& \' @5 |3 J& Q. d$ [; m
(command "_.ucs" "_p")
; J) d5 s& Z; f9 W# U5 E
(setq ss-index (1+ ss-index))
/ D" x- c' z U- G/ L5 f
);while" a- e3 p' `, W: Q% I0 P! s7 |
);progn then polylines are in the selset. W' k4 o- T; }; K4 c9 m6 D
);if7 p. _# R4 E$ r+ c1 Y9 ^" t: E3 R3 A
(if (and (= 2 (logand 2 eflag)) ; text
, k4 O& x( h1 v3 F# o+ n" X0 b, {$ ~
(or eheight / x. j% t$ F2 N: ]# y& G2 ?
estyle
% B0 |' |& c* y L1 B5 h
);or
) `" \0 |8 o* C& \- R/ @
);and9 l+ ] c' J' J+ T" K
(progn! b6 `. W* C; _: c6 ^$ @
(setq ss-index 0 ss-length (sslength txt_ss))+ h, i1 @6 F) \' o! s
(while" U8 _5 E1 E* D+ Y1 t4 u( q& v1 x
(< ss-index ss-length)
5 ]; F8 E9 x$ o0 ^$ E. ^
(setq elist (entget (setq ename (ssname txt_ss ss-index))))
* Y+ a6 t: _; g$ D% m" R+ w9 d, ?
(if (numberp eheight)( R' h7 V2 k" o4 ?7 }7 d
(setq elist (subst (cons 40 eheight)
3 n" @+ D& z3 y
(assoc 40 elist)" E9 X% \. F9 \4 z- u5 i
elist
, c( O- p+ Q3 Z7 Q |. c- K+ h8 E) }
);subst) u0 y8 n- C: v2 W; g$ V
);setq
( Z/ G. e: L" v8 O; m
);if
: `4 Z$ `" g+ M) _) F
(if (and estyle ;(not (equal estyle ""))* j# z6 N$ u$ \# K
(not (equal estyle (cdr (assoc 7 elist))))
- j) y+ P. E# z' ?
);and
W3 @; |3 d. l) A( q
(progn
" R6 e- w& I$ K' o/ {/ p- u
;rk. This needs to be implemented as per mtext font issue in ; ddchprop_notes.txt $ O( u( x; C8 z- O5 A
;(if (equal "MTEXT" (cdr (assoc 0 elist)))3 ?! @. K" q/ U4 W9 M" L5 u5 w( Y
; (setq elist (fix_mtext_fonts estyle 3 o! h9 g4 \# i- ]& L2 |
; elist
+ L/ ~. q4 N- T- J+ f
; )
, \5 W$ q Y$ \+ f& G
; );setq then- u. o" w+ m3 L( Y8 c9 w% @
(setq elist (subst (cons 7 estyle)
" `) y+ |' G2 W: U- m* K7 G
(assoc 7 elist)
' d S. q' V/ k% V0 g0 ~0 X
elist. E* v+ U ]4 x8 o2 X1 I+ N' k
);subst$ e4 q8 }% m; c& X6 b0 J
);setq else3 _9 c, Z$ @! ]: E
;);if
# ^ g) l( E4 r
);progn% }* s5 w$ x/ Q" L) R8 p# l
);if
4 Z" l& P$ x' P5 x2 U
(entmod elist)& }0 ~7 G3 _) D# Y/ E
(setq ss-index (1+ ss-index))
, l6 V* c. \$ _0 M6 z3 `- R4 g2 b
);while
' t; H, u& @3 K1 N6 K
);progn then8 J+ n% z, _/ w9 ~3 s1 k
);if
$ |: u; H: |2 e: l
4 K$ e* |0 q1 F. n, d- Z
(setq cmdact (getvar "cmdactive"))
) m* J0 I/ G W9 s! Z3 a
(command "_.chprop" ss "")
: e% @0 p7 R& I5 {6 d# _! Y# H
(if (/= cmdact (getvar "cmdactive")) ; Is CHPROP actually running?) `) z0 O" ^4 J u
(progn
! {, w; h8 H8 h, x) X5 Z
(if ecolor
* E0 f6 }& U) x( ?0 d6 q, S$ P
(progn
1 \$ m3 N% Z* e, Y
(if (= 0 ecolor) (setq ecolor ;|MSG0|;"BYBLOCK"))
9 \: Y, y( {; e0 f1 S+ C$ n' B# V
(if (= 256 ecolor) (setq ecolor ;|MSG0|;"BYLAYER"))
9 J s% e9 d( M! }/ S
(command "_c" ecolor)
* ~) j9 Y9 [8 l( a' m/ U
);progn then
' K9 C: o S6 ]- F
)& F. h) X* H" W: I. d
(if (and lt-idx
5 B6 m$ I: A) R
(/= eltype ;|MSG0|;"Varies")- M6 ^/ d% {* S
) r1 @, F* `8 @1 z- j
(command "_lt" eltype)
# O3 o) \. g) X" W2 `; |
)6 w9 U# x0 [' l( B( m3 {% o
(if (and lay-idx
5 O6 X5 j" o6 v- H2 x5 X
(/= elayer ;|MSG0|;"Varies")
# u w. e$ C6 V7 @+ d
)
3 B \6 g! L N# I
(command "_la" elayer) j. X& X; e5 A$ j
)
% }" x& ^& C/ y
(if (and ethickness
2 N+ G. M W* H
(/= ethickness "")' x1 N/ D% j8 O, b! U$ r
(/= ethickness "Varies")
7 E9 X7 d' I# ` |2 w$ x
)$ [0 u3 D. |# a0 V
(command "_t" ethickness)
8 v$ A) O# W# e
)
2 ]& z+ N/ b) \- V9 x: x- f5 T
(if (and eltscale (/= eltscale "")). n. r8 K) V& ^; R! g
(command "_lts" eltscale)4 P2 n! w H( c9 G- h% o
);if
& q( {1 ?" @- c1 ]2 J
(command "")
3 ^2 O2 d3 m2 |+ M( e( n
)
! s; M) z L4 \. @& l3 l9 P, p
(princ "\nProperties unchanged") ; CHPROP didn't like our SS set
8 ]8 |% _' [( s) D( J) { h/ k
)
. l" @4 S5 G! D% u
5 d. w# `" h3 J7 }& I9 g" R
);progn then OK was picked in the dialog. O$ B4 D! s6 o! G+ K# s% E5 O
+ @9 N9 u0 \: h+ @9 p
;; Fred GERBER - 25-AUG-94 q! W b- j8 F. H
;; Don't print the "Properties unchanged" message when the user cancels& P( g5 |# g6 T w s+ v' Z% z6 q
;; the dialog because he knows that already (otherwise he would have4 A! S3 B5 z6 k- `0 R( Z
;; hit the "OK" button). Display the message only if CHPROP fails for
! V4 M6 e. d5 z- A0 R
;; some reason, because it is not the expected behavior of the command.
, p8 X: b( B- f2 d8 w; O2 e" Q
;;7 H3 }! z% e6 f% q* Q1 q
;; (princ ;|DDCHPROP2_LSP_8|;"\nProperties unchanged")) O, A. ?7 \* R
);if
5 v* ]) k: W, q" A
(princ)
0 J! ^# \5 W% W0 Y! v9 p( o
);defun call_chp2 g- ?$ S) ?6 j5 I2 n
;;: G* U$ m/ z' j( K6 q9 w( c
;; Function to set the Color text tile and swab to the current color value./ r( w( {' v; d8 ^$ N5 ]
;;
(defun set_col_tile()' u4 D& V& y, z" j1 v
(cond
9 I/ T9 W% t8 Q5 {* G
((= ecolor nil)
3 r, T: ?1 o7 L2 l8 [: d. M# t
(set_tile "t_color" "Varies")2 p- z/ O! [& ~* e5 E& S
(col_tile "show_image" 0 nil)/ D* ^" X8 B2 D& C4 R
)
( A& {( j S/ {. K9 h
((= ecolor 0)
$ h* I/ |; ?* J3 h7 O3 K; x
(set_tile "t_color" "BYBLOCK")
# }8 v5 x5 p. W8 k5 `8 @
(col_tile "show_image" 7 nil) ; show BYBLOCK as white
' I. K' ~ e, e1 Q
)
! i" ]! m5 t$ n
((= ecolor 1)
6 K! f4 f, Y3 q: w4 D( D
(set_tile "t_color" "1 red")# P% i' O1 G5 q9 F8 I1 P" U
(col_tile "show_image" 1 nil)
# T- C# l4 n* r/ t8 z, j# {; j
)% z, P% A% N7 g1 z
((= ecolor 2)
1 L2 M: f7 F+ M1 w1 J& d" X& B8 _
(set_tile "t_color" "2 yellow")" V1 W& o( {8 ?& L7 v1 w
(col_tile "show_image" 2 nil)
* P+ ~4 \: r/ T: h! u: _" ?) Y
) p% _" B4 ^+ a% n% J# N8 s
((= ecolor 3)# T: \, `3 k: V. l* y/ G3 z
(set_tile "t_color" "3 green")
! t8 G1 G; L: o# ]) W
(col_tile "show_image" 3 nil)9 J* H9 S7 H! |" ]- ?* }+ V, \
)
9 r: ? m' s8 b5 k
((= ecolor 4)
2 y: @' {. S- I0 W% C
(set_tile "t_color" "4 cyan")" q( M, Y7 r1 m' ?
(col_tile "show_image" 4 nil); D P; a" ]% S; Z9 T6 a8 b* U0 R& [
)
9 n5 A% H4 E' P# r& m, n% r
((= ecolor 5)# i/ M) F4 a H; U: }1 z R
(set_tile "t_color" "5 blue")& c, R* e' B% K6 x3 T: J% j9 i
(col_tile "show_image" 5 nil)2 s0 r* r1 G6 l4 {5 ?
)* g, M) D0 l6 j( e
((= ecolor 6)
9 h0 e, J5 @4 H% O( h
(set_tile "t_color" "6 magenta")
5 O; D0 s5 ~/ b2 j; ]9 `
(col_tile "show_image" 6 nil)
" C( u1 ]4 V. }0 q
)
`$ X! @: ]6 Y/ E' ?
((= ecolor 7)+ ~# J& e; ?! X6 p2 c4 D
(set_tile "t_color" "7 white")1 D+ E0 n. l5 C8 S$ a1 P K6 F( Y
(col_tile "show_image" 7 nil)
, @$ @9 e8 F; Q. A9 [
)3 \" i Z2 ]0 v/ B" o5 j6 v
;; If the color is "BYLAYER", then set the tile to
0 C$ l& M9 G$ [1 p; ]# j+ S" r
;; show it's set By layer, but also indicate the
( g% R4 [) Z7 f4 [7 @
;; color of the layer - i.e. By layer (red)
2 R- G7 K5 m3 O
((= ecolor 256)! y* i; `$ B2 C5 r% L5 f
(set_tile "t_color" (bylayer_col))6 Y! C3 d; D& Y
(col_tile "show_image" cn nil)$ y6 x- @3 s; J# K: c) D% U
)$ m- D( `, C) l& b
(T
' B3 t! @; c B% ~9 S2 v( d
(set_tile "t_color" (itoa ecolor))
. d ~+ H5 R# `! n2 L9 x; I
(col_tile "show_image" ecolor nil)* d' I' W1 R! k; U6 F, ~- V
)% F+ j6 M! Q9 L, t' R6 M) O. T
)
; O5 S6 a" k( Z, l
)( ?* J, e2 \7 H+ O% P* k
;;
7 j) T6 }+ z1 y6 a q
;; Function to put up the standard color dialogue.1 w0 ]; e% Q- k; f
;;: u3 n5 d$ E* r1 a) t
(defun getcolor(/ col_def lay_clr temp_color)
$ s% c7 c9 U) C* `, k
;; col_def is the default color used when rq_color is called. If ecolor
& ~& X5 ^2 Z- D! e8 B9 E+ O
;; is nil (varies) then set it to 1, else use the value of ecolor.4 L* O3 n2 I" b; \- l4 Q1 d
(if ecolor! d1 m- |+ Q, Q+ |+ Q2 K
(setq col_def ecolor)7 K/ m0 D) Q) R7 B- U, E/ X
(setq col_def 1). q/ }% x/ s0 g @7 Q9 P y
)
' P8 M) r/ M! A: c, W
; V6 J) Y9 n# {* [6 D7 ?# J
;; If we're working with a single layer, get its color9 `7 ^- z2 ]' F3 c& W% P0 t1 _
;; for use in the color swatch if the user selects color BYLAYER.
5 Y7 b$ A" p" J; ^) d. V! _+ b1 d
(if (/= elayer ;|MSG0|;"Varies")) M, F: e1 | g" x: F
(setq lay_clr (cdr (assoc 62 (tblsearch "layer" elayer))))" W& {5 a1 l. L6 y8 H3 O8 e2 ]
(setq lay_clr 0). l/ }9 p$ S- |# V* s) V
)# b) p: y5 C% w5 a* F! x
(if (numberp (setq temp_color (acad_colordlg col_def T lay_clr)))* I. K. Q. c0 i0 v
(progn J* R6 f1 V/ O( k# O1 J; R
(setq ecolor temp_color)1 P6 Z+ A" C% o' F8 ?1 M5 ^
(set_col_tile)
* m8 V6 V+ ^3 ^' y1 L: o
ecolor
v3 g# U& S( c' W
)
. D* e) }) a% E& _3 T6 G. J$ R
ecolor
4 m( T7 ?; Z; Z" i0 y3 P+ V, S$ ^
)% u, Z, ^8 a3 ?
); P7 m1 N1 ~6 V3 f
;;! w9 f; G1 ]9 C* V/ B
;; This function pops a dialogue box consisting of a list box, image tile,
0 }& } |6 y3 r
;; and edit box to allow the user to select or type a linetype. It returns
. h# K% H- @' c+ p1 P7 J# p
;; the linetype selected.% m, O% H: l. }5 M' Q( {
;;
7 x" U( W/ ~7 I3 \; [# f& _
(defun getltype (/ old-idx ltname); r6 I1 Y9 a9 f9 I/ x4 j q
;; Initialize a dialogue from dialogue file6 f/ k+ Z3 Q% a+ ]
(if (not (new_dialog "setltype" dcl_id)) (exit))
7 H; |) b( [& J! d9 e8 D
(start_list "list_lt")3 o! v; I0 u S& u z5 ?- E
(mapcar 'add_list ltnmlst) ; initialize list box
$ q# M1 v* i+ @2 b+ S- Z3 @! c
(end_list)
# Y3 Y$ _! x% n) O& P% w
(setq old-idx lt-idx)
; s0 m# s: p9 y$ B R* J
;; Show initial ltype in image tile, list box, and edit box
(if (/= lt-idx nil)/ O' B8 _/ ]% x" b3 C- O
(ltlist_act (itoa lt-idx))' a+ N4 o0 J: Z" X% t3 B9 n
(progn
' C. X& U' o4 F5 |
(set_tile "edit_lt" "")
# t: _7 J! Q& K& s+ |
(col_tile "show_image" 0 nil)
7 Y+ n3 v+ \2 n6 e; f' _9 X
);progn else6 ?, g/ C: I5 W$ Q9 ^4 V O# E, p
);if5 C/ F( _8 |4 I# E/ H
(action_tile "list_lt" "(ltlist_act $value)")
. U- }" |$ S# v$ F5 ~: N1 Z" E
(action_tile "edit_lt" "(ltedit_act)")# L) F( ~0 M, z* z& X9 c
(action_tile "accept" "(test-ok)")
2 b* j) h2 l1 @& A& J/ M5 C2 h3 b7 m
(action_tile "cancel" "(reset-lt)")( G; |: \# p1 s4 M2 s
(if (= (start_dialog) 1) ; User pressed OK8 I4 a0 N |- e
(cond2 @$ a5 ~& e+ J6 ]% L2 o" p
((or (= lt-idx nil)
- B% o5 e5 i: e6 g
(= lt-idx (1- (length ltnmlst)))7 G5 p; l2 d6 C! V
);or
$ _8 h1 H# ^* t
(set_tile "t_ltype" "Varies")- N5 v. Q+ p0 O
;|MSG0|;"Varies"
- o3 J0 k Q# B- l
)! A& w) y* Z& X, C% }! s, X
((= lt-idx 0): V. U* g% s, y, }& d
(set_tile "t_ltype" (bylayer_lt))
, ^- f8 ^& {% h& @
;|MSG0|;"BYLAYER"' P" N! F4 w7 X5 f9 z% j
)( z4 ^" L2 E) u I8 {1 s% o
((= lt-idx 1)6 W4 W3 D* t* S! `
(set_tile "t_ltype" "BYBLOCK")
& L, |' ?9 M# e" E+ Y
;|MSG0|;"BYBLOCK"
( P9 [5 V/ M4 w" x
)9 }- Y/ t9 z1 o: W1 ` z
(T
4 ]. o4 a& W2 U0 e9 h* v( Q4 \
(set_tile "t_ltype" ltname)
, x2 A. _5 e) u$ \% ~ p& w
ltname
! z4 L3 t2 {0 q. {6 p
); M, p; c. Y/ e9 M
);cond then2 q8 ]7 n8 [( i9 F. z0 q' X: |9 |
eltype
" g, d1 t& R/ a7 n
);if
o1 B b4 }$ \9 ]: f
);defun5 O+ W% m9 v9 R- ^2 l
;;
7 y3 b8 m( Y1 k& \; Q
;; Edit box entries end up here7 V4 w- N) C8 f' c. g6 p% _
;;
* K4 b2 J" `+ D
(defun ltedit_act ( / flag)
3 H8 x- ~ Y# C- |0 T/ d' A& y* f
;; If linetype name,is valid, then clear error string,* |: d2 _2 ]! @, \6 U) r
;; call ltlist_act function, and change focus to list box.: Y4 R( T+ J3 }, R
;; Else print error message.% h2 C2 q4 s: ]" x9 p; C6 o- w
, N$ I$ ?* p l8 {
(setq ltvalue (xstrcase (get_tile "edit_lt")))
5 z6 N- c3 S3 m( Z% ~# i" ?9 ?/ V
(if (or (= ltvalue ;|MSG0|;"BYLAYER")
5 P, j+ C8 \9 m7 @5 z9 X
(= ltvalue "BY LAYER")$ n6 p9 o* c" S- j; ]) q$ z
)
* H+ Z# { l# M
(setq ltvalue "BYLAYER")3 v: j+ Z6 u/ `# R! m# J( T
)
: ?. t3 {& R* S0 C+ w
(if (or (= ltvalue ;|MSG0|;"BYBLOCK")- w* x- Y" G6 ~1 C8 U
(= ltvalue "BY BLOCK")
6 }9 f# I8 _7 u# J3 D- R
)
* S* c0 i9 J/ X- V5 `$ Y6 M j( T
(setq ltvalue "BYBLOCK")( x& P; O. T9 b( B( g* M0 T+ e' O
)
1 K! x% d, U, j7 w
(if (setq lt-idx (getindex ltvalue ltnmlst))
4 V! Q, U, d. @6 Y; ?% c r. d
(progn' [ k8 W' y5 w4 q" M
(set_tile "error" "")
( P9 P- v/ P, @3 v0 B7 K
(ltlist_act (itoa lt-idx))
- Z( a. B. W% ~6 z2 H
;(mode_tile "list_lt" 2)! r N" L3 R0 P- ` q5 N' H$ t
);progn then
* d' U7 i6 i1 w( n% Q
(progn# i$ S+ H. R5 m4 R+ i
(if (/= ltvalue "")* s6 o) J$ N" h+ @6 g
(progn
# @& r) L' H1 R
(set_tile "error" "Invalid linetype.")$ G/ i- s- o6 P* r! S% D
(setq flag T)
" [1 ^/ e7 i, _* F# `3 y3 \2 K
);progn+ Y( S G" F; E* N; E" O: _
)! ]7 r3 u q7 H2 l* w
(setq lt-idx old-idx)
* h0 _" ^/ j1 C* a
);progn else
- C7 q' r8 L8 h ?' A3 u+ O. T
);if
# d: D, N2 z* y$ ~
(if (and (not flag) ;added so a return will take you out of the dialog.
f6 y$ Z0 p/ f6 E
(= $reason 1)
5 ~$ a* u* s6 L: |# l/ u4 N# F
);and% q: d/ L: c- t* S
(done_dialog 1) 8 X' ?5 G/ F# k" C$ ~
);if
* E: F/ G. i- K3 q$ L
);defun ltedit_act! \1 y) z; _. i4 Y
;;2 E4 J/ Q9 ?* _ E( B T- [& S
;; List selections end up here
" K" H% R5 Y5 u& _6 Z
;;
( Z5 X& e% ^+ l5 P; F
(defun ltlist_act (index / dashdata)5 k, P9 w4 I( x# D. s$ Z
;; Update the list box, edit box, and color tile
9 J% y# g/ r1 f& r2 ?+ w
(set_tile "error" "")
- j- J9 x" B6 J, Y; L
(setq lt-idx (atoi index))
' b# {4 h8 Z2 F, p0 W& m$ Y
(setq ltname (nth lt-idx ltnmlst))
6 F8 I; T9 f/ p, S
(setq dashdata (nth lt-idx mdashlist))) x4 q! Q* y# @! g; F. F. f
(col_tile "show_image" 0 dashdata)1 B0 k+ q8 q" ]2 I( @
(set_tile "list_lt" (itoa lt-idx))1 b; v6 M f7 D/ r6 ~
(set_tile "edit_lt" ltname)
5 s* |( n( x, N8 z
)
, X9 ~( B6 W" m& I1 Z* S
;;+ w& ?* z1 S# r" {2 S
;; Reset to original linetype when cancel it selected4 e5 z1 G" `: N" F6 n) p
;;
8 {, Y0 c: j( o/ H2 ]8 b6 o
(defun reset-lt ()
/ T/ u& H } ^6 Y6 A% C, P* x
(setq lt-idx old-idx)
, O- Z7 z! q. R: H/ b! Y
(done_dialog 0)
: |4 l! j6 H- ~' G: k w
)" A4 X2 K+ h1 Y, r
;;
0 C1 y( s2 p; U- m* J* l: |6 n1 @
;; This function pops a dialogue box consisting of a list box and edit box to0 C3 ~- }" h$ f1 R }+ Y
;; allow the user to select or type a layer name. It returns the layer name2 V$ G* j" ?+ U+ L) A7 A
;; selected. It also the status (On, Off, Frozen, etc.) of all layer in the
+ G0 i5 n" X+ v7 P: I( i% e
;; drawing.
! i# H3 f% P9 d4 f7 f5 m
;;( q. t; ~' I) V( c4 r
(defun getlayer (/ old-idx layname on off frozth linetype colname): n e5 p+ J5 e, X
;; Create layer list the first time the layer6 B- d9 C" b/ ]
;; dialogue is called.) d. x6 Y8 X- R* ^) O( t
(if (not lay-idx)$ q5 f; X% _ a8 M) q: z5 r4 d# S
(progn
8 | \! Z6 v- e( B
(makelaylists) ; layer list - laynmlst
9 \0 J& m4 f4 f1 ]
;rk
$ f- e9 C7 M% K, y) G
(setq lay-idx (getindex elayer laynmlst))
7 `) a" y; E* Z! R/ j/ t
);progn: d& ^; m( i9 m2 P$ W
);if P0 f5 |2 P) s5 h+ A! T- ^9 }
: R/ _" |7 K; {: R- `) N' w: Z
;; Load a dialogue from dialogue file6 s" s3 {6 ^! M' c e9 V
(if (not (new_dialog "setlayer" dcl_id)) (exit))& A% A3 c3 l6 B0 o( k; D1 P$ r
(start_list "list_lay")! r% o* n$ P3 S
(mapcar 'add_list longlist) ; initialize list box' t, D1 K; S% L9 }
(end_list)
: D' _: Q6 {- S' u) G% ]
;; Display current layer, show initial layer name in edit% K: v7 L1 p! y: Y
;; box, and highlight list box.8 S' B7 e+ C) K5 _# p
(setq old-idx lay-idx)
# j2 U! n* \- h+ j3 A+ `
(if (/= lay-idx nil) (laylist_act (itoa lay-idx)))& H N! d2 Z# Z" F H+ k
(set_tile "cur_layer" (getvar "clayer"))
0 @% x$ X! D1 K$ L% S; p& P$ E/ X
(action_tile "list_lay" "(laylist_act $value)")
0 P4 l3 O/ X; J/ W( N) @
(action_tile "edit_lay" "(layedit_act)")1 B3 E6 t" Y9 X( h' ^: {
(action_tile "accept" "(test-ok)")
, w, D- C" b8 R4 g* y4 r
(action_tile "cancel" "(reset-lay)")
" \- |5 ~5 y% w: L
(if (= (start_dialog) 1) ; User pressed OK- ^% w4 P- k, }/ O% A
(progn
; m0 c X4 J# ?% |4 C
(if (or (= lay-idx nil)
3 p0 Y# t( i: P
(= lay-idx (1- (length laynmlst)))
7 R ~) k& P( i/ [+ A) w3 a
);or+ \: J& N8 e+ [1 H8 v" @# N& F
(progn
b1 d' O) F+ w; Y w) H, I
(setq lay-idx nil) 0 h$ \! _# q z7 D5 w. o8 k! u
(setq layname ;|MSG0|;"VARIES")6 s3 O8 i. J5 \
(set_tile "t_layer" "Varies")2 y4 O4 K/ q6 X1 g# y
(setq layname "")8 Q( V- Z7 O. f# N) v, L* _" B/ F
);progn5 }+ ?+ r# C/ |, M* J% D
(set_tile "t_layer" layname)
" s3 I8 h3 Y0 e) [( C9 B0 `
);if
" n7 L1 {9 T) K2 ]; A( U# ]
; If layer or ltype equals bylayer reset their tiles9 _9 x0 E; S: v6 l# `/ \1 p
(if (= lt-idx 0)& ~+ P1 B* {8 C' t. K
(set_tile "t_ltype" (bylayer_lt))% j* G, `; q1 [4 K1 S& G6 ?
);if9 L- g2 M5 X1 T) k+ L. t& z& _7 o
(if (= ecolor 256)
; a: N# L) h; m6 Z) U$ }# Z
(progn
7 W1 F, Y* o4 o k6 p4 _7 v
(set_tile "t_color" (bylayer_col))
( r5 R( F; h) D$ o4 {, C" f
(col_tile "show_image" cn nil)! K: j& g6 n2 H# Q" r3 Z
)
* z' h' g3 v" a/ D& C! M
);if6 ]4 r4 z& Q+ |0 s
layname
7 p0 |8 W9 i- D& n
);progn$ I# [0 {( R @# e$ ?' _- i! D
elayer1 f$ J' S8 a C. }8 t& }
);if
2 n) d; X+ L" F* {; [8 A
)
% m' w% Q2 a- `7 D
;;! x' b! c( B& @+ H6 f( i
;; Edit box selections end up here4 I8 o# n& W8 ^' x H3 o6 z
;;
; U5 B: Q5 s, A6 _% Z. v2 w
(defun layedit_act()
! O. U3 o# n: O( ]
;; Convert layer entry to upper case. If layer name is
7 ]# T1 x& a! ~. W) E G9 C
;; valid, clear error string, call (laylist_act) function,
$ V6 J [" G2 p. y6 _
;; and change focus to list box. Else print error message.
% v, n+ h, |& d k
(setq layvalue (xstrcase (get_tile "edit_lay")))
, `7 l1 D* r( F Y" Z0 N
(if (setq lay-idx (getindex layvalue laynmlst))3 F3 U) K' A5 S D9 P" G$ i8 R
(progn2 ?% _. L7 k/ K, @8 o) \/ D
(set_tile "error" "")
2 \8 b' X: x. Y
(laylist_act (itoa lay-idx))
/ L* `# Q; r/ l, D/ n7 } `3 l
)
, i2 x0 x4 n$ m4 `3 p
(progn
$ t6 }! F. N& H& k" A
(set_tile "error" "Invalid layer name.")
, P, b2 n( ~( y1 F, C
(mode_tile "edit_lay" 2)1 d4 `; n1 ]6 p* A% C! l
(setq lay-idx old-idx)
- y3 i' V! [' h) u3 W
)' W: |" B7 C& @4 }0 C/ O
);if3 D* v. [; ^* j5 ]& v
);defun
; b" k3 y5 U8 z1 K' t& W R
;;6 c3 p3 |: S" ^* k2 G' b- v; B
;; List entry selections end up here
/ L4 i8 j& Q- k: |/ y
;;( t' N9 A, P q+ c+ B
(defun laylist_act (index / layinfo color dashdata)
( j* a6 ` u. v& }
;; Update the list box, edit box, and color tile
' b4 c$ B" L, Y" v' p
(set_tile "error" "")
1 ]/ M6 x8 r% X
(setq lay-idx (atoi index))
) Q' H, J) L; N, ?* t+ m2 N
(if (not (equal lay-idx (1- (length laynmlst))))' D! A# l$ ^: M9 h& K2 V0 S
(progn
) W' _2 \- O6 l: V
(setq layname (nth lay-idx laynmlst))) z# x1 F2 |" _5 O, r
(setq layinfo (tblsearch "layer" layname))
0 Z4 M( `6 w; i
(setq color (cdr (assoc 62 layinfo))): z m- q1 S: K4 z. ?
(setq color (abs color))) a# O1 R9 @4 `0 P
(setq colname (colorname color))' _* i: D* @1 j* D* N
(set_tile "list_lay" (itoa lay-idx))# |3 \2 P, ^' v# l% T
(set_tile "edit_lay" layname) ?" h/ J0 V: M' {( m
;(mode_tile "list_lay" 2)
, B: e% S3 a } l7 T! V
);progn then
5 [7 A4 H# p- y6 G8 |' H/ i" H
(set_tile "edit_lay" "") + F2 a# t7 ^5 A4 N
);if
6 n! |1 B: [6 a9 \. [
);defun laylist_act
2 h* Y; D* k; l9 ~! M
;;5 L* @2 W) v8 H
;; Reset to original layer when cancel is selected
: t+ m* y j+ P$ o3 }! t
;;! D0 Q7 l. p" v7 D( S
(defun reset-lay ()" Y. h4 z/ w8 D$ N$ X9 W1 I* ?
(setq lay-idx old-idx)
4 h0 k( E0 v& A$ \; H
(done_dialog 0)1 V, F/ u1 v/ I
)
5 N/ x! ~# U1 I2 c# G
2 M+ p0 _# E* }" W
;; Checks validity of linetype scale from edit box. It checks to. Y- u8 E" B @* x& f7 J* T; M8 j
;; see if the value equals "Varies".
' e9 n8 f9 y8 w' q
3 F3 P+ P6 `& F% I( K) Y) u4 V
(defun getscale (value / rval)5 v9 [ O9 f$ [9 O; Y
(setq value (strcase value)
, \ }( `) H* J
rval (distof value)
# q7 S) C& ]6 \ { X+ _
);setq4 e5 _ w# z- i1 `/ C2 n
(if (or (= value "")/ i3 B5 @9 w! F B/ k$ I, t
(> rval 0.0)
+ I S5 o: k \* p# X( O M
)
+ m! y# K3 a# [: L3 v, V% j! g& y
(progn& ^. b8 Z1 C7 r8 X( @! E
(set_tile "error" "")" {; ?+ p& w$ t4 K8 ^" d% v
(if (= value "")
/ `4 Y0 a- K7 R( I7 k- G
(progn
5 ~0 s+ e, b+ _5 ~
(set_tile "eb_ltscale" "")
4 v y2 H. g% \5 m6 \
(setq eltscale nil)
" V2 l* ~; d: N+ G3 K8 _; B
);progn then
* D; E0 C `% `# Z" m
(progn
) t0 O7 J# B7 a: q+ J5 \4 F A: `6 ]
(setq eltscale (distof value)) z% l3 |# X5 @+ f; ^
(set_tile "eb_ltscale" (ai_rtos eltscale))
0 M5 ^% m( @* b' |1 }: ]; Q
eltscale1 |0 e4 E: s ?& v f
);progn else' v, A! @) I+ p# ?9 F, v& p$ z
);if
" Q; y3 `5 m" f( H
);progn
! U# S% ?' ~2 p& f) L i; P
(progn
- x0 d: G8 E9 ?/ \0 i& E/ F
(set_tile "error" "Invalid ltscale.")
* H4 d7 G' U4 x7 O: q2 U
nil
! O. N3 S3 b- q* X
);progn else
' e l( I, S$ V8 G% u
);if7 e& }; U( Y# p9 \
);defun( r; K0 r4 D: V: }5 i$ t9 t
;;
! A2 D, Y2 B+ S
;; Checks validity of thickness from edit box. Since (atof) returns 0 when a
$ b1 N1 w* s% k2 F
;; string can't be converted to a real, this routine checks if the first+ p; R6 s' d1 c2 H
;; character is "0". It also checks to see if the value equals "Varies".2 y) v' t8 B+ _; J
;;
2 o L% k J' x5 i. I1 ?
(defun getthickness (value)
0 S8 q1 m$ v; L- L4 K
(setq value (strcase value))
7 h* j% |" K1 g6 g' @
(if (or (= value ""); s: S3 C8 G. ~& I- K+ w/ o
(distof value)3 Y; Z* ^9 L1 e: d
);or' s. H6 r5 [4 k& J; `, U: m! j
(progn
7 ?' J5 _5 S6 M3 ?+ G0 A2 i: ^
(set_tile "error" "")0 J8 C! H8 p" V; z& r0 `& c
(if (= value "")
2 U7 y2 _6 ^- B$ |8 y9 a6 }7 Y
(progn
2 K* [& @2 n/ Q
(set_tile "eb_thickness" "")& Z! |+ x) a3 E
(setq ethickness nil)$ n0 X. u" F' q, d
);progn
' Q/ i& ^0 Q( g8 S
(progn
# z6 }# U) }' n& N4 L1 K
(setq ethickness (distof value)): d7 R& Z! C8 o3 P/ E
(set_tile "eb_thickness" (ai_rtos ethickness))( O( U% z n5 N; M2 ~( O
ethickness
# m. m) {, q4 A; x- \
);progn, T; K/ Z6 q: G4 j% q- }) }, b, E5 a
);if
! {' ]) v+ c4 k; f( v$ S5 ?3 e [
);progn- V: U; V1 Y: _; ~& C! _6 Q. r
(progn, u8 s6 L' d) Q7 L
(set_tile "error" "Invalid thickness.")
, E; Q, |- f/ @, c
nil7 Q k8 t0 X" M# ]) a3 y" `( ~
);progn/ g! O6 I9 i9 G$ {# Z {0 e) H7 J
);if
( d9 s! c# r1 h
);defun
+ R$ e+ U& r2 e: B/ J
;;5 i! Q. Y0 J/ Y" L, R5 e
;; Checks validity of polyline elevation from edit box.
/ w' H; W* ~% [9 V A1 H8 j
;;
' ^- N3 j2 O: Y' V1 z9 o
(defun getelevation (value)
0 Z8 ~* C0 f# k7 t. Z4 r( a
(setq value (strcase value))
4 I5 B$ S+ K) y' T
(if (or (= value "")
0 ]2 u) r" M* `: O6 }7 L) R% i
(distof value)& |9 O9 X( C N' D0 ^; p5 B
)0 M# y( s, V' c
(progn8 X3 [: M* ]$ f, c( v! i
(set_tile "error" "")
; ^' [9 X+ b1 N: W ^% R* N
(if (= value "")5 t. D, J+ x9 {. r" Z
(progn1 m4 o( f3 P" L" D
(set_tile "poly_elev" "")
[! a2 \/ E6 T5 ]: A6 f+ ^ p
(setq eelevation nil)
W8 V, R: E, _: W5 \2 x" A5 d. ^
);progn
" j: h& i) `( L' D! B( q, }& x1 l0 N
(progn
+ R4 H: I& R3 k4 m! _
(setq eelevation (distof value))
0 x: y" F- w/ i3 f
(set_tile "poly_elev" (ai_rtos eelevation))
% Q. V' f, T" e! B
eelevation
- a& W( I+ D, ` T" Q G$ L
);progn
6 q s* T; ^' ?6 Z7 a' F; a
);if
) G; I6 w! L7 p" p4 B2 ?! M0 P
);progn( \( W. B2 C8 `2 n3 e3 E8 v
(progn6 F$ V5 M8 n- ~( C# a- y! B+ H( `
(set_tile "error" "Invalid elevation.")! C% V+ Y5 O, R6 g0 [! @
nil
0 M! }$ U6 \ q9 X/ ^1 |. Y( Y. s! b
);progn
% y- T6 o/ G1 h) g/ j8 ~* L
);if* L- S6 F8 g P7 l# B! B u4 y" N+ b
);defun
. {* V% P3 Y" u! h: H) I6 `9 ?( W
;;
S- f, E7 J$ [% P% h6 W( m
;; Checks validity of polyline width from edit box.2 E3 r* _8 \: Q; M- R
;;
9 ^% C- Z& R8 C4 Z' _ ^$ Y
(defun getwidth (value / rval)
* A/ U: O5 F# [7 a4 N
(setq value (strcase value)
# L0 B% Y. C7 t9 N" w- l& ?/ T
rval (distof value)
2 F1 t ]2 J3 ^ X. n1 p: b& z6 S
)
5 M0 l9 @. d, O' `3 e6 z
(if (or (= value "")
' |( |6 u% P# v5 M
(>= rval 0.0): f$ C, G* Q' x
)
# s7 q+ o. k; D' v; Y! s3 L
(progn
. ~! r* |. U" ]& q+ [
(set_tile "error" "")2 t4 f8 e( T N$ ]; e/ ^
(if (= value "") j2 L- ?; x& z4 |+ d
(progn; y: F1 }& l: e& m) C! i
(set_tile "poly_wid" "")
& B3 j& q& a* O
(setq ewidth nil)" ?3 o; F; W Q$ Q: q8 H% }1 T; i
);progn
$ U/ u+ ]; M3 J' c
(progn
2 g& O2 f1 @7 i1 {2 n
(setq ewidth (distof value))2 W$ H5 e# A# c* L, @
(set_tile "poly_wid" (ai_rtos ewidth))
6 C1 N" r# |, V
;width7 E6 W. T& h Q$ l: s
);progn
# L1 L1 }1 O: D1 K' |' K
);if7 b0 j9 j/ e8 P, ~* @& q
);progn
6 s" Q6 f4 e4 g$ @5 {' ]
(progn
1 R" r c' V S' c5 m. @( ]
(set_tile "error" "Invalid width.")
4 Y0 H7 N" E6 L5 q' `1 e* Y
;(setq ewidth nil)( j& p5 N7 w. i. L/ P- b
nil : w$ v0 i, b0 ?8 e5 ^1 w, V" X
);progn4 c' V, W3 T+ W; p) H: m: q
);if
- M a+ N# A0 a, h2 b
);defun4 o; [" z% q* a4 b6 X
;;6 F' ~* V8 O0 Q3 f( @
;; Checks validity of text height from edit box.
& X) C B" C1 d% p
;;; T) i% ?) I! `
(defun getheight (value / rval)
7 W, l5 [3 M! x7 r) Q6 y
(setq value (strcase value)
% j8 e: v" U: D0 o
rval (distof value), @9 d- c3 X! z5 d( A
)
( p- e8 a8 u& @1 j6 ~
(if (or (= value "")
s8 Q; H7 C8 K2 \
(> rval 0.0)
: U$ g+ K6 H0 H. [
)
8 R* M7 M( x5 G7 ^& G
(progn
( b5 c6 i0 B# ]6 \% H0 g
(set_tile "error" "")" R, |! F" Z! i# L( m1 L% X
(if (= value "")- ?" i9 ~0 a" H
(progn
. D# _" W9 b" b, `& }+ I6 B
(set_tile "text_hgt" "")5 {3 G# u" K+ N* A7 k8 P7 M
(setq eheight nil)
$ W8 h1 h8 ~1 B+ D2 u
);progn9 t3 ]6 }* k9 q7 z9 ]
(progn
. o% h* L# s2 A d' I, o
(setq eheight (distof value))
! C, B0 f/ y$ K/ g* m5 w
(set_tile "text_hgt" (ai_rtos eheight))
9 `5 C m3 Y, u3 p% U
eheight! e1 F% d0 b$ i7 K' B& X
);progn2 ?/ s! {6 x" L' L' G' }1 r
);if
. h' L* |' ]) T5 @$ j" o/ W) Z
);progn
! G( K. x- {& ^8 d5 U* y
(progn
+ @% M' [8 {# c4 q8 R
(set_tile "error" "Invalid height.")# D* l, c" D+ f
nil
) C2 x* D8 X6 `. E0 R
);progn8 c* d5 r; Z) c. t
);if
X- z3 Z+ t4 O% H5 e, F+ C
);defun
( B0 {" s% F9 r. Y2 u6 Q# k+ h
2 d9 J. [3 n; m
(defun getstyle (value lst / rval). [2 B/ ^* _8 p" H, ?* Z3 B& n0 ~
;(setq value (strcase value))/ j5 s) ^# ]3 R) l# Z M
(set_tile "error" "")$ U' j7 d% ]) p& q1 p
(setq estyle (nth (atoi value) lst))
% d# `9 Y6 F7 Y. v
(if (equal estyle "")
5 ?% h" x! ]3 {1 k: T
(setq estyle nil)+ x5 m* t+ C2 d
);if
$ P r; S" p5 k) Q
) a0 j9 ~; o7 r: U
);defun getstyle! H. r# p( j- L) R8 v! y1 [5 Z
;;
2 X7 j3 A# _; J0 H8 C9 a
;; This function make a list called laynmlst which consists of all the layer
, k Y( B$ v' b; S: v; z7 X' F
;; names in the drawing. It also creates a list called longlist which% |7 o2 {0 `6 }* h3 \
;; consists of strings which contain the layer name, color, linetype, etc.: R5 \, ?5 E0 B$ e( D
;; Longlist is later mapped into the layer listbox. Both are ordered the
6 e$ ^9 G4 z1 q/ l
;; same.. m8 v7 W2 d# ?4 ]5 c
;;( r2 a) l5 j% }
(defun makelaylists (/ layname onoff frozth color linetype lock vpf vpn ss cvpname
( [0 @, Y( [5 i- X: s5 p
xdlist vpldata sortlist name templist bit-70
' `$ _0 f" d2 f' b- h
layer_number7 X9 k$ z8 h7 o2 Y* u
)! w2 A1 V0 X, e( u" @5 R
(if (= (setq tilemode (getvar "tilemode")) 0) j3 e' F3 Z. g! W6 W
(progn, }8 z! J7 Z/ I
(setq ss (ssget "_x" (list (cons 0 "VIEWPORT")
0 A2 ~0 n) _4 R( m- e6 c$ l; o0 F
(cons 69 (getvar "CVPORT"))
: f3 u3 S: ^- y( a: p7 V
)5 w% m4 o2 k4 j% S0 u
)
& R" I& I( J& ?' [
)
( h* C4 Q( ~) B: E% K) \4 r- {
(setq cvpname (ssname ss 0))
1 u# J. ]1 [( i0 V$ j% D1 q' [
(setq xdlist (assoc -3 (entget cvpname '("acad"))))
, e/ E2 d/ |; O$ J, _
(setq vpldata (cdadr xdlist))9 W+ w e6 y6 M
)/ c$ }% g: B! g( C' B4 O
)
0 N# z; R. l) Z- [6 c% G
(setq sortlist nil)
P e+ `; V5 D
(setq templist (tblnext "LAYER" T))
6 D$ I3 c/ i6 c. ?5 K9 v
(setq layer_number 1) |3 ^( z3 f7 P- a; w6 g
(while templist0 H/ l" k2 f) G' ~8 {
(if (not (equal 16 (logand 16 (cdr (assoc 70 templist)))))
. `+ i5 w1 `0 D4 A7 v+ W* y
(progn
' ]0 p5 q# t& e @" x& n: l
(setq name (cdr (assoc 2 templist)))
) i4 A0 Q4 Y/ H, S
(setq sortlist (cons name sortlist))
1 q. n$ B6 t* B" J
;; Not dead message...; z0 M! g8 j/ z
(setq layer_number (1+ layer_number))
; ^! y2 `% P- I5 D1 a
);progn
: e$ b1 B$ `/ p6 F
);if. h7 B' j. U" s7 G. U
(setq templist (tblnext "LAYER"))8 l/ O: r+ p! ?. `$ R
(if (= (/ layer_number 50.0) (fix (/ layer_number 50.0)))3 e9 o9 u3 { t. C8 ?
(set_tile "error" (strcat "Collecting..." (itoa layer_number)))
# |# Z$ T, q0 C; r. a+ Z
);if$ `/ v% P3 w4 l% j( i6 Y
)
+ }$ x( o" _' I! F0 K
(set_tile "error" "")4 _% {1 f4 J) J: b8 o
(if (>= (getvar "maxsort") (length sortlist))
+ x( q' X. e2 R$ d
(progn# _! {# {2 w7 ?. j' W! _
(if (> layer_number 50). z0 b% J0 H3 ^6 T6 Y' y
(set_tile "error" "Sorting...")
5 V. M6 }& m: E& R1 F+ ~, z
)
) k/ o: p; {, k7 t- ^# t& ]
(setq sortlist (acad_strlsort sortlist))
6 C+ N# N& I3 @8 L' z
)
# \6 L* Y( Q0 R. r1 _" K
(setq sortlist (reverse sortlist)): P1 C9 U6 x# x, B; |; L8 ]. N
)! u9 q5 _2 Y, c9 R4 B
(set_tile "error" "")
% a8 y7 X( t1 ?: e# o$ K0 ^+ ^
(setq laynmlst sortlist)" M$ b: K7 S" J& v3 a9 _7 m
;rk
* _3 c9 n& }* {; W; V4 W
(setq laynmlst (append laynmlst (list "")))
1 z; ?- _9 ]) r3 L2 j5 \
4 N3 U2 D6 L+ H# H% h
(setq longlist nil)
% g) P- |. C% Z) B
(setq layname (car sortlist))- C3 u) L7 G. F, B* x
(setq layer_number 1)
* n) U) ~* j% u3 A" }2 b$ g v M
(while layname
# t. M6 f1 ~2 ^
(if (= (/ layer_number 50.0) & u8 T' _1 |' k7 L
(fix (/ layer_number 50.0))# V" S+ S, M0 I K2 J/ e1 [
)$ j z( J8 N( k ^4 H
(set_tile "error" (strcat "Analyzing..." (itoa layer_number)))
1 `& C: Y- y8 i8 k" [
);if) F! Y1 B, J; U h* ^
(setq layer_number (1+ layer_number))$ e2 Q8 H( p! t+ r V* x
(setq laylist (tblsearch "LAYER" layname))" V. C" `/ F/ z# H% @9 V) d
(setq color (cdr (assoc 62 laylist)))+ ^* t1 I5 S5 M
(if (minusp color)
8 ]7 d) t8 W4 R& F) T, n
(setq onoff ".")5 C- G+ ^: F3 Q t
(setq onoff "On")6 L/ M: r) Z: H( V& L+ |
)
. p, ~4 @# A+ z6 _
(setq color (abs color))
+ V) U+ Y4 v8 E7 L; Z/ L! S8 T
(setq colname (colorname color))
+ M2 Q& l8 R+ O* o
(setq bit-70 (cdr (assoc 70 laylist)))
! }# o! q* v6 l9 L! C
(if (= (logand bit-70 1) 1)
, A. D2 P5 c; V. g
(setq frozth "F" fchk laylist)
% @' F+ O7 B( C1 d4 M6 w$ ]+ H
(setq frozth ".")
2 y( F: m m8 b- p$ Y+ s
)
, b- }7 ]: D. n, {" F0 v5 w; T
(if (= (logand bit-70 2) 2)
1 H8 O6 _' O4 N6 w* H% t* S% d4 g
(setq vpn "N")
' C% \2 L5 T4 W: k& o+ {6 @% w/ z
(setq vpn ".")! Q% I7 y; Q% t- |7 h1 J: u2 l
)
c. N9 |4 ~ J# ]8 ~4 W$ k
(if (= (logand bit-70 4) 4)2 l y7 T- s2 v' T+ ]) |
(setq lock "L")
$ h: L' I! n K' @
(setq lock ".")
, _; q# n) u, b
)1 ~& A' |: d7 i% n' A4 c
(setq linetype (cdr (assoc 6 laylist)))
$ n) A8 u0 T: z' J" h* N& k0 b2 f
(setq layname (substr layname 1 31))
- i' G, | O) l2 M
(if (= tilemode 0)3 E. F, j3 N) k% B) C' ]
(progn
7 U: c i% p. P2 D8 a4 B& r0 K
(if (member (cons 1003 layname) vpldata)
+ J" I( `9 b* m) X& d5 |9 Z
(setq vpf "C")
, Z# a0 T6 k5 f6 o
(setq vpf ".")9 ]; E. P1 ^7 e' Y% ` b& H
)
/ l0 G; H, {( D# a1 n, |
), n2 D2 G( q9 ~
(setq vpf ".")
# H$ z* h/ b; [) \( V, Q/ @ M+ {
)
8 ]- T6 u+ d5 Q- g7 b
(setq ltabstr (strcat layname "\t"; d/ H2 |) E O6 {, b
onoff "\t"
4 x3 \8 b/ G6 M, ~5 J
frozth "\t"
+ p, j) e! x9 ?, l( g
lock "\t"8 H* G% H# M1 k: Z& H5 r j0 A; h A( v
vpf "\t"
) g: e- I6 T" ?" U, _8 m5 L6 P
vpn "\t" U0 j" I1 i5 N- Y ~0 g$ w% F0 j
colname "\t"8 N, l% g8 I6 o1 ~: L" G- Y. y& a
linetype
& { F0 A4 c! p4 f
)
, f# B+ U( _) q! |, a: t
)4 {& s" u) |/ \2 R
(setq longlist (append longlist (list ltabstr)))
1 z, V! W" `6 v
(setq sortlist (cdr sortlist)) S, x0 J& V( f. w# t$ S, y
(setq layname (car sortlist))
1 H" j; y5 `4 h
);while9 M( r. U/ h7 f k9 l# e
(setq longlist (append longlist (list "")))) M6 J' d* d7 T
(set_tile "error" "")* r$ p, G9 f9 N. w
)7 c3 o; r. w) _- C1 u
;;
/ m2 M4 N _: N6 ~" L- C
;; This function makes 2 lists - ltnmlst & mdashlist. Ltnmlst is a list of- q0 T+ K" ^' J
;; linetype names read from the symbol table. Mdashlist is list consisting
/ U- j W6 i0 p
;; of lists which define the linetype pattern - numbers that indicate dots,6 W1 I1 D# t9 X1 i& ~! O
;; dashes, and spaces taken from group code 49. The list corresponds to the3 R; i! l8 ?' m& a! k4 L4 z/ _" o
;; order of names in ltnmlst.) D1 G/ a# G( N A! S2 S+ W
;; l. M5 _- J; ^! ^2 O
(defun makeltlists (/ ltlist ltname)
2 L- z. i I f. I) i% Z1 F
(setq mdashlist nil)5 x: J, b/ P1 S& [8 U; t& l+ }
(setq ltlist (tblnext "LTYPE" T))9 X$ J2 Z: D! L0 G8 A/ U& C, V
(setq ltname (cdr (assoc 2 ltlist))) E' ^ K" a7 n7 `" }
(setq ltnmlst (list ltname))6 m: R3 h/ P8 X4 E# B. }# R N* F
(while (setq ltlist (tblnext "LTYPE")) D; S. i3 s K$ V' O
(if (not (equal 16 (logand 16 (cdr (assoc 70 ltlist)))))
" V4 s/ [+ h0 U; z) |% M* E
(progn
! x! Z4 X! i1 ^( r3 b
(setq ltname (cdr (assoc 2 ltlist)))
8 o6 [+ \/ }. _" p( l# H' U _
(setq ltnmlst (append ltnmlst (list ltname)))
; Q. h. M2 k% y2 l+ t; y
);progn: n( i- e) w4 I" j
);if
; C; a z& R- r& p( W% B
);while0 M* b% ]1 o7 j3 i' n& ^
(setq ltnmlst (acad_strlsort ltnmlst))
- W; y( z6 o. k; B% F; P# V& r
(setq ltnmlst (append ltnmlst (list "")));add by rk 0 S. m. W5 }7 e1 ?# Y1 P
(foreach ltname ltnmlst- E, x7 N% q( z- h0 f1 e- d7 C
(setq ltlist (tblsearch "LTYPE" ltname))
+ s& v! u+ j0 ?
(if (= ltname "CONTINUOUS")5 H3 L+ X' I o$ c( O6 _+ Q7 @5 m
(setq mdashlist (append mdashlist (list "CONT")))* O( r( _. Y# o
(setq mdashlist1 A2 Q. ?9 e: B6 a# X. P
(append mdashlist (list (add-mdash ltlist)))' z% j6 N% C( D i+ E* y& _
)1 i( N1 r/ T( f
)
)! Q) K/ _8 N* p9 m- U/ U
(setq ltnmlst (cons "BYBLOCK" ltnmlst))) q3 I8 J! ~+ H: g0 c" y
(setq mdashlist (cons nil mdashlist))/ r- G8 G/ p" B0 k& Q: H7 a# c' [6 b
(setq ltnmlst (cons "BYLAYER" ltnmlst))
. J6 ?' f d! x) X% r+ S
(setq mdashlist (cons nil mdashlist))9 L7 h9 y' L/ U% S3 g/ F h
)2 D! k; l A, N7 I
;;0 R) `. x- C" K/ u( `: R3 [: f
;; Get all the group code 49 values for a linetype and put them in a list; D4 ^/ z9 w7 i- _7 g- m
;; (pen-up, pen-down info)7 ]0 Y+ x! l N; h" J
;;: F) d- M; R+ h8 w
(defun add-mdash (ltlist1 / dashlist assoclist dashsize)$ w$ L- ^! \7 t; z( `# P
(setq dashlist nil)
' e7 L4 S% C% ~! [8 S
(while (setq assoclist (car ltlist1))
+ F1 _( \+ e! {9 s" t4 z# r
(if (= (car assoclist) 49)+ S( W7 H+ \3 o1 [7 V
(progn7 @5 c6 e: Z. ?7 A: {9 W1 l& {3 j+ \
(setq dashsize (cdr assoclist))$ |$ X7 R' d. q
(setq dashlist (cons dashsize dashlist))
( x9 i: J- q: R% I/ S( K
)
7 w; p$ F! `# y' b; }
)
7 I5 A: _( Z1 m% L
(setq ltlist1 (cdr ltlist1))
# ~# H8 @+ e1 b4 e
)
9 z% v! ~) O6 |7 k; J
(setq dashlist (reverse dashlist))! I3 Z8 E+ D$ P. n8 E4 C: F9 x
)
+ m- b1 x/ B" R" x1 S' X8 G7 I+ H
;;5 ^2 z8 j; l. c% i/ q9 f3 g
;; Color a tile, draw linetype, and draw a border around it, n3 A" C4 k4 }) {& V [
;;
% m' p. x# y# F6 }1 d6 c* y
(defun col_tile (tile color patlist / x y)/ ~0 T; k4 W: g( U0 C" C. T
(setq x (dimx_tile tile))7 Q7 m7 a k; U/ B
(setq y (dimy_tile tile))- a" s3 C K) q. R3 o; o2 o
(start_image tile)
9 l) ]1 _. e; ~- ` \) e7 }
(fill_image 0 0 x y color)
9 e5 g$ S/ G! ~4 _. u
(if (= color 7)/ Z6 m2 Q L! s
(progn
# n, |7 A5 k/ E% J. C
(if patlist (drawpattern x (/ y 2) patlist 0))7 X6 o+ N9 m: g0 G* e0 P; H" \( i
(tile_rect 0 0 x y 0)1 p1 `0 h# u: K; E
)9 }* S- m* Q& N) _1 K2 Q1 m6 W8 o
(progn
" _" h" u, y5 F' N
(if patlist (drawpattern x (/ y 2) patlist 7))
# M( j h: X$ I# \9 i% ^% H5 h# f
(tile_rect 0 0 x y 7)
h( M, R& D. T1 ?& Y
): `& _# ?% ~% S; J( {/ ] O) p8 c
)
0 ?/ C! v; x2 L; X
(end_image), s6 N7 M9 ?# k; s; v
), j- G" S F" ~4 i
;;
) C* O; I+ Q' l- j+ A) E3 K8 ^
;; Draw a border around a tile
. ^* \! ?- j5 c U9 c
;; i8 z X$ D/ c4 U2 k: p5 z
(defun tile_rect (x1 y1 x2 y2 color)! z G' \- S; q9 ~ \
(setq x2 (- x2 1))8 l. r3 [; Y: p
(setq y2 (- y2 1))4 N/ J' @8 ^% ~9 D
(vector_image x1 y1 x2 y1 color)
7 x1 M5 v2 G, w% ~9 a! u- t
(vector_image x2 y1 x2 y2 color)% V# X& @; B3 V! J3 Q7 u+ P; N
(vector_image x2 y2 x1 y2 color)
" o F6 ?" X- |+ l
(vector_image x1 y2 x1 y1 color)
0 I7 k/ R0 y* Q$ O6 p
)* T1 q5 @' I3 } O7 {- y
;;
+ F/ a! x9 b0 {/ i, d
;; Draw the linetype pattern in a tile. Boxlength is the length of the image
9 R+ r( ^$ d h% v* q9 z
;; tile, y2 is the midpoint of the height of the image tile, pattern is a, |+ e' C7 B: c W& ~
;; list of numbers that define the linetype, and color is the color of the
4 z3 Z/ V ^! S+ A. m( ]* }
;; tile.
) a b& ]% f8 ^& c- W% [- |/ F
;;
+ t; @) ^9 w1 d& B+ y1 e
(defun drawpattern (boxlength y2 pattern color / x1 x2% r0 d+ G7 D2 E' Q( m o9 t% r2 M
patlist dash)
+ E n. R' B8 y: t0 q2 P
(setq x1 0 x2 0), H& c( H/ j! w5 g: s
(setq patlist pattern)
# R* O* H; u' V {. t
(setq fx 30)
: R' ]- K! p P
(if (= patlist "CONT")
, w. b" U2 t; e* `
(progn6 F% S7 v3 r4 W/ z4 c" i
(setq dash boxlength)
m% x! b& w( p, q; {9 v
(vi) Q2 t! P5 }; \0 J, t
(setq x1 boxlength)
)( Z6 R2 q( ]: K' o3 C7 H4 {) z
(foreach dash patlist
! n. \* D1 E1 _' D" B' W
(if (> (abs dash) 2.5)
: d: g8 N7 t) L4 L' D& `
(setq fx 2)
9 |$ p3 G8 s% W
)* B3 ?2 _2 l6 Z: }7 \
)
j$ W( K7 R# [1 S. E+ w
)
5 O1 u2 | G8 A; |- m) {. i" x
(while (< x1 boxlength)6 W9 m% ?& e& q V
(if (setq dash (car patlist))
) a1 K [3 u; V- {" i4 x
(progn
1 Z( T2 ^! D2 S$ {
(setq dash (fix (* fx dash)))
+ H* a' v3 i3 R" V1 G
(cond D! x( L# ~- t$ s9 @9 c" X
((= dash 0)
) u. [- y" @$ Q M
(setq dash 1)
/ e! S& Z$ A* N1 w7 Z e: F
(vi)
; P9 P8 U$ c0 i; G
)0 D" ?4 p8 T- W& `8 V
((> dash 0)
" h" o2 a' p6 D# ?% M: s8 W
(vi)
/ e) J4 f) w$ E0 T; d0 R
)- Y+ U8 \$ G2 m4 b) N$ `5 e
(T2 _) V5 M* F2 l* y" ], h
(if (< (abs dash) 2) (setq dash 2))
; ^5 M+ k2 I. p6 \
(setq x2 (+ x2 (abs dash)))
0 j8 T" c9 P' e/ g, E6 u, ~
)3 c/ o) i5 s# G" ^: V2 ^* |$ B) e' c
)
% x; Y; Y1 f7 C
(setq patlist (cdr patlist))
% H& I: w, J; Z% F8 p
(setq x1 x2)- Y8 b& q) [0 C3 k( W
)
, K: L6 c0 q1 T; O
(setq patlist pattern)
* ]6 E0 s# A( g- @" r( N
)
* a |* Q) p: O; t# O
)" s3 [7 j4 Z* Q9 E4 X1 }, s
)
0 S K( y7 l8 \
;;
! t5 @9 x* ]- b+ z4 e3 _
;; Draw a dash or dot in image tile
" r& }* n0 [: x* B0 J/ \
;;3 s, j8 z1 s) G$ J2 o* P/ V: W5 K. ~
(defun vi ()
% m- {$ ~' c! i# v
(setq x2 (+ x2 dash))
/ W7 j' r3 u X0 p* y
(vector_image x1 y2 x2 y2 color)
5 W. v( J7 B0 \# z5 v
) R+ l8 }$ o" I- G) z. L
- J2 V" `/ J3 V! E5 C# p$ L
;; This function takes a selection and returns a list of the color,4 _) F+ G7 ^+ c" e" c3 d0 _
;; linetype, layer, linetype scale, and thickness properties that! r' |, E# r3 L- z D
;; are common to every entities in the selection set - (color$ L* V6 M3 Z3 K5 \- W& U
;; linetype layer thickness). If all entities do not share the same7 J8 P* O# `% ?2 f- F; p+ W
;; property value it returns "Varies" in place of the property
* u, R% d, w; j/ X
;; value. i.e. ("BYLAYER" "DASHED" "Varies" 0)
) _% b9 r# B" f
;; The last item in the return list is an integer flag for the
8 q- g0 F3 S: I) k
;; homegenity of the selection-set object types.; Z% V1 z" Q, ^! f
;; 1 = All polylines
0 M- | w) b1 e) c0 P* e- d0 q
;; 2 = All text or mtext or attdef, or a combination of the three
1 ]2 F4 `8 v9 a/ y
;; -1 = Any other mix of objects
: U( I1 X/ c- S- A; @# K. ]+ W
; r2 I% R0 y: z* B
(defun getprops (selset / sslen elist color ltype layer ltscale thickness
+ y( r; m' y& T* p+ I( e
width elevation height go ctr
( n+ u0 n' [* f
eflag
1 i( t' O9 k1 d
etype temp 6 h& ?: n' D6 d- ]6 o$ p; s, K
txt_ss ;;;;rk 11:24 AM 1/30/97( K' E$ a) X0 K
tmp
3 b* B1 m% B: H- I3 z
poly_ss
1 ?& E# s5 f% ]
style1 Y. b/ Y2 U5 v4 [! B' f' z
) ^: m0 Y- \* J* O9 @
, Y) a, j9 Q; h7 q& g# E$ C6 ^
8 F. ^( G9 W5 j y
(setq sslen (sslength selset)
+ [: Z/ P! D! m! M) Y6 v
elist (entget (ssname selset 0))
}7 j2 U7 ]! M0 c1 G
etype (strcase (cdr (assoc 0 elist)))/ r; ~6 _) {; w+ o
color (cdr (assoc 62 elist)); R: _: L8 i: X& P) g: d
ltype (cdr (assoc 6 elist))
' M4 {4 K z' k* x# t
layer (cdr (assoc 8 elist))
% [0 C3 |0 Z; q" g3 p: X
thickness (cdr (assoc 39 elist))
s& K# w/ E8 o' n. ~. a
ltscale (cdr (assoc 48 elist))
~# |) A9 L: B; B
);setq7 i+ m: x& |0 C3 X7 |9 H; K
. E- H5 E4 K4 L+ c" M4 S9 M
(if (not color) (setq color 256))
5 o; u7 Y0 c# r9 W
(if (not ltype) (setq ltype "BYLAYER"))+ o9 {$ o1 _$ r8 D. `! a
(if (not thickness) (setq thickness 0))
; Z% Y* ?7 `- d* ~4 K; W1 @. ]" K
(if (not ltscale) (setq ltscale 1))
8 F6 L R( C. M1 p( b8 J
* @, s! j [" w$ i
(if (not width) (setq width ""))
; L: M. b/ S. u% }8 S; ?
(if (not elevation) (setq elevation ""))" v- C/ c1 z4 p4 C3 P
(if (not height) (setq height ""))
" P8 Q5 y' |+ u, s' D" L/ e, t
" x9 j8 g" O1 c0 P6 F( N5 B
(setq go T
6 d2 C8 ~+ w9 a+ Y! J6 e9 L
chk-col T
2 ]' l( Z ^" a/ @! F
chk-lt T / S0 ` r. e8 b: v1 k' F; `. \
chk-lay T
F9 `4 |, @: _0 y" ?
chk-lts T ' _5 y& W, v) j7 r
chk-th T
+ R! J" ]2 d/ ~0 H% V) Y; M
ctr 0
0 z$ w+ D3 z- O J7 `
);setq5 v) D. t; |- t S
1 y/ E! `7 v9 U' C( }. e7 e- O/ q
;; Page through the selection set. When a property
- Y7 [4 B: U% s! p% }
;; does not match, stop checking for that property.5 I$ n. U; y1 ~* H: p. D8 \! @
;; When the selection set is not homogenous, stop checking.3 X5 v N( C3 h h* _
;; If all properties vary and the set is not a type 1
1 H, E" h3 C' x8 B1 U% o- l
;; (polyline) or type 2 (attdef/text/mtext) set, stop paging.
. S6 V& G" x7 A4 t4 u/ X- @8 F
" F5 y) Q2 c7 a1 j
;Lets set the eflag so we know if the selection set includes any
% p9 D& t% W$ X5 y
;combination of polylines, lwpolylines, text, mtext or attdefs.
+ J7 @1 Z j7 R; Z Y s
5 Q2 Z' b; t X" U: \& Z
;watch out for 3dpolyline and 3dmeshes here! @rk 10:17 AM 1/30/97
* C, }( \; b0 n/ `
(setq eflag 0)* _* `) g$ Y6 z
(if (setq poly_ss
2 o% p. y/ s% V9 T' L) d) L! `
(ssget "P" (list '(0 . "*POLYLINE")) j* ~- i1 q5 _
'(-4 . "<AND")
8 B8 ~# z, q- ]) A! y, Q
'(-4 . "<NOT") '(-4 . "&=") '(70 . 8) '(-4 . "NOT>")
3 t8 h2 g; o5 e2 o8 a
'(-4 . "<NOT") '(-4 . "&=") '(70 . 16) '(-4 . "NOT>")' z! V! h8 f ]' a d3 L
'(-4 . "<NOT") '(-4 . "&=") '(70 . 64) '(-4 . "NOT>")8 {/ _8 }+ o" D- S+ M
'(-4 . "AND>")
' \* |2 M0 ]; i1 n: i
);list* q8 o2 o5 \2 j1 z" u, a
);ssget get 2d polylines (legacy and lw)3 Y% G8 \ J8 I7 o- I* i/ D3 q
);setq
( x% z' Y$ A0 j; c
(progn0 }5 D4 F$ r1 Y& X' C
(setq eflag (+ eflag 1))7 Q/ _. E% [' C7 |+ z* v
& E/ C9 _$ m u2 h; p# h# U8 N
(setq tmp (entget (ssname poly_ss 0)));setq" H# k, k5 ^6 m5 I
; f% K2 k0 K; L. |& p# _. J5 \7 M
(if (equal "POLYLINE" (cdr (assoc 0 tmp)))
& W! w& O! D) S! [
(setq elevation (last (cdr (assoc 10 tmp))))- z4 g& U3 P- e9 Y
(setq elevation (cdr (assoc 38 tmp)))
3 c" v5 L- W1 P$ e- u. F
);if6 X* R8 z% ~% H! a
(if (not elevation)3 ]0 j; z7 N2 N2 ^: Y0 p4 ?% ~
(setq elevation 0.0);setq/ k. B; o3 z. v. h! [6 x
);if: F4 N5 a! I2 D# t, I9 k; q
: g/ P5 z- |" j6 j1 a
(setq tmp (ssget "P"
* v. b1 U* p J! a8 ^7 |: B
(list
& C9 }6 [1 R+ j; P
'(-4 . "<OR")
+ M" a6 O. a) l- O" B; B9 T$ A
'(-4 . "<AND")
& J- }- X" D; }0 K5 m
'(0 . "LWPOLYLINE")7 Y4 H. _' l& l% ]
(cons 38 elevation)/ C. F# \1 n x4 y) s: E5 w
'(-4 . "AND>")
5 e7 c; p4 c# n
'(-4 . "<AND")
# b+ p- T( L3 R
'(0 . "POLYLINE")
( \( A# C- [8 f. f
'(-4 . "*,*,=") 1 V r$ }8 U' R8 W+ K
(cons 10 (list 1.0 1.0 elevation))
8 J: k( g7 y- P1 ^
'(-4 . "AND>")
5 I* c F0 g4 h1 d8 i
'(-4 . "OR>")9 h, V! {/ S9 e3 @: K9 H1 K
);list
$ n Z% x! D/ t
);ssget
! c/ \ p% b5 p0 A2 l) p2 |) I
);setq
3 s& ~6 t: G1 @# o
0 v* ?2 g7 G& Z' c$ u# \
(if (and tmp
1 J- H( O) D, c$ q6 w
(equal (sslength tmp) (sslength poly_ss))
& A, t( W1 o) h. S, J6 N2 N
);and
, ^/ W$ J9 c E) [9 p: n; A
(setq elevation (ai_rtos elevation));setq
+ j) O x0 N; @# }
(setq elevation "")
2 A' C: P A. d: ?1 E
);if
1 h1 {5 v! S" C2 G
0 j, |4 j! U- c4 F
(setq width (pl_width_getter poly_ss));setq" M1 {& q" U e% N! Y, o2 T
$ R3 m1 j7 X3 @4 Q! A8 H- \
);progn then 2d polylines and/or lwpolylines are in the HHHHHOUSE!
. I& ?/ z& f9 Z4 K: |% m6 N y
);if$ A6 T& X: I' |6 L& l& D$ _1 ^
(command "_.select" selset "")
t I" L- [) y8 Q
+ P7 }& Q, V2 T& B; A0 G
(if (setq txt_ss
! h2 m0 h2 S. q' E' O5 x( g" t. U1 ?
(ssget "P" '((-4 . "<OR") (0 . "TEXT") (0 . "MTEXT") 8 X0 g% i5 [6 y6 p5 Z; |
(0 . "ATTDEF") (-4 . "OR>"))/ Q" j4 X& A! E! ` Z
)
( x# @: C) V1 r- v p4 j
);setq
9 @: L+ h$ k$ n- {1 U
(progn! Y. O5 D: c7 |
(setq eflag (+ eflag 2))$ b: V" z/ a4 ^$ h
(setq height (cdr (assoc 40 (entget (ssname txt_ss 0))))
+ G; U( A) r1 b I
tmp (ssget "P" (list (cons 40 height)))
& g- B }3 _4 w8 @7 z
);setq ' j, Q" F- D9 I0 X, O O
(if (and tmp
* `0 i2 q0 D. y, i
(equal (sslength txt_ss) (sslength tmp)) , O0 ] c7 a5 Y
);and: n+ j' i" l' \% Z. u
(setq height (ai_rtos height));setq ;@rk need to translate from float , f6 ?/ b* l0 M' r0 Q! `. b3 ]
;to string and back again easily
, L) K6 n0 ~$ b) Y
(setq height "");setq else the height varies 6 p( K* n- A7 F3 F% k" ?
);if
1 ~3 h+ l: t8 {7 L' O$ @- v
(command "_.select" txt_ss "")
: W& {* R F9 b7 K3 b
(setq style (cdr (assoc 7 (entget (ssname txt_ss 0))))
2 [) C/ [, v( n& D* V
tmp (ssget "P" (list (cons 7 style))) $ c( e- ` _9 q" r, a
);setq
# a4 R' n, a- r e
(if (not (and tmp
2 F& y+ Z" [3 O! t, U8 p
(equal (sslength txt_ss) (sslength tmp)) 3 R5 \" R9 q0 C+ L% {
);and
; n2 F; S( x% y9 A: x0 @
);not( W% \/ G# K2 L1 N$ m7 g
(setq style "");setq then the style varies
" j [ N! U, o! _, H
);if+ r; D5 \1 m/ J
);progn the text type objects are in the selection set
4 y; ?: Z2 n5 V
);if" @9 k; H9 j5 r; p/ ~6 o/ I
(command "_.select" selset ""); ]# ?/ \9 g$ C. x0 P
8 j/ A' O1 _% w8 {2 s7 |
(while (and (> sslen ctr)
, \: g# [1 C! Z# H
go
, D. a q$ J: g3 N3 D
);and) S" E3 e% V6 o8 j7 a4 F( x$ N2 `
(setq elist (entget (setq en (ssname selset ctr))))
& ]. `+ m! c1 |' P. r7 k% Q9 j
. ]* n% x) Z9 S3 H
(if chk-col (match-col))! Q+ |0 l7 D$ }8 N
(if chk-lt (match-lt))
. d% @' X$ G( m3 ~1 Z
(if chk-lay (match-lay))
$ |* d8 R9 s2 y
(if chk-lts (match-lts))' l6 C5 |' H$ s. D8 T7 r' Y# `
(if chk-th (match-th))
0 o9 b9 [( t1 H( j+ {6 p
* n; A' n" D, Y
;(if chk-etype (match-etype))
& E, z8 C- }5 @# A" g' U) ~9 O* K
4 r9 e) _% u+ k& K; E! S: O( x$ j3 T
(setq ctr (1+ ctr))
; A3 x9 M" a* C5 U0 X
(if (and (not chk-col)
; `; D m' M: Q( c& ~
(not chk-lt)7 j; s+ ], T2 x
(not chk-lay)/ S! Y' C, \5 J- o
(not chk-lts): D& t$ `% x& h" z4 a$ ?/ g' k
(not chk-th)# h* j7 W+ [6 W, N& R
;(not chk-etype)( k5 C' v. l1 A9 A4 o4 c% i3 c
);and6 r9 x8 N4 m0 W6 o
(setq go nil)
7 a" {% \ Z& C8 t' B. p. t# E: j$ N
);if/ K# ~+ t+ g7 x8 G$ [8 X' g
);while
' ` ?1 p9 \5 `$ P
" b! p u: @. Q3 m$ j3 E$ R6 T
(list color ltype layer thickness ltscale
/ y! d7 e* r8 Q( V4 ^1 a' D$ f' R
width elevation height eflag
" L5 x! U2 i- i
style poly_ss txt_ss" ~; D5 ]9 z8 L
)- g5 f ~: v9 r8 n7 O
);defun getprops
6 G. j* P$ D3 o" r- U
6 W9 X. u+ e/ _. i5 s+ i
; This is a speedy little routine to tell whether the polylines in % |# j2 \" o1 U5 G
;the selection set argument are of varying width or a constant value. & W% H# l- B9 z" W+ ^$ N, r; Q; e& L
;Looping through the vertex's has to be done for old polylines when
5 }4 K4 } J e) W
;the polyline header has width values of 0.0. Basically, in this case,
! E( p4 e' t4 q1 B
;information in the polyline entity header is abmiguous. Width values
+ r2 ]7 n1 b( X9 [) {* V. D
;of 0.0 in the header entity could mean the polyline has a constant
' n5 q4 q' D( Q, I
;width of 0.0 or it could mean that the polyline has vertex's of varying 8 z( H5 ^' s$ a6 N; l2 j
;width.
! B" o: n( W( q
;
- ?* `+ [$ i8 O% y
; It's all in wrist. Err a.., I mean it's all in the 'if'
0 s" L. s1 T& F @- Q/ }+ n- E, P
;;
8 M' W; h9 d+ Q% a" ?
(defun pl_width_getter ( ss / ss2 ss3 n na e1 width width_a width_b flag flag2)+ a* f8 `& }( z9 w2 h6 ]
# ] B+ ]( m, p+ B
(if ss
) h% E. c2 y6 B) v) X
(command "_.select" ss "")
8 s# a$ _4 r9 n
);if
/ E+ g/ b' W+ t6 q! g) q! {! \
(setq width ""
3 I# ?, q$ Q& \
flag nil
" j! q$ L& P4 A
flag2 nil
. g- t0 {; W+ ^
);setq
# D! c" P- a8 @ P! q% l
(if (not
3 L. L! E1 q3 m2 \; a2 \3 d
(and ss' y; w8 V) A# g% |5 O! {
(setq ss2 (ssget "p" '((0 . "LWPOLYLINE"))));setq0 [4 D7 L8 E) {( S' _
(setq na (ssname ss2 0)9 I0 \9 |, A7 u3 T
width (cdr (assoc 43 (entget na)))
, Z) }1 q# D* |/ c9 J; E
);setq1 B) R& I" j. b' a9 o( h7 `
(setq ss3 (ssget "p" (list '(0 . "LWPOLYLINE")( W9 O" G* r4 q2 S( s/ W/ n9 e
(cons 43 width)3 _5 ?4 o. @9 v! m: q
);list
% H, j& n% R( Z8 W# b
);ssget! j) c3 ]3 _+ z7 d
);setq- E- J; `" o% h% l- v& @
(setq flag T) 5 }! w9 h+ @2 w& w) A
(equal (sslength ss2) (sslength ss3))
, B' u# U! h% M9 i) r: ~% X
);and
/ O7 F5 Q' [) i- k+ o7 } U
);not/ x; |; J; H) i5 ~
(progn* a9 |% h o' q# V- V9 p* S
(if flag. a4 v& f9 J, `! x, ~0 a
(setq width nil) 3 a: U. b; w- k$ G" O4 u% p8 V$ w
);if
: _3 _# ]( O* ?: l
);progn: i1 T8 K. ~8 I% N1 g" `) B
);if
4 W0 n% O8 `% z" Y# D7 v& O
- D1 H5 E- `. E2 a; B( u1 O; ^
(if (not 6 s8 s8 U. H, y$ \ E
(and
, m8 k6 p# X, }% D8 }
ss3 w5 M' M7 L5 l
(progn (command "_.select" ss "")
* g0 y. L! [7 w3 J' I
(setq ss2 (ssget "p" '((0 . "POLYLINE"))));setq! A+ W5 v z7 V: q
)
. G" D1 o( o6 M
(setq na (ssname ss2 0)
) D- O. G: m- o# C( K
e1 (entget na)
, b O, Y' a1 t( d2 A* G3 ?! h2 |
width_a (cdr (assoc 40 e1))
# @, O* N4 S) a
width_b (cdr (assoc 41 e1))
8 g, c" N8 d' h( Q" N6 G
);setq
8 [; H2 H; t1 ?, v0 |# j+ F; R
(equal width_a width_b)
v$ u4 {1 ~: W* h5 M$ \
(setq ss3 (ssget "p" (list '(0 . "POLYLINE")& h# W7 @& q8 \9 \) A7 z
(cons 40 width_a)" A1 d3 l+ U z; y& Y
(cons 41 width_b)
. e. g/ x" X z
);list
3 z! Y* b5 W8 J
);ssget% T/ _. K+ |4 c, A" V
);setq, ?- K6 a5 t1 v$ Q) r% P, k% D
(setq flag2 T)/ {( B" a5 A' F. [$ ]
(equal (sslength ss2) (sslength ss3))$ H6 ?- q0 a/ N% {# y6 _
);and % Z# J1 k8 Y5 X9 ^
);not 0 J8 o, N3 q# q7 W3 X5 @
(progn
l' e3 t4 s! m9 `! i0 v1 Z: d' L
(if flag2' X! y' w+ p2 P b5 s0 B: e9 ]
(setq width nil);setq
$ }5 c% E! l3 l2 @
);if; L$ Y% L+ B, @1 h. Y! \
);progn then F+ l" t0 I" z& q8 r% z
(progn
# H, q8 S# W( V; M1 A* [
(if (or (equal width "")
6 F) C! E4 a) a/ \6 @9 d
(not flag)2 k- {1 t$ A7 b7 ^; n
);or
/ C" G" ?7 m3 b( k' V
(setq width width_a). ?: W' S% D% F* |3 h* S2 [: k
(progn
! k$ h* @) y% ^+ }4 t
(if (not (equal width width_a))
- y8 a: P; o$ T6 [! K( F
(setq width "")( ~ H& R* _: j
);if
5 i8 c @0 @% ~7 D5 z$ J
);progn. m% I0 N3 p& B( ^1 o4 a* G# S# p
);if) ?* c7 a+ [. [+ t
);progn
- e' V& J+ h9 S, Z5 u" ]; @ H( R
);if
1 Z( B) v$ l, ~( N3 h& Z! n. C
2 V2 k5 N, X v' g, A! Z
4 c+ H' [0 Q7 E, C
;now for the special handling for old polylines
3 E* @; M S* g
(if (and width
) k( V/ o0 F7 j: Z3 q4 v
(equal width 0.0)
. p: h& G) }8 P0 j% m" U
flag2
0 a4 O! M6 s& f7 z; u, [. A
);and $ {' X5 q: H( `" p
(progn5 i' s8 R5 F7 f. g$ K, N
- H) ^& N; S# Z
(setq n 0);setq
: e7 |- Q0 o6 Q/ [# v
(while (and (equal width 0.0)$ q5 C' q* r7 A( y) Q) Y; P! y& b2 H
(< n (sslength ss3))
& t9 N$ d6 o4 u! ]) J) O6 U
);and
8 x$ ^' ?1 r6 ?0 M& n: @. C
(setq flag nil
na (ssname ss3 n)$ ?) [( ]2 E1 {5 G4 m& ]
na (entnext na)
: L4 o# |+ d/ k
e1 (entget na)4 r& m* \! I; E
);setq
" k; T6 W( \* T
(while (not flag)
' e5 g& U$ |/ v& L
(if (or (equal (cdr (assoc 0 e1)) "SEQEND")
0 g0 e* W l2 ?5 W& W" b1 i
(not (equal (cdr (assoc 40 e1)) 0.0))4 t5 m9 G! k5 I5 c6 M
(not (equal (cdr (assoc 41 e1)) 0.0))
( I! g$ Y5 t6 c% k: S' Y; ^
);or
- v1 ^. o! u: z6 N
(progn
% j* Z2 o; v1 h% z4 [9 v2 S" s
(setq flag T);
3 N- a! G1 P( h
(if (not (equal (cdr (assoc 0 e1)) "SEQEND"))
/ e, o" [7 F9 Z4 O9 a
(setq width nil)
4 U/ x# w6 f* O2 b# N
);if
# `5 [( B. U" E- z2 i& ]
);progn then jump out of the loop
5 Z3 D$ S9 y0 {
(setq na (entnext na)! q X# _5 {5 U4 m0 O/ {, l6 A
e1 (entget na)
& w3 M1 r6 N" x! Z
);setq
4 L3 a- t) c/ F6 F9 n* [ P$ m4 M
);if & i; _- x2 G# E) _
);while
' \. b- m5 y" |" F" Q
(setq n (+ n 1));setq : B# Z4 k: l; q7 P
);while & x& B" m) G1 E% T
/ A: l2 A' T' L* |6 _4 ?
);progn then it's a legacy
; m$ g" q' b* ]; h+ x& y9 S* Z4 Q
);if ;legacy polylines that may have varying widths ; @- f+ s% P# O* L. ^
4 X( G4 `+ ?7 V& l. i$ C0 W; P+ a
(if (not width). U( ?$ e4 e! J F6 B/ a
(setq width "");setq
% u3 D5 v0 q6 _: z1 u! e( Y
);if
: Y6 z& a( A, t! F& w, P9 ~
(if (not (equal 'STR (type width)))
$ X; K% P# s# B1 m, o% O
(setq width (ai_rtos width));setq / k7 r$ k; q1 h7 [! h3 x% E
);if , L6 m- P/ K M7 V, d( l. Z8 w
0 t: z0 o7 L/ x0 Z2 B
width
6 C) h1 Y4 w3 a! Q, s
);defun pl_width_getter
! l3 e" j- k2 L- X) r
4 E: T& g6 n! u4 ?" k2 @
7 c5 k9 F$ y {2 Y6 f
(defun match-col (/ ncolor)
5 ?1 p0 u: }" o
(setq ncolor (cdr (assoc 62 elist)))
% G, {( a* v2 |* x, M. N8 x8 P
(if (not ncolor) (setq ncolor 256))/ @$ Y" j/ y9 g* l$ q( }
(if (/= color ncolor)" e# s) h* \- A% d4 j
(progn
* {9 w+ J9 ~4 C. M% K6 _ Y
(setq chk-col nil)
7 x( N5 d% X% c' N4 X# |% f" q' P l
(setq color nil)
4 [7 m- }( `) c: N
); ~, n0 s2 e$ P& d5 U
)' W9 A4 @2 N/ I+ D+ i$ |+ P
)
" H3 g" B: ?+ e; }) ^' P
; q8 k4 e7 z" [4 {( F
(defun match-lt (/ nltype)
0 t7 P. a% y2 T1 t6 x/ r% ?( \
(setq nltype (cdr (assoc 6 elist)))
/ q1 x9 Y2 v7 o* K
(if (not nltype) (setq nltype "BYLAYER"))8 e4 h4 i# _+ A9 [8 h# P
(if (/= ltype nltype)
, n2 w- F( l4 \$ `+ i \9 v; e0 T8 R
(progn
- B$ l/ w& {; q6 Z, I# }
(setq chk-lt nil)
% D6 ]# `/ V( S5 {- E3 v) `
(setq ltype ;|MSG0|;"Varies")
7 y. R; r4 W1 ~, }$ C/ Z) u
): d/ `6 Z j( ?7 O
)$ Y2 Z7 c$ l- X0 v) `3 A2 t% W2 J& m
). q& [% x, Y) p3 t0 ]$ l0 F/ n
) [+ |, @ h5 q; S+ ~' _# u
(defun match-lay (/ nlayer)1 e3 O6 t# U4 ]( @* J
(setq nlayer (cdr (assoc 8 elist)))
1 j, q0 U, k. [: [# ~: l& V, F
(if (/= layer nlayer)+ ^( \! a( k; D
(progn
6 _, {4 m, ]# S9 m1 m& E6 P1 U& z7 `
(setq chk-lay nil)
! |( D: M' T) K: E
(setq layer ;|MSG0|;"Varies")# }; e4 C2 ]3 i; C, r
)2 h6 ]! U+ Z" w9 ]$ d
); |2 q) w/ Z4 A
) L1 I: g) o( g1 ~2 V
: K+ \5 R6 f0 D* N S9 h7 I
(defun match-th (/ nthickness)" `; @0 @4 v ^
(setq nthickness (cdr (assoc 39 elist)))$ B$ b* {; V( c* {5 D8 ^! V
(if (not nthickness) (setq nthickness 0))
6 y+ I$ `+ ^+ X) ^8 Y2 m0 C
(if (/= thickness nthickness)
. k! Y0 ?- z; I4 p* M
(progn; X- ]. z% K, M5 J2 ?, w! _
(setq chk-th nil)
2 J2 ^: P: ~# T5 s# ?8 }) u( H
(setq thickness ;|MSG0|;"Varies")# S P8 a. f6 B
)' e6 C) n% v7 X+ _2 `, o
)
- l* n# f# D y3 t9 C3 `
). S6 B$ B G! f4 m# _
/ n) ?4 W& O( h! c3 t h
(defun match-lts (/ nltscale)+ @. q! L1 S! |; w
(setq nltscale (cdr (assoc 48 elist)))4 G" b& }$ u7 l1 }* W, ~% d
(if (not nltscale) (setq nltscale 1))
8 }9 p6 x/ v- g
(if (/= ltscale nltscale)
( P7 m+ k/ N& S1 K' g
(progn& \; P# s5 c( z% [2 e* x
(setq chk-lts nil)
& }3 L# y, ]8 n* @8 o- K& L
(setq ltscale ;|MSG0|;"Varies")3 ?+ }: X `( ]$ _: f
). q3 ^% R& L3 B5 M% j" z* E2 `
)
% q) z c4 f7 D: X' b5 M7 x
)# }3 u6 S/ {" Z) \ {6 C3 J
- ^8 b: d" p4 \& d9 c
;;
6 o. u2 D0 o- R) e+ c
;; If an item is a member of the list, then return its index number, else" @' L4 O4 P3 ~0 X; C
;; return nil.+ s5 J" s1 D; ~1 c: _0 r1 C! _ d
;;( V8 p- s0 B9 y- J1 ~
(defun getindex (item itemlist / m n)
% _6 Z1 w6 V" l- ?! i( D' o
(setq n (length itemlist))2 S( `: t ~' a! v% K, X
(if (> (setq m (length (member item itemlist))) 0)
4 Y' ]9 s. _7 m
(- n m)
' m7 h5 T$ V, R
nil/ n0 d9 o) {, g! B q. q; ]5 E
) X5 \( V' I u0 Z. r0 V7 O2 u
)
3 | i8 o8 X9 x+ V+ ^4 }) Z
;;
3 R8 |2 E, c2 v. ^0 X9 C! A& U, l
;; This function is called if the linetype is set "BYLAYER". It finds the
: q; Y$ G+ {. s: v( P H; ]' W6 m/ E
;; ltype of the layer so it can be displayed beside the linetype button.+ j$ Z& I0 }6 |) E4 d% N, [5 w
;;
' X8 u5 e. S9 q7 t2 @$ x; j z* A
(defun bylayer_lt (/ layname layinfo ltype)# c! L5 V' p, Z/ F
(if lay-idx2 m( B5 G$ j- S/ y+ k+ V# M& F) R" x
(progn
) m0 J) J# V- j4 e! }. k0 U) x
(setq layname (nth lay-idx laynmlst))
, k2 ~# {3 _! f8 ^' G; l4 x ?: [
(setq layinfo (tblsearch "layer" layname))
* z3 A b2 |! I4 {
(setq ltype (cdr (assoc 6 layinfo)))8 s% h6 `& @* y' _2 a
(strcat "BYLAYER" " (" ltype ")")6 k6 G9 I2 P4 @# y7 ?
); \; t6 \+ c @# u+ g s
"BYLAYER"
0 X X+ H7 w/ A; R. S1 G
)& `8 M* G* m5 @- [9 |
)
7 j& y2 F5 m7 a1 c9 h+ n
;;
/ A F# J7 d8 G6 l
;; This function is called if the color is set "BYLAYER". It finds the8 `: a9 h7 b1 n5 t+ \; P# ?
;; color of the layer so it can be displayed beside the color button./ W9 o3 ? E8 |& |) I
;;
4 ~, y' @0 {0 }* o% c
(defun bylayer_col (/ layname layinfo color)
$ k8 E8 o4 h8 ?% f7 g/ f
(if lay-idx( \! k3 h6 P; n! [) b: f R
(progn
/ L* x$ }8 k) y/ [! y8 G
(setq layname (nth lay-idx laynmlst))
* z, A; ~# _- `) S* O1 ^
(setq layinfo (tblsearch "layer" layname))" z6 |: l' [2 {; I8 z% V& X1 R! Z @
(setq color (abs (cdr (assoc 62 layinfo))))
1 _4 B! L2 o8 ?1 @
(setq cn color)
1 ]# i1 d! ~' i
(strcat "BYLAYER" " (" (colorname color) ")")! y+ Q6 K% ^; K7 h8 ?
)* @8 W# v; I. l* F! v2 ]5 l
(progn
" i" R( [* @2 _: p8 q" ^
(setq layname elayer)6 l- t4 |. A2 ]! ]
(if (and (/= elayer "")$ _" T; Y- @" @
(/= elayer "Varies")
. x+ _" y/ f8 H! ~1 m6 U
);and
o* s& f6 Q! S; G* ]
(progn
. X7 ~3 c+ W8 C' J8 }
(setq layinfo (tblsearch "layer" elayer))( o$ N3 q7 O( J0 A8 e7 ]2 h: O
(setq color (abs (cdr (assoc 62 layinfo))))9 v( D9 w% E( ^; h" @! k+ @: u
(setq cn color)- @; v' f5 ^0 f/ g/ K; g
(strcat "BYLAYER" " (" (colorname color) ")")+ `9 E# e9 X/ H% `5 b4 z
)
. J4 \5 r/ X1 o4 c+ `3 T" } v
(progn
3 r0 m& v1 S% U. [
(setq cn 0)
* Q0 [+ u1 C$ c! P
"BYLAYER"
9 H* f7 O. X# W6 c
)" U" \. S& Y8 H; J. ]4 f
);if( _! u2 p) b, S7 t
);progn
' _; m8 ]& e- q' E2 A! E: {
);if$ L+ N M) I) c& Y8 P6 q% b, }: @
)
2 D, l" ^) P! m2 o/ [$ C
;;
7 U& F0 Y1 e% J: E" W
;; If there is no error message, then close the dialogue: L( d* Z$ t8 F8 j9 l6 r
;;
3 r {. X8 ~- j1 q* Y
;; If there is an error message, then set focus to the tile
/ w- V+ G) q7 C/ J
;; that's associated with the error message.
( ~5 L/ f' Z( R& P. g! ]: J- d3 u
;;+ J3 a* a6 U9 C5 y
(defun test-ok ( / errtile)
1 y% O$ A& G8 z9 R- J/ E
(setq errtile (get_tile "error"))6 O( S4 u+ P8 g9 [
(cond
/ u6 `& H; H4 w) h! q6 G- T1 X
( (= errtile ""), D: K4 ~ l2 _& k/ A5 ?
(done_dialog 1))) Q9 Z- ^! a7 l9 l% J) H7 B2 ~- J
( (= errtile "Invalid thickness.")
- V8 q+ d% }+ `
(mode_tile "eb_thickness" 2))
$ P7 ^8 \' B7 S4 c: c, q
)
5 O& O6 k) l: R4 T9 h9 n+ g3 j$ P
)1 U. k5 Z, z B1 S$ q6 Z
;; m2 J6 Z! m3 j% y4 n1 Y' g
;; OK in main dialogue.3 c+ e) u6 m6 h& C, B, p
;;8 e" x) e" N& `6 j+ [( C5 W4 u& @
(defun test-main-ok ( / flag)0 e7 O: F1 W" |$ V# N
(setq flag T)
/ Y6 f- x* E6 e) a
(if (not (or (distof (get_tile "eb_thickness"))- t7 m/ V1 N* t$ N% i
(= "" (get_tile "eb_thickness"))6 w, O2 ^0 Q' g2 z
);or
+ ?& b- E- g5 ^2 \. t& ^
);not! `; U8 @! f3 L& C% m
(progn
2 t$ J L) G9 O( `9 @* w
(set_tile "error" "Invalid thickness.")
8 A0 y2 D6 N7 t) e$ r/ [
(mode_tile "eb_thickness" 2)& O9 p0 ]. V- @2 S6 ~' z
(setq flag nil);setq
8 O. }! H X7 r! L$ ~* [: _
);progn
" } o" s+ C) k, J7 ~
);if) {( }# y: {+ j ?* _& K2 k- n
(if (and flag
. D0 ^. u1 A) e3 ], s; G6 ^) l
(not (or (< 0 (distof (get_tile "eb_ltscale")))
+ ^3 @# F* ?! f( d
(= "" (get_tile "eb_ltscale"))
* V4 o: s" [, _8 N2 w% g- E: c: b
);or
: R% t$ E: ~. S& ?' J, ?
);not6 o# V1 p8 q! {6 M6 J+ [9 h
);and
; N2 ^. P. y& k1 I2 `2 p% H5 u
(progn# ]1 }$ a: k" j
(set_tile "error" "Invalid ltscale.")8 F& M/ R/ @, D+ k
(mode_tile "eb_ltscale" 2)
; I: M6 y$ i, B6 t+ _0 R+ E" r
(setq flag nil); , [$ Y: Q3 u [; _' I; g+ O( }" T
);progn then) k5 m& x. J) ~0 @: Q' U$ K6 A" i
);if8 I, ?: r% a) n9 K6 w3 m7 G
(if (and flag, Z3 P. h" u& n* B
; Don't test the tile's value unless it's enabled.$ r. z7 l8 g( J3 S
; We're not set up for the display-only value
1 ^% i2 s( X% B% z- W% u' ~4 B5 S, ^
; of "" here in the error handler.
# C5 D: n& V) V \& [3 G2 b
(= 2 (logand 2 eflag)) k6 S1 P) i* n& [2 T0 m! W0 W
(not (or (< 0 (distof (get_tile "text_hgt")))
6 S4 ?+ w) L& `) O0 |5 i6 X
(= "" (get_tile "text_hgt"))
! g! N3 |' b* M% D
);or
* L& S- u' _7 a' U+ U! j
);not% S7 o. `3 U1 }: x
);and9 [! B- P9 N3 ]
(progn
! H `' S& {2 @" I9 Z; u
(set_tile "error" "Invalid height.")
/ j0 w3 n, V' T, r1 w' C' L5 s
(mode_tile "text_hgt" 2)( C+ m, W2 V9 f
(setq flag nil);
f8 r W( e1 S1 ^$ B) Q% R
);progn then" u. f" e* x# A# [
);if
0 e7 w# Z9 {8 o+ d: o
(if (and flag$ n% w- l, W5 [- ~, W9 `
(= 1 (logand 1 eflag))
& Z e1 C* h7 ~5 \( x
(not (or (<= 0 (distof (get_tile "poly_wid")))% F2 G0 R- j \6 C+ J$ T
(= "" (get_tile "poly_wid"))# Q9 A) s8 L9 t8 V5 u+ Y' x
);or
' l3 ]7 R7 k9 T4 w1 E4 c
);not
5 H. w! R( g& _
);and2 f% | r, {) u
(progn) I% E7 u( O4 Y% _9 b9 ^
(set_tile "error" "Invalid width.")1 r( @$ C# `' f$ H
(mode_tile "poly_wid" 2)
5 V( G5 G6 i/ v( u. l
(setq flag nil)6 d+ X* j, R) l9 ]% [4 L
);progn then" _& [( f3 N) e2 N, U; S: W
);if ) P0 e: G. j d8 j: w
(if (and flag
5 M4 s* R, P% j+ C' c
(= 1 (logand 1 eflag))/ V9 F* m; m2 r7 w# t) q
(not (or (distof (get_tile "poly_elev"))/ T7 \6 @! R0 V" N! H3 g
(= "" (get_tile "poly_elev"))$ H9 \; l& _6 l# m8 Z3 ?
);or
0 t; V% B7 s& n0 g/ S; M
);not$ m1 L/ I/ N9 M+ B
);and
8 e' d) D$ N: G( S
(progn [! r% ~+ X% I5 G, K: o7 g
(set_tile "error" "Invalid elevation.")
X# ~, ~4 K3 b2 B+ N7 M. p& n
(mode_tile "poly_elev" 2)
+ [, c, Z" w1 L
(setq flag nil)
# M* `) V9 q& g* z
);progn then; u) ?. n& J% X7 n1 w0 h' a: [
);if # Q3 y2 z5 _6 Z! f8 O. x
(if flag 1 b2 c" ^3 ?* i
(done_dialog 1)
) C( F: X% L, ?" v+ U- \
);if
U' R' f9 ^ \
);defun test-main-ok
: l" X; c- x4 O
, x1 Q2 \' ^$ `/ `3 S
;;
: [$ Y3 I" A8 v3 H
;; A color function used by getlayer.
# K$ N2 W9 ?% Z8 M
;;; q- W3 o, v5 S
(defun colorname (colnum)8 t# ]0 H7 B% B2 i6 v, e
(setq cn (abs colnum)), _! G1 y7 k; ?7 F) P
(cond ((= cn 1) "red")& @7 X* |' f) T7 g, O
((= cn 2) "yellow")
* i4 X$ a. Q9 a$ x9 v* \, e- j
((= cn 3) "green")
! Q- C. ~9 F' ^) Z$ a2 B' Q0 Z
((= cn 4) "cyan")4 X. o9 \; l, j J
((= cn 5) "blue")
* v' X6 j5 p$ k1 c) b; e
((= cn 6) "magenta")
' h8 q4 V& Q( Q$ {+ x
((= cn 7) "white")" `: m O& l% N) J) N. a6 f9 |- q
(T (itoa cn))2 z7 _3 }5 C- x* L# E; K) J/ i# \; e. [
)" |: }$ d5 T. ]) G% {( R
);defun! v: i& l3 {1 m- T( S
) [( m7 j# `2 y% K
;;; Construct layer and ltype lists and initialize all, P H' @. M( h5 j* Q( v, i H* p' _
;;; program variables: G7 ]2 t6 @; J- g% o
3 N. y/ J9 ?2 v' i
; (makelaylists) ; layer list - laynmlst7 a3 b& X& C/ E9 l9 G
! U( Q5 C; V8 s: G+ o! Q! S
4 T% l: n: L; P
(makeltlists) ; linetype lists - ltnmlst, mdashlist
" {7 v( T- l- I! N0 g! y: b
+ ?! H( b0 z" E. O
;; Find the property values of the selection set.
0 v, k8 m7 t8 e1 T5 x9 r
;; (getprops ss) returns a list of properties from
9 U3 n _) `. {8 J/ h! z
;; a selection set - (color ltype layer thickness HEGHT STYLE WIDTH).
! E( H: L$ m0 x& Q ?
4 |( `7 I1 G/ W! w( V% m
(setq proplist (getprops ss));@rk interesting things happen here, X K# ~- U0 x
/ M) V' A" P% C- g* {
(setq6 M# T4 s2 K& r4 I
ecolor (car proplist)7 ?. a1 ], G: \9 w7 H
eltype (nth 1 proplist)- W# ~$ ^) ], @( j7 x8 `3 q
elayer (nth 2 proplist)- J5 b% Y9 c: i0 D9 Q9 S
ethickness (nth 3 proplist)* i5 A/ e8 v5 W6 ^' Q9 K
eltscale (nth 4 proplist)
# m+ n! c3 e' s4 G
ewidth (nth 5 proplist)4 y: |# O+ G+ |. c' u
eelevation (nth 6 proplist)' B. w+ @3 w" J2 Y7 h
eheight (nth 7 proplist)( u h ]/ N$ n5 }& j
;etype (nth 8 proplist);commented out and replaced with the line below. RK.0 A, X- `; _5 O/ }
eflag (nth 8 proplist)9 w1 e* H& ?! |: k# N- S
estyle (nth 9 proplist); J) w4 m2 ]0 P {5 {+ Z
poly_ss (nth 10 proplist)
2 u$ T0 G- l1 Y7 U& ^
txt_ss (nth 11 proplist)/ D4 s0 L- W. k, T d
);setq
& q+ W- Z4 K) E* |; N% R
) \$ [ ?5 H/ O3 }) ] I8 z, L
;; Find index of linetype, and layer lists
: u& I4 d: K) @7 K/ _6 G
(cond
! N% J1 n; H$ I6 F; j( N
((= eltype "Varies") (setq lt-idx nil))
# A7 }: U( W6 T W, M
((= eltype "BYLAYER")
, c4 ~; X/ _0 q# C" _5 o* a! R
(setq lt-idx (getindex "BYLAYER" ltnmlst)))9 i" m6 O* @- U& K
((= eltype "BYBLOCK")- _; U/ P8 Q$ q- H4 Q
(setq lt-idx (getindex "BYBLOCK" ltnmlst)))
+ J2 {5 H# p! I0 R% A
(T (setq lt-idx (getindex eltype ltnmlst))): P+ e' ^6 R! {5 g1 @1 ]7 b
)1 K% r y( |+ y. W$ l" v. l! k
(if (= elayer "Varies")
7 N) n4 z) F( m7 a' m8 v6 F3 V; T
(setq lay-idx nil)
2 L1 I8 z( W1 s7 u0 L$ x- G, ^
(setq lay-idx (getindex elayer laynmlst))
* g! M. `, f% u+ r2 ~
);if
% p3 y4 |* }$ \. X$ u
(if (= ethickness "")
; ]+ w( e& O- \! a8 v6 b4 q
(setq ethickness nil)0 q- I* q1 p* f3 E& g
);if
$ K ?" v& W& o( l* L% ]- d- x
(if (= eltscale "")
7 g {5 R" \) p' g4 S
(setq eltscale nil); e& I6 E6 l* T0 B, e
);if
: v5 z( W0 H! m& Z# ^
8 b! q. j+ z- A; J$ m9 T& ~. ^0 F* c
);defun ddchprop2_init ; end (ddchprop2_init)4 g d/ M1 G e, L/ J" B
, Q) o9 m8 n5 q ^ ] h
;;; (ddchprop2_select)
% d# I" c4 e4 X
;;;3 y/ C1 N% T# x* z* h
;;; Aquires selection set for DDCHPROP2, in one of three ways:: h' o. R- r3 Q: ^( n
;;;
* p' c! a1 C) ~8 m, \* ]' I( P6 m
;;; 1 - Autoselected.6 `: H2 P2 n7 b
;;; 2 - Prompted for.' M. `: v5 x7 Z( r: M- \# X6 V
;;; 3 - Passed as an argument in a call to (ddchprop2 <ss> )
( B3 U, ^7 X3 f
;;;3 `2 a% K& b9 t5 m. o3 e. g+ T
;;; The (ddchprop2_select) function also sets the value of the
) ~! F& y8 F: z7 [, x6 M) M: v
;;; global symbol AI_SELTYPE to one of the above three values to# h+ Q5 A' D* b$ P8 i5 v% m
;;; indicate the method thru which the entity was aquired.
( Y, Y0 Q& ]( E [' g
( Z; D1 X% y9 n7 B3 \ N- ~
+ Z( v5 X6 j" A3 p( X2 _% t
(defun ddchprop2_select ( / )
2 o5 u* m2 I; W4 U$ \- h4 e) o
8 O& f2 T1 _8 a3 q# S
8 U" e' W9 W) {
;returns only entities in ss that are in the current space.
) P! S& J) ~# c: ?& Y5 N
(defun ss_in_current_space ( ss / a cur_space ss2)8 ^: @+ M7 t& {! q5 m. Q; I
& v) G, ~! F! ~+ w M7 |1 K2 [
(if ss5 m! d! x2 r8 z5 o( l: @4 `
(progn
# Q; r+ y! y5 ?( |
(if (and (equal (getvar "tilemode") 0) H. E3 z: B% Z) o& [
(equal (getvar "cvport") 1)
4 `$ x" }* X( R, F M7 o8 y1 V/ g
);and
8 Z- z& r0 F1 F, |0 d i
(setq cur_space 1);then paper space is where we are.1 g5 @) M& Z9 u8 Q! a0 e
(setq cur_space 0);else model space.9 x4 \/ B# F* D# X+ F" B
);if
' \- q' O; e! h1 \4 ^ v
(command "_.select" ss "")# `! _: e, p1 w- b. p
(setq ss2 (ssget "p" (list (cons 67 cur_space))));setq9 {' f9 t; c- `8 k3 o( K) V+ ?
(cond ;;;;;tell the user what's going on.
6 ^) m) K# e) P5 U t) F A; R
((not ss2) (princ "\nNo objects found in current space."))
- y- \' i1 z$ ?% v- s
((not (equal (sslength ss) (sslength ss2)))& j) Y- ^4 w, }1 F' y
(princ (strcat "\n" (itoa (- (sslength ss) (sslength ss2))); l+ T, R. ?3 ~) K1 b! R
" object(s) were not in current space."
" R3 I$ d6 d" H) f* _& o
)
% d7 Z4 f8 |" e1 E
)
* z9 @0 F7 V5 r3 `1 N( U
) 7 t5 G2 @5 L' W% L% C+ Y8 o
);cond $ r/ @) y; A9 n3 o9 J
);progn then6 n% v+ \( ~ D% T a: G: Q) L" O
);if
9 g1 j; Z/ [! T" k4 [& U
ss2% z) V# @; n. P: M
);defun ss_in_current_space
/ [8 a- g( X9 B2 F) K, F
( U" Z' A5 f: m. w; S( s5 `! }; ~$ G
1 H9 Z- Y( o/ a3 h" I
;;;begin the work of ddchprop2_select) y- Y* M6 F6 W
; k/ p/ H; r0 Y; A: h1 A2 U* ^7 j
;; temporarily restore original highlight setting.
& k' w# M* a4 K6 n
(b_set_sysvars (assoc "HIGHLIGHT" (car bonus_varlist)))7 k+ l- k& M6 }4 U6 F5 m
(cond$ B+ g& I! I+ q' o, V1 X
((and ss . W$ R! S9 x: ^, D% Y4 [/ _
(eq (type ss) 'pickset)! g7 e* u! A5 Y7 U1 t
) ; selection set passed to @% ^& y, d1 U
(cond ; (ddchprop2) as argument! J8 \( f7 p: m. D. _$ {( o
((not (zerop (sslength ss))) ; If not empty, then
. C- Y: c: p/ A' i9 ?# q2 B
(setq ai_seltype 3) ; then return pickset.
! [ O) v4 _5 |, g4 p! J7 K
(ai_return ss)
: z. \9 _1 ?( t4 e% A3 s4 r. O
)
. U) E8 F- o* V/ }4 `4 i
);cond close
7 \- Y" h& w' F7 g- C; M" z
);cond #1
' G/ z* x3 y. o/ A. y
((setq ss (ai_aselect))) ; Use current selection* o# q5 h+ I- v! l- G* C
; set or prompt for objects% j. t9 l! o3 E+ K/ H
(T (princ "\nNothing selected."): a" @- j8 i7 b: T
(ai_return nil)2 `6 ~1 p4 {4 p# I$ J
)
: m3 O5 E' u1 d( K& s, J" O
);cond close- u ^$ Z4 S6 C" O/ P1 | l
(b_restore_sysvars)% R, R2 S A) M$ c. A5 b; [
( L% U& N, _0 e) _: y( D
;(if ss8 t; F/ v& j* L" @4 ]0 S; r& `
; (setq ss (ss_remove_locked ss)) " f/ a& k: S" Z* \! Q A
;);if
( v! A* { a! c3 Z. J, [" A/ @2 i
(if ss* w$ m# X* r' a' X9 C4 ~. O* e
(setq ss (ss_in_current_space ss))
0 ~7 \5 \, P; B3 K+ y
);if4 l6 i9 r. B3 p$ N$ g# z
7 T$ u9 Y! K* {* J
ss
. s% Y. P6 ]! a! s$ ]1 B3 o
);defun ddchprop2_select4 X* J! \' |6 {$ g
9 q4 ^# J0 X; |- b
, j% I- F+ }. y$ F5 y
;;; Define command function. h& X6 m4 A, z5 ]5 x. K: b
(defun C:CCH ()& D* L6 D: j0 ^
(ddchprop2 nil)& v6 i8 E" e/ w' i4 g1 s/ B
(princ)
+ d- o+ n& N% @9 P+ ~& v; G0 b
);defun# F: X) `5 a- J+ `, n- W
6 ~2 J# P$ P" c! |8 D5 B
# u% h- k4 x4 O4 U O
;;; Main program function - callable as a subroutine.
P" b) L7 M ]6 u3 N, n: [
;;;
" v2 O8 l: |; Z/ ^, y2 |
;;; (ddchprop2 <pickset> )
- o L1 t+ q4 P( r& n# H* ]
;;;- b) i; t, H. q7 Y; J
;;; <pickset> is the selection set of objects to be changed.
& D- l7 [2 N6 [1 x2 E" J+ U
;;;" p5 M; q: n! z' p
;;; If <pickset> is nil, then the current selection set is
( q2 _2 {. O9 |& D
;;; aquired, if one exists. Otherwise, the user is prompted; D- |: e6 z9 a* h! R7 n
;;; to select the objects to be changed.
;;;
% e6 J+ H3 s/ ?' Z5 V& l
;;; Before (ddchprop2) can be called as a subroutine, it must
5 w8 G& V$ u5 o A) E
;;; be loaded first. It is up to the calling application to
) s; T2 C4 I+ m4 o- k' M
;;; first determine this, and load it if necessary.
1 ]! z$ p H/ t1 J9 U, E( e
* z# y3 L3 A f( D2 u" u
(defun ddchprop2 (ss /
7 p; q6 U; M4 F7 c$ P; B8 T4 c8 \/ u
( ?/ K# U! I0 t3 D2 i" A
a
4 p- }1 \9 I$ z
add-mdash6 ^( K8 B7 ^# F) g1 w
assoclist* A; k* s6 y* d) _1 h
bit-70/ Z: E8 I: {2 O0 j8 E1 E% k- v% a; Q! m
boxlength2 A# T+ z: h$ n8 m- s" p
bylayer-lt
4 g- `8 U" L& P+ ` Z' B7 K
bylayer_col
2 i7 R5 {) _) O5 @$ s U; s2 _& u
bylayer_lt
; h: a0 _( e6 a4 n q6 {& }) I. |6 |
call_chp2
D. t; r( Y$ {4 B& I% ]
chk-col
0 F+ L9 j: Z6 O1 \. {9 W! P6 `! [
;chk-etype ;var removed by rk
5 J# u+ p& n" O% D7 [
chk-lay 7 E4 u+ H% v! `% s3 D
chk-lt4 D/ ~ p% M4 J0 ~( K9 t
chk-lts ;var added by rk # M" N- O/ P( X; }
chk-th
) o+ e* x `5 ^5 N+ E
cmd
* ^7 y/ b& k# N$ Y
cmdecho: x9 Y2 z' K1 b% b7 n: J
cn! v5 `8 j1 x2 ]5 i& o3 g' E
cnum1 e( m& V0 }5 g0 s* j) O
col-idx
# _; C2 h3 o( d# [+ O) R$ V
col_def% E0 V" E' r( @9 q
col_tile; d* b# a0 P2 s' S0 ]( q/ k4 [" r
colname O- z9 w; B- K- O1 x7 c) ?! P
colnum
3 J+ A1 _% ~" [ d
color
- D: y: i6 ?; _) S- k. q' P% d5 t
colorname% V, p- d; i6 H* a. v4 A# P
cvpname
( d! E6 g* F' ^6 W2 O1 @9 A" H2 J* E
dash6 r/ K% o: n3 V* {) p( x; L! S
dashdata
( R/ W) J1 I; c# W
dashlist
( g' A6 C5 P7 H" R' [2 M
dashsize7 Q7 C' T" _% {( ^* E% n
dcl_id
1 b/ g& v& ]* Q
ddchprop-err
2 e) }% C! H7 @* k, k- Q
drawpattern
9 V C$ h- z7 u9 x$ N
ecolor/ u6 d; }: P. B3 w
eelevation3 l) P+ ~! f; z' n+ o" f
eflag m- d, z7 w2 E3 F5 f) g: Z1 b8 L5 T
eheight5 D: ^) V, I Q* J
elayer" _2 @4 `5 K0 V- O6 w8 K5 K& l
elevation
1 }+ Y! p" ^+ Y5 q3 |, _
elist
: X% T# w" d3 s; [8 W: `0 f
eltscale
$ {5 f2 ]2 F$ |5 b
eltype
" B, ~8 ~; a' K- x( ~% |5 o" R; ^
en7 g3 ~9 u6 { |8 e* F
ename
9 _, i" d* n( ?# z$ E! b' A
ESTYLE ;var added by rk; z* H" r3 B4 J7 D$ ^# n% F
ethickness6 i1 }8 w7 |2 e* {1 W
;etype ;var removed by rk
# I8 T6 ~* N2 a2 A
ewidth0 C- A, C) l4 |: m
fchk0 w$ `, `& e6 \7 s) {
frozth# G3 O6 K" x/ E1 \0 V* y0 s7 V
fx
- F3 m* V3 l8 b+ M$ I
getcolor
) b/ c6 Z& h( Z7 V3 N
GETELEVATION ;function added by rk
% f7 g8 X9 e! Q5 \/ E+ Q! {
GETHEIGHT ;function added by rk
) D; _/ ?9 R) o& j$ x
getindex
* v' K% `# ~3 m. j! N" F- y
getlayer
# l( P' V% y: J7 S& R4 `8 B M/ }
;get_locked_layers ;function added and then removed by rk
$ U1 q' Q$ o' q$ ^9 |4 Z |
getltype# _1 \( p% X+ o
getprops
) k( J3 r0 Y: E0 F- v. L
getscale ;function added by rk
6 C8 L2 X+ M! o& P8 h" a# Q' D
GETSTYLE ;function added by rk
1 P2 {; T4 X+ c
getthickness
5 Q0 k8 V: ?1 V( R9 x
GETWIDTH ;function added by rk! w Z7 m; j3 ^, a( \8 }' {1 D
globals
" A8 E$ {" J" q" K) M
HAIR_STYLE_LIST ;var added by rk0 i% y3 f2 R' A+ @
height' `6 ^" [9 f- e, r7 B0 ]* r: d
index7 Q& J. g" _% V) L* R% Q
item
) f L4 M0 C+ d1 ^6 A5 B
item1+ S! M8 X9 r1 B; w/ \/ w1 X$ O8 r
item2
/ V/ }2 `! B* J" u, D
itemlist
. f" J8 M9 k) k% ]! m
lay-idx
$ S# Z) m) d- a
layedit_act' x; Q A4 A3 N" K, l! H
layer
9 o2 J9 G8 @( u, f1 b
layinfo
9 [* {4 y9 [$ K3 Y% y
laylist4 i% _, D8 D) Q; ^# K
laylist_act& X6 c ?, z% F3 I! o3 G; [- L! q3 C
layname
4 z6 d# a8 b0 `7 Q; o$ o
laynmlst, J1 P& j7 W9 U y+ \7 T" A
layvalue8 v$ @7 P1 ?7 g: D
linetype* k$ ~4 N4 y* U) e, R
list1
+ t" G9 {# e: B3 @# P% D, {
longlist
8 P& U, w. m& X3 _ A6 j, |
lt-idx! H% D8 E4 {, G2 h4 ]$ F
ltabstr
4 ]0 }6 M/ z7 E' C" w
ltedit_act
) _" q# y; n. Y! M0 x; @" f
ltidx
0 H9 s" e" Y% s( z1 d V
ltlist3 ^! P! H) k( }2 E0 H; a7 {, A2 X7 r
ltlist1
' w) L% j% ?/ P% e
ltlist_act
7 M3 n' H! D ~, k+ Y! g1 E
ltname6 W' j0 v1 ^' s4 v. {1 q
ltnmlst
' v# @ x7 `/ J, x/ Q" @
ltvalue1 ^4 U% B7 n/ Q" y
ltype4 u0 C- }8 w a5 ]( T
m8 d4 b/ J" D5 t% `% q. `% \6 d) b, _
makelaylists e1 {9 |) W, |' D9 {0 R
makeltlists
& [( ^& Y. L% l5 H3 B. s1 p
match-col
& T5 h" [) ]" v, T
;match-etype ;function removed by rk
9 O. X1 Z8 E _- d) [2 r
match-in9 F! N6 i" ?( N/ h1 ]7 a
match-lay% Y- t. e. [# e
match-lt' o' W e, \! H# g
match-lts
- N' h* D' G+ w7 u! [) @
match-th3 n; T, S& G1 N0 i6 u% Z
match_col% L% k0 ]3 n) f- v
mdashlist
! W* x# T; D# W* {
;MPOPLST ;function added and then move to ac_bonus.lsp by rk# f- @; g, l% k
n& M6 ?* v! x( A) m+ }" \! Z" F
name! p( ?' o. Y! i$ }
ncolor+ \% W6 r' ^& H& Y, d
nlayer
' k& i. z, u [- h; z) M& o0 s0 F
nltype
6 P% P$ ]( A& p8 `
nthickness
9 q; L1 P' S6 y
off
( x [7 C, l4 [- z5 k+ A
old-idx
; w6 }* O4 E6 x% f1 \
olderr
* |$ s$ z+ n7 z" V5 d9 @7 h
on G/ K3 Q7 H) e
onoff. L, ~" d5 ]6 Z7 a' ~' d9 s3 ~( u
patlist
7 S& _: v* Z3 ?$ W2 p
pattern
+ x2 z; J/ s7 }1 h$ ^$ _
PL_WIDTH_GETTER ;function added by rk
) A; b# ~9 |9 w
POLY_SS ;var added by rk
9 a& Q9 u& O! e, c# @
;POSITION ;function added by rk and then moved to ac_bonus.lsp
- Y. K" x1 u- \! R/ ?
proplist& Z8 u5 B4 D+ [% j# X
reset-lay) _; u, `# H+ [1 }7 Z% `* ]
reset-lt
2 v8 e4 l9 c3 X8 y- }
s# ~' v/ t. e' C, D6 N# l7 f
selset) J3 F7 R8 I, K8 H) X4 `
set_col_tile5 y6 e y( D9 Q3 |
sortlist2 }; o- d; m0 {" M+ [$ V2 j9 i
ss- \- h- f9 U4 A8 @ ~, F
ss_in_current_space ;function add by rk.
$ `5 V4 C" E% m, v% S7 A
ss-index# Z$ m5 x0 s; Q# F5 f, @5 p
ss-length
* F' ]2 c2 t. R
;ss_remove_locked ;function added and then removed by rk.
0 s3 f& A9 g8 v+ o9 U/ U
sslen. S. `. N8 n) [8 C3 V: ?
temp_color
, }! o0 {: @+ M4 X
templist) w- j: i, K9 k( }6 E' b2 d; t
test-main-ok1 N5 O' I) ~4 L
test-ok* P6 V7 M+ G; ^' y
testidx
/ D( @$ g/ A# {
testlay
g& P' s" ^) m& k0 _
th-value
9 r" N" Z& ?- o3 v) W
thickness
0 Q5 j7 d, o8 u# W* j) a
tile
+ p8 F8 Q% |( w. L
tile_rect" K u2 |' B. x3 m, _
tilemode8 \( s& L: T( g; W& M6 l
;TNLIST ;function removed and moved to ac_bonus.lsp by rk0 |) ~: D3 G, T
TXT_SS ;var added by rk) L0 P% L$ y+ q( D8 B
;undo_init ;removed by rk.
5 W) B0 D% `2 x6 P9 k9 ]# K* ~, R. c
vi4 `+ q( I( |3 f; _) N
vpf
* E9 F& l& H8 O' `/ t; B
vpldata/ x* D6 S6 t3 i7 E4 c# C
vpn
, [2 ^9 O& e X
which_tiles0 c# {7 S6 c0 }: ]: Z
width
# |; M5 S# m8 n; Q: O+ Z7 x5 i
x4 ^' F( \: ]1 S$ d
x1/ ?* w- `( C1 d4 N' I, Z
x27 I& Z' I- S. c& p
xdlist ^0 k; e* w( e
y$ z1 D' Y+ `; ^' o/ l" n5 S2 Z) l) g
y17 _8 @* W$ m9 c" s# s" \; ~
y2: o) D5 A7 D" m7 i
)
/ g: ~$ h. G' V+ F3 w6 l9 m
6 c( S N! U' e' m9 s) l
(if (and (not init_bonus_error) 7 D2 g% S" h$ Q
(equal -1 (load "ac_bonus.lsp" -1)) : }3 E& t- }% ?, q' @ d/ e' d4 c
);and
/ _. J0 n" G3 J% [ l& T
(progn (alert "Error:\n Cannot find AC_BONUS.LSP.")(exit))- _7 b: p! k+ y; Z3 b! J7 e u
);if
2 r3 ]) Q* O1 G9 I4 S
(init_bonus_error (list
# g6 ]" K, s' g" |$ Q! Z
(list "cmdecho" 0 0 r3 D. l H) ?' h
"highlight" 0
- `! b" r8 A9 v9 r
"regenmode" 1' [ [5 Q$ Q: A) \. G& L5 w3 S
"ucsicon" 0$ O D4 B, J; B, b7 x1 B
) 8 J- Z1 {7 a, }# a7 K( c
T ;flag. True means use undo for error clean up.
Q) q* h: O/ @; d
);list * M+ R# T- a9 R' w( |) b
);init_bonus_error
5 [) F9 }/ s3 V4 I2 v, S; `1 X: E
) t' [1 O8 M$ c2 T
(cond# B2 k4 {, ~" K2 J2 z" m- v
( (not (ai_notrans))) ; Not transparent?
% y D0 y' z5 ~- [
( (not (ai_acadapp))) ; ACADAPP.EXP xloaded?
) C- E' L3 A9 U( H, B& h+ A
( (not (setq dcl_id (ai_dcl "exchprop")))) ; is .DCL file loaded?
+ ~& o* w+ P: k* U
( (not (setq ss (ddchprop2_select)))) ; objects to modify?
- a7 k, e7 x d! S1 Y: ~
(t
/ f j) E4 `% b$ j- C
;(ai_undo_push)
5 [& E1 C0 _& Y5 M6 B
(ddchprop2_init) ; Everything's cool,: w, W) X, {5 C6 R7 I8 x
(call_chp2) ; so proceed!1 h0 u* W$ G" c, x5 j
;(ai_undo_pop), o9 K3 M7 Q, A$ R$ a# s( f
)6 I2 ^; e3 c9 f: E. [0 s0 ?6 n. W! d& }* `
);cond close
7 \; o0 V. y3 [6 D- C3 P' p
( i+ S+ O) Z( v0 C. L) e0 i- ~
(restore_old_error)
% N$ Y! c# C* \5 h( J$ P# [
# [% F9 ~/ I5 Q) x$ ] M" ^
(princ)
5 z# {: Q6 y( g" C( R
);defun ddchprop2
9 f) n8 B4 z4 {7 R6 Q: {* m
8 D" N' Y$ _" V1 u3 [# A9 K& } Q O3 Y
;;;----------------------------------------------------------------------------/ ?6 u! S2 J0 [" g. Q0 l
; `. G* x0 D' \; {
(princ " EXCHPROP loaded.")
" _, ]9 i: q# ^' m
(princ). J/ Z/ D- A. R7 f9 M5 n
- z; C4 S {: Y0 ]+ e
;;;----------------------------------------------------------------------------
7 K1 m) j% l- C! O9 R( D. e
;;;---------------------------------DDCOLOR_LSP--------------------------------
" D5 O: H% I6 m- D+ {
;;;----------------------------------------------------------------------------
, z6 w7 O8 [: Y" m
+ w* }9 }$ c: Q
; Next available MSG number is 24
2 h$ X* V& [. _
; MODULE_ID DDCOLOR_LSP_" i/ ` U9 X0 [/ c: P2 m
;;;6 w; l- U) R2 a) d: W# w
;;; ddcolor.lsp
- ?1 U6 u7 L; G- ?) V
;;; % L1 `% ?" }4 x1 S1 D7 X" R
;;; Copyright 1990, 1992, 1994, 1996 by Autodesk, Inc.
7 }9 V2 H' R1 b- A6 W3 _( H
;;;1 k; U8 n5 s8 Y$ z/ V
;;; Permission to use, copy, modify, and distribute this software
# v7 D+ w8 E9 G5 ^6 m) C8 S
;;; for any purpose and without fee is hereby granted, provided, @5 Z: z: E1 k* U
;;; that the above copyright notice appears in all copies and) `9 o% c% F% y* o: J
;;; that both that copyright notice and the limited warranty and
: t) v$ O$ G5 o0 B* q; n6 [
;;; restricted rights notice below appear in all supporting( T) p/ |( R5 |; Z( ]- F
;;; documentation.
# B+ h# U6 O7 U, |3 q! |
;;;% W1 F! L8 {: ~; N: Q
;;; AUTODESK PROVIDES THIS PROGRAM "AS IS" AND WITH ALL FAULTS.# k1 Y q+ f* }9 [6 F
;;; AUTODESK SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTY OF
9 U4 d7 e- Y0 w# I$ F
;;; MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE. AUTODESK, INC.0 ], R$ l1 p( E3 Q( M3 u& V+ w! L
;;; DOES NOT WARRANT THAT THE OPERATION OF THE PROGRAM WILL BE
+ u1 ~3 x0 e e* L! {
;;; UNINTERRUPTED OR ERROR FREE.8 u2 a( M- S( \. v
;;;
+ S# q1 d5 Z- ^2 x) o0 W
;;; Use, duplication, or disclosure by the U.S. Government is subject to
3 Q2 n% L, |, D! ~+ O
;;; restrictions set forth in FAR 52.227-19 (Commercial Computer
. T8 K/ L. z7 d, f7 v
;;; Software - Restricted Rights) and DFAR 252.227-7013(c)(1)(ii) 8 [( ^7 W! U i" ]8 r! d7 d
;;; (Rights in Technical Data and Computer Software), as applicable.9 R1 q* N( n& N9 L
;;;
/ Q! k0 b, @9 e3 \
;;;.
0 Y! P. Y( Z6 @% Q
;;;- h! {) L6 Q8 n M5 p: { X
;;;----------------------------------------------------------------------------
( _9 F8 G' |7 I& P; ~1 x
;;; DESCRIPTION
) J W( `2 F, r
;;; 3 ^- l$ S% X X" [
;;; Chromatic Pallete style color selection dialog.
; C8 C# B! }) f1 n, S- }
;;;
- \( r" B+ o; S5 G6 e* V2 a
;;; Globals:
8 E7 c& ?: V0 f) H
;;; + g O: Q8 K% a
;;; chroma_color - Integer color index. The last value selected# i7 J5 l2 ]+ |$ q
;;; by the user in chroma dialog. It is not cleared or reset, Q `" M7 M) U1 l6 u
;;; by a cancel. Only used for communication between callback2 _- k# ?; I5 J$ @/ ~; |
;;; functions and the (chroma) funciton.% X4 d8 o [1 X4 ]2 I0 L) M' R
;;;
1 }4 ]/ u3 q5 E$ B5 {7 ?& O; v
;;; Depends on the definitions for the dialog provided in chroma.dcl.
. |" A- v3 e& b# j
;;; + F0 R4 K" E/ L0 w
;;;$ l' C9 p# y+ \
;;; C:DDCOLOR -- Dialogue front end to the CECOLOR sysvar. Uses the chroma & _: Z7 s# C3 m' Z5 v
;;; pallete style color selector.
' q; t3 u- J' `5 Z
;;;
2 H9 I. L8 B% G0 u2 ` D
;;; ===========================================================================" C6 J+ r: D5 O7 D
;;; ===================== load-time error checking ============================
! s4 V) P! U1 r7 X/ s# `9 n
;;;# e; y' C) ~+ V2 c0 ~% U
/ G! m& o: M* C4 m" k0 i
(defun ai_abort (app msg)
- m/ Z$ I1 y9 _# g0 n6 d
(defun *error* (s)" W' Z: X1 M5 i7 L
(if old_error (setq *error* old_error))* R L# m" [9 z7 m
(princ)
: Q/ T9 j! i% }0 x% J, P4 r1 Z
)
V4 `; v6 w; { ^" g
(if msg
$ Q7 u6 K; h% |2 A' l. x- h
(alert (strcat " Application error: "
7 X5 I' ]$ ?4 u7 l: @/ W7 I( @6 F
app
# B7 [0 `6 m `& a: w
" \n\n "7 K% q) d0 G. \/ j: y, v. W3 P
msg+ r( _' L( p m! Q
" \n"+ Y. A( L, l' l/ X0 a8 [" e9 ^
)
' Y0 B. _/ v) \7 }! J
); J& q5 g/ R1 F' U
)9 T' s/ t% | p9 U3 a
(exit)
)
! {8 f& R4 |, v) k0 Y% r
6 d0 i! w3 x# r0 X+ z$ Y
;;; Check to see if AI_UTILS is loaded, If not, try to find it,
* C: x8 `+ c% o7 G( z# |4 H
;;; and then try to load it.
, p$ E1 v5 p& c) {( \
;;; Z5 c4 ?5 P4 {- o6 Z$ f7 ~
;;; If it can't be found or it can't be loaded, then abort the
% e) b* D1 D) G( G. T3 b, r: b
;;; loading of this file immediately, preserving the (autoload)4 v: o* u8 G% T: L* _' I6 g9 H% f
;;; stub function." A$ \: ?* j2 O V2 [
" \: V# R6 c! n U3 F; p( D
(cond# d/ U' y4 d' V3 z6 l7 m" C1 W
( (and ai_dcl (listp ai_dcl))) ; it's already loaded.1 ?& k; D6 F2 D5 o5 N9 X% g
( k8 G( m' g2 X% |
( (not (findfile "ai_utils.lsp")) ; find it8 }8 Y* l e9 s, c1 Q) E/ R
(ai_abort "DDCOLOR"
, p- x2 _& T3 @" A' O$ \: Y6 N& u
(strcat "Can't locate file AI_UTILS.LSP."7 U$ Q" F+ R9 Y; \, |6 r" F9 K
"\n Check support directory.")))' n' k0 R( R1 o7 K8 y) d
+ D; k& B0 {; l( R6 e% v0 E# V$ _
( (eq "failed" (load "ai_utils" "failed")) ; load it$ B u4 ^: k0 V% l+ A# X
(ai_abort "DDCOLOR" "Can't load file AI_UTILS.LSP"))
6 h* G, y% p. p8 ~: |' i
)3 t$ n( Y4 z/ L
# _* ]( |, o9 Y
(if (not (ai_acadapp)) ; defined in AI_UTILS.LSP
: ?7 q1 X+ \4 c
(ai_abort "DDCOLOR" nil) ; a Nil <msg> supresses
6 }5 U1 F4 s: W
) ; ai_abort's alert box dialog.! P1 z, x' G- z2 O2 t$ Q3 ~ g
" ?6 r4 _4 m: [6 n/ G+ s
;;; ==================== end load-time operations ===========================
) ?& q- _8 n" S2 m% l
) o- {- J+ F1 U# }
(defun c:ccc (/ co_oce clrx co_err co_oer lay_clr), p' n. ?6 A5 N5 x" T; E. q' n
. x9 A3 N; Y1 D7 j# `
;; Main Color function, called by setup code.0 `8 X, D9 l* Z' {2 W, Y4 F5 I
(defun ddcolor_main()0 o/ y! k, ]; p9 R) k! N% L) {
- A6 E, @0 ]$ K4 `9 x$ N1 |
(graphscr)
" Q' }/ f8 }+ d6 j
% U- `: H) M# v8 m' k$ h* C
;; Get the color of the current layer, for possible BYLAYER color swatch.* V. T5 L# ]' j" B
(setq lay_clr (cdr (assoc 62 (tblsearch "layer" (getvar "clayer"))))), ?: B8 ~" p* b3 \
A9 E# @6 |1 _4 h0 c
;; Call the dialog here.../ }: H8 O" i1 z: g" }/ E+ z+ ]
(setq clr (acad_colordlg (cstoci (getvar "cecolor")) T lay_clr))
# \/ A" y# g1 o$ @ M7 X- R
* w ?1 n- U! f p- L' V
(if clr
& g" M$ C; l4 \6 x" `; T& Z
(setvar "CECOLOR" (citocs clr)))& O. e. o/ u* E" V7 y6 n9 G
)
2 j9 k! A0 C6 \: A
8 q$ p% _9 j2 A& X
;;;4 V0 k( @) J6 }/ `6 j9 M
;;; CSTOCI -- Color string to color index
, g- [# p7 K/ [& p1 |* P+ ^. |- D
;;; Convert an arbitrary case string into a color index.
2 @, {' S8 X7 a- ^: w
;;; Returns nil if string is not a valid color.
2 p! `, s* ] F/ L" v7 [7 [
;;;4 T" {/ n. c8 x3 Y2 H3 ~, t
(defun cstoci (str)5 h& v" J; U k3 a4 i% `
(setq str (strcase str))
* e) r5 [ P; `
(cond7 c2 H4 S$ U9 h* ]( k
((= str "RED") 1)
" m; a+ j( M& Z' X6 H0 O
((= str "YELLOW") 2)) W8 ^3 t7 q n# c
((= str "GREEN") 3)
5 m" {( H+ }' L" G
((= str "CYAN") 4), m" u* D; @6 L* Z6 @
((= str "BLUE") 5) X L9 \- l y1 l- ^9 ~
((= str "MAGENTA") 6)2 U" y: J* ^: ?: ]( x* F
((= str "WHITE") 7). _1 {0 W6 @- D, g8 \ S; m( Y
((= str "BYLAYER") 256)% s4 I1 r8 a) V" @; I
((= str "BYBLOCK") 0)
& ^! P' f1 i. j9 F2 s/ f
((= str "BY LAYER") 256): I) T1 D. t! z0 R. E, m8 u, o
((= str "BY BLOCK") 0)7 V; u: E$ n* e9 C9 j/ M% A
((and (< 0 (atoi str)) (> 256 (atoi str))) (atoi str))* ?4 N% g) \; C0 r; j
(nil))+ M$ g4 e6 \+ n! p t& l( G
)
. C% ~, w) ]9 |& m( [" Q5 q% }0 J2 g- Q
) W w2 m: i- c( A. l
+ H+ h1 p0 N5 N q* l/ j/ ~
;;;' p* A1 l9 g+ ?+ E$ r
;;; CITOCS -- Convert color index into standard color name.
. \3 a( T" t* m7 ]
;;; Will return the standard and logical color names as text0 G; J: C0 g0 X# m7 G) f7 Q
;;; strings. Returns nil for out-of-range color indicies.% ?' A1 ?2 r% O) d7 o) v
;;;% ]& a+ |, h+ |; ? d* O
(defun citocs(i)
& T Z! p3 x' P, l
(cond# _3 I* c- I0 z) j4 f9 I
((= i 0) "BYBLOCK")6 W+ {4 o' {2 |* w# y! C# N
((= i 1) "red")
, B r1 q( F. Q$ s5 J7 t& Y f
((= i 2) "yellow")
8 D9 m2 g7 J. _
((= i 3) "green")- d0 A8 k( H$ }* s
((= i 4) "cyan")! ?9 b1 G/ g: E
((= i 5) "blue")
" ^! Z7 S% _9 o' s9 j1 c
((= i 6) "magenta")
& z# t& R, J' A8 n! G% t
((= i 7) "white")
7 R3 ^% R- r; Y4 `7 K
((= i 256) "BYLAYER")
. c/ p& T! k |# [( b; O+ q
((and (< 0 i) (> 256 i)) (itoa i))
) w$ z. `9 ^" ?, t
(nil))
' z7 W5 t6 l Y& [
)
1 n; J! }# u# x$ k. R$ }
3 ^8 t9 h; I, s7 p8 [0 Z/ }2 d" T
;; Start of ddcolor
+ P* ~; X( O; B# ~0 G5 K. u* R* g
(setq old_cmd (getvar "cmdecho") ; save current setting of cmdecho' ~. p" f4 r- |. ~7 A/ k
old_error *error* ; save current error function4 @) `+ ^4 Z* ^; P7 h; ~) c
*error* ai_error ; new error function
5 o' e; D* e8 h" F7 n% o
)5 Z6 X1 Z! k- z& N# R3 ~
4 f2 z) _. P0 M
(setvar "cmdecho" 0)
- |, P! ^4 C U) `- K- j9 E9 F
8 O& f- o' {) t8 R# \
(cond
9 ~* p Q- ?& x% U8 U0 ]& K
( (not (ai_trans))) ; transparent OK, h& H9 s# _7 P f1 ^" A( b
( (not (ai_acadapp))) ; ACADAPP.EXP xloaded?5 f5 M" C& G) I! ]
9 d7 u: G4 L3 G) l+ z
(t (if (and (/= 1 (logand 1 (getvar "cmdactive")))
- A4 J2 [0 G" A& t
(/= 8 (logand 8 (getvar "cmdactive")))
7 l% ~8 g! t" `
)
5 @7 b4 j# |4 C- _
(ai_undo_push)
. r0 t. a6 @7 W* ?- N
)/ F% Y9 ]7 q3 J/ y( T' v6 Q% X
8 u" R2 g; _9 P8 D" ^
(ddcolor_main) ; proceed!
" H# n6 v; u- w: ` D/ ~
; j" {2 j/ e% A/ G9 u: }
(if (and (/= 1 (logand 1 (getvar "cmdactive")))0 H: r( S3 F" ^$ S
(/= 8 (logand 8 (getvar "cmdactive")))
$ _! J- R! [+ u/ h
)
7 ]$ |1 o" H1 g/ g
(ai_undo_pop)5 B2 H+ y- e. r7 l* x [
). {- T S K L% [# O
) s) R6 S. c/ V4 ` [4 t# B
)0 \; [/ P8 X0 q/ ]4 W
1 w8 x7 V Q% ]" x: A5 L9 J7 u
(setq *error* old_error)
, {0 t* n# _, u2 I) e5 I/ H- _
(setvar "cmdecho" old_cmd)6 @# |# p% [, `; G" L
(princ); Y0 P8 h& y3 a `& y- D3 ?9 P
0 w9 r# E, n. J' b% Z5 Y
)8 n* X) W% ~. U" j5 z
r) T6 c! [* g! v$ }1 O# @
;;;----------------------------------------------------------------------------+ a# P! _( w' [8 A% y+ O4 y' j' T
+ z% ]6 W6 ]# |: i; y6 Z& S1 \
(princ " DDCOLOR loaded. ")
: K8 p7 ]' H* }8 A: V+ z0 Q
(princ)
2 z0 q0 A5 O k# W9 K% q& D
. \5 x5 l" e6 d7 @* {
;;;--------------------------------------------------------------------------;
3 [! i6 b9 j: k' W2 i2 w
;;;---------------Chon NHANH Nhieu Doi Tuong GIONG THUOC TINH----------------;
2 u7 |; V* b9 E! B9 \8 o
;;;--------------------------------------------------------------------------;
;;; ssx.lsp
5 _ [0 K* M' n4 F" s8 _9 F- I
;;; Copyright (C) 1990 by Autodesk, Inc.
" {% I. D+ p# z. _/ x' F
;;; Copyright (C) 1991 by Control Systems, Inc.# G% b4 j) p9 q$ i1 O
;;;4 f6 u/ A8 q. V( ]* Q
;;; Permission to use, copy, modify, and distribute this software and its: G& U. Y5 k9 N$ x7 L
;;; documentation for any purpose and without fee is hereby granted.0 y' {3 l) u' P% [* M9 ]
;;;
' Q% b% t: D& q7 G3 M% T7 z2 W! y; b/ u
;;; THIS SOFTWARE IS PROVIDED "AS IS" WITHOUT EXPRESS OR IMPLIED WARRANTY.3 D) l3 u+ Y% J3 n/ H5 u
;;; ALL IMPLIED WARRANTIES OF FITNESS FOR ANY PARTICULAR PURPOSE AND OF
( k* H2 Z: u# z# c
;;; MERCHANTABILITY ARE HEREBY DISCLAIMED.
8 C7 x- z( g+ y* U3 Z' a
;;;
# S1 U( Z0 B0 M8 I9 C- m) l2 R
;;; Larry Knott Version 2.0 7/18/88
4 p' [6 Y+ B; S; Y( ]& n. u
;;; Carl Bethea & Jan S. Yoder Version 3.0% ~4 ?/ A$ c6 s5 p2 I5 r# s" i
;;; Enhancements to (ssx).
8 a$ Y) y9 H k0 ~. _
;;; 15 March 1990
5 V1 w7 E3 J# @3 I
;;;' K0 l8 @/ B( y0 B5 z' O) b; j
;;; ARTIST Software, Inc Version 4.0 December 1991" ], {5 l( o: n, c, B4 P; p
;;; Modified for FLEXICON usage. If the variable FLEXVAR = 1,: r6 a* ^7 S2 ?+ j. i. K9 N
;;; use Flexicon menus7 K/ m$ E! k; L- ^
;;;
$ e9 i. i$ ^& Q) ~% V5 U
;;;--------------------------------------------------------------------------;
7 c9 B( D( J, a5 ~) X2 p
;;; DESCRIPTION
% D/ g0 _( y' M+ ` q
;;; SSX.LSP * a8 H+ x2 O* i+ `# _
;;;
$ \ ?- p' g; i' I5 l
;;; "(SSX)" - Easy SSGET filter routine. 9 K6 P4 J! ~, a
;;;
2 h! @9 P5 B; k# n" H* i- r
;;; Creates a selection set. Either type "SSX" at the "Command:" prompt ; z& P0 o( |; D
;;; to create a "previous" selection set or type "(SSX)" in response to 8 F% c0 y# I5 n/ ~
;;; any "Select objects:" prompt. You may use the functions "(A)" to add
) ^' d/ o! o. {8 m- K* x
;;; entities and "(R)" to remove entities from a selection set during \" V# I9 c" P9 n; x1 m- w& u
;;; object selection. More than one filter criteria can be used at a
* c4 H% _ A: f/ q+ u5 Q; o2 ~' ^0 v
;;; time. ' h' A( K# L, o5 F+ L
;;; 3 t/ c# @6 B+ Y6 a2 A1 b0 o
;;; SSX returns a selection set either exactly like a selected1 `4 j% X! |. \# d6 ?# C b
;;; entity or, by adjusting the filter list, similar to it. j/ i4 {) D. N# q
;;;
$ D3 G( Q- N( d
;;; The initial prompt is this:
1 y' J$ Z. _) i: Z' b! Z/ o3 |" K
;;; # p( v# \* l* s% E; A
;;; Command: ssx
! w0 m9 ?# c+ w; Z+ T! v
;;; Select object/<None>: (RETURN)/ X8 }0 a; Z5 |& ?: O
;;; >>Block name/Color/Entity/Flag/LAyer/LType/Pick/Style/Thickness/Vector: 7 V* p, z3 B% J0 t
;;; ( y0 @) U! \5 k( Z5 o, |2 f" Z
;;; Pressing RETURN at the initial prompt gives you a null selection
: R) R! i* J/ @( _0 b* a2 p
;;; mechanism just as (ssx) did in Release 10, but you may select an ! Q9 Z% S: C4 u J/ u5 Z; o
;;; entity if you desire. If you do so, then the list of valid types 6 M( V( Q* u$ ]8 J. o
;;; allowed by (ssget "x") are presented on the command line.
8 t) D4 _5 `, O5 Q) r2 O
;;; ! {% b" z% C7 [4 r
;;; Select object/<None>: (a LINE selected)
+ M+ q3 o* g( }1 e2 B- l
;;; Filter: ((0 . "LINE") (8 . "0") (39 . 2.0) (62 . 1) (210 0.0 0.0 1.0)) m& Q& g: q* w7 g) k
;;; >>Block name/Color/Entity/Flag/LAyer/LType/Pick/Style/Thickness/Vector:
0 V0 K# r4 C; @" b* k, r
;;;
/ M+ y6 ]* E% r9 ~' L) V
;;; At this point any of these filters may be removed by selecting the
) k: p$ M$ q# {" \# c1 G& O
;;; option keyword, then pressing RETURN.
$ R' U4 t' [. P9 d
;;;
0 ^' `4 G' {% e% O) E% K$ B4 ~
;;; >>Layer name to add/<RETURN to remove>: (RETURN). u( c* R4 s- k, K- \0 {1 A# `
;;; . w+ L. Z: u& s; x( ]9 x
;;; Filter: ((0 . "LINE") (39 . 2.0) (62 . 1) (210 0.0 0.0 1.0))! H# x: P: n/ i5 ? c) V$ v
;;; >>Block name/Color/Entity/Flag/LAyer/LType/Pick/Style/Thickness/Vector:
! j8 i+ f, r4 a% O0 h
;;;
# j; K- x4 A2 M' b) Q0 k
;;; If an item exists in the filter list and you elect to add a new item, & k8 J5 A% d* s" P0 W2 j6 v
;;; the old value is overwritten by the new value, as you can have only ; V/ U+ S! x5 c, N3 E- @5 T
;;; one of each type in a single (ssget "x") call.! W9 \ S7 Y( ]# I# k1 f" @" |' ?
;;;$ }' r0 O' ?. R3 u5 ]* h' e' [
;;;--------------------------------------------------------------------------;
1 s" s9 e% s$ A) n/ B
;;;
. S: ~$ u0 `' l- _* ~, b* M
;;; Find the dotted pairs that are valid filters for ssget
b/ W0 k- @& p( [7 \$ j
;;; in entity named "ent".
" ?1 V" N& x" D
;;;& ?# T) {2 m1 w5 |# ^( C1 A
;;; ssx_fe == SSX_Find_Entity
6 ?9 v* u. ?8 E7 i
;;;
5 c5 I( p4 m7 ^
(defun ssx_fe (/ x data fltr ent)
1 l6 M1 l4 E1 W
(if (and (= flexvar 1)(/= t2 "Pick"))0 J4 M0 _; u4 W4 i
(setq ent nil)
(setq ent (car (entsel "\nSelect object/<None>: ")))
# _7 b7 \, @! i" m# h8 W6 Q0 w$ E
)- m' W4 v# M1 x' B" X4 j- t
(if ent
/ I% S5 W3 h; L3 A7 s2 O* }
(progn" ?* U' e! {& ~' y
(setq data (entget ent))
: Z6 n( M+ B. e0 H4 I- I
(foreach x '(0 2 6 7 8 39 62 66 210) ; do not include 38: F; w5 z" @. c N& P% y
(if (assoc x data)# j: Y& y9 E3 m _4 Z6 P4 a1 @
(setq fltr . ^+ E* C, z: E: @: R9 ~
(cons (assoc x data) fltr)
* R, i& H$ G; z- X7 m9 ?% a
)
0 ~- d5 X1 C; l- p0 O
)& D6 Z2 Y t" O; G3 n
)
* K; i+ D2 \# H5 Q8 g
(reverse fltr)& e2 E4 @/ `. d& @) n: W. E: G4 p Q
)
1 ]0 `& J. u6 I) H
)
^% E$ P5 r; |7 n9 ]1 R6 ?& `
)9 p' M) ?, ~+ _! U5 C
;;;* o @; ?4 D+ z5 b2 w& \; b) v
;;; Remove "element" from "alist".
7 ^: ^! K) I& ^3 d7 S, k9 S7 b
;;;) f" f* l3 c* R/ {) a! D2 n
;;; ssx_re == SSX_Remove_Element
7 r/ r+ M" `$ M _8 g
;;;
& v7 q6 x2 |# ~& ^4 g- f. i7 t
(defun ssx_re (element alist)
& H* n" c- b! i* |
(append4 l& i. M' |( h6 u2 @
(reverse (cdr (member element (reverse alist))))1 L+ `5 x& i/ R# k' H: L
(cdr (member element alist))
V/ `, [8 p- g( [1 q- @6 L
)7 O( ~- R+ k. w1 y' @5 S
). a1 D+ K- A/ P
;;;
6 Z, e# U5 y4 {; |+ i3 e
;;; INTERNAL ERROR HANDLER - @% {0 G* Z; C7 x- z5 S* |' |
;;;
6 G8 s" d& l9 s2 X
(defun ssx_er (s) ; If an error (such as CTRL-C) occurs5 q# h+ o) r+ x: D2 P; u. X
; while this command is active...8 t: H2 \0 v+ u1 N; z# C& d! [* R
(if (/= s "Function cancelled") |/ e0 b4 q1 k; o' z; k
(princ (strcat "\nError: " s))
' I+ [) D% k/ z& ] ^ v
)
4 |1 l3 `% T8 d. f
(if olderr (setq *error* olderr)) ; Restore old *error* handler
$ S- d6 n7 L. S: U' ]) w
(setq flexvar 0)
9 A3 M# ^! S% n. w( ^) w* u* d& h
(princ): h, a) D7 H* I0 p* ?
)" V+ L% p9 s& ~# N5 C, r
;;;1 Y3 |; E+ }/ ]* t( n. a
;;; Flexicon call routine
5 }/ }$ R, O4 O3 E: }
;;;3 K2 X: G; s& Z/ n1 |2 S! I; ]; {
(defun flexmnu (a)2 ~! m3 D4 Y: T- b
(if (= flexvar 1)5 x3 ]% z8 H! r. T" Z* b7 N
(command "FLEXICON" (strcat "FLEX" a))
" s% h7 e5 i/ H6 l5 t, s* e* Z
)0 x6 x+ D% u- c) o2 Y$ C3 r' k
)( \1 e- B$ L8 C8 P5 i" L/ i6 L
& C# l% d& S" @, h, U: O
;;;
- R8 u: l" E7 Q6 L
;;; Get the filtered sel-set., M0 b' P6 X# @( L/ a
;;;
9 q! E. B0 p6 p$ b8 C' O1 H
;;;
, N. ^# t* @; O
(defun ssx (/ olderr)5 y o6 L. x( l4 R3 O! Y; a' L
(gc) ; close any sel-sets
& O$ R- ?! @2 f# d
(setq olderr *error* ; b3 P4 N; s3 }! ]3 N
*error* ssx_er
l: [" W0 f1 D8 ^; I. B
)
0 c0 s" \4 E% j) H/ N/ P m
(setq fltr (ssx_fe)) . u' Z* I9 s2 k$ I" Z
(ssx_gf fltr)
) _, f- t6 v, C
(if (= flexvar 1)
/ g3 q2 Z' o1 W6 l7 z3 [- R
(progn# p! ~0 r$ |# k( G4 T3 ?! Y8 i
(prompt "\n \n \nNow select the required EDIT command and (P)revious.")
( _+ e0 U! l, |6 A6 N3 {
(flexmnu "EDIT")
: E3 x/ d% H5 S1 ~5 [$ b
)( ?, y0 _1 c5 Z
(command "p")
$ C, B, C' [, V( Z: |, D, z
)% H% s3 |9 e5 Q
(princ)
! f. d6 L2 K# b; H1 I+ k; l
)$ g7 I; V2 _6 B# y: Z: s
;;;6 n6 ~0 e9 x: Y+ T, @8 G
;;; Build the filter list up by picking, selecting an item to add,
5 f/ H- I8 y1 ^* [/ x+ Z5 e
;;; or remove an item from the list by selecting it and pressing RETURN.
% M* J1 c# O& }: W2 _
;;;2 ?; U/ }2 I$ J! x* l! R
;;; ssx_gf == SSX_Get_Filters
7 V* N6 v" ]; ~- ?$ K! A
;;;/ J5 `2 @+ U) }
(defun ssx_gf (f1 / t1 t2 t3 f1 f2)
% q! b- `, M G: v$ O
(while 6 m. J3 Q0 m5 i% S& q$ w
(progn
; b+ g; V9 p+ ?/ V( R/ [( @
(flexmnu "SSX")! o* h U$ Q0 @3 {( u& f, |1 a7 A# \
(cond (f1 (prompt "\nFilter: ") (prin1 f1)))1 Q8 b! m' U" L# F1 G& @% w
(initget 6 q# @ i0 A% X; z. h/ z, g* H
"Block Color Entity Flag LAyer LType Pick Style Thickness Vector")
4 R3 T$ h+ M' ~7 K' i$ _
(setq t1 (getkword (strcat
' a. W: D9 ~ _5 v4 |
"\n>>Block name/Color/Entity/Flag/"
3 S) y+ o4 } Q4 z: w+ z' s
"LAyer/LType/Pick/Style/Thickness/Vector: ")))
/ Y) K+ Y- U7 F# a" E
)
0 V+ D' V! n$ g5 r
(setq t2, m/ y; k3 D$ k i ]% F
(cond: e; j6 A9 u+ m7 k6 f
((eq t1 "Block") 2) ((eq t1 "Color") 62)$ [6 [1 W, H& g! i% t* t
((eq t1 "Entity") 0) ((eq t1 "LAyer") 8)
- @# m* s) Y3 N( V( r* d1 ]0 W* d7 e- H
((eq t1 "LType") 6) ((eq t1 "Style") 7)/ ^0 u+ x2 w q$ }) T& i
((eq t1 "Thickness") 39) ((eq t1 "Flag" ) 66)
* Z( F0 f! W$ t, }
((eq t1 "Vector") 210)
- f( g& p0 R! B* y& w1 z; Q
(T t1)) y x: s( a, o4 @$ e5 z
)! f& ~6 B( x7 V6 M5 A$ Q) O/ J- k
)
5 |5 k2 w q0 g# L
(setq t30 s! U! s/ \0 H& M5 Y" C& h
(cond
; h5 v5 Q( @2 S' A4 I9 z
((= t2 2)0 D, [; y6 B# V1 \" b
(if (= flexvar gtads 1)
* P, \8 a7 V( ?" d+ S2 K
(progn
; q& O- v2 W) T
(prompt "\n>>Block name to add/<RETURN to remove>: ")) a- H0 W: ]! j
(gttable "BLOCK")
- z$ [* J, u3 V1 I! n
)
) u' @% Z2 y' y* ?7 @" _, G/ Z
(getstring "\n>>Block name to add/<RETURN to remove>: ")
) H1 k) }2 @8 b: {
)9 ^! F- C0 P+ E2 C% S
)
2 `; R* ^# Q* M( i# ^" v
((= t2 62) (initget 4 "?")1 q6 _! i5 z% l# Z- B
(cond+ D$ ?7 G" t5 Q4 C1 @
((or (eq (setq t3 (getint : D- w8 f w& ~- [5 C1 j* L
"\n>>Color number to add/?/<RETURN to remove>: ")) "?") Y$ K0 [& i9 h
(> t3 256))- ^0 L' i* M+ `
(ssx_pc) ; Print color values.) C9 B* Q0 ^. [! g3 H; b
nil
& e# D. r1 E( w/ k6 v# Z. V7 E
): }( s3 j% e8 ^( l" b. {
(T z% w. W9 G1 _- u% A7 e
t3 ; Return t3.9 S7 H0 @1 U! _$ |; v
); k7 ~ e2 s8 p* \6 P6 i
)% P, q& h9 M& ] H& }; \
)
. _# C9 {7 U5 h: J! i2 K
((= t2 0) (getstring "\n>>Entity type to add/<RETURN to remove>: "))
6 g7 Y1 U, g& x/ P* I
((= t2 8)
' p' @; h& m; W- y9 E) [5 i
(if (= flexvar gtads 1)
- }" \2 ^, B) C( A+ b; \( o0 l# L
(progn) V/ t) `9 b7 M I2 X# H+ U, O9 h6 \
(prompt "\n>>Layer name to add/<RETURN to remove>: ")' o% P" {4 r9 q, G( R4 z" Y4 J; g' U0 _
(gttable "LAYER")
) _9 j8 A$ N% [! M( z
)3 N; K1 u7 g: J% r5 u
(getstring "\n>>Layer name to add/<RETURN to remove>: ")2 z7 r, ^& p6 H0 Y1 Z
)
& H* K4 t* o) c9 |) G
), R# j# T) ]7 l' y
((= t2 6)
2 ?# i- W8 A- e
(if (= flexvar gtads 1)
; v% [& H$ I, C3 O
(progn
& @% }5 `. |3 x# {6 m, W9 f
(prompt "\n>>Linetype name to add/<RETURN to remove>: ")9 ] u- i+ J+ H
(gttable "LTYPE")
4 K9 `4 G2 @1 ^) F7 ~! B& C
)8 O% |/ _% x: O* C7 T
(getstring "\n>>Linetype name to add/<RETURN to remove>: ")3 o6 K3 L- l& }8 ^8 m
)
' j, H* I f' B6 p
)
: E% K0 l' f2 f3 @
((= t2 7)
& h+ I! p/ f) s* t
(if (= flexvar gtads 1)
% K5 G/ w R8 z. }* ]
(progn
% Y' `- w. U% P/ S' h& O: Q* |
(prompt "\n>>Text style name to add/<RETURN to remove>: ")
8 f; A- a% W4 o2 K6 ^" {
(gttable "STYLE")* W$ @5 {) j! @3 Y7 S' ~5 Z
)! Y1 g- ^7 S% _, y# X0 d
(getstring "\n>>Text style name to add/<RETURN to remove>: ")8 i" D9 O4 Y) ]8 l! P
)1 P9 J$ z/ A2 x/ ?) z8 q, t% g
): L9 [* S. ]- Y3 k. ^
((= t2 39)
5 H$ ]; @6 ?$ k2 K. D( Q
(prompt "\n>>Thickness to add/<RETURN to remove>: ")" h+ H) l7 H. D& x0 F4 p* J
(if(= flexvar gtads 1)(gtfnum"Thickness to add:")(getreal))
0 f; v# _+ E: s& R1 O( W
)& U- p+ v6 m! D' m: Y, W, K* n
((= t2 66) (if (assoc 66 f1) nil 1))
1 q- |. F6 K9 q5 O3 Q6 n
((= t2 210)
3 @2 R0 M/ E& ?
(getpoint "\n>>Extrusion Vector to add/<RETURN to remove>: ")& ]6 o+ [6 a4 R: e3 e7 C5 A' p
)
4 C' s+ g% A8 Z: B# n3 S
(T nil)
: \9 m5 e6 m8 o9 b
)1 V! o7 C8 P2 z, W2 i7 W
)
# J1 s5 g- W6 u& x: s4 m+ y+ W) g v
(cond0 q/ {0 [$ o9 M g/ r; H
((= t2 "Pick") (setq f1 (ssx_fe) t2 nil)) ; get entity
$ X' a, S0 d+ ?. b; K* ~
((and f1 (assoc t2 f1)) ; already in the list8 R4 \1 b: r' E3 E" B0 }& C
(if (and t3 (/= t3 ""))8 m* E4 V& _3 r: t3 h7 l" E2 ~
;; Replace with a new value... 7 e$ Q2 S, n* v
(setq f1 (subst (cons t2 t3) (assoc t2 f1) f1))
: v7 b" f: y t2 e
;; Remove it from filter list...
2 Z- b- S9 S7 D: s) ~" X X. }! ?
(setq f1 (ssx_re (assoc t2 f1) f1)) 7 f3 D! K# Z$ A
) $ J, S( q" I* P
)' A+ P" C/ r- ~" n
((and t3 (/= t3 ""))# {; j: n1 S; U! ^/ e
(setq f1 (cons (cons t2 t3) f1))
) B6 i1 W& h( @
)8 X, _0 I# P4 w8 b
(T nil)
6 h/ w5 i' N p. ]( m6 s
)
8 z. j: Y. z- s
)
/ z1 |% X s& |5 P. c @6 Q
(if f1 (setq f2 (ssget "x" f1)))
9 X- F- c; z# G( d
(setq *error* olderr)
: R+ J) k+ \ u; C0 Z0 L
(if (and f1 f2)
/ }; z$ r: |9 s: b7 e C7 c: f
(progn
) A1 A, q7 [0 H8 y4 m
(princ (strcat "\n" (itoa (sslength f2)) " found. "))3 }' Q. {( _2 f) x3 ]
f2 , @, A$ P6 G% H9 H8 D) T" G+ g) e
)4 w0 E, f/ S1 R& G$ U
(progn (princ "\n0 found.") (prin1))! r$ L# P) }! k( ]8 o# B
)
7 r1 w3 Z& H* q" M$ f
)% z, O' t" _. G8 O, k
;;;4 g4 |, R( W9 c u; r! }4 ?6 d) b, Q
;;; Print the standard color assignments.
$ T; W X$ [7 @: ]
;;;
' H; ~4 ~ C `1 o; l$ T
;;;
4 \4 U1 R# \/ a% d& h$ }
(defun ssx_pc ()3 N8 Y( u" \9 O0 D, K" \
(if textpage (textpage) (textscr))1 w" s* O- p4 i$ v3 S4 x3 B
(princ "\n "); d3 c- H6 i/ T/ v
(princ "\n Color number | Standard meaning "); Z0 K3 X: k4 ]# X. }1 |1 Y
(princ "\n ________________|____________________")
1 @' f: J O* N, `3 M
(princ "\n | ")' L" f! B9 S# W! @
(princ "\n 0 | <BYBLOCK> ")0 \; Y2 O2 {% r, j: X9 h- K! [
(princ "\n 1 | Red ") n$ V% m. ~* R' [- D" F$ k
(princ "\n 2 | Yellow ")9 {5 I% w6 X6 A% C' y0 H3 B
(princ "\n 3 | Green ")
0 m R, M0 s+ R _8 y( n
(princ "\n 4 | Cyan ")" Z6 p6 u+ }! S) W) H
(princ "\n 5 | Blue ")8 ?; W! f, X6 V% b$ @
(princ "\n 6 | Magenta ")! X/ ~* H f8 c/ C( e5 y" b2 w" ~, H
(princ "\n 7 | White ")
9 p$ d% A% W/ @( m0 p( Z: P
(princ "\n 8...255 | -Varies- ")
" `" G8 ~+ p5 `* f2 V5 y t% w
(princ "\n 256 | <BYLAYER> ") r$ B" A8 F7 h9 e% J5 h
(princ "\n \n\n\n"); A9 P; l2 `, l+ ?: Q
)
# K* l+ ]" c8 P% z4 f0 Q
;;;
/ @; w5 L7 ]9 u6 U- b. d
;;; C: function definition.
7 R- \7 F0 E" [& b3 Q# f8 n
;;;. p! ?3 [/ I# Y- |0 ]6 l/ Y! q
(defun c:ssx () (ssx)(princ))
7 J% O5 D9 D# s1 D* @+ ?9 c, v" e
(princ "\n\tType \"ssx\" at a Command: prompt or ")" v A0 ^1 q+ k- u( A
(princ "\n\t(ssx) at any object selection prompt. ")
1 |. B3 B$ O. q- w! | h: o
(princ)
2 m. `4 f; H* J8 v0 D0 D% O" p
( z7 {$ ^8 ^/ T
;;;--------------------------------------------------------------------------;6 X; H z- ^6 F" _8 R4 T M' `7 x! @% I
;;;--------------------------------------------------------------------------;7 k; W, k4 e: U6 X
;;;--------------------------------------------------------------------------;
' F8 S2 n4 F' J" L# n0 w
(defun S::STARTUP (), z% I1 U; W2 t8 I1 f
(setvar "cmdecho" 0)' V$ P( \" w8 u; R
(setvar "cmdecho" 1)" @- d& V1 u5 }, c2 r; F
(setvar "LTSCALE" 10)) m' E) h6 i3 ~* ]
8 k& m$ f# u& u9 r
;(command "_load" "chenKH.fas")
: W* K. F* t7 P9 J/ ^+ _4 G) n
;(command "_load" "ctcot.fas")0 K7 \9 m4 G( L! }
;(command "_load" "damdoc.fas")
2 C4 o& H# n( k2 c0 _9 K- Q
;(command "_load" "ghichu.fas")0 ~4 l* u! J% m
;(command "_load" "hamtutao.lsp")2 J( X6 f6 c- j8 c0 w! Q2 U1 ~* [% m
;(command "_load" "KHOITAO.fas")
3 S* r3 ?& e/ Y; F9 W& b
;(command "_load" "KHthep.fas")
5 D; J( g8 \8 P" P! c, Z
;(command "_load" "mbmong.dcl")& A5 p" ~: E/ N/ y! k
;(command "_load" "mbmong.fas")% m0 ^; S4 R6 [& Q! I$ X
;(command "_load" "mccot.fas")
1 Y% _7 |" r( L
;(command "_load" "mcdam.fas")
' M* _. F( R' \/ e' [ G, X' X
;(command "_load" "mcmong1.dcl"): ^ t( q. h5 r" n5 d; k
;(command "_load" "mcmong1.fas")
' F8 _* c `$ i$ l
;(command "_load" "mcmong2.dcl")
( V$ Y& b6 U6 Y4 n7 x# M. ~
;(command "_load" "mcmong2.fas")6 k8 S; ^- X$ [/ H
;(command "_load" "mcmong3.dcl")
/ V* x5 ]1 k( u. p6 w% X
;(command "_load" "mcmong3.fas")! j( @1 K: M5 v1 ~) ]
;(command "_load" "mcsan.fas")- W2 A7 F0 v, e8 U. f
;(command "_load" "thepdai.fas")9 W& o& N; L+ U
;(command "_load" "thepdoc.fas"). \1 l/ Y' V7 ^) G: k$ K
;(command "_load" "thepmb.fas")/ P/ x# n# n: i8 T& p# G
;(command "_load" "thepphbo.fas")
5 Z. {0 E8 J1 H4 ~1 X* H U
(command "_script" "thongso.scr")
2 ^/ V5 C i/ `( m
;(command "_load" "thongso1.dcl"). W& b3 C1 r9 `$ g) q2 s% } \( h
;(command "_load" "thongso1.fas")
7 m# z L) D/ o' i( r' K2 @
;(command "_load" "thongso2.dcl")' Z. k! k/ T9 b+ a
;(command "_load" "thongso2.fas")
0 |8 t$ A) Z% n% z2 R2 e
;(command "_load" "tietdien.fas")
9 T! ^) ^# l( A) Q
;(command "_load" "vehan.fas")
Z3 o0 x# }0 j- I
(command "_load" "phamDuy782006_TKT.lsp")- T& Z. O4 C; }+ r
(command "_load" "phamduy782006ganhtd.lsp")( V$ p8 k5 k2 ]+ R+ _3 P# L+ `& s
(command "_load" "phamduy782006ganhtds.lsp")
5 W/ Q& S0 n, _/ k- g: q5 G
(command "_load" "phamduy782006htd.dcl")" K- G% J/ b% ^
(princ)
9 W; |2 z9 w; A* w3 T
)
: N. p3 @+ r6 O# p3 j9 p! P9 B; D
/ ]% @9 I( i( B2 i7 L1 W; N2 q
;; Silent load.6 m0 L/ u. \- r7 B7 ?* B
(princ) P1 S8 a# ?7 }1 |# m. F) e7 k
; g. k- g. }: J+ Z' J9 g
* R4 P& R( `9 w) f$ l1 H+ x
;; Silent load for the Express Tools.
1 G. h, T/ z) a3 p' d7 b
;; Altering this line will affect Express Tools functionality! Y) k, n* ?9 _- K
(load "acettest.fas" (princ))2 x! {! L; O1 S# T' T& a/ _
�32

Sao chép mã