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

********************************************************************************
( V+ `! T% ~; g# W
* ACADLISP FOR AUTOCAD R.14 -> AUTOCAD R.2012 *2 F" s! x. H8 l5 Y; m
* Tran Ngoc Thang DHXD-HaNoi41 from years 1999 -> 2015 *
) A& E3 F5 p( [5 V
* Suu tam & Soan *+ ^7 o: q4 T& y! O! T; i' I- B. [
********************************************************************************
4 Y, Y& n& N! U6 M: n' e( K
9 @) ]' w0 h2 d6 V
; Next available MSG number is 104
4 u+ \* `# q4 Y) C8 m
; MODULE_ID ACAD2000doc_LSP_
5 p7 u. x' C" ^" i
;;; ACAD2000DOC.LSP Version 1.0 for AutoCAD 2000
! ]2 |9 [- `4 T0 P, e; Q' N
;;; h: F, J2 I; d% A& l R7 T% o
;;; Copyright (C) 1994 - 1999 by Autodesk, Inc.
4 J# f' Z }! c) E' F; C
;;;4 C+ y1 Z; U8 ?# A) ^* V; G
;;; Permission to use, copy, modify, and distribute this software
. b S) @. R, \* e q. p3 X
;;; for any purpose and without fee is hereby granted, provided- o& t1 @; i( i+ z( R
;;; that the above copyright notice appears in all copies and
2 N h1 X$ n) z& i
;;; that both that copyright notice and the limited warranty and6 `% n2 d9 i. i
;;; restricted rights notice below appear in all supporting
1 E; K) \* C% `& B# H" Y! Y4 S+ E
;;; documentation.1 C5 @6 f; g5 [6 F
;;;
+ n7 `8 h0 W2 v$ d, I
;;; AUTODESK PROVIDES THIS PROGRAM "AS IS" AND WITH ALL FAULTS.2 j* k' U# t- ~
;;; AUTODESK SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTY OF
5 O3 B; c' Z% U8 k" H4 l
;;; MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE. AUTODESK, INC.6 Q! y; D" W% q+ _+ l
;;; DOES NOT WARRANT THAT THE OPERATION OF THE PROGRAM WILL BE
/ v7 u3 R' W N& o3 _5 }
;;; UNINTERRUPTED OR ERROR FREE.
+ K1 Y2 C, |! u) h7 l
;;;, T4 U6 \/ t5 w. \( b4 @
;;; Use, duplication, or disclosure by the U.S. Government is subject to+ |4 a9 G8 F, H: M0 f" v
;;; restrictions set forth in FAR 52.227-19 (Commercial Computer
+ v6 T$ O( ~4 L. E
;;; Software - Restricted Rights) and DFAR 252.227-7013(c)(1)(ii)
6 c6 ?) Z. I0 l& G a$ T) I* ^. M
;;; (Rights in Technical Data and Computer Software), as applicable.
$ u, ~5 u3 Q2 w
;;; q# N: w: @$ ?& a7 h) L
;;;.
3 E" {5 t9 N" c8 }+ i( }
;;;" [6 n4 H) A8 c
;;; Note:
" J3 D* w0 I0 i9 R0 {' P
;;; This file is loaded automatically by AutoCAD every time
2 _% u9 k, N. H c4 l
;;; a drawing is opened. It establishes an autoloader and
8 F& L) N' k) T
;;; other utility functions.1 g1 w+ G" e: _
;;;
;;; Globalization Note: 6 U/ E1 r" y+ C% J( {2 T
;;; We do not support autoloading applications by the native 3 Y2 h2 d' v: ]
;;; language command call (e.g. with the leading underscore
5 d7 t2 a7 v, S( @* K" B8 `
;;; mechanism.)/ |: Z/ h( ^- n" J9 ^
- j: x N! E7 c, o* p. q
+ V" x, d5 \/ I2 { z& S( I/ m
;;;===== Raster Image Support for Clipboard Paste Special =====
- I% `- P$ g+ t7 n. M; h
;;
* a0 |7 N, G& p% s L
;; IMAGEFILE* X+ V7 K9 g2 r! J; i
;;" A7 \/ d; L) }6 d
;; Allow the IMAGE command to accept an image file name without' {3 }" c' M; b' [
;; presenting the file dialog, even if filedia is on., N' X2 Q" E0 R. P- O; E b. u
;; Example: (imagefile "c:/images/house.bmp")
3 b8 E. J( }7 [; x: _1 ^
;;. l1 K w; F/ q) b* _9 o
(defun imagefile (filename / filedia-save cmdecho-save)
! i9 ] S5 `) i6 Z* Q* k
(setq filedia-save (getvar "FILEDIA"))) n/ |7 Q1 V& H9 e$ G7 G
(setq cmdecho-save (getvar "CMDECHO"))
$ u, D% K, }" v2 X' x
(setvar "FILEDIA" 0)* {8 V1 G7 F! o. p
(setvar "CMDECHO" 0)
; i' T; I! g8 ]9 c: d
(command "_.-image" "_attach" filename)
; M) W# g7 L6 x3 @0 z
(setvar "FILEDIA" filedia-save)
1 E- z' s( D6 `, w6 X$ T# F
(setvar "CMDECHO" cmdecho-save)
% p- n6 r9 U2 X3 c! v
(princ)! d1 \& _) k! a5 \
)
) ]4 h/ u* z. @0 C# Y% o
' M+ c+ L7 a7 d3 o
(defun c:zx () (command "zoom" ".5x"))
6 u0 K& f5 r6 C& q
(defun c:zz () (command "zoom" "p"))5 X7 n4 o; ] u7 R
(defun c:za () (command "zoom" "a"))- D+ n4 U5 `% G7 W& |0 ^
(defun c:zd () (command "zoom" "d"))) W0 @! z6 W( v" S+ w
(defun c:ze () (command "zoom" "e"))& v/ c1 b8 R7 h0 f% \6 w4 M
(defun c:zr () (command "zoom" "" ""))3 ~) A; r1 j1 Q1 {) c+ g. d
(defun c:vv () (command "ucs" "v"))8 ^+ @8 ^* F, b8 b/ M
(defun c:co () (ssget) (command "copy" "p" "" "m"))" X2 F) k! F% v/ T
(defun c:c () (command "circle"))3 I& D1 o- J) z( g/ _) D1 J1 x4 ?
(defun c:rt () (command "rotate"))
) f" s8 o9 j. h
(defun c:3q () (ssget) (command "_rotate3d" "ANGDIR" "value" pause (princ))); o4 o# r/ [" n9 G
(defun c:30 () (ssget) (command "rotate" "p" "" pause "30"))# P m9 ~! ~( [$ ?( z/ g; }
(defun c:-30 () (ssget) (command "rotate" "p" "" pause "-30"))
2 @# c. i" t5 h' w9 B. _
(defun c:45 () (ssget) (command "rotate" "p" "" pause "45"))
0 I5 p2 ]$ K7 r0 G8 }) n
(defun c:r5 () (ssget) (command "rotate" "p" "" pause "5"))9 X4 [ I. g) Q" M) Y# m& u# \' G+ @+ _* J
(defun c:60 () (ssget) (command "rotate" "p" "" pause "60"))
8 z% @6 f$ L5 E
(defun c:-60 () (ssget) (command "rotate" "p" "" pause "-60"))6 |5 ]. m* B6 N
(defun c:90 () (ssget) (command "rotate" "p" "" pause "90"))
% z. |( y6 q& i7 }; X
(defun c:180 () (ssget) (command "rotate" "p" "" pause "180"))
0 E3 v2 n8 Z( S, |0 y
(defun c:-45 () (ssget) (command "rotate" "p" "" pause "-45"))
n* ]/ X w/ `& V) b
(defun c:-90 () (ssget) (command "rotate" "p" "" pause "-90"))
4 M- B; }9 { f, @
(defun c:md () (ssget) (command "mirror" "p" "" pause pause "y"))- a, Q9 K# s$ u
(defun c:fd () (command "find" "p" "" )(princ))(princ)
4 o7 B8 M( E0 T7 d! x; Q
' d- `0 @2 J; o
(defun c:romantdim () (command "-style" "ROMANT-DIM" "romant,vnh.shx" "200""1""0""n""n""n"))(princ)/ L% P8 ?- C7 C7 U& t( Y
(defun c:romantext () (command "-style" "ROMANT-TEXT" "romant,vnh.shx" "200""1""0""n""n""n"))(princ). v; u% o' [; }8 G
(defun c:vnhelvthuong () (command "-style" "VNHELVLT-Thuong" "vnhelv,vnh.shx" "500""1""0""n""n""n"))(princ)2 G# D; G' d1 _$ O: P: B. X: P
(defun c:vnhelvhoa () (command "-style" "VNHELVLT-Hoa" "vnhelvh,vnh.shx" "500""1""0""n""n""n"))(princ)5 |$ l. [; n! Z% m
(defun c:truc () (command "-style" "TRUC" "impact" "0""1""0""n""n""n"))/ E5 O4 X. O& Q/ c0 I9 s
(defun c:chu () (command "-style" "VERDANA" "verdana" "200""1""0""n""n"))+ K: P8 M: C- d2 I9 I
(defun c:cot () (command "-style" "COTES" "verdana" """1""0""n""n"))
: g( Y2 V1 q3 f% u/ m. U. d: H5 T
. i, s. c, J- I: r. f! b
(defun c:an () (command "-style" ".AVANT" ".vnavant" "200""1""0""n""n"))
" A9 X4 J3 X$ i! h
(defun c:ah () (command "-style" ".AVANTH" ".vnavanth" "200""1""0""n""n"))
2 l/ i& y: q W; u' t0 c. H: d
(defun c:ha () (command "-style" ".ARIALH" ".vnarialh" "200""1""0""n""n"))* S) p! |) }. I& F- n- d
(defun c:na () (command "-style" ".ARIALNARROWH" ".vnarial narrowh""1200""1""0""n""n"))
! |- H6 d1 [& P- l C$ ]
(defun c:vn () (command "-style" ".VNTIME" ".vntime" "200""1""0""n""n"))
. \* F! d) y A7 x1 O7 j
(defun c:vh () (command "-style" ".VNTIMEH" ".vntimeh" "200""1""0""n""n"))
L' t1 s+ T! }! h# v
3 R$ }+ Q1 o# \& f+ N/ Z% d
(defun c:ps () (command "PSOUT" "CorelDraw-import-Photoshop" "W"))(princ);export the current view of a drawing as an EPS file% w. ?! N7 C+ k4 O+ ?; A
, Z- M# Q, z( E" U7 K" N9 _- ?4 w
;free lisp by cadviet,cd2k44
) A4 P+ i% g9 H6 M! Z& w! u& Y
;link bai viet http://www.cadviet.com/forum/index.php?showtopic=53830
- v, f, B( A2 R- f4 U Z; P
(defun c:FTEXT (/ ent tstyle )
: G) Y5 @$ k4 I5 ]
(command "undo" "be")1 U/ M* R" }/ d* Q8 {& B6 Z
(setq ent (entsel "\n Pick text :"))7 W6 @9 }' f7 I* |! g2 @; P, y( E, e
(setq TSTYLE (cdr (assoc 7 (entget (car ent))))); y7 N" i. {' I6 ~' \
(command "STYLE" TSTYLE "romant.shx,vnh.shx" "0" "1" "0" "N" "N" "n")
2 P; y$ u5 H6 g6 a! q- z
(setvar "TEXTSTYLE" Tstyle)* x0 o7 j6 b: j0 k# m9 V9 y& x
(command "undo" "end")
& f+ k* X: E$ t1 @
)
8 _/ E1 ], S. L' T
;Cam on cadviet nhieu 27-11-2023 04h15p36s (thanks cadviet)
' o' L! M0 g' X3 X
) u* j- c8 Y, ^( j- @: \
;free lisp by cadviet,cd2k44
( b( T4 k3 P: h9 e% l- G
;link bai viet http://www.cadviet.com/forum/index.php?showtopic=538308 [, u2 @# V* x$ _
(defun c:Fvnh (/ ent tstyle )
0 r8 ?" J& y' u
(command "undo" "be")! u! p9 p4 k( {% z) Q
(setq ent (entsel "\n Pick text :"))
R* L9 {( [. b) \* T! z: w# d
(setq TSTYLE (cdr (assoc 7 (entget (car ent)))))& Q; [7 i; E" L# K0 z
(command "STYLE" TSTYLE "vnhelvh.shx,vnh.shx" "0" "1" "0" "N" "N" "n")# D6 a* @; K+ H% q2 _
(setvar "TEXTSTYLE" Tstyle)) O, A5 a, N4 v' u
(command "undo" "end")
7 L. J, x7 F! C4 u _7 l
)
$ F7 Y/ S2 f9 x3 `4 a
, c) k9 H! U1 @
;free lisp by cadviet,cd2k448 z: W$ z" n7 W$ Q0 F3 o
;link bai viet http://www.cadviet.com/forum/index.php?showtopic=53830
/ N: R/ h# e. \3 q( S+ A. i& I
(defun c:Chbg (/ ent tstyle )) Z5 r# w2 c1 X* a6 L: ~) r* t2 ?
(command "undo" "be")
; m4 F( r# u7 r2 k" c4 B/ f
(setq ent (entsel "\n Pick text :"))
& c; `! p* M" e$ M7 m& { R, `
(setq TSTYLE (cdr (assoc 7 (entget (car ent)))))! I, {0 S: |% w
(command "STYLE" TSTYLE "chhbg.shx,vnh.shx" "0" "1" "0" "N" "N" "n")) B h% i* `1 S1 g' ^$ r( E
(setvar "TEXTSTYLE" Tstyle) ~$ {8 [7 a ]
(command "undo" "end")
6 n3 Q1 z" e: V+ B7 `/ ^
)
/ F/ B' a4 }* F& Q j7 X% Q
4 p( C$ B3 {8 ~; _' X4 y0 J; v
;free lisp by cadviet,cd2k449 O) M! x4 O- }: z
;link bai viet http://www.cadviet.com/forum/index.php?showtopic=53830
, C! |9 d* i4 n' d1 ^5 J- c
(defun c:Chsm (/ ent tstyle )
6 B, |6 c2 x% Q, l& v4 d/ {9 h
(command "undo" "be")
: n. \$ ?8 ?+ V6 }+ {2 h& B( R
(setq ent (entsel "\n Pick text :")): u, r& o: X; [* u' z6 ]/ ^. k
(setq TSTYLE (cdr (assoc 7 (entget (car ent)))))6 P/ B( Q U* x8 v
(command "STYLE" TSTYLE "chhsml.shx,vnh.shx" "0" "1" "0" "N" "N" "n")
8 f d4 k0 ~: N& ?9 k
(setvar "TEXTSTYLE" Tstyle)* K j6 L. ?0 Q7 s
(command "undo" "end")8 ?, p! [* [6 C3 U# P
)' a- }1 K# G, Z. F) J, p/ F* U
4 K3 l$ a* U7 o* ~
;free lisp by cadviet,cd2k44
% Y/ Z' u* j, R+ ?7 m
;link bai viet http://www.cadviet.com/forum/index.php?showtopic=53830
8 x; y1 B6 ^8 w
(defun c:Fttf (/ ent tstyle )
- @$ ]: D/ r- g# m) P
(command "undo" "be") t/ g( k: v0 D& o! ]) I2 T
(setq ent (entsel "\n Pick text :")) G5 }1 F9 ]$ _5 m- W2 G8 |( C0 \
(setq TSTYLE (cdr (assoc 7 (entget (car ent)))))' E' R: r4 [" i
(command "STYLE" TSTYLE "verdana.ttf" "0" "1" "0" "N" "N" "n")" {4 s- f4 K4 z0 x4 r
(setvar "TEXTSTYLE" Tstyle)' g. [( |) P3 Q4 H
(command "undo" "end")
; m3 P/ @' E1 A7 E
)
3 G0 U+ l3 A( k
. k0 B6 q5 B, v
;;; ============================================! |9 C# i3 Q. m* G! j
;;;3 p5 R+ I1 Z$ n+ Q" c9 x, ~4 R
;;; LISP Creater Tao Duong Dan AUTOCAD2000
; `& t6 \ C7 n* w2 R
;;;
G' T+ T1 N G4 L9 a5 i+ ^' a
;;; ============================================
; M0 x3 M4 A6 r9 U
J2 j5 `. V% Z$ c/ \: J
;;; ============================================
1 J! b9 r# ~0 `: @& M: E* W
;;;! ~, E; v' R# {8 j
;;; CREATING FROM AUTOCAD2000/ g+ g8 T/ _3 u
;;;
: V% D X7 @* A2 F: G: S0 \* P
;;; ============================================
- O7 [6 l- K0 X- G/ S1 G! ^
6 G/ X1 E' Q9 `7 N# y% [7 ^
(setvar "INSUNITS"4)
: r9 T( l* _8 i) G
(setvar "ANGBASE"0)" l* l( M9 B# M7 ]: m( n
(setvar "ANGDIR"0); K2 k- G9 K- F( D/ P. b- x; N
(setvar "AUNITS"0)
; R. A; d; ~# n
(setvar "AUPREC"8)
& U* g9 V2 y* L9 e6 {; N* Y: B- ?
(setvar "LUNITS"2)+ ^1 B/ L" T& s! @
(setvar "LUPREC"8)- S2 E2 |( R8 ~7 K0 {
(setvar "ACADLSPASDOC"1) 5 O/ R4 {: P9 `: v$ V7 R# I. _/ P
(setvar "pickbox"5)
, {, o/ j/ d" f" F! V, T: ^/ o
(setvar "blipmode"0)
2 P8 n3 I, P; Z" X0 X
(setvar "mirrtext"0)
$ g% v6 M/ q' X/ N* e
(setvar "cursorsize"100)
, M! I) L5 b; }* c
(setvar "ZOOMFACTOR"75)6 E& ^ V. Y, v- O1 p2 }- _" _
(setvar "LTSCALE" 10)
3 q! v9 w" q6 x n. f( g* E3 M& g, e
(setvar "lwunits"1)2 S( ^3 r2 o2 q
(setvar "DIMBLK" "Closed")( }* k) Q9 Z4 j: C) ^' S
(setvar "DIMGAP"0.0693)0 G4 ~1 C$ Y. m. h/ B' d/ {
(setvar "DIMASZ"0.20)' c& y8 y( v, r6 g
(setvar "DIMCEN"0.2)6 B" C. }: P6 { F, S
(setvar "DIMDLI"0.1)- _) W/ W/ l' d5 e$ A& _+ S
(setvar "DIMEXE"0.0693)
2 e) R/ l' b- E% K0 [3 W8 Y: V' E
(setvar "DIMEXO"0.25)( x1 P7 c* R7 x& R* z
(setvar "DIMDEC"0)( Z5 v4 U/ x8 D N; O- G5 ?. w
(setvar "DIMTIX" 1)
9 W' z+ V$ F9 }/ Q. t6 M+ `# D
(setvar "DIMTXT" 0.099)
: R/ I: K/ i8 [8 Z$ K, t) _% G
(setvar "DIMCLRT" 7)5 [+ t2 y7 [! j$ E
(setvar "DIMTVP" 1)
9 Y B' j5 l+ u9 x* y. a
(setvar "DIMJUST" 0)
+ R! r$ ?# N5 y
(setvar "DIMTIH" 0)
q1 E, {2 q5 s* t4 m: b& z5 n
(setvar "DIMTOFL" 1)) U9 T, Y- o& v" _' n `
(setvar "DIMSCALE" 1111.1111), Q) O$ o! i \/ k# n" Z* r( J: ?
: w) Y& ]$ W- [: w, [. Q
* }( P0 t3 P7 w+ h- t+ R& w% l
5 M+ T) {5 F4 z
(defun c:zp () (command "'.zoom" "p"))
$ T% |! Q( R" t& L; ]
(defun c:zz () (command "'.zoom" "p"))
5 J" ]2 C* e( j' [3 H. ]* H
(defun c:ze () (command "'.zoom" "e")) r5 M* g# H6 l8 R! c% [
(defun c:za () (command "'.zoom" "a"))
. o9 Q7 q4 G6 T8 u
(defun c:zd () (command "'.zoom" "d"))( D0 _! k* d b0 {9 x& G/ o
(DEFUN C:ZZZ () (COMMAND "ZOOM" ".25X"))2 l2 [/ A0 o1 [) k/ V8 J9 a7 C2 ?
(DEFUN C:ZX () (COMMAND "ZOOM" "2X"))9 N" [0 A: M: k! l
(defun c:de () (command "ddedit")(princ))
1 l7 b" ~% u( Q6 b2 ]5 o
(defun c:dda () (command "Dimaligned"))
. o+ H# h9 [- D: T9 D& h Z
(defun c:ddb () (command "Dimabaseline"))
' Q$ \& r6 Z6 S: H
(defun c:ddc () (command "Dimcontinue"))
' d F4 l) ^( G3 |
(defun c:dde () (command "Dimtedit"))6 H8 L, s% x" W0 h4 W: G% g
(defun c:ddf () (command "Ddattdef"))
0 n F6 A) \3 Y' ~6 X
(defun c:ddi () (command "Dimdiameter")), x$ D/ C; o: H
(defun c:ddl () (command "Dimlinear"))3 U8 N, V; D1 F9 s( D6 q/ _6 `
(defun c:ddn () (command "Dimangular"))
2 C) L% j0 {# S' H/ S& T- m
(defun c:ddo () (command "Dimordinate"))5 `8 i1 Y0 e; E7 N+ w; c, O
(defun c:ddr () (command "Dimradius")), ^. w; d$ N2 e. E. G) r
(defun c:dds () (command "Dimstyle"))
* N0 o$ o, @( Z: h
_$ m1 e8 n9 h& W
(defun c:DU () (command "dim1" "up" "select" "exit" pause ))(princ)
1 I5 o+ ~* b& \% P# U
(defun c:DH () (command "Dim1" "home" "select" "exit" pause))(princ)0 h' X3 m* q/ S* D1 `8 B
(defun c:UU () (command "dim1""update""all"))' N; m% @0 q' B) s
(defun c:ded() (command "dim1""tedit"))
: y x1 W9 z! P9 f# @% y( _- G9 V7 N
(defun c:da () (command "dim1""ali"))6 L6 O$ ]3 q R6 v2 W
(defun c:dll() (command "dim1""l"))
3 j" _' k5 A/ f. j; I6 ]4 e' a7 x3 v
(defun c:dan() (command "dim1""an"))8 ]9 m; S, _5 Y7 Y. I. ^6 A
(defun c:d1 () (command "dim1""ra"))& ^4 F1 Y! A {* \
(defun c:n () (command "dim1""new"))
& X- R( C; c( s* q7 W9 {
) {, U8 ~! P5 I& `
(DEFUN C:PE () (COMMAND "PEDIT"))
- f4 _! |5 |7 n3 |
(DEFUN C:PL () (COMMAND "PLINE"))
$ t2 n7 h: d* T& z1 ? c
(defun c:dd () (command "dist")(princ))
) c k, V6 b( ~) c- k) a
(defun c:w () (command "pedit" pause "w" "au")(princ))
8 c ^+ E( _0 @- D: b9 u
(defun c:pg () (command "polygon" "polygon")), V+ U- \6 D8 c7 `* k2 o$ R3 K/ E
(defun c:el () (command "ellipse"))- C/ B- a) { Z: k' i8 ]1 ~) n
(defun c:xe () (command "explode"))
; i+ K" L& N7 @ r
(defun c:eex () (command "extrude"))
5 C( C+ ^# q ^* j) r
(defun c:xg () (command "xline""a"))
- c3 q8 m) s4 Y" R1 ]
(defun c:xh () (command "xline""h"))
5 J* i( d) k5 \4 I
(defun c:xv () (command "xline""v"))
1 {8 T, N2 G5 Q8 H1 p7 D; T4 G1 A" y
; w, s! S) H- d
(defun c:oc () (command "osnap""cen"))
0 Z) k/ S0 H' y9 S9 D
(defun c:od () (command "osnap""nod"))2 G" L' k! ], a" A
(defun c:oe () (command "osnap""end"))
' a" H9 P9 M8 M& k& ~# q, f
(defun c:oi () (command "osnap""int"))( J' ]1 Y2 X# l) \# ^) V
(defun c:or () (command "osnap""per"))
0 E3 R# V! `) \" B' T1 w: P
(defun c:on () (command "osnap""none"))+ q0 S& J2 S% z7 S' e) z0 b
(defun c:oq () (command "osnap""qua"))
6 [8 a p- E0 A. t
(defun c:om () (command "osnap""mid"))4 B6 w P1 I) n2 L) ^( o* V8 @
(defun c:ot () (command "osnap""tan"))
9 G D& b% Z8 S7 F6 E4 D
(defun c:oin () (command "osnap""ins"))6 x, F# h9 i& x" r4 y1 D
(defun c:oa () (command "osnap""nea"))9 n- A3 w8 ^3 c3 F6 L$ x6 g) X- g
(defun c:ol () (command "osnap" "End,Mid,Cen,Node,Nea,Int,Perp,Qua")(princ))
$ q) k. A! L; I0 k
;(defun c:du () (command "dim1" "up" "s" "pick" "other"))( B2 w. G W# m4 p8 U: M5 ]% j" @7 T! b
;(defun c:nn () (command "new" "y" ))
, \. [7 {8 C1 s' _
9 B* B4 |" S# w' J% o# `& ~4 I3 u& D
(defun c:/ () (command "limits")). f+ E1 Q: G# ^) `% ~7 N3 k$ R
(defun c:`1 () (command "region"))
* P0 u* \5 E$ l. D
(defun c:`2 () (command "subtract")): U4 R) b8 \' q# x; F8 P+ u/ X _
(defun c:`3 () (command "union"))
* m; J+ A3 C; b' x# N) s. q6 E
(defun c:`4 () (command "intersect"))8 d, |; p z' s2 {) a. R( u ^( F
(defun c:`c () (command "cal"))
+ k7 l) u/ I0 s! Q% T
(defun c:`g () (command "Polygon"))
5 D5 i1 N: G5 t1 r3 k
0 ]6 S( Q! q3 V+ [ g: S( f
(defun c:lmi() (command "LIMMAX" pause "" "zoom" "all" )(princ))0 L1 G) X0 T) B0 a2 v
(defun c:drt () (command "DRAWORDERCTL" pause "Integer" "" "" )(princ))
. z3 |: ]5 k S
(defun c:ip () (ssget) (command "print,_plot" ))(princ)
. f- o9 p: r# \# B
! q, a9 ~; f# @/ u1 U
(defun c:ddm () (command "ddlmodes" pause))
; p- U+ N4 L: u# D5 Q, H
$ w$ T7 j& G) T+ v1 i3 r0 ]9 ~4 f6 W
(defun c:sha () (command "shade" pause))" m5 x* r$ D. _
, ]5 \) l/ I& N7 g
(defun c:sr1 () (command "surftab1" "p" "" pause))
1 Q9 W) j- k8 d% o, v& Y2 X" |1 l% ~
(defun c:sr2 () (command "surftab2" "p" "" pause))1 ^) e9 c, i8 A
' j) o; B8 [) c0 }, J% a. E6 E; Z
(defun c:ad () (command "audit""y"))6 E. J- i* l7 b8 T" n+ o0 P! W
(defun c:q () (command "quit"))
- o0 Z# [% J0 k0 O
# u. r; ^( \/ w! C% O5 F
(defun c:30 () (ssget) (command "rotate" "p" "" pause "30")): y0 T' `6 G( s% L# j: F0 J: c5 r
(defun c:-30 () (ssget) (command "rotate" "p" "" pause "-30"))9 t7 j" P5 L+ B7 z9 j# p* H. K
(defun c:45 () (ssget) (command "rotate" "p" "" pause "45"))
2 ]4 s; s6 [/ h) b' }: X+ f r
(defun c:-45 () (ssget) (command "rotate" "p" "" pause "-45"))
9 l$ P5 r5 ^& r7 _
(defun c:60 () (ssget) (command "rotate" "p" "" pause "60"))$ g' B: y9 V8 V* I4 @3 M
(defun c:-60 () (ssget) (command "rotate" "p" "" pause "-60"))
+ O" I$ M! ^1 A% \3 v
(defun c:90 () (ssget) (command "rotate" "p" "" pause "90"))# t! U8 }4 H/ a' T- b
(defun c:-90 () (ssget) (command "rotate" "p" "" pause "-90"))
* U! h! u* I Y; p+ c' @7 ^
(defun c:180 () (ssget) (command "rotate" "p" "" pause "180"))+ U' N# h2 h* K T& Y$ k, t0 D
. n% ~5 b! H0 b6 d4 Y
(defun c:u3 () (command "ucs""3"))
/ M6 Y5 _5 v8 B4 n, X3 H7 U9 Z5 r
(defun c:ue () (command "ucs""o""end"))5 @' F, V- `4 I: v0 Y6 c
(defun c:ui () (command "ucs""o""int"))
5 q1 Z( i- y8 d5 |4 ] J
(defun c:um () (command "ucs""o""mid"))
& S0 F# n) g j/ o9 J! F
(defun c:uc () (command "ucs""o""cen"))
& K: c0 D% { a4 P3 P0 R
(defun c:uq () (command "ucs""o""qua"))
) @! e( Y$ i/ ~ z' m, g
(defun c:3s () (command "ucs""3"))+ z- N5 g2 _5 z2 n1 O
(defun c:sx () (command "ucs""s"))
9 r% n ~2 b% h7 D
(defun c:sf () (command "ucs""o"))1 o; ^9 ]! d2 n l% Y& h# z. I
(defun c:sz () (command "ucs""p"))) d7 E& r2 F9 o
(defun c:sr () (command "ucs""r"))
# U# y! W! u0 X5 Z0 y
(defun c:sw () (command "ucs""w"))
5 A( J$ V7 _) ?$ u7 S
(defun c:fv () (command "ucs""v"))
) E1 ]5 X% A, u, x
(defun c:ux () (command "ucs""x"))
7 S' O+ u$ U1 h; m# W$ c5 z6 e. |
(defun c:uux () (command "ucs""x""90"))
# g" n: N P0 O) U6 N* H. y" a9 Y
(defun c:xxu () (command "ucs""x""-90"))* |8 F% c: y2 u1 [" |) Q; t
(defun c:uy () (command "ucs""y"))
% b& w& Y! r3 K1 Z3 z
(defun c:uuy () (command "ucs""y""90"))
7 T* o- r: q9 }# M8 r+ D
(defun c:yyu () (command "ucs""y""-90"))
) @. O6 u! i! Q1 X9 T3 r# z
(defun c:uz () (command "ucs""z"))7 N/ Y% w1 [5 ?! o
(defun c:uuz () (command "ucs""z""90"))
9 u$ X# K; }1 |; M
(defun c:zzu () (command "ucs""z""-90"))% C8 |( h+ y& G4 b# C
(defun c:uci () (command "ucsicon" "Properties" ))(princ)& ~" x' A! H# S5 n2 j+ E; J
(defun c:ucm () (command "ucsman" ))(princ)' G; N% j- N" e x! j% J& O4 ]
5 t1 d$ g: V5 i7 e& s
(defun c:sa () (command "vpoint""_non""-1,-1,1"))
" U9 l e+ ]# G
(defun c:sd () (command "vpoint""_non""1,-1,1"))
% J; q2 z! R1 i! B5 U( o
(defun c:se () (command "vpoint""_non""1,1,1"))5 M5 c u; P: K [/ y! _
(defun c:sq () (command "vpoint""_non""-1,1,1"))
3 b0 t: s3 N6 |0 C8 g- G
(defun c:vc () (command "plan"""))
! a0 V1 }- `: A6 x# S6 W8 @
(defun c:vd () (command "dview""all"))
2 ]/ {. n0 k {& |+ I: H
+ L2 Y2 x% ] @5 f
(defun c:TT0 () (command "tilemode""0"))
$ R: ?) e# ^ E! k& F2 F7 Z* d
(defun c:TT1 () (command "tilemode""1"))" y. u, o/ v! Q9 M4 u& R
( F/ x& E- l8 I
(defun c:vt () (command "vpoint""_non""0,0,1"))
; L$ S0 u: W1 |% n6 Y, O' {
(defun c:vb () (command "vpoint""_non""0,0,-1"))) i2 S/ }+ N2 E; X# b
(defun c:vl () (command "vpoint""_non""-1,0,0"))
0 [( y6 o* ^9 o2 C
(defun c:vr () (command "vpoint""_non""1,0,0"))) v- o8 y) w1 e) ?
(defun c:vf () (command "vpoint""_non""0,-1,0"))
" F! C7 J# V, j$ g* w1 @. Z# M0 {
(defun c:vk () (command "vpoint""_non""0,1,0"))3 I% ~+ c1 g' r/ ] B2 D
9 C) l. X$ d. n/ r4 U( `
(DEFUN C:MM () (COMMAND "MIRROR"))
9 P' R7 N- ?8 C7 O
(DEFUN C:MP () (COMMAND "MOVE" "P"))
* x3 m7 {' w- K# ?7 R0 k+ L: Q
: ^6 |6 {; N" J5 ]$ p
(defun c:mee (/ a)
g! M) M* t7 B0 C
(setq a (ssget))(command "move"a"""end"pause"end"))
1 ^0 \6 o$ T/ a/ m
(defun c:mc (/ a)
5 I7 R7 |. ^4 x4 c9 B: k5 J
(setq a (ssget))(command "move"a"""cen"pause"cen"))
. W( \8 r Z+ ]9 _& n
(defun c:cc (/ a)
) U2 Q; t" I1 N
(setq a (ssget))(command "copy"a"""m"))
8 C, @* M* U* a* x& }( B. Z6 k' K
(defun c:ce (/ a)% B0 J0 n, a( U9 B) e2 L+ {4 A0 s
(setq a (ssget))(command "copy"a"""m""end"pause"end"))
5 j: X; ~1 Y9 i: i- k# t: _
(defun c:cn (/ a)
6 C) O: d% L. g! @7 f1 ?: |" i
(setq a (ssget))(command "copy"a"""m""cen"pause"cen"))6 w6 C* h+ B- @
(defun c:tl ()(command "trim""l"""))6 X7 k, R: M" x) T( ~/ r1 h
(defun c:tf (/ a)( R4 x0 I9 b' ^9 E" u- ~" g# ?
(setq a (ssget))(command "trim"a"""f"))$ O' @. n: s6 T, C5 h
(defun c:el ()(command "extend""l"""))" y1 ]' s- {5 O; \ d8 x+ t8 t
(defun c:ef (/ a)& T( P4 K3 r" ]! Q- @3 A+ r' n9 V
(setq a (ssget))(command "extend"a"""f"))( Z; f1 \* ^9 w( H5 L
4 @+ `$ t2 I3 h: D; m
0 g% T9 J- S( A# d( `
(DEFUN C:110 ()(princ "\nChon doi tuong can offset ra 110.......") (COMMAND "offset" "110"))
0 x3 H3 w1 a2 H
(DEFUN C:220 ()(princ "\nChon doi tuong can offset ra 220.......")(COMMAND "offset" "220"))% t. F T: U; x4 U$ h0 ~
(DEFUN C:330 ()(princ "\nChon doi tuong can offset ra 330.......")(COMMAND "offset" "330"))+ M! p5 I3 C; ?! W1 e' e9 Z
(DEFUN C:400 ()(princ "\nChon doi tuong can offset ra 400.......")(COMMAND "offset" "400")); w9 D+ Z5 ^8 @6 [, l
(DEFUN C:55 ()(princ "\nChon doi tuong can offset ra 55.......") (COMMAND "offset" "55"))9 D5 a7 O Y7 D9 X& ?! \
(DEFUN C:600 ()(princ "\nChon doi tuong can offset ra 600.......") (COMMAND "offset" "600"))
$ p4 A: Y2 \2 j1 t8 F
(DEFUN C:700 ()(princ "\nChon doi tuong can offset ra 700.......") (COMMAND "offset" "700"))& `& Z2 L% p4 q1 B
(DEFUN C:800 ()(princ "\nChon doi tuong can offset ra 800.......") (COMMAND "offset" "800"))
. x8 B: A' e2 ?/ B( \) n \9 u
(DEFUN C:900 ()(princ "\nChon doi tuong can offset ra 900.......") (COMMAND "offset" "900"))1 B" S. L6 g T: j& X' C
(DEFUN C:1200 ()(princ "\nChon doi tuong can offset ra 1200.......") (COMMAND "offset" "1200"))
- m O y% t( _$ T# F
(DEFUN C:1500 ()(princ "\nChon doi tuong can offset ra 1500.......") (COMMAND "offset" "1500"))2 E" d: A5 q k- u% a
(DEFUN C:1800 ()(princ "\nChon doi tuong can offset ra 1800.......") (COMMAND "offset" "1800"))
' W; [- B2 h8 s8 v( }; i
(DEFUN C:2400 ()(princ "\nChon doi tuong can offset ra 2400.......") (COMMAND "offset" "2400")). Z# s/ L' E* v$ C5 q0 M( a
(DEFUN C:3000 ()(princ "\nChon doi tuong can offset ra 3000.......") (COMMAND "offset" "3000")), V: v* U" d+ N- h6 {9 b# K
(DEFUN C:3600 ()(princ "\nChon doi tuong can offset ra 3600.......") (COMMAND "offset" "3600"))- t4 ?7 L/ r- K1 a$ `( L& G% i
(DEFUN C:4200 ()(princ "\nChon doi tuong can offset ra 4200.......") (COMMAND "offset" "4200"))
; E' `/ c' n* F- j3 j
(DEFUN C:5000 ()(princ "\nChon doi tuong can offset ra 5000.......") (COMMAND "offset" "5000"))
- ^4 g; Y' P$ h& U( b( w9 `, Q
# A' [$ d+ ~5 a. g
(defun c:mla () (command "-mledit""av"))" R4 P, @3 e7 V9 D
(defun c:mlc () (command "-mledit""mc"))
, F( ^1 L' ^2 C1 r3 p7 }. G
(defun c:mld () (command "-mledit""dv"))# i% V4 Z6 i7 D
(defun c:mle () (command "mline""end"pause"end"))
! g; T/ `7 h% s8 x' o
(defun c:mli () (command "-mledit""ca""int"pause"int"))
* T# z* g" V: t+ V
(defun c:mlj () (command "-mledit""cj"))
9 H( X. j1 q; c* h
(defun c:mlt () (command "-mledit""mt"))* g' a r: H- ~5 Z% i9 D" w, o
(defun c:mlk () (command "-mledit""ca""end"pause"end"))
; b3 [. d; G3 l/ J' s8 W
(defun c:mlw () (command "-mledit""wa"))$ A# g# @( p( J5 O, m: `
& C9 x! W5 n$ C" }# d T$ p
(DEFUN C:DCA () (COMMAND "DVIEW" "all" "" "CA"))
1 l" {, ]% Y( x# Y
(DEFUN C:DPA () (COMMAND "DVIEW" "all" "" "PA"))& Q" |1 m4 R8 H7 n" d
(DEFUN C:DPO () (COMMAND "DVIEW" "all" "" "PO"))
: s% s9 G; B6 n& D
(DEFUN C:DDD () (COMMAND "DVIEW" "all" "" "D"))
$ \5 m2 i2 J E6 _" i9 }7 p' F1 O
(DEFUN C:DZ () (COMMAND "DVIEW" "all" "" "Z"))
- P) ^" l& V* V
+ ?" t7 S4 b3 N& u1 M% {6 f( w
(defun c:p0 () (command "pline""""w""0""0"))' j1 Y& y" X5 n! Y9 [- ` ^
(defun c:ot () (command "offset""t"))5 j8 J: a4 T. n9 x* O K
(defun c:t () (command "mtext"pause"j""bl""h"pause))% k1 S7 [$ y% M: } i! Q
(defun c:uo () (command "ucs""ob"pause))* |' D2 P1 r( D# ^! h
(defun c:f0 () (command "fillet""r""0"))/ p5 ]( @* o8 p1 T
(defun c:fr () (command "fillet""r"))% X. Y9 F" j( l( t2 S
+ P g' O; `. ?2 _0 ?
;CHAMFER, K/ u1 P' Q# G$ O0 S2 F: G. P
(defun c:cf () (command "chamfer"))
' o! ^# X' Q5 Q( E# s/ y
(defun c:cfd () (command "chamfer" "d")) d- U1 i3 @2 ^$ O: I
(defun c:cf0 () (command "chamfer" "d" "0" ""))
! `/ K! |* F, [7 L1 _8 g6 _' h
# q0 L5 H0 u0 F, d# `; b! a4 C
;FILLET
6 t/ e+ R9 f' ?& c' g/ P; d
(defun c:f () (command "fillet"))5 e1 h0 j+ q3 U
(defun c:fr () (command "fillet" "r")) t# Q( S8 B: l' Y
(defun c:f0 () (command "fillet" "r" "0"))) W) B! D$ q b, b
9 R6 }( l o9 w
(defun c:OO () (command "oops"))
) H6 I2 g1 T& o) X2 B4 x
(defun c:dln () (command "dimlinear"))7 w1 P- A3 e- T: @
(defun c:dan () (command "dimaligned"))
8 r7 T: Z, W% _) q
(defun c:ddc () (command "dimcontinue")) y& b( t- g* b
1 O/ r: \; z' j6 e" a' l' W
(defun c:sc () (command "scale" "auto"))5 u& X# H% z2 f4 c" G7 l
(DEFUN C:XO () (COMMAND "snapang"))
2 W) Q; z/ w- ~" k+ s
(defun c:cc (/ a)
4 n& W$ F/ T, C) @( q9 ^2 a
(setq a (ssget))(command "copy"a"""m"))
1 P8 D/ a2 s. M B
4 k7 j8 I' b6 p/ X2 a/ x' _
(defun c:PJ (/ a)' A& t( D: y! o$ O$ A" p: j& O- z
(setq a (ssget))(command "pedit"a"""j""all""y"))* ~& F4 K& e s5 W
(defun c:JJ (/ a)
& T* O6 ], I I m
(setq a (ssget))(command "pedit"a"""j""y"))
* h! p- N$ `) W' W% {5 B
(defun c:TN (/ a)1 ? p; I* n9 Z6 A' s( R2 s
(setq a (ssget))(command "change"a"""p""T"))5 m! K {) F8 f( L
6 v4 c) Z/ Q; }4 e' Q: ?
, d# A4 g$ ~0 h" {3 N
;=======================Tran Ngoc Thang - Tu nam 2000 - Hoc nam cuoi KTS . DHXD=========================7 Z0 R/ q1 l% ^0 U) U( M
& q: U0 h. K' ~ X2 B: p1 L
(defun C:IB ()(setvar"cmdecho"1)( N9 _, _" ^ H6 ?
(setq pt(cadr(entsel"\nSelect Block:")))8 M7 I% I. m- b4 W; ?
(setq e1(ssget pt)) 6 Y; y% ]- X' \! L: v3 z
(setq e2 (entget (ssname e1 0)))6 {' m4 k) [+ \# A" i. W T- q
(setq blname (cdr(assoc 2 e2)))
- |; w( ?9 p% g8 C- e" X+ ~
(setq oer *error* *error* err2)(command ".insert" blname))3 o7 _. b6 P; @, w
7 e- j( e$ R7 T$ |7 F
(defun c:II ()
0 b0 D$ W5 F7 r3 u W" b) j
(setvar "cmdecho" 0)3 y% n; P! M: G/ B( f/ Y* C
(setq olderr *error* *error* myerror)/ j* X0 @4 t. w6 j
(prompt "\nSelect objects: ")/ @6 z5 o9 D: R
(command "select" "au" pause). |& H' A, g, p! e
(setq sstxt (ssget "p")( \) Q0 M3 ~+ f( @ o
sslen (sslength sstxt)2 L5 R2 `9 z4 p+ D# _
ctr 0
o/ I8 n; ]% s0 `+ Q/ @8 M
)
1 C% z4 k: X9 Z8 C, y* U" N& D
(command ".undo" "mark")
. l2 t7 E8 I+ l2 y
(while (< ctr sslen)" E- R( B! A" n5 L- i( E% y
(setq listxt (entget (ssname sstxt ctr))
2 L3 ] U$ D2 T0 o$ U5 \
txttxt (cdr (assoc 1 listxt))
" ^+ I4 K- N B( g4 V
enttxt (cdr (assoc 0 listxt))
' l. W3 @5 N& E+ ~! t$ C
)
1 Z8 X% Y( I1 T/ E
(if (= enttxt "TEXT")
+ @% n3 a' S' @. \
(progn
7 R& N) ~4 B( k9 R
(setq testxt (substr txttxt 1 3))* P0 {- [; S+ s( }, [
(if (or (= testxt "%%C") (= testxt "%%C"))
(setq newtxt (substr txttxt 4))8 P, d+ B$ p' C' k |
(setq newtxt (strcat "%%C" txttxt))
. v' U. t6 a4 E( G& Y5 h, W
)
3 E8 O7 H$ N/ j
(setq listxt (subst (cons 1 newtxt) (assoc 1 listxt) listxt))
% W/ I' n! E7 t2 s
(entmod listxt)
: G# l- a ]) V7 O
)" E) _' R9 @( w
)
1 |4 F6 j( g5 H7 D% `0 \: {9 W* b
(setq ctr (1+ ctr))& l2 b0 Y6 l% k* O- l
)7 `6 r; j, S8 A% u
(setq *error* olderr)
3 [% N. `3 s2 u% n* |3 n. L7 E$ `% K
(setvar "cmdecho" 1)
, A6 A% j8 R6 Y( c J6 q4 R
(princ)
8 \' T, `/ I/ x# \' z4 [
)
! S( `6 b) l8 y3 q
" h7 E2 @7 ~, u
(defun c:DG ()
D" M8 T I/ X8 L2 G
(setvar "cmdecho" 0)2 b$ @% |7 |" n' n; Y
(setq olderr *error* *error* myerror)
) |4 e- g" P7 v; v* L7 n
(prompt "\nSelect objects: ")% L \) [5 f& D
(command "select" "au" pause)
+ g/ l/ a. _1 K0 |
(setq sstxt (ssget "p")
& N- t* Q/ F1 e# l/ j% t( [
sslen (sslength sstxt)
" p: c0 q& L4 M" [: |2 P. [
ctr 0
6 t' i) n; s7 ^7 b5 X
)
; p2 E" k/ Z" r7 X4 E+ ?
(command ".undo" "mark")
$ l1 A" ~4 M1 x: _
(while (< ctr sslen)
/ u& U9 F9 p8 t/ K! z7 w
(setq listxt (entget (ssname sstxt ctr))" r8 M3 f/ G- m0 [3 B( ?
txttxt (cdr (assoc 1 listxt))
" n5 {) F- |/ g
enttxt (cdr (assoc 0 listxt))/ k$ a. ?; I, z
)# }# U) t, O* |) ?
(if (= enttxt "TEXT")
/ u% U; q( `) K
(progn
' k4 ?( |+ U$ t, Y5 j3 S" g
(setq testxt (substr txttxt 1 3))
: a; a1 |8 F$ J m5 R
(if (or (= testxt "%%d") (= testxt "%%d"))
2 h/ k# n; z' F) w
(setq newtxt (substr txttxt 4)): ]& c: x( ^0 a% {: C" V
(setq newtxt (strcat txttxt "%%dC" )), e0 \: l8 f0 `5 R1 B! m) v
)
/ ^1 j2 b4 D& S
(setq listxt (subst (cons 1 newtxt) (assoc 1 listxt) listxt))
& f. M+ i; A, T0 {& Z; Z+ ]
(entmod listxt)
- N* D$ n, @& v7 ~* Z) t$ x! w
)$ R% @ m7 G3 ?8 ?5 i3 A
)" w# J, D5 g: M3 y
(setq ctr (1+ ctr))
6 x( y# O2 L, L
)
9 ]. q, [- K( |- k# P! }& M
(setq *error* olderr)! y1 h% e r) h! l! f7 i9 k* p
(setvar "cmdecho" 1)
- n; T9 I( g5 F `1 M8 \
(princ)% c& ~3 [, r" P j/ Z( e
)- C* Y h- _# l7 e5 F
% K1 H' z& i. c' F2 A. E) C0 y
(defun c:PI ()
1 ?. J4 J& P' }
(setvar "cmdecho" 0)- k6 F. A1 P6 X
(setq olderr *error* *error* myerror)
9 E4 I; y e7 X, k" h
(prompt "\nSelect objects: ")1 b. F4 l8 r1 D; p( J9 @! G
(command "select" "au" pause)! A& e$ Y2 n! S
(setq sstxt (ssget "p"); u. ]9 Y5 O6 H- k$ |
sslen (sslength sstxt)) ?8 y5 U9 U' {. L6 Z4 y( r
ctr 0
4 u; T: \: G# ^% ~
)9 y" J6 ~' w- @
(command ".undo" "mark")- F! ^$ I, W' V/ d7 ^2 ^$ B l
(while (< ctr sslen)5 d4 w7 B/ V% w" o
(setq listxt (entget (ssname sstxt ctr))
* _( C) b' }, S/ v
txttxt (cdr (assoc 1 listxt))+ _- Y7 [( f1 g/ ~
enttxt (cdr (assoc 0 listxt))0 e4 q- @; O/ [2 D* Y* P: l5 q
)
* [- W. a+ b" P
(if (= enttxt "TEXT")
1 V0 B* A( @* v, X4 d* q5 |$ |' m
(progn
q- F# s; B {1 x9 C
(setq testxt (substr txttxt 1 3))6 r9 d4 {+ b! u7 \3 a/ G
(if (or (= testxt "%%p") (= testxt "%%p"))- r2 ]) C! Q t% _: {9 D
(setq newtxt (substr txttxt 4))
5 E% u- _3 R. y8 J
(setq newtxt (strcat "%%p" txttxt))7 v w# m R# Q1 @2 O) b& ^
) W& c/ |' t" Y2 M& z/ n
(setq listxt (subst (cons 1 newtxt) (assoc 1 listxt) listxt)). A% x; ^. `% w* U& a1 O" S# ~8 |
(entmod listxt)
7 ?4 n) x8 @$ D N9 Q7 G
)
" s( Q( R4 L+ U. H
)
1 k+ }( s8 u# u$ H: `" z
(setq ctr (1+ ctr))
a) z) R5 V; c) g' q2 K
)
9 i/ U* s l- K
(setq *error* olderr)
) L& E0 r9 _( v' C
(setvar "cmdecho" 1)% P; b& y2 O: [
(princ)
! Z( M5 q/ H6 g* _* U o. u
)9 b+ K7 e" l( ~) h, N3 B
1 b' J& n0 I* C& v' I' y
(Defun c:CB (/ a)% r" F: Q, m+ W4 s, c3 M
(setq olderr *error* *error* myerror)+ \' \4 a+ l9 O# Q, o8 D
(setq ocmd (getvar "cmdecho"))
! R g1 v( t- H8 u( o: C' _2 N
(setq oblp (getvar "blipmode"))
: }8 [& \- E5 y3 z0 |1 N. F
(setvar "cmdecho" 0)
& w2 q' Q* x2 i5 v7 c9 e
(setq a (ssget))
# u4 ~6 o1 K% V6 W! U5 j( H$ @- j
(command "CHPROP" a "" "C" "bylayer" "")) g7 [5 C ?6 w% |$ i
(setvar "cmdecho" ocmd)
( r% Z9 @/ }9 ?5 a8 y6 L
(setvar "blipmode" oblp)* I4 s- E1 `# K8 X
(setq *error* olderr)& T/ v; w: x" j3 E# O b8 n1 f9 D: j
(princ)
* t O- `) B. c( w1 Z( s
)) u. L5 U, t. i" W
: A" T' g. G8 e" ]5 X
(defun c:LCC (/ co43 obj23 la23)
0 ^$ N% v" I9 q2 x* p; Z
(setvar "cmdecho" 0)
2 L3 u7 N( \- N& t( o! _
(setq co43 (getstring "\nNew color : "))
(setq obj23 (car (entsel "\nPick object on desired layer: ")))* O$ w* E" U; n* E- v Q7 o7 W
(if obj23 (progn
3 Z& q, p) b/ P- D, d" |
(setq obj23 (entget obj23)); C$ r# }1 Z9 z1 P4 h z) Z5 G K, h
(setq la23 (cdr (assoc 8 obj23)))
0 N) j; W3 U: i$ y8 M
(command "layer" "c" co43 la23 "")+ M E! I" ?1 W
)
# x! G% `* c1 h! Z" e$ ]4 M" B
)1 V: N/ {. f& D" G0 b# r: g
(prompt (strcat "\nLayer has changed..." la23))9 ?, x$ J6 t% J! t; B' @ ]4 t' {$ C
(setvar "cmdecho" 1)
& U; S% V0 O% M% T! m- K& v$ c
(princ)( G2 K7 r9 k: ~, b# T
) + J! [5 w7 r7 Q0 I" N1 s _$ E
1 _: I% {- i2 {! @$ U
(Defun c:RP (/ a)
2 _+ W' h% F: B( ?5 p
(setq olderr *error* *error* myerror)
# L% c- ^6 i8 ?% `& h+ I
(setq ocmd (getvar "cmdecho"))) P8 B9 H. U- q; B3 I v) T( h+ V2 L
(setq oblp (getvar "blipmode"))
4 T: |+ d7 ?$ J
(setvar "cmdecho" 0)
4 k8 ~1 g# b: t f
(prompt (strcat "\nUSE: Delete object(s) belonging to"
8 S4 ]8 f7 E# S
" the layer of the entity picked...!"))9 `4 J) c% ]2 M0 ~4 P8 t
(setq a (entsel "\nPick the entity with the desired layer to delete: "))
2 M: N2 ^9 @8 E0 o- l A
(if (/= a nil)
( u8 [- ~- F& i) S1 {
(progn (setq a (cdr (assoc 8 (entget (car a ))))) m$ h8 _# U9 V3 o+ L
(command "Erase" (ssget "x" (cons (cons 8 (eval a)) tempword)) ""))
6 c8 I+ `: h( D: `6 s
(prompt "\nNo entity selected!"))
% l# C( Q* c8 S/ L1 s3 `" g2 W
(setvar "cmdecho" ocmd)
, E8 j, D% I/ \- E1 W Y/ ?
(setvar "blipmode" oblp)
. |+ i+ e x h5 |1 X8 u. g* |3 Q
(setq *error* olderr)8 z+ ~/ D6 e0 _$ {
(princ)) w0 E, y& L* ~# [
)
" _ B0 P, } R3 }2 O2 }9 I4 c
H* E d4 V, \+ \. ?# I8 ?
(DEFUN C:WL(/ SSET NET SSL M)2 e& \2 Y& c3 K7 h: |
(PRINC "\nSelect lines :")
' ]( _/ k/ V6 W1 W7 ^6 g W* v* ?
(SETQ SSET (SSGET))
$ |1 V) Z u: w* I9 p7 Q9 z
(IF (/= NIL SSET) (PROGN
' I* ~# C7 O% w
(SETQ SSL (SSLENGTH SSET))
: X4 Q L& K- ^! @7 E7 s8 \( e
(INITGET 4) ]- w4 x7 n0 J$ L) P+ e
(SETQ NET (GETREAL "New width : "))9 y6 P: `$ S/ {4 ~; q1 r! H, \
(IF (/= NIL NET)9 e2 |% X$ ?" |; q9 u( ~. v
(WHILE (> SSL 0)
/ f8 X; H# T+ L* C8 h- F- n
(SETQ M (SSNAME SSET (SETQ SSL (- SSL 1)) ))
$ {# K/ U% Z# l. q
(IF (= (CDR (ASSOC '0 (ENTGET M))) "LINE") & ]8 f% p7 E8 k# c+ h9 R8 g9 K
(COMMAND "PEDIT" M "Y" "W" NET "") 9 ]* H, T) n- b
)
f( i4 g$ K0 H
) ) g7 K5 | Y9 @5 H2 o
)))# g# t. Q$ C- m* s. b
(PRINC)
$ l& i, o' }1 x: C1 t3 Y
)
4 ?7 A" G5 X2 ^4 b
" p' F8 z! p4 X N# [
(defun C:MML ()
1 t; t3 Z' v, }" H" ^
(princ "\nSelect objects to move to another Layer.")$ u& \9 ~: U* T: P
(setq ss (ssget))
& z4 u" O+ B) H u: d; [2 L2 u
(SETQ UL1(GETSTRING "\nLayer to move entities to : "))
1 q8 q6 d+ R6 S7 }3 F' `- }
(setq counter 0)
" g) i2 A! J% e, v
(prompt "Moving to layer.....")(princ ul1): ~0 Z1 p* a2 j9 h- x3 _4 v
(setq e (ssname ss counter))& N3 z& c* f1 f
(setq l (cdr (assoc 8 (entget e))))
- V6 A, @6 X. r- K2 U0 _
(setq S (ssget "X" (list (cons 8 l))))6 n& Y7 t/ D$ D3 z9 y% Y
(command "CHANGE" ss "" "P" "LA" UL1 ""), y9 l' v# z) e. t
(setq counter (+ counter 1))7 i; T! S+ @" n Z6 B) q8 l0 U
(princ)
8 i8 w K9 W/ ?
)
7 w* W$ q Y# a
. ?& W3 Q. X4 P: R3 R
;;; ================================ GHI CHU ============================
4 r, M- A/ P! B6 p
;;; ======== Phai Vao STYLE Tao LAYER Ten TEXT + Phai Dat Height ========
9 N& g/ ?5 I, E; k
;;; =======================Thuong Dung Font Romant.vnh===================% [0 x/ q( K. V5 c. b* W
+ b0 [: W9 i3 s& e$ x8 g
(defun c:RS (/ pta ptb ptc ptd X Y X1 Y1 rmsz pl1)! ^& q# w4 y) Q. f9 e2 k
(setq oer *error* *error* err2)
! ~( X; s9 o3 }* k
(PROMPT "\n(UNICODE-Verdana)(D)ining room. (S)torage. c(L)oset. (C)onference. (O)ffice. (K)itchen. (B)ath. (M)aster Bedroom. "), P3 _* V3 m/ \+ ?" q) o1 m( y( G
(SETQ Cpt(GETSTRING "\n (ROMANT-vnh)(DD).(SS).(LL).(CC).(OW).(KK).(BB).(MM). (UNKNOWN-font)(oD).(oS).(oL).(oC).(oww).(oK).(oB).(oM)."))
+ {3 D6 N7 s1 @+ ^8 R$ K( i/ i
(IF(OR(= Cpt "K")(= cpt "k"))(SETQ CPT ' "Nha` Bê´p"))
" k" M: D( t5 r
(IF(OR(= cpt "B")(= cpt "b"))(SETQ CPT ' "Pho`ng Vê? Sinh"))
. O6 G$ Z; k* _" M, _; z+ a
(IF(OR(= cpt "C")(= cpt "c"))(SETQ CPT ' "Pho`ng Ho?p"))
( L2 D( W2 E4 e" U3 B8 L; c
(IF(OR(= cpt "O")(= cpt "o"))(SETQ CPT ' "Pho`ng La`m Viê?c"))* Q5 `. b7 n; j, V
(IF(OR(= cpt "M")(= cpt "m"))(SETQ CPT ' "Pho`ng Ngu?"))
- Q8 \1 [+ l% N: w4 L
(IF(OR(= cpt "D")(= cpt "d"))(SETQ CPT ' "Pho`ng Bê´p + An"))& |% L: H+ V0 N& u5 E# y+ Y
(IF(OR(= cpt "S")(= cpt "s"))(SETQ CPT ' "Nha` Kho"))# g( K% Q' |9 b- {6 D& ^: x
(IF(OR(= cpt "L")(= cpt "l"))(SETQ CPT ' "Pho`ng Ðê? Ðô`"))* Q# _6 |) e: f2 e
/ ^, r( @1 Q! w% o/ Y( `7 ?, k
(IF(OR(= Cpt "KK")(= cpt "kk"))(SETQ CPT ' "Nhµ BÕp"))
; D% K2 m+ A2 {/ F+ ]
(IF(OR(= cpt "BB")(= cpt "bb"))(SETQ CPT ' "Phßng VÖ Sinh"))
. J. L& B- w7 ^8 [$ `
(IF(OR(= cpt "CC")(= cpt "cc"))(SETQ CPT ' "Phßng Häp"))
; K# ~1 K3 q$ ?: _1 _
(IF(OR(= cpt "OW")(= cpt "ow"))(SETQ CPT ' "Phßng Lµm ViÖc"))( e3 S) E. O5 H" l3 p
(IF(OR(= cpt "MM")(= cpt "mm"))(SETQ CPT ' "Phßng Ngñ"))
+ |7 j0 t& z& t; B
(IF(OR(= cpt "DD")(= cpt "dd"))(SETQ CPT ' "Phßng BÕp-¡n")): {$ L/ L4 p- [% D2 Z
(IF(OR(= cpt "SS")(= cpt "ss"))(SETQ CPT ' "Nhµ Kho"))
i! N1 }: [' _( z! Z7 o8 H
(IF(OR(= cpt "LL")(= cpt "ll"))(SETQ CPT ' "Phßng §Ó §å"))! V# x9 j! f! F' ^: _
6 `) f$ a+ N/ g: z$ }
(IF(OR(= Cpt "oK")(= cpt "ok"))(SETQ CPT '"NHA/F BE/M/SP"))
A, k* V' u' [" K) _1 L
(IF(OR(= cpt "oB")(= cpt "ob"))(SETQ CPT '"PHO/F/NG TA/W/SM"))+ s( b2 n* ~9 @& e+ o, t6 k( o
(IF(OR(= cpt "oC")(= cpt "oc"))(SETQ CPT '"PHO/FNG HO/JP"))
9 Y* C' E9 ?$ ~4 `6 X4 K
(IF(OR(= cpt "oww")(= cpt "oww"))(SETQ CPT '"P.LA/FM VI/E/M/JC"))
0 e+ M7 X5 l/ X
(IF(OR(= cpt "oM")(= cpt "om"))(SETQ CPT '"PHO/FNG NGU/R"))4 f" h& i' _) _" s* M' M
(IF(OR(= cpt "oD")(= cpt "od"))(SETQ CPT '"PHO/FNG A/WN"))# \, i6 ?" _ |3 \$ r" D1 O/ a
(IF(OR(= cpt "oS")(= cpt "os"))(SETQ CPT '"NHA/F KHO"))* c- a! g5 E0 S
(IF(OR(= cpt "oL")(= cpt "ol"))(SETQ CPT '"PHO/FNG /DO/M/F"))
8 E0 T' o X" p$ N' W9 g' E
(setq pta (getpoint; y. t) u. ]" k: @
"\nPick first corner. : "))
& Q4 f3 V9 m5 k$ U, V$ M
(setq ptb (getcorner pta
+ ^. r3 g6 u9 X( n9 \2 v( p
"\nPick second corner. : "))& N" z U$ t6 @' q/ ^4 [+ @4 ]. e. l3 r
(setq ptc (list (car ptb)(cadr pta)))
. }5 ]0 b! Q4 N, N' q, b( N1 c
(setq ptd (list (car pta)(cadr ptb)))
8 x) q# Y/ H& o5 x% \2 g
(setq ang (angle pta ptb))
. G) A& ^! I; j
(setq d1 (/(distance pta ptb) 2))
0 o2 |0 V0 C. Z/ e
(setq cp (polar pta (- ang (dtr 0)) d1))5 z* J1 g6 k) K, o8 B2 t: H
(setq X (distance pta ptc))* R* ?8 P1 ]& v$ K
(setq Y (distance pta ptd))
0 m% R L5 g; ^: B( x
(setq X1 (rtos x 2 1))/ [+ ~" F! n y: E8 p9 Y; `
(setq Y1 (rtos y 2 1))
# N1 Z W+ _' L- M
(setq rmsz (strcat "(" X1 " x " Y1 ")"))' j8 Q, d3 F9 n8 z* G. }( ]1 X
(command "TEXT" "c" cp "0" CPT "ROMANT-TEXT" "" rmsz)). H8 K8 D3 z& B7 q$ ^
(defun dtr (angg)% p6 k' a& c7 P' Q' _3 [# U
(* pi (/ angg 180.0)))- B0 V9 J1 I5 c' q) Y
2 l( h) m7 ]( J$ u! M
(defun c:WS (/ pta ptb rmsz pl1)" \; ] W/ \! l9 e. w3 u
(setq oer *error* *error* err2)6 T5 t) p1 M% K5 Q! t
(PROMPT "\n (RomanT.TXT)floorp(L)an.(E)levation.(S)ection.(M)planFoundation.(C)Found.(K).(P).")
h. x6 H1 d5 O* |2 e3 z" a
(SETQ Cpt(GETSTRING "\n (VnHELVH.Vnh)(LL)floorplan.(EE)elevation.(SS)section.(BM)planFoundation.(CM)foundation.(KC)Structure.(PP)perspective."))# R# Q( j/ V7 X: I" B
{" G1 ^7 l( K4 V' o
(IF(OR(= Cpt "LL")(= cpt "ll"))(SETQ CPT ' "MÆt B»ng TÇng 1 : TØ LÖ - 1:100"))
5 V. ]+ s% I) d+ m o0 p2 B( p
(IF(OR(= cpt "EE")(= cpt "ee"))(SETQ CPT ' "MÆt §øng Trôc ?-? : TØ LÖ - 1:100")): O1 r3 T* C! Q- V7 x; C. a
(IF(OR(= cpt "SS")(= cpt "ss"))(SETQ CPT ' "MÆt C¾t A-A : TØ LÖ - 1:100")) e' y% r, y8 t) {& C7 t( V. E4 v8 \2 R
(IF(OR(= cpt "BM")(= cpt "bm"))(SETQ CPT ' "MÆt B»ng Mãng : TØ LÖ - 1 : 100"))
! \4 ~6 n+ d4 G' q! Z0 t
(IF(OR(= cpt "CM")(= cpt "cm"))(SETQ CPT ' "MÆt C¾t Mãng : TØ LÖ - 1 : 100"))
: ]1 g H( B. Y
(IF(OR(= cpt "KC")(= cpt "kc"))(SETQ CPT ' "KÕt CÊu Khung Däc Nhµ : TØ LÖ - 1 : 100"))4 P2 Y. O* E5 |& m- U% G( q8 D
(IF(OR(= cpt "PP")(= cpt "pp"))(SETQ CPT ' "Phèi C¶nh Mét Gãc Nh×n"))
5 Y; i/ Y. U4 B% ~: ^
$ v* C2 E& N1 W8 y* |& F$ I
(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 n' Z8 W$ ~6 P
(IF(OR(= cpt "E")(= cpt "e"))(SETQ CPT '"MA/W/JT /D/}/SNG TRU/JC ?-? : TI/R LE/M/J - 1:100"))
( |; v1 D; ?2 u" t! c
(IF(OR(= cpt "S")(= cpt "s"))(SETQ CPT '"MA/W/JT CA/W/ST A-A TI/R : LE/M/J - 1:100"))! F! g! u1 v/ l2 ]4 G
(IF(OR(= Cpt "M")(= cpt "m"))(SETQ CPT '"MA/W/JT BA/W/FNG MO/SNG : TI/R LE/M/J - 1:100"))
, J2 C3 c% J' O h& S1 f+ U) j7 C
(IF(OR(= Cpt "C")(= cpt "c"))(SETQ CPT '"MA/W/JT CA/W/ST MO/SNG : TI/R LE/M/J - 1:100"))
" a' a% k* e$ U0 |$ S: C
(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"))
7 O7 _8 H8 h8 ]4 g3 s9 j- J
(IF(OR(= cpt "P")(= cpt "p"))(SETQ CPT '"PHO/M/SI CA/R/NH MO/M/JT GO/SC NHI/FN"))8 c6 o; b. s- t. G, z2 d
(setq pta (getpoint9 }7 p# [, `4 p. ?. g \( f
"\nPick first corner. : "))
) V) k5 `# t, a7 L/ _
(setq ptb (getcorner pta* Z. v% j M7 A" z. @- Q3 [
"\nPick second corner. : "))
n* r) \8 `' |4 }
(setq ptc (list (car ptb)(cadr pta)))3 M% s! d4 H9 H: K" @, ?. s$ i
(setq ptd (list (car pta)(cadr ptb)))
2 S: s) n8 ]2 H
(setq ang (angle pta ptb))! Z* ]7 T. @, r" G
(setq d1 (/(distance pta ptb) 2))- r7 W' e$ b: _1 d( n$ X
(setq cp (polar pta (- ang (dtr 0)) d1))/ Y* u& C0 y) N! t' S5 w; e2 c
(command "TEXT" "c" cp "0" CPT "ROMANT-TEXT" "" rmsz))
3 I$ g) |1 W) i# c6 r ]" }
(defun dtr (angg)0 i$ L/ ^2 B- y+ ~. C* k5 ]
(* pi (/ angg 180.0)))
. t8 b1 ~% Q* W, ^& m/ T
* q" s/ [& j" s3 a) K
;;; ================================ GHI CHU ============================
8 u V6 z* _8 u. h. V Z% E
;;; ======== Phai Vao STYLE Tao LAYER Ten TEXT + Phai Dat Height ========
, E3 d5 @4 O- c# V r2 S/ }
;;; =======================Thuong Dung Font Romant.vnh===================* F4 X; F/ k* ?( `" J
: I/ P/ a2 U' Z' l j6 Q
(defun c:RRS (/ pta ptb ptc ptd X Y X1 Y1 rmsz pl1)
& R X# S' ]6 T" L# v
(setq oer *error* *error* err2)
0 n% t" J% k7 X% j0 u
(PROMPT "\n(D)ining room. (S)torage. c(L)oset. (C)onference. (O)ffice. (K)itchen. (B)ath. ")% W- v6 v- z& {' [ b
(SETQ Cpt(GETSTRING "\n(M)aster Bedroom. (DD). (SS). (LL). (CC). (OO). (KK). (BB). (MM). "))# U K' h8 \. D) ^4 F. E X I
(IF(OR(= Cpt "K")(= cpt "k"))(SETQ CPT ' "Nhà B?p"))
& H# e! C1 j# a: u' w
(IF(OR(= cpt "B")(= cpt "b"))(SETQ CPT ' "Phòng T?m"))
" R9 ]9 D6 o7 `' N3 d) D- i+ s
(IF(OR(= cpt "C")(= cpt "c"))(SETQ CPT ' "Nhà H?p"))2 \/ Z/ ]: O: x
(IF(OR(= cpt "O")(= cpt "o"))(SETQ CPT ' "Phòng Làm Vi?c"))
( ~9 P3 E8 }8 @6 [8 t
(IF(OR(= cpt "M")(= cpt "m"))(SETQ CPT ' "Phòng Ng?"))9 L, z: Y, ~1 w( d/ J, c
(IF(OR(= cpt "D")(= cpt "d"))(SETQ CPT ' "Phòng B?p-An"))
; W' k' b, \' H% o+ i! M
(IF(OR(= cpt "S")(= cpt "s"))(SETQ CPT ' "Nhà Kho"))
( W8 h& H; o" r5 @9 s5 L
(IF(OR(= cpt "L")(= cpt "l"))(SETQ CPT ' "Phòng d? Ð?"))
; F! y" P3 t) Y
(IF(OR(= Cpt "KK")(= cpt "kk"))(SETQ CPT ' "Nhµ BÕp")). h! ]2 W8 C* R/ b
(IF(OR(= cpt "BB")(= cpt "bb"))(SETQ CPT ' "Phßng VÖ Sinh"))
' U" S9 E* E2 }( S8 {
(IF(OR(= cpt "CC")(= cpt "cc"))(SETQ CPT ' "Phßng Häp"))
6 v% A8 s* M) o& r4 ]7 w3 u& i6 G
(IF(OR(= cpt "OO")(= cpt "oo"))(SETQ CPT ' "Phßng Lµm ViÖc"))6 I) s% u/ e5 {( |/ w
(IF(OR(= cpt "MM")(= cpt "mm"))(SETQ CPT ' "Phßng Ngñ")) V( \) U) }0 w( |. y. J7 x- p
(IF(OR(= cpt "DD")(= cpt "dd"))(SETQ CPT ' "Phßng BÕp-¡n"))8 A% c7 v5 W' w: K+ c
(IF(OR(= cpt "SS")(= cpt "ss"))(SETQ CPT ' "Nhµ Kho"))1 D0 b9 z& h1 U0 d" _5 \3 ]# U
(IF(OR(= cpt "LL")(= cpt "ll"))(SETQ CPT ' "Phßng §Ó §å")) " X6 q$ q* L* b0 E* I
(setq pta (getpoint
"\nPick first corner. : "))
2 U% m. i( l* p
(setq ptb (getcorner pta
- Z" F) c4 X2 m7 ?
"\nPick second corner. : "))
/ }. y3 ~/ d5 F% B$ |* E
(setq ptc (list (car ptb)(cadr pta)))
5 E* b0 K4 i! ~8 g* [
(setq ptd (list (car pta)(cadr ptb)))
! b# Z/ G! m/ Q7 q
(setq ang (angle pta ptb))
4 u8 g4 Z8 y S3 ?
(setq d1 (/(distance pta ptb) 2)): f( A$ z% Q4 l
(setq cp (polar pta (- ang (dtr 0)) d1))& V; m8 i) Z7 w" f( k& A" ] N
(setq X (distance pta ptc))
9 i- f: S& L) q! i5 g& u" Q6 C
(setq Y (distance pta ptd))
; U, y& M9 v6 d$ u$ P$ Z6 E
(setq X1 (rtos x 2 1))
q6 z" R* T( {- }4 ~
(setq Y1 (rtos y 2 1))
! k4 w% a) ]0 C5 S9 \
(setq rmsz (strcat "(" X1 " x " Y1 ")"))' {0 q6 A& Z6 B( g" C, n R# N! I8 z
(command "TEXT" "c" cp "0" CPT "text" "" rmsz))" _6 k) |/ Z9 V* k& r- `3 t
(defun dtr (angg)
8 }9 C8 D8 o2 n
(* pi (/ angg 180.0)))
# i8 B1 e$ M g1 R% D9 d* l8 c
4 A! I3 M8 H1 z/ s; E: n$ x6 `
;;; ================================ GHI CHU ============================
2 P6 q8 R) ?( e
;;; ======== Phai Vao STYLE Tao LAYER Ten TEXT + Phai Dat Height ========
( g$ l# ]# ]) c/ R* m8 a
;;; =======================Thuong Dung Font Romant.vnh===================
8 \1 b" ?1 x3 O$ B
: J% l L4 U. M7 ^
(defun c:GS (/ a b c d). T; N6 S' d9 ]# c1 N
(graphscr)
# ~0 g* w# K8 x8 r9 F+ m4 t
(prompt "\nSelect text to set style....")
/ i, _% d: M) b; t: S) Q
(setq a (entsel))- o6 d2 J! k1 Z
(setq b (entget (car a)))
) Q# a" X6 ~5 I/ a, B
(setq c (cdr (assoc 7 b)))
9 u# V7 U3 ~6 s: E' n X6 G
(setq d (cdr (assoc 40 b))): P$ l# b/ H) ?
(command "style" c "" d "" "" "" ""))! P4 ?$ L+ n# G) W# {
(princ "\nType GS to set text style.")- ~" Q1 L4 M$ t
2 ~6 Z* Z- }+ z5 h5 s
(defun c:RC (/ olderr ocmd oblp pt1 pt2 pt3 pt4 l w)9 b$ f& V5 h% E* t4 ]4 ^9 O
(setq olderr *error* *error* myerror)5 G1 G# n! N8 E, U
(setq ocmd (getvar "cmdecho"))
4 s- U: k7 O' }
(setq oblp (getvar "blipmode")): Z ?; Z4 @: b5 x
(setvar "cmdecho" 0)
9 \0 t& J {' _+ V8 } S. i
(initget 1) ;3D point can't be null
& ^. v# |% Y2 Z/ Y# K
(Setq pt1 (getpoint (strcat "\nCorner of rectangle or square: ")))
) F, `5 O: ~7 i
(setvar "ORTHOMODE" 1). U5 a* N- h% c Q; u
(initget 7) ;Length can't be 0, neg, or null7 p, G! K* z1 V1 b
(Setq l (getdist pt1 "\nLength: "))4 b+ i$ u( f- K! h
(Setq pt2 (list (+ (car pt1) l) (cadr pt1) (caddr pt1)))- R) y% \# g8 o7 _
(grdraw pt1 pt2 2)
0 i* Y1 i' w& d1 T* t; N# [
(initget 7 "Square") ;Width can't be 0, neg, or null
, Z6 d3 a9 Q" v* g9 O
(setq w (getdist pt1 "\nSquare/<Width>: "))
) {5 H6 @! Z/ y2 F- n Q
(if (= w "Square")
6 d6 `' y" y3 {# _
(setq w l)
( v; l v5 M: ?7 \2 z8 Q. U% Z
)2 E: s# D& B( r3 Y! V6 L
(setq pt3 (list (car pt2) (+ (cadr pt2) w) (caddr pt2)))
# ]! c: E: {- G, l+ u
(setq pt4 (list (car pt1) (+ (cadr pt1) w) (caddr pt1)))" T G( |9 d: B. o* b' d
(grdraw pt2 pt3 2)
+ B% ]2 j! A( g6 P
(grdraw pt3 pt4 2)
0 u& v; f+ [" _4 p
(grdraw pt4 pt1 2)$ i1 B8 c. ^! f7 b# d% D
(setvar "ORTHOMODE" 0)
; S1 }. Y/ _$ z* _& R. M
(command "pline" pt1 pt2 pt3 pt4 "close")
8 ?. b0 ^9 V( U/ i
(setvar "cmdecho" ocmd)
{; E" Z4 V% F4 M1 }2 r1 t
(setvar "blipmode" oblp)2 [1 N8 a* Y- c1 {
(setq *error* olderr) ; Restore old *error* handler
; r* q$ \' R) b
(princ)7 g# o9 [) }/ u: V
)) l% t8 Q6 m5 l4 Z, ~3 f. I- h( J
, o$ A" V6 r! N
(defun c:SG (/ ent pt1 pt2 ang)
9 S3 c* ^5 s" O: U; I% f
(setq cmd (getvar "cmdecho")). j) l# w9 f0 E$ ]
(setvar "cmdecho" 1)
0 w& Y* C! {$ u i. H; H
(prompt (strcat"\nSnap angle will be set to angle of line"))$ }' \6 X, ~& g' _' M- i
(setq ent (entget (car (entsel))))+ w1 d! R! p1 `8 E+ d% {
(setq pt1 (cdr (assoc 10 ent)))4 k% j8 _. v4 I: A
(setq pt2 (cdr (assoc 11 ent)))
3 x) B/ X2 t0 Z5 b$ d
(setq ang (angle pt1 pt2))% `* D( ~; X* R6 O) Z
(setq ang (/ (* ang 180.0) pi))
3 N8 ?4 ^5 y# n1 n
(setvar "cmdecho" 0)
" r$ s0 |( ^6 ?
(command "setvar" "snapang" ang)
2 c% ?" [9 V! U: B/ X
(setvar "cmdecho" cmd)
5 D, y; X4 W+ ~& Q; E2 `
)
: Z4 ^0 h# x, L9 u% v
4 j. E/ o' p9 N/ v: j8 g
(defun C:TG ()
+ b* a: h+ F, S( [+ V% J4 b0 c
(initget "Increase New"); o5 O4 k! s" i, G; `
(setq ans (getkword "Increase/<New>: "))0 ~9 t6 \9 N/ O7 c4 b
(modang)$ e6 f9 c% ~2 Y& g* Y
)
& O4 N- \ J' d8 H! s! L
(defun modang (/ ang ss ca e na ssl)
. ~( Z0 ?0 U7 e% D
(if (= ans "Increase")
: m3 Z5 R; A5 o
(princ "\nIncrease angle for text by: ")& H9 S% W. k) D* ?4 G
(princ "\nNew angle for text: ")
; M" M- V. T! P% N0 r6 i
)
2 e3 z3 d$ V$ @" M4 p
(setq ang (getreal))
9 [/ o/ Z" a- h- m/ ~) @
(setq ang (* (/ ang 180) pi))' A# V) ?5 p; {* ^
(setq ss (ssget))
. @ f2 L' {0 b4 h1 N
(setq ca 0 ssl (sslength ss))- q# m, l' g6 m/ h0 S
(while (< ca ssl)
: T7 ?' D- q3 L
(if (= "TEXT" (cdr (assoc 0 (setq e (entget (ssname ss ca))))))) m# @3 f# L, h2 L; U
(progn( l' g/ A0 {3 n, A G
(if (= ans "Increase")( }/ R8 B/ J3 G% B- s9 M' L
(setq na (cons 50 (+ (cdr (assoc 50 e)) ang)))/ l5 C8 I0 \( X; b5 a- s) p
(setq na (cons 50 ang))
3 ~( I2 Z% b- P3 t$ _
)3 g2 ?( F3 Z0 _7 b( S
(setq e (subst na (assoc 50 e) e))) D0 w4 Q4 v# }
(entmod e)1 |. G. P* Q* v1 q$ z" R$ J( r
(setq ca (1+ ca))
! d+ a* T. l( m9 x7 K
)$ I( t# f8 f; B' ]4 l7 V
)3 s2 Z6 h C3 T5 v5 U4 |+ P
)" H( [9 t/ K4 x! u0 A( B
(terpri)! R9 D. X }+ a: C, d6 m
)" v- Q5 q' m) Z7 d& T4 r3 V6 M3 ~6 L
1 Y' G, x0 B5 U& F! c* j
- m A+ T0 R+ g8 X, a
(defun c:WL ()1 p! X/ k" O$ u5 Z, P6 t% c, R7 E
(setvar "cmdecho" 0)
& k4 E$ t' G" G/ n' |
(setq a 1)
* F. r0 _1 m1 Y: G7 v9 [% C
(prompt "\nSelect Polylines to change: "). W2 f! A u' m: }
(while (/= a nil)
$ O B$ k. V+ W' e* {
(progn
6 `. [4 `& L2 J0 |, d2 o
(setq a (entsel))
# L6 h P& e+ R4 S
(if (/= a nil)9 M* L% n3 J" h1 `' g
(progn
0 N* o6 ^; ]4 w! ?! e! M
(setq b (entget (car a)))
9 z3 R; [/ h) C1 K0 F, u, ]2 u
(setq c (cdr (assoc 40 b)))0 ] A; }: x# X
(princ c)8 S+ { G! }! o; N& j& L) s
(command "pedit"a"w""lw""")
8 }0 `- ]. |! y% @8 X6 V
)))) 8 m+ G, |( y' O7 U. y
(princ)
* b9 l. ^( n$ k. X; i
)
9 U; H+ C9 N9 H4 [0 ~% N& m" r
- f! B1 h- _. M$ n0 H
;;; ================================ TEXT FIT ============================7 A. C; k( R( a
$ U# G7 H, \2 ~. A
(Defun c:FT ( )7 D% p2 U: }( o4 U2 A
(defun setsnapang (arg /) (setvar "snapang" (angtof (angtos (cdr (assoc 50 arg)) 0 8) 0 )) )" G5 k1 @1 o) a2 T; l/ |) l' \
(Defun LL-xyz (arg) (CAR (TextBox arg)) )5 \2 h+ ]6 @! J' f& _) K4 @7 I& h. x
(Defun UR-x (arg) (CAADR (TextBox arg)) )5 S' d7 Q/ b5 p
(Defun LL-y (arg) (CADAR (TextBox arg)) )
7 H7 n7 k Z2 V+ H& ~- a
(Defun LR-xy (arg) (List (UR-x arg) (LL-y arg)) )
(Setq ename (CAR (EntSel "\nSelect Text to stretch/shrink:" ) )
& H/ _# `3 f9 A; a3 g8 o; @
Textent (If ename (EntGet ename)) ) 1 Q* Y+ n" @& B I# I6 A8 B$ j
(If (= (CDR (Assoc 0 textent)) "TEXT")5 t8 m/ y, i% I0 v, w( H$ f4 g
(Progn (initget 0 "Start")3 u0 Y5 s8 o6 K2 B
(Setq NewEnd (Distance (LR-xy Textent) (LL-xyz Textent) ) )" I8 U" w5 H, G: T1 R4 U* g
(setsnapang Textent) ;set snap along text entity
3 l' o/ N7 }9 B/ d7 l, Y% c* E
(setvar "ORTHOMODE" 1) ;drag along the text
9 a/ n- C; r- H4 S# K8 t8 @5 [
(setq 0 a4 G5 Q. f' V9 F" E' `7 q
TMP (getpoint (cdr (assoc 10 Textent)) "\nStarting Point/<Pick new ending point>: ") ), ?* v" ]* S0 v
(setvar "snapang" 0)/ r# C0 J- I% F/ l( q+ E
(cond5 F/ n# |1 ^0 ]+ I- u
((= (type TMP) 'STR) ;;new starting point to be selected' d, H' @" b! E
(setq Start (getpoint "\nPick new starting point: "))8 V+ x c8 g7 c2 }
(if Start (progn
2 L. A! T% S; p* j
(command "_UCS" "_E" (cdr (assoc -1 textent)))
8 z E8 n2 A0 k Y: ]' X- H# ?
(setvar "ORTHOMODE" 1)8 z, \; j0 {7 X% l
(setq NewPt
* a- i1 o% w% e0 E- u7 S, _" [
(if Start
* _+ }# }2 u1 n$ r
(getpoint (trans Start 0 1) " ending point: ") nil ) )! a+ `5 H9 w" x; D8 a# ?; Y5 k
(if NewPt (setq NewPt (trans NewPt 1 0)))
5 N6 k, G O8 {# s0 @2 e
(setvar "ORTHOMODE" 0)
" `9 V+ B! w/ V3 i# u K- H
(command "_UCS" "_W") ) ) )" a# i6 L; H: y; A" h
((not (null TMP)) ;;new ending point selected& M/ }, i5 g4 u% I2 z( @
(setq Start (cdr (assoc 10 Textent)) NewPt TMP) )
# u# o: b6 Y0 K7 h: J5 b% Q
(t (setq Start nil NewPt nil) ) )* u- C( }. S& H* Q# ?
(if (and Start NewPt) (progn5 `6 E) \( K n; X: w
(setq Val (Assoc 41 Textent) ;;current width factor
m! N; b$ f; O
Val (if Val (cdr Val) 1.0) LTC_%
3 S9 x1 O8 p1 V9 a) n* B" U
(* (/ (Distance Start NewPt) NewEnd ) Val )
" y* g" n/ D/ Z4 H' z8 X6 q/ I
textent (Subst (cons 41 LTC_%)* n: i$ L4 k+ f8 v
(assoc 41 textent) textent)
; G) Q4 F* q$ Y* E0 x( ?
textent (subst (cons 10 Start) (assoc 10 textent) textent)
; |7 D3 w9 [! p) E/ o
textent (subst (cons 11 NewPt) (assoc 11 textent) textent) )
+ n' W" X' x. G0 Z- l* a7 q1 s
(EntMod textent) (EntUpd (cdr (assoc -1 textent))))))) (Princ))" ^ k* k! s! ^4 W) |4 ~
$ _9 H' y7 v! ~1 E& q$ H$ A
;=====================================================================
/ A; u; q+ H/ s7 [: ^
;=========================COPY + ROTATE ==============================1 s' J6 x. M6 ?# Q
;=====================================================================2 @% I4 Y5 N/ i0 e1 L
3 e% Q) z1 l. L4 d/ o! `
(defun c:CR(/ olderr cm loop ss1 ss2 bp mult lent ss2 lp1 lp2)& o$ O8 Y: ?4 o. u- E; `4 U0 k& L/ h
(setq olderr *error*
3 T) o( T; d* n- k) ^
*error* croerr)
4 \, u3 L7 J+ j, u" M' b1 x( t
(setq cm (getvar "cmdecho"))7 L0 m/ N2 @& m$ Y6 p+ r, `
(setvar "cmdecho" 0)
* L6 h0 m5 g1 F& i
(setq loop t)
7 G3 o: V" P# g5 c: P
(while (not (setq ss1 (ssget)))), ~3 ]' s7 L, S7 d
(initget 1 "Multiple")
4 Y5 l# }' E9 S2 _% N' k# u7 A
(setq bp (getpoint "\nBase point or displacement>/Multiple: "))
9 t* O9 j$ ]6 Z% U( n7 S* [6 [, F$ d
(if (= bp "Multiple")
0 j& b( F3 R8 a: o% ~
(progn2 m" ^( S; y2 t' t9 {# {
(setq bp (getpoint "\nBase point: "))
9 [% G9 y( r+ b7 q0 O+ c& W3 t8 ]
(setq mult t)7 y1 e7 ?9 w! E8 d( e8 I
)
8 [, j) ]- w6 @/ H) i: H3 ]6 o5 W
)3 R' s' _+ T+ Q# G4 R
(while loop# E3 ^3 H5 Q5 w7 ]3 {
(setq loop mult)
+ r) o/ ^" u) M' Z+ [6 T
(setq lent (lastent)): M) f! f+ Z( j' Z
(command ".copy" ss1 "" bp bp)
8 D n/ t/ f% Z0 H+ |
(setq ss2 (lss lent)); z/ \2 N) }. ?4 E
(setq lp1 (getvar "lastpoint"))& I# S& G$ X: J: G: e$ G
(prompt "\nSecond point of displacement: ")
) ^9 B2 c& M6 W$ b
(command ".move" ss2 "" bp pause)2 z* Y3 e; {) d( v( P1 v
(setq lp2 (getvar "lastpoint")); t" }: z7 p' _5 c7 m" F% h" H: F
(redss ss1)
_, D( z, d7 {" o) N
(if (and (not mult)
% s3 _; z+ U* n5 w F2 t
(= (distance lp1 lp2) 0)2 u: C0 o) n5 U) r7 }' u
)+ A' E% F& Y8 J- F; L
(setq lp2 (getpoint "\nRotation Point: "))9 \8 Q8 B5 e8 n% B
), P. C4 z- f& W7 s1 u
(if mult- z8 u6 A3 O$ ~3 r f5 e- l7 H
(prompt "\nRotation angle ")6 S/ C6 G7 d* g: c$ a1 R7 f
(prompt "\nReference/<Rotation angle>: ")
" ]' m( C2 f% l3 _
)% }3 B* k l* o1 H4 g
(command ".rotate" ss2 "" lp2 pause)- z* a- q5 U% w
)( s% V. T* i! k" U1 F: b
(setvar "CMDECHO" cm)
) T ?7 i$ a" ^, e
(setq *error* olderr)0 j: M" j/ K0 L% Y$ D% C
(princ)8 r6 ]" P( I# ~
)
$ J5 M, v/ w+ I( U9 S( u4 c
(princ)
2 [; m2 @5 r$ n" M' o8 Y( p" Z
(defun croerr (s) 4 v: s- k6 B+ t0 a* E
(if (/= s "Function cancelled")
! p8 v1 p6 H! `$ s
(princ (strcat "\nError: " s))+ W% P a& U" y2 n! f- t) ^( B/ E$ u8 d
) 2 K2 y! [) O% Z
(setq S nil)$ P/ q }0 @4 w9 ~, Z4 n+ f; g
(setvar "CMDECHO" cm)
0 _* g& }! E8 S1 r7 I" [% J
(setq *error* olderr)
& g2 p/ n9 r( T# |6 }5 H
(princ)
% Q) Z/ l- s0 R( I
)( Z9 T; u/ L7 G7 o; n+ N1 X3 x
(defun lastent (/ a b)2 ]: G6 j0 N" [3 F
(if (setq a (entlast)). D/ Z+ O ~) m. H) z, s
(while (setq b (entnext a))* F1 u6 m4 |9 R/ {- t9 s. E2 ?7 v
(setq a b)5 q* F* }$ n, D+ d" |
)! g9 ^* u9 K4 o* z; u
); A4 t/ `3 d3 f6 R6 @
a( K4 o* c) H( _' q) ]
). a0 e& r+ V2 T/ V$ K! \9 J
(defun redss (ss / en i)
" t$ P6 F, M0 ?+ T, b# E+ L6 l1 c. V
(setq i 0)" t3 z& ^7 Z# S, X2 k) p, W
(while (setq en (ssname ss i))
& B( @6 f& r4 \5 M) f
(redraw en 1)
# q+ A6 \! l# ^
(setq i (1+ i)): F9 s0 [; a' z$ R7 v1 N
)
# y- q: q) O! E1 O& T8 y7 t8 N
)7 ?" y+ Y5 V- d$ l- u6 }
(defun lss (en / sels ed)- C4 H) M9 |9 C: T# V* Z' D$ ^
(setq sels (ssadd))+ x. t: A K+ z% q4 }& A) [3 k
(while (/= en nil)4 j& \" } x d8 N
(if (setq en (entnext en)) (setq ed (entget en)))) K% N8 L5 B' O9 c, {7 N
(if (/= en nil) (setq sels (ssadd en sels)))9 r0 ~, b6 A1 Q( m' g1 k
(if (or (= (cdr (assoc 0 ed)) "Polyline")
, j2 l) i) p' @6 r7 n
(= (cdr (assoc 0 ed)) "Insert")
6 V `/ O1 K7 M' W
)
: O6 R8 W' m! x
(while (/= (cdr (assoc 0 (entget (setq en (entnext en))))) "Seqend"))
; G9 u7 W5 g, [! P. H* \, e
)) j! q% G! N$ t! G: E+ n4 y
): W/ N# `9 V0 ^
sels, W7 x$ A( @# n8 @" W) C6 q$ a) y
)
! _$ u) _* e; L- B
: B2 k: U( W A- ]# z( i7 j
;;;; ================== CAC FUNCTIONS DUNG TRONG ACAD.LSP ==================
! b4 I+ T! s! Q* {; A8 Y
' h& W; Y" z! m" f% [6 V: E/ ~/ h
(defun c:00 ()(princ "\nChon doi tuong net Defpoints")(ssget)(command "change" "p" "" "p" "la" "Defpoints" ""))5 M) Z* d0 J( ]
(defun c:0 ()(princ "\nChon doi tuong net 0")(ssget)(command "change" "p" "" "p" "la" "0" ""))
' x4 D$ `6 b+ W: F2 t
(defun c:1 ()(princ "\nChon doi tuong net COT")(ssget)(command "change" "p" "" "p" "la" "COT" ""))
% y5 l0 I6 d4 k9 @ D
(defun c:11 ()(princ "\nChon doi tuong net DIM")(ssget)(command "change" "p" "" "p" "la" "DIM" "")). E/ t, Y8 y& I( z9 @9 j
(defun c:22 ()(princ "\nChon doi tuong net MANH")(ssget)(command "change" "p" "" "p" "la" "MANH" ""))/ E g6 f$ \& V
(defun c:33 ()(princ "\nChon doi tuong net NETMANH")(ssget)(command "change" "p" "" "p" "la" "NETMANH" ""))8 `$ p+ |7 g9 Z- U6 |
(defun c:2 ()(princ "\nChon doi tuong net NETDUT")(ssget)(command "change" "p" "" "p" "la" "NETDUT" ""))
: U! x2 ?4 Q' }+ n
(defun c:3 ()(princ "\nChon doi tuong net NOITHAT")(ssget)(command "change" "p" "" "p" "la" "NOITHAT" ""))/ i. P- \2 N3 c+ F3 c
(defun c:4 ()(princ "\nChon doi tuong net TUONG")(ssget)(command "change" "p" "" "p" "la" "TUONG" ""))
t7 @2 R5 q) L- @5 p
(defun c:44 ()(princ "\nChon doi tuong net KHUNGTEN")(ssget)(command "change" "p" "" "p" "la" "KHUNGTEN" ""))% B1 y0 z& k1 w0 I7 `
(defun c:5 ()(princ "\nChon doi tuong net TIMTUONG")(ssget)(command "change" "p" "" "p" "la" "TIMTUONG" ""))" X4 U5 \3 u: k
(defun c:6 ()(princ "\nChon doi tuong net CUA")(ssget)(command "change" "p" "" "p" "la" "CUA" ""))
% Q1 l5 t4 S" x* _+ ?
(defun c:7 ()(princ "\nChon doi tuong net THAY")(ssget)(command "change" "p" "" "p" "la" "THAY" ""))
, {; D6 q2 b8 J. @1 j5 g: \. ?
(defun c:77 ()(princ "\nChon doi tuong net NETTHAY")(ssget)(command "change" "p" "" "p" "la" "NETTHAY" ""))
7 r0 ]2 n% T) w+ }# g
(defun c:8 ()(princ "\nChon doi tuong net HATCH")(ssget)(command "change" "p" "" "p" "la" "HATCH" ""))
- y* x; b$ \- J$ I% o# Z
(defun c:9 ()(princ "\nChon doi tuong net TEXT")(ssget)(command "change" "p" "" "p" "la" "TEXT" ""))' p) M4 ?3 `; A# X; ?' ~1 \
(defun c:99 ()(princ "\nChon doi tuong net CUAMATDUNG")(ssget)(command "change" "p" "" "p" "la" "CUAMATDUNG" "p" "C" "bylayer" ""))
5 ~$ J5 O" U3 n4 x
(defun c:td ()(princ "\nChon doi tuong net THEPDOC")(ssget)(command "change" "p" "" "p" "la" "THEPDOC" ""))
6 Q2 a) d: p' {
(defun c:ddt ()(princ "\nChon doi tuong net THEPDAI")(ssget)(command "change" "p" "" "p" "la" "THEPDAI" ""))! a @( W/ F" B. i+ ~. i
3 d9 a! u: _8 \& N4 o% R
;=============== DAT NET IN de xuat anh JPG [W x H] [5940.00 x 4200.00] =============' c0 [2 v0 N$ C) q% G- `
; }2 c. Q, E6 C2 T* N8 } X+ i
;=============== DAT NET IN de xuat anh JPG [W x H] [5940.00 x 4200.00] =============+ H+ K; ^8 P# }5 [, }
+ t( J3 P7 S' E3 H# P6 H/ s0 _! ]
(alert "Using the NetXuatAnh-[ 5940.00 x 4200.00 <pixels> ] command!")
# g3 m( d( a7 r) N& i0 V
(princ "\nEnter (DEFUN C:netxuatanh () to get to real LAYER command.\n") (command "NETXUATANH")7 Y7 ^ y; J7 C/ V- k8 ~: s
& q+ M3 k/ c' a: v7 T8 N& I
;=============== DAT LAYER NET de xuat anh JPG [W x H] [5940.00 x 4200.00] ===DRAW=== Q- ~5 k( _) t3 \: p( y0 Y
r3 [* K9 e$ k. @! M* M' F
;(DEFUN C:netxuatanh ()# @0 |8 Z& `2 D/ n. c- I
(COMMAND "-LAYER" "M" "NETDUT" "C" "8" "" "Lw" "0.6" "" "LT" "ACAD_ISO03W100" "" "" "LTSCALE" "5" ""
1 _& N: _* ^9 w g# g) h' g
"-LAYER" "M" "TUONG" "C" "4" "" "Lw" "1.58" ""! ?8 e2 U- L, `' X
"M" "MANH" "C" "9" "" "Lw" "0.5" ""4 G$ L$ h$ s/ s5 o9 N
"M" "TEXT" "C" "7" "" "Lw" "0.5" ""
) z6 J G" r6 X: P6 i3 a4 d4 `
"M" "DIM" "C" "1" "" "Lw" "0.6" ""
1 P2 l0 R4 X/ A. R
"M" "THAY" "C" "7" "" "Lw" "0.7" ""; {# u6 |1 t# I7 L3 n% s- E/ }
"M" "NOITHAT" "C" "3" "" "Lw" "0.5" ""
+ a! Z% E( e- \: \; A
"M" "HATCH" "C" "5" "" "Lw" "0.35" ""
' y% r2 S9 W% _/ U7 b) i5 @: q
"M" "COT" "C" "2" "" "Lw" "2" ""- v. K) X9 t0 g; c3 G
"M" "Defpoints" "C" "7" ""8 |0 c$ p' l# B$ R$ p
"M" "0" "C" "3" "" "Lw" "0.5" ""4 b2 n2 b7 {5 v# F0 `/ d
; "M" "1" "C" "1" "" "Lw" "0.5" ""
& S* V! y8 `8 K
; "M" "2" "C" "31" "" "Lw" "0.5" ""
( u8 e9 O4 R# d2 G# C w3 k
; "M" "3" "C" "8" "" "Lw" "0.35" ""
2 H R9 T! X+ B& R( T/ o
; "M" "4" "C" "4" "" "Lw" "0.8" ""
; F( e( G& j" I/ h+ j
; "M" "6" "C" "6" "" "Lw" "0.35" ""
2 [1 W$ d: P; B0 J) V3 M
; "M" "7" "C" "7" "" "Lw" "0.4" ""
0 z) o* o" D% \: v8 X* o/ k- j
; "M" "8" "C" "8" "" "Lw" "0.35" ""7 Y& C. N- \" ^ U. D
"M" "DAY-DIEN" "C" "3" "" "Lw" "0.5" "": ^6 b0 C7 n8 U$ F8 V
"M" "DUONGBAO" "C" "7" "" "Lw" "1" ""
6 I: a: H" j* _
"M" "KE" "C" "8" "" "Lw" "0.3" ""7 g/ [# _$ F p' z, G
"M" "KT" "C" "9" "" "Lw" "0.35" ""
& D( a5 M: _: V6 Z( p/ f
"M" "NETTHAY" "C" "255" "" "Lw" "0.7" ""
" \- }$ ` U$ Z8 [ d& b, B
"M" "NETMANH" "C" "43" "" "Lw" "0.5" ""/ Q4 q* t @6 ?: h* H
"M" "TBD" "C" "2" "" "Lw" "0.8" ""
$ t! |/ d y) G# ~! j9 `$ H; e( N
"M" "TEXTTXT" "C" "7" "" "Lw" "0.4" "" H7 }1 L0 j( |/ P5 q4 v
"M" "TEXTVN" "C" "132" "" "Lw" "0.4" ""
J1 j/ u- R$ J
"M" "THEPDAI" "C" "3" "" "Lw" "0.7" ""
& y) L% ^/ S, X/ o( M5 a1 n
"M" "THEPDOC" "C" "2" "" "Lw" "1.58" "" K! M* T# E. Y6 z! `" S9 _; Y7 T
"M" "CUA" "C" "6" "" "Lw" "0.5" "") Z+ Y5 S0 Z8 y6 F! y' P
"M" "CUAMATDUNG" "C" "6" "" "Lw" "0.5" ""
& a$ p( Y. ^% a1 u3 c* ~1 \
/ }- l( m. {- J: H; E' @
;=============== DAT NET IN de xuat anh JPG [W x H] [5940.00 x 4200.00] ===NUOC===% O* P! m$ W1 [' D1 E2 F+ o* O7 i3 B
: {0 m8 [ }7 z" r8 t3 r" Q
"M" "10-VAN_KHOA" "C" "10" "" "Lw" "0.5" ""
. x( e9 v4 A$ X% b% Z+ }
"M" "4-WateR_IN" "C" "4" "" "Lw" "0.6" "" "LT" "FENCELINE1" ""
3 N9 m) V/ i2 D: e
"M" "4-WateR_OUT" "C" "4" "" "Lw" "0.6" "" "LT" "FENCELINE2" ""
# r; ` H7 b/ h$ |4 s
; "M" "250" "C" "250" "" "Lw" "0.35" ""7 W( J, M* ?, z# p! W1 |
"M" "KHUNGTEN" "C" "4" "" "Lw" "1" ""# J7 Z/ R" @$ z% K5 Z
"M" "TIMTUONG" "C" "5" "" "Lw" "0.5" "" "LT" "ACAD_ISO10W100" "" "" "LTSCALE" "10" "" )
: @7 ~; m/ j% i- z
) i+ k7 n; K3 G& r
;=============== DAT LAYER TEXT de xuat anh JPG [DIM] [TEXT] [GHI CHU]======
: b( y4 u, W. A {8 B; h7 R! \3 V$ Z
;===================================30|04|2024==============================5 q( @5 U( G: z0 i# ~+ g' s) }
) P* j& T, J5 q( W9 _" i
(Command "-style" "Vni-VietNam" "vn_vni,vns.shx" "0" "1" "0" "n" "n" "n" )1 D, L2 a4 y, H! D# n# I r4 d
(Command "-style" "Vni-ROMANS-TEXT" "vni-romans,vns.shx" "200" "1" "0" "n" "n" "n" )
) A+ i1 T! d2 z( P+ V, k
(Command "-style" "COTES" "verdana" "" "1" "0" "n" "n" )
( Y1 i8 U+ @& }# x8 b$ T( Y
(Command "-style" "TRUC" "impact" "0" "1" "0" "n" "n" "n" ) d0 G2 q1 x+ J) u3 n1 B; ~
(Command "-style" "VNHELVLT-Hoa" "vnhelvh,vnh.shx" "500" "1""0" "n" "n" "n" )" w4 K% u! \$ A5 z5 M1 u; `2 ~
(Command "-style" "VNHELVLT-Thuong" "vnhelv,vnh.shx" "500""1" "0" "n" "n" "n" )
% W. Q0 n+ X; e" {7 K
(Command "-style" "STANDARD" "Verdana" "200" "1" "0" "n" "n" "n" )& N: H P2 i `! R
(Command "-style" "VERDANA" "verdana" "200" "1" "0" "n" "n" )
% Z' D8 _8 [7 w& S9 r S3 B9 F. n, u
(Command "-style" "ROMANT-DIM" "romant,vnh.shx" "0" "1" "0" "n" "n" "n" )& q% \0 }+ p2 t+ B: ^
(Command "-style" "ROMANT-TEXT" "romant,vnh.shx" "200" "1" "0" "n" "n" "n" )(princ)( w" e9 ]! `* H- B) J9 e: R: n- @
+ A: @/ W5 |% l
;============= DAT NET IN de xuat anh JPG [W x H] [5940.00 x 4200.00] =DIM-STYLE=+ k& ~/ d. I' N3 }8 T) H
;===================================17|10|2024===================================- _9 ]7 J; o; w; R( C. p
" ~5 g+ ^4 n+ m) W. u h
(Command "DIMTXSTY" "ROMANT-DIM" )
2 M% C) \0 @6 f# q4 j. v% z* Y
(Command "DIMBLK" "" "Closed" )( h4 K* _, u- c% ^0 u- c
: \ c5 K, {& @4 g! M
;============= DAT NET IN de xuat anh JPG [W x H] [5940.00 x 4200.00] =DIM-STYLE=
% ]. c2 o0 I6 D8 l( N
;===================================17|10|2024===================================
3 j Q- f1 s% N L" B. E# ?! X
- g+ b6 j# w9 }/ Q0 w) J) w0 J+ H
;(Command "-units" "2" "8" "1" "8" "" "N")+ X0 S0 o# O8 p- N% E) e
(Command "-plot" "Y" "" "publishtoweb jpg.pc3" "User 1 (5940.00 x 4200.00 Pixels)" "Landscape" "N" "Display" "Fit" "Center" "Y" "monochrome.ctb" "Y" "")(princ)0 ]/ _( s2 ]& b
7 Q0 b- y X1 `) p+ n! y2 D
;============= DAT NET IN de xuat anh JPG [W x H] [5940.00 x 4200.00] =DIM-STYLE=# ^# W- U! r1 e8 ~3 Y0 ?
;===================================17|10|2024===================================- W; }6 O+ U5 l' ^1 C( [
* |" X6 t; I( @ o5 H8 H
;======== KET THUC - DAT NET IN de xuat anh JPG [W x H] [5940.00 x 4200.00] =====6 F3 O. x5 n6 _# j% V8 L5 J8 t
3 m9 R6 ~+ \$ z% T) B# J5 Z- c7 \% ?
;======================== DAT NET IN & TI LE BAN VE =============================! A( P& P0 i6 n! R9 _( G& L# Z
* |; Q a6 Y$ Q: ?* ~0 Q# P( P2 ~
;=================LENH VE KHUNG TEN - Tieu Diet Lenh==================
. v f* A$ E/ y1 @
;=============== DAT KHO GIAY BAN VE - KIEU KHUNG TEN ================
. D3 t, R/ ]. n( p M' Q# Z4 U
;=============================11|07|2025==============================
5 R0 [0 a( [# u- n7 B
;Ti Le Ban Ve - 1 : 100, |& ^ c+ X' M6 t% ?1 X' G& R ?
(Defun c:kta4 ()
$ H, x6 v4 m, B3 U+ r! p' }
(setq mv_sc 100);Ti le ban ve5 m( B9 ?( ?8 H; K4 S
(setq x4 297)
% b# ^: c6 ?' U4 z
(setq y4 210)
' @! U/ ~& U) f$ N7 \9 G
(setq x4 (* mv_sc x4) 0 a, A$ \2 b2 j
y4 (* mv_sc y4) )
9 q+ J8 N x; F2 b9 V' h
(command
5 k4 k: d" [; J5 \$ N R7 }
"LIMITS" "0,0" (list x4 y4)* Y" c# V; w0 v+ }
"PLINE" "0,0" (list 0 y4) (list x4 y4) (list x4 0) "0,0" "_C"7 z& [: g/ V6 P& ~5 `" K+ h7 D
;Khung CHU NHAT Chinh 4 b# g+ \7 o7 a
"RECTANG" "500,500" "@28700,20000"
8 R( r a0 @0 @
"RECTANG" "700,700" "@28300,19600"6 K7 _( r' b0 y
;Khung Ten Chung
$ x0 Z$ a" r8 T' k# c
"RECTANG" "700,700" "@8000,1250"
}0 J; G9 g9 g( l3 F
"RECTANG" "700,700" "@17300,2500"
# N) m/ j1 ^, j
;Ten Ban Ve
0 ?6 U u" I: W+ K5 m4 f9 b
"RECTANG" "18000,700" "@11000,1250"
4 L+ }" x0 ~1 N7 U
"RECTANG" "18000,700" "@11000,2500"
. W# A- J/ Y- Z2 }; X+ l& I
;Khung Ti Le + Ngay Thang Nam5 v7 j! p" v! | E2 v9 s4 L
"RECTANG" "22500,700" "@2000,2500"# N5 A# D' R4 a" z* E$ q, Z% t
;Khung CHU TRI/ Z4 G$ P* G( T0 ]5 W7 E
"RECTANG" "8700,700" "@3800,2500"
% J; D* q: T6 u+ u
"ZOOM" "_a" ))
' G! O, ]6 O' N" h8 U: }7 Z$ }5 |
;=====================================================================) D/ x F I$ [: l3 o
;Ti Le Ban Ve - 1 : 100
7 r, I. Q9 T$ w5 s& J+ T5 h" i
(Defun c:kt4a ()2 _6 k1 N* M: Z `: ?: b6 i2 K8 Z5 e
(setq mv_sc 100);Ti le ban ve
, T0 G5 ~% s( R+ a+ @
(setq x4 297): |( M5 r( v9 `. ~& [4 f
(setq y4 210)( J3 i6 E. n! n5 A6 \
(setq x4 (* mv_sc x4)
0 C w3 K" p5 |2 ~2 [
y4 (* mv_sc y4) )
5 j* j: t# N( N- l. d
(command 5 H+ F7 b4 i% a, I: s- e5 a, D
"LIMITS" "0,0" (list x4 y4)4 s- P l) I% O% Z% e$ F8 V
"PLINE" "0,0" (list 0 y4) (list x4 y4) (list x4 0) "0,0" "_C"8 n3 R8 d; t( s% a/ c
;Khung CHU NHAT Chinh ) y3 g( d7 Y. L. I4 H5 T9 z$ `
"RECTANG" "2000,500" "@27200,20000": M' Q- R3 p" K9 y; {% O3 U' q
"RECTANG" "2200,700" "@26800,19600"& {# Y0 o, _2 H s8 W
;Khung Ten Chung$ K8 n2 `: R% G
"RECTANG" "2200,700" "@6500,1250"% D+ m+ F3 _$ i- s+ W
"RECTANG" "2200,700" "@15800,2500"
, `& x$ \- V- a' p: i( N' l
;Ten Ban Ve
# {0 O) J* N1 p- r+ ^/ O8 a0 @
"RECTANG" "18000,700" "@11000,1250"5 p/ {+ u3 i9 A$ h+ v
"RECTANG" "18000,700" "@11000,2500"
' [# r2 B2 ^' l) T" K
;Khung Ti Le + Ngay Thang Nam) f' }. f6 L. L: Z+ r1 `
"RECTANG" "22500,700" "@2000,2500"2 h- }! a, C4 u4 o6 d! K. B; i8 D
;Khung CHU TRI
4 n. {0 n, L$ J+ u. X, v
"RECTANG" "8700,700" "@3800,2500"' v7 c4 p. c2 L1 l
"ZOOM" "_a" ))
3 G$ _* u8 H, g- ]2 N4 G1 ~& ^
1 d& e4 j! v' J5 }: ~
;;; ============================GHI CHU Khung Ten========================
4 |. N0 T! e; q
;;; ======== Phai Vao STYLE Tao LAYER Ten TEXT + Phai Dat Height ========( @6 u( |# S% @. i$ R) k
;;; =======================Thuong Dung Font Romant.vnh===================
) @, E# S2 j& M$ d6 u$ x
! v2 i! K5 [, n! I- j) x0 U
(defun c:GhiChu (/ pta ptb ptc ptd X Y X1 Y1 rmsz pl1)" b {' j# W" L3 c
(setq oer *error* *error* err2): e! I8 D6 T) C* a& `& A: r
(PROMPT "\nChuTri. ThietKe. KiemTra. TiLe. Ngay. HangMuc. QuyMo. KieuNha. CongTrinh. KyHieu. TenBanVe. Kts. TranNgocThang. ")
; [0 N+ p9 o" y6 e V- Q
(SETQ Cpt(GETSTRING "\n(CT). (TK). (KT). (TL). (Ng). (HM). (QM). (KN). (CTr). (KH). (TBV). (Kts). (TnT). "))
( O& C4 b" J4 P. H4 {
(IF(OR(= Cpt "QM")(= cpt "qm"))(SETQ CPT ' "Hå S¬ ThiÕt KÕ Nhµ D©n Dông quy M« :"))+ |$ _" _5 @% F2 N4 I
(IF(OR(= cpt "KN")(= cpt "kn"))(SETQ CPT ' "2 TÇng 1 Tum Thang"))
3 H& E+ D' E0 X" H8 F
(IF(OR(= cpt "CT")(= cpt "ct"))(SETQ CPT ' "Chñ Tr× :"))
% B$ u9 I+ e6 s% {. f4 |
(IF(OR(= cpt "HM")(= cpt "hm"))(SETQ CPT ' "H¹ng Môc :"))% K. Z+ e1 f! u; k- C$ j1 }
(IF(OR(= cpt "CTr")(= cpt "ctr"))(SETQ CPT ' "Nhµ ë Gia §×nh - Nhµ LiÒn KÒ"))* P# d: o- o- \1 k: f1 l3 _
(IF(OR(= cpt "TK")(= cpt "tk"))(SETQ CPT ' "ThiÕt KÕ :"))
! i5 {: I0 `1 \5 c5 [9 d* N9 ]$ j
(IF(OR(= cpt "KT")(= cpt "kt"))(SETQ CPT ' "KiÓm Tra :"))
0 k+ H/ g6 H5 j" D4 x
(IF(OR(= cpt "TL")(= cpt "tl"))(SETQ CPT ' "TØ LÖ :"))( N# J3 ~' j$ D7 v0 p% g
(IF(OR(= cpt "KH")(= cpt "kh"))(SETQ CPT ' "Ký HiÖu :"))
7 y" l: D+ V1 h- g- k8 b% M
(IF(OR(= cpt "TBV")(= cpt "tbv"))(SETQ CPT ' "Tªn B¶n VÏ :"))' z& h( \" ^+ L
(IF(OR(= cpt "Ng")(= cpt "ng"))(SETQ CPT ' "Ngµy :"))
' Y5 E! ^( I3 U% B
(IF(OR(= cpt "Kts")(= cpt "kts"))(SETQ CPT ' "Kts. TrÇn Ngäc Th¾ng"))7 i1 L& V h/ c; C& l+ t1 A5 j# F
(IF(OR(= cpt "TnT")(= cpt "tnt"))(SETQ CPT ' "TrÇn Ngäc Th¾ng"))
: j0 E2 x7 M; b% g7 Q+ \
(setq pta (getpoint% f$ S; Y# {/ `8 g$ D
"\nPick first corner. : "))6 s& o' h/ i1 Y; A! i$ S
(setq ptb (getcorner pta4 p3 d3 W2 U& ]- S% N4 ~- O( f& V( {
"\nPick second corner. : "))1 Y g! M- B1 Z1 l
(setq ptc (list (car ptb)(cadr pta)))
: E. B$ L9 a5 ]2 o8 ~
(setq ptd (list (car pta)(cadr ptb)))! D, |/ ]; j- s
(setq ang (angle pta ptb))
* L. y H; f/ b; d+ l0 k7 j
(setq d1 (/(distance pta ptb) 2))
% R3 [7 G: ^& W8 F9 p$ [# P" |
(setq cp (polar pta (- ang (dtr 0)) d1))0 j6 O4 }# b0 A! l3 u/ Y
(setq X (distance pta ptc)), w+ f* ]6 ]: T& Q+ U
(setq Y (distance pta ptd))
6 @' r/ g( F& b, L5 B' _, E
(setq X1 (rtos x 2 1))
/ ~% X' a/ D5 J5 d5 {" L. G' ?8 F
(setq Y1 (rtos y 2 1))/ ~- m, V* _. H# _! v! q3 Z1 O
(setq rmsz (strcat "(" X1 " x " Y1 ")")); c$ ]; Q$ {1 d4 n% D0 k
(command "TEXT" "c" cp "0" CPT "text" "" rmsz))6 |% [( Q# W# {# I
(defun dtr (angg)
6 W5 g8 s. J* s
(* pi (/ angg 180.0))); U" d$ |+ P" f; S/ d; s6 q+ u
8 x& `, I- ]6 j0 P
;=====================================================================3 x+ N$ V% I( Y. ~! @/ D( d0 u* e
;==========================DAT KHO GIAY BAN VE - KIEU 1========================, X+ e6 o. G/ S* W# u2 P
;=====================================================================* W5 O) e3 d: `1 B0 W; ?* }
' V: l3 I4 _3 `9 f' q5 g
(Defun c:a6 ()' d5 L7 k7 t3 r% _1 r( G3 \4 Y5 E$ ~- ^! O
(setq mv_sc 100);Ti le ban ve
- w' ~2 v5 \. _; q; W9 y
(setq x4 74.25)
* N+ U: Z4 Q$ X
(setq y4 52.5)
+ N5 N" k: o! ]& x: t& _$ c1 {
(setq x4 (* mv_sc x4) # a% { O) L2 G4 u H8 A1 x; _) V
y4 (* mv_sc y4) )0 y [. A, s' j
(command 9 p# v5 u- K" ]
"LIMITS" "0,0" (list x4 y4)/ L4 u! I: `% s: t
"PLINE" "0,0" (list 0 y4) (list x4 y4) (list x4 0) "0,0" "_C"/ K; h/ D& y/ i% R
"RECTANG" "125,125" "@7175,5000"/ S4 Y+ v! G4 L3 T+ r( A. K( M2 }
"RECTANG" "175,175" "@7075,4900"" p4 J" k: m$ W, N5 V8 M8 I
"ZOOM" "_a" ))
; V. I; ~% b$ b" h+ l, K
;=====================================================================' u# I7 z0 l9 I/ K$ L! U- T# U
(Defun c:a5 ()
* S( s# h0 O7 h: V
(setq mv_sc 100);Ti le ban ve }# ]2 Q! P9 l/ ]
(setq x4 147.5): k+ }: o7 K8 U3 s+ U2 |4 n
(setq y4 104)
$ m! d; B. ~8 j! Y% g7 Q6 h
(setq x4 (* mv_sc x4) . Z0 z0 s3 r2 D9 {. C) v! `2 k
y4 (* mv_sc y4) )
/ @) u& S) q4 t/ v; S" S: |
(command
8 f, E2 H, T0 o a# e8 N& f7 K3 x
"LIMITS" "0,0" (list x4 y4)
: t( Q9 m" X" O6 H5 p
"PLINE" "0,0" (list 0 y4) (list x4 y4) (list x4 0) "0,0" "_C"3 s4 l$ A& x. u* V4 p
"RECTANG" "250,250" "@14350,10000"
0 w2 b4 s, d: s* e" v' K
"RECTANG" "350,350" "@14150,9800"
6 F0 N6 ~. l( g! Z1 J% K/ X2 w
"ZOOM" "_a" ))
. B: i' g( J; R0 c
;=====================================================================6 _- ^+ K. K2 F5 M# W$ H. d
(Defun c:a4 ()7 m( z8 t* U+ b% l
(setq mv_sc 100);Ti le ban ve: B1 Z( k, J2 E4 o" n
(setq x4 297)
8 _( ?( x. P7 f
(setq y4 210)
% Y, q" J; v. f2 g( a; \, {) S
(setq x4 (* mv_sc x4)
0 k6 L' Y/ R9 C7 ~+ ~! [6 x
y4 (* mv_sc y4) )
# Z) A$ {9 M$ c% i: {
(command
- k$ w B& \' Z- T3 _, k* ]
"LIMITS" "0,0" (list x4 y4)+ k; M; k2 k' o: A
"PLINE" "0,0" (list 0 y4) (list x4 y4) (list x4 0) "0,0" "_C"
2 ]0 \, C9 N$ N, u8 w
"RECTANG" "500,500" "@28700,20000"
. a( [% ]- K! M5 C
"RECTANG" "700,700" "@28300,19600"
1 Y& o4 Y/ [! w8 W
"ZOOM" "_a" ))
3 `" b! `) \+ i
;=====================================================================% m! u# K* O, Y( y9 O* M7 R6 p. ^, ]8 q/ S
(Defun c:a3 ()
/ z/ G; x5 l5 B4 r( \; G% j1 W, P
(setq mv_sc 100)
( ]) m: W3 S. A1 m0 M* p
(setq x3 420)
) ` G6 s4 ~ l- Z
(setq y3 297)
! z5 F4 B$ o& V* X
(setq x3 (* mv_sc x3)
9 f; P i( h5 C: S. W, Z8 L6 b
y3 (* mv_sc y3) ) n5 k( k5 A/ K2 J& H7 ^
(command # @) G! o; r. ?) ]2 i2 T; _( b
"LIMITS" "0,0" (list x3 y3)
, d3 G( V+ i% g/ A2 C, q
"PLINE" "0,0" (list 0 y3) (list x3 y3) (list x3 0) "0,0" "_C"
" n* B8 i* W7 q) R$ \' Y
"RECTANG" "707.14285714,707.14285714" "@40590,28285.71428571"* N( O# o; \5 ^9 e
"RECTANG" "990,990" "@40024.28571429,27720"' |+ e" y' { S8 J1 l, _" j. ^
"ZOOM" "_a" ))
: q ]- J! @, }+ T9 W
;=====================================================================4 k# g( O+ m% I% s
(Defun c:a2 ()
]" P* ?+ c. ?) l, H6 v
(setq mv_sc 100)
3 V8 {" x9 }: z1 U7 V9 U
(setq x2 594)
6 G6 |9 ]/ r) `2 q
(setq y2 420)$ C( W2 ]" F$ a0 I& }6 b
(setq x2 (* mv_sc x2)
. p$ f, m8 G5 p. p. O; x6 k3 u; @
y2 (* mv_sc y2) ); ^$ a0 j) z" E( {6 ^4 ^; F
(command # S* Q; O# X# w
"LIMITS" "0,0" (list x2 y2)
+ `! B6 @# Y. I( l* I" B; s
"PLINE" "0,0" (list 0 y2) (list x2 y2) (list x2 0) "0,0" "_C"3 s& g0 W( ]" d- }; d9 ~
"RECTANG" "1000,1000" "@57400,40000"! L. i) S9 c; a! E
"RECTANG" "1400,1400" "@56600,39200"
4 J# @& o% ~% ]' e( E
"ZOOM" "_a" ))+ v# ]# G$ g4 f" [. B$ h4 J
;=====================================================================4 z6 c6 J! y& o3 d/ `
(Defun c:a1 ()
7 E1 V* f: n' Z/ O' S
(setq mv_sc 100)
+ c# V- ]+ [% W- w2 h! D
(setq x1 840)0 k2 x( Y) i1 N5 r
(setq y1 594)8 L1 O$ E1 E8 k: ?7 O% `
(setq x1 (* mv_sc x1) : C, [& g( p8 f$ a9 W
y1 (* mv_sc y1) )* Y# W+ B0 i! R* y' x& A
(command
) b# X3 H' j, l+ N h% |. y
"LIMITS" "0,0" (list x1 y1)
/ A/ h' A& {% N9 p
"PLINE" "0,0" (list 0 y1) (list x1 y1) (list x1 0) "0,0" "_C", j6 g: j8 o( A/ K; x% \4 Z
"RECTANG" "1414.28571429,1414.28571429" "@81180,56571.42857143"7 W: R) B) q) i/ |3 N. w/ l+ g" s
"RECTANG" "1980,1980" "@80048.57142857,55440"* Z7 |' n2 W c, }, S
"ZOOM" "_a" ))
8 o/ v3 a9 [/ i* W' R, f
;=====================================================================
# F* y7 I7 O4 J& }! Z1 a
(Defun c:a0 ()
" Z% j( [- L) E0 f/ Z
(setq mv_sc 100)
) G) T0 K% Q) A7 s# p" R3 K/ j; W
(setq x0 1188)
0 |0 r+ d" N4 E2 H
(setq y0 840)# R1 |% I w. i' s
(setq x0 (* mv_sc x0) % ~+ p. |# k- b+ t- D/ N- D9 ]
y0 (* mv_sc y0) )
$ |2 D; l/ Q$ a0 T' _) ?; M2 ^' d
(command 6 G* \+ c3 o! h* K, x# ]
"LIMITS" "0,0" (list x0 y0)) X9 l! g- c, a+ [7 m# ?. v4 w
"PLINE" "0,0" (list 0 y0) (list x0 y0) (list x0 0) "0,0" "_C"7 u" B( z( v: [
"RECTANG" "2000,2000" "@114800,80000"" }2 ]# s) I) g- I. Y" _6 K
"RECTANG" "2800,2800" "@113200,78400"
6 m% {) A7 y# k
"ZOOM" "_a" ))
8 z/ G2 w9 G; H( [: b
5 e3 T7 w3 a5 |6 Y3 s7 \
;=====================================================================* }: p* x% C K
;=========================DAT KHO GIAY BAN VE - KIEU 2=========================
. [2 s8 ?0 m8 K1 k: I! J% I
;=====================================================================/ H4 M9 ^9 S4 E! K, B9 s
9 [) A( F" R. K- W [/ D" |" X
(Defun c:6a ()" n8 n3 p8 M- N9 I5 ]
(setq mv_sc 100);Ti le ban ve
" O4 y" |" r- Q6 s- v$ R+ C ]
(setq x4 74.25)4 |/ i: Q6 P; r- R( u# B$ o9 o! e
(setq y4 52.5)3 ]% |+ s9 }( I8 {- S# j G; ~4 ^
(setq x4 (* mv_sc x4)
. \/ h) ]0 y! [) \# l
y4 (* mv_sc y4) )
5 B: d2 {" J) @
(command 8 }5 D8 A4 T5 l- S3 \2 `7 n
"LIMITS" "0,0" (list x4 y4)
7 B3 {5 i, L m. S8 F
"PLINE" "0,0" (list 0 y4) (list x4 y4) (list x4 0) "0,0" "_C"
" I% U% C2 Y' E& a- ?
"RECTANG" "505,125" "@6800,5000"
0 W+ b" o4 u% a" S- t" a
"RECTANG" "555,175" "@6700,4900"
- E4 h0 ] u/ F4 W3 r; p( S! Y% q
"ZOOM" "_a" ))
) c6 O, n, J- l7 l3 K1 A7 {
;=====================================================================, M3 A- u8 w" R
(Defun c:5a ()
- u$ P: g' L t, V* Q
(setq mv_sc 100);Ti le ban ve
) d* A. U' J8 i
(setq x4 148.5)
P" M) E4 _ Y b. t; `/ V
(setq y4 105)" e& O! F1 Y2 u, _
(setq x4 (* mv_sc x4)
* F5 i( N$ B& Z
y4 (* mv_sc y4) )
+ x7 s6 J. Z- M1 D L
(command - c' h F+ H) ^
"LIMITS" "0,0" (list x4 y4)
4 R+ ]9 }$ `1 Y' V
"PLINE" "0,0" (list 0 y4) (list x4 y4) (list x4 0) "0,0" "_C") V# y9 @( u1 P& N% S! Z
"RECTANG" "1000,250" "@13600,10000"6 X) c; x2 K" k- Z9 ?8 p' D
"RECTANG" "1100,350" "@13400,9800"
0 G$ r0 C( M6 J8 G' d# z* g
"ZOOM" "_a" ))) ]8 p4 @: Z3 r, R$ e3 b+ e) b. A
;=====================================================================5 U- k. r2 Z8 @) L [& _
(Defun c:4a (); U G7 S, a0 B6 P& R* e
(setq mv_sc 100);Ti le ban ve3 }4 @9 m" C' Y- G$ H9 H& z2 K$ p; D$ w
(setq x4 297)/ Y7 _& Q6 P7 c4 c6 R
(setq y4 210); {( i @% O5 U7 g
(setq x4 (* mv_sc x4) 7 [% O* x6 U) j0 B3 r, ?
y4 (* mv_sc y4) )
3 v0 \# }* _4 }
(command
1 m' f2 |* [. p8 Z. Z% L
"LIMITS" "0,0" (list x4 y4)
0 A' j2 v- |; w2 J( [+ \
"PLINE" "0,0" (list 0 y4) (list x4 y4) (list x4 0) "0,0" "_C"4 M/ N3 k* w: \# A }8 u
"RECTANG" "2000,500" "@27200,20000"
7 C& E) t, \- L! t2 v1 n Q5 Q
"RECTANG" "2200,700" "@26800,19600"
6 }& _7 e' ]+ \9 j
"ZOOM" "_a" ))0 [1 \$ ^$ X5 o! I6 z
;=====================================================================
/ A* r+ v4 E$ F
(Defun c:3a ()1 m; j3 x4 ^$ a
(setq mv_sc 100)% P! i2 u( O2 j) o/ H: `/ c
(setq x3 420.0428571429)
0 s7 d r. u7 h2 e
(setq y3 297)
" N j$ \: B" O" V
(setq x3 (* mv_sc x3)
: i. c H y/ W+ X6 Y# a6 y: l
y3 (* mv_sc y3) )
. A5 h+ ]* t2 ~. |; U# V
(command
6 Z" B3 U1 u- ]( U: V7 M
"LIMITS" "0,0" (list x3 y3)
3 Z1 @2 P8 A2 H9 O
"PLINE" "0,0" (list 0 y3) (list x3 y3) (list x3 0) "0,0" "_C"7 I8 u- J2 W9 f5 F: n! ]' M: S0 M
"RECTANG" "2828.57142857,707.14285714" "@38468.57142857,28285.71428571"
9 _# r0 D6 f, q6 \9 G0 K: d1 \
"RECTANG" "3111.42857142,989.99999999" "@37902.85714287,27720.00000001": M q- \' K/ X2 o5 T$ @0 R" j, Y
"ZOOM" "_a" ))
& H: a( ]% q9 E; u. \ _
;=====================================================================7 O( K- d( P4 O7 D) P6 S2 }& ~
(Defun c:2a ()- u9 _$ [; x% r$ p6 n/ A
(setq mv_sc 100)4 p$ j# n: z2 \7 q+ t
(setq x2 594)- H/ i |7 J" f0 [
(setq y2 420)
7 ?9 T, E4 S# I0 |* ]7 V$ l: M
(setq x2 (* mv_sc x2) 5 S/ |3 S" B0 M7 E, U7 B$ ?7 @" S
y2 (* mv_sc y2) )
5 e/ \, \) a' t7 x( @; i5 f
(command
# P! @: h9 I& \: H
"LIMITS" "0,0" (list x2 y2)
_6 t" f1 K8 D! p. m: p1 ?1 y8 r
"PLINE" "0,0" (list 0 y2) (list x2 y2) (list x2 0) "0,0" "_C"
$ d' |$ H; S, ^, A
"RECTANG" "4000,1000" "@54400,40000"7 Y P: z! t" g" d7 X0 C2 H8 U/ }
"RECTANG" "4400,1400" "@53600,39200"
9 q8 j0 W4 o* z! A
"ZOOM" "_a" ))$ _# C5 {" K$ R
;=====================================================================% P! x# G' N: R( }; N
(Defun c:1a ()5 N: o6 X6 s; I% F5 Y! f
(setq mv_sc 100)1 Y5 w1 k2 y/ j1 @' ~; e
(setq x1 840.0857142857): D2 b5 B) [- i( W
(setq y1 594)
" k4 N/ x! I( E
(setq x1 (* mv_sc x1)
* o$ u6 r; k. z k
y1 (* mv_sc y1) )6 O3 o3 x9 v0 K- z% R) |
(command
6 ]0 x. n% y `0 W$ c1 U# s
"LIMITS" "0,0" (list x1 y1)0 _; ^: n( N4 |2 S! r! V& V% _
"PLINE" "0,0" (list 0 y1) (list x1 y1) (list x1 0) "0,0" "_C"2 w) x7 \* d+ D( U
"RECTANG" "5657.14285714,1414.28571429" "@76937.14285714,56571.428571436"
0 m: z/ H* H$ |% R
"RECTANG" "6222.85714286,1980.00000001" "@75805.71428570,55440"7 ^* k. J+ g4 S% ]/ I( B
"ZOOM" "_a" ))7 V8 K* A& K6 C& D- d& M+ E
;=====================================================================
1 |1 h N$ e" b8 F: r
(Defun c:0a ()
. j# ]1 Y" [' G$ v+ V/ j$ R& d! ?
(setq mv_sc 100)
! b9 Q3 N( O, _; L T6 W0 i* V
(setq x0 1188)7 ]' ~- u% }% J/ I# ]
(setq y0 840)2 S" d1 t# `1 T" ]' b0 E
(setq x0 (* mv_sc x0) : A5 \ M* u, e
y0 (* mv_sc y0) )
- _: Q: l1 ]6 h
(command
, g9 m0 e; U( @
"LIMITS" "0,0" (list x0 y0). r% A, Y8 G3 ] ^1 X: p* @8 C
"PLINE" "0,0" (list 0 y0) (list x0 y0) (list x0 0) "0,0" "_C"
) }2 J8 [) F8 e, l, a( R1 b* P
"RECTANG" "8000,2000" "@108800,80000"
# B. V% y( Q- u0 R
"RECTANG" "8800,2800" "@107200,78400"% T0 h/ ~$ C: i8 d V" M
"ZOOM" "_a" ))
' |) e8 T1 |6 T% e( a
0 X( @* O' c, r9 R
;=====================================================================
6 }4 s4 b; f/ ~. v0 X
;==================DAT KhoGiay Theo KHO GIAY BAN VE===================
, F- h% u$ z) w
;=====================================================================. d. M0 E9 Z# ]5 n% c% f& \7 g) \
(defun c:khogiay (/ oldlst a b c d e f g h kho TL)/ E; T g: e3 J
(command "undo" "be")
- u6 D6 j* W/ P0 ^. r" R
(setq oldlst (mapcar 'getvar (list "CMDECHO" "OSMODE" "cecolor")))
+ \. e$ e& C, R# k
(setvar "CMDECHO" 0)
1 G) i$ g* M; V# w- c7 H
(setq a (getpoint "\n chon diem chen :"))5 L5 d- l3 ]. ~/ q! v* c* x4 ?
(if (not TL) (setq TL 1.00))2 b# W. ]" ]/ l
(setq TL1 (getDIST (strcat "\nScale <" (rtos TL 2 2) ">:")))
3 b# B) a B6 ^) L; T8 z" f
(if TL1 (setq TL TL1))7 Q' |6 m2 ~" W& t
(setvar "osmode" 0)
$ [# A; `8 c% K7 k
(if (not (tblsearch "layer" "Defpoints")) (Command "layer" "N" "Defpoints" ""))# T3 m* U" |' k; h# l7 S
(initget "0 1 2 3 4")
8 S# x! d& ?7 c' K
(setq kho (getkword "\Kho A0 _ Kho A1 _ Kho A2 _ Kho A3 _ Kho A4 [0/1/2/3/4]? <0>:"))& x( f2 o/ Q* H& Z9 R x+ t( G5 N
(if (= kho "0")+ `7 i8 K1 I$ V% _2 _ a7 O
(progn* C3 N% y5 J$ R* d/ \7 b5 L, ^8 m
(setq b (polar a 0 (* TL 1189)))1 q" L* ?0 l, q* W4 i& z U
(setq c (polar b (/ pi 2) (* TL 841)))
4 D( B( B0 o3 k# d3 Z! }7 |* @
(setq d (polar a (/ pi 2) (* TL 841)))7 p) v4 z" _& q2 i4 z
(setq e (polar a (/ pi 4) (* TL (sqrt (* 2 12 12)))))) Q6 H0 r% b' p+ ]4 X0 P; \( v
(setq f (polar e 0 (- (* TL 1189) (* TL 24))))
W& C7 P9 w s! Y
(setq g (polar f (/ pi 2) (- (* TL 841) (* TL 24))))# d" m$ C3 B/ e5 s0 V- u# L
(setq h (polar e (/ pi 2) (- (* TL 841) (* TL 24))))1 l, v; \" l$ ]) H7 j
(command "Pline" e f g h "c")
3 Z) k3 U! J% N6 S6 l# _. S: m
(command "change" "last" "" "properties" "layer" "0" "")) l. ~9 j5 [8 M" I: t9 l+ |, J6 c4 `8 c
(setvar "cecolor" "4")
$ k, S+ E9 r6 J+ T0 C: X' S0 ?
(command "Pline" a b c d "c")
3 h) n# \* [# u0 }; Y
(command "change" "last" "" "properties" "layer" "defpoints" "")))
$ C* G5 G3 Y! i6 }# G1 B
(if (= kho "1")
) I7 C' ^! A) j! J8 e7 L# {
(progn- P6 Q, K0 T: e. l7 Q' X7 f, }. T' P
(setq b (polar a 0 (* TL 841)))
9 T3 O! F% |1 G* q
(setq c (polar b (/ pi 2) (* TL 594)))% q( j* O8 k9 z# X
(setq d (polar a (/ pi 2) (* TL 594)))% X) f( D& t9 Y
(setq e (polar a (/ pi 4) (* TL (sqrt (* 2 12 12)))))
6 i3 G4 R: _ r
(setq f (polar e 0 (- (* TL 841) (* TL 24))))
- x5 _3 h8 R* B8 n- q" w/ a
(setq g (polar f (/ pi 2) (- (* TL 594) (* TL 24))))
' o: J1 X3 U6 y7 l- Z
(setq h (polar e (/ pi 2) (- (* TL 594) (* TL 24))))+ n9 h+ }) T2 u
(command "Pline" e f g h "c") 1 }6 p" _. b* U2 L6 L
(command "change" "last" "" "properties" "layer" "0" "")$ a H; t& j2 m) W& ^
(setvar "cecolor" "4")
& B9 v8 E: C `+ }& D0 O' s+ @
(command "Pline" a b c d "c")9 M/ G4 _$ G6 e% ~3 k
(command "change" "last" "" "properties" "layer" "defpoints" "")))) l# B8 M* [5 H5 I- _
(if (= kho "2")
1 t/ o4 \: Q+ [' {
(progn# r" Y; a0 P: W1 n g
(setq b (polar a 0 (* TL 594)))
! f/ z O. E8 q: |; S
(setq c (polar b (/ pi 2) (* TL 420)))# `$ y- l3 p% n- a
(setq d (polar a (/ pi 2) (* TL 420)))
! w( K- {$ V& J7 j) m! a- q
(setq e (polar a (/ pi 4) (* TL (sqrt (* 2 100)))))
8 H" a* ]) ^! b# g7 R* E, M+ ~
(setq f (polar e 0 (- (* TL 594) (* TL 20))))) H; g( A4 d J$ t, v4 f4 @
(setq g (polar f (/ pi 2) (- (* TL 420) (* TL 20))))$ \, V6 b; i1 E' Z
(setq h (polar e (/ pi 2) (- (* TL 420) (* TL 20))))
8 y% ]5 P+ i1 _: X0 i- s# @
(command "Pline" e f g h "c")
" t; S1 {9 \% |& `) y- S* i: J8 j0 `
(command "change" "last" "" "properties" "layer" "0" "")
: t! w# f) }: n8 Z
(setvar "cecolor" "4")4 C8 b1 O1 F& ?
(command "Pline" a b c d "c")
. N; \0 Q8 u- |; I
(command "change" "last" "" "properties" "layer" "defpoints" ""))), w4 g3 o l3 A
(if (= kho "3")
* g5 t9 M) V- p1 D H' S
(progn
: Y$ c9 _' F* \4 D4 r
(setq b (polar a 0 (* tl 420)))
* S! A( f' Y" d% h3 R8 a7 N( h9 d
(setq c (polar b (/ pi 2) (* TL 297)))
: g9 ?- @, Z& Y( w2 U' ~& \) {
(setq d (polar a (/ pi 2) (* TL 297)))
4 [6 z2 @; c4 ]" y% Q8 a
(setq e (polar a (/ pi 4) (* TL (sqrt (* 2 100)))))
& n3 ]* c- Q4 f% h1 m# A9 y9 U1 [
(setq f (polar e 0 (- (* TL 420) (* TL 20))))
6 _$ }: U& t9 ?' r' I' B$ |
(setq g (polar f (/ pi 2) (- (* TL 297) (* TL 20)))) F/ L0 H5 f0 `2 j
(setq h (polar e (/ pi 2) (- (* TL 297) (* TL 20))))5 _6 P% Q! e* N2 [2 I; ~
(command "Pline" e f g h "c")
3 G' H0 A2 e9 h* E% y
(command "change" "last" "" "properties" "layer" "0" "")6 a6 Y" H( i5 q/ f" ^
(setvar "cecolor" "4")
% E" R9 @: n0 s* v
(command "Pline" a b c d "c")
7 K! P2 A+ \- X
(command "change" "last" "" "properties" "layer" "defpoints" "")))
/ t7 S0 \3 x$ A# M t m
(if (= kho "4")
W) L) T3 F' ~4 r9 f) S
(progn
$ k4 K! c1 c, b& F' C" p" S
(setq b (polar a 0 (* TL 297)))
& w3 j! t+ i! D# G
(setq c (polar b (/ pi 2) (* TL 210)))
+ U5 a: o" T4 N+ M4 S4 y
(setq d (polar a (/ pi 2) (* TL 210)))0 H' L2 |3 {5 E# c, u' e
(setq e (polar a (/ pi 4) (* TL (sqrt (* 2 81)))))
1 a2 E3 {( T* H: d
(setq f (polar e 0 (- (* TL 297) (* TL 18))))4 h5 \& J: ~! v' m
(setq g (polar f (/ pi 2) (- (* TL 210) (* TL 18)))): y5 y# P9 _5 Z* H% E5 m
(setq h (polar e (/ pi 2) (- (* TL 210) (* TL 18))))9 I1 O' f) h, D v1 t. R
(command "Pline" e f g h "c") 8 c. O6 Y- x) d* G
(command "change" "last" "" "properties" "layer" "0" ""), E6 x# R4 `! p/ t* `
(setvar "cecolor" "4"), P! u, ?7 x4 b R
(command "Pline" a b c d "c")
& T: X5 h) D9 }. }5 X
(command "change" "last" "" "properties" "layer" "defpoints" "")))' h1 s3 G' M& R8 t7 `
(mapcar 'setvar (list "CMDECHO" "OSMODE" "cecolor") oldlst)
) J: }4 k" b3 D$ S2 ]
(command "undo" "e")
' O, Z4 s5 U3 U9 l
(princ))9 `! d% h' G$ Q# ?6 U% [
;=====================================================================- v7 ]4 e2 D0 x a: ^- i9 Q
;==================DAT KhoGiay Theo KHO GIAY BAN VE===================+ l8 O7 f3 y3 W Y4 h0 `: M; Q' E. \
;=====================================================================$ I% y* [* A; m; m0 x$ \
7 l2 j2 i0 t- k% b4 E1 F+ r
;=====================================================================& v3 Q n K/ W- d; V) {$ [+ v. Q: L
;===================DAT Ti Le Theo KHO GIAY BAN VE====================
' W/ W, A8 ~, P' _4 D& g
;=====================================================================
7 [+ {8 ]& u( B+ j
) | w- f2 }& s. V# n
(DEFUN C:SA6 () (COMMAND "-LAYER" "M" "NETDUT" "C" "8" "" "Lw" "0.1" "" "LT" "ACAD_ISO03W100" "" "" "LTSCALE" "5" ""* e }" N+ V- t' S0 T
"-LAYER" "M" "TUONG" "C" "4" "" "Lw" "0.3" "": M& i5 u) j+ ~0 C0 M
"M" "MANH" "C" "9" "" "Lw" "0.1" ""
# V" h3 V {/ S- W
"M" "TEXT" "C" "7" "" "Lw" "0.12" """ d4 B0 P; X M" E# T
"M" "DIM" "C" "1" "" "Lw" "0.12" ""
( Z7 G5 h4 T( A: O& D9 m# a: @
"M" "THAY" "C" "7" "" "Lw" "0.2" ""
) U, p$ d* D, j. c/ X
"M" "NOITHAT" "C" "3" "" "Lw" "0.12" """ y2 P) z$ O. }1 a! [
"M" "HATCH" "C" "5" "" "Lw" "0.1" "". c( e- U" T3 F7 q' p
"M" "COT" "C" "1" "" "Lw" "0.3" ""
' r3 B" |; L% W! E! t- [4 o% G
"M" "Defpoints" "C" "7" ""2 g6 ?# u' f* ]+ J# |4 r, e# {2 P
"M" "0" "C" "3" "" "Lw" "0.12" ""
# ?/ V; T0 d+ z! _4 ?
"M" "CUA" "C" "6" "" "Lw" "0.12" ""4 _( }& y ?) Q: w8 A
"M" "CUA MATDUNG" "C" "6" "" "Lw" "0.12" ""
" }3 F9 l1 T. g I8 p
"M" "TIMTUONG" "C" "5" "" "Lw" "0.1" "" "LT" "ACAD_ISO10W100" "" "" "LTSCALE" "3" ""))
9 x1 U1 n. H4 i9 @( p2 ?3 I/ `
(DEFUN C:SA5 () (COMMAND "-LAYER" "M" "NETDUT" "C" "8" "" "Lw" "0.12" "" "LT" "ACAD_ISO03W100" "" "" "LTSCALE" "10" ""; t- X5 b, I; I- L, \
"-LAYER" "M" "TUONG" "C" "4" "" "Lw" "0.4" ""
6 ?: p8 p2 E7 v' {. U. F) I
"M" "MANH" "C" "9" "" "Lw" "0.12" "", d) D! Z. a W ? a, R* I
"M" "TEXT" "C" "7" "" "Lw" "0.12" ""
* N7 ]8 ?( |8 X- ^) [0 T# X
"M" "DIM" "C" "1" "" "Lw" "0.2" ""
# D7 q- e6 w$ R$ R$ e8 Z
"M" "THAY" "C" "7" "" "Lw" "0.2" ""
; i' T4 L, `7 P2 J
"M" "NOITHAT" "C" "3" "" "Lw" "0.2" ""6 C8 O. @+ ~* Z/ B, G: }0 n2 F
"M" "HATCH" "C" "5" "" "Lw" "0.1" ""
0 k* \0 t5 G" Y6 z# z
"M" "COT" "C" "1" "" "Lw" "0.4" ""
- S- ?' x- e6 R# L; J4 k, e
"M" "Defpoints" "C" "7" ""; A. N' J* K# O. B. Z& O* w. l% i
"M" "0" "C" "3" "" "Lw" "0.2" ""
3 x; i, `+ `2 _2 x7 }; U$ z. s: j
"M" "CUA" "C" "6" "" "Lw" "0.12" "", S0 |& \8 ]; m% B' l5 `) S
"M" "CUA MATDUNG" "C" "6" "" "Lw" "0.12" ""
* i- U' f J1 }
"M" "TIMTUONG" "C" "5" "" "Lw" "0.15" "" "LT" "ACAD_ISO10W100" "" "" "LTSCALE" "5" ""))
5 e# l; M& D# c+ Q8 I* Z3 K
(DEFUN C:SA4 () (COMMAND "-LAYER" "M" "NETDUT" "C" "8" "" "Lw" "0.2" "" "LT" "ACAD_ISO03W100" "" "" "LTSCALE" "20" ""4 W5 q. s1 k3 q+ f& r
"-LAYER" "M" "TUONG" "C" "4" "" "Lw" "0.6" ""
0 Q& M5 X& p- N8 {9 Z* K
"M" "MANH" "C" "9" "" "Lw" "0.2" ""4 C) t0 _: s6 N1 ^/ a
"M" "TEXT" "C" "7" "" "Lw" "0.2" ""0 f b9 a8 N% n% C
"M" "DIM" "C" "1" "" "Lw" "0.25" ""
$ K) _! S- j* ^1 _3 \7 a
"M" "THAY" "C" "7" "" "Lw" "0.35" ""
" m! t3 ?$ [& c. P7 Z1 Z1 y
"M" "NOITHAT" "C" "3" "" "Lw" "0.25" "", R( W, W9 e0 [
"M" "HATCH" "C" "5" "" "Lw" "0.15" ""9 ]' P L% _0 n. N6 |3 `
"M" "COT" "C" "1" "" "Lw" "0.6" ""2 _- S/ y/ M7 B
"M" "Defpoints" "C" "7" ""& p2 z& M/ I* f" L
"M" "0" "C" "3" "" "Lw" "0.25" ""7 u0 }: f A2 d
"M" "CUA" "C" "6" "" "Lw" "0.25" ""/ C; ?- p9 L1 @( i' M
"M" "CUA MATDUNG" "C" "6" "" "Lw" "0.25" "": N3 E% v8 F' T
"M" "TIMTUONG" "C" "5" "" "Lw" "0.2" "" "LT" "ACAD_ISO10W100" "" "" "LTSCALE" "10" ""))4 z6 P! V* k* i, s; z4 q0 P8 j
; D% W5 Z$ R. u* s1 p/ W
(DEFUN C:SA3 () (COMMAND "-LAYER" "M" "NETDUT" "C" "8" "" "Lw" "0.35" "" "LT" "ACAD_ISO03W100" "" "" "" "LTSCALE" "30" ""2 Z6 q4 l) j1 g9 b S! R" A
"-LAYER" "M" "TUONG" "C" "4" "" "Lw" "0.7" ""
6 D2 N: {$ L, D0 b7 b- T# b
"M" "MANH" "C" "9" "" "Lw" "0.25" ""
2 Z* Q9 i7 _/ u* r6 O) _
"M" "TEXT" "C" "7" "" "Lw" "0.2" ""
0 r' |6 D- p9 Y
"M" "DIM" "C" "1" "" "Lw" "0.35" ""
Q, }7 R/ e# a, X1 \! q6 L7 t
"M" "THAY" "C" "7" "" "Lw" "0.4" ""
* ]( f/ H% q2 f3 f0 ~3 z0 P
"M" "NOITHAT" "C" "3" "" "Lw" "0.25" ""
( E! _) E7 l" h+ U7 V
"M" "HATCH" "C" "5" "" "Lw" "0.2" ""
' j7 X* R9 x/ E N; h
"M" "COT" "C" "1" "" "Lw" "0.7" ""
$ l+ G7 J4 A8 i) u. H
"M" "Defpoints" "C" "7" ""& N O; y! G5 Z; u; n/ p' `; k
"M" "0" "C" "3" "" "Lw" "0.25" ""+ M- Y1 A/ \0 P I$ p
"M" "CUA" "C" "6" "" "Lw" "0.35" ""# Q/ G$ t9 Z- T8 O, h
"M" "CUA MATDUNG" "C" "6" "" "Lw" "0.3" "") g6 U0 g2 {# \( a8 U
"M" "TIMTUONG" "C" "5" "" "Lw" "0.25" "" "LT" "ACAD_ISO10W100" "" "" "LTSCALE" "20" ""))(PRINC)
, C7 W- e5 t8 |7 i/ d2 O( R
) h4 B* H N( v! p0 r9 U
(DEFUN C:SA2 () (COMMAND "-LAYER" "M" "NETDUT" "C" "8" "" "Lw" "0.35" "" "LT" "ACAD_ISO03W100" "" "" "" "LTSCALE" "45" ""% s% S& q n8 M2 w0 }) }9 v
"-LAYER" "M" "TUONG" "C" "4" "" "Lw" "0.7" ""; G% p# d( C3 J* `. E+ d9 j, U
"M" "MANH" "C" "9" "" "Lw" "0.25" ""
$ r U& c& l7 K2 K+ d; F, ^. J$ q
"M" "TEXT" "C" "7" "" "Lw" "0.25" ""
3 j' S& @9 u# \
"M" "DIM" "C" "1" "" "Lw" "0.3" ""1 n0 a$ D& S1 L5 i( g$ L/ a9 Y7 q
"M" "THAY" "C" "7" "" "Lw" "0.4" ""+ v6 n! Q9 k0 g0 a# M( `$ D" K& e3 y4 r
"M" "NOITHAT" "C" "3" "" "Lw" "0.3" "", n; n m4 \) \" x
"M" "HATCH" "C" "5" "" "Lw" "0.2" ""
$ F0 f4 S/ t$ Q- {' q1 i
"M" "COT" "C" "1" "" "Lw" "0.7" ""
' I9 H. e1 w4 r* l$ U, Z" v6 A
"M" "Defpoints" "C" "7" ""( B% t2 ]0 p( O: d+ ]/ p
"M" "0" "C" "3" "" "Lw" "0.35" ""
7 I" W, Y: p( t: [3 Q
"M" "CUA" "C" "6" "" "Lw" "0.35" ""* }! S0 L6 [- _+ @
"M" "CUA MATDUNG" "C" "6" "" "Lw" "0.3" ""7 b# Y, j7 B! T4 ~( ^) g, c. ~
"M" "TIMTUONG" "C" "5" "" "Lw" "0.25" "" "LT" "ACAD_ISO10W100" "" "" "LTSCALE" "30" ""))
' |9 z% X" ~/ v& Z) e1 C8 r
/ C3 N& x: q4 I* j6 Q6 o, H7 x; h. P4 V
(DEFUN C:SA1 () (COMMAND "-LAYER" "M" "NETDUT" "C" "8" "" "Lw" "0.4" "" "LT" "ACAD_ISO03W100" "" "" "" "LTSCALE" "60" """ J- U W) ^' h* Q9 `) [
"-LAYER" "M" "TUONG" "C" "4" "" "Lw" "0.85" ""
3 ^: H7 C4 K( Z
"M" "MANH" "C" "9" "" "Lw" "0.35" ""
" a2 c+ `& A/ i+ u# T
"M" "TEXT" "C" "7" "" "Lw" "0.5" """ Z& [- p! I/ U6 l
"M" "DIM" "C" "1" "" "Lw" "0.35" ""
) V1 _- s/ z1 H' @
"M" "THAY" "C" "7" "" "Lw" "0.4" ""9 q4 U* S k" H# v8 T
"M" "NOITHAT" "C" "3" "" "Lw" "0.35" ""+ Y% I8 j0 e+ j
"M" "HATCH" "C" "5" "" "Lw" "0.25" ""( L: F7 ]/ D5 x" n9 K9 }
"M" "COT" "C" "1" "" "Lw" "0.85" ""3 h2 b% Y% Z% ]
"M" "Defpoints" "C" "7" ""
5 j1 [) c- K' l, m h
"M" "0" "C" "3" "" "Lw" "0.35" ""
9 U: \2 Q4 P9 |9 Y
"M" "CUA" "C" "6" "" "Lw" "0.4" "": G# ~3 ]7 H, W' F' L3 w# k
"M" "CUA MATDUNG" "C" "6" "" "Lw" "0.35" ""
8 b$ d' ?4 T+ r
"M" "TIMTUONG" "C" "5" "" "Lw" "0.3" "" "LT" "ACAD_ISO10W100" "" "" "LTSCALE" "40" ""))
. y4 H, ?9 m( ^# Q' e$ P0 z8 t
" \ M8 h3 z" e* B+ f6 Q9 \
(DEFUN C:SA0 () (COMMAND "-LAYER" "M" "NETDUT" "C" "8" "" "Lw" "0.5" "" "LT" "ACAD_ISO03W100" "" "" "" "LTSCALE" "85" ""8 A0 E+ S3 Z/ u6 m- L: S1 P! ]5 Y3 b
"-LAYER" "M" "TUONG" "C" "4" "" "Lw" "1" "". {5 a1 {8 L' G4 @& o
"M" "MANH" "C" "9" "" "Lw" "0.35" ""
- t% `, e0 a; Y
"M" "TEXT" "C" "7" "" "Lw" "0.5" ""$ R) E0 _& ~0 M& }# R2 u
"M" "DIM" "C" "1" "" "Lw" "0.35" ""- _* R+ \. H: V3 o
"M" "THAY" "C" "7" "" "Lw" "0.5" ""3 C' a* O) }; ?
"M" "NOITHAT" "C" "3" "" "Lw" "0.4" ""( i0 E m6 t ?
"M" "HATCH" "C" "5" "" "Lw" "0.35" ""7 X9 d% v4 N! }
"M" "COT" "C" "1" "" "Lw" "0.1" "") J/ G) r0 }! @5 D9 |0 [- j/ A5 v
"M" "Defpoints" "C" "7" ""
) s$ L v v& n! E6 a
"M" "0" "C" "3" "" "Lw" "0.5" ""! A$ U4 u, f* g) o! O( G
"M" "CUA" "C" "6" "" "Lw" "0.5" ""3 f1 }8 [' F* z# z
"M" "CUA MATDUNG" "C" "6" "" "Lw" "0.4" ""8 z5 ~' g! i* c
"M" "TIMTUONG" "C" "5" "" "Lw" "0.35" "" "LT" "ACAD_ISO10W100" "" "" "LTSCALE" "55" "")) G, _4 d8 x$ b
(DEFUN C:O () (COMMAND "OFFSET"))9 p3 D2 Q3 I2 x, t7 I* C2 e
(defun c:s1 () (command "surftab1"))- c% w/ E3 T9 Q. c, E
(defun c:s2 () (command "surftab2"))$ p- O5 ]/ B* l" s" X
(defun c:ep () (command "explode"))4 @# `6 w/ k3 _ t; j+ ]. g' u- m
(DEFUN C:QS () (COMMAND "AUDIT" "Y" "purge" "all" "*" "N" "QSAVE"))
_# M$ C. F# g2 b7 T9 i2 m6 W
(DEFUN C:QV () (COMMAND "QSAVE"))
4 _) F. j. T, i9 ^+ @8 d
(DEFUN C:S () (COMMAND "STRETCH" "C"))0 E1 {( s+ ]7 D7 o. [( s5 e6 }9 t
7 p& h' M. h7 s1 F+ V6 ]- i' Z
;************************** CAT DIM **************************
|1 N8 [( B, x5 N9 _& z5 P6 }
' ?# b% v6 u" ~% ?; n
(DEFUN C:DC (/ CMD SS LTH DEM PT DS KDL N70 GOCX GOCY PT13 PT14 PTI PT13I PT14I; N0 c% Z h3 j" x Z
PT13N PT14N O13 O14 N13 N14 OSM OLDERR PT10 PT11)
: q" e0 m' E |0 @
(SETQ CMD (GETVAR "CMDECHO"))3 ]" j2 O" o% H8 Q
(SETQ OSM (GETVAR "OSMODE")). @; s& ], W" z
(SETQ OLDERR *error*- T2 P; Y% ]/ [' k1 ~ A1 a
*error* myerror). q1 Z8 @# B9 U6 ~3 i) u1 P7 ?8 ]4 i
(PRINC "Please select dimension object!")9 N0 n/ n, w0 N
(SETQ SS (SSGET))# g5 D6 x* ] o- `
(SETVAR "CMDECHO" 0)
# d9 g2 W, i1 O5 ?* N% c. o+ ^2 M7 ~
(SETQ PT (GETPOINT "Point to trim or extend:"))
1 G! t( b0 G& L2 j/ N- P
(SETQ PT (TRANS PT 1 0))" R" E7 Z# A3 _! R& ?9 N
(COMMAND "UCS" "W")
8 y0 i" D2 { |) c8 M) ^# f3 q
(SETQ LTH (SSLENGTH SS))6 ^1 H- k) J( z
(SETQ DEM 0)/ O( |3 s8 T x
(WHILE (< DEM LTH)
3 V# }1 `! ^) @6 P2 A% W
(PROGN& S" h" }- i% ]* \7 a# v
(SETQ DS (ENTGET (SSNAME SS DEM)))
2 o% `9 k- W1 o$ u
(SETQ KDL (CDR (ASSOC 0 DS)))
0 W* w! m( q* n0 C& n
(IF (= "DIMENSION" KDL)8 h8 g0 ~+ f8 M3 X% E6 E
(PROGN# q. ~ o3 R7 E; g( _4 O' z2 @/ \3 v
(SETQ PT10 (CDR (ASSOC 10 DS)))
- K# ?6 ]4 n$ G3 O" F0 R5 \
(SETQ PT11 (CDR (ASSOC 11 DS)))- V8 M5 F; D7 G) M
(SETQ PT13 (CDR (ASSOC 13 DS)))+ F9 I. ~+ y4 H" Z7 P1 N) f
(SETQ PT14 (CDR (ASSOC 14 DS)))
7 d! B1 g5 Q/ A" N) \
(SETQ N70 (CDR (ASSOC 70 DS)))
, E8 z7 C/ g8 b8 m3 H; H; u
(IF (OR (= N70 32) (= N70 33) (= N70 160) (= N70 161))
T: {& p: [+ O' [4 W
(PROGN' I" D$ H% u; I. z! v" @2 {( f
(SETQ GOCY (ANGLE PT10 PT14))" ^6 y3 }6 N/ s" T: n
(SETQ GOCX (+ GOCY (/ PI 2)))4 g8 i7 n3 _! Z1 Z
)
d8 w3 U: `2 |0 W. \: \" j
)( R; A2 Q5 c8 w
(SETVAR "OSMODE" 0)
' M; `, H% C% l: C* K n
(SETQ PTI (POLAR PT GOCX 2))
( g) k0 q/ f6 Q' @1 H
(SETQ PT13I (POLAR PT13 GOCY 2))
: N2 z1 c8 a P
(SETQ PT14I (POLAR PT14 GOCY 2))
* g- M/ W* I5 F& m9 T3 x" N
(SETQ PT13N (INTERS PT PTI PT13 PT13I NIL))
: K$ s. z: S# R* w# o3 f7 s8 E. Z
(SETQ PT14N (INTERS PT PTI PT14 PT14I NIL))
H4 L; Z. Y; V+ V4 x' C
(SETQ O13 (ASSOC 13 DS))
1 v* y7 ?# F+ L3 |
(SETQ O14 (ASSOC 14 DS))
/ {4 [/ A$ Q/ x; d8 K% c
(SETQ N13 (CONS 13 PT13N)): ?6 `+ A( d2 p8 W, ^9 m
(SETQ N14 (CONS 14 PT14N))
. }% ]7 O2 l) ^/ i1 v- _5 ]
(SETQ DS (SUBST N13 O13 DS))! E3 g6 A7 W" K6 y
(SETQ DS (SUBST N14 O14 DS)) [1 A8 r7 H9 f. l1 }7 [
(ENTMOD DS)
( Z% y+ W7 x# {. { k$ j8 G
)
7 r* p5 Y5 O d5 q" q
)2 k% j `# b0 s0 c9 U' }( e e: n
(SETQ DEM (+ DEM 1))" T; X9 h+ T- L3 W7 s; U
)5 k4 I. Q- A/ y/ B
)
7 r5 Y1 R3 E7 Q" h2 |
(COMMAND "UCS" "P")9 i+ o T0 W7 X* G7 S0 h
(SETVAR "CMDECHO" CMD)6 ~9 {4 B+ ~3 y+ r0 d
(SETVAR "OSMODE" OSM); g6 d2 f& e5 l$ x7 x
(setq *error* OLDERR) ; Restore old *error* handler8 \( }# J8 C! U! v4 X
(PRINC): W2 X! e3 U5 B. i& f- o* _
)
/ Q$ P2 e3 x& P! S. X3 M; _
0 v$ |. v7 D0 L0 S0 f
(DEFUN C:BD (/ CMD SS LTH DEM PT DS KDL N70 GOCX GOCY PT13 PT14 PTI9 @1 ~# [& F/ N# P* U9 v3 [5 k0 M! G, ^
PT10 PT10I PT10N O10 N10 PT11 PT11N O11 N11 KC OSM OLDERR); q5 n% y( y; { g& l% \
(SETQ CMD (GETVAR "CMDECHO"))5 Y, h8 ]5 g2 U+ `
(SETQ OSM (GETVAR "OSMODE"))) u& S( ? ^4 R% D* i8 E* b- v
(SETQ OLDERR *error*& l# y: d$ ~' k
*error* myerror)" g4 n0 s1 z8 D. y
(PRINC "Please select dimension object!")
' P9 n( _2 N6 `
(SETQ SS (SSGET))
& y* Z* h& d. x1 p8 O8 d3 d
(SETVAR "CMDECHO" 0)
' l" l( `# n2 @" G
(SETQ PT (GETPOINT "Point to trim or extend:"))7 [' _7 J% c' l8 W/ a$ V
(SETQ PT (TRANS PT 1 0))
, l* {1 ]7 e. z$ u0 k& T2 K) M- |0 _
(COMMAND "UCS" "W"), q; h8 }) O' D/ }
(SETQ LTH (SSLENGTH SS))
. }- F) w; b3 F- K- e9 z
(SETQ DEM 0)
% w6 E/ _, e" ?0 [5 q* L4 }$ X
(WHILE (< DEM LTH)0 I/ h; i! I( ?3 J4 e! |* u
(PROGN
# H i' l; j: t+ E, x" E2 n
(SETQ DS (ENTGET (SSNAME SS DEM)))
1 {0 x6 |0 {0 w0 Q; ^
(SETQ KDL (CDR (ASSOC 0 DS)))8 v0 [& T; e, j
(IF (= "DIMENSION" KDL)* I; w1 m8 C$ U5 c- v* D/ [
(PROGN- p& i! k6 P9 T, j
(SETQ PT13 (CDR (ASSOC 13 DS))). @3 T( ?+ q8 I! S' N, U1 V
(SETQ PT14 (CDR (ASSOC 14 DS)))
' `# L& d+ N& z" C3 y3 _0 A& a7 E
(SETQ PT10 (CDR (ASSOC 10 DS)))7 n0 I T0 n3 }' W0 k
(SETQ PT11 (CDR (ASSOC 11 DS)))6 c& R& h0 @, F* t4 W
(SETQ N70 (CDR (ASSOC 70 DS)))
# u' C) j* H M) j4 m- H
(IF (OR (= N70 32) (= N70 33) (= N70 160) (= N70 161))' e7 `! d* o2 \ r
(PROGN
: M. T, D: T& ?, s l$ ?
(SETQ GOCY (ANGLE PT10 PT14))
@4 A, q9 p# q5 j
(SETQ GOCX (+ GOCY (/ PI 2)))" S* x% U9 l( w2 n: @9 {0 `" `$ _
)
; V4 m+ N! t$ P( F, K! J5 _0 L/ ~2 u: `
)
2 V2 J5 W: d: B3 `5 d$ I8 v
(SETVAR "OSMODE" 0)
! v1 \2 b& z3 d( a6 h/ U& U2 y
(SETQ PTI (POLAR PT GOCX 2))
; Y3 O/ S1 r! h1 z" l3 n
(SETQ PT10I (POLAR PT10 GOCY 2))
, T' k N% I8 v" O3 P$ X! x. v# w
(SETQ PT10N (INTERS PT PTI PT10 PT10I NIL))3 V9 c; Z0 f# M" X. E
(SETQ KC (DISTANCE PT10 PT10N))1 a# u; r2 s) @$ n" S) Y& O
(SETQ O10 (ASSOC 10 DS))
+ x+ T4 w1 ?' w* Z- Y
(SETQ N10 (CONS 10 PT10N))4 n5 ?9 o1 b$ ?- Y) r6 F
(SETQ DS (SUBST N10 O10 DS))
! a) w, c" C# z$ d
(SETQ PT11N (POLAR PT11 (ANGLE PT10 PT10N) KC))9 m% Q3 l" x2 B) p1 t9 u
(SETQ O11 (ASSOC 11 DS))( |8 ~9 r+ L! u3 c; v( l0 _. |
(SETQ N11 (CONS 11 PT11N))
* B' [1 R. F8 K1 Y7 ]" m" M. ~
(SETQ DS (SUBST N11 O11 DS))' Z# G( [ j; M3 w
(ENTMOD DS)9 i0 K* o6 X% m6 L% K
)
# h, f9 ~2 v# {" N. r8 e8 F
): c( e- B! l9 Y u0 u6 s
(SETQ DEM (+ DEM 1))
+ R2 @ d$ }) i
)' E2 x5 f0 H' R0 \. l
)
& _, K/ z5 ^5 ?" n
(COMMAND "UCS" "P")9 u" f" S6 _# ^! I, k- @
(SETVAR "CMDECHO" CMD)
2 y Z1 G# [9 o5 O" ]+ ]
(SETVAR "OSMODE" OSM)7 o6 w: z; t" m, c$ e* y
(setq *error* OLDERR)5 y9 k& D* R/ \! |7 K
(PRINC)4 ~7 F l; f' G- a' t- l4 w
)3 g3 j! V9 v5 B4 j. a
/ G& z0 c2 G! o6 h' U; g- G, P
;;; ================ BAT - TAT CHE DO GACH CHAN TEXT (TU) =================* |0 ]8 T! X4 w
- c$ p) ?' n) K4 F0 p1 Z
(defun c:tu () (setvar "cmdecho" 0)(prompt "\nHay chon dong TEXT can gach chan ")5 @# t6 q: B# G, s; L
(prompt "\nSelect objects: ")(command "select" "au" pause)(setq sstxt (ssget "p")9 ~( `, I* G [) H* S' p2 h
sslen (sslength sstxt) ctr 0)(command ".undo" "mark")(while (< ctr sslen)(setq listxt9 b( ], t4 s9 `! ^* h! @
(entget (ssname sstxt ctr))txttxt (cdr (assoc 1 listxt))enttxt (cdr (assoc 0 listxt)))
0 k6 u: s0 ?* w8 V+ z
(if (= enttxt "TEXT")(progn(setq testxt (substr txttxt 1 3))(if (or (= testxt "%%u")- ?4 D; m" t2 Z0 E. t
(= testxt "%%U"))(setq newtxt (substr txttxt 4))(setq newtxt (strcat "%%u" txttxt)))% \. m- h e. Z
(setq listxt (subst (cons 1 newtxt) (assoc 1 listxt) listxt))(entmod listxt)))
# @2 B4 f6 ^9 M& v8 H" b0 ]* o
(setq ctr (1+ ctr)) ) (setvar "cmdecho" 1) (princ))) [% A! M) r: P, J9 X6 g; p
8 ^1 i }& t& G; o; n# O
;;; ================ CHEN COT (TUU) =================) v- R) @, K: T* W6 `. S( [3 @. @( G
0 I* d+ X3 w- A: L' g
(defun c:tuu () (setvar "cmdecho" 0)(prompt "\nHay chon dong TEXT can chen cot ")
/ o0 E% n) R% J; M9 W9 P8 H
(prompt "\nSelect objects: ")(command "select" "au" pause)(setq sstxt (ssget "p")
& n" ?9 m9 V* B. x/ i
sslen (sslength sstxt) ctr 0)(command ".undo" "mark")(while (< ctr sslen)(setq listxt
2 x) j e+ j6 l8 C5 R: z
(entget (ssname sstxt ctr))txttxt (cdr (assoc 1 listxt))enttxt (cdr (assoc 0 listxt)))! D' A5 p g9 Y( l5 D& |/ t8 A2 n
(if (= enttxt "TEXT")(progn(setq testxt (substr txttxt 1 3))(if (or (= testxt "%%p 0,000")1 o9 i+ f6 A" Q/ }5 N* G, O2 D0 Z
(= testxt "%%P 0,000"))(setq newtxt (substr txttxt 4))(setq newtxt (strcat "%%P 0,000" txttxt)))
+ ^, |6 ~8 X' @ R
(setq listxt (subst (cons 1 newtxt) (assoc 1 listxt) listxt))(entmod listxt))) j3 L% ^: Z t2 W
(setq ctr (1+ ctr)) ) (setvar "cmdecho" 1) (princ))- W5 q! u' E9 e q
( b4 S' {# W: M- Z
;;; ================ CHEN KY HIEU THEP (TP) =================
8 f- P: j5 M( n
" z2 }1 T/ X/ ~# }% X: ?
(defun c:tp () (setvar "cmdecho" 0)(prompt "\nHay chon dong TEXT can chen ky hieu thep ")
/ |3 Z( S( z4 N( r
(prompt "\nSelect objects: ")(command "select" "au" pause)(setq sstxt (ssget "p")
4 T1 o- N% Q4 C8 |
sslen (sslength sstxt) ctr 0)(command ".undo" "mark")(while (< ctr sslen)(setq listxt
0 D3 T' b5 v5 O
(entget (ssname sstxt ctr))txttxt (cdr (assoc 1 listxt))enttxt (cdr (assoc 0 listxt))) p3 m* ^$ H5 R$ ?
(if (= enttxt "TEXT")(progn(setq testxt (substr txttxt 1 3))(if (or (= testxt "%%c"); b; i- t9 [5 F7 g3 R& J
(= testxt "%%C"))(setq newtxt (substr txttxt 4))(setq newtxt (strcat "%%c" txttxt)))) B+ S2 \: K# K6 ]3 _4 h0 j' F
(setq listxt (subst (cons 1 newtxt) (assoc 1 listxt) listxt))(entmod listxt)))- X/ J( Z7 p) R' ~( a* t
(setq ctr (1+ ctr)) ) (setvar "cmdecho" 1) (princ))
3 N! y) _8 z$ f
1 C/ T! ]! y' @6 k1 w, {
;=========================== TAM TUONG (TAM) =================================
7 E0 ^8 V0 ]7 G9 x. l
# X {0 g- o2 T( u4 ]+ }9 z- g
(defun c:tam(/ data_m)5 t2 K6 G1 ?. L$ w% {7 A7 ~1 T4 p
(defun import_data(/ i)(setq data_m (ssget))(if (= nil distan_m) (setq distan_m 110.0))7 k0 z& E& m' a: @' V. N' G
(princ "Distance (")(princ distan_m)(princ "):")(setq i (getreal ))(if (not (= nil i))4 e: E) B; ]) |& Z0 x' ?
(setq distan_m i)))(defun process(/ ent check)(defun p_check()(setq check 0)5 e2 l4 z* c. f; H
(if (= "LINE" (cdr (assoc 0 ent))) (setq check 1))(princ))(defun p_d_offset
$ V% l$ _! ^6 n
(/ p1 p2 p3 p4)(defun makeline(/ e2 e5)(setq la (list (cons 0 "LINE")(cons 5 (cdr
. ]9 Y* g4 p J8 ]
(assoc 5 ent)))(cons 8 (cdr (assoc 8 ent)))(cons 10 p3)(cons 11 p4)))(entmake la)(princ)) F$ Q2 t7 Z, [2 `- ?8 u# |
)(setq p1 (cdr (assoc 10 ent)) p2 (cdr (assoc 11 ent)))(if (not (= p1 p2)) (progn (if
" f. o4 k2 r9 m. O5 v/ T( h4 P
(< (abs (- (nth 0 p1) (nth 0 p2))) 0.000001) (progn (setq p3 (list (+ (nth 0 p1)% m8 y: a7 N% F/ W/ ^
distan_m) (nth 1 p1) (nth 2 p1)))(setq p4 (list (+ (nth 0 p2) distan_m)(nth 1 p2)* D U) t1 d( G
(nth 2 p2))) (makeline) (setq p3 (list (- (nth 0 p1) distan_m) (nth 1 p1) (nth 2 p1)))1 o e% e7 V- J
(setq p4 (list (- (nth 0 p2) distan_m) (nth 1 p2) (nth 2 p2))) (makeline)))(if (<
8 U3 A9 n- ~: G- [
(abs (- (nth 1 p1) (nth 1 p2))) 0.000001) (progn (setq p3 (list (nth 0 p1) (+ (nth 1 p1)$ E" ]" {4 Z1 z! M ^. X" S5 g4 q
distan_m) (nth 2 p1)))(setq p4 (list (nth 0 p2) (+ (nth 1 p2) distan_m) (nth 2 p2)))
: ]8 S9 d/ |6 `% \* Z+ \
(makeline) (setq p3 (list (nth 0 p1) (- (nth 1 p1) distan_m) (nth 2 p1))) (setq p4 a) R3 R1 ] ~4 v
(list (nth 0 p2) (- (nth 1 p2) distan_m) (nth 2 p2)))(makeline)))))(princ))(if (not8 R l B1 ?* _$ T t2 [2 c
(= nil data_m)) (progn (setq i 0)(while (< i (sslength data_m)) (progn(setq ent (entget" t& B- c: p# e" B$ G7 |. n
(ssname data_m i)))(p_check)(if (= 1 check) (p_d_offset))(setq i (+ i 1))))))(princ))
5 K+ c" b. M- \" b+ ? o0 L
(import_data)(ai_undo_push)(process)(ai_undo_pop)(princ))! V! y! T( V+ ?# o
2 F C' G+ s( ?' ~
;============ GHI CHU PHI (T1) ================
" V) ~7 v0 i/ p; @6 A' h
: ^& H% ?, P) a6 R9 T
(defun c:DuongDan ()(setq D1 (getpoint " Diem thu nhat: "))(setq D2 (getpoint "Diem thu hai: " D1))
) P9 F( U. o2 Q( r% B
(if (> (car D2) (car D1)) (setq D3 (polar D2 0 16)))(if (< (car D2) (car D1)) (setq D39 p0 W; E5 ^# l( R1 V
(polar D2 PI 16)))(if (= (car D2) (car D1)) (setq D3 (polar D2 0 16)))(if (> (car D2)8 n2 T F' a+ J1 n( T4 M* q
(car D1)) (setq D4 (polar D3 0 3.2)))(if (< (car D2)(car D1))(setq D4 (polar D3 PI 3.2)8 }% ?+ t) B5 t- @1 G2 G, S
))(if (= (car D2) (car D1)) (setq D4 (polar D3 0 3.2)))(if (> (car D2) (car D1))
/ F3 z8 {1 ^8 F0 L+ L
(setq D5 (polar D2 (/ PI 9) 3)))(if (< (car D2) (car D1)) (setq D5 (polar D3 (/ PI 9)4 f# z" o; s- v2 L
3)))(if (= (car D2) (car D1)) (setq D5 (polar D2 (/ PI 9) 3)))(command "color" 1)
1 L- R, a" c! a% k" {! H
(command "line" D1 D2 D3 "")(command "circle" D4 "3.5")(command "color" 7 )
5 w4 i2 z6 U% P9 P# F
(command "text" "m" D4 2.5 0 "1")(command "text" D5 2.5 0 "%%c6a150")0 n7 D( t. Y; ~- m \
(command "ddedit" pause))
( e+ c* Y, S8 m2 Y4 W( z$ T
- x- P9 ~/ x F
;;; ========================== Join (J) =================
: }. P9 e2 u9 X; h* ?* f
/ R7 A" v5 q7 t' S2 x
(defun C:J () (Setvar "cmdecho" 0)(setq m:err *error* *error* *merrmsg*)(setq sset (ssget))
, j0 B$ M2 m6 |" u. @0 F( A
(if (null sset) (exit))(setq kt (getstring "\nJoin all (Y/N) <Y> ? "))/ m' Q* y) T2 x: T' X# d
(setq ssl (sslength sset))(setq temp (entget (ssname sset 0))etype (cdr (assoc 0 temp)
) Q0 u' f7 L8 M% y
))(cond((or (= kt "Y") (= kt "y") (= kt ""))(progn (cond((= etype "POLYLINE")6 N8 N1 N1 o2 Z3 w P6 t
(COMMAND "PEDIT" sset "J" "all" "" ""))(if (or (= etype "LINE") (= etype "ARC"))# }9 t. U: g D2 A$ I1 n
(COMMAND "PEDIT" sset "" "J" "all" "" "")))))((or (/= kt "Y") (/= kt "y") (/= kt ""))
1 v. N, O+ Z7 X
(progn (cond((= etype "POLYLINE")(COMMAND "PEDIT" sset "J" sset "" ""))
2 @4 q9 A2 D7 _' w4 S
(if (or (= etype "LINE") (= etype "ARC"))(COMMAND "PEDIT" sset "" "J" sset "" ""))))))
5 C, Q# U' s& Q8 F2 s9 J
(setq *error* m:err m:err nil)(princ))
& L2 W' \9 r' y
5 ^5 R. N% @! j' I
;=====================================================================/ ]* ^/ t/ ]7 W5 h P/ p1 v5 S+ u$ Z
;;; DOOR.LSP 1.0, Copyright (C) 1998 by CAD Department, HUCE.
) Q# O W; X/ e4 z: P2 \
;=====================================================================% m5 [+ @5 l; ?8 Z
& R( u3 j7 }! i0 l5 `
(defun C:D1 (/ p1 p2 p3 p4 side dis wid ang angsile old)
. |8 ~4 P9 E; L) P/ k, M
(setq old (getvar "OSMODE"))
3 v, [( v _/ W
4 I7 Q7 d2 j4 S* N2 A5 B9 ^
(setq p1 (getpoint "\nStart point:"))
) S( C o3 q H: ]) g: J( C
(setq p2 (getpoint p1 "\nEnd point:"))
# w/ ?$ ]- M( e2 u# M
(setq side (getpoint p2 "\nOpen side")), o4 T: h/ ?% S; s5 Q. w. S
+ H- I8 {! o! Q y( O" d
(setq dis (distance p1 p2))+ }) @: P8 ]3 D: G8 O2 k$ l
(setq ang (angle p1 p2))
: O- Z$ k" n* Q( e2 q
(if (< ang (angle p1 side))
1 X3 y9 ?+ r2 j, x9 s: }5 v4 ^2 D! x
(setq angside (/ pi 2) )
$ j$ Z; ?0 J4 z* k7 R
(setq angside (- (/ pi 2)))$ d. O% N0 Z4 p' G e, v) L& Q1 h
)
. l, c6 z6 S; ]- f" w$ P
(if (>= (- (angle p1 side) ang) pi)# h! f1 }) P% u% c7 W7 r
(setq angside (- (/ pi 2))), m& a! _7 X1 y* k
)
. r; }# Q' \) S
(if (>= (- ANG (angle p1 side) ) pi)1 {- {9 ~3 u. v; Q
(setq angside (/ pi 2))
7 k: r4 c3 Y$ r. A0 L
), C# P4 d3 m! v& N% Z7 r+ U/ K
3 y0 F! r" d4 ?% v& R [; l+ w
(setq p3 (polar p2 (+ ang angside) dis) )
# I( z: Z, a& L6 K4 B
(setq p4 (polar p1 (+ ang angside) dis) )
9 j3 L1 f1 X8 r& v. Y
(setq wid (/ dis 15))
' D4 \4 w- k _
8 ?0 G- m: u/ P6 O* p/ V/ X( C5 {( M
(setvar "OSMODE" 0)) Z. |. A/ x h- H0 Q9 U
/ [, S8 Q0 N$ ?9 s
(command "PLINE" p1 "A" "D" p4 p3 "L" p2 # H) P' G9 g: M( s( ^* b* s8 M
(polar p2 (+ ang pi) wid)
7 K" _8 ?1 u4 D& r5 ]1 r7 |1 f" v
(polar p3 (+ ang pi) wid)
3 |4 v6 M6 N; A- @
"")
0 k% U% {" _" Z3 z
9 p2 x4 {% }9 |- G1 }6 V
(setvar "OSMODE" old)
% b$ r* ^3 I9 U4 R. l& Q4 B
(princ)( i+ b0 m8 N1 F( a- e
)& q9 W; [# m; G# ]1 @1 y* ~
/ m1 G, s* \- \/ |0 Y- [* g
;=====================================================================1 ], { J1 R. @9 R3 T) f
2 k$ r9 \" _3 E7 K+ R1 |1 a
(defun C:D2 (/ p1 p2 p3 p4 side dis wid ang angsile old)
4 H9 Q% r# D( ^( D" d' C$ h I6 J
(defun cua1 (pt1 pt2)
2 U% L* y% h. F9 V9 e
(setq p1 pt1
& c3 }! Z2 u" `" L
p2 pt2)4 S! j1 m5 \' T+ n# q# ]& ]
: N. |5 W7 c9 Q9 |& G
(setq ang (angle p1 p2))3 V) m' q9 i4 O1 j8 H1 j7 j' Q$ ?
(if (< ang (angle p1 side))
' j0 C8 V& Y7 f3 \7 ^1 f1 n2 J; F
(setq angside (/ pi 2) )7 |6 s- }% U& M; P$ [ z
(setq angside (- (/ pi 2)))
6 K6 J$ w# a# O6 c Y$ S
)
& r; B- S& g0 m+ y; Z1 O
(if (>= (- (angle p1 side) ang) pi)1 w3 @! x1 f e0 T3 r' Y
(setq angside (- (/ pi 2)))) N% B6 Z: ?' m8 n
)
- R) G( K& t& g
(if (>= (- ANG (angle p1 side) ) pi)
/ Y7 I. X+ }; a) k9 v( {) a
(setq angside (/ pi 2))
, @+ S5 Y: u- P+ ?1 ^9 E- g x
)
( \. [: b( I, K+ l) r
: q# Z# k9 R- _$ q6 X M
(setq p3 (polar p2 (+ ang angside) dis) )5 k) }: |2 e7 K* Z
(setq p4 (polar p1 (+ ang angside) dis) )
) h3 u! V, d6 ]4 E T* q
(setq wid (/ dis 15)): p/ X: U- z; ~3 P
+ Z7 w6 l. T; Z' V6 Z3 r$ S
(command "PLINE" p1 "A" "D" p4 p3 "L" p2
/ k+ D. a# e& b
(polar p2 (+ ang pi) wid) + d; [ m) s& e! K/ S0 t
(polar p3 (+ ang pi) wid)
" a' G* k W# I& p4 S- J; p' s
"")
5 e$ D/ H: V$ s6 J8 A% V7 F6 [
)9 X5 t* u7 Y9 f$ y7 l2 y
;=====================================================================2 S M( { Q1 j+ p& j- }
(setq old (getvar "OSMODE"))
, n/ S4 n0 }' t+ P* c7 w8 Z
7 l8 v" j W+ f8 E( E
(setq p1 (getpoint "\nStart point:"))7 @3 D( I/ t. X5 w
(setq p2 (getpoint p1 "\nEnd point:"))
' p8 D1 i, s ?) M6 m& h
(setq side (getpoint p2 "\nOpen side"))
X8 E0 H+ Y, q; A. p; M
- C- _$ q# O' f* \
(setq dis (distance p1 p2))8 ~- }* ?0 D) s/ m
(setq dis (/ dis 2))
7 O5 S8 l- u$ [, l
7 u" t' l( x9 z6 N1 E: r0 k! R
(setvar "OSMODE" 0)
- l! m+ s/ u, T, `" t8 V$ E* b8 T
9 u5 X" |& ]9 J& E
(setq p1 (polar p1 (angle p1 p2) dis))
2 o, G. B/ E7 d# ]5 f
(cua1 p1 p2)
6 \ L7 N3 Q$ o" [% u( U- W
y5 P% x% C( q2 I( R# j
(setq ang (+ ang pi))# [. J9 b: ]( b) |. e
(setq p2 (polar p1 ang dis))9 [, K, q- z/ C) r
; (setq side (polar p1 () dis))3 [ L& H! F6 {5 r/ U! m. x- Y5 ~- G6 L( |
(cua1 p1 p2) . n# U: e! ~7 S; r# m* H/ X( k
. S, S4 X0 @" _7 B
(setvar "OSMODE" old)8 |0 A$ ~: H; c; J& |
(princ)
4 }6 t, p$ I6 _$ H) m7 q8 H
)
& A0 d0 m" b5 P( \
! V* R% n( Q9 f3 z% R
;=====================================================================
$ s: ? n- t/ F
;"Glue" text strings. All adopt first's properties.
1 X$ w* n8 _( }
; Author:6 v& P* M \9 f( H4 ^3 c4 V
; Henry C. Francis" D p+ W% w* k3 K
; 425 N. Ashe St.
9 x" l7 g4 m. A
; Southern Pines, NC 283870 [ H: |$ M& Z; l# G; y$ {
; http://www.pinehurst.net/~pfrancis8 Y/ T, ^( w9 z& E8 ~( x. d
; e-mail hfrancis@pinehurst.net' q4 Z! w' A# H( {1 o- X# a/ U, I
; All rights reserved.# i: [, @" a8 ]9 `4 {
(defun c:gst ( / ename ent1 ent2 old1 oldsl old10 old11 old40 old50 newstr newsl new1 new10 new11)9 X: `( h2 i0 Z" ^
(while+ Y& v( |& v' A* ^1 p1 r& T P
(not, S& V: ~- Y `! M2 F
(and% Z" j7 Y' d% S# j
(setq ename1 (car(entsel "\nSelect first text string to join: "))); l* j* c9 k: N$ j+ k) t7 A% {; F: A
(setq ent1 (entget ename1))0 o& ]0 Z2 |7 R$ _
(eq(cdr(assoc 0 ent1))"TEXT")
' f; }" }# M! l" F# u
);and3 z! @9 N$ `+ B/ H0 g
);not
, D9 y- ]8 T" S$ f$ V7 I* G% s* P2 C
);while; E: ~( o4 g" X- y3 E
(setq old1 (cdr(assoc 1 ent1)))8 [! f% I1 _$ H5 ~9 Y
(while. B! T; c% A; V! Y
(not
$ G/ o a+ g4 U) q: P @% E( v4 W
(and
% \. U/ E0 }0 V* Q' D8 y4 J
(setq ename2 (car(entsel "\nSelect second text string to join: ")))
M; Z! h3 }, `" ?$ H
(setq ent2 (entget ename2)): I% e0 Q' p1 g" Y
(eq(cdr(assoc 0 ent2))"TEXT")
9 o: j7 ^$ i6 V$ S
(not(eq ename1 ename2)): f5 m8 R% g f$ C
);and+ d. C1 S3 ]' C# J
);not
9 y1 N8 ]( R' F( l. v- B* i7 D
);while
: Q* I9 ~: [- x7 ^ {- b
(setq old2 (cdr(assoc 1 ent2)))+ P/ [3 `% c; w$ Y |
(setq new1 (strcat old1 " " old2)! X6 a+ d- p- Q0 n+ o+ D
ent1
7 q* d5 p* r. v# f) D! E* x
(subst (cons 1 new1)
0 K! x. U( q9 t8 E! e+ w* k
(assoc 1 ent1)
" @! R3 w8 Z: H- c& |4 L, N4 \0 D
ent1)1 x. n; E! H0 a1 ~) a6 A v4 r
);setq
: g3 h, S5 C' A( `, o" J
(entmod ent1)0 x8 M g' @: q+ @1 K
(entdel ename2)
- W* e4 M" d1 i* F+ ^
(princ)9 r5 e& L3 g8 `" }; k' z
);defun
; A9 \0 r- A* `7 m3 [* ?
/ j% M2 A2 ~+ e* J. i
;=====================================================================
% {* y; b' K9 y( ?# W4 T! G( S5 h
, r6 [( s6 E: H/ ^9 e0 F* ^ A
(defun c:nt (/ g1 g2 ss1 olderr nterr l i temp e1 e2 new old dd dc)( m6 q% x+ L8 |. |
) C" Z9 Y7 K- R7 d7 c( P/ o# n
(defun nterr (s)
( |3 q g3 u. `2 @+ S9 o9 A1 \* K
(command "_.UCS" "" "_.UNDO" "E")- w! g4 n3 A0 E; j
(setvar "cmdecho" 1)
6 c1 L) q3 ^% x- n* x/ E
(setvar "blipmode" 0)
1 s- f* ?9 ^, K2 o$ e2 @8 n/ U
(setq *error* olderr)
; l* n6 m( k) ?3 \
(setq g1 nil g2 nil ss1 nil e1 nil e2 nil olderr nil 5 E1 Y T" O6 q
nterr nil temp nil i nil l nil new nil old nil dd nil dc nil)( s3 A7 U8 F3 {- D. I1 i5 v
(princ)
8 W t) C" N* f* q( M+ d4 F( B; S
)
' g( J* C! n K
@% ]) Z B) k% {, Z
(defun tim_in (dt / p01 p02 ktra)
3 \1 `+ G* P4 q/ j6 c) X
(setq p01 (cdr (assoc 10 (entget dt))))
$ i/ o6 k& t, ], f
(setq p02 (cdr (assoc 11 (entget dt))))% B9 p8 q, p7 d: F% b6 ]: h1 `) P
(setq ktra T)
4 b( W: }% ~7 k0 Q8 l+ _& T
(if (and (> (car p01) (car g1)) (< (car p01) (car g2))
{* P/ k) E' f
(> (cadr p01) (cadr g1)) (< (cadr p01) (cadr g2)))
$ N; f: E$ L0 F) p& R- ~- ^5 G
(setq ktra nil)7 ^7 J9 B0 ]- _: t6 A7 k. P- }6 P- s
)9 |4 V3 u8 M/ X3 V9 S
(if (and (> (car p02) (car g1)) (< (car p02) (car g2))
0 S3 ?! V o7 Y ]; ~
(> (cadr p02) (cadr g1)) (< (cadr p02) (cadr g2)))- p$ ]3 E& Y( D% ^6 S! a+ T" D
(setq ktra nil)
3 n4 e# J( }6 s# M- y+ N3 p
)
' ~4 `$ P3 k$ H3 c# e/ @; B
ktra, f3 Q6 i8 v# m3 Z+ e
)9 u1 ^) ~. j# J( g# Q
' h" T2 U- J0 c1 P; V0 T9 d
(defun timdt (dt1 dt2 / p01 p02)
7 k: |1 n4 G+ {, u9 i
(setq p01 (cdr (assoc 10 (entget dt2))))+ n" J+ }$ |9 S, n
(setq p02 (cdr (assoc 11 (entget dt2))))
8 M2 A8 W- J( x/ K) w
(setvar "ucsicon" 0)
& y G& ?4 c3 E: _
(command "_.UCS" "E" dt1)2 L+ v$ j% [- O7 G/ z1 B
(setq p01 (trans p01 0 1))
, u1 I: e+ _, \6 k* K5 l
(setq p02 (trans p02 0 1))( I0 z/ X9 a" O( m& O0 k
(command "_.UCS" "")7 V9 G2 S& u/ I/ C7 ? E# x
(setvar "ucsicon" 1)" {4 s' P$ B; i* Z6 F
(if (and (equal (cadr p01) 0 0.001) (equal (cadr p02) 0 0.001))
4 [7 e1 V/ M4 n& B( R6 m$ U
T+ ?8 R+ W3 L; u# q7 v
nil7 q8 g/ i4 S; m E4 V- `
)
* s5 s7 z ^6 }7 A Z; ~: [
)9 W. F/ X0 c8 y* V+ q& W1 x
. l9 Z4 K/ N' ]! z
(defun tim_out (dt / p01 p02 kt)
* a- U" A' N6 z: O
(setq p01 (cdr (assoc 10 (entget dt))))
- d: `, e% c7 ]% M
(setq p02 (cdr (assoc 11 (entget dt))))6 d* z8 O2 Q \, ?$ w0 g! {- P; _! x: U4 ]
(if (and (> (car p01) (car g1)) (< (car p01) (car g2))
. T+ O# ?/ V) s7 p
(> (cadr p01) (cadr g1)) (< (cadr p01) (cadr g2)))
8 p& z! H6 k5 a8 i% @$ |
(setq kt p02)
3 S$ C# G1 \6 `2 a" V$ r
)
7 W) M, e Y3 s0 u5 I+ d
(if (and (> (car p02) (car g1)) (< (car p02) (car g2)) - d2 J* k( K+ R
(> (cadr p02) (cadr g1)) (< (cadr p02) (cadr g2)))6 \' a1 \: @/ h
(setq kt p01)& f5 A6 J+ R$ M+ J3 ?6 M y& P( }
)* N- Z/ c! a- D2 b3 I' t
kt
V" R9 k* B4 ?2 v; r/ m9 ^
)
* [9 L) y4 k; O2 ^" Q
# n1 K: b4 |. _" f* O) u# [
(setvar "cmdecho" 0)+ [* Z. h P" i" `: v
(setq olderr *error* *error* nterr)
9 Z: B7 J9 }, A7 m4 t! @
(command "_.UNDO" "G" "_.UCS" "")7 m0 u2 B7 E+ h* A& v
(while (null ss1)
/ n* ]& |' W# S/ [/ h5 [& ^6 u9 a
(princ "\nChon tuong muon noi...")$ D d; R- V8 G
(initget 1)
: A3 G" t! z" J( Y; V: ]4 {5 O4 @
(setq g1 (getpoint "\n>Goc thu nhat:"))) c8 r0 B$ w: j
(initget (+ 1 32))
+ S' i+ L- Q9 b
(setq g2 (getcorner g1 "\n>Goc thu hai:"))9 k* k( C5 t; p: \
(setq ss1 (ssget "c" g1 g2 '((0 . "LINE"))))
( L6 _5 m- _) y* H( C# J2 G, J
(if (null ss1) (princ "\nKhong tim thay doi tuong!"))( }3 c) {8 X6 A9 m9 ^5 r p
)# N; w- a% F% o& Q0 h9 J
; W F7 S. E' v' _
(setq temp (list (min (car g1) (car g2)) (min (cadr g1) (cadr g2)))+ I4 M7 x+ e! [
g2 (list (max (car g1) (car g2)) (max (cadr g1) (cadr g2)))% J5 {* f5 e. ], k+ m, Q0 c5 V9 h
g1 temp)( V* ] N. ~1 \3 Y) A
(setq ss1 (ssget "w" g1 g2))
5 J2 f' S5 D. p N
(if ss1 (command "_.ERASE" ss1 ""))" d: _6 N2 n$ L' D4 ~9 i$ j3 a' ]
(setq ss1 (ssget "c" g1 g2 '((0 . "LINE"))))
: q# N# t V! h& a3 `
( Z2 B; M+ u' R/ T" m
(setvar "blipmode" 0)5 e( d) A$ r6 v! X8 `& ]7 z
(setq i 0 l (sslength ss1)), j! Z5 I% ]* f! H# _* c8 \/ i& R X
(while (< i l)
7 A! K) e5 H. @3 x g& L
(if (tim_in (ssname ss1 i))# u/ P: P" T1 ]
(progn
; z( F2 V( t$ J3 T3 r
(ssdel (ssname ss1 i) ss1)
0 Z0 J r" }3 J0 w0 M2 l
(setq i 0 l (1- l))' s# }: U/ A Y2 y6 {1 @
)
8 x {3 ^$ d/ q7 V# i! K# @: a3 B
(setq i (1+ i))
$ L8 r% q! ?" [* Q6 @: F0 `
)
1 R0 T2 o" s5 X9 t
)9 Y# u: ]4 j5 F( G0 W
(setq l (sslength ss1))
# c/ i6 c( L; @
(while (>= l 2)
7 k9 p( u! o9 q9 @6 A4 \
(setq e1 (ssname ss1 0))! b. a9 g* p" I. x: c4 L K
(ssdel e1 ss1)6 {2 ~7 W, c$ _% K. u" [
(setq e2 nil i 0 l (sslength ss1))
9 l0 A( \+ [9 E/ Z5 p/ G) P
(while (< i l) 7 A2 v( u/ m% T0 B
(if (timdt e1 (ssname ss1 i))4 j4 H1 i- b) H Y
(progn) [3 u! w6 C% Y l3 H1 q$ J* t
(setq e2 (ssname ss1 i))4 r, Z# K* y- y0 C
(setq dd (tim_out e1))' {" n' A( J/ b$ i/ ~# P
(setq dc (tim_out e2))
8 l3 d/ N6 } [9 O( H- o4 M
)
* M0 t( d2 L9 m6 q
)' {0 T. ^" ?! J9 ~+ z- |' @" }
(setq i (1+ i))( n! @- P, q. D" y
)
1 r5 w6 C2 x& x0 ]
(if e2 (progn: C: t* L4 U8 L4 U) C4 G8 G% A4 j
(ssdel e2 ss1) 7 W! k& ^7 Z4 V( L8 s) k5 A% e' F. _
(command "_.ERASE" e2 "")) Y' A+ Y% U) T( B# w
(setq temp (entget e1))
- u/ Q- v) {' V
(setq old (assoc 10 temp))
& p' z1 ~4 I" c Y ]" m6 r* q
(setq new (cons 10 dd))
' i( t) i Z7 l* q
(setq temp (subst new old temp))
5 K9 O0 o4 j$ b v1 J$ x
(entmod temp)5 t4 m9 f/ n4 X9 ]0 \9 u3 b9 p
(setq temp (entget e1)) W2 O3 ~8 x y2 K v
(setq old (assoc 11 temp))4 o" U" j4 d8 B9 U6 l e$ d( v
(setq new (cons 11 dc))
% n6 Q. I6 n% i5 l5 T+ C
(setq temp (subst new old temp))
2 s( w/ M; t9 G# C( }& A! q5 n
(entmod temp)
0 x0 E# w( l, s
(redraw e1)
2 p* {( y. I& i s
(setq l (sslength ss1))
( S) ~7 U/ y/ o+ C3 q
)
! k2 ]( p% y6 R
)
; T$ F0 j% S7 ~9 t
)
, t( U7 Z5 b' S1 Q
, S. j. J# i# M2 M% h$ D) W
(command "_.UCS" "" "_.UNDO" "E")5 J- s r3 K( B. r7 b2 z
(setvar "cmdecho" 1)& o7 W$ O ?* R6 g% L% m
(setvar "blipmode" 0)5 J) i: l/ @0 p) u7 u! a, M' R$ |
(setq *error* olderr)
& M6 ^7 W+ y: ?/ S' X, l
(princ)1 L; O/ F2 h7 V* Q" q
)
9 Q' V" E/ n# Q7 J
;*********************************************************************3 J0 u2 [( z# x$ X* x; B! |/ y
(defun ketthuc ()! P; r" i8 [) B, Q' I3 w6 F" L# B- J: I
(setvar "cmdecho" luuecho)
: a' _$ c- r! C! c8 C
(setq *error* luu5 Q2 m1 G, z( n4 S [
luu nil
$ a8 R b- m0 I8 C+ R- N8 k: T
luuecho nil; q- }6 M+ M6 ?( a
);setq, t' Q) Y S. n t; }9 d4 s" D2 Z4 ^
(princ)
) ]# e# s" J0 i1 I7 l
)
, m% j" B( @: C0 z3 `' c% _
;*********************************************************************
9 Q: T! e" O! u# c
(defun modau ()& H; ~$ ~: L& w* G7 M
(setq luu *error
- w7 V, ^& i0 w5 P' w
luuecho (getvar "cmdecho")3 Z9 ]7 n9 j' t$ Z& L
*error (ketthuc)" I+ {3 C+ i" B4 W( c
)$ F+ q# V w; c G; F
)
! N5 C& h6 I# _; [0 P9 K
;*********************************************************************
/ W: w: y O& f/ b( g
(defun xulytext (text / kytu ma sokt luusokt lui )1 {8 i2 a) d$ U+ E( t4 ^, k
(setq kytu (substr text (strlen text))
' H$ D0 `# }0 u7 d' [; ]3 ~
ma (ascii kytu)2 S$ \4 X. d* u3 o, E; x# N1 B
sokt (read kytu) 7 o4 y) d) `9 p6 c) e; f3 D
lui 1
2 ]3 d$ E9 R, o0 Q/ t$ V
); L' t+ p/ h7 r- v" j9 }: l
(if (numberp sokt): @( F5 i- ^1 m. G
(progn
8 v. A2 l+ x$ ~! I! o
(setq luusokt (1+ sokt))" W1 B5 O% ]0 j6 n
(if (and (numberp sokt)
1 j; T& P9 n3 J8 w
(> (strlen text) 1)
* c, z; y5 P8 E* i& r
)
. v+ S5 `2 ^: M: D
(progn* A0 a: n: a, i8 o. @" u! J
(setq kytu (substr text (1- (strlen text)))
# {# x1 M3 ~4 \2 c8 v" a0 }
sokt (read kytu)
# S. o" e. H6 `8 |7 F6 J
)
# K: q+ h L, |7 ~- S
(if (numberp sokt) C. |0 U: _% E( j& h0 S: W6 R
(setq luusokt (1+ sokt)5 t5 e6 W0 G6 v4 \1 T! d6 u
lui 2
$ V, H* ~8 b4 I1 s$ I7 v0 a
- `1 ^1 R6 m9 n, B0 r! j
)' o( s# z- y4 \8 Y4 h/ C Z
)
1 i C/ G# w n2 B
);progn 5 k) n& \0 ]! ?7 Q, M
)
. v& ^ p% Y3 a2 n0 p8 f5 f5 \
(if (= luusokt 100) (setq luusokt 0)) L/ L" x$ k' U$ U/ S
(setq kytu (rtos luusokt 2 0) V% R0 R r' l+ n( u
" a. w" t% k; F+ s$ j( R+ q2 O
text (strcat (substr text 1 (- (strlen text) lui)) kytu)9 a- t* x5 X" w% a& K1 F
)5 |& D, C/ ]2 p2 V% l
);progn
& {2 t' |4 _8 Z# ]6 w+ _) p
(if (or (= kytu "z")
4 @$ _) T2 o" L, m; t) H2 N
(= kytu "Z")
8 s) X/ _: s `- w- n% `
)
: l2 K; y* \/ Y
(setq text (strcat text "0")2 J: r0 r1 Z: x
textxl "0"# N; y* i( {; y/ \ O: D
)" f; }) d4 F# D9 n6 U
(setq ma (1+ ma)& q/ l+ X' X- k8 ]7 H
text (strcat (substr text 1 (1- (strlen text))) (chr ma))
, }4 W- C6 [6 ], I' [2 U) c
)
7 t! ^$ {8 [- C! Z
);if
# H3 t3 C! b: k$ R4 D! ?4 R
);if' d3 q' Q3 `: `; ]; O
). f7 a/ |. g |0 X* P
;*********************************************************************
1 o! h) n4 G; ]" T3 k/ v
(defun doitext(tendoituong / chuoi doituong thoat tam dsach kieu text vitri10 vitri11 dem canle)2 [( t0 c0 M. N. M/ a( }
;Neu doi tuong la text thi tiep tuc
& D+ }; i+ P g3 m! x
(setq doituong (entget tendoituong)( |, \6 W" k ~& q2 A' |% R
kieu (cdr (assoc 0 doituong))
( g. ]" [( N- t! F( V- j6 V1 y
canle (cdr (assoc 72 doituong))) R& x& g+ v4 ]! ?( G
) & N# ?' l1 {- R8 `) |
(if (or (= kieu "TEXT")
5 e0 I2 H7 ^* Q3 @. Q
(= kieu "MTEXT")
- N4 \/ i& {5 z' v1 N
) 6 Q6 c' P7 R1 [: V, V; q
(progn
$ X9 p3 G* K/ e7 d% o) ?
(setq textxl (xulytext textxl)
, [7 Z+ z: a' i2 a& P/ U" `- m
text (cons 1 textxl)4 A% Z" j# o( N2 l4 s, t; k
vitri10 (cdr (assoc 10 doituong))' f ?3 ~ y4 c/ E" C* ?7 z/ S
vitri10 (list (+ (car vitri10) (car vitrilech)) (+ (nth 1 vitri10) (nth 1 vitrilech)))
2 N; |; x, ^: o- }
vitri10 (cons 10 vitri10)* _! A# v! B6 M
vitri11 (cdr (assoc 11 doituong))) S6 J& h+ z. T3 a$ s# I: v2 u
vitri11 (list (+ (car vitri11) (car vitrilech)) (+ (nth 1 vitri11) (nth 1 vitrilech)))% X/ V) g x5 l8 Q h7 j. u8 _
vitri11 (cons 11 vitri11)1 b& l( h N v
dem 0' e% o* ?5 S+ z) \( i
dsach nil
; Z, m1 [) c7 p/ D0 r
)5 }- o: W+ Q" G. W# p9 q
(foreach tam doituong
6 K s, F$ s1 D' A
(cond( l; h3 m3 f4 p$ s# T8 z
((= (car tam) 1) (setq dsach (append dsach (list text))))
) u g7 q2 r- X- k- i
((= (car tam) 10) (setq dsach (append dsach (list vitri10))))1 y: R, L; q! S# r" i& e7 z; m |
((= (car tam) 11) (setq dsach (append dsach (list vitri11))))
$ ]% f8 q, _' C9 k, n+ F* _$ n2 f
((setq dsach (append dsach (list tam))))
/ R0 |( L& M! ]' n: i
)( g r2 @. ]8 F% p4 ]
)
, k9 d. w) Q" o3 V( u0 P ]
(entmake dsach)
7 ?5 |6 |* }1 Z- q2 s0 | _
);progn
, @0 b$ z2 L4 V+ u
);if+ g( Q" l8 |1 r5 g7 G3 E& M4 [
);6 ^$ `8 |. ~0 l q. [$ U
;*********************************************************************. i8 s/ P6 \8 L9 h3 Z1 V( \
;sao doi tuong cu sang vi tri moi
+ J7 t. c/ c1 o
' O$ [; \4 Y, o: C( a. R$ w% r
(defun copy_dt (tendoituong )+ f' a+ e0 h5 V- Y: S6 z0 ^7 i
(command "copy" tendoituong "" goc toi )9 D, s. l% { \
);defun, t( L* R: F5 W0 ]( q' q8 w
' g( D8 r+ l2 h' N0 y( D
;*********************************************************************
- D3 z N6 ~" V& X v
, J3 ^3 D! u. i6 p5 Z$ Z* c
(defun c:ct ( / cumdt dodai thoat dem ten doituong textxl dem goc toi)
' `( N/ i1 X0 O( R
; Khoi dau cua chuong trinh4 W6 B8 f7 ?2 s7 U9 u8 l* i$ N
(princ "\nCopy Inteligent...\n"). t- T% f- T& |& ^
(setq luuecho (getvar "cmdecho")
" A7 s2 b& L- [ M6 I1 {. ^ V9 k
luu *error*
) ]2 R. g( @. I! Z. L
*error* ketthuc" P* ]5 H% @$ y# ^- A9 F( @8 r# L
cumdt (ssget)
! s$ m0 x3 @! Y( u, g
dodai (sslength cumdt)1 f9 ?8 O3 y3 D( J! o6 w+ w
goc (getpoint "\nSelect base point:")
" m$ i0 Z9 Y, i6 C- V6 m
thoat nil
, R# o- ?" m0 v: a7 H' U& u
dem 0
0 E0 _+ W1 X8 E- n U1 f, E; F
textxl nil
- H" V7 `2 w+ e2 C4 q
);
/ q5 [! q) A* G; v& e* }/ ~: Q# I
(setvar "cmdecho" 0)+ U: J' T9 F0 P8 z/ |+ _! r! E4 _6 ]
; Loc ra duoc ong text de xu ly
/ L" R$ R: C6 W t& y; d
(while (and (= thoat nil)0 v8 b$ t4 \+ w( q5 Q: U2 F$ B
(< dem dodai)
3 J( d( w2 H U3 x
)% x6 e5 j9 G) n! z7 t* `
(setq ten (ssname cumdt dem)
/ W4 `, X% _- c9 P
dem (1+ dem)
4 `. y% ?( R; ?6 |
doituong (entget ten)0 h& f U- O5 H4 J
kieu (cdr (assoc 0 doituong)) ! J6 F7 d5 c/ v" j* B; [5 V8 W
)/ D/ _9 u( m5 s/ ^7 ^
! Z# r/ p* i' L* J* z
(if (or (= kieu "TEXT")2 z" Y# f- J* V: [( B
(= kieu "MTEXT") - f3 v$ l8 G& L7 E8 u0 D
)7 z7 ?& T9 _0 |5 w, e7 ?
(setq thoat T8 s" }6 Y. I0 L! I9 ^. ^. `
textxl (cdr (assoc 1 doituong))
* I% _/ W/ a6 d& `4 X- q
)
|) K0 A- _. T3 P* u
)% }1 j1 B. P/ g0 |5 Z6 n6 `
);
O- O. \: r* E" m- ?
(while T
7 v" m' Y/ P- d0 s6 d
(setq toi (getpoint "\nSelect next point: " goc)/ c5 x, W# l2 x% }$ m( \- l
vitrilech (list (- (car toi) (car goc)) (- (nth 1 toi) (nth 1 goc)))
8 e- y, Q( Q. s! k' l" N
dem 0
, J8 [* U7 i1 i& a
)
3 i# d" R! o& w# p
(while (< dem dodai) Q# m5 M/ H- o4 J
(setq ten (ssname cumdt dem)
0 i0 G' U* z4 E- x; A6 Q% E
dem (1+ dem); F) x( W$ G: d4 P: B2 M
doituong (entget ten)
' K* Y) h+ ~( p6 Y4 g9 @
kieu (cdr (assoc 0 doituong)) 7 \$ N% R9 [" G% ~
)
/ L$ Y6 v7 O) d* B$ {# H
+ Z- u- U& e y/ o/ x, E$ M2 L* M
(if (or (= kieu "TEXT")
/ }. {& H1 C' } _9 x% C( u- B
(= kieu "MTEXT") $ p* Y6 p9 O6 u0 j4 E
)
& `" a' a9 F9 V; e/ m% g- w' e
(doitext ten)
/ n1 I! N$ R. w6 p
(copy_dt ten)' d- A8 H6 Y* b
" K* i- \5 W) s% X: B
);if
( J6 W! F$ {$ R3 w0 _* ~, W
)( Y" \5 ^. _5 @8 l: n1 a
);while, G% A! A: D2 g+ h5 K; t
(ketthuc)$ ], o2 r: Y( B. f, V1 S: X7 o
);defun( x- Z8 I" g1 T' W
(princ "Type \"DG\" to start")- \ U* ]* w, r0 e1 ^$ e8 k; V
;Note: bien toan cuc: textxl vitrilech
3 N& a+ k- b) C- H a
5 E, q% [+ y3 }$ B6 w) ]# F% j }
;=====================================================================
: r% W3 K- c9 {& ~# e+ s7 R
;;; PLJOINFUZZ.LSP
$ x3 q8 t# G: m) P* z/ X2 s& L: W
;;; Joins lines, arcs and polylines using a fuzz distance
6 x* @. ^4 J2 C1 P3 P
;;; If only one object is selected it tries to join to all objects that are possible& L2 [( r' O$ L. @( Y
;;; By Jimmy Bergmark
, N9 u8 P& ~5 L1 t* x% D" h1 b
;;; Copyright (C) 2003-2004 JTB World, All Rights Reserved$ A' H0 h5 T Z3 W0 t; M
;;; Website: www.jtbworld.com
2 n. w; b2 x: @( z% Y
;;; E-mail: info@jtbworld.com8 r$ v M3 d$ e/ {- v
;;; Tested on AutoCAD 2002,2004 and 20051 k/ W; \7 p0 {- w
;;; Latest revision made 2004-11-11
" P2 h! o; v) W4 E$ t
;;; Minor code cosmetic change made 2004-11-13- R$ l& h! m# c& U @; r: j
;;; Bug corrected 2004-12-23% J: r7 C) d A
% l- h; V0 w3 ]1 S* [9 M9 A
(defun c:jf () (c:pljoinfuzz)) ; this line can be commented out if there is an existing command called jf
& v8 G z" E' V& e/ n5 x$ ]
(defun c:pljoinfuzz (/ ss1 entLine objType oldcmdecho oldpeditaccept fuzz okObjects)
: `+ P5 n* V+ Q# J* H) _
(setq oldcmdecho (getvar "cmdecho"))
+ U; K- d! f. v, E
(setq oldpeditaccept (getvar "PEDITACCEPT"))
2 X( |$ ?4 Z9 @" I0 e
(setvar "cmdecho" 0)+ G! @$ s% V" o2 D, @
(setq A2k4 (>= (substr (getvar "ACADVER") 1 2) "16")), e: I% X. b$ l, f4 k* `9 e" m
(if A2k4 (setvar "PEDITACCEPT" 0))
/ @7 C9 i$ s0 t {% \. N
(setq okObjects '((0 . "LINE,ARC,POLYLINE,LWPOLYLINE")))
3 s9 r' B' [$ m
(princ "\nSelect object to join: ")
9 q5 c* v' ~) ]( y( m- |1 p- l! M
(setq ss1 (ssget okObjects))
4 Y: Y1 F6 G, Z) M: V7 l% r9 ]
(setq fuzz (getdist "\nFuzz distance <0>: "))
) g6 Z! G& y+ w
(if (= fuzz nil) (setq fuzz 0))
& ?% D, i3 {5 y, |
(if (/= ss1 nil)& k: q1 _- v/ o7 [( R0 }
(progn# z" ?5 B: J) A8 x9 Q1 d: X
(setq objType (cdr (assoc 0 (entget (setq entLine (ssname ss1 0))))))) a' f# O5 g/ l o9 \. M) U- ~- O
(if (= (sslength ss1) 1) (setq ss1 (ssget "X" okObjects)))( I, p9 H' [# G
(if (member objType '("LINE" "ARC"))
( ?% {+ X4 O4 B( Q; K/ G
(command "_.pedit" "_M" ss1 "" "_Y" "_J" "_J" "_B" fuzz "")* I2 {7 H B" t# D; E7 Z) d, O) s& d
(command "_.pedit" "_M" ss1 "" "_J" "_J" "_B" fuzz ""); X; Q! c3 z. u* O- v' O
)! F0 ~9 e [1 }4 Q
)
+ P; [- z3 Z. N& ? M9 r; V
)2 w7 ?$ I# j ?
(setvar "cmdecho" oldcmdecho)8 z$ h& {8 {+ |
(if A2k4 (setvar "PEDITACCEPT" oldpeditaccept))
$ E- l# n4 b! ?/ J
(princ)+ P& L }' c, Q# q3 e7 t
)
( P( u5 y- o( K: ~) R W' X
% X' \1 R* M% p3 T% N( y
;===========================VE CAO TRINH===========================
" Y! ~. }7 M" e0 P4 W% Y1 M
5 x% i& E% C7 v( ?
(DEFUN C:Cotcao (/ CMD PT1 PT2 PT3 PT4 PT5 PT6 PT7 PT8 NPI TX DX DY TL OSM OLL
( g! ]9 B* k0 h/ g4 e. `
CRST RSIZE TSIZE STR PRMT FCH NBC OLDERR)
' e J+ D% R6 _# p" n0 i
(SETQ OLDERR *error*
: L- ^* t3 y' P9 u# b5 j( h! V
*error* loisb)
* q/ p* r9 J0 z- @7 S9 Z
(command "layer" "m" "dim" "c" "" """")
! b8 r# { r5 N
(SETQ CMD (GETVAR "CMDECHO"))
7 |& |: ] L( ^5 |2 f3 @$ V1 K
(SETQ NBC (GETVAR "CLAYER"))5 I: m6 a7 X* w. Q
(SETQ OSM (GETVAR "OSMODE"))8 l: Z9 a9 `9 M, A) }3 ?
(SETVAR "CMDECHO" 0), h' T) r; |# m7 c
(SETQ PT1 (GETPOINT "\nDiem cao trinh:")) k, u$ q% Y$ k
(SETQ TX (GETSTRING "\nCao trinh:"))
8 Q" V: C' G+ k" C' _8 E2 Z
(SETQ FCH (SUBSTR TX 1 1)) _3 X h6 i- \$ z
(IF (= FCH "@") (SETQ TX (STRCAT "%%P" (SUBSTR TX 2 (- (STRLEN TX) 1)))))
, t* c, J, |4 O1 T# K5 b: s
(SETQ CRST (GETVAR "TEXTSTYLE"))) B& N5 P+ u, s8 ^- u- A
(SETQ RSIZE (CDR (ASSOC 40 (TBLSEARCH "STYLE" CRST)))). _% N& X* d; e `; I; n& g
(SETQ TSIZE (GETVAR "TEXTSIZE"))
. g/ Q$ X! }, c1 L1 E) C
(SETQ STR (RTOS TSIZE 2))
% |1 q% Z/ F8 z9 @/ Y' n4 R
(SETQ PRMT (STRCAT "\nText height <" STR ">:"))
" Q, \; L# d [
(IF (= RSIZE 0)
: i2 W8 f" Y- ~
(PROGN6 L Y' G+ v% ?4 u
(INITGET 4)
+ h/ Q, m- X, I
(SETQ TSIZE (GETREAL PRMT))
8 A$ @$ f6 J! \" }. Z/ m; j
(IF (= TSIZE NIL) (SETQ TSIZE (GETVAR "TEXTSIZE"))
! U3 D% w+ M: T; @& x9 e" P- {
(SETVAR "TEXTSIZE" TSIZE))
; B( M' h& t* u
)7 a/ `, U& J, n) c
)
! A: T6 ~: }5 i, F
(PRINC), g1 W" x7 D3 G% m6 r* N( m
(SETQ TL (/ (GETVAR "TEXTSIZE") 2))
5 X! ?) y- c3 L
(SETVAR "OSMODE" 0)
5 i/ _& g9 N" t q" Q
(SETQ DX (CAAR (CDR (TEXTBOX (LIST (CONS 1 TX))))))$ s! P! \ Z1 q# K; }# z0 v$ v
(SETQ NPI (/ PI 2))% L5 F3 ]- j9 P4 w7 V4 ^. Y
(SETQ PT4 (POLAR PT1 NPI (* 1 TL)))+ ~2 H* X4 q, s; R7 [& W" e
(SETQ PT2 (POLAR PT4 PI (* 2 TL)))9 Z; x1 M; _, N1 ^6 K- q
(SETQ PT3 (POLAR PT4 0 (* 2 TL)))
. q# [1 k3 ^8 E: B6 u8 B
(SETQ PT5 (POLAR PT4 NPI (* 5 TL)))
2 I) o7 d6 M! ?3 R+ O/ u
(SETQ PT6 (POLAR PT2 NPI TL))* d' F( `* J/ J: l
(SETQ PT7 (POLAR PT6 0 (+ (* 3.7 TL) DX)))
* f% A8 d' _8 q- K) u/ U3 B
(SETQ PT8 (POLAR PT6 NPI (* 1 TL)))+ Z6 ~" h8 x, w0 F p
(SETQ PT8 (POLAR PT8 0 (* 2.5 TL)))
1 m6 q& ^; G% x1 O( F' L1 b I
(SETQ PT9 (POLAR PT1 pi (* 2 TL))): h9 w+ j* D8 S) U) h J
(SETQ PT10 (POLAR PT1 0 (* 2 TL)))/ n/ j/ u# ~: a+ i+ T
(COMMAND "COLOR" "7" ""); n9 G7 L/ W' ?9 M! G8 H
(COMMAND "STYLE" "COTES" "Verdana" "" "" "" "" "")
3 G9 Z2 G" B7 U6 F; C5 S$ X
(IF (= RSIZE 0)(COMMAND "TEXT" PT8 TSIZE 0 tX) (COMMAND "TEXT" PT8 0 TX))" R- ~' h6 ~$ N
(COMMAND "COLOR" "BYLAYER" "")8 S0 y5 c! Z' A1 w
(COMMAND "SOLID" PT1 PT2 PT4 "" "" "pLINE" PT1 pt3 pt2 "")
2 G- E( { f2 t }: C
(COMMAND "COLOR" "BYLAYER" "")! S) _0 j) s! T3 g6 A7 X* f& R
(COMMAND "pLINE" PT1 PT5 "" "pLINE" PT6 PT7 "" "pLINE" pt9 pt10"")
- a9 M+ H4 V7 j3 b" Q% E3 W( O; a
(SETVAR "CLAYER" "0")
" G: B' f+ c7 ^6 U2 D& _( j
(command "ddedit" pause)' z, y/ G0 B7 P) H5 B
(COMMAND "COLOR" "BYLAYER" "")
3 S: R4 J6 U% _& T
(SETVAR "CMDECHO" CMD)
! A$ ]7 V g7 o" {8 Q
(SETVAR "CLAYER" NBC)3 z' S" W! V# `5 p1 P
(SETVAR "OSMODE" OSM)7 p& u0 R( R3 X6 R+ a3 r2 j8 E
(PRINC)
- d6 t) T. r" O5 u) b) }+ F* w7 e
)
7 d& |# C4 P' r- C
. l6 c: m5 E! n7 L
;;; =========================== VE NET CAT CHEO (GC) =============================1 h( e" L) u; p5 ^
+ O! d' u4 e' l# [
(Defun c:G1(/ p1 p2 p3 p4 p5 p6 p11 p12 l ang)) t. N; i3 {% z
(setq x (getvar "osmode"))
- \6 z# U, X4 y; Z c- \
(setq p1 (getpoint "First point : ")
' Z% j& y3 G7 W, c6 ^
p2 (getpoint p1 "Second point : "))7 J& b$ R2 Q* l9 e, Y2 M
(setq l (distance p1 p2))/ M3 D% o2 ?9 b3 C8 w! J
(setq p11 (polar p1 (angle p2 p1) (/ l 5))
[" j/ z9 Z% Y9 y+ j6 t* ]1 f" u" B
p12 (polar p2 (angle p1 p2) (/ l 5)))
% P( f: J4 G4 \/ c& k& l
(setq ang (angle p1 p2))
/ Z$ T& X# d3 m7 t& k
(setq p3 (polar p1 ang (/ l 2.5))8 ?& U0 b) h3 O' o/ S8 x
p4 (polar p3 (+ (/ pi 2) ang) (/ l 5))
" {! Y$ r( a$ M
p5 (polar p3 ang (/ l 5))
# y' e/ q4 G& U
p6 (polar p5 (- ang (/ pi 2)) (/ l 5))) ?* [4 O8 D$ U) u! m! f
(setvar "osmode" 0)
: Q* \' \9 G6 {: J; Z3 O7 l
(command "pline" p11 p3 p4 p6 p5 p12 "")$ k# P1 e5 P$ Z9 [9 K- S/ P
(setvar "osmode" x)0 E! j& O l9 {* k
). ]' ^; e# y7 L) d8 z
;----------------------------------------------------------------------------------2 J3 p! S) K7 m& N4 m
(Defun C:G2 (/ ps1 ps2 pf1 pf2 pf3 pf4 pf5 pf6; r# f' V' \! ]/ t
pf7 pf8 sb sh se ang old_osmode); (setq old_osmode (getvar "OSMODE"))* d; d' T6 |1 t L- x- j
(setq ps1 (getpoint "\Chon diem thu nhat: "))8 L4 J, B/ ~- ~: v% r
(setq ps2 (getpoint ps1 "\nChon diem tiep theo: "))
& |* U. q9 x- {: `; N
(setq sb 50.0 sh 200.0 se 20.0) z" i' \0 P2 t
(setq ang (angle ps1 ps2))1 R$ ^2 t6 v( |4 e
(setq pf1 (polar ps1 ang (- 0.0 se)))
' N) a' c9 ]$ f* f; H! R
(setq pf2 (polar ps1 ang (/ (- (distance ps1 ps2) sb) 2.0) ))
; \: O: v1 E/ U/ N& R) C
(setq pf3 (polar pf2 (+ ang (/ pi 2)) (/ sh 2.0))); f! \( q9 T$ E7 s$ ?, y
(setq pf5 (polar pf2 ang sb))
$ O0 k4 b: @9 S- _2 _% H7 ^" A1 N
(setq pf4 (polar pf5 (- ang (/ pi 2)) (/ sh 2.0)))) U" |7 ^8 b* Y' t! L `* L
(setq pf6 (polar ps2 ang se))1 D7 f1 D3 O( [3 j. i, ^
(setvar "OSMODE" 0)
' N4 n8 o; L; c5 V
(setvar "BLIPMODE" 0)
! d# ]" N+ _1 i: N" J
(command "PLINE" pf1 pf2 pf3 pf4 pf5 pf6 "")- R8 K4 J: S, j' o6 Q+ S
(setvar "OSMODE" 703)% H( A1 I# J! ]* B4 ]
(princ) ): j/ _2 O' ~* X0 n0 C3 H
;----------------------------------------------------------------------------------! X7 N& W1 }4 \# r; y4 m( n1 B
(Defun C:G3 (/ ps1 ps2 pf1 pf2 pf3 pf4 pf5 pf6
% J* }1 ^& C6 t! Z, F/ k* |
pf7 pf8 sb sh se ang old_osmode); (setq old_osmode (getvar "OSMODE"))
5 f2 s3 g. X7 i% a$ R' o) y5 R+ V
(setq ps1 (getpoint "\Chon diem thu nhat: "))
$ {5 w6 `" u% \0 m2 x2 t
(setq ps2 (getpoint ps1 "\nChon diem tiep theo: ")): S/ r9 U% Q% `/ N" x+ @6 ^# p
(setq sb 100.0 sh 150.0 se 20.0)
8 {5 J" \4 M4 j6 }
(setq ang (angle ps1 ps2))+ e& ]2 Z: X. y' m9 z& U
(setq pf1 (polar ps1 ang (- 0.0 se)))6 z* |, O( J$ G- T, P$ d
(setq pf2 (polar ps1 ang (/ (- (distance ps1 ps2) sb) 2.0) ))2 n+ _- b1 P( T( e
(setq pf3 (polar pf2 (+ ang (/ pi 2)) (/ sh 2.0)))
% ?8 y& u& Z* g$ q) `9 ]' |
(setq pf5 (polar pf2 ang sb))
0 R" f2 l0 l- V. n5 J
(setq pf4 (polar pf5 (- ang (/ pi 2)) (/ sh 2.0)))
) z% l& L4 F7 A5 z6 F
(setq pf6 (polar ps2 ang se))+ |( R+ m) V+ T# g3 N
(setvar "OSMODE" 0)
6 e2 g$ W9 D6 r! q
(setvar "BLIPMODE" 0)
]# `: d2 Y" C }4 C6 m0 {
(command "PLINE" pf1 pf2 pf3 pf4 pf5 pf6 "")
2 ~1 t' I) q( `7 p
(setvar "OSMODE" 703)8 o: @: l; {2 Y6 |( U$ `
(princ) )
8 i2 F9 @* S) k& H) N- e
;----------------------------------------------------------------------------------
3 R! ?. n8 e5 o* \2 U! i* a
(Defun C:G4 (/ ps1 ps2 pf1 pf2 pf3 pf4 pf5 pf6: J& _1 U$ U. b1 u, {# p
pf7 pf8 sb sh se ang old_osmode); (setq old_osmode (getvar "OSMODE"))
0 ^; H; c! W' z0 P2 ?
(setq ps1 (getpoint "\Chon diem thu nhat: "))/ P! s% h# q& C: k, b3 t% _5 D
(setq ps2 (getpoint ps1 "\nChon diem tiep theo: "))
& m( ^; q i+ [( x; B
(setq sb 100.0 sh 250.0 se 20.0)
8 l% n) \8 K: q3 K
(setq ang (angle ps1 ps2))
1 q. c* V) g& a# S
(setq pf1 (polar ps1 ang (- 0.0 se)))1 z; `. q2 U! |$ m
(setq pf2 (polar ps1 ang (/ (- (distance ps1 ps2) sb) 2.0) ))$ z$ I0 P7 q& t
(setq pf3 (polar pf2 (+ ang (/ pi 2)) (/ sh 2.0)))+ U! u5 o/ f( V: Y7 K
(setq pf5 (polar pf2 ang sb))8 N1 m5 r- ]; B
(setq pf4 (polar pf5 (- ang (/ pi 2)) (/ sh 2.0)))9 l+ k: y) e, G4 i
(setq pf6 (polar ps2 ang se))
5 x- A' P Q9 E
(setvar "OSMODE" 0)9 n) K+ D1 g6 N
(setvar "BLIPMODE" 0)& C" ]' F* v9 G) Y7 Z! D
(command "PLINE" pf1 pf2 pf3 pf4 pf5 pf6 "")
- ~2 {6 v. @, c! p
(setvar "OSMODE" 703)4 s& _6 I- R) a n8 v7 N
(princ) )
3 }6 E' j) \6 q# S% s a: i
; M/ Y6 ]! I r s6 r g
;==================================================================================, o8 o3 q: |; s* m+ O1 ]; D
(defun c:ang (/ ent pt1 pt2 ang)
, |: S; j* s; O2 y
(setq cmd (getvar "cmdecho"))
$ ~5 o% T, k$ [) o3 |( g: _
(setvar "cmdecho" 1), c( y6 i, M& @4 E1 ?5 z
(prompt (strcat"\nThay doi truc toa do theo duong thang chon truoc"))
$ ^& f0 A; v) N
(setq ent (entsel "\nChon duong thang:"))
$ R: R9 Z U8 k, L5 N
(if ent
3 J) _% @1 X8 C" x
(progn; |. M, L( {6 C( n6 A
(setq ent (entget (car ent)))
$ P2 M- ~0 k0 L5 Y0 `9 N* [0 |6 u
(setq pt1 (cdr (assoc 10 ent)))
7 S( F) a; o& n1 l
(setq pt2 (cdr (assoc 11 ent)))( ^" T: g7 [5 H: _) E' u; _# w
(setq ang (angle pt1 pt2))
" ?* M7 J d6 p) o3 X1 }
(setq ang (/ (* ang 180.0) pi))
; J; m# x' @1 e* y S
(setvar "cmdecho" 0)
" F7 V9 M* p1 Y* `7 r
(command "setvar" "snapang" ang)1 Y% V# L9 V1 [( w$ b
(princ "\nGoc cua truc toa do moi : ")7 A, {, Z. t% W+ E) i; K
(princ ang)
0 v V" [2 e @) W- L0 s% ^( U
)
( H* o) S- \: U) l& _! n8 x
)
" T0 D0 H' ~; E
(setvar "cmdecho" cmd)( |# |# F* h, v. Q0 s: ~ K- m
(princ)9 a$ w5 y' K0 v: t5 ~7 g' x% E* `
)
$ l; C7 q) e. i! x
;==================================================================================
* X- V. z& [8 a
;============================== KY HIEU DOI XUNG ==============================7 a0 c: w# p' s4 q7 t
;==================================================================================
6 | O' e6 J* A1 u9 k
, U/ V" S# W$ Z8 I8 O3 P3 |
(DEFUN C:DX (/ CMD OSM OLDERR PT1 PT2 PT3 PT4 PT5 PT6 PT7 PT8 PT9! q% G1 v1 E, F7 V O) y
SZ G45 G135 G90 G180 SS loi)
0 Z& C' _) w+ M ~+ m) ]* Q8 E
(defun loi (s)
, U. j! n0 t! V! b+ e, N/ u
(if (= s "Function cancelled")
* [$ T; f7 b, N1 y( _3 |7 }! Q
(princ)
' Z7 |2 ]) T1 j
(princ (strcat "Error:" s))& l$ a# }- |( z. d' Q3 l3 B
)
# l. F$ z( k, W7 x6 D% l
(SETVAR "CMDECHO" CMD)
( m" k/ I: {3 B9 F; y$ F
(SETVAR "OSMODE" OSM)
5 U% u, ^' {+ `' |* Z O; h
(SETQ *error* OLDERR)
8 `4 k! M, r! V
(PRINC)6 K' q a5 m( m3 y4 X; @% p
)
: T9 }: A8 N- O0 x
(SETQ CMD (GETVAR "CMDECHO"))
% |4 c. T" s1 L5 V$ k# U. Z& T
(SETQ OSM (GETVAR "OSMODE"))
* w3 L' `. ~+ ]1 }& X a
(SETVAR "CMDECHO" 0)
- C: W( f7 b. D' ]) X
(SETQ OLDERR *error*9 [( k& R0 y9 U: g8 e
*error* loi)4 B! Z3 H# S+ d G/ U
(SETQ SZ (GETREAL "Size <1>:"))- H; a0 C9 s) x, a0 x d# O
(IF (= SZ nil) (SETQ SZ 100))& }4 v/ R1 n8 w9 k# [3 c
(SETQ G45 (/ PI 4))7 F- P# C" j# ]
(SETQ G135 (* 3 (/ PI 4)))
* R: T' \/ g$ Z0 k. }! H4 T5 e
(SETQ G90 (- G45 (/ PI 2)))' X! R7 q8 e$ _6 W' j3 M J# O
(SETQ G180 (+ G135 (/ PI 2)))
% V% E9 {7 Y% X: b) {
(SETQ PT1 (GETPOINT "\nDiem doi xung:"))
" _/ R7 J! H( w# P+ M% G6 ]
(SETVAR "OSMODE" 0)$ T7 B: ~( k9 b( I
(SETQ PT2 (POLAR PT1 G45 (* 2 SZ)))8 ^( o1 o8 }/ U) s
(SETQ PT3 (POLAR PT2 G90 (* 2 SZ)))
) x1 ]. `8 N5 |. l* }) N
(SETQ PT4 (POLAR PT1 G45 (* 1 SZ)))- A1 G+ l/ j% w% O1 k, l
(SETQ PT5 (POLAR PT1 G135 (* 2 SZ)))
9 @' n4 ]* N; |8 {: m, y5 s
(SETQ PT6 (POLAR PT5 G180 (* 2 SZ)))! Y. v( y6 B @8 c3 T2 S% a. W1 e
(SETQ PT7 (POLAR PT1 G135 (* 1 SZ)))4 C8 j/ R; v @7 t1 N" N
(SETQ PT8 (POLAR PT1 G45 (* -0.7 SZ))); i; b ^2 {* n, w" M
(SETQ PT9 (POLAR PT1 G135 (* -0.7 SZ)))
8 o/ B. Y+ R2 b/ g+ c
(PRINC "\nGoc quay:")
/ r5 {' }7 o5 B7 |; P6 M
(SETQ SS (SSADD))
3 s4 ~2 G2 u$ b3 }7 r' }- B* m% H# c
(command "layer" "m" "Dim" "c" "" """")0 R W) ]; J9 p3 G
(COMMAND "COLOR" "1" "")5 ?( B3 J2 `' W4 |4 p
(COMMAND "LINE" PT8 PT2 "")0 J# R6 S0 x+ V g6 Y7 j6 D3 e
(SETQ SS (SSADD (ENTLAST) SS))
: X: R' |) X" P! n9 N! O
(COMMAND "LINE" PT9 PT5 "")* u: x- \9 D7 {- o& q
(SETQ SS (SSADD (ENTLAST) SS)), F& q/ E# {0 z4 Z* m
(COMMAND "COLOR" "1" ""): u3 c5 a+ s; m& {
(COMMAND "SOLID" PT2 PT3 PT4 "" "")* t0 k6 c4 _ M
(SETQ SS (SSADD (ENTLAST) SS))! Q0 P/ i1 M) Y- i: Q6 V
(COMMAND "SOLID" PT5 PT6 PT7 "" "")
I& a0 R: ^' k* [# s4 L
(SETQ SS (SSADD (ENTLAST) SS))2 G% G" c% s5 p/ f
(COMMAND "ROTATE" SS "" PT1 PAUSE)$ V; G8 _' E6 O5 n% z) c7 ?/ y) L
(COMMAND "COLOR" "BYLAYER" "")
; d9 Z6 G- a- o
(SETVAR "CMDECHO" CMD)
8 K; K, \% v5 Q8 s! v; I9 Y) x& ?
(SETVAR "OSMODE" OSM)# O+ a/ y2 F) g" @
(SETQ *error* OLDERR)
+ S# |) k1 L- U, Y
(PRINC)- ]5 w* }: E! Z; H: P
)8 V, a1 o5 M& E: U2 o
) u: x; D$ [/ N7 f9 c3 x" `. q
;==================================================================================
, }7 {( Y( Z) E0 L" J$ F; F
;================================= KY HIEU TRUC ===============================
! W D4 X0 N+ [* ^
;==================================================================================
2 c: V! L6 v8 m- r( R
/ I# q) t6 b) {9 ]% ?. w# |
(defun C:vetruc ()8 o; _: z5 o5 p4 T
(setq bk (getvar "USERR3"))8 ]! e2 ?; s9 K& X9 p
(if (= bk 0)
# u8 U" w% W/ D- n' h+ q; H
(progn
6 S# c+ k+ U' C$ i
(setq cont "1")
, i! `, Q. r% b
(setvar "USERR3" 1)' T- }! }" Z5 ^
)
4 h% P, @* Z8 ]9 \( C
(setq cont (rtos bk))6 U, c& A+ e$ t% A: ]/ L
)5 X2 Q' a z) e& q* W F
(setq pt1 (getpoint "\n Nhap diem dat:"))
" ^1 N' L, g' R W5 T
(command "layer" "m" "Dim" "c" "" """")
# ?* N5 S9 B$ O) T: }
(command "osnap" ""): z( t' d2 R, h! A
(COMMAND "COLOR" "7" ""): W2 ~& z! n. l, N
(command "circle" pt1 150 "")6 P' O# i( O. R: A: y/ d
(setq pt2 (polar pt1 0 150))$ b5 U+ H' F: f. r4 N
(setq pt3 (polar pt1 (/ pi 1) 150))# ?: }! s' Z H; e
(setq pt4 (polar pt1 0 300))4 [. y. l: E6 m
(setq pt5 (polar pt1 (/ pi 1) 300))% M1 [4 V5 d, ~. j' W/ l( r
(setq pt6 (polar pt1 (- 0 (/ pi 2)) 150))3 S t6 d; l" y& e; E8 G2 ?
(setq pt7 (polar pt1 (- 0 (/ pi 2)) 300))
! L- J g/ k$ h' | b
(setq pt8 (polar pt1 (/ pi 2) 150)) m$ f/ j) `6 g6 {$ y* N# v* F
(setq pt9 (polar pt1 (/ pi 2) 300))
5 m$ }) N3 K% f7 r
(setq pt10 (polar pt1 0 150))# } @) `$ I* T( a% a! P
(setq pt11 (polar pt1 (/ pi 4) 150))
4 J3 c- |$ Q0 B( Y# u
(COMMAND "COLOR" "BYLAYER" "")
3 G" ~9 j) G& m% h) U1 E( P
(command "line" pt2 pt4 "")
( y3 L8 N- s2 J
(command "line" pt6 pt7 "")' l1 ~6 ^" |3 j2 X, p
(command "line" pt3 pt5 "")
" d& L5 ?, s0 O8 V4 d, Z# [3 `: e' l
(command "line" pt8 pt9 "")
5 t' C" R2 o2 H1 k6 ]* h# n
(setq dk (strcat "\n Size:<"cont">")); X( o z! P! }) g
(setq bk (getreal dk))
2 Y8 I: l5 ?# G$ E7 ^
(if (= bk nil)
1 h' m0 r; ?5 ]+ @6 d- C; }
(progn* X( p2 v, H7 J# {- B
(setq bk (getvar "USERR3"))7 L/ b* e+ Y' V# @
)/ ^+ A5 B9 ^1 f6 [
(setvar "USERR3" bk)/ }8 F8 B9 |6 Q$ C0 Z% H
) \0 H5 x N- k% a. @$ b
(command "scale" pt4 pt5 pt7 pt9 pt11"" pt1 bk"")7 n7 d3 Y, `5 B; ^1 B7 Y
(COMMAND "COLOR" "7" "")9 `/ ?8 q' k7 w2 L0 m) r: ~- t. H
(COMMAND "STYLE" "Truc" "impact" "" "" "" "" "")$ s3 U1 I) S o1 d# N' d
(command "text" "j" "mc" pt1 (* 150 bk) pt10 "A" "") 7 d# c# i2 c. D* y. ^! M, G/ S) F( Q& @' f
(COMMAND "COLOR" "BYLAYER" "")
' Y2 D% @" G$ m& k9 d* D9 L, y7 l
)
+ [9 W, z6 g V9 s, E
( K, O% D3 `! P* N) {4 b
;=====================================================================/ K+ m2 o# b5 r
;CA - Reverses the case of text. (Upper to Lower and Lower to Upper.)
% f- j% J& D7 r2 U5 w4 e
;
) k9 |( A1 e3 S& D
;Jeffery P Sanders
) g6 I/ i) U; c+ _$ |" _+ O
;
) }: ^0 D+ D$ C1 Q" c
(defun C:CA(/ en enlist tx newtx cnt tp asc note)
; w( b, M! q& V" c2 ]4 R3 Q* u$ }4 x
(setvar "cmdecho" 0)
2 k( ]+ A# n7 L: B
(if(setq en(entsel))
9 l4 @/ a. r( j: I- S7 N
(progn
+ a! H9 ?0 K1 u3 Z# [' z# @( U# L3 J
(setq enlist(entget(car en))). g6 ?% q( v) ]' u0 M
(if(= "TEXT"(cdr(assoc 0 enlist)))
& s: j7 W- g' l! b& D
(progn# o6 ?! ~" R3 R) O8 R5 `9 g
(setq tx(cdr(assoc 1 enlist))
, I; g' `7 _: p* N: h: C% Q
newtx "" cnt(strlen tx)
. _9 J; R7 }: L. U! v
note "\n...CASE Reversed. \n "
2 {& e( t, t- {: U X5 g
)
( T1 {, U6 j( [! @
(while (> cnt 0)3 S+ p( B# T( l+ u% S3 `
(setq tp(substr tx cnt 1))+ x9 g4 E8 f4 W) X/ k- O
(setq asc(ascii tp))
; |6 k0 P1 h" ]' W4 Y
(if (> asc 96)2 i/ t- }0 {7 ^) s! u) Q& r
(setq tp(strcase tp))
[4 ~: `2 y# J; F% |
(setq tp(strcase tp T))# `4 w4 ^0 r* g- x5 K) v! Q+ B# b
)& B+ U5 |) l1 j3 ]" ?1 C
(setq newtx(strcat tp newtx))2 m( O& g5 B t& S7 R1 _! T
(setq cnt(- cnt 1))$ I: C5 p% w7 ~: s
)6 n9 v# l, \2 G7 U+ E
(setq enlist(subst(cons 1 newtx)(assoc 1 enlist)enlist)); x) W/ T9 f2 O
(entmod enlist)5 \2 [: O# z* y$ ]* }6 B
)2 E/ o) V/ t: `* @0 F! m4 d9 T* X
(setq note "\n....Text Only Please. \n ") l+ V( |) g0 s
)! D, J B9 _ h) J% x& U
)
1 y5 _, ^" a% E, a* o1 S0 _9 r
(setq note "\n....Nothing Selected. \n ") Y3 p2 W; [( N8 J/ W9 S0 G
)
/ O7 }$ L Y r
(setvar "cmdecho" 1)0 v# J9 Q! c# C% |
(princ note)
% O8 o* P" G9 E
(princ)! h! A" I# i' C
)
) I' t% M% b% E. f8 F7 h
1 x, f+ r$ [# s! e3 @
;=====================================================================
0 z4 R8 E# u" P+ S, N" Y
;==================== NEW TEXT STYLE UPDATE ========================== ~( V5 W! |- }' _* R' ~" a
;=====================================================================
9 |7 U# R, O. x& d) s# R/ \& {
7 D; [# R9 {" n2 q, g K# ]% _6 \
(defun c:nS (/ tdt ssdt sodt index). W9 T( f/ b2 a! T0 Q& U7 F* Q
(defun ObjName (ssdt /)
$ A1 V$ Y, ~1 P6 H1 z' D8 u
(cdr (assoc '0 (entget ssdt)))1 e! L- }: M; S6 k2 N
)
& h1 \$ [( g! p2 |
(defun MoPL (ssdt /)3 c- f l. g( H8 y$ m
(= (cdr (assoc '70 (entget ssdt))) 0)0 k2 I* w. |$ |; @9 H( @
)9 o. _; |/ t1 S0 _% p( ~
(defun NoiPL (ssdt /), b' i, `( v& c$ s0 c6 x$ y
(if (MoPL ssdt)# i$ Z- h6 |) |6 `+ O
(command ".PEDIT" ssdt "J" "All" "" "X")
# o0 ]4 J- b, N" b5 ?- e
)5 _: w; H2 i6 @. ?' X* s, ~
)0 ]% F7 ^ P& h- n
(defun NoiLC (ssdt /)! Y9 i0 n+ v( z. r8 J
(command ".PEDIT" ssdt "Y" "J" "All" "" "X")
+ I5 t* c' Q. x( M' ~
)
" s% t2 r/ E% U) N! d, w+ Q2 x
(setq
3 a9 X$ y: M4 u8 @! B
tdt (ssget)4 Y8 u8 A1 F$ F, B) p! {$ ?
sodt (sslength tdt)
; O2 Q' n- t6 I0 H* }6 ^4 ]
index 0
: H9 Z; ]% _. c4 f
)
2 e2 l5 g: ^4 o# P- b
(repeat sodt
5 c: |; P) C7 I
(setq
8 a, Y" J+ b; i
ssdt (ssname tdt index)4 g/ c- R6 \2 N3 {
index (1+ index)
9 n: C: a6 @; }1 r- t
)) L' Q! }" X% ^& T" u. x
(if (or (= (Objname ssdt) "LWPOLYLINE")
4 @' ?- W1 P) f* F, B7 ~
(= (Objname ssdt) "POLYLINE")* O$ b/ J* C2 S+ h$ z: T9 X, H
)$ |/ n2 n% b) Z+ R* C$ m( W
(NoiPL ssdt)% O8 ~7 e$ ^! D
)
$ j# l K1 u3 J* Q, x
(if (or (= (Objname ssdt) "LINE") (= (Objname ssdt) "ARC"))
9 q n6 B G& f! |% y
(NoiLC ssdt)' j( e. G; \, s0 L8 q: l
)
9 g5 J% M% \: j2 z$ u/ E) J M3 z
)
) _& `0 F7 x' |+ R
(princ); @5 Y1 J- r0 U& }. J, J
)
; m) P5 p% \+ `) z' k5 g8 H& \
5 V9 p0 D, Z7 _4 M, p; d
;===================================================================== J3 K9 D0 a9 [$ `" l2 a
;;; AREAM.LSP" M `" ?4 d/ `$ P5 [
;;; Function: Calculates the total area of selected objects
3 F- ^# M, f) h I
;;; By Jimmy Bergmark4 C7 q1 K8 R J% }' r. t
;;; Copyright (C) 1997-2006 JTB World, All Rights Reserved
4 y$ `8 ~/ i2 S) D- i5 u( F
;;; Tested on AutoCAD 2000
8 s5 E. [5 | b* k. a- f% S' L
4 A; C, i2 [5 @, D5 _
(defun c:ea (/ olderr oldcmdecho errexit undox restore ss1 nr en tot_area)
6 j" @& q1 ?7 O0 k; m, h* w( }
(defun errexit (s)
% N. J; m- E/ g9 Y3 ^% x4 O
(restore)
" i {6 w/ Y2 v3 v
)
$ U8 v& L0 y* l4 {0 w* ?3 X) N
K" b2 K \: n
(defun undox ()
# A: |4 m8 y" |% m( e4 H' m
(command "._undo" "_E")
) m/ h' T3 c* c. \7 r+ [
(setvar "cmdecho" oldcmdecho)- _5 w# }0 t% D9 I! V% [0 ~
(setq *error* olderr)
. E* a$ H3 b$ v2 d
(princ)
8 R% W- P" h3 T% V% B& b: t
)9 ~% x0 Q+ I% c0 S2 ^+ L
6 l: ]1 v7 n3 m8 H X
(setq olderr *error*$ [. t# M# a# g6 |+ o. i/ |
restore undox# J- t7 I& N! z8 e; u" ?$ h z' x
*error* errexit
0 |1 x) k5 ?+ J
) Y+ C/ K# J0 N. V3 f/ s7 @. t2 i
(setq oldcmdecho (getvar "cmdecho"))
& b$ t+ C- x; Q. _% r( M% |( n
(setvar "cmdecho" 0)5 N0 i6 U* j1 g
(command "._UNDO" "_BE")1 u" }6 D0 r! A0 o& W+ d/ i
(if (setq ss1 (ssget '((-4 . "<OR")
7 |+ C! K! x& i6 n }1 [
(0 . "POLYLINE")$ {4 a7 L4 S, I# C; N
(0 . "LWPOLYLINE"); `5 a9 }% j0 |$ J
(0 . "CIRCLE")
8 ^+ I# Q; m% @% v
(0 . "ELLIPSE")7 }( \1 O1 d5 Z3 X
(0 . "SPLINE")5 x0 O9 s/ Y4 W8 P7 n+ E
(0 . "REGION")
% E5 Y* c4 m4 u3 g7 f% z+ }
(-4 . "OR>")7 Y3 D& E. s& g
)
% H+ y1 O) ^# j2 B; a) s7 L
)2 X9 V7 [* L. l1 b1 Z
)
# t( D2 U6 T7 V! q
(progn7 s3 z$ Q5 G3 H6 Y) Q1 ~
(setq nr 0)! L* ?+ s7 f/ R, o
(setq tot_area 0.0)
% F- }, D6 b7 X( n- X2 L3 a
(setq en (ssname ss1 nr))" C3 @6 y" l: h6 _
(while en. i4 X8 Q+ M6 k7 t4 Y6 O: a
(command "._area" "_O" en)1 Y( J, ^2 a3 e9 `: G5 e5 h. @
(setq tot_area (+ tot_area (getvar "area")))4 J9 \4 ]9 I+ I
(setq nr (1+ nr))
: [9 r" y& _4 _6 b9 G
(setq en (ssname ss1 nr))
/ `( e8 k. |3 S6 r
)
0 @( H% E4 `9 \
(princ "\nTotal Area = ")$ D; r! u8 [; N9 T8 H* J
(princ tot_area)
5 B& {: Q: g2 M% s6 u, n
)3 [' p" K! C. `' ]3 L/ S- u
)" L! j' m$ }! N0 H7 }& S/ h
(restore)& H. X- c1 k# ^/ c" L
)
+ q' V" Z! b3 w# V
7 o" ~% W$ i# N y0 I
;=====================================================================
/ \, h/ n' B+ @2 y. c+ M- v$ a1 p5 Y
;;; By Jimmy Bergmark8 R0 M$ z$ r h* v
;;; Copyright (C) 2008 JTB World, All Rights Reserved
7 \' N* ~* k. a9 [
;;;* w& J' a% y' S, n
;;; Created: 2008-03-31
0 ]7 t" @6 |4 _; N: s8 R
;;;3 N2 j1 C2 E' G" ^! H
;;; Convert Attribute definitions to mtext
; t( _$ b Y M( Z O$ L0 i3 |
;;;
1 W8 `& X$ X( x7 m- Y2 i/ r
H0 V, G+ N: H
(defun c:ATB (/ eset1 blkcnt en enlist tag1 ht pnt vl space)
) s1 ~4 D# I! c# ]7 L" M4 P- I
(setq eset1 (ssget (list (cons 0 "ATTDEF")))& t+ A9 \# S R9 \
blkcnt 0
' x( Q7 K3 J7 p, G. e3 u
)
$ s9 s. V9 s; y6 f; T
$ u' h u% w7 m
(if eset1
; j0 V7 U7 W/ ^9 ~' I3 B0 `) }
(while (<= blkcnt (- (sslength eset1) 1))
, `: G* q( l9 K9 ?, V
(setq en (ssname eset1 blkcnt) D+ Y/ r& \) n! \
enlist (entget en)
0 b$ ^; Z4 y! ?# s) K" ?2 R m) X4 U
ht (cdr (assoc 40 enlist))
; U2 n o1 A' E9 j& Y7 s
pnt (assoc 10 enlist)# c* \, o3 Q$ [8 \( d1 [) D4 W
pnt (subst (+ ht (caddr pnt)) (caddr pnt) pnt)
* m4 a- e2 I7 Y6 ?3 _0 [
space (cdr (assoc 67 enlist))1 m$ P ]" Y6 g2 s% j! J
); `2 n7 t+ N; t# w
(setq vl (list
) L* m! ^3 v6 a' H; h5 E
(cons 0 "MTEXT")2 n9 O, Y2 M, c! G9 k! F" R
(cons 100 "AcDbEntity")' L+ @4 x( q( K1 M
(cons 100 "AcDbMText"), g& O& y& I/ |6 z/ T
(assoc 7 enlist)
( W- H" A7 \5 B
(assoc 8 enlist)
. y8 e0 p3 h1 j0 u
pnt$ c7 Q; g7 {+ i& l
(assoc 40 enlist)
! q S+ G8 Q: ^+ Q& U! [
(cond ((assoc 62 enlist))
: x' r( g9 ~2 g
((cons 62 256))' t" O8 L' Q$ Y1 c+ I' Y0 A1 ?1 ^
): |" [# Q i8 Y: D, J4 }/ ~. k
(cons 1 (cdr (assoc 2 enlist)))
3 F; A2 x' I, v2 b
(if (= space nil)! \. P7 p4 T4 n6 Z
(cons 67 0)3 U- U0 q1 {9 O7 n
(cons 67 space)4 Z8 |9 b4 ]3 S5 l
)5 F+ i7 o. u2 e/ r' a Q
)9 E' Y" Q& ~2 Q. u
)
9 ?: @9 B& g+ q* B) B6 |1 W
(entdel en)
e( O. e- F; @
(entmake vl). c, y9 l- c8 Q
(setq blkcnt (1+ blkcnt))) u9 F' S# g |+ K# I6 N" d6 e
)$ D2 K9 }" G$ J: `( c
)! t: z' t7 H G9 M% f
)
' x7 \* D( F; z3 D& `
7 ~0 t. L3 N) m' w8 B
;=====================================================================
3 X/ b1 P0 A% H. P6 h' k9 N
! ^1 v/ Y! D: I% w
(defun c:xxx ( / cumdt dodai thoat dem ten doituong textxl dem goc toi)( N' T6 _1 `1 s8 y
; Khoi dau cua chuong trinh
1 k* A9 }- |; Y( v# G% w; n
(princ "\nCopy Inteligent...\n")
$ l. s, L9 \* H# h
(setq luuecho (getvar "cmdecho")
C: ?- n3 ^* q6 f6 n% f
luu *error*7 \2 {9 h. n$ A3 k0 A% A3 Y* {' B
*error* ketthuc4 K5 L1 k/ x, {! g3 s2 s
cumdt (ssget)
- K$ B8 [8 d0 h T: Z; w
dodai (sslength cumdt)
: i3 r0 P- H' E0 [* T
goc (getpoint "\nSelect base point:")
% \- I9 l+ F3 |4 l# e
thoat nil
) k6 V4 t+ |0 }, B
dem 0- ^- v( [6 p; R, s" g
textxl nil* W+ X9 q' f4 ]- D# \: f# |
);: X, ~2 {, P7 v" q6 A: ]# B5 t7 m
(setvar "cmdecho" 0)2 K; A3 o) }+ x. i( Q4 {
; Loc ra duoc ong text de xu ly
& O9 B" O# Q+ O
(while (and (= thoat nil)5 k* O [" L, L1 J& C3 y
(< dem dodai)
5 Z% l |$ D% O* C
)+ B5 O; l" Y9 F
(setq ten (ssname cumdt dem)
/ v- s& T0 x3 y: _, K/ i7 N! e
dem (1+ dem)( T7 n5 H8 [# e, Z# L5 u) E% h& x3 {
doituong (entget ten)
6 H. _4 E+ L" T4 K
kieu (cdr (assoc 0 doituong)) $ d3 Q+ h7 d, P9 i* y# b5 n8 k. q
)5 X3 A1 U8 L9 A+ D: {9 `* T
/ J" q9 `9 p ^: Z) P! L
(if (or (= kieu "TEXT") h; X" L9 U6 B# p5 y- F+ [
(= kieu "MTEXT") 6 V8 k7 q: y1 O- p7 m; ^
)# K( o# J" Y3 N. X
(setq thoat T
* p) l1 W( o- L8 K* B
textxl (cdr (assoc 1 doituong))
& P/ @7 T" c4 d7 H2 f4 B3 _ w
)9 x+ K/ l% X9 Y/ N& t1 q) U) I3 K
)
* p5 D! E3 X G. k% }0 L( d
);, j$ Y6 z! z8 x
(while T
5 m0 y+ H z4 f; ^
(setq toi (getpoint "\nSelect next point: " goc)
( D1 Q# M d6 L; }8 `( A
vitrilech (list (- (car toi) (car goc)) (- (nth 1 toi) (nth 1 goc)))8 q. ^9 b \6 \+ O
dem 0
) H3 v2 E; Q4 z# r* G4 O
)
0 }) W5 N: O. } ^6 e
(while (< dem dodai)1 w8 F/ s6 r. A
(setq ten (ssname cumdt dem)$ ~. g8 O+ Y2 q2 O1 j8 q) x( O
dem (1+ dem)9 {# ~5 `* `- t# R, e0 v/ ^8 o% G
doituong (entget ten)
8 a8 F9 l9 r) C( g! P5 Y
kieu (cdr (assoc 0 doituong))
9 M t! o6 }) L' H+ J
)
7 f3 V0 n' K+ p, U3 v9 l
8 e* H3 ~, g- ~) o( ]7 R
(if (or (= kieu "TEXT")
8 s. E3 x; P/ V3 J- Q( Q
(= kieu "MTEXT") ' x5 E7 l6 H- J# i. }
)6 Q. B' E# j4 n Q/ S
(doitext ten)
. m: R W7 @) N/ T2 U/ n9 p. {! C
(copy_dt ten), _" g6 a. N7 `9 D
0 p { \2 ~! V9 m# v/ t6 z
);if$ [. i) H/ E# D; l* e2 F# o
)
0 @. h: C5 ?' o
);while
( n" y) Z8 ~& b: r# [; a2 A7 ?' p+ |
(ketthuc)
2 U% _4 o- @1 e, Q8 @) t9 \7 K
);defun
' q# X I/ S, c# K" t
(princ)
& ]" A$ X& g1 Z5 f' m; s
) }/ B0 Y' d+ E8 c7 S% s" e
;===================================================================== P$ `! v% H% t$ B" ^
;;; By Jimmy Bergmark
. x. v" a: }1 ]1 c
;;; Copyright (C) 2008 JTB World, All Rights Reserved+ P: b9 K$ t( b: h+ e* c' ]4 C
;;;! q7 a$ k1 @8 L7 e
;;; Created: 2008-03-31
3 S/ ~, C m! [& k% i5 D
;;;
2 B7 x% [" L! f
;;; Convert Attribute definitions to text0 M$ Q( `3 }! s) R& {/ u) a9 g
;;;, `1 ~+ m0 b& F8 i% x
6 U$ M; r. V% F: j, T, U
(defun c:ATT (/ eset1 blkcnt en enlist vl space)
6 R9 u1 y' u5 d& u/ K% p* s h
(setq eset1 (ssget (list (cons 0 "ATTDEF")))
7 g* z9 I, s9 c6 B7 y/ K/ ?# e
blkcnt 0
% _0 O( m& v* U* ~# i# Y
)
- c4 }2 F& E! q4 T4 m
) t" ~$ h4 |: H2 s' V2 y
(if eset1
, F g3 t+ f$ K4 R' N$ A
(while (<= blkcnt (- (sslength eset1) 1))! n n+ G& q7 T0 p/ A
(setq en (ssname eset1 blkcnt) G3 Y, N4 ]- P
enlist (entget en), q# ]% j' y" [7 i8 D% j
space (cdr (assoc 67 enlist))
8 o/ J; _6 [7 C" Z& b
)
3 H8 G( Z( |% V& v$ E5 S! b
(setq vl (list* q5 g5 i) V1 k( M
(cons 0 "TEXT")
; n% y. i) q' K1 r. c; U
(cons 100 "AcDbEntity")
* P* N) |' S5 A/ `* O+ k
(cons 100 "AcDbText")
( i; _ N. o7 W! p% L2 g7 s" U
(assoc 7 enlist)
8 A' a7 d' T& A+ s
(assoc 8 enlist)4 [9 C/ r4 W3 C+ X" L) s8 ?+ q$ W
(assoc 10 enlist)
$ r$ `; r! s0 a2 p f
(assoc 40 enlist)
5 C5 f$ \/ p# O6 j
(cond ((assoc 62 enlist))
7 J; |9 c& e+ g0 L6 R
((cons 62 256))
! c% {) W; l6 i0 n0 w+ \ u* U: A
)
" |1 X5 S! U% l. Q4 y& k( l
(cons 1 (cdr (assoc 2 enlist)))
' B7 i6 H2 `# i5 D
(if (= space nil)
3 G5 @; h1 ]) R- w& t, y4 ?/ T
(cons 67 0)5 w- G! t9 n0 x
(cons 67 space), t7 D, @8 [6 V" G
)" W! e' v1 l7 [ _' M! a
)
: R/ t/ S7 ^" ~
)
c- l$ H& A5 ~ M; y6 T" u L$ c
(entdel en)* c) s0 S7 d* C+ `! ?
(entmake vl)3 d0 ~% s2 f, ~" G% O
(setq blkcnt (1+ blkcnt))
/ N. A% c6 s% t; W
)
) m" C+ a" {; i
)# `9 e2 C! q7 b' r
)
2 K9 h) ?/ h4 g0 r5 V1 E
;=====================================================================
4 u: F' o1 w5 O a" n! ]$ s
;============================ Doi Truc ===============================; y$ A: B+ z' [
;=====================================================================# h3 h8 c5 d6 |
7 \0 A0 d: G+ G' m$ Q
;=====================================================================$ H, p* T- |, Z7 y2 I- W
;=============== FUNCTIONS GA 1+3+5+7+9+11+13+15+17+19 ===============
7 [) {) j; I( l
;=====================================================================
( L( x! W% v2 n. U2 Q* i( Y
(defun c:ga1 ()
: g% s6 N' x* H1 o* B s/ Y* F: q
(setq a (getpoint "\nChon diem: "))
9 M) ^6 j7 J' V, ^8 T5 r0 c4 m2 h% N/ s
(setq b (getpoint a"\nChon diem: ")), e" s0 R8 b( M+ y6 Q0 x! B8 J6 w
(setq c (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2)))% | N* p" M( r# A& u
(command ".circle" c a)# D9 ` W4 p' J) C4 M4 z& [
(command ".line" a c "")
5 d n4 J# m8 j; p! g
(command ".array" "last" "" "p" c "1" "" "")
) Z2 Z8 m: p" B' |8 q: _
(princ))
7 Z, t( Z$ @" i
5 {6 O- F8 y* ?# N0 }: q
(defun c:ga3 (), V8 J/ {- [2 o7 q; A8 i
(setq a (getpoint "\nChon diem: "))- Q: Z2 s+ |4 o o+ ^7 G3 Q" k) L
(setq b (getpoint a"\nChon diem: "))
8 X. z1 Y2 v) l5 I: i- i+ r: G
(setq c (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2)))
/ Z8 E3 k' H, c) V1 V
(command ".circle" c a)
. ?$ S8 C. b$ R) a8 H. T* u
(command ".line" a c "")2 K. K6 Z# T/ o4 N
(command ".array" "last" "" "p" c "3" "" "")
2 U2 w$ s" [( [. w2 b. z3 m, t6 j$ ^
(princ))
9 ?8 \+ B9 G1 x Z: N6 G
q. v7 H9 S( W8 C6 _! ~
(defun c:ga5 ()
(setq a (getpoint "\nChon diem: "))
; _% Y; G7 C, P8 z8 K6 y9 d7 V
(setq b (getpoint a"\nChon diem: "))1 R. q$ j, O8 ^ D
(setq c (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2)))/ ~2 H( B( L$ V0 s% W
(command ".circle" c a)2 ?+ M3 Z; Y8 V; H+ \$ W& r1 L
(command ".line" a c "")
6 K* J; I- x" \, @! u
(command ".array" "last" "" "p" c "5" "" "")& i4 k9 D9 X% s1 g8 O5 L8 S3 e
(princ))8 }3 Q4 s6 ^1 |) |: o o1 C. w
& s" j) _; Z9 e
(defun c:ga7 ()# Y/ [7 I" ?# i, S
(setq a (getpoint "\nChon diem: "))
]* y; c: h; H; o
(setq b (getpoint a"\nChon diem: "))
5 b! l' q) ?* e# H" k9 [ M* a
(setq c (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2)))$ h6 g6 O' ?* n+ J2 s
(command ".circle" c a); @$ M9 ^9 [& W# _. V
(command ".line" a c "")
2 ?2 i& L4 U# z/ }7 m7 P9 `& y6 D4 \/ _
(command ".array" "last" "" "p" c "7" "" "")
) ?- g* h5 l6 Y R' c
(princ))
' `6 L' T- v* H7 x' {3 \
# m( }. U: e4 o2 h
(defun c:ga9 ()
+ x# n# O' m$ i) V& K# j2 p- ]2 x
(setq a (getpoint "\nChon diem: "))( ^; F6 x/ U# ]) Y4 ] Y
(setq b (getpoint a"\nChon diem: "))! E0 ]' G. l" C3 B$ i/ |; s1 Y
(setq c (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2)))
4 t. l. S% q! m
(command ".circle" c a)
$ Y; k6 B; H' M- r. N! f
(command ".line" a c "")
7 W# v) h" o9 C! J& \: V
(command ".array" "last" "" "p" c "9" "" "")( u/ \! d4 i1 l- N# d7 o6 h# l
(princ))0 [) ?. T- m7 C+ \' h5 L( }, X
3 l8 s9 Z/ e+ S9 k" W c2 y: [
(defun c:ga11 ()
3 _! \+ k! S/ x) z/ Q% @
(setq a (getpoint "\nChon diem: "))& R' c" K8 o) |, Y( E9 k
(setq b (getpoint a"\nChon diem: "))$ d+ w% Z- P5 u( n( ]2 i
(setq c (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2)))" ]. E* D* b% s7 S
(command ".circle" c a)( q* l6 p- D- I6 k+ c& | v
(command ".line" a c "")0 `1 W8 m- x9 c# F. f4 J! ^
(command ".array" "last" "" "p" c "11" "" "")8 H6 P9 S0 u, |. @
(princ))
4 O; x: Q# t* L- e
# f! o' {/ }, _9 V( a. g( k' A: I
(defun c:ga13 ()9 J% @# j# v5 i; c4 ~5 B. v) @5 V1 ~- y
(setq a (getpoint "\nChon diem: "))
x# [- v1 V/ F# S Y& c7 x% }" u
(setq b (getpoint a"\nChon diem: "))
9 b5 ^" w+ ?- ?- O1 ~1 M* y+ {
(setq c (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2)))
( ~6 c5 `5 @0 J8 _
(command ".circle" c a): X, i7 ~2 ], i1 m) K- D: m# D
(command ".line" a c "")
8 Y8 b( L* m- ]0 u. \; m* _
(command ".array" "last" "" "p" c "13" "" "")
7 H" h9 |, X. i' a7 E. N" q
(princ))
# Z) J" K- {2 S: _! x
: Z: R! c" r9 F: C4 f$ c1 x
(defun c:ga15 ()
% Y. G' X! ?6 l0 g' z+ |0 R8 m
(setq a (getpoint "\nChon diem: ")). |" L* i1 c% R" M' G9 P
(setq b (getpoint a"\nChon diem: "))1 f: h; {; T+ i( N; A" q
(setq c (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2))): F# a' \) v7 U3 F$ J0 B7 P
(command ".circle" c a)! ~ b+ Y' H9 L( c; I' f. u
(command ".line" a c ""); Q2 }* Q' i3 X5 g+ \
(command ".array" "last" "" "p" c "15" "" "")
+ |. \' H* @6 G3 C0 l; D
(princ))+ ^3 e0 s7 V; S* N( u% f
1 u. n4 {. K5 [: w, I
(defun c:ga17 ()" w3 V! J; m; j. K+ p
(setq a (getpoint "\nChon diem: "))
1 [. `- `9 @' d* o( o
(setq b (getpoint a"\nChon diem: "))
+ s; K$ k; a4 }8 H4 d- \6 h
(setq c (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2)))& B x+ k) y+ `1 V; ~ e9 B+ W7 V
(command ".circle" c a)
, }- A/ x* N; r8 p' ]6 v; t: g( a
(command ".line" a c "")
^, X: @( a' \3 w: V: y8 s
(command ".array" "last" "" "p" c "17" "" "")
: C5 B* ~- V- ~# Q$ `- i/ P
(princ))4 P/ r k7 J ~" j* u9 f7 v5 F
# N3 N' F/ \% q. `, ?( Q) T
(defun c:ga19 ()" ]- `( h% \- h8 t9 v+ z, Q: B& w( T
(setq a (getpoint "\nChon diem: "))
/ s1 o4 ` N7 N" E1 V3 x
(setq b (getpoint a"\nChon diem: "))
; P9 @/ A: } @: c7 e0 H
(setq c (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2)))" ^, i( @4 G1 p. `4 e0 J- L
(command ".circle" c a)
5 p9 n' L% j! O; z" W& ]
(command ".line" a c "")
( s" n0 [9 s* H8 j4 x6 n2 z- Z) B
(command ".array" "last" "" "p" c "19" "" "")1 [4 |; M0 r3 t/ ^( ]
(princ))
4 N/ [, K; f7 Q; @. h ?' k
0 h/ L, a: U( k7 q; w7 j
;=====================================================================
2 m$ v6 T+ I6 |: l6 q
;============== FUNCTIONS GA 2+4+6+8+10+12+14+16+18+20 ===============; N6 _) D0 D- w! _- @, v# I* }
;=====================================================================, J$ X3 ?+ c) Y) @9 o% d) l$ q( g
(defun c:ga2 ()
9 ^! z/ g1 Y. c" Z( N: J0 e& f
(setq a (getpoint "\nChon diem: "))/ g2 S' `4 a! {4 o6 k% ]8 ^
(setq b (getpoint a"\nChon diem: "))9 M) g3 ~$ C& ^# }+ K3 U0 j
(setq c (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2)))
8 C% o- Y$ Q: |4 F
(command ".line" a c "")0 m' m) }! C/ o1 ^& f
(command ".array" "last" "" "p" c "2" "" "")
9 x" w* ^) c9 O- }
(command ".circle" c a)% t+ e/ O4 U. @( f3 H* x3 y
(princ))
4 t6 ~3 |. `( K8 w0 r/ n0 f" I7 D
- {" t% @, u- k y( j
(defun c:ga4 ()# K: ]" c7 s8 c3 h% a
(setq a (getpoint "\nChon diem: "))$ W& y& D5 k; R% u
(setq b (getpoint a"\nChon diem: "))
& Y- }7 a: \0 H5 G: @
(setq c (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2))). f1 M0 l9 @9 [* z
(command ".line" a c "")
7 M( P. J! E4 [( Q' U, e% J& P9 ]
(command ".array" "last" "" "p" c "4" "" "")& V5 f5 A% s6 t* Y
(command ".circle" c a); |. O n- E1 r' a* c
(princ))2 P J' E1 N) v( Q6 f3 N: c
; T- e: R/ a6 N' \1 A& d
(defun c:ga6 ()
" d/ h7 x& j7 Q8 w, e4 n3 B
(setq a (getpoint "\nChon diem: "))* E3 I! q7 j0 C/ s( p1 V* w! R
(setq b (getpoint a"\nChon diem: "))
7 m% @% Y% Y/ {8 @
(setq c (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2))). s) y" Z: a' O1 Q$ w4 s
(command ".line" a c "")% b! o9 Y8 j5 h
(command ".array" "last" "" "p" c "6" "" "")" D/ R& P& P1 Q4 D7 o
(command ".circle" c a)
& e j) _/ c$ _0 c
(princ))0 y4 I$ L* X0 l- ]9 ?* F" A
- [" M# c1 p k2 l
(defun c:ga8 ()9 P. x; D, L, Y Q. i- d: T5 V
(setq a (getpoint "\nChon diem: "))& K4 R# e* C3 X" ^$ [
(setq b (getpoint a"\nChon diem: "))
& n' t8 e6 Z$ u. y
(setq c (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2)))8 q2 {( Z/ A1 G i& P) Y8 a' R: w
(command ".line" a c "")3 z, r2 r( h9 L+ d) I. h* o% j. @6 J
(command ".array" "last" "" "p" c "8" "" "")
1 @# H/ U/ B: w, S) m
(command ".circle" c a)4 L: u6 L' s' `9 q' J+ }/ g7 Z$ R
(princ))$ l+ B+ j( v1 v
2 r2 f9 a" O! M( k$ N9 W9 e/ N6 V
(defun c:ga10 ()
) Z7 O- x' a5 G0 f f6 |
(setq a (getpoint "\nChon diem: "))
2 B2 U- P9 {7 ~1 Z1 K1 P- f! F
(setq b (getpoint a"\nChon diem: "))4 D5 @( E$ B3 Q' {. N
(setq c (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2)))
/ V5 R5 i6 a6 s) \2 B
(command ".line" a c "")+ j! n7 u# O9 n. C7 |$ ?' C
(command ".array" "last" "" "p" c "10" "" ""); x: d3 Q( a5 N
(command ".circle" c a)
( h3 t: x) D/ ]* A
(princ))4 P" j/ d; L% h4 [
( E6 t; ]! [3 G5 o# h
(defun c:ga12 ()8 I& \6 y6 D- u5 v3 M* z
(setq a (getpoint "\nChon diem: "))
3 K4 F9 N# K$ z' v) Y! L
(setq b (getpoint a"\nChon diem: "))- ^6 V5 e. t! s' N& y" D: @' |" z5 H
(setq c (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2)))/ l3 S0 N% {& Y; M# ~! C$ U
(command ".line" a c "")
+ X" v- N B5 X. D O
(command ".array" "last" "" "p" c "12" "" "")) \5 Q( q% E2 g
(command ".circle" c a)
# `+ {4 `+ E' n, w- c. `) ^+ ]5 R, o
(princ)); E4 `$ n+ c- E* v- [/ o* G# U0 Z
* ]& E0 v0 \: \% d, ~. P0 Y' G
(defun c:ga14 ()) I: ?& @& r; m9 B# b
(setq a (getpoint "\nChon diem: "))) ?' k* l, y8 Z9 a- J/ h
(setq b (getpoint a"\nChon diem: ")). S5 E! L. i" p1 M
(setq c (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2)))
, R8 j. z; K/ K ?
(command ".line" a c "")% \/ |; e2 `- l1 w
(command ".array" "last" "" "p" c "14" "" "")
1 w! |* e1 M0 t. b5 T
(command ".circle" c a)1 a z/ }- d9 R$ h
(princ))
; g2 `1 M* p' o- A a
5 j$ ?9 S$ l0 F8 L. c' s v
(defun c:ga16 ()8 x. m4 h0 J( b5 ~( i. b
(setq a (getpoint "\nChon diem: "))- I V' v, a; h: r$ `" n @4 ]
(setq b (getpoint a"\nChon diem: "))
: A* o( e" L8 K4 x" Y% z
(setq c (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2)))
( X# K6 R. E5 T* [/ Y5 t, Q6 Z4 Z# x
(command ".line" a c "")
# i0 p% @0 \& k8 R# n' W/ V
(command ".array" "last" "" "p" c "16" "" "")* N4 q A0 e$ c* \, H/ n
(command ".circle" c a)
6 r& h1 f) n Q7 ]- J
(princ))
0 c+ l; ?1 v; n( ?4 \% d
' s0 Y$ C- v2 a* Z" e
(defun c:ga18 ()
0 T* j7 B4 F& X% y
(setq a (getpoint "\nChon diem: "))9 Q3 n/ X* G, ~. M( g
(setq b (getpoint a"\nChon diem: "))4 i+ q$ Y3 P4 @* A3 Q
(setq c (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2)))+ c- @3 y2 p1 y- M) t! p1 z% [! q+ \
(command ".line" a c "")/ C+ `& A x$ y2 b m5 T
(command ".array" "last" "" "p" c "18" "" "")
' O; l+ m% T# {' l9 N
(command ".circle" c a)) W( }' {1 J, d1 ]$ ?- J
(princ))
& x7 a. z! U4 ]0 O0 X# C5 J" @
: \- X9 p1 R8 u1 Q, X% |: E- o
(defun c:ga20 ()# U+ K3 F. _! u
(setq a (getpoint "\nChon diem: "))& b7 y" @- h$ a; d
(setq b (getpoint a"\nChon diem: "))
7 ^7 V& n; N) {4 s$ E; W- f1 f
(setq c (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2)))
; c; M: S) s: \# L2 P4 y' j, l
(command ".line" a c "")% e. p8 L2 Z/ J& ]
(command ".array" "last" "" "p" c "20" "" ""), B8 ]# O3 t# a1 O! _# y9 @* H- [# `
(command ".circle" c a)8 s8 N$ s- | G9 g4 o' O6 \
(princ)). R5 |7 j% P4 y
5 D# P$ b C2 i. h% y
;=====================================================================
4 f7 ^# v: W+ j8 {1 [ x
;============== FUNCTIONS GA TUY THICH : EVERYTHING IF ===============
$ ~+ ?, G1 L6 f# c2 d
;========================== 06-11-2016 ~ 18h00 =======================
2 B1 X6 k4 J" l
;=====================================================================
2 j8 u0 U' f/ W. t1 {
(defun c:ga ()
) H6 E# B* P$ j/ P" b6 |
(setq a (getpoint "\nChon diem: "))
8 g |: t4 D3 G) E9 ^# i
(setq b (getpoint a"\nChon diem: "))
& ?& F5 W7 ]& C& ^- }* j/ j. _) _
(setq c (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2)))3 U ~" R! [ p; E) d0 P
(command ".circle" c a)) `' V! S! h* T9 O
(command ".line" a c "") K, t- v6 E% X5 o3 e/ k/ g
(command ".array" "last" "" "p" c "NUM" "" "")
7 m c, c4 x( u) s$ Z2 @0 I
(princ))
; _+ Z/ E2 M6 N
8 i! X) ~7 c4 r
;=====================================================================6 O0 Y- V8 t/ @
;=========== FUNCTIONS HOA THI TUY THICH : EVERYTHING IF =============
! c( D% F8 V# C0 S" G
;========================== 06-11-2016 ~ 18h40 =======================6 m2 Y% E& C+ V0 N9 K
;=====================================================================% `$ G% o( e. B
& O8 n5 J1 Y( K
(defun c:hoathi ()
S! e+ e! b }
(setq a (getpoint "\nChon diem: "))% `6 o5 w: E* Q* Z5 c
(setq b (getpoint a"\nChon diem: "))
' A9 p3 r+ p! t5 ]$ ~' V2 w0 N
(setq c (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2)))3 h0 J( w/ g2 d# V% c4 S) A
(command ".line" a c "")
/ y$ m( _" c& e
(command ".array" "last" "" "p" c "NUM" "" "")/ F& A5 X' }5 P; X
(princ))5 r' j+ x4 h7 R9 ^& t. V' S! }
9 Q' t2 M9 B+ H: H6 b# v I
;===================================================================== M4 ?+ ~- N' q
;============= FUNCTIONS CUNG TUY THICH : EVERYTHING IF ==============( w6 r/ p% q2 c [8 b; B. @' l
;========================== 03-11-2024 ~ 19h33 =======================
/ }5 E; U$ p% l' e& N. @4 f& f9 s9 a
;=====================================================================
5 Z- F6 v! t0 c& f3 ]4 h* [
/ q3 s& W: \, T) G" I
(defun c:cung (): a" f: _$ K% ^
(setq a (getpoint "\nChon diem: "))3 e1 R3 K( d. O6 V* |1 i- u
(setq b (getpoint a"\nChon diem: "))2 f5 \) J- J- [* ~
(setq c (getpoint a"\nChon diem: "))' t3 B+ z; [. Y# ~
(setq d (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2)))
% e, k& N' R W' K" B4 ?9 [' K2 S
(command ".arc" a b c "")
/ J2 k4 U" ?2 [) h1 J k/ J$ N
(command ".array" "last" "" "p" c "NUM" "" "")
4 x0 k7 u: `0 U& p# p+ f, ~# J
(princ))
, n5 E, R! `! n! K
( j1 }% c; r. C
;=====================================================================
$ I" w c& w, x- a) b9 P
;============ FUNCTIONS HECLOIC TUY THICH : EVERYTHING IF ============
& z0 e" f5 K4 M
;========================== 03-11-2024 ~ 20h02 =======================
' g; K$ e9 Q7 |9 R2 e
;=====================================================================2 c7 F+ u; G! l3 g0 k; [; q4 [
4 T7 G( K$ W3 ^) c, I
(defun c:hecloic () Q( l! \3 G8 B4 s: F* t4 {
(setq a (getpoint "\nChon diem: "))$ H6 P6 \% H" u% D! _ I
(setq b (getpoint a"\nChon diem: multi "))
7 c/ U! p7 S( E2 A( F
(setq c (getpoint a"\nChon diem: "))(princ)$ K3 f% y* J$ [% m( d1 D
(setq d (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2)))
$ M6 D( G: I' C j% b1 d# n# ~
(command ".arc" a b c "")) D2 C! w* p2 A4 \) `; ]# r1 r
(command ".array" "last" "" "p" c "NUM" "" "")
: b/ |2 R4 B2 g6 |) |% ?
(princ))
! _ _4 h) L( |- Q% r, J
# W1 S' K" d- s2 s w' t
;=====================================================================5 w2 @- P/ K% F" C; o2 @
;============== FUNCTIONS GAY TUY THICH : EVERYTHING IF ==============
6 K: z7 i, n& E% W( u! n. C- [
;========================== 03-11-2024 ~ 19h38 =======================4 Y) x- L/ H! J+ U
;=====================================================================
- O' V) B. t4 i
# F# e4 q) m! k
(defun c:gay ()! D: y4 e. ?# f a: b! U7 O
(setq a (getpoint "\nChon diem: "))* w }3 u& }) U1 i7 d6 h
(setq b (getpoint a"\nChon diem: "))
4 H: D- |9 l, g+ t+ u' t) r0 S
(setq c (getpoint a"\nChon diem: "))(princ)
2 b% Y2 Q% x$ k g2 t% \ M, X" q
(setq d (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2)))0 o7 G3 \0 R" y2 ?+ }
(command ".pline" a b c "")
! N& n1 s% O% s
(command ".array" "last" "" "p" c "NUM" "" "")9 H% p$ g4 t: x7 l
(princ))0 [) A/ A- D; e2 s' K7 x. H3 ]% H
! q5 A) k; Q& c$ C' B
;=====================================================================, M' V. u7 ]) ~ n: F; w! R
;============ FUNCTIONS HECLOIT TUY THICH : EVERYTHING IF ============
# x- _0 b% l% y; v. l) C
;========================== 03-11-2024 ~ 20h02 =======================
0 |" k+ K: ^& Y
;=====================================================================
8 N- z3 u' z! Q' z8 _
. F) R; m5 O0 Y# J# Q; j( p
(defun c:hecloit ()! K5 C. Z# E+ I! M! F
(setq a (getpoint "\nChon diem: "))
) \* `7 X( ]' o# K n
(setq b (getpoint a"\nChon diem: multi "))$ ~2 b# Q) M) R5 C7 l( b
(setq c (getpoint a"\nChon diem: "))(princ)1 ~* G: y8 r( n, ~
(setq d (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2)))9 k, H& P6 V9 s$ ^7 o) f& z( H2 N1 w
(command ".pline" a b c "")! U) H/ @6 m+ V& [9 _) x4 V
(command ".array" "last" "" "p" c "NUM" "" "")
" w# G. D1 A8 m1 r; L. y& M
(princ))
0 p* Q' f2 {1 P0 E) r9 v
$ ? p0 Q- Q' ^) ], ^( G, n
2 a/ x! ^$ u& L. H* h; i( B- `/ O
;;; ============================ Merge Hatch =============================' E! p; K( x( u* M
9 }: ~% D" W( ]5 t0 e
(defun c:mh (/ ss entht sl i dt dtht)
( J3 O- }+ g1 h- B" I% D
" D/ k$ l# c0 T0 o1 o9 Z
(princ "\nMerge Hatch - free lisp from CADViet.com")+ \4 \4 {( Q7 J# U, V: ~& z! v$ y4 o, x
' J9 a) M6 j$ I* S- _8 x2 `7 t
(setq# ~2 ?0 ~/ N( w( |
ss (ssget '((0 . "HATCH")))* o2 A6 v; k; n7 ]+ [
sl (if ss8 P% x9 `. d; I# t/ u( v
(sslength ss)
) J- K6 Z9 ^* }1 V# \2 \4 h3 k
0) f4 X9 c+ B: Z( c$ J) k" |
)9 m# e& e) j$ L- z: A6 g/ o* ?0 w# {
i 0
# P9 u( Y% X8 K, y8 N8 \" g% `. Q
l 0$ [5 h9 O8 @9 }$ F6 ]- o0 Z2 J" T
)0 V, |! r. N- v" u0 L# |
! P8 O9 d/ I* P
(repeat sl
' j- |$ z+ E A" q. J
(setq
7 C. U* z, S4 h# {% s
entht (ssname ss i)6 k6 }* s4 L! }: V1 s: K; u( A5 J
dtht (getbdata entht)- N+ s$ m s+ ]1 }& B9 e
dt (append dt dtht)
; R/ o* c$ J% d7 n6 L. `
l (+ l (cdr (assoc 91 (entget entht))))% @8 ~( G Z0 E: b% U
i (1+ i)
+ W/ F' ?0 \+ H" B1 ]! r. b% y
)
8 h, O% p0 t0 I+ k; e
)4 n) a" S/ ~5 k4 M$ [
. |& O/ [" D* T! J" b# k% t
(setq ent (ssname ss 0)+ p; L5 T- c! j" I, _; [: X
ss (ssdel ent ss)
# [$ }. a9 `) o/ x# D
tt (entget ent)+ p Y7 g+ a$ t$ G; \
duoi (member (assoc 75 tt) tt)
; n' x' S) h# o# V5 l* t) ?
dau (reverse (member (assoc 91 tt) (reverse tt)))! t" C( S- \9 M) U
tt (append dau dt duoi)2 ]8 K# e6 {" a# F% ]
tt (subst (cons 91 l) (assoc 91 tt) tt)( T) H$ U: T) Z' U0 J }' }* \
)
& P- B& P' P+ B) ^) N
(entmod tt)6 ?6 A" i9 |! J2 w
3 U6 Y1 K: N9 R! g* @% Y5 \/ g* z
(command ".erase" ss "")
) I5 ]/ O( b ~ |
(princ)% ]& N% L% c1 a
)
+ [% o2 i$ Y5 R3 k
? g% {+ U, N
(defun getbdata (ent)
( T7 L; W _6 t. ~: ]: V
(setq tt (entget ent)6 S/ M: B6 g' U. r- s
tt (cdr (member (assoc 75 tt) (reverse tt)))$ s' s3 G( S! v& R+ V9 R
tt (cdr (member (assoc 91 tt) (reverse tt)))
% h6 x/ L$ M/ B' j) n
), m% n( [& U! `! B' h/ }2 P
)# ^+ \$ ]. ^& o- S. n
4 \, T, O$ K( `/ {5 _
/ T0 q9 k" \: t
(princ)$ G5 z7 E O( J1 Y' l8 `( V1 N
0 b! j9 ?' X4 X; D
;;; =========================== CAC LENH LAYER ==============================- @3 @2 N) y3 g4 j) F! v9 G0 l1 r
;;; =========================== Layer hien hanh =============================
% [: n/ p% E; L( d5 Z% @
8 W6 c' ]- ^. d4 ~" u/ |, w
(defun layset (/ LAY) (setvar "cmdecho" 0)
$ |" e4 ~" N# o& ^' z8 u
(setq LAY (entsel "\nPick vao doi tuong muon Layer hien hanh la Layer cua doi tuong do : "))2 I. Z% I/ j1 ~. g2 {0 A
(if LAY (progn
6 T7 | ?0 I6 b0 u/ D/ k
(setq LAY (cdr (assoc 8 (entget (car LAY)))))
3 g" C5 m1 Z# M; Q( F: D- R8 s2 \
(command "_.layer" "set" LAY "") (princ (strcat "\nLayer : " LAY " da la hien hanh.")) )# @0 M; ]. F4 i- }* Y7 [
(progn
2 R9 q5 c1 D! U& D6 x# {
(if (not ddlop) (load "ddlop")) (if (setq LAY (ddlop))
1 z! Z/ e9 M, A) N9 z
(progn
8 m- D( ], D- E" R
(command "_.LAYER" "ON" LAY "THAW" LAY "SET" LAY "") (princ (strcat "\nLayer : " LAY " da la hien hanh.")) ) ) ) )(princ) )9 Q5 a2 _& M$ [; M9 H" j, D" W6 p
(defun c:LLL () (layset))(defun c:LAYSET () (layset))
5 B: Q2 q# \. Q& k! L# E% t. E! d
6 I1 ?( c, n/ ~* `
;;; ================== Cap nhat doi tuong vao layer hien hanh ==================
7 g; a8 x \$ j. Z3 ?+ Y
5 q5 `1 B& ~9 H# d
(Defun LAYCUR (/ SS CNT LAY) (setvar "cmdecho" 0)# |! g) U! T4 f/ ~
(if (not (setq SS (ssget "i"))); E9 G1 i. G% g* Z1 e: i
(progn (prompt "\nChon doi tuong cap nhat vao layer hien hanh: ")
2 c, G' U/ e4 g6 j
(setq SS (ssget)) ) )
- y0 F8 W: x6 y) k; X( W
(if SS (progn( I v$ d% {; S7 w( i
(setq CNT (sslength SS)) (princ (strcat "\n" (itoa CNT) " doi tuong tim thay.")) (command "_.move" SS "") * p r7 o5 k- B/ @( N0 y
(if (> (getvar "cmdactive") 0)
, d# ~% G r3 y- H, o3 \
(progn
, m4 [7 O9 F: L& a) y' ^- y- d8 O9 A: |
(command "0,0" "0,0") (setq SS (ssget "p") CNT (- CNT (sslength SS)) ) )
2 H$ o$ F# Y( A+ Y( m2 U& F
(setq SS nil) ) (if (> CNT 0)
# `3 w( |& R8 _
(princ (strcat "\n" (itoa CNT) " doi tuong tren layer LOCK.")) ) ) )
8 l3 ]7 N9 Q1 C4 F1 i3 N2 N" u
(if SS (progn
& ?! M. a; @7 O% V( ^% Q. o* r
(setq LAY (getvar "CLAYER")) (command "_.chprop" SS "" "_la" LAY "")
b8 P; D! h- q C, b8 m
(if (= (sslength SS) 1)1 o6 W1 I6 t9 V, S
(prompt (strcat "\n1 doi tuong da cap nhat vao layer : " LAY " (layer hien hanh)."))
& w( z: n4 a2 Q; [
(prompt (strcat "\n" (itoa (sslength SS)) " doi tuong da cap nhat vao layer : " LAY " (layer hien hanh).")) ) )) (princ) );end) [$ \! q5 K3 C) A
(defun c:LAYCUR () (laycur)) (defun c:LHH () (laycur))
! K( i' {0 b }; A! q" O
" H* _- e) w" {7 x$ m% n6 B
;;; =========================== Layer Iso ===================================
0 `' U9 Y" m' ?# ^3 o6 X
5 f; v: c. o) R4 W" k' f; y6 W
(Defun LAYISO (/ SS CNT LAY LAYLST VAL) (setvar "cmdecho" 0): O- H% Q- _& c) [
(if (not (setq SS (ssget "i"))) (progn( h! `. v) N K) ]
(prompt "\nChon doi tuong tren layer(s) muon lam viec doc lap: ")
3 _1 D5 V& t( S
(setq SS (ssget)) ) ); M, k; D) R9 Q, z8 K. \8 f+ |
(if SS (progn (setq CNT 0)
, P9 E2 a6 X6 t* d5 j* u, r7 u
(while (setq LAY (ssname SS CNT))
3 F6 k' j2 J6 ?
(setq LAY (cdr (assoc 8 (entget LAY))))
, b' m0 K/ C7 D1 v- `* L2 M2 O
(if (not (member LAY LAYLST))1 @ i, y( B+ U, H5 F
(setq LAYLST (cons LAY LAYLST)) )
6 e# i7 x* G0 g9 s8 h \
(setq CNT (1+ CNT)) )
: T0 |: r/ k% N' r6 X5 `
(if (member (getvar "CLAYER") LAYLST)
9 y" U. x8 z$ p' r' h
(setq LAY (getvar "CLAYER"))
) R$ S2 A* K6 f( \+ j
(setvar "CLAYER" (setq LAY (last LAYLST))) )2 K2 V# P) w9 s- V
(command "_.LAYER" "_OFF" "*" "_Y")
! t+ i# \" Y# T9 b
(foreach VAL LAYLST (command "_ON" VAL))
7 I1 u: ^' X3 }8 F! S
(command "") (if (= (length LAYLST) 1)
7 f- F$ a% F5 I) w% n
(prompt (strcat "\nLayer " (car LAYLST) " da tach ra."))
4 b/ k% {( i6 Q0 G) K
(prompt (strcat "\n" (itoa (length LAYLST)) " layers da tach ra. "% ?$ g0 I4 j1 k8 G6 c* R6 H
"Layer " LAY " la hien hanh." ) ) ) ) ) (princ) )
7 R }$ n: d1 k Y$ A, {
(defun c:LAYISO () (layiso)) (defun c:LI () (layiso))
6 r' U$ w4 C$ I- X' Z
$ n& B! C; D8 F9 F' C) \
;;; ========================= Layer Match ==================================
- h# r, ] E' q' q( g4 `
8 I; A& l' }# g9 D/ `5 P
(Defun LAYMCH (/ SS CNT LOOP LAY ANS)$ S# ?& V1 N' i$ ]$ L# Z
(setvar "cmdecho" 0)
6 M% p7 {, o# O* F0 M2 [
(if (not (setq SS (ssget "i"))) (progn* G7 }$ i8 O, \' p
(prompt "\nChon doi tuong muon thay doi Layer : ")
2 M- r/ W, C, T1 e P2 w/ a
(setq SS (ssget)) ) )
- l: g7 h- f. G* u9 H; C- b1 s
(if SS (progn. l P' o! Z/ Y' |! ?# {+ k+ l
(setq CNT (sslength SS))
" P4 N0 r" N/ G
(princ (strcat "\n" (itoa CNT) " found.")) (command "_.move" SS "") 1 A. ~, \$ W& }
(if (> (getvar "cmdactive") 0) (progn
" ]7 o9 \$ G; ^' Q/ k; s t
(command "0,0" "0,0") (setq SS (ssget "p")
[; s4 d; u; n. ?6 P# N" S7 A
CNT (- CNT (sslength SS)) ) )
* }2 o$ `* N a& `0 _
(setq SS nil) ) (if (> CNT 0)
5 K/ K# |$ u6 T; J% x
(princ (strcat "\n" (itoa CNT) " tren layer LOCK.")) ) ) )$ f) g% h- J2 k$ z
(if SS (progn! ~& O }. K' Z& f0 |& g) s
(initget "Ten") (setq LAY (entsel "\nTen layer/<Pick doi tuong>: ") LOOP T )
. S* U" y; U+ Z' m/ b. p
(while LOOP (cond
7 }2 \+ R" z8 h+ M- \1 {; ^
((not LAY)0 b1 f2 h/ l6 p, V- Y& b
(prompt "\nKhong chon doi tuong.")
$ o% }( z# Q, Z$ E5 g8 f
(prompt "\nSu dung layer hien hanh? <Y> ")
F+ D5 |& Y+ u+ l |/ ~' i
(setq ANS (strcase (getstring)))
~! S% g, T, i8 H( ]4 S2 K
(if (or (= ANS "") (= ANS "Y") (= ANS "YES"))1 K3 u8 G) k8 ` W; a3 A5 ^8 {6 k
(setq LAY (getvar "clayer") LOOP nil ) ) )
0 z* z; r4 T0 `4 m
((listp LAY) (setq LOOP nil) )
4 ^- N, k- [' H0 t' W
((= LAY "Ten")
, I& a. ], G. @1 D
(setq LAY (getstring "\n>Nhap ten layer: "))
- i8 P% m8 D; ~; h7 G- y
(cond
3 [! l5 [/ q4 e6 L: d* \& g
((tblsearch "LAYER" LAY) (setq LOOP nil) )
& X: ^/ s( o+ V0 |, v
((/= LAY "")
& I! d5 k5 L0 T9 ?$ x
(prompt "\nLayer chua co trong ban ve. Tao layer moi? <Y>: ")* K& E3 q; o* N4 C% Q( Q$ X
(setq ANS (strcase (getstring)))/ [8 V9 N5 Y' @. j3 n9 u& b7 n- G; M
(if (or (= ANS "") (= ANS "Y") (= ANS "YES"))
% v4 U0 `4 n, O/ `3 ^9 ?- i& s- D& g( T
(progn( o! z% D) e: B% g2 K5 ?
(command "_.LAYER" "NEW" LAY "") r% Q0 S, w$ [$ n5 l) ] Y
(setq LOOP nil) )
( q* Y6 y; m2 D. ]4 A4 j8 I
(prompt "\nLoi ten layer.") ) ) ) ) )6 h: Z: [4 h. g/ K5 @9 _' J
(if LOOP (progn (initget "Ten")
+ Z1 b: \9 g5 U
(setq LAY (entsel "\nTen layer/<Pick doi tuong>: ")) ) ) ); while LOOP8 b, Z# X! ]: [
(if (listp LAY)) b7 N! f0 i3 X+ Y5 l. P$ i
(setq LAY (cdr (assoc 8 (entget (car LAY))))) )
" j+ c! P3 t$ D4 S
(command "_.chprop" SS "" "_la" LAY "")
, n0 G% z* {- O% J& Y. p' [
(if SS (prompt (strcat "\n" (itoa (sslength SS)) " doi tuong thay doi toi layer " LAY )) )2 x. C0 s9 Z8 k2 G$ c0 W
(if (= LAY (getvar "clayer"))% h; K* s5 N1 N4 u7 t, ?
(prompt " (layer hien hanh).") (prompt ".") ) ) ) (princ) )
( l; C% \. K+ R$ g
(defun c:LAYMCH () (laymch)) (defun c:CLL () (laymch))3 k! j/ ~& R; h; d6 F; }0 U
2 X; n# c4 ?3 H8 l: U" B Y
;;; ============================ Layer OFF =================================7 I) s! c Q0 \2 H1 r
% Y8 D+ N0 n( Q
(DEFUN C:LJ (/ SSET SSL ENT LAY I MODE)
5 J$ ~/ V. z! |1 U H. V
(SETQ SSET (SSGET))
2 ?' R1 I* l- t7 Z7 _8 z( C
(IF (/= NIL SSET) 9 w% {% S6 z; {7 M- I
(PROGN
1 j- K1 K, d: ?! n; [4 p7 Z v
(SETQ SSL (SSLENGTH SSET))
1 G# g6 r0 i! a3 S f- K, Q
(SETQ LAY "")2 y( k4 Y+ S# X" T" I
(SETQ I 0)
. b1 [: {( x+ w/ \
(SETQ MODE 0) ' p6 o7 ^( e' B, Q9 R
(WHILE (< I SSL)
2 L+ e2 n9 B& q
(SETQ ENT (ENTGET (SSNAME SSET I)))
3 }* a5 J+ e/ o+ k, `8 }
(IF (= (CDR (ASSOC '8 ENT)) (GETVAR "CLAYER")) (SETQ MODE 1) )2 u8 \, r8 L8 |$ K' A
(SETQ LAY (STRCAT LAY "," (CDR (ASSOC '8 ENT)) ))
+ ?6 [, K# p8 T
(SETQ I (+ I 1))
; S, }9 e2 m- m
)- z7 p( u$ X/ I
(COMMAND "LAYER" "OFF" LAY "")5 k& A) B: g" _) {! {- f& |
(IF (= MODE 1) (COMMAND "") )
5 F- ~7 Z2 c6 X
)
; f O* X5 ~$ B' J7 {* v# n9 f
)( F& ]; Z5 [5 f
(PRINC)% d2 b# ?7 p5 d# G: b
)- I7 W0 v) @; U1 _# I
; k" D P; m; h1 `) I; c2 {- a5 o
;;; ================================ Layer ON ==============================
; O9 H+ a. K& \. I2 }+ ]* B' J
1 r7 U/ \7 j! O8 M0 s6 D
(Defun LAYON () (setvar "cmdecho" 0)
& A1 D2 b' D; @8 x- B! x
(setq Lay loff1) (setq Loff1 Loff2) (setq Loff2 Loff3) (setq Loff3 Loff4) (setq Loff4 Loff5) (setq Loff5 Loff6) (setq Loff6 "0")
, o$ ~$ s. I$ k6 e- Y/ n! w' ?
(Command "LAYER" "ON" Lay "") (princ (strcat "\n Layer : " LAY " da ON.")) (princ))# a7 u# S' H. Z( v9 P. w$ r
(defun c:LAYON () (layon)) (defun c:LOO () (layon))
: E: x) f* c$ |0 F, c
(Defun C:LO () (setvar "cmdecho" 0) (Command "_.LAYER" "_ON" "*" "") (princ "\nDa ON toan bo cac Layer !") (princ))
# s1 p! V: I8 r6 @
6 `. i' Z% z' M, C* a8 i" _; M
;;; ============================== Layer Freeze ===========================
$ D1 _/ W; [ O; P
5 ^" M* V1 i8 ^7 a& H
(Defun LAYFRZ (/ LAY TEMP)(setvar "cmdecho" 0)
. s! V" m: J$ E4 k4 E
(prompt "\nChon doi tuong tren layer(s) muon FREEZE: ") (SETQ SSET (SSGET))% C6 f9 ?9 I& s
(IF (/= NIL SSET) (PROGN
) E4 u1 ?- N$ ]6 V
(SETQ SSL (SSLENGTH SSET)) (SETQ LAY "") (SETQ I 0) (SETQ MODE 0)
9 a9 `1 d- ^2 n0 ?: ?* I
(WHILE (< I SSL)% j6 t! W3 r6 O: {+ W& Y! D
(SETQ ENT (ENTGET (SSNAME SSET I)))6 u# J# P \- o I2 ^0 u7 X; k
(IF (= (CDR (ASSOC '8 ENT)) (GETVAR "CLAYER")) (SETQ MODE 1) )
$ W: @- B0 B1 L
(SETQ LAY (STRCAT LAY "," (CDR (ASSOC '8 ENT)) )) (SETQ I (+ I 1)))
b$ A. i1 N; _+ ?; z2 c" h! t! R
(COMMAND "LAYER" "FREEZE" LAY "")
0 L3 g. P0 Z- I" U
(IF (= MODE 1) (COMMAND ""))))0 w/ s$ q$ E# w' w( x
(setq Lff6 Lff5) (setq Lff5 Lff4) (setq Lff4 Lff3) (setq Lff3 Lff2) (setq Lff2 Lff1) (setq Lff1 LAY)+ t6 j* M9 T2 R$ v1 v4 v/ N
(princ (strcat "\n Layer " LAY " da FREEZE."))(setvar "cmdecho" 1) (princ) )9 N* e0 b2 S& B% Z$ z- b, m5 { X
(defun c:LAYFRZ () (layfrz)) (defun c:LF () (layfrz))
0 k4 \% h3 [% P; x0 _; s# ]. c
9 A' V2 w" G2 ^& c
;;; ============================== Layer Thaw ===============================
( F* C7 k5 `! X9 D0 r4 |% C& l
+ ?$ E0 V* d+ X1 R; K" G ~1 A$ Y2 ]
(Defun LAYTHW ()
6 J& o$ z' p# f
(setvar "cmdecho" 0)
# Y. Z+ a0 m+ O. G& x
(setq Lay lff1) (setq Lff1 Lff2) (setq Lff2 Lff3) (setq Lff3 Lff4) (setq Lff4 Lff5) (setq Lff5 Lff6) (setq Lff6 "0")
" z6 Q. ]3 D3 y, S b/ ~0 J
(Command "_.LAYER" "_THAW" LAY "")
- a$ \) f* J% B* {
(princ (strcat "\n Layer : " LAY " da THAW."))
& v1 d+ |, O! v" c
(princ) ): q; }5 F: o* r9 Q
(defun c:LAYTHW () (laythw)) (defun c:LW () (laythw))
9 v9 f% E" g6 o6 o/ `, e. N
* q$ P2 j \# k2 c. h3 C7 ~0 F
;;; ============================== Layer Lock ==============================, S b2 z- Q' d2 ]( W: u% | a( g( k
) K7 ]4 {( L: N3 c* m) a
(Defun LAYLCK (/ LAY)
: c& M, L5 k/ p/ r
(setvar "cmdecho" 0)$ z. X/ P: C8 {3 N" Z
(setq LAY (entsel "\n>Pick doi tuong tren layer muon LOCK: "))* `/ h3 l. O) j6 [% z
(if LAY
$ _' {8 G3 H8 t3 d+ m
(progn- G4 D" p j# I0 m" X$ X" Y
(setq LAY (cdr (assoc 8 (entget (car LAY)))))' d3 x3 Y6 J" r
(Command "_.LAYER" "_LOCK" LAY "")
% i. X7 L% X$ }; X: }1 L% @$ Z$ E
(princ (strcat "\nLayer " LAY " da LOCK.")) ) ) (princ) )
% L0 O0 |: W* h$ ]1 P
(defun c:LAYLCK () (laylck)) (defun c:LK () (laylck))
. }# y: l; x8 S, B2 d/ p" `! `5 C
2 v7 Q5 C6 |: T3 \
;;; ============================== Layer UnLock ==============================
! G7 a) N- ]; v0 M
8 c, a* `; N) o9 k0 X- i: C6 ~4 f+ c6 P
(Defun LAYULK (/ LAY)* M8 R y7 H6 b6 ?/ k- g+ a. m
(setvar "cmdecho" 0)
+ o, e, n# G$ J {: Z& x {# B
(setq LAY (entsel "\n>Pick doi tuong tren layer muon UNLOCK: "))" J4 B4 L* T1 L+ d5 m/ g
(if LAY- I+ ]* A1 r: _0 a/ u' ?! g) K
(progn5 T1 ~8 J# R' c0 ?
(setq LAY (cdr (assoc 8 (entget (car LAY)))))
" ]) D3 z+ I7 z
(Command "_.LAYER" "_UNLOCK" LAY "")
9 o2 \1 N/ S6 w M/ L- p' b; e6 L" }
(princ (strcat "\nLayer " LAY " da UNLOCK.")) ) ) (princ) )7 I) l7 a ~" r0 Z; B5 }( b# y+ R
(defun c:LAYULK () (layulk)) (defun c:LU () (layulk))
! S. ]; V* ?/ X
$ c! G5 }2 U4 N: `% b
;;;===================== Delete all objects of Layer ========================' K% p* U2 W, I! `" R4 t |
8 u# W: \5 H; }+ ]
(defun DELAYER (/ ocmd L S)
% X: n6 b& [2 `" j& b' i. o
(setq ocmd (getvar "CMDECHO"))
3 D4 g2 p& {; t* m
(setvar "CMDECHO" 0)
* s; J9 F* p/ _; f
(setq L (strcase (getstring "\nLayer(s) to delete: ")))3 I, Z1 K" w; Z4 a
(setq S (ssget "X" (list (cons 8 L))))
2 _" B# h, _$ w4 r' L8 h# a
(if S $ {2 W8 j# U, B* Q) e
(command "ERASE" S "") 6 R- w# V; p4 f7 E/ C% L% C9 ]+ H r
(princ "Layer empty or not a valid layer name.") ) # Y6 M" C2 I* P$ q8 r7 A4 i
(setq S nil) ; W. D( `- r1 n6 D
(setvar "CMDECHO" ocmd)
/ z" K% u; h8 v2 e; P
(princ) ) % L+ C2 d. @2 U& h# s' |
(defun c:DELAYER () (delayer)) (defun c:DELLAYER () (delayer)) (defun c:DEL () (delayer)) U: {) l9 F c9 v2 M) F" `* i& _
?2 {1 s. {. ]) F6 ?' s$ y
;;; ========================= HET CAC LENH LAYER ===========================2 F) g8 A- b. M. q s
, A# K, [: c6 q7 O+ D2 r! Z
;;;====================== EXTEND NHIEU DOI TUONG ===========================
- t. J$ \2 h* n( j
, n+ C' ?( C8 f N# V2 p6 u
(Defun C:EET ()3 G5 R5 J. C: r' h5 V
(Setq CVAR (Getvar "CMDECHO")) (Setvar "CMDECHO" 0)
2 w4 p& I' S6 z' S4 E$ b
(Prompt "Chon doi tuong dich cua EXTEND :") (Setq CUTEDG (Ssget))
" H+ F1 y" l, _7 o
(Prompt "Chon doi tuong de Extend :") (Setq SS (SSget)) (Setq LEN (SSlength SS))) X+ L8 d5 C7 g! f A+ i
(Setq I -1)# h Y+ P R. H _
(Setq SIDE (getpoint"Chon phia de EXTEND")) (Command "EXTEND" CUTEDG "")
# N7 p* v) t" X$ l0 x$ x$ v( q
(Repeat LEN
0 p8 [* l3 [- U: J
(Setq I (1+ I))
, y5 T3 z2 r D! x9 G4 C- S! k+ }! Q
(Command (List(SSname SS I) SIDE)) ) (Command "")
* F! P* z0 W4 R+ K8 z h( ~
(Setvar "CMDECHO" CVAR) (Princ "Da Extend xong moi ban lam tiep") (Princ) ). |/ `& a9 R: b# M
; ^! K) p9 G$ n
;;; =============== EXTEND 1 DOI TUONG THEO KHOANG CACH ===============7 i. z& b1 x s% i7 U" z) D
4 \6 d4 X9 v* b/ O' d
(defun c:ETT () (setq os (getvar "osmode")) (setvar "osmode" 512)
$ @ @+ q, x8 X0 e" _( l. U# Q8 P
(setq pt1 (getpoint "\nKich vao 1 dau doan thang can EXTEND "))
(setvar "osmode" os): h+ Y V* Y# e9 @5 U$ X
(setq dis (getdist pt1 "\nKhoang cach can EXTEND :"))/ W2 }5 \4 X+ i' s( ~2 a
(command "circle" "endpoint" pt1 dis) (command "extend" "last" "" pt1 "") (command "erase" "last" "") (princ))/ g" }+ C& P6 a+ ]& F( K
4 D& `3 l8 n% ^* R* D0 f( Z. f: i( Z
;; ================ Change width of polylines =========================
+ \% C. M. B" p8 Q/ V
6 O* i( E* h( v: ?& R+ O, k
(DEFUN wp (/ a b sophantu sodem list1 ha:wid)
- E' ?1 e. L$ }+ E; J) |
(PRINC "\n Chon doi tuong can thay doi do day (Width) !") 8 ?% {) c$ t1 H! Q9 n: F
(setq b (ssget))
. A i2 q/ H' N2 x
(setq sophantu (sslength b))
: v+ k' K3 L5 h! e: X' z% d
(if (null ha:wid) (setq ha:wid (getvar "tracewid"))) d2 X& R! n& j
(princ "\nDo rong polyline <")( `" y8 n' N y* b8 P; B
(princ ha:wid): F1 Z* i# g, ?! Z4 \' \* {1 q
(princ ">: ")
3 I& }0 v0 ]) o1 u* R! a
(initget 4)
! g- b) Q% m3 o6 O3 @% |7 B0 S, o
(setq ha:wid (getdist))
6 ~1 e0 m5 I- p) \% E; q5 ^
(if (null ha:wid) (setq ha:wid (getvar "tracewid")))
9 s7 x. i& |# S
(setvar "tracewid" ha:wid)$ ^5 x& f! d9 S: D. Y$ ^
(setvar "cmdecho" 0)- p- M4 J/ b! j1 @2 [
(setq sodem 0) - W9 v3 S: X* H* i1 F$ ]
(repeat sophantu
) X/ W8 B7 R G! d4 h% \
(setq a (ssname b sodem))( C k$ u+ _* @. [6 B1 z
(setq list1 (assoc 0 (entget a)))
7 W% ^. e; F- r3 _0 |. G W# t
(cond. b5 b& M, o4 A# k7 w
((= (cdr list1) "POLYLINE") (command "_Pedit" a "w" ha:wid ""))8 s2 k* l; Z A- Y, A7 G
(PROGN (command "_Pedit" a "" "w" ha:wid "")) ) 6 {. O. ~. B m
(setq sodem (1+ sodem)) )(SETVAR "cmdecho" 1)(princ))' C! ^5 L9 i* d# s+ O/ S ^+ @
(defun c:wp () (wp)) (defun c:pw () (wp))
/ A4 p9 h: t8 a- q" f
2 o; }" w; |* P( @( D
;; ================ Change radius of circles ==========================
+ g( {/ w) s5 A
7 Q/ t4 z4 i' i) |
(DEFUN C:CHR (/ SSET SSL M RD I) (PRINC "\nSelect Circles :") (SETQ SSET (SSGET))
4 ]" ]. o9 s/ p' y) l% u
(IF (/= NIL SSET) (PROGN (SETQ SSL (SSLENGTH SSET)) (INITGET 4 "") (SETQ RD (GETDIST "\nNew radius : "))
1 e- i" C% Y: m2 W' d e' ?
(IF (/= RD NIL) (PROGN (SETQ I 0)
8 T; e" @; M1 O M/ A- v
(WHILE (< I SSL) (SETQ M (ENTGET (SSNAME SSET I) ) )
" A- ?. [' T% X- D( ~
(IF (= (CDR (ASSOC '0 M)) "CIRCLE") (PROGN
* Y2 t4 }/ R" i1 m, i& | u( L
(SETQ M (SUBST (CONS 40 RD) (ASSOC 40 M) M)) (ENTMOD M) ) ) (SETQ I (+ I 1)) ) ) ))) (PRINC) ). |: b g1 B+ H" _+ T
, l& ^# d4 @1 _' ~# S
;;; ============================== TEXT Hight ===============================' G' k, I1 Y r/ _! v6 G) I) w
* v6 A- y( ^0 G; l7 U8 H
(defun texthght (/ ent hght)
# {/ ]7 p9 J0 S9 p; I
(setvar "cmdecho" 1)
; ~2 P* l- S5 e' y
(prompt (strcat"\nSelect text entity with required text height"))
9 v* l9 k3 e7 E( P
(prompt (strcat"\n."))
. B, _8 s4 a4 z3 K; ?
(setq ent (entget (car (entsel))))
5 K; K- E2 H2 O; X& w- W
(setq hght (cdr (assoc 40 ent)))
; M7 q2 z* t. e' a2 P
(prompt (strcat"\nText height now set at "))(prin1 hght)
r: q) o/ { Q& p. S6 U# L- P
(prompt (strcat"\n.")) ) @" G e, ~( {4 _, R
(setvar "cmdecho" 1), [: K, z- }. }8 L( s
(command "DTEXT" PAUSE hght "") )
t1 L$ v5 }5 m
(defun c:teh () (texthght)) (defun c:texthght () (texthght))& P3 d, l4 C9 p+ S8 j+ f
# R& R- [) X& \6 S6 x& R
;;; ================ BAT -TAT CHE DO GACH CHAN TEXT =================
% U G" Y: O* d1 Y
G: h1 f/ E" \+ }/ Q' A! w4 [, S
(defun c:tuu () (setvar "cmdecho" 0)
7 B$ l+ ~& M& |$ U8 @6 o
(prompt "\nHay chon dong TEXT can gach chan ")
( M) \9 _# }# y& Y) X- w) p4 L
(prompt "\nSelect objects: ")' ]. s3 b% I+ r, ?% ~# _/ i) [
(command "select" "au" pause)
: O8 ~/ P9 I& I
(setq sstxt (ssget "p")
! ?4 I& A1 X# X$ r. i
sslen (sslength sstxt)
x D( j# q) z$ i4 k
ctr 0 )
7 W! t" g8 U8 n2 p3 c6 J
(command ".undo" "mark")
) j) _# N; p- V! R% j2 u/ P
(while (< ctr sslen)7 {8 ?" L) X" q3 c- \
(setq listxt (entget (ssname sstxt ctr))4 m/ C: U% h+ o \
txttxt (cdr (assoc 1 listxt))
/ j4 x5 H5 s( h% r2 Y! V
enttxt (cdr (assoc 0 listxt)) )5 w" ^. }+ Y- B# z, s7 |
(if (= enttxt "TEXT"), o |4 K6 h/ Q& w: ?9 F; W
(progn
" k# J; \+ |+ `7 b; ~/ \6 s
(setq testxt (substr txttxt 1 3))
: j, y2 X% @- f/ b, a
(if (or (= testxt "%%u") (= testxt "%%U"))$ h% S( v! g2 H0 t
(setq newtxt (substr txttxt 4))
6 ]) f* n+ V& H3 t5 u
(setq newtxt (strcat "%%u" txttxt)) )
; p }" P! u8 W: Y/ h8 g
(setq listxt (subst (cons 1 newtxt) (assoc 1 listxt) listxt))2 B' r2 j5 W4 a
(entmod listxt) ) ); K( Y; [% a) D7 p, [, f' H
(setq ctr (1+ ctr)) ) (setvar "cmdecho" 1) (princ))
: O* | b) `" g' o! B2 j4 Q# S9 n2 a
5 b7 T; |6 Z$ M2 o3 T
;;; ================ BAT -TAT CHE DO GACH CHAN TEXT =================6 Q. Z5 W* D c
4 {+ O/ ^8 S: U7 o+ q2 h( [! C9 N
(defun c:tob () (setvar "cmdecho" 0)* h. t; _) |8 ^& m1 V1 Z& k
(prompt "\nHay chon dong TEXT can gach tren dau ")
8 I$ `; q4 t0 L6 {; R
(prompt "\nSelect objects: ")' P' T5 }9 v" T/ b+ c3 o* k
(command "select" "au" pause)
/ G. w1 C5 Z5 x" d
(setq sstxt (ssget "p")
: f; Q r. i# J
sslen (sslength sstxt)
/ H5 A3 R! _& j: Q
ctr 0 )
* ^; x* o1 z C _
(command ".undo" "mark")# @) F' K0 L' k
(while (< ctr sslen)$ |0 L$ W+ Z7 H3 }. {
(setq listxt (entget (ssname sstxt ctr))* O; n8 K; J1 P6 h! [' x$ F$ F
txttxt (cdr (assoc 1 listxt))
$ Y* ]+ a" d, k
enttxt (cdr (assoc 0 listxt)) )
: g7 o. G5 |! J* I8 y/ |8 _) }$ W
(if (= enttxt "TEXT")" g0 d6 u9 L1 U W( p
(progn
1 L1 d' U3 H. k/ c2 Q! j
(setq testxt (substr txttxt 1 3))
, _" |/ m) ?# ?
(if (or (= testxt "%%o") (= testxt "%%o"))" C$ U; U. w% x. v; _
(setq newtxt (substr txttxt 4))
" _( Q' l- D' \' B0 s
(setq newtxt (strcat "%%o" txttxt)) )
( S. S! V# s# \
(setq listxt (subst (cons 1 newtxt) (assoc 1 listxt) listxt))
. X) M5 p& r* w j
(entmod listxt) ) )) J! `- h T$ ?! L/ y! |6 d2 P, F2 I
(setq ctr (1+ ctr)) ) (setvar "cmdecho" 1) (princ))
/ C/ o6 E$ @( |: A7 Z" X4 Q
5 F @) P& Y& j- e
;;; ========================== Tim & thay the TEXT ==========================, f( y: M" X9 `
" [% V' @( p1 E0 p4 |4 E
(defun frstring (str search replace / str1 str2 index find)" ]' t t% g& W* ~: i( |& M
(setq index 0) (while (<= index (- (strlen str) (strlen search))) (setq index (1+ index))
) ^# H8 b' ~2 Y8 I' K6 u
(setq find (substr str index (strlen search))) (if (= find search) (progn (setq str1 (substr str 1 (1- index)))
k: A- {& T: J, V! {1 j \
(setq str2 (substr str (+ index (strlen search)))) (setq str (strcat str1 replace str2)) ) ) ) (setq str str))5 |- n# l8 Z& U" ]( p+ a* ^4 U
(defun hai (/ dial); g6 o- h7 x7 [( R/ B0 @
(setq dial (load_dialog "hai.dcl")) ;;goi dialog
! G7 b* u; U$ d9 C5 f9 j, H
(if (not (new_dialog "find" Dial)) (exit)) ;;6 Q3 d* T' N+ V" b
(mode_tile "find" 2); Tao dau nhac tai hop thoai9 D7 S) z: H8 r) {2 c
(action_tile "find" "(hai1)")
0 ^- H: Q2 ~* s: p, o
(action_tile "replace" "(hai2)")/ w3 l" ~0 o0 Z
(action_tile "cancel" "(done_dialog) (exit)")
& t, Y: V9 s* _. u, A
(start_dialog)
- T! X/ O# S% I/ ]% o% d* } w
(unload_dialog dial))
7 _ p. O7 d% `+ X: ^3 ^
(defun hai1 () (SETQ str1 (get_tile "find")))) i. x0 Y. p! F. C3 _
(defun hai2 () (SETQ str2 (get_tile "replace")))
4 t: E7 ^" o9 ?) G% z
: _: A7 ]4 ]6 e
(defun c:TTT (/ a str str1 str2 newstr taphop sodem)
" x& @2 [& ?" H! a, C
(hai): r- B( T+ k) W' G, E0 G
(if (or (null str1) (null str2)) (princ "\nDu lieu khong hop le")) t7 K5 j* U$ b* U( ?7 j
(progn
0 Z( e6 b2 }3 c" {8 f: H0 s* E
(setq taphop (ssget '((0 . "TEXT"))))
: ?; ~5 N1 X* D7 d) p; I8 S1 |
(setq sodem 0): Y" L0 W. R0 {6 O8 D- _
(if taphop f- K6 F6 y! x& w
(progn
. ], j% c( M: Q, z) K% q2 S
(Repeat (sslength taphop)7 J, {# O: ?* t3 T; Q$ v
(setq a (entget (ssname taphop sodem)))# ]. Z& ~% a' G' y4 D) n: L% f/ m
(setq str (cdr (assoc 1 a)))
1 C1 c# e# C ~1 W
(setq newstr (frstring str str1 str2))
6 [/ {1 f: q _1 i$ N! e2 i% |
(setq a (subst (cons 1 newstr) (assoc 1 a) a))# |2 d' N7 N9 a; Z
(entmod a)4 t! f; |5 b9 ^
(setq sodem (1+ sodem)) ) )
0 C" U+ B( ~6 z- ?! y
(princ "\nNone "TEXT" selected") ) ) ) (setq *error* olderr) (princ))5 o% U6 i4 ]1 B A* X' q
0 X6 b) ^' o( U) `
;;;============================= CHTEXSTY.LSP =============================& P" N0 d+ y) F
2 \% g, c3 A" ]; |
(Defun C:TXS () (Setvar "Cmdecho" 0) (Initget 1 "SE ST ")
' y- H; _4 d- O) `* ~
(Setq G (Strcase (Substr (Getkword "STyle/<SElection>:")1 2)))
+ O q6 g( V; L
(Cond ((= G "SE") (Setq A (Ssget)) (Setq B (Sslength A))& Z4 S3 }4 P7 z3 Q' m( v" v! q( W
(Initget 1) (Setq C (Getstring "\nEnter new text style: "))
' L# k" a- H; |/ I5 K
(Extang C) (While (> B 0) (Setq B (1- B)) (Setq D (Ssname A B))
9 W9 @( g3 p m# ^
(Setq D (Entget D)) (Setq E (Assoc 7 D)) (Setq F (Cons 7 C))
/ H; F8 B1 n% Y6 i6 b K7 ^
(Setq D (Subst F E D)) (Setq H (Assoc 51 D)) (Setq I (Cons 51 J))
: x0 Z4 z( ^0 n6 G7 y/ d# R
(Entmod (Subst I H D))) (Setq A nil)) ((Or (= G "ST") (= G ""))4 ~ N G9 F* @+ P
(Initget 1) (Setq A (Strcase (Getstring
4 p- E& G0 o& t
"\nEnter text style to change: "))) (Initget 1)
- g2 p3 S+ v* v# C; F
(Setq C (Getstring "\nEnter new text style: "))(Setq D (Entnext))
4 z A4 [& P2 x. V9 Y, u
(Extang C) (While D (Princ ".") (Setq E (Entget D)) (If
" v, c! S5 I5 N1 Q C/ z1 d
(And (= "TEXT" (Cdr (Assoc 0 E))) (= A (Cdr (Assoc 7 E))))9 ?" i* u! m8 R
(Progn (Setq F (Assoc 7 E)) (Setq G (Cons 7 C))4 Z0 h3 _ x/ j- x' `6 s3 Y2 O) z% B
(Setq E (Subst G F E)) (Setq H (Assoc 51 E)) (Setq I (Cons 51 J))
* a; p5 O8 \% p' x
(Entmod (Subst I H E)))) (Setq D (Entnext D))))) (Princ))$ R) ?0 h* J0 v _. s
5 R/ b' C; B( n8 L( q# n9 f7 C
(Defun Extang (A) (Setq A (Tblsearch "STYLE" A))
! N- R2 o7 r/ M3 F
(Setq J (Cdr (Assoc 50 A))))
5 [5 A0 V* p0 c, Y2 w6 Y' a
8 i B, z0 t3 ^9 T/ k* v
;;; ============================ DRAW CLOUD =============================
3 [' ?3 C8 K# c& }
, b" V( s/ O0 b* g& X6 e, Y( w
(defun CLOUD (/ pt1 pt2 arc1 cnt ss la) (setvar "cmdecho" 0)1 x; ?* ?% |& l
(prompt "\nVe cloud (may) khong khep kin - Tu khep kin ve diem dau!")" n u) I; C4 T8 z
(setq la (getvar "clayer"))0 { y7 X6 A4 D; b6 v6 L. y
(command "layer" "m" "cloud" "c" "5" "" "")
7 K4 i b/ C4 Q$ k/ U4 L: N
(setq pt1 (getpoint "\nEnter first point of Cloud: "))6 k! N7 g4 B/ K+ X9 v `
(if pt1 (prompt "\nProceed in a COUNTER-CLOCKWISE direction..."))
( N7 ?+ I5 i$ t3 b
(setq cnt 1 ss (ssadd))
4 b6 m: u# |' n0 l- }
(while pt1 (setq pt2 (getpoint "\nEnter next point - and close: "))
! \" K, y( I8 V2 y' \7 L, h
(if pt2 (progn (command "arc" pt1 "e" pt2 "r" (/ (distance pt1 pt2) 1.75))$ U( V# ^) \2 U9 y0 H
(if (= cnt 1) (setq arc1 (entlast) cnt 2) (ssadd (entlast) ss)) ))# |- f: R9 l7 }4 y2 p
(setq pt1 pt2) ) (setvar "highlight" 0) (if (> (sslength ss) 0)
) {: n; H) w' S8 R4 @, @2 c$ L; u* ~
(command "pedit" arc1 "y" "j" ss "" "x")
' I0 }3 t1 S- I1 {
(if arc1 (command "pedit" arc1 "y" "x")) ) (setvar "highlight" 1): f) K3 w! F, j" H I: @
(command "layer" "s" la "") (setvar "cmdecho" 1) (princ))
2 a* z8 @0 p- y0 b6 q
(DEFUN C:CLOUD () (CLOUD)) (DEFUN C:CLO () (CLOUD))
V, j7 Y) P( s1 k
3 F; e# ]' @ J" [ k: a
;;; ================================ Funtion-Dulieu ========================
- h6 S" u3 ^" ` E5 a2 t
;;; ================================ Funtion-Dulieu ========================& H' t$ _0 b/ _) M
;;; ================================ Funtion-Dulieu ========================
' X) p* ]1 R4 ?* z6 H; e1 y
/ c! k' Y! r: G( P
(defun ha:nhap (kytu thamso) (princ kytu) (princ thamso) (princ ">: ") (setq key (getint)) (if key (setq thamso key)) (princ thamso) )
1 Z7 d+ [# [% f7 m5 {, e
(defun ha:thoat () (reinit) (setq Temp "Da thoat khoi chuong trinh"))+ R9 p! q% w$ X$ g: Q
(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))
; d% z- w5 \& L5 [% g" e( H) W0 V
(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) )
- W) ~# t) _8 M$ l% q! G. {
(defun hauon (hauon1 hauon2) (command "fillet" hauon1 hauon2))
' C$ z& E9 B0 V ?3 i9 F0 n& e* v
(defun init () (setvar "blipmode" 0) (setvar "cmdecho" 0) (setvar "angbase" 0)); q$ B5 R9 H9 |( ]9 Q
(defun reinit () (setvar "cmdecho" 1) (setvar "osmode" 0))* n) L: s9 h* q
(defun tichvecto (vecto1 vecto2) (apply '+ (mapcar '* vecto1 vecto2)))
9 r! e7 _( S) p% q: g
(defun vectophap (v01 v02 / vectochiphuong) (setq vectochiphuong (mapcar '- v01 v02)) (list (cadr vectochiphuong) (* -1 (car vectochiphuong))))* ]% b7 }, _, }2 u1 Q
(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)))
6 T. \: V" h/ V2 ^# Z
(defun dtr (dtr) (* pi (/ dtr 180.0)))
& ^) ~! D% ]( y e1 v8 D/ D {9 y
(defun rtd (rtd) (* 180.0 (/ rtd pi)))4 a% H: A3 f+ ~0 m. z
R; r# i4 b; s9 ~! Q, G
;;;==============================PROGRAME===============================
4 g$ ~3 f9 b0 [
;;;=====================EditDiM Hien Hop Thoai Dep======================
& {; e: x) n8 Y7 M$ X) w
;;;==============================PROGRAME===============================6 w" c( M: X z, Q% }$ l- S
) `, W& M: }7 g
;;Dth Edit Text, Dimtex & Attributes(Chu Co Thuoc Tinh)
; C' O0 ^# a" A$ ]
;;Chay Cung Du Lieu.Lsp & Hai.Dcl
$ o' ^. {# D7 a8 o3 e0 k
(Defun Hai_Edim (Chon / Dial State Str Oldlis Dimdefault Pt10 Pt13 Pt14 St Ang Dis Pt Hc)1 Q1 g7 b' s" s
(Setq Oldlis (Entget (Car Chon))
+ B" U1 @3 s5 |! G3 L: C
Pt10 (Cdr (Assoc 10 Oldlis))
) h- V6 c: C' V% m
Pt13 (Cdr (Assoc 13 Oldlis))+ U4 E- ?: Q! G% u+ d3 ` o- I
Pt14 (Cdr (Assoc 14 Oldlis))
0 m9 t- t: K$ X" ]1 C
St (Cdr (Assoc 70 Oldlis))+ ^+ b/ h( l) n- a4 V/ w" R1 p$ u
Dimdefault (Cdr (Assoc 1 Oldlis)); E4 P5 x. @& a; Y% P+ @/ @
)
7 x. B; ?2 |, @2 E
(Cond; [& v! A+ T4 P) `" E9 w/ a
((Or (= 32 St)(= 0 St)(= 160 St))9 t T Y( i6 n' v9 `1 H9 z, B! a
(Progn
% U, _. ]4 g# r, p$ ]
(Setq Ang (Cdr (Assoc 50 Oldlis))2 @+ F8 k3 V) [. ?, a+ T/ E) h9 o
Pt (Polar Pt13 Ang 500)
, C! j& \6 _# r# a$ w- S
Hc (Lay_Hinh_Chieu Pt10 Pt13 Pt)
2 e& [% x" R3 u1 N p6 Z
Dis (Rtos (Distance Pt13 Hc))
+ c; R% N: d7 J* F
)- j5 M) S% M: z! z
)2 h/ p# X3 L( a2 G& ]# E% ~
)
3 t' U& N% J2 r! K( J
((Or (= 33 St)(= 1 St))
V7 h/ o. B( N3 g
(Progn(Setq Dis (Rtos (Distance Pt13 Pt14)))))
7 n" G1 o$ s! U# j" a, [8 \; R
);;End Cond. T/ @, B% I+ \- j5 s
(If (= Dimdefault "") (Setq Dimdefault "<>"))
+ C9 J+ }# {' u
(Setq Dial (Load_Dialog "Hai.Dcl"))
- d# n' i. P9 f+ S9 [/ @' s
(If (Not (New_Dialog "eddim" Dial)) (Exit))
- b& u7 h/ c; W; D! @$ e
(If (Or (= 32 St)(= 0 St)(= 160 St)(= 33 St)(= 1 St))
" i7 P* Z' {- V& d
(Set_Tile "text" Dis))* }$ G2 [0 l3 t5 i
(Set_Tile "ha:edim" Dimdefault)
% D! d$ ~. ~# D' C
(Mode_Tile "ha:edim" 2); Tao Dau Nhac Tai Hop Thoai
" w, D+ y2 h+ a" K$ ~8 N5 x
(Action_Tile "ha:edim" "(Setq Str (Get_Tile \"ha:edim\"))(Done_Dialog 3)")
5 O4 K4 q' I) R: A8 Y6 B! G7 ^
(Setq State (Start_Dialog))(Unload_Dialog Dial)8 q# R4 D- d1 D9 j8 J; c
(If (And Str (= 3 State))
1 _% r) t `% h* ^4 e
(Progn
2 Y8 ~) F" `, a% G. w. r! j& z
(Setq Oldlis (Subst (Cons 1 Str) (Assoc 1 Oldlis) Oldlis))(Entmod Oldlis)))
$ E' L7 ]& x; a/ j! e% M( I9 y
)
. L+ ~; L% I. L7 @
(Defun C:EH (/ Chon Name )
6 E, N1 M: r: u B' [. F+ R
(Defun *Error* (Msg), K' o6 a2 G: g5 b# j: H+ h( z
(Princ "\nerror: ")(Princ Msg)(Princ " ")
, u% j* ]' z7 ~8 O, h% h H; e
(Start_Dialog)(Unload_Dialog Dial)% A8 |) P4 B2 o! u! y% e" B
(Setq *Error* Olderr)(Princ) j1 q' C2 v: u H( ^% ?+ s
)% T) C* `+ J" @
(Setq Olderr *Error*)
1 {0 k7 d$ X9 K( l: {! A5 p
(Setq Chon T)
0 _0 m% N( o" p% ^$ r. i. T6 Y
(While Chon
7 ?7 F5 l( T5 y7 }5 m) a6 v
(Setq Chon (Entsel "\n\n\nSelect Text, Dimtext Or Attributes To Edit..."))
. i6 h: \$ v7 d
(If Chon# l1 @( h$ Y$ z' H
(Progn
& b) I2 N( f/ r3 u( e3 P: u
(Setq Name (Cdr (Assoc 0 (Entget (Car Chon)))))
/ U# ?7 n- I6 I( T r p$ |" X
(Cond
! A4 X0 a' a+ x" A
((= Name "INSERT")(Command "Ddatte" Chon))
2 ]8 T6 ?8 _! Y# D% ~# ]1 }
((Or (= Name "TEXT") (= Name "ATTDEF") (= Name "TOLERANCE") (= Name "MTEXT"))(Command "Ddedit" Chon ""))
: S( e! v; d$ g# I1 d
((= Name "DIMENSION") (Hai_Edim Chon))
( ]8 n$ |$ v( g' q: |9 a- z
)) j$ n# W0 |6 u# a r& |/ @) [% h
);End Cond$ s* r% ]* {$ n1 ^: R+ n
);End Progn8 Z/ _# c3 ^" N1 U' z6 J& W
);End While
7 M; B4 {/ j4 D2 \, [
(Setq Olderr *Error*)(Princ)
k2 H7 N1 A; |; X+ m
);End Program0 J" X1 u( u6 F3 f
( g/ f/ r! C) Z! i' P8 m
;;;====================DDeditDim=====================
1 s9 }0 j3 }: @3 N! z
;;;=====================Hai.DCL======================
: j$ E2 z) G+ N8 G
;;;====================DDeditDim=====================
! a% t8 P/ y* ]
# R% @% c: f! g; b0 {+ L
;;Dth Edit Text, Dimtex & Attributes(Chu Co Thuoc Tinh)
; c! `, B0 X! C6 y( k2 X0 S
;;Chay Cung Du Lieu.Lsp & Hai.Dcl
l e3 y, W ?7 p! s8 Z- v$ R
(Defun Hai_Edim (Chon / Dial State Str Oldlis Dimdefault Pt10 Pt13 Pt14 St Ang Dis Pt Hc)) V% ?$ `% V0 d) u( w
(Setq Oldlis (Entget (Car Chon))8 g$ D9 b) r [3 S" e
Pt10 (Cdr (Assoc 10 Oldlis))
- R& o+ [8 {" f1 Y$ U' |
Pt13 (Cdr (Assoc 13 Oldlis))
" P- v, q$ H9 | p, P
Pt14 (Cdr (Assoc 14 Oldlis))/ q& x D& |( T! O5 I
St (Cdr (Assoc 70 Oldlis))
4 h: P) V- V% F! q
Dimdefault (Cdr (Assoc 1 Oldlis)), c6 C( d. W3 q h- ~, ]( `% y
)
& W) y$ Y; k6 _6 D, K/ d
(Cond, a1 {7 G* C1 `0 V. i3 u1 g
((Or (= 32 St)(= 0 St)(= 160 St))
1 h. E3 A$ k |( F W
(Progn+ V2 ^. J# R" [+ U
(Setq Ang (Cdr (Assoc 50 Oldlis))6 Q( [) v1 N4 h- N8 @$ w/ C! u
Pt (Polar Pt13 Ang 500)
' F: F9 Q( {8 g& M* }( Y! Q
Hc (Lay_Hinh_Chieu Pt10 Pt13 Pt)
" o& y4 _2 \, N. c) n
Dis (Rtos (Distance Pt13 Hc))* x. j/ W' U5 ? ?
)
u2 B( h7 |0 c" t
)
& ^ I n% v: \$ p4 b! _" R
)
1 b3 _) }/ P" D% M
((Or (= 33 St)(= 1 St))( h1 F! b d' v8 |% ]
(Progn(Setq Dis (Rtos (Distance Pt13 Pt14)))))8 n2 Q3 ^0 @. D* M! J3 d4 p
);;End Cond7 \5 `# ?( _' J$ a9 d P, \3 j
(If (= Dimdefault "") (Setq Dimdefault "<>"))& O2 h8 G$ s; Z; |1 p7 t1 A5 z
(Setq Dial (Load_Dialog "Hai.Dcl"))( t+ ^) I, T8 M8 D
(If (Not (New_Dialog "eddim" Dial)) (Exit))7 I2 u) e) H& A( H) a. u
(If (Or (= 32 St)(= 0 St)(= 160 St)(= 33 St)(= 1 St))
0 \* R' R& r. I8 F
(Set_Tile "text" Dis))
; y& A1 G, t* b$ d2 T( {
(Set_Tile "ha:edim" Dimdefault)1 e4 A) r3 r% e) N6 _# e- {
(Mode_Tile "ha:edim" 2); Tao Dau Nhac Tai Hop Thoai
3 \9 Z. @% u( N: p2 T7 T
(Action_Tile "ha:edim" "(Setq Str (Get_Tile \"ha:edim\"))(Done_Dialog 3)") }4 p s; b. h. Y
(Setq State (Start_Dialog))(Unload_Dialog Dial)
/ L9 z& [+ D D; P/ r9 \8 a
(If (And Str (= 3 State))
9 F) ~' w) z' R5 _! M
(Progn- k8 z. J4 \' `" e: n3 s
(Setq Oldlis (Subst (Cons 1 Str) (Assoc 1 Oldlis) Oldlis))(Entmod Oldlis)))) G+ H, T+ B, K9 K- N" A
)( }/ S' K' e9 r
(Defun C:EH (/ Chon Name )
8 L0 U& q Y- U* `: ]3 x/ L# x
4 B" S$ M3 b5 N/ T% m
;;;********************Du Lieu********************
/ k% X. ^, ] `" q
3 e4 H& E( I! x5 e7 X0 J2 P# r
(Defun Ha:Thoat () (Reinit) (Setq Temp "Da Thoat Khoi Chuong Trinh"))
' d8 ^! J y9 E. O9 p8 d2 M
(Defun Hacat (Hacat1 Hacat2 / Hacat3 Chon)5 y! J; K$ \ F0 \6 \6 @
(If (And (/= Hacat1 Nil) (/= Hacat2 Nil))
V, ~5 ^" Z% N- v! K
(Progn
6 g( L6 U4 S1 b# }; k) p
(Setq Hacat3 (Polar Hacat1 (Angle Hacat1 Hacat2) (/ (Distance Hacat1 Hacat2) 2)))" Z# P( D2 @/ x7 r4 c
(Setq Chon (Ssget Hacat3))
! }9 B& ~# p7 H$ V/ z" R- w
(Command "Break" Chon Hacat1 Hacat2)8 L: T8 K( J( {
)
0 I0 A% c0 ^7 i) ^$ r
)
. I1 ^* E( |( @1 I& S, n9 D6 @) M
(Princ)
# [* ?6 t$ v8 d- Q% F. d
)( Y" [4 d! G0 e% s
;;# x- e7 @0 b( @/ B% u" q" z
(Defun Hauon (Hauon1 Hauon2)(Command "Fillet" Hauon1 Hauon2))+ C( w: a+ N3 @& D
;;
, t1 m. M/ |5 N8 j2 Q
(Defun Taolop (Mau Lop / A)(Setq A(Tblsearch "Layer" Lop))(If (Null A)(Command "Layer" "_N" Lop "_C" Mau Lop "")) (Setvar "Clayer" Lop))
% A% c9 u, [& m) t) P* x l
;;
2 N1 x1 o' b0 C" l
(Defun Init ()(Setvar "Blipmode" 0)(Setvar "Cmdecho" 0)(Setvar "Angbase" 0))& J# z7 n; y/ {
;;
4 M4 W, s% V6 j2 g# ]) o$ k2 X
(Defun Reinit ()(Setvar "Cmdecho" 1))* g0 C( q r$ y( H2 H V/ K; G
;;7 t% _9 z7 I" \3 M5 y% d6 q7 o& i9 {) d
(Defun Tichvecto (Vecto1 Vecto2)(Apply '+ (Mapcar '* Vecto1 Vecto2)))8 G! D0 X( `. |" i- X2 e5 e6 w
;;
' `2 x; Y3 P4 w% \: e, \
;;Cho 2 Diem Tinh Ra Vec To Phap
9 `( y" x+ J- W: _, A
(Defun Vectophap (V01 V02 / Vectochiphuong)(Setq Vectochiphuong(Mapcar '- V01 V02)) (List (Cadr Vectochiphuong) (* -1 (Car Vectochiphuong))))
5 H6 `2 H. k- M
;;Xac Dinh Vi Tri Hinh Chieu 1 Diem Len 1 Duong Thang
* w0 g4 u+ P+ B3 `9 o2 m
;;Da Biet 2 Diem Thuoc Duong Thang7 q+ s, E( [4 b' g& U% C; Z
(Defun Lay_Hinh_Chieu (Dc1 P1 P2 / Hc Dc2)7 f% D2 J$ A9 W% {9 a5 V' Z0 t
(Setq Dc2 (Polar Dc1 (+ (/ Pi 2) (Angle P1 P2)) 100)
, P" ?8 i& `" l5 ^; c
Hc (Inters P1 P2 Dc1 Dc2 Nil)))
* J9 ^( ]7 _' U9 Q9 b- t
;;Xac Dinh Khoang Cach Tu 1 Diem Len 1 Duong Thang6 i, `! Q0 U* J9 b% t
;;Da Biet 2 Diem Thuoc Duong Thang. i0 z. B: R( h( {
(Defun Khoangcach (Dc1 P1 P2 / Dc2 Hc)
2 y! r) X4 n/ n( u- _$ \; Z
(Setq Dc2 (Polar Dc1 (+ (/ Pi 2) (Angle P1 P2)) 100)7 @5 V* [; v* a, A1 v- C) K8 t. i x
Hc (Inters P1 P2 Dc1 Dc2 Nil))
0 f3 h' v& G5 \9 c5 J& H4 K
(Distance Dc1 Hc)- L3 ?7 Q! D, Q
)
/ v. v+ c, H5 S* p0 L4 ]' n6 W
(load "nhapcua.lsp")
- ?2 d3 S; k! m) [# d, Y/ Y2 {
(Defun *Error* (Msg)5 r: \% D* w' t
(Princ "\nerror: ")(Princ Msg)(Princ " ")
( t" U1 J" U/ V
(Start_Dialog)(Unload_Dialog Dial)
% U0 }5 f, K3 t8 w
(Setq *Error* Olderr)(Princ)- Q9 M1 ^7 g- X1 z+ ~5 t( ^4 U- C
)
5 s- _0 `9 I* O# O, {# V) F& o
(Setq Olderr *Error*)0 b# b8 @; h# B `2 o
(Setq Chon T)
$ H4 ~ \8 @. r$ d/ G
(While Chon" n2 i6 U v& W4 \# i
(Setq Chon (Entsel "\n\n\nSelect Text, Dimtext Or Attributes To Edit..."))
" B4 e( O; ^4 Y( @5 h
(If Chon) u. }( R! `. Y" x6 ~
(Progn# H* j' a( y4 ]. K6 n, d
(Setq Name (Cdr (Assoc 0 (Entget (Car Chon)))))
; [& v$ q2 O# _# R* p; k5 W! ]
(Cond
+ Z! ?6 R* C1 q S
((= Name "INSERT")(Command "Ddatte" Chon))
1 \8 e L# X( d1 o g. J, z- c0 X
((Or (= Name "TEXT") (= Name "ATTDEF") (= Name "TOLERANCE") (= Name "MTEXT"))(Command "Ddedit" Chon ""))3 ?5 W* j1 G0 n
((= Name "DIMENSION") (Hai_Edim Chon))
9 I; m: i5 v+ l
)
1 P. O, h$ `% D$ L' E
);End Cond
2 G% ~+ X) I) \7 o" g, c e5 j
);End Progn2 S# J& \- ^+ ]0 c l
);End While
, H9 L9 ?; k, U& n- J& y9 c
(Setq Olderr *Error*)(Princ), j" [+ P" {( A! f
);End Program* ^4 I' J3 V _! w' J" T
4 p/ s8 a+ A9 ]) P2 R4 I' @" }
;===================HAI DCL Nhapcua.LSP De chay Hop Thoai EditDiM===================# k+ W( ^9 w4 d
;====================================Nhapcua.LSP====================================1 }, N" m# @2 [( O; Q
;===================HAI DCL Nhapcua.LSP De chay Hop Thoai EditDiM===================( P0 }2 e( V; c9 w( y; j, h3 D L
% e5 ?* Y* I7 d
! Y/ P/ s. i5 K- N
% G7 \0 t, Q% i( t
;*******************;*******************;*******************;*******************
$ i- W7 a' j: `4 Q! D0 _
;****K E T C A U****;****K E T C A U****;****K E T C A U****;****K E T C A U****
/ m& \5 b7 |* `4 m" C/ C! ~5 |
;*******************;*******************;*******************;*******************) n2 |) [# r' C3 U/ V
. L& X" J# z- d9 f
;VE HINH BINH HANH
. p3 ]) i' D9 t! m7 U# H% w
) s0 s% n% |- e5 a# c
(defun c:binhhanh (/ p1 p2 p3), n9 F- s$ G" n6 F% j
(setq p1 (getpoint "\n Nhap diem thu nhat:"))' T: n" w9 V* a: c: v4 |2 G) q, U
(setq p2 (getpoint p1 "\n Nhap diem thu hai:"))$ k# i# W5 I C6 a% Q9 N# P) G
(setq om (getvar "osmode")). z% b8 v$ C( `/ [$ y4 E3 V
(setvar "osmode" 0)' y* D( m6 u& ~8 b, r' U; b
(command "line" p1 p2 "")
. M% D ^+ p! `9 S2 v0 s
(setvar "osmode" om)
, D) E, l9 e5 t+ O- `$ y( b6 U
(setq p3 (getpoint p2 "\n Nhap diem thu ba:"))3 G0 W! y. P) G/ E% r. P
(setq a (angle p2 p1))9 L: Z/ V' q+ g! O
(setq d (distance p1 p2))
+ I8 [; K: G; B% r$ H
(setq p4 (polar p3 a d))$ v9 K8 F `/ H' m4 f% d7 V- {# o9 _
(command "OSNAP" "none")
' c+ b1 U, V: u J$ v* W
(command "erase" "l" "")" Z( Z, z0 h5 y8 @; `9 a' Y4 a9 i
(command "pline" p1 p2 p3 p4 p1 "")
- A6 Q _# b. i$ T8 d% v
(setvar "osmode" om)0 }& t! H* F0 E0 `. r8 c
)
. }9 t1 X* T5 q6 ]
% K3 E& C ]: Q) `( E& Y& o
;VE LUOI COT' f3 V9 F/ x2 J- T
) n8 s+ Z. n0 {& T" R
(defun c:LuoiCot ()5 F* u5 y# ]" V5 l u l) U
(setq om (getvar "osmode"))
' D; z, ~3 Y9 G6 i6 d! v
(setvar "osmode" 0)
& ]+ q- J2 ^& ?4 s9 m
(setq tile (getreal "\nCho biet Ti Le ve 1/x, x="))
& w- L* c3 w+ z! [) W8 `
(setq p0 (getpoint "\n Chon Basic Point:"))5 k- Q9 X- g$ T9 X0 l
(setq nc (getreal "\n Nhap chieu ngang cua cot : "))
}8 C% ^7 ?+ h" {+ ]
(setq dc (getreal "\n Nhap chieu doc cua cot : "))
! [% u; Y$ t$ E0 }; [3 p
(setq p1 (polar (polar p0 pi (/ (* nc hstl) 2 tile) ) (* pi 1.5) (/ (* dc hstl) 2 tile) ) )
: ?# W+ ^( V* \4 |# q M2 w9 Z
(setq p2 (polar (polar p0 0 (/ (* nc hstl) 2 tile) ) (* pi 0.5) (/ (* dc hstl) 2 tile) ) )
! p$ _( v( ?, y8 G5 x
(command "rectang" p1 p2)
+ `3 N* J5 l/ J; q: J7 \
(command "hatch" "solid" "l" "")
5 @5 s. F4 w# X C
(setq bcn (getreal "\n Buoc cot theo phuong ngang : "))
6 o: s- N( W0 |! g2 n
(setq nn (getint "\n So buoc cot phuong ngang : "))
! ]" u8 J- \5 a7 \9 h) c& a
(setq w1 (polar (polar p1 pi (/ (* nc hstl) 2 tile) ) (* pi 1.5) (/ (* dc hstl) 2 tile) ) )
' @6 s3 z" w4 B4 v) @; Q0 L; E
(setq w2 (polar (polar p2 0 (/ (* nc hstl) 2 tile) ) (* pi 0.5) (/ (* dc hstl) 2 tile) ) )) a% U5 W* Y' _" o2 |3 f3 z
(command "select" "w" w1 w2 "")2 H+ x0 B# c, K1 Z) L, O0 n
(command "array" "p" "" "r" "1" (+ nn 1) (/ (* bcn hstl) tile) ) r4 X$ m+ a% I' Z
(command "line" (polar p0 pi (/ (* 1000 hstl) tile)) (polar p0 0 (/ (* (+ (* bcn nn) 1000) hstl) tile) ) "")$ X# X8 |3 P# A, I8 W3 u: M
(setq w1 (polar (polar p0 pi (/ (* hstl 2000) tile)) (* pi 1.5) (/ (* hstl 2000) tile) )) L J' }+ s# j- q& ]6 V
(setq w2 (polar (polar p0 0 (/ (* (+ (* bcn nn) 2000) hstl) tile) ) (* pi 0.5) (/ (* hstl 2000) tile) )). U8 g8 T- f X/ H# L- O' a! m) e
(command "zoom" "w" w1 w2)
/ v" o$ N" Z! e) w4 ^* @/ h6 O
(command "select" "w" w1 w2 "")! F( M% J& n8 y$ M5 v
(setq bcd (getreal "\n Buoc cot theo phuong doc : "))9 O+ N% |9 @7 z9 _
(setq nd (getint "\n So buoc cot phuong doc : "))* j, M7 G( x( b% y
(command "array" "p" "" "r" (+ nd 1) "1" (/ (* hstl bcd) tile) )
1 a9 c- [" i7 H R5 B2 P
(command "line" (polar p0 (* pi 1.5) (/ (* hstl 1000) tile)) (polar p0 (* pi 0.5) (/ (* (+ (* bcd nd) 1000) hstl) tile)) "")
7 Q4 a: t2 F" z# w3 h
(command "array" "l" "" "r" "1" (+ nn 1) (/ (* hstl bcn) tile) )
; V& B! X `. I- S6 K
(setq w2 (polar w2 (* pi 0.5) (/ (* (+ (* bcd nd) 2000) hstl) tile)) ) 9 _2 n, x% ?1 n
(command "zoom" "w" w1 w2)0 w1 P9 }3 i! V2 q
(setvar "osmode" om)
+ K1 e5 h' g+ C* Z/ u! `3 x; B
)
) w+ i) e0 J" A+ h8 f+ O9 I
9 Y# |( Z/ \. j$ S
;VE CUA DI
, `& e, H9 H4 X6 U/ e" F5 d8 W d
% L# ]: z' M; ?4 l# ^3 S
(defun c:cuadi ()
; K/ `3 X+ I3 a3 J# H
(setq om (getvar "osmode"))" q, y" E6 [! q' d) U4 A1 N7 G
(setvar "osmode" 0)0 k3 p/ ^5 k5 o: S5 S3 B
/ U; U2 M7 j# B) A
(setq tile (getreal "\nCho biet Ti Le ve 1/x, x="))
) E$ M W0 I4 Q& g
(setq b (getreal "\n Nhap be rong cua : "))4 J; j0 ^5 I; t+ `& P
(setvar "osmode" om)
$ [+ \. a/ L% W/ c1 q4 B
(while (< 0 1)
5 r7 Z0 H% {. G" v* E* Z
(progn
' F( w3 k: a' d+ y$ r: S
(setq p0 (getpoint "\n Chon Basic Point:"))4 ]8 u2 `. i4 P! H% c: ~( H# u8 b
(setq p1 (getpoint p0 "\n Chon diem de xac dinh huong cua cua:"))
' w. \9 H# y4 D" C; y# U5 \9 ?# {
(command "osnap" "none")
$ Y0 z2 U9 X1 k& u
(setq p2 (getpoint p0 "\n Chon diem de xac dinh huong mo cua:"))
( q$ d, v* q& C2 L8 Y
(setq a1 (angle p0 p1)): _, B/ s/ j/ F0 C) r' z1 r% A
(setq p1 (polar p0 a1 (/ (* hstl b) tile)))
% x1 ?! F: D# s' Z
(setq a2 (angle p0 p2))
1 v# q# [0 e! \. u# }8 @
(if (< (- a2 a1) pi) (setq a3 (+ (/ pi 2) a1)) (setq a3 (- a1 (/ pi 2))) )
3 \. W$ z; }8 D8 H2 P9 D
(command "pline" p0 "w" "0" "0" p1 (polar p1 a3 (/ (* hstl 40) tile)) (polar p0 a3 (/ (* hstl 40) tile)) p0 "")" @5 l; ?+ J' d/ n) E; z2 L9 Z/ B: v
(command "rotate" "l" "" p0 (/ (* (- a3 a1) 180) pi))
2 K4 l' Y" l( K6 ]0 \ t! Y1 L! c
(command "arc" "ce" p0 p1 "a" (/ (* (- a3 a1) 180) pi)) 9 `; d* n$ a- d) F2 ?' U
(setvar "osmode" om)- a. F0 L, K8 \; |( v
))
* |+ a* b$ J4 C; J8 X) Y
)+ Q$ N$ U( A4 Q( {
! s5 R7 n3 a4 C( J x
;VE CUA SO6 h2 m L1 N1 ]" l* ]( k
; R! S. v8 l/ e
(defun c:cuaso ()1 t. D g1 a$ Z4 d
(setq om (getvar "osmode"))
2 k: v3 G1 b# L7 e2 a! g5 p
(setvar "osmode" 0) I/ b% a3 } c0 T
/ x. U7 A# s; {; ]( ^0 z
(setq tile (getreal "\nCho biet Ti Le ve 1/x, x="))! z$ Z9 K" w, Y
(setvar "osmode" om)5 M/ w+ a* h4 K E1 Y, N
(while (< 0 1); p% m/ u* D# W, y, E- |
(progn
2 `% R# A" S" V8 P' s
(setq p0 (getpoint "\n Chon Basic Point:"))% ^% C2 @; F8 W5 u
(setq p1 (getpoint p0 "\n Chon diem de xac dinh be rong cua:"))
" w) B# R; u: o4 N
(command "osnap" "none")& ?$ q; j4 O9 X% {6 y
(setq p2 (getpoint p1 "\n Chon 1 diem o trong nha de xac dinh huong cua so:"))
. p" m& }8 N% M( L* p& ^
(setq b (distance p0 p1))4 Y# l7 S5 ^9 t. E4 b2 L* L
(if (< b (/ (* hstl 600) tile)) (setq du 50)) c5 [' Q3 w" E* s
(if (> b (/ (* hstl 600) tile)) (setq du 150))
7 H- z }9 k6 l `$ }1 |
(if (> b (/ (* hstl 1800) tile)) (setq du 200))
(setq a1 (angle p0 p1))% l6 C3 O1 B9 M- n$ o
(setq a2 (angle p0 p2))
1 K3 L" O( P* W& s" L& ^! i8 B
(if (> a2 pi) (setq a2 (- a2 (* pi 2)) ) )
7 S, w) C- P, Z/ s$ w
(if (> (- a2 a1) 0) (setq a3 (+ (/ pi 2) a1)) )9 W' @6 f5 i v7 |2 X9 e5 H( `
(if (> (- a1 a2) 0) (setq a3 (- a1 (/ pi 2))) )
' H* @/ S5 J' z% u! X
(command "pline" p0 "w" "0" "0" p1 "")
1 p5 H; @. u; G/ t: h
(command "pline" (polar p0 a3 (/ (* hstl 50) tile)) (polar p1 a3 (/ (* hstl 50) tile)) "")* i, [& U, Q4 |/ m9 g' g
(command "pline" (polar p0 a3 (/ (* hstl 100) tile)) (polar p1 a3 (/ (* hstl 100) tile)) "")
% Y9 H+ S! l+ ?5 d9 M$ N% a ?
(command "pline" (polar p0 a1 (* (- du) (/ hstl tile))) (polar (polar p0 a1 (* (- du) (/ hstl tile))) a3 (* -100 (/ hstl tile)))
2 B8 [7 @' Y' `1 K6 f
(polar (polar p1 a1 (* du (/ hstl tile))) a3 (* -100 (/ hstl tile))) (polar p1 a1 (* du (/ hstl tile))) "")
" f# F; H6 z% q# g( Z& @
(setvar "osmode" om)
; B; ]" M, }8 R* E6 M' Q
))) f" r6 q, R) v# \, _8 G
)
0 V! Q' g2 u* e9 V
/ O* W. I3 J- ]: s" A; ?* W
;;;=== General Utility Functions ===
; L' y/ s" J6 d* @
6 q3 V, `2 A, n
; R12 compatibility - In R12 (acad_helpdlg) was an externally-defined . r$ a) p" P; R9 [
; ADS function. Now it's a simple AutoLISP function that calls the
0 }- f1 P) q6 _ T* ~( { ^
; built-in function (help). It's only purpose is R12 compatibility.
/ O" I' F$ N& Z- N
; If you are calling it for anything else, you should almost certainly
) ^: X$ p8 Z- g+ ~/ M, B: W3 \
; be calling (help) instead.
$ S/ l$ m7 i1 }' M8 I; _" Y
6 I6 d8 @3 g$ j: n
(defun acad_helpdlg (helpfile topic)" L1 q1 { h _3 |* {: E. o
(help helpfile topic)* v7 W0 s5 k2 {3 E/ T2 ]" }0 |
)
8 z4 Z+ z' f9 _1 c X5 P8 T
+ N3 ]6 n( o( Y D
% |4 \* J/ P3 V) L% ~" W
(defun *merr* (msg)1 t* B4 o/ K2 z
(setq *error* m:err m:err nil)
; s" j) |" Y4 s# K5 M
(princ)
: |3 |. P. v- O8 u
)
* a- {3 L6 P! _1 k
& @9 ~7 K. h0 _2 O
(defun *merrmsg* (msg)
0 A9 z9 e: k8 t# C
(princ msg)4 J& r) R, @5 o$ i! r1 @$ d3 O
(setq *error* m:err m:err nil)3 ~1 [2 w. I/ t8 H& {% b/ K( u+ d
(princ)* L% A) }8 Z5 ~( ]& M
)
; |4 t* S/ D; D! F* k; s
2 w% v! z# y+ e( [5 u7 |
;; Loads the indicated ARX app if it isn't already loaded% y! c! x% ]1 m0 t$ U" F
;; returns nil if no load was necessary, else returns the: ~; `' G& w$ y/ l1 s% `3 o) J
;; app name if a load occurred.+ Y* P, a. k3 }, r' P0 b# U
(defun verify_arxapp_loaded (app)
9 ~* L' O, k. q2 @+ V0 _
(if (not (loadedp app (arx)))
+ A- {" `1 ?2 X& y: G- U1 t
(arxload app f)/ h# o( G( |# }; r5 m' |0 ]
)* i* N! ^7 _. W5 A2 A: ~' U
)
9 K+ `" w" c H- c2 J! S- \
( x7 m3 u' N* s" M* [- o
;; determines if a given application is loaded.... a: S7 G" {& t. y1 m- z
;; general purpose: can ostensibly be used for appsets (arx) or (ads) or....6 S2 I- I9 [8 X, Q3 [# r5 G
;;
/ A) E* }$ u- g- o' q L5 F" P
;; app is the filename of the application to check (extension is required)5 f* t& r, A4 T6 A
;; appset is a list of applications, (such as (arx) or (ads)3 b; S( i# h0 S% i, Y' O7 T
;; & @8 V, h1 @+ \1 H/ t" N! c
;; returns T or nil, depending on whether app is present in the appset
5 g& K [8 ?# Q G+ ?
;; indicated. Case is ignored in comparison, so "foo.arx" matches "FOO.ARX" h- `3 Y$ O* f+ B% i: _
;; Also, if appset contains members that contain paths, app will right-match
: P' `+ |' W; Z4 b1 u7 ]* v
;; against these members, so "bar.arx" matches "c:\\path\\bar.arx"; note that
4 a: u6 Q& l. r2 W5 @- ?0 d
;; "bar.arx" will *not* match "c:\\path\\foobar.arx."1 f4 i8 `4 u# J
(defun loadedp (app appset)
) J! L& b1 r' Z3 g1 t
(cond (appset (or
% R C E, E* |% \( M
;; exactly equal? (ignoring case)
( `2 d8 } \' r6 I3 S4 }
(= (strcase (car appset))9 o3 P% y" I8 X
(strcase app))
' T, Q: O7 a& |" P7 u
;; right-matching? (ignoring case, but assuming that
. p- V( I! w8 ^1 `8 B
;; it's a complete filename (with a backslash before it). T5 W4 f) G) e- T; [
(and 8 G0 _, w; ?$ B0 t# S7 ]: W% R
(> (strlen (car appset)) (strlen app))
) e |+ O$ Q' l6 x8 T4 |7 Q
(= (strcase (substr (car appset) & c3 g" w; {& S0 M
(- (strlen (car appset)) / y2 c# p" P5 X. Z7 O: m
(strlen app)
/ S1 V9 L1 |* V; g; [
) 6 f; a @, s5 y) B+ U% R' P4 ~, V
)- u ` s5 k$ P: U5 F4 ~2 ?9 r
)
" N% y" l5 N9 d! S. i
(strcase (strcat "\\" app)); D. M( K. I: b% }2 k, ~
)
5 K$ e/ h5 V4 B p5 R5 F
)
" t8 \# i" l7 u
;; no match for this entry in appset, try next one....
+ I! l" A' ~3 Z0 q7 z) B5 f$ Z
(loadedp app (cdr appset)) )))" `$ N$ ]$ [9 ?" n$ V `- a- r
), l/ V: I# o" Q/ t. u' C
. P7 b2 q2 k# Z" {+ o3 u! Z: S' {
$ w3 s4 q) K& H l' Z& J0 A
;;; ===== Single-line MText editor =====7 e4 ~ T3 ]1 @& X( x, K2 B% V
(defun LispEd (contents / fname dcl state)
6 f6 x5 j1 b5 W2 X1 F, D
(if (not (setq fname (getvar "program")))
! ~5 w, r) s- |
(setq fname "acad")
/ V% k q- P! l$ s$ j
)- i5 F3 y+ c: C. P: v7 ~
(strcat fname ".dcl")4 x7 @0 X e' q% O" @
(setq dcl (load_dialog fname)), m8 @% b" h- s
(if (not (new_dialog "LispEd" dcl)) (exit))# i2 B P/ e6 @, ]2 l( P
(set_tile "contents" contents)8 B. Z* v% [+ R/ Z
(mode_tile "contents" 2)5 b% {, H6 L( |$ Q
(action_tile "contents" "(setq contents $value)")
6 Z+ T: `, D6 B1 G& i% y
(action_tile "accept" "(done_dialog 1)")
" S9 Y/ e8 y1 |: h: E7 i+ g
(action_tile "mtexted" "(done_dialog 2)" )4 x# J# N9 X7 ~: N. m' {
(setq state (start_dialog))" k+ c, _( P3 K3 V! C; g
(unload_dialog dcl)5 ~) ?: B% T/ @5 t
(cond! m; u3 r& M" m4 i! A7 p' [. P
((= state 1) contents)! \7 } j, S0 `
((= state 2) -1)
( L8 q3 M4 |: X+ B
(t 0)8 P; ]* [4 ]6 K$ U7 B$ | H7 a
), W+ Q4 u9 d6 |3 l! w
); D; t3 \5 i, R M* h
" F1 x9 `- t* c
;;; ===== Discontinued commands =====
8 g# g5 x) i0 j5 d6 h
(defun c:ddselect(/ cmdecho-save)
- f7 `6 m y" p) R- X6 L( `( a) s
(setq cmdecho-save (getvar "CMDECHO"))# N; a6 ~; c3 d3 B$ j; f
(setvar "CMDECHO" 0)
4 K% m f8 T5 m3 z: M
(command "._+options" 7)
) X* c2 E3 D p4 l, G% _4 d) f
(setvar "CMDECHO" cmdecho-save)
/ I& k, f7 F8 K/ e; ?. \9 x) i! [9 _
(princ)) B" o; V, c: x. y9 B5 a
)
0 ?. f0 ^8 b- K. N5 |( z
6 P& H, J. Q0 q& ~* M, H+ V @
(defun c:ddgrips(/ cmdecho-save)
8 o* E/ N/ ^: o5 h7 i) S7 e; u
(setq cmdecho-save (getvar "CMDECHO"))7 Q- t1 ^8 r5 N0 I, H
(setvar "CMDECHO" 0); ?) O; U8 X6 Z \
(command "._+options" 7)
0 ?1 q: E( _* ]& m; q8 u( r* T
(setvar "CMDECHO" cmdecho-save)
4 f0 U" t7 X! n2 q+ B/ n; R
(princ). X; _! l/ g2 M' B
)
z' f G1 n# {0 b. ?; T7 y2 [
$ h- {0 n. m) E" O% l0 }
(defun c:gifin (), W' A3 N m! l+ Z) Y; T# T
(alert "\nThe GIFIN command is no longer supported.\nUse the IMAGE command to attach raster image files.\n")4 K( q2 Y! y$ r' _8 Y6 _5 `
(princ)- f$ c8 R4 ^$ V& f3 e
)
1 i- W! E: k' U& ~1 {. A( r
2 ?& g8 I0 O s- t
(defun c:pcxin ()
9 V: L1 R7 ], p( w$ A
(alert "\nThe PCXIN command is no longer supported.\nUse the IMAGE command to attach raster image files.\n")9 r3 u1 h$ P9 ]1 F
(princ)5 v9 t* C- L4 E% R" j, J$ n# W
)
! Y* M/ U. w8 q% e
( W9 N: a3 }8 q- j$ j' V! x
(defun c:tiffin ()/ I8 ?) B8 a, _0 O$ T3 `) A
(alert "\nThe TIFFIN command is no longer supported.\nUse the IMAGE command to attach raster image files.\n")
& G$ H; y3 [' L4 v. X1 E
(princ)
4 l) ?( x: m! k4 D
)9 O2 G1 z/ r7 N7 r8 y* R) b( _
$ A* L+ F! d1 [2 \( c0 K
(defun c:ddemodes()
9 z0 ^; K4 w% [$ N* i
(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.")& _5 }+ l' M% E8 J) V+ |; s$ M
(princ)
8 f- a7 l8 ?% M
)/ c- p3 ^3 o5 d: X2 G+ {' ^7 M7 l
3 j) Q* `8 W; U. f+ S* \) |
(defun c:ddrmodes(/ cmdecho-save)5 V0 Y* }& w+ P# G S+ W
(setq cmdecho-save (getvar "CMDECHO"))
* a2 E/ ?- |* E8 l- s
(setvar "CMDECHO" 0)# i' L7 l8 G1 ?
(command "._+dsettings" 0)
3 Y* o* u* a; y0 n; w
(setvar "CMDECHO" cmdecho-save)
( S6 p! |. M/ L- ]+ N
(princ)% U: ^# f* U M) D* o2 e [
)
2 k9 u2 ]4 w+ P) W/ v
4 R3 W$ ^9 M0 X: Q
;; HPCONFIG
) `7 |7 ~) N8 q( W3 M
(defun c:hpconfig (/ hlppath)& g! u0 F% v4 B7 p/ F' E0 V! Y
(if (not (setq hlppath (findfile "acad.hlp")))
7 U$ V0 C1 d! w/ O( K7 j! b: t( Q' k
(setq hlppath ""))6 D5 E) T ~& C7 p1 V
(help hlppath "hpconfig")5 A- V b: Y' w" U4 ^) m
(princ)
. C }5 K1 F0 z
)3 m5 K: d D1 N8 q
8 I. u% k3 S" k/ S G/ _
;; OCECONFIG
9 b$ I6 Q8 j! g. `# u6 [) Q
(defun c:oceconfig (/ hlppath)1 T9 P( r2 _# T ^
(if (not (setq hlppath (findfile "acad.hlp")))
* C! C8 |8 `* _9 b0 t5 x' k( o
(setq hlppath ""))
+ O: q7 v% E) v& w6 u
(help hlppath "oceconfig")" q3 _ l7 v9 g& V+ j
(princ)
3 U$ J# ~1 w6 _ o% W+ v) _! W" C9 v
)" n2 r3 g$ c' u* H
1 a) i5 k* z$ l. B& Z% t) r
;; CCONFIG
$ G k6 L7 W. e
(defun c:cconfig (/ hlppath)6 k( X- w7 {9 P( e9 I
(if (not (setq hlppath (findfile "acad.hlp")))0 G: S# U4 m1 R5 f; W" S1 l
(setq hlppath ""))$ U# w4 g8 r3 H
(help hlppath "cconfig")! Q1 [' U8 ]5 X) Y* v) }3 R
(princ) I6 E6 Z+ K5 P$ J/ Y# k* K6 `
)* B1 r8 r$ r/ U3 b# Q
( s. ~+ A8 b, W9 d4 a
;;; ===== AutoLoad ===== D% e% `9 } w2 o
- d+ F+ x" X; D* G# b7 _
;;; Check list of loaded <apptype> applications ("ads" or "arx")
3 W; [% p& r9 n, @2 x
;;; for the name of a certain appplication <appname>.& h! V- Y/ f; s$ {( c
;;; Returns T if <appname> is loaded.
1 L6 r* R& [5 S( ^
3 c1 [& o7 n4 M/ U' b
(defun ai_AppLoaded (appname apptype)
) c2 l. }% p" a- B4 c3 H
(apply 'or, r' p% o+ w& }. W$ N, S5 N" K
(mapcar
: S. t3 u+ r! O% F8 K) s
'(lambda (j)
6 L) v- I+ V; G$ G% S0 M, v
(wcmatch
# c: C+ O9 v! s9 i/ x: I7 W
(strcase j T)7 n: q m0 L. i4 [% L* K* e
(strcase (strcat "*" appname "*") T)8 L F8 F" n6 A% s9 i5 d, u
) * v7 ]) n0 \4 D+ @
)
$ v5 i5 }$ O* K) y. O# i) \5 p/ F
(eval (list (read apptype)))5 e& h7 ~: k3 ]% I5 @% C8 y
)
4 I0 E6 J% {8 o& m6 N
)" g3 q/ W% L# }4 i5 {
)! y1 y( t0 [3 @- [( n
+ d1 y! l: p" M- a% ` f
;; - @$ j% k4 o2 @7 P" a
;; Native Rx commands cannot be called with the "C:" syntax. They must
- o1 J: _+ ~" f ^) {- D- O. j8 B
;; be called via (command). Therefore they require their own autoload 1 t' d$ \4 G( Q$ [% W9 D5 c
;; command.
. [0 l- _1 M- U! |' H9 r8 x, j/ b
. O0 @. z/ h5 r+ ~3 \& N' ?0 x
(defun autonativeload (app cmdliste / qapp)# o% O% V. ?+ A* Q
(setq qapp (strcat "\"" app "\""))
' l' E# e# R. a! c/ L( Y
(setq initstring "\nInitializing...")9 i4 N" {6 ]$ @* J# C
(mapcar1 X( E: g# M5 i! R
'(lambda (cmd / nom_cmd native_cmd)& x- t+ D- t F+ J V+ Y
(progn4 v# m. m# k" w( p) Q0 |
(setq nom_cmd (strcat "C:" cmd))$ h: b2 |7 _1 c3 H' S
(setq native_cmd (strcat "\"_" cmd "\""))% _* R# }) L' E* j5 l
(if (not (eval (read nom_cmd)))
4 o4 z# H4 _. _& Z# h
(eval
0 w7 b% Q7 n5 {0 I5 U4 b7 k9 A" g
(read (strcat, p( k. u# m5 l0 a: h7 `
"(defun " nom_cmd "()"
: T: G8 n7 @, M& k; l1 ]$ \
"(setq m:err *error* *error* *merrmsg*)"2 G( u7 n. S8 u% M i
"(if (ai_ffile " qapp ")": ?0 O6 A i/ t7 }$ N, F, V
"(progn (princ initstring)"
c4 g! M; h3 p/ i
"(_autoarxload " qapp ") (command " native_cmd "))"
8 E6 A7 V6 h1 t
"(ai_nofile " qapp "))"
, G) |1 S. t4 J# N2 k
"(setq *error* m:err m:err nil))"
4 q6 w( p# d6 ~* U1 K
))))))/ c. |0 e, P2 }4 K) Y2 S. Q7 ]. W
cmdliste)
% n6 R' U/ ?+ w" h* |& s5 O0 {
nil) _! h6 [2 c& h
)) m# Y3 \ c) E- O/ N& y
# u9 }! S1 @9 H* z
(defun _autoqload (quoi app cmdliste / qapp symnam)9 c- Y! V. T+ J7 C* c# K
(setq qapp (strcat "\"" app "\""))& w8 M; Z3 {3 J7 n
(setq initstring "\nInitializing...")+ j6 M) J# n# d- n& A
(mapcar7 y; B& a. A. A& n+ s1 j+ p1 T
'(lambda (cmd / nom_cmd)% G* z0 L: d9 r
(progn
" ~6 g; P$ B; u8 F! F
(setq nom_cmd (strcat "C:" cmd))* H, I, U0 h5 I( _
(if (not (eval (read nom_cmd)))
1 t3 ?# u K% e3 l2 i
(eval$ o: Q+ F8 D0 ^, z1 f; r0 ~
(read (strcat
6 t7 `7 g! \% O- y) Z
"(defun " nom_cmd "( / rtn)"
# m( K9 @% c- X% ^" I
"(setq m:err *error* *error* *merrmsg*)"
% w2 |& J! o# w) Q
"(if (ai_ffile " qapp ")"2 q% x) w$ S- Z9 [8 ]; j6 I- T; o
"(progn (princ initstring)"
$ f: B3 P1 E% T9 f( V7 h
"(_auto" quoi "load " qapp ") (setq rtn (" nom_cmd ")))"
3 X1 U/ F# x; x4 X- t& O- P& [
"(ai_nofile " qapp "))"
; [$ S" Q! G. S, I0 J# o
"(setq *error* m:err m:err nil)"9 E! O7 c' @7 V& Y3 C- h
"rtn)"! f1 x1 x8 u7 U2 d
))))))5 t7 U& _" T8 Y6 ^) L4 e* U
cmdliste)' L) c6 c% T6 B& r
nil
7 q7 Z1 }! l+ p ?# q
)
. R' ~) b( h; U/ Z9 Y4 u* o
' D( I, }& h9 r
(defun autoload (app cmdliste), b" j$ q: ^" A7 w$ A
(_autoqload "" app cmdliste)# Z* [7 @- a/ O
)
# P6 |0 N4 q! t0 }4 g4 o0 J! A+ l' X
4 ?7 z" R `( {5 h* a
(defun autoarxload (app cmdliste)
+ r, g! y. P! I$ K- P5 u4 w
(_autoqload "arx" app cmdliste)
) [& u7 t% f& V2 K
)
6 P! Z6 H% e1 _2 w" i
0 W q3 E" @ [# t; t) F
(defun autoarxacedload (app cmdliste / qapp symnam)
6 q* N! [! H! Q* ], y+ ] U' V
(setq qapp (strcat "\"" app "\""))
' k1 c3 t0 o% x! e
(setq initstring "\nInitializing..."); X2 g! Y: _& e4 E1 t1 f" X' G; l
(mapcar+ `8 Z' E- _. Z8 s
'(lambda (cmd / nom_cmd)" b) l5 X8 w" z' j
(progn
. K3 p+ H1 P, Q
(setq nom_cmd (strcat "C:" cmd))
2 W" c7 F+ L; g& X( l
(if (not (eval (read nom_cmd)))
; w) z' V( K7 N5 [, c; o0 u' x
(eval1 ^: G0 e3 u4 p" U/ g
(read (strcat& k8 {5 @# e( {( g3 m- ?
"(defun " nom_cmd "( / oldcmdecho)"2 K7 ]2 W% Y, Q b$ b) z) o
"(setq m:err *error* *error* *merrmsg*)"
; `; F) r- }7 ]& l
"(if (ai_ffile " qapp ")"
0 O9 G0 o) u2 v# G% }% S( l$ T' Q
"(progn (princ initstring)"
; u% \8 `/ D1 |9 i6 L
"(_autoarxload " qapp ")"5 O/ b- x- X4 `% B2 {4 Z/ Q) M
"(setq oldcmdecho (getvar \"CMDECHO\"))"" P; V9 i9 w1 j& L7 u
"(setvar \"CMDECHO\" 0)"
! W+ x. Q I! v5 E o
"(command " "\"_" cmd "\"" ")"# b% t4 C! [* [6 G5 L
"(setvar \"CMDECHO\" oldcmdecho))"
0 p7 i. q1 m* b
"(ai_nofile " qapp "))") O }9 u( b& O6 ^+ L8 u6 P
"(setq *error* m:err m:err nil)", v( h$ t1 Q4 D
"(princ))"* f5 w1 _+ B F6 f
))))))( }5 C/ P. \) s
cmdliste)2 D1 `5 \! v9 [0 D t
nil; P Q* W# m: g# u: p" P
)
9 O! W4 o8 B7 Z. n4 }- k( c
. a- Y' J- q2 E3 S8 m
(defun _autoload (app)% @4 v( A5 [ z
; (princ "Auto:(load ") (princ app) (princ ")") (terpri) L8 U( U( l7 `- P$ ^
(load app)
& }0 @- `4 Y+ s. I3 ]9 k
)% }9 r9 w! C. D% K
* Y4 F" S* y0 Y/ c
(defun _autoarxload (app)
; Z0 y( S" z0 z' g$ l
; (princ "Auto:(arxload ") (princ app) (princ ")") (terpri) y" N2 S( H+ O: o0 y& A' h4 F
(arxload app)% b% {. Z" o+ P5 ]0 x/ h) m
)8 C/ s, n9 \1 J9 a6 K
, e _- I d/ _
(defun ai_ffile (app). i. O# j" ]) v
(or (findfile (strcat app ".lsp"))
7 H: @: @& i2 l8 S( o
(findfile (strcat app ".exp")): V& w& N* B; t/ \2 ^
(findfile (strcat app ".exe"))- `& r. U5 ?4 r1 X# c+ y9 c: w0 U
(findfile (strcat app ".arx"))% p4 @8 d) s0 W+ X% N3 W
(findfile app), t0 C X. H$ ~( v. y
)+ a9 f% N1 D1 y( @2 j1 u& `
)
& d- @1 R& b0 n$ j) b
* \& v" i) k7 c1 @4 ~
(defun ai_nofile (filename): N8 v& W9 _* r1 n" m, |# `
(princ$ C' a( N8 D3 t% N' _, _9 s/ F
(strcat "\nThe file " K0 r1 D$ X% L6 H: l" Y7 a
filename
5 R6 A" M2 W i
"(.lsp/.exe/.arx) was not found in your search path folders."* D8 S( k6 ~; Y' y2 O
)
& Y2 e' ~" w4 l; {
)
* S* R/ W/ ?# Q9 z$ [+ A, w* y2 e
(princ "\nCheck the installation of the support files and try again.")
( V' n" p# u% j9 L ^6 T
(princ)8 d$ o( ~0 I0 n! O) K$ w2 {
)" w2 X: d/ R) o" [: R, s! ]6 W
! s+ A" q* ~& r6 p
6 u$ {$ s' U7 T X5 K
;;;===== AutoLoad LISP Applications =====
1 q' x' O7 _+ L3 j2 V5 r- L
; Set help for those apps with a command line interface: s% Q% D. \& X a
) W3 W" z4 t0 I4 U
(autoload "edge" '("edge"))0 r6 S+ f! ~& o) g+ v/ _* T) v4 O
(setfunhelp "C:edge" "" "edge") ]: M( `/ @; C1 \3 E
& w1 I1 @. b9 [2 n4 N* o) Q
(autoload "filter" '("filter " "filter"))# l0 {4 N. l8 R8 w1 I
, Q( }2 \) z- X. k7 Q. c
(autoload "3d" '("3d" "3d" "ai_box" "ai_pyramid" "ai_wedge" "ai_dome"( n( s% \4 L$ B+ g' L) A
"ai_mesh" "ai_sphere" "ai_cone" "ai_torus" "ai_dish")1 ?( j% g: t- t
)9 k5 h/ w6 T/ F5 a
(setfunhelp "C:3d" "" "3d")
! ?+ R) }+ ]0 D8 }* ]
(setfunhelp "C:ai_box" "" "3d_box")
! o0 f' F2 C" \* I4 S2 d, a% D3 p
(setfunhelp "C:ai_pyramid" "" "3d_pyramid")
1 \4 r9 u) V6 t3 q2 G& I% ?" Q
(setfunhelp "C:ai__wedge" "" "3d_wedge")
+ H" e6 d) b1 t/ u
(setfunhelp "C:ai_dome" "" "3d_dome")
) r' w. h" |% v& A
(setfunhelp "C:ai_mesh" "" "3d_mesh")
- y0 U: A, J( A# i0 z5 c
(setfunhelp "C:ai_sphere" "" "3d_sphere")" e. T4 T" O) v$ q, S/ E: d) }
(setfunhelp "C:ai_cone" "" "3d_cone")
: B% C& g u7 k3 C, z/ p! I
(setfunhelp "C:ai_torus" "" "3d_torus")
4 z) f* x- |, \3 W/ m1 _# T7 U
(setfunhelp "C:ai_dish" "" "3d_dish")6 B& b) V8 H7 F2 d, p; ^
7 C) x& W4 T6 H9 i& v$ E
(autoload "3darray" '("3darray"))
3 B9 g& j# }- p& J" d9 F% S1 V
(setfunhelp "C:3darray" "" "3darray")
2 |0 n& s! M C
2 O3 `' u/ S# J# L
(autoload "ddvpoint" '("ddvpoint"))$ H, Z; h4 ?* o7 g- u3 R
1 ~. d8 Y: {: w
(autoload "mvsetup" '("mvsetup"))
% m8 l3 p# ^* I& z0 g
(setfunhelp "C:mvsetup" "" "mvsetup")
% ]9 N( `! d1 T! {: E* |
5 B h) e# r, _4 i* f# F
(autoload "ddptype" '("ddptype"))1 M# L6 t( I( h! {
8 |- r4 V* E9 [5 Q/ M" ]( N3 w
(autoload "attredef" '("attredef"))! [2 L$ k- `- Y/ U! v6 R
(setfunhelp "C:attredef" "" "attredef")
7 A. D! ?% K8 S$ N* n) y
$ c4 T7 [. W( B `
(autoload "xplode" '("xp" "xplode"))( f$ {- T' `1 d0 w
(setfunhelp "C:xplode" "" "xplode")
/ _6 Q+ w* q o+ \3 D$ M7 f, R* M
" ~! h8 O# d! i @8 p
(autoload "tutorial" '("tutdemo" "tutclear"
, z9 N/ F* D( T4 Z0 P% o
"tutdemo"
& E, B Y; y+ L2 q
"tutclear"))
: O( O1 ]# w5 {, [
& N2 t# `0 A8 d6 ]' \9 \6 E
;;;===== AutoArxLoad Arx Applications =====
% N+ g& M. o- V3 {5 F( c, w
3 C( g/ e F3 Q* ^1 H
(autoarxload "geomcal" '("cal" "cal")); w) L+ J1 X% v ]( g
2 m1 F- m% G: @9 C9 w
(autoarxload "geom3d" '("mirror3d" "rotate3d" "align"
- Y2 q. N4 ^9 w. l7 b3 {% c
"mirror3d" "rotate3d"
) a) `) d' I2 U6 l
"align"))* k2 g, n0 b' X+ p+ D
! G' a2 H4 Z! D! e& c2 x' I% a
8 A R9 Z, T1 p& G* V F: E
;;; ===== Double byte character handling functions =====8 ~9 k% d0 K4 a+ F+ P
/ c; y8 [% y6 m9 K: p) B. d! m: W
(defun is_lead_byte(code)
8 m: X# L+ g' w9 Z+ B. G9 N
(setq asia_cd (getvar "dwgcodepage"))
6 W; ^3 c0 N! D) j' ?
(cond8 {: S# j8 h0 _0 c
( (or (= asia_cd "dos932")5 }5 u( o* l5 }9 J# Q3 e; J
(= asia_cd "ANSI_932")
6 s- b1 l4 I7 m( c# \, i6 g
)
P; }' x" f# x3 O/ C- u0 Q
(or (and (<= 129 code) (<= code 159))
0 N: X( X; y7 b1 x( L
(and (<= 224 code) (<= code 252))
3 \" J" W2 Q Z% L/ @7 s
)
6 K* Q* d1 F" u4 Y# F$ `
)4 v x& @2 K0 M2 ?3 }% |
( (or (= asia_cd "big5")% i) \* @( e% M9 ~) L
(= asia_cd "ANSI_950")# B. B! l+ R+ M
); n) W- R% p/ N/ A, b: O: Y
(and (<= 129 code) (<= code 254))
7 H, U2 Z7 ^: u) P
)
% Q5 ?( t$ y; p% E4 u: v5 T- n
( (or (= asia_cd "gb2312")% o |, l9 q( |' n; K% M% e O3 E
(= asia_cd "ANSI_936")
0 |' Q+ J0 S6 E* [$ Y9 S: Y( ~$ t0 `
)
% G+ ?) k; m, m( u
(and (<= 161 code) (<= code 254))# m' J- O" h( L3 y0 ^
) M$ r( ]5 H) I$ u6 N& Y" i$ U
( (or (= asia_cd "johab")
+ h# j, p4 L4 y [% r7 d
(= asia_cd "ANSI_1361")+ j) T' k( R( r. g! H, Y' n
)
6 ^) f$ w0 Z% x/ x1 N8 g. }9 G
(and (<= 132 code) (<= code 211))7 O3 O- V. ?4 l
)
/ Z1 S8 q2 G( x8 }2 h
( (or (= asia_cd "ksc5601")
( l/ k5 A) I5 E7 N6 B; q% k/ n
(= asia_cd "ANSI_949"); |4 ]. {% n, o
)
) K% a6 e4 v8 e9 r: ?6 a
(and (<= 129 code) (<= code 254))0 a, ?/ V) f1 v% M1 g
)$ I4 k2 u5 T1 v b( f% g$ Y
)4 a Z0 Z, b7 S, z* M
)
0 a4 t3 K9 F% O( D% q Y; r" O
( K# C" N$ t3 N4 x; S1 {
;;; ====================================================" h) O7 d' J+ }! } s: i
1 k+ u0 _1 z; P. P; C/ A5 }# O
/ H/ j9 N5 N0 a: ]( c
;;;
' Q' r8 q: J w$ K1 w. _
;;; FITSTR2LEN' t/ f9 A8 n2 S/ o9 p
;;;
: R: }7 g0 [6 @2 v* D
;;; Truncates the given string to the given length.
0 M7 c2 R" D5 m
;;; This function should be used to fit symbol table names, that4 t* E. L/ v% d& x: N5 @1 r
;;; may turn into \U+ sequences into a given size to be displayed
" M3 g! M! Y/ b$ r
;;; inside a dialog box.
( _8 B5 d7 |7 Z6 L8 L: d
;;;
( [: l, T& B" `# {4 y% k) }
;;; Ex: the following string:
) [9 V4 n o, ?$ \
;;;9 R. r$ H; e9 Z9 g$ K" R
;;; "This is a long string that will not fit into a 32 character static text box."
! o0 q' F! V( P) n2 d
;;;4 W/ q. {- E2 K
;;; would display as a 32 character long string as follows:8 h& w6 P" B4 X
;;;
& C% ?2 W% B) v1 ], B8 d7 c, U# K" e
;;; "This is a long...tatic text box."4 j- T/ j' |2 a/ P: `: H$ v7 L7 ]
;;;
. B$ T# g- f2 `* B
$ j6 C, _6 x# |( y" r5 m( J
(defun fitstr2len (str1 maxlen)
& K y, v; x5 E C9 w3 R
$ ]. l E W1 Z7 A9 @6 Q
;;; initialize internals/ Q* D: h) B# S; A$ _: v" j
(setq tmpstr str1)& l. R1 l, P# m7 s4 \& u# d8 C
(setq len (strlen tmpstr))# B/ n7 B6 ?: X5 X* x; i
+ S: q; F1 }; S9 e: i
(if (> len maxlen)
8 @% d' d2 j' j- |* X) b8 [. d! o: ^' \
(progn
- K1 d' }$ Y! d7 `- k- W
(setq maxlen2 (/ maxlen 2))2 k1 a( s K$ [* i# n
(if (> maxlen (* maxlen2 2)). r; ?. x$ V" I9 d9 }
(setq maxlen2 (- maxlen2 1))! n" F; y; f# }3 W' ?2 O# Y1 K
)
$ B" m* u" p* C8 T
(if (is_lead_byte (substr tmpstr (- maxlen2 2) 1))
1 ]$ M8 E" v9 {! [, Y% E
(setq tmpstr1 (substr tmpstr 1 (- maxlen2 3)))- M% f! w1 e4 U( r# F+ Y2 ?# I
(setq tmpstr1 (substr tmpstr 1 (- maxlen2 2)))' e6 b3 V1 a: d+ c' L
)
0 A5 U- h. g0 u2 j3 {
(if (is_lead_byte (substr tmpstr (- len (- maxlen2 1)) 1))
' u6 J" L8 @2 _
(setq tmpstr2 (substr tmpstr (- len (- maxlen2 3))))
/ F [ |# B( Z5 t v
(setq tmpstr2 (substr tmpstr (- len (- maxlen2 2))))
, G& U, h( E" l
)0 | j% h+ b+ ^% h! U
(setq str2 (strcat tmpstr1 "..." tmpstr2))
# X* _$ }' u# q0 Q& n3 U: }
) ;;; progn2 B( i3 i* B8 h* h" w
(setq str2 (strcat tmpstr))
5 |' P" m4 R% i# b9 V
) ;;; if
, n7 q2 R2 N0 x2 Y1 m8 s1 R! _
) ;;; defun! B$ } T9 a" ^; H8 X& y0 N+ I
1 `% J. ?; s) A( `" S2 [6 G. S
6 I0 `$ f; I2 M; b5 @& p2 F' z, E
;;;
+ o; {8 j3 |8 E- w n) b
;;; If the first object in a selection set has an attached URL" ^- U- f. I4 _: T, x# ^& p
;;; Then launch browser and point to the URL.5 i/ D: [4 t! v4 v( g% I
;;; Called by the Grips Cursor Menu0 ~! }% }8 O( r$ X" g6 Q
;;;
# p) g7 n3 e; W1 F
8 Z; c4 x2 v- Y" F6 k F+ B
(defun C:gotourl ( / ssurl url i)' Z) P, @+ s% ^
(setq m:err *error* *error* *merrmsg* i 0)
* h; F# ~' n5 E
3 Q4 @- x! G) _4 B- W; V
; if some objects are not already pickfirst selected, - A0 o7 G' f! i+ l& \! Z/ U( ^. e
; then allow objects to be selected: W9 `# D% p) o$ e+ \5 W' N3 z
" B; h% l2 j5 Z& `0 l$ u/ y& [1 t
(if (not (setq ssurl (ssget "_I")))
- j+ g& _( ^: {6 H, j( U; H' ?
(setq ssurl (ssget))
" ]9 l: b% U8 U! @! C1 h% N# V$ M4 j
)9 w9 e/ ?( r7 y5 I$ x. @8 I, d- m4 B
2 g8 Y$ G& q, A. }1 p- w
; if geturl LISP command not found then load arx application* o$ K, @* L# i/ y" }* e
& a# d4 q1 [: I, x
(if (/= (type geturl) 'EXRXSUBR)
6 j* A; ^4 N: ]5 p4 ~6 v
(arxload "dwfout")
9 y6 C y2 p# z( G1 ?5 A
)
) T" _ L! u: ?" a+ R
( u- ~6 M# K6 S5 z1 }: ?# }
; Search list for first object with an URL4 o1 Z. L2 l4 @0 X4 g
(while (and (= url nil) (< i (sslength ssurl)))( F( U5 m0 h3 v! x/ }
(setq url (geturl (ssname ssurl i))
) J* h8 X. O) ^5 B" y5 y
i (1+ i))
( [- `' u# ?- c: k
)
0 I7 h! p8 r, \' n, P
) W! `4 b4 M" I2 ^. W6 ?
; If an URL has be found, open browser and point to URL
+ E# k o+ C3 i4 X+ R
(if (= url nil)) I8 D6 |0 I7 t: L
(alert "No Universal Resource Locator associated with the object.")
& w: `; L; [) R9 W! A& K/ m
(command "_.browser" url)
8 E ^" d B, P: Q5 I6 g
)
# r3 L% h# U" i! g- L. n1 i
3 b0 s7 P1 X* e2 t0 V3 f
(setq *error* m:err m:err nil)# y- F- l/ }4 v% ?
(princ)
; n9 a& C! L3 k {
/ Y* ]' P) W/ r) U. M- ]( u/ T
)! ]. a& o6 E0 l/ n# J5 P Q- \, e
1 ?0 A0 C0 {$ K% g
;; Used by the import dialog to silently load a 3ds file! j/ ^6 ^: \6 B) U2 J( n& B0 m
(defun import3ds (filename / filedia_old render)' V, n4 F' s& g |
;; Load Render if not loaded8 r. @3 r i0 O0 C
(setq render (findfile "acRender.arx"))7 P4 u8 C5 c& P7 M3 e5 g
(if render6 j) R8 r. [9 w4 L9 n
(verify_arxapp_loaded render) - C0 `2 R, I$ |# e. R# p
(quit)- g0 Q/ \- I3 E. ~. r( q
)3 E8 X+ V' \3 k4 |2 }8 {/ P
9 r1 N# q+ q5 O2 J
;; Save current filedia & cmdecho setting.
9 K5 x( s5 X/ V& o0 N) h
(setq filedia-save (getvar "FILEDIA"))
: p$ v R5 F+ t2 B n K
(setq cmdecho-save (getvar "CMDECHO"))
A. |& T* G+ ^$ X, h V
(setvar "FILEDIA" 0)
; O' A1 Z$ P% s" I0 p% r8 q
(setvar "CMDECHO" 0)4 T! f9 ~! ?# f5 ?: c; Z) ~
5 ~, ^2 n+ ~ o& p
;; Call 3DSIN and pass in filename.7 Y$ E, d& o* F: [2 ~0 P
(c:3dsin 1 filename)
6 ?; @, z1 C8 e8 a; B0 P9 g
" V4 M9 p" [6 v# X
;; Reset filedia & cmdecho
1 f! [/ S' v( r, b* z D* _
(setvar "FILEDIA" filedia-save)
+ F* L1 q, B, P, Z
(setvar "CMDECHO" cmdecho-save)' \$ s W5 `5 t3 w$ }0 z: V4 `, ^& c9 _
(princ)( a7 B9 z; b4 A2 \4 O
), `; d0 Z% [: D3 H3 N: t
0 S5 q6 f2 ]: Q3 M0 ?* g7 q' s- |
6 H1 G2 I5 L/ b( k; T
;;;=== Menu Functions ======================================9 }4 A% u2 y& t
7 E$ i |7 H# P: @
(defun ai_rootmenus ()
+ _9 H; O3 I+ W3 d
(setq T_MENU 0)( v+ y J7 f, t, N/ }! P, g
(menucmd "S=S")" k4 b/ {9 Q6 Q: d" `. y; `
(menucmd "S=ACAD.S")& e' B" Z2 [' _6 P
(princ)1 L3 o& @8 J: `% w( Z( A' Z( o
) Y) |/ d1 k9 z- |6 P9 C8 t0 ]9 B) O
% B, s( k* U. J
(defun c:ai_fms ( / fmsa fmsb)9 b' Q( `! E5 t) ~
(setq m:err *error* *error* *merr*)
& u. G; J! j v. Z
(ai_undo_push)
/ s9 D* ]* U: |' Z. k' b" u
(if (getvar "TILEMODE") (setvar "TILEMODE" 0)), ^ f$ C: ~: T
(setq fmsa (vports) fmsb (nth 0 fmsa))
4 a$ X4 d% k5 a1 ?
(if (member 1 fmsb)
/ O! l# J( F0 [5 s
(if (> (length fmsa) 1)
, P- z! k! f! T+ \0 c4 m4 Q
(command "_.mspace")
; B6 @/ ?3 t$ R( K, ^3 V# j$ N
(progn" ~" E% y& ?, G) h
(ai_sysvar '("cmdecho" . 1))
8 ~) {9 y2 J; F, q( a' T( Z
(command "_.mview")9 y% o- \' L2 {7 A: V
(while (eq 1 (logand 1 (getvar "CMDACTIVE")))6 b3 R: G$ `6 g/ W0 _! e1 d
(command pause)
8 N# `3 J1 E- z% t
)" U% c* x; L$ ?4 Z4 [! [0 M
(ai_sysvar NIL) M8 X/ x8 W+ M. X% {. m Q
(command "_.mspace"), l. M9 f1 b" E7 z6 k& y
)5 M7 [3 T) J; [, v
)
5 t; n! i# U- d2 S9 M
)
1 L: \: z S% _+ p
(ai_undo_pop)
( |6 X2 d5 k2 N: f6 `
(setq *error* m:err m:err nil)
) W( X5 t+ c, g6 n& t; [, s6 Z
(princ) y2 ~; A+ L3 Y" N
)9 J6 M7 g+ @; s" H
; O4 b& d) s( D0 P2 Y
(defun ai_onoff (var)+ M. t( q* w- u' G) v/ K* D
(setvar var (abs (1- (getvar var))))
& U9 W3 _. K7 `
(princ)7 I( d! a$ o \* l
)
5 g! q0 C* D2 y
;;; go to paper space7 ~4 O. U2 k7 {( Y
(defun c:ai_pspace ()
& P! ~& M3 ^) Z v/ \$ H
(ai_undo_push)9 [% v; I9 C c, q
(if (/= 0 (getvar "tilemode"))5 R5 b9 K5 S$ w
(command "_.tilemode" 0)) W r+ s& K' W3 Q
) Z! A0 `# |/ B+ V' m
(if (/= 1 (getvar "cvport"))
- F8 U5 l1 k! O1 L) o
(command "_.pspace")& D. Y( H$ ]2 g7 @/ h1 u8 F% G
)6 k: b9 k1 K+ M# c. e4 I) E
(ai_undo_pop)
5 n% h; h9 ]: p% m$ Z3 N, J! t
(princ). r; j4 U. x' I& |' @
)
8 Y. O* ]& S5 M( m6 l0 w) A
" Q$ x. J4 i& |& T, D. p# g b% D& _$ m
;;; go to tilemode 10 t! \) S: j. H+ ]2 O
(defun c:ai_tilemode1 ()
$ Z0 @$ Z9 V& c4 n$ \
(ai_undo_push). Q: G* r K0 o# T" [( X3 A
(if (/= 1 (getvar "tilemode"))
) u* h5 D7 H4 E! M/ P9 ?/ Q
(command "_.tilemode" 1)
) {. C+ w1 J! B& w# e
)
$ T) L, g* E3 Q$ z9 n
(ai_undo_pop)
% r; L B" V' a. ]' q
(princ)# ] Q& |" d+ t
)9 E7 k2 k* A) p: j
0 J Y! u, x7 }8 V. c% `
;;; Pop menu Draw/ Dim/ Align Text/ Centered
* }. v% d7 l, {. Z- f) v H6 R" M* g
;;; Toolbar Dimensions/ Align Text/ Centered
9 ]9 C _- I: z9 [- p* x, Q; p
5 a& e9 V8 G, @
(defun ai_dim_cen (/ ai_sysvar ai_dim_ss)
X3 E+ M5 w1 Z8 H1 X% b9 u
(setq ai_sysvar (getvar "cmdecho"))) E) J! A D3 S
(setvar "cmdecho" 0)
/ f9 q' { ?! [
(cond, v) B9 f/ w( L. {- W/ c+ i+ b
((setq ai_dim_ss (ssget "_P" '((0 . "DIMENSION"))))5 d+ e- F0 H* b( o9 a
(command "_.dimoverride" "_dimjust" 0 "" ai_dim_ss "" : Z" h8 i9 j4 \1 w/ Y/ k
"_.dimtedit" ai_dim_ss "_h")4 h1 ~$ O, _4 {
)
/ [9 d! g3 b' }/ `. {* p
(T nil)
( ^, `& O) Y I5 E
)" S D! v2 G a, h7 j; y b" z
(setvar "cmdecho" ai_sysvar)% S: `5 G$ ? N- a; K6 k% @
(princ)# o( W# U" W5 a: C$ A- \
)
6 P9 ~! d9 p) L: j, O- G; F
: i, A0 y1 f3 S* p. \
;;; Shortcut menu for Dimension Text Above
6 A$ H; G$ o0 T
! M% q% N m( ]7 C# r( U" i* w* z
(defun c:ai_dim_textabove (/ ss)9 z9 j0 N: |; l/ J- j3 E6 L
(ai_sysvar '("cmdecho" . 0))
. y/ E( X2 o6 E1 Q/ m5 L" x
(if (setq ss (ssget "_I"))$ V& y& R/ \7 W2 Y; W" `1 m
(command "_.dimoverride" "_dimtad" 3 "" ss "")
; X/ C: U# [5 ?: t# y0 K; `7 i
(if (setq ss (ssget))9 }9 A, z1 b; }# x5 t% m. v
(command "_.dimoverride" "_dimtad" 3 "" ss "") 2 }/ v4 b: g# j. m W: f4 M/ l
)
@' b5 Z; y5 ?. @% {+ R
)
% U7 r# g* e, g% W
(ai_sysvar NIL)! X; |2 l8 s6 V4 F
(princ)* ~+ ?/ H# L7 H4 w4 R/ ^ g0 W
)4 Y7 ?- M6 D6 u2 J
+ J, b5 y4 Q' q$ H* K' _
;;; Shortcut menu for Dimension Text Center 1 P8 K- P# L; |8 ^+ M" V7 ~
# I& x d& Y) w1 I( ~) @
(defun c:ai_dim_textcenter (/ ss)6 |( q9 T6 i& m/ o" }
(ai_sysvar '("cmdecho" . 0))
+ A5 S! B* Q% v0 e% F: a$ Y
(if (setq ss (ssget "_I"))
' S9 g, w, l6 E/ `% _
(command "_.dimoverride" "_dimtad" 0 "" ss "")) H, ~5 p. ]# M( V7 F) w
(if (setq ss (ssget))
' V/ o2 O) |; b2 Y3 _# a( n
(command "_.dimoverride" "_dimtad" 0 "" ss "") % h& D# g( o! J
)
|: w- s& ?/ v
)
' B1 u+ ^" w' s0 `$ k
(ai_sysvar NIL), A8 ]& |* N: V ^% B( s. F& a
(princ)+ {6 q3 K: R1 S) S! e( x" X8 B* u
)8 i4 x1 U, y+ o/ f
6 J& ]1 f0 l. r# X4 c" M% n
;;; Shortcut menu for Dimension Text Home
4 R1 q1 Y. I/ f( A" [) R# J6 E
; S4 v: E+ M, z; ^+ B& N) b
(defun c:ai_dim_texthome (/ ss)
+ h+ ?1 i4 v& U7 a$ `8 ]7 y& M) J
(ai_sysvar '("cmdecho" . 0))
! J6 Y( N- F; \' J3 [: C' q0 ?: i
(if (setq ss (ssget "_I"))! I, N+ N1 `% [% P9 S; [' x& X
(command "_.dimedit" "_h")2 G# z$ j8 [5 g w# l
(if (setq ss (ssget))) h8 C4 r3 r( w1 m
(command "_.dimedit" "_h" ss)
8 W1 y9 S- V- V9 t% B+ E6 e! n
)9 i3 n' Z3 m) T. A4 @ J9 L( d
)
4 R+ R" ^- b5 u
(ai_sysvar NIL)3 T" B7 D% w' z+ O+ b ~8 L* n* t
(princ)1 }% a T. B# s# x& O) i
)& f/ ?0 L# L# l# F
& C' _' l7 I, Z
1 o4 N, @1 h( N1 l
;;; Screen menu item for CIRCLE TaTaTan option.
+ |9 u& J" `2 B6 c7 d$ x
;;; first, get points on entities: }+ o: }2 C; F, G/ X
(defun ai_circtanstart()
& S$ j2 V8 o) ~. Y, \* U& F
(setq m:err *error* *error* *merr*)! }# e0 n7 k/ g. ~1 Z/ t
(ai_sysvar
1 O( o- {& w9 k+ _" h+ y
(list '("cmdecho" . 0)6 {. r# R( E" A0 p! w- y% G
;; make sure _tan pick for CIRCLE gets same entity0 u7 A$ K( ~9 d# h2 J
(cons "aperture" (getvar "pickbox"))
# T0 O8 W8 c! E1 t* Z
)
0 ]( s6 q4 q! ~# r3 H _
)
# ^, g$ Z$ d- ]! G2 d" ]
;; prompts are the same as CIRCLE/TTR command option4 ]/ W1 V# b) n: D2 w. Y \% a1 N
(setq pt1 (ai_entsnap "\nEnter Tangent spec: " nil))0 n7 O+ t2 M$ O6 V2 x; n# v! ~( D
(setq pt2 (ai_entsnap "\nEnter second Tangent spec: " nil)): y3 e3 {! b C- v
(setq pt3 (ai_entsnap "\nEnter third Tangent spec: " nil))& \) O- ]4 u/ _- X$ _! y( `, Y
)
5 L9 n# e3 O$ j {0 M3 L" ?
;;; Command-line version1 k* w7 E6 s, B8 z( \2 C! M
(defun c:ai_circtan (/ pt1 pt2 pt3)8 ], o$ }1 d9 @* N8 D+ J" i
(ai_circtanstart)/ r4 E. t1 k# {4 J7 q H
4 `7 r3 p i( E1 B$ G. M
(ai_sysvar '("osmode" . 256))
+ b+ A. M/ N: g/ `3 q+ q. a- ^
(command "_.circle" "_3p" "_tan" pt1 "_tan" pt2 "_tan" pt3)6 r4 q, C. |8 b! T m) Y* j& p
# ^ l$ v5 {5 D: i% G4 Y6 j( x
(ai_sysvar nil)
+ y% |, v( f: L! G, e
(setq *error* m:err m:err nil)9 }& `8 ^5 z8 G9 ^7 }+ d
(princ)
% g; t- E, r, A8 _" z! c! |+ z1 T
)5 l: {( q; i9 }' d1 i- f
;;; Use this if CMDNAMES == CIRCLE7 `+ [2 `* W4 R2 o; j
(defun ai_circtan (/ pt1 pt2 pt3)
1 f- m! s8 _2 R+ E, Y% R
(ai_circtanstart), F6 M/ d5 k, d5 ]( Y$ A
$ d2 S9 n ]0 ~, {1 M2 l
(ai_sysvar '("osmode" . 256))
2 q; k/ ~8 P1 M ^7 N% i/ H
(command "_3p" pt1 pt2 pt3)7 ~) `! Q7 m% Z
( M$ a. p- `- N3 ~# S0 y# X) b
(ai_sysvar nil)# C7 c. C% l. N7 {
(setq *error* m:err m:err nil)5 B% D9 R7 w: S. ]& h, x5 ~
(princ)# e3 E9 S6 I1 Z' l: C7 {' i
)
6 o8 S ]/ h, h& H; F, @/ n
4 `/ \" V8 S! [! m2 V& K. `0 e+ D
' l& k2 I& i5 s4 @+ T0 ]
7 y& T. B7 N' A! [( S
;;; Shortcut menu Deselect All item.
+ n$ r; Z+ L, V `8 M
" p% U4 \2 T8 w$ o! [4 n6 I$ g6 r
(defun ai_deselect () U+ F/ J& V: }
(if (= (getvar "cmdecho") 0) ;start if
0 f) {. z2 [* t6 v5 w7 H: Z5 U
(command "_.select" "_r" "_all" "")4 I$ r' A) R$ X- i* }
(progn ;start progn for cmdecho 1) E4 N6 ^6 A4 } U& O$ T
(setvar "cmdecho" 0)
" {: Q6 N! H2 q7 h. {& r: k$ ^" Q
(command "_.select" "_r" "_all" "")6 r+ K: v- x- m [* C, x1 d' f
(setvar "cmdecho" 1)0 }3 Y% e, I4 [# C2 ]6 O
) ;end progn for cmdecho 1; `2 _# ~5 h8 m4 D
) ;end if
: u8 y) ]4 w/ X' ^5 A; E C
(terpri)
7 n8 \- ]! v+ j! e
(prompt "Everything has been deselected")
9 u" ?4 [: E, s: ^: y4 I7 d" [, K: C
(princ)
3 J/ D# L- d5 Q$ U' E/ _
)8 p: a; n" s0 v3 K2 }- N
- U: c, A& j" `/ A1 N0 l
;;; Command version of ai_deselect to be called from the CUI( x G! r, H0 {# K: w; ]! c5 x
;;; so it gets properly recorded by the Action Recorder
. j' {" t* E w/ f0 z
;;;( w, |: G( e p2 I4 h) T: B
(defun c:ai_deselect ()
, h' O7 X" B( f' V: E5 R, v4 v* E
(ai_deselect)
6 V4 _% s2 {, J7 \ C, V3 v3 O( Y
(princ)
: F" X& m! K4 A. t6 P( ]8 a
)( ~9 T5 D# l; q
6 d J! K- i4 |
;;;2 k+ M7 e. B2 Z$ X
;;; Enable Draworder to be called from a menu
: h& h$ ^5 m4 |' R+ l4 p& k5 H
;;; Checks for Pickfirst selected objects
% I$ y8 v. ]) B! `
;;;7 d6 [5 r$ F0 Y3 L$ y
) h) ^2 S2 h/ P/ m0 G# j
(defun ai_draworder (option / ss )6 V! N; X! s: w+ [ H8 R0 [
( o; Q+ i) l& ]" g8 B7 A# `" X) z0 i
(setq m:err *error* *error* *merr*)
! Y' [/ w2 i) a! D! J) c4 J' w9 Z
(ai_sysvar '("cmdecho" . 0))6 X* s: S5 r; b; s0 E y7 a( O
/ s9 f: z7 ^3 a6 a5 I' q$ J1 S
(if (setq ss (ssget "_I"))
% A/ ^1 G/ E: v( p' ?2 l
(command "_.draworder" option): S+ z A' |( Q! q* M
(if (setq ss (ssget))
. D' i% [" Q: q3 q
(command "_.draworder" ss "" option)* g2 f k3 s6 o7 B
)
0 B; A/ k( c% C! Q8 S) U
)# [2 z: Y; n3 q
(ai_sysvar NIL)) o3 _1 e& R+ T" T0 {, `4 s# V# B/ V
(setq *error* m:err m:err nil)/ k8 [/ P. \4 `" Y! @5 y! ? W9 m
7 |' c, V9 Q( V
(princ)
* I* s5 J, f$ r* B) V8 q, l# ]
)+ F. c" r' c% x7 Q) C1 v
1 C! y, c; r4 s i0 M
;;; Command version of ai_draworder to be called from the CUI: x5 o Q5 b6 L
;;; so it gets properly recorded by the Action Recorder
( T8 j$ L; j( O7 O( y: t
;;;3 k+ w0 S6 b( r: o' t- p
(defun c:ai_draworder ()& l6 Q, m" O8 {3 f" Q8 v P: K( i
(initget "Above Under Front Back")0 [5 D, ~1 R, g) V* H, S
(ai_draworder (strcat "_" (getkword)))$ Y% J/ \! d5 g2 }% E
(princ)$ Q; v, m- a% y$ x
)
$ o1 p. x4 V) g3 ]/ w; ]
* E4 l$ D) d* [/ ]' r
(defun c:vlisp ()
( H5 x2 Z) c+ d* b5 x2 F
(if (/= nil c:vlide) (c:vlide))
& `5 `) u! ~) F# c6 C
)$ I m3 _3 Y: i* N# t. n
* e6 i+ n5 Q- }
(princ "loaded.")0 \7 m0 d/ b' X7 v9 [' G1 ^$ O
. l# M! u) R6 q7 K' i! @
;; Silent load. F( {* A# `3 k- m( b) S
(princ)
% [. n1 x3 W+ e* t, W; V- g
O! e! h2 v2 A! i7 q; ?% @7 O
;;;----------------------------------------------------------------------------
3 E5 Y7 C* K! }5 f4 w
;;;
9 E* \- B6 Q3 D$ }; g; j
;;; DDCHPROP.LSP Version 0.5
$ W+ m6 R2 e, f1 z e
;;;' H2 e; L# s( m4 C4 N; J- T" \) \
;;; Copyright (C) 1991-1993 by Autodesk, Inc.
- H/ W2 q" x4 P: j! Y% O+ s$ ^
;;;
1 s! C+ F8 ~4 g% {
;;; Permission to use, copy, modify, and distribute this software
# }9 B+ E, _) ^, e0 N
;;; for any purpose and without fee is hereby granted, provided8 i9 E7 u3 h2 E- K/ H
;;; that the above copyright notice appears in all copies and that
8 O4 W+ L8 A/ Q
;;; both that copyright notice and this permission notice appear in
* k. V7 R. X. r5 D2 b, V
;;; all supporting documentation.8 _+ T9 Z! G# u% _; N' K
;;;
9 F5 n" K" V" M7 J
;;; THIS SOFTWARE IS PROVIDED "AS IS" WITHOUT EXPRESS OR IMPLIED
( h% e p1 R$ N9 M9 ~- X
;;; WARRANTY. ALL IMPLIED WARRANTIES OF FITNESS FOR ANY PARTICULAR
6 I# v ~1 Z- v
;;; PURPOSE AND OF MERCHANTABILITY ARE HEREBY DISCLAIMED.2 R5 A0 ^5 n! R3 b
;;;1 c; s* C/ _3 a+ v* |+ F
;;; 2 February 1992# U9 b# P& h' _5 K7 G6 r5 @) b% ?3 ^& D
;;;
' s9 E! Y7 V; c9 D. D) {- s
;;;----------------------------------------------------------------------------' D* d; F; @0 b5 Z5 x
;;; DESCRIPTION+ L1 I H( V5 Q( P, V
;;;----------------------------------------------------------------------------* ?- e* _' r5 L [4 H t
;;; C:DDCHPROP is a dialogue interface for the CHPROP command.1 E4 U, ?! M d( Q7 N( W
;;;2 W, }- x! i1 h4 D) A) ^5 U
;;; The command looks similar to DDEMODES. The main dialogue has an image
$ ?2 f' r; y% o* c
;;; tile, 3 buttons (layer, color, linetype), and an editbox (thickness).
+ f) F7 q! j# |$ `/ ~, n$ r
;;; The 3 buttons each launch a sub-dialogue containing a list and edit box. 2 k# ^. \+ {+ U4 s
;;; The dialogues are all defined in the DDCHPROP.DCL file.
0 C7 E, }9 j$ @1 B; q: }2 {* X1 r
;;;
0 J' B# P$ K8 f) c. |) p( ~
;;;
3 G; [+ D, ]; b: a
;;;----------------------------------------------------------------------------
' y' T3 X6 a4 T' f' V2 l* P
;;;----------------------------------------------------------------------------1 B% \ w! K$ a# b1 @' f
;;; Prefixes in command and keyword strings:
. q r7 x/ K3 T+ E: y# g
;;; "." specifies the built-in AutoCAD command in case it has been $ ?( u/ m; Y4 |' m
;;; redefined.
* P* H1 o6 n X5 E" {/ A, p1 A
;;; "_" denotes an AutoCAD command or keyword in the native language4 `1 @' u Z, U
;;; version, English., U4 C# e4 W6 k, k! [" b- G7 j' R
;;;----------------------------------------------------------------------------
5 R* W$ u$ T' r7 g/ l/ J
;;;; N# Q; b; A$ ]$ S3 ]# B3 Q$ v
;;;; z$ n3 S$ b7 |
;;; ===========================================================================& G$ e! R" F& ]4 u6 U" D3 Q- L
;;; ===================== load-time error checking ============================) x. D: {; U0 {5 Y* t1 h7 P
;;;
" v9 b/ x. }: G# D
0 v: N4 e# p( A$ \/ S7 @
(defun ai_abort (app msg)
8 i. y3 i: X$ O) q' o2 c, H
(defun *error* (s)6 z0 N8 f; l/ B- d7 i J! Q2 O4 a/ t
(if old_error (setq *error* old_error))
3 z& x+ E5 V6 S1 ~8 p% X8 r. h
(princ)
( [) a) \8 b, g3 `- O
)
4 R( ^: v, A0 T4 q$ _
(if msg5 L0 E) F& N. s7 m6 [; S8 r
(alert (strcat " Application error: "
! C( }0 L6 r. }
app
7 v' i$ w9 L7 |! T+ K9 i$ Q* J5 _; a
" \n\n "8 g1 x+ Y# o, V
msg' e. o3 X2 s N: J& \7 k3 s
" \n"8 p8 c9 N+ Z" C; K+ ?, Q7 X1 M
)$ l9 K& C7 ?- m5 r1 o
)
6 ~6 {3 _, @, j
)
8 c1 I7 _3 L0 {
(exit)
! z+ y+ ^( x& C" p
)
! ]: {/ n9 v8 B$ |! Y; v$ L
; \! H$ K; H& q" \6 Y! H# x
;;; Check to see if AI_UTILS is loaded, If not, try to find it,
: {$ W; B6 t1 i! U& g
;;; and then try to load it.
% A$ l- _3 g Y
;;;
* G7 ?3 S: h7 {2 U0 r
;;; If it can't be found or it can't be loaded, then abort the
2 r' P) G4 g0 B' V9 \3 }- f
;;; loading of this file immediately, preserving the (autoload)4 n/ v) Z; C# U3 V& W
;;; stub function.
: {+ u1 B* L2 j1 X
. [! e. S8 Z3 @. q3 x9 G [7 f: Z
(cond# |/ f. g( d: z5 S
( (and ai_dcl (listp ai_dcl))) ; it's already loaded.
* \$ v9 l5 ~ S# p+ B
& ?$ l* S$ P d/ z, z
( (not (findfile "ai_utils.lsp")) ; find it/ x V9 J+ O! d( h
(ai_abort "DDCHPROP"
6 J, ^' l8 @' K8 ]5 l9 C: N$ \
(strcat "Can't locate file AI_UTILS.LSP."
8 _2 S5 L, T/ Q6 U, U
"\n Check support directory.")))/ r$ T/ p& j) Y1 J$ Q6 q
+ `! I& l8 F/ l% w; [; H
( (eq "failed" (load "ai_utils" "failed")) ; load it9 _/ w% F1 [. y) P
(ai_abort "DDCHPROP" "Can't load file AI_UTILS.LSP"))3 K8 h5 o# i1 V" z: q7 L( [
)
. B9 M1 j" t, q: r3 S
" x, h1 r3 E( p
(if (not (ai_acadapp)) ; defined in AI_UTILS.LSP9 R' l2 f1 ^/ q. y! {
(ai_abort "DDCHPROP" nil) ; a Nil <msg> supresses; S% w* x9 c8 U5 o+ z" `
) ; ai_abort's alert box dialog.7 n1 W+ F8 q, Q( X1 F" M: M7 [9 Q0 I
5 G q% f5 @; J. y# _
;;; ==================== end load-time operations ===========================
7 J* s; m. d$ x# @5 P
7 F% g/ }8 {* ^9 _0 ~8 k
;;; Initialize program subroutines and variables." `! ?" Z' n J% k" j2 i
* z" ~+ }. ^3 M, z
(defun ddchprop_init ()
! R- p# t6 G* v2 r* V5 {
: a( E2 J5 ~4 W8 H4 f
;;- Z5 v) O- r1 ^4 D7 x/ t) @5 e
;; Define buttons and set values in CHPROP dialogue box 6 x* c) m: ~( |5 @0 R; L" q
;;
( P/ X" C; ^) L" b. P
(defun call_chp ()
. _+ u }9 q. x9 O2 P9 `5 T+ |
(if (not (new_dialog "ch_prop" dcl_id)) (exit))
2 {( t7 j/ c0 l1 \
(set_tile "error" "")
' y% G- h$ V7 b2 I
;; Set initial dialogue tile values
% L) m: g6 S* | X' w* p
(set_col_tile)
/ X" J4 D4 R; N; N2 `) @
(if (= lay-idx nil)
S" y* \7 N# O2 R) c3 h/ U& | ^
(set_tile "t_layer" "Varies")7 Z9 t, b7 m6 o4 b* w3 K2 v
(set_tile "t_layer" (nth lay-idx laynmlst))
5 m% a' j: b p$ q% b, c
)- ]0 U5 \3 f3 m: X8 R K
(cond
0 H( T2 Z' e/ r: R [: k! _
((= lt-idx nil)
4 q+ I. x) {; E; b
(set_tile "t_ltype" "Varies")2 F% h7 W; B* B" `$ [& ?0 L- A% h
)5 s: ~& W. s( p
((= lt-idx 0) ; set tile "By layer & layer linetype"" w& Q9 _) G% G* P: r# G' N
(set_tile "t_ltype" (bylayer_lt))6 c5 {6 j, t9 ]" [
)7 \, S* X' ~8 w9 J( W+ r- K
(T 0 s) c( N0 S% C
(set_tile "t_ltype" (nth lt-idx ltnmlst))
1 f; G# O' U( _9 D7 Q2 C
)6 B. w5 t, |# Y! V4 @
)+ f- x8 q/ W) W( P$ e+ h
(if (or (= ethickness nil) (= ethickness "Varies"))3 P: ~: N) t( U/ |7 i' B# G5 c" F
(set_tile "eb_thickness" "Varies")
( A r2 [0 I* P, t0 r# j4 X% `
(set_tile "eb_thickness" (rtos ethickness))
+ R9 s8 |: l. \# N* R8 J( _0 J
)6 I" {. x3 a8 C7 @ X3 l$ s5 z
;; Define action for tiles
5 D3 r/ I( k, n, d& K! `* U; O5 E( f
(action_tile "b_color" "(setq ecolor (getcolor))")" x# Y- ~2 f$ O' e5 O
(action_tile "show_image" "(setq ecolor (getcolor))")6 R' `6 \# o2 i# N A) ]
(action_tile "b_name" "(setq elayer (getlayer))")
, V: k9 m0 X: }- N
(action_tile "b_line" "(setq eltype (getltype))")
9 g+ a6 \7 v. @- h& p K6 V0 n0 G/ l
(action_tile "eb_thickness" "(getthickness $value)")/ R r8 l9 n& B M) K- L$ w
(action_tile "help" "(acad_helpdlg \"acad.hlp\" \"ddchprop\")")4 j9 y( M) N- V# _! B8 x3 ]5 s
(action_tile "accept" "(test-ok)")
: [+ M @ Z9 f5 P4 @
(if (= (start_dialog) 1)
9 Q1 l z! p- H& o( Y8 A2 u
(progn
, l# D( {9 n# w5 i4 v
(command "_.chprop" ss "")# g3 A0 v8 Z4 B0 ~
(if ecolor" q# t* g2 x: R! j# }
(progn
, h# ]' _: @* Y" w* O4 V8 o4 p
(if (= 0 ecolor ) (setq ecolor "BYBLOCK"))
1 ^, O7 k% ?5 _- L
(if (= 256 ecolor ) (setq ecolor "BYLAYER"))
6 j( t$ B4 S9 T. l d3 K
(command "_c" ecolor); d. Y$ x f2 ~( U' L* d& ?8 v5 r
)7 n, I6 I2 W, [( ?
)9 L* a' q# F$ K1 s5 Q( t8 ? p( [& b
(if (and (/= eltype "Varies") lt-idx)
) x; g' _9 w1 K9 P$ @# W
(command "_lt" eltype)
( k& F7 f% _% h% C- r
)$ y: u( s; O# P% I
(if (and (/= elayer "Varies") lay-idx)
& A# Y8 ?0 e5 x
(command "_la" elayer)& T1 q4 m2 w, ]# s
)
; b. V, Z* m3 ^. T, l0 s
(if (and (/= ethickness "Varies") ethickness)
4 {6 w- f) N B! c( N& p, ^+ o
(command "_t" ethickness)
5 ~+ e; l- d3 ?! B& }
)9 b3 u! ]7 k$ ^% N8 _7 ?
(command "")/ j5 O5 f5 f0 p+ x9 M0 P
)- Y2 q# P+ c* r7 {% X
(princ "\nProperties unchanged")0 H/ d/ i2 u" i. C
)
4 q l! X0 b$ j9 Q, B
(princ) @3 B: R% g6 @ v* n! w4 _
)& R8 K: C7 \5 N) z, y
;;
0 h+ E3 P% x& y. v6 l: d
;; Function to set the Color text tile and swab to the current color value.
; X2 ]! L0 ~' F+ y7 D+ e
;;& n. t% H7 J# h/ c2 V( x$ t
(defun set_col_tile()
* j1 c N( \, K" Y& W
(cond : h: j& x5 T9 }
((= ecolor nil)
3 g7 z# O& S) f) d. b+ p2 ] A
(set_tile "t_color" "Varies")
, a" t$ x1 V2 _9 y/ p$ q( u9 q3 K
(col_tile "show_image" 0 nil)
)
; t5 a+ E% ?5 `0 B- I
((= ecolor 0)
$ Y7 W6 \5 O$ J8 m, l& L- R* H1 I# t0 }
(set_tile "t_color" "BYBLOCK")
+ w# O; a& F( v8 R3 m2 I
(col_tile "show_image" 0 nil)+ a3 _8 b' G: {
)
% K/ N/ ~# J7 j& ^& \
((= ecolor 1)0 R+ ?* n* G+ j t2 u5 [- Z
(set_tile "t_color" "1 red")) T( \/ F! G X5 z8 a4 G8 y$ k5 [
(col_tile "show_image" 1 nil)
$ T3 w( S8 R; u5 l3 g9 Q
)8 \ |% X9 p5 @ }9 B2 L
((= ecolor 2); ]; e& R8 N2 b0 L0 v* n6 d
(set_tile "t_color" "2 yellow")
2 t* B1 q4 i8 S1 y* m
(col_tile "show_image" 2 nil)
1 W" K% T: s7 U- |. @$ F6 J$ D0 j
)* v& E+ X! r6 [+ W' S* R. t
((= ecolor 3)
( z- ~. i& d+ C! Y+ n
(set_tile "t_color" "3 green")- p* ] H s! u# Y
(col_tile "show_image" 3 nil)8 W, I _/ |* W; U9 p
)+ V# B8 m9 ]8 m& ^" U6 Q
((= ecolor 4)
) s/ K( j3 u# ~; F
(set_tile "t_color" "4 cyan")( G8 S: s" ~0 N" t! I
(col_tile "show_image" 4 nil)
- K! V. `+ l5 s) N
)
6 y3 Y) F$ {$ y' W7 i0 U1 x7 T
((= ecolor 5)
2 O1 G, b) T) t7 Y8 |- {
(set_tile "t_color" "5 blue")
; j6 ? X- \' J, o
(col_tile "show_image" 5 nil)/ f* S" L* Y5 C
)
# b- k9 V/ {+ g( c9 [" T& w
((= ecolor 6)9 Q1 P5 H3 c+ p" _8 j
(set_tile "t_color" "6 magenta")
+ y1 ]7 j9 F0 `4 _0 c, B* j# v
(col_tile "show_image" 6 nil)9 F& Y( M' t- u* W% |' ~. R8 `7 P
)
. f% c, q2 x" s3 p% G
((= ecolor 7) `% {% k5 d7 L. o' \2 W
(set_tile "t_color" "7 white")
+ e- |: N- y' q2 `# G
(col_tile "show_image" 7 nil)
0 Z% v- j& w% x0 l; S4 ~7 W0 Q
)
L) k: `9 p8 s* P4 }. `2 q
;; If the color is "BYLAYER", then set the tile to
) F! {% w) _; F: Y0 L4 z7 j/ r
;; show it's set By layer, but also indicate the
9 p) X" I4 u8 ^
;; color of the layer - i.e. By layer (red), Z$ z, q" _" P% c. w) |2 `
((= ecolor 256)6 w2 g8 L' v' Q" i$ `6 R
(set_tile "t_color" (bylayer_col))
0 a/ z+ x# ^8 D; N% p$ R8 y, T
(col_tile "show_image" cn nil)' G0 _4 O U% f3 I8 h+ Q- r8 f
)
+ v- K/ k& l3 }7 q& Z
(T
3 a% j9 |# O) V0 u; F
(set_tile "t_color" (itoa ecolor))6 B7 ~% L2 [( `5 O
(col_tile "show_image" ecolor nil)* r2 I6 J& m/ z; {: B
)
# A% J5 @# J4 E; M" ]3 C
)
1 t) R% O* |4 V
)* j1 @ R) t/ I/ i4 e
;;1 ]: F; C. B5 b) D# M8 l1 [* M
;; Function to put up the standard color dialogue.4 Q! r8 @* v# U. L7 i+ N2 p
;;0 K9 ]7 b7 M; K' _/ _5 _
(defun getcolor(/ col_def lay_clr temp_color); W! V6 T1 f3 L# _+ _2 N4 B3 e
;; col_def is the default color used when rq_color is called. If ecolor
5 v s' n) Z0 n& A
;; is nil (varies) then set it to 1, else use the value of ecolor.
. j# a' ~) W8 i
(if ecolor6 W0 V" @/ n1 L1 q j
(setq col_def ecolor)
+ a+ H( @6 e- B: X8 |1 r
(setq col_def 1)8 p8 I5 Q$ P4 }* d( l
)
4 ^3 p- q6 t" P* D! [- N
1 @8 }3 ]2 W* {
;; If we're working with a single layer, get its color! Y& _3 ]2 `" b* [9 N' J
;; for use in the color swatch if the user selects color BYLAYER.
8 m' C# o3 R) {- v
(if (/= elayer "Varies") y6 l: |1 ?* k! ]; [0 q/ _$ s
(setq lay_clr (cdr (assoc 62 (tblsearch "layer" elayer))))
7 S. ~3 v( w# z! a* n/ b" H& k: }
(setq lay_clr 0)
# R# y7 W2 L* c3 y N0 i
)
. q- w$ ~ C& E% B' f
(if (numberp (setq temp_color (acad_colordlg col_def T lay_clr)))
2 J7 M% Q# [8 w( x
(progn6 d+ u3 W% w7 ^2 p/ G
(setq ecolor temp_color)
8 v" d* V8 j! ~) A9 b% e$ L
(set_col_tile)
, m# k, @, B3 K# Z- R
ecolor
' x$ f& i" |8 W: z' d+ @! f: ]" H6 F9 N
)
* Q9 |! ?! ^8 G
ecolor
5 p- m/ _7 p B4 b; e$ W
) 5 K' \: M0 |/ ]: R, e
)2 A& t, s7 C0 f/ Q# i
;;
0 [; O: X; y! i% N! |% J
;; This function pops a dialogue box consisting of a list box, image tile, ! W" o, l9 a) S1 i7 P( _5 Y
;; and edit box to allow the user to select or type a linetype. It returns
% r2 f! P, g* P w
;; the linetype selected.
$ X i' \ M1 S1 r8 R
;;
! }$ w% T1 v2 [6 C* z9 l. g
(defun getltype (/ old-idx ltname). e! p) `& f" V: m: R
;; Initialize a dialogue from dialogue file
! E+ ^* [, j) _+ `! X
(if (not (new_dialog "setltype" dcl_id)) (exit))
4 p1 v! ^% |' O; p
(start_list "list_lt")) H% k# M# N: g& u1 o, I0 ?, M
(mapcar 'add_list ltnmlst) ; initialize list box1 l2 h% _ q H1 Q
(end_list)
3 I- M% S, L) P* h& I- d
(setq old-idx lt-idx)
6 [9 W6 |! ?: x* j
;; Show initial ltype in image tile, list box, and edit box2 W! x. l: \8 g
(if (/= lt-idx nil)
! e' ~9 l4 R$ i$ v! F) T3 e, I
(ltlist_act (itoa lt-idx))
' [9 J2 K& k' l: z3 ?1 j
(progn& T) Z( Y# E# y' n5 F
(set_tile "edit_lt" "Varies")
8 {; R# k/ |6 }9 G1 z+ L
(col_tile "show_image" 0 nil)
2 s( [5 C" \& ?, y/ r5 r2 P) z
)5 C7 p" p G8 @0 c% I& x$ g
)
0 M s* m& P9 N
(action_tile "list_lt" "(ltlist_act $value)")
; J+ ^" D# y8 o+ |4 h
(action_tile "edit_lt" "(ltedit_act $value)")- m0 T+ K T& g" Z+ B* } ~
(action_tile "accept" "(test-ok)")
5 n9 N, W& a8 [8 g8 V7 f! z
(action_tile "cancel" "(reset-lt)")
) ]6 [6 G3 h! R2 L4 A8 ~
(if (= (start_dialog) 1) ; User pressed OK4 ]" X& Y" B+ S- K4 }: J( X" R/ V
(cond
2 F7 f# h2 }3 W% ]/ e
((= lt-idx nil)6 r- H8 {- e5 }. T I' `
(set_tile "t_ltype" "Varies")4 {2 q) ~ U% P2 H$ K: z. Z
"Varies"
$ F! \; Q) o& q1 D
)& }4 f; e0 s" F3 R
((= lt-idx 0)# I3 a. q+ e! {& M `5 p. u
(set_tile "t_ltype" (bylayer_lt))! L! q9 _6 n( n& @- k% T
"BYLAYER"
)% M5 U/ ]0 M' Q5 p. E" o( C
((= lt-idx 1)5 H# m: [. [# y0 ~3 A
(set_tile "t_ltype" "BYBLOCK")
6 }) v' @# C( l* z# s) f' v
"BYBLOCK", @9 f4 e% W7 u1 x( G+ n1 `
)
% P) r8 E* C9 o
(T + P4 c W5 s. Y0 k1 N7 j: M
(set_tile "t_ltype" ltname) 8 Y8 H+ ~% r7 ?8 |) F) j
ltname
: [- e- r7 S6 }' K v4 B! O0 g3 {' Y
): k p3 F* ?1 j1 X6 E, o
)/ J5 `3 |# E+ X7 U
eltype
0 d$ s$ t, R6 y# n4 |
)6 b5 |8 b b, t1 v9 h4 Q" ?( K
)
; U3 P. p: r# f$ Z# _) R
;;& M7 n# x) C; m0 K0 v* y; Z
;; Edit box entries end up here1 u5 k; e) C8 |$ n9 V; M2 E5 C
;;
1 x3 Z$ I. Y% _9 v7 A
(defun ltedit_act (ltvalue)# P. L1 B4 q* N- \3 s
;; If linetype name,is valid, then clear error string, , W! S7 P; d: D# O5 y; z5 o# m
;; call ltlist_act function, and change focus to list box.
4 I/ H% }3 ]: M+ V2 D
;; Else print error message.5 z1 M6 Q5 @$ g/ R6 m
(setq ltvalue (strcase ltvalue))
$ T3 J/ T7 ^. I2 ?4 J- ~0 G
(if (or (= ltvalue "BYLAYER") (= ltvalue "BY LAYER"))
3 i# G0 G8 _) P: g4 g) }, l
(setq ltvalue "BYLAYER")8 O0 o+ O$ Z& V. m
)
+ Q1 B/ a }) Z. r
(if (or (= ltvalue "BYBLOCK") (= ltvalue "BY BLOCK"))
% U( [' o* U. u8 p; P, l! P% V1 m- |
(setq ltvalue "BYBLOCK")
" f* N( m* G! c/ g
)& Y1 Z" \& E. V' H; W# b) r
(if (setq lt-idx (getindex ltvalue ltnmlst))
4 N* C6 h+ Y* W
(progn7 Y: O5 ^" K# O8 ] s
(set_tile "error" "")3 Y- {/ n# V1 i; [% s5 v1 I1 g
(ltlist_act (itoa lt-idx))
; w3 b1 w$ }" X# N
(mode_tile "list_lt" 2)7 n: [9 b$ `! N+ k6 B/ X
)
- w; H' a/ K' ]; M
(progn
. L r3 T# Z0 ]) _/ I/ w
(if (/= ltvalue "VARIES"); c3 \( x0 m) m
(set_tile "error" "Invalid linetype."); S! z h6 i( X4 h2 j4 k( Z
)# n2 V" ]( V5 r% m; u* Q* x
(setq lt-idx old-idx)
2 H, w$ |& O) d
)
/ U' ^' Q+ y3 m( O7 I
)
2 h2 P/ }" Y4 V5 K ` k. B. D6 s
). J( F# T) O* {. `5 ^0 f
;;
+ L1 J' x; y8 [7 K6 Q2 O5 e
;; List selections end up here; f( q3 M$ a. m( n. O/ e8 O& v! @
;;4 T$ P( f' U+ t* {) G8 E7 [4 j* W
(defun ltlist_act (index / dashdata)7 O2 Q, r9 S. E3 Q
;; Update the list box, edit box, and color tile
( ~: v! Y2 L1 C" o4 a
(set_tile "error" "")
* A* V4 E# i% g/ l' V
(setq lt-idx (atoi index))( U) ?% b. S6 J' H
(setq ltname (nth lt-idx ltnmlst))
- Q, {5 F* {2 j* g9 @& o
(setq dashdata (nth lt-idx mdashlist)), J3 ^4 |# Y! S) `3 X) B4 ~ ^
(col_tile "show_image" 0 dashdata)
4 A$ e Q6 Z# C! w; ^6 Q8 w
(set_tile "list_lt" (itoa lt-idx))$ J4 P1 _& j/ P; [' Z; @: x
(set_tile "edit_lt" ltname)0 [% A8 o( M( S2 V; k
)
# z3 Y, x# D1 S) f4 `+ x
;;
& m1 U5 J* D& g8 a- u
;; Reset to original linetype when cancel it selected: l0 J. c6 Y' u* l" d
;; z% J! g- D( l+ W; B# Z8 ]
(defun reset-lt ()
; C6 d' H7 v5 }/ L4 I# X
(setq lt-idx old-idx)
4 q$ O* T. M7 J* L& R! D; v
(done_dialog 0)
. R, J: k& R! v( A' M
)7 H- Q' Z% o: N
;;
* q4 A% f( |" [% `+ {
;; This function pops a dialogue box consisting of a list box and edit box to
7 M4 J5 X# T; j
;; allow the user to select or type a layer name. It returns the layer name
x9 a7 k8 G2 ]' o# W: l
;; selected. It also the status (On, Off, Frozen, etc.) of all layer in the
Q' Q$ f3 s3 h k: G5 Q& v
;; drawing.. ^# }6 }9 L0 {( q$ r- o- |, X
;;1 l8 Z( R' e$ f5 E; y
(defun getlayer (/ old-idx layname on off frozth linetype colname)( F* G* t5 Q+ f# E+ c2 |) F
;; Load a dialogue from dialogue file, T2 U d2 ?, M2 u B9 t7 S
(if (not (new_dialog "setlayer" dcl_id)) (exit)); j4 d9 J/ ~6 e# b, {; b0 T
(start_list "list_lay")
3 l8 E8 B3 `* q; R
(mapcar 'add_list longlist) ; initialize list box
$ o& I) I# {% B$ g. n0 ^
(end_list)
) {$ U6 M' I# F3 o2 L l, h' J
;; Display current layer, show initial layer name in edit 2 u; c K# w7 u7 k& [* `+ G: o
;; box, and highlight list box.7 k, B9 y$ w; S& E
(setq old-idx lay-idx)1 |" C0 u- \# k" i
(if (/= lay-idx nil) (laylist_act (itoa lay-idx)))
" j, V5 i# n. j2 l0 y: M
(set_tile "cur_layer" (getvar "clayer"))
8 i# ^- ]; p' Y1 E
(action_tile "list_lay" "(laylist_act $value)"), |& o/ L% p) b6 i5 X
(action_tile "edit_lay" "(layedit_act $value)")
" ]7 K3 w' V% X8 o! ^. a
(action_tile "accept" "(test-ok)")& H, Q- ]8 H* G n
(action_tile "cancel" "(reset-lay)")
7 s9 L: [) z6 e% D
(if (= (start_dialog) 1) ; User pressed OK* n4 s3 @! F J4 T9 q
(progn& P6 ^' S5 _2 \( ?2 [
(if (= lay-idx nil) (setq layname "Varies"))1 {" @6 `6 i) ?- d" c9 |) P
(set_tile "t_layer" layname)
; J; q- ^7 K) _/ [ E; P0 D( P- P
; If layer or ltype equals bylayer reset their tiles
! D5 B7 T' T. ?, o
(if (= lt-idx 0)
/ ^: B) j# _4 j
(set_tile "t_ltype" (bylayer_lt))
( d8 w) B2 t, C, T V! D
)
/ O `9 S; \3 G% U9 n: Y
(if (= ecolor 256)
3 s g7 Q- K5 i- E
(progn
0 j% x; `3 D* f% x
(set_tile "t_color" (bylayer_col))
( V! ]7 U7 a7 Q2 q- S4 p/ H
(col_tile "show_image" cn nil)
9 I" u& ^& O1 ?
)! y! W9 I* n% Q
)3 C" W$ f9 q/ Z8 R/ j" z% G
layname7 ?8 o% Q [+ E" y( ^ t
)) d- w' ^: \; ]* Z8 k
elayer
0 F0 M6 |3 f# C G, n
)
, P) E7 M7 I( ?$ o# h
); M: Q' g0 @+ m1 y9 M& Y0 b
;;
) p, Z! q9 k1 T* E% R
;; Edit box selections end up here% X# o/ e, G$ F' V: y \: h7 V# v: e
;;
2 ?: k1 B% {0 w) L
(defun layedit_act (layvalue)1 I: x( U8 M; i/ C
;; Convert layer entry to upper case. If layer name is" r4 ?+ @2 q" P8 f y) C
;; valid, clear error string, call (laylist_act) function,5 a; E. l0 j+ Q5 s7 j
;; and change focus to list box. Else print error message.* E$ b& P: E/ F5 M o
(setq layvalue (strcase layvalue)): K9 f9 P7 x* S' f; R
(if (setq lay-idx (getindex layvalue laynmlst))
4 K, B# p+ N8 O9 Q g/ H1 R- {
(progn8 W+ l; Q$ I9 p- [
(set_tile "error" "")
! F: G1 q' E6 y0 j* s Q
(laylist_act (itoa lay-idx))5 a4 ?4 F) I E4 l9 W
)" q, v& U4 Z. d1 N) I0 v, [8 F
(progn1 U# n: K) G4 F6 S, F
(set_tile "error" "Invalid layer name.")
, G1 l# y. G" x7 I: i. y. h4 b; R
(setq lay-idx old-idx)
; h5 o- p/ G/ d
), H; b) T- {$ C b0 M7 a
)$ v( \! e3 O x; k- S j/ z4 f
)
E/ s& G M6 z1 K
;;% H( f" k7 ?) @; d# K- O( m
;; List entry selections end up here* z9 O+ m0 W, q; u3 _* T) H: L O0 |
;;/ _/ d' q9 R6 D$ v: i
(defun laylist_act (index / layinfo color dashdata)0 K4 ^9 p, ~+ d* @1 l
;; Update the list box, edit box, and color tile5 }! s! I$ f w+ c g9 ?" r
(set_tile "error" "")1 G. U/ K+ o. e0 {+ ]: v
(setq lay-idx (atoi index))
3 W. @' ~4 k8 ^ c6 ~
(setq layname (nth lay-idx laynmlst))
, a" Q5 g( _/ A M
(setq layinfo (tblsearch "layer" layname))! O A4 z. ^' B c, R# [' b
(if (= (logand (cdr (assoc 70 layinfo)) 4) 4)1 z/ M$ p3 w9 z) @: A0 f8 }, ~
(set_tile "error" "Cannot change entity to locked layer.") T& n; S9 G' f) Z$ O) n# n
(progn% {$ K7 B# [7 l( g! T" F% |
(setq color (cdr (assoc 62 layinfo)))% M$ n7 j7 N& y4 Z* n2 U
(setq color (abs color))# t' P! p& u: Q0 X1 D" h' H
(setq colname (colorname color))! w d/ k& K, `) \0 q1 C
(set_tile "list_lay" (itoa lay-idx))
! w9 ]" \' J4 v1 L# ?
(set_tile "edit_lay" layname)
# U* P* X% E5 B2 |" H4 m9 X J
(mode_tile "list_lay" 2)4 D0 m: U; c5 I) U3 b
)
( `0 z0 v r% t3 V# I$ S
)
( R+ y+ u) j" ~( O$ v# f
)
" s, s/ c6 T6 @7 ^
;;8 Y+ N7 Y7 h7 i
;; Reset to original layer when cancel is selected) [+ ^- F F4 T* ~& z8 J% M
;;
7 b; s* Z. K$ E& s+ C4 g
(defun reset-lay ()
, a+ h. ]( [3 J1 X( f2 p5 i7 [9 e
(setq lay-idx old-idx)
6 l. t' w6 h, e) ^3 ^/ p
(done_dialog 0)
8 O6 y# W; Q b. P7 A
)
) Y: D& W0 `$ v1 n* ]; @9 n
;;
2 \$ l/ @ U8 C) O0 r; V: B
;; Checks validity of thickness from edit box. Since (atof) returns 0 when a 5 B2 y y. g& v2 Y1 U9 O; G% a
;; string can't be converted to a real, this routine checks if the first
H% g0 p I4 i
;; character is "0". It also checks to see if the value equals "Varies".1 N7 J- V5 d' W$ K
;;
; T' y3 X# `" U/ f5 g/ l
(defun getthickness (value)& F/ k# x' _/ Y6 C
(setq value (strcase value))0 r' u h4 U, |
(if (or (= value "VARIES")# h5 g( G) j* {& w7 N) i
(distof value)
, d! `+ I& `( |% o
)
' Q/ ]$ \/ ?8 f. u/ h' U0 {
(progn$ v5 \- s; |" D8 F5 z
(set_tile "error" "")
5 A: Z9 c- }+ {, J4 m+ T3 {
(if (= value "VARIES")" _/ M' v" j# w4 m
(progn! g1 ?; `( y! g. M: m+ B* w( ^
(set_tile "eb_thickness" "Varies")
/ A8 h9 s% c4 g( ]9 \. g9 z
(setq ethickness nil)2 M! x0 |6 G6 W, O1 n
)
# X9 p5 q- _) H
(progn
7 x1 o' h! G; w; F8 B* O: k2 E
(setq ethickness (distof value))+ S4 q" G# ~) N0 z3 [) o
(set_tile "eb_thickness" (rtos ethickness))
9 o4 i+ ?$ N' P8 D& u) q) `* `+ L0 l
ethickness7 P* E5 i, b* l7 Z+ h* x: r+ i
)& P. v" ]- ?( J2 D& e: e+ C
)
2 F0 L. x8 E& Z! L; s1 _+ S
)
9 K7 C+ x& T9 A
(progn- e$ R6 [$ a: h" E9 M: V
(set_tile "error" "Invalid thickness.")! D* [( ~/ U. [' x `( g3 O& d
nil6 S9 X1 J6 v! f. p% M' l
)
1 ~ k, H( x) X) @% `( ~
)
$ ` n) v" z; N4 L, H' A3 _
)( b) s; _4 \9 p* {6 W
;;
3 X7 p- C" p0 P6 x6 ~# T: ]$ j
;; This function make a list called laynmlst which consists of all the layer
( P; C: ^ y# T' q3 @3 ?4 ~1 A
;; names in the drawing. It also creates a list called longlist which 1 P9 }7 g* Z! v E
;; consists of strings which contain the layer name, color, linetype, etc. 1 p1 @1 G g$ t
;; Longlist is later mapped into the layer listbox. Both are ordered the
' N7 q* W" z- X4 e9 Y# Z" u
;; same.
: g+ Q* B6 k( E( Q c2 M
;;
. u& T/ E; C% O0 i2 I w
(defun makelaylists (/ layname onoff frozth color linetype vpf vpn ss cvpname " b" Y2 C; J' B0 T. h
xdlist vpldata sortlist name templist bit-70* ?1 z1 M7 G. y
)
4 e |% G* ~2 Q( q
(if (= (setq tilemode (getvar "tilemode")) 0)
2 s Y8 }# Z4 M$ C) p. g/ }
(progn# n% F1 V% C7 j$ B
(setq ss (ssget "x" (list (cons 0 "VIEWPORT")8 L8 T* n2 }- B1 ~; ^
(cons 69 (getvar "CVPORT"))+ P3 o |% F* j( R7 Z1 a+ l; A; y9 G
)4 O+ U5 U5 K) t% L( d5 N# t3 P
)0 j4 } ]$ ~2 e- @ x. C: J
) 4 r5 {' ^( w& v" ]2 `% {
(setq cvpname (ssname ss 0))
7 G6 I# t8 M) \5 `, m: j+ B8 Y
(setq xdlist (assoc -3 (entget cvpname '("acad"))))
8 T# J8 t, Z, o# A
(setq vpldata (cdadr xdlist)). Y! ^+ `% q* d" a0 E' t
)
' X4 |* u- k% ~+ x/ O+ }4 Q$ Y
)
3 s/ D- W: u( a# L6 u9 E4 X8 q U
(setq sortlist nil)- s/ u( b8 J2 d: b1 N1 Z
(setq templist (tblnext "LAYER" T))
( f y/ F b% G9 F' W; i
(while templist# c2 Z. _8 i l. k6 T
(setq name (cdr (assoc 2 templist)))" S# w& v: ~$ }. u( M
(setq sortlist (cons name sortlist))& W( A2 q5 o/ E( e8 D
(setq templist (tblnext "LAYER"))
+ t8 `2 q: H* u- j' u
) 6 F- [% \8 A8 V0 s3 ]
(if (>= (getvar "maxsort") (length sortlist))
& G; \: H) L }, l- o& r
(setq sortlist (acad_strlsort sortlist))
3 h# Z& }$ i# E. [
(setq sortlist (reverse sortlist))
/ }9 |. `" T9 M
)( F: t+ X: H* S, B: g }
(setq laynmlst sortlist)2 k4 ], k( o& H
(setq longlist nil)
; |- u5 L4 W+ z* b3 G/ q0 J% a
(setq layname (car sortlist)), z: o5 M: s, _5 T1 ?
(while layname
$ y% u$ @1 @( s$ m! |8 _. g* X, U
(setq laylist (tblsearch "LAYER" layname))( O$ S: e- E# n7 h" ?7 v
(setq color (cdr (assoc 62 laylist)))6 f! c" W v7 d9 @" ~
(if (minusp color)/ y$ u- g) F/ r' {* ^6 T5 ^) L8 f
(setq onoff ".")- k9 E9 M1 M2 s, j, w
(setq onoff "On")
% y$ H; q$ ^2 D
)8 d5 j# ~5 D# j( b
(setq color (abs color))/ Z& o( v8 {( a1 ~+ K! s
(setq colname (colorname color))
. }5 S: ~1 S- h: O4 }+ s
(setq bit-70 (cdr (assoc 70 laylist)))
' }# Q% @7 p+ t
(if (= (logand bit-70 1) 1)2 ?0 s1 U% @9 \
(setq frozth "F" fchk laylist)
7 [- L: }, M# f9 `. k
(setq frozth ".")
" G" l% v: R9 A* @3 Q
)
$ q9 c6 j7 N+ i
(if (= (logand bit-70 2) 2)
" r9 F$ s6 p. X v2 D3 k
(setq vpn "N")
0 m! R4 P7 H" @7 Q% w. `( q# G6 u! n
(setq vpn ".")- T3 Q+ Z8 n1 W9 W9 n$ N
)4 B) \2 u4 i4 ~( F! ~" `6 J8 ~
(if (= (logand bit-70 4) 4)
, n# t/ f2 x/ E N- y( }1 ^
(setq lock "L")
6 U4 Y7 W" T& a' h( B8 i4 s
(setq lock ".")) B5 Z; `5 o3 Q2 A% k- v5 r
)
* u6 `. k9 g! A0 a# ?. t' `
(setq linetype (cdr (assoc 6 laylist)))9 R! x4 w2 H# I
(setq layname (substr layname 1 31))
8 Q: r+ m- f/ T% X6 Z# V6 e& G$ T
(if (= tilemode 0): G+ v# q* R* ]6 E9 P- V; Z" u
(progn
" t b# o8 @. t5 b% C
(if (member (cons 1003 layname) vpldata)* D& T# m% n$ ^' b
(setq vpf "C")
/ T; I0 h( b \: b& v
(setq vpf ".")/ d$ V3 F( H/ @5 L
)
' X$ u% `( r# l& ?7 N) ~
)8 H/ j- J6 {4 ?$ Q4 D
(setq vpf "."). R/ @3 e" ]% a- t
)- u& v' H" ]/ q! t3 z
(setq ltabstr (strcat layname "\t"
$ S4 L+ H/ h& L% T
onoff "\t"
% D8 L) o3 v+ g
frozth "\t"
- `7 u8 s+ J$ l; I
lock "\t"
/ D) a7 ?6 N T b# L1 @, p" y" s
vpf "\t"9 O+ t! V$ i) f5 T4 w
vpn "\t"
) O( {% n% {' _% |7 { ^9 u- h" u: q
colname "\t"6 ?% G4 ^, P- s# g' E4 [
linetype% o. J2 } D. Q5 Y2 T, q8 i
)" [+ v8 E0 G8 \2 a% T: y
)
# J% w8 S$ Y6 `& u
(setq longlist (append longlist (list ltabstr)))0 y' v1 x ^( W% C
(setq sortlist (cdr sortlist))
- r2 y, i& t2 a! g8 N% P
(setq layname (car sortlist))9 F5 \/ s. A7 [& {' t
)
5 B0 y& T: m8 T6 f1 K% Z
)% u" J6 q: X, e' ]
;;+ }+ |0 i8 r' ^
;; This function makes 2 lists - ltnmlst & mdashlist. Ltnmlst is a list of
" K6 p; d( Y0 p) W
;; linetype names read from the symbol table. Mdashlist is list consisting
+ s. B- f% o( n ^" k
;; of lists which define the linetype pattern - numbers that indicate dots, * O4 F4 B: A5 X
;; dashes, and spaces taken from group code 49. The list corresponds to the
: b7 e+ F* s5 k4 ]5 g8 i6 y5 ?. a6 B
;; order of names in ltnmlst. V" M1 w" f6 @ Z! I
;;/ C. r- H0 |7 @) U' o/ v+ L
(defun makeltlists (/ ltlist ltname)6 D6 g) x; u+ U. R6 [
(setq mdashlist nil)
2 Y, D* M( u, C: \9 h0 t- }" t
(setq ltlist (tblnext "LTYPE" T))7 N& p$ c& ?& o
(setq ltname (cdr (assoc 2 ltlist)))
3 A2 n7 Z, i9 w) p
(setq ltnmlst (list ltname))
% J6 @) p( N+ G/ y) v% h2 ?
9 }, p& w$ g: Q; f
(if (= ltname "CONTINUOUS")
6 u8 {; k- E }- \& x9 v1 `
(setq mdashlist (list "CONT"))
" k& p' i+ |* p9 Y" f
(setq mdashlist & p' X) d. H+ K5 }& y/ r$ _6 f7 M
(append mdashlist (list (add-mdash ltlist)))) T$ w C) j% |; r8 ~- ^
)
H. p3 A+ n9 i7 {! P8 H4 i
)/ P. e: I% l3 J0 S% o
(while (setq ltlist (tblnext "LTYPE"))
( _ g/ D: G5 u5 h4 D- K
(setq ltname (cdr (assoc 2 ltlist)))
- {, U' O" L' I( [' f# W
(setq ltnmlst (append ltnmlst (list ltname))), p5 W* l" h, J
(setq mdashlist
/ p6 a/ f! ]. [% @& t, E8 v$ F7 h# I8 w
(append mdashlist (list (add-mdash ltlist)))) w/ W; P" ?* Y2 t1 h" B
)
2 [% U: o6 |* E+ S. G8 c4 x/ m
)
' T* V! h8 Y( O" n
(setq ltnmlst (cons "BYBLOCK" ltnmlst))
5 {/ O' y3 l o& l' O8 d
(setq mdashlist (cons nil mdashlist))
3 ?. n8 Q. o7 U+ s% A z
(setq ltnmlst (cons "BYLAYER" ltnmlst))
$ @7 f; L: B/ G6 c& W) y# E1 R
(setq mdashlist (cons nil mdashlist))- m! i1 v5 K6 g1 p# m$ i I ^
)) T s$ v4 y0 Z8 D* s
;;! F5 B8 o* o9 l8 n' k! p
;; Get all the group code 49 values for a linetype and put them in a list - l6 D, C% Z, H9 V3 x0 H, w
;; (pen-up, pen-down info); r! r" D5 K- @: t( f- }
;;
$ I- I, S+ I9 J$ g$ F4 F$ B
(defun add-mdash (ltlist1 / dashlist assoclist dashsize)+ m$ o% v2 I {& }3 k
(setq dashlist nil)! J( C2 x2 n9 y! H5 q3 V
(while (setq assoclist (car ltlist1))
1 p; s! e" z2 s* U$ Q7 T
(if (= (car assoclist) 49)
" c, }: G1 _0 |
(progn
) i; ^" e( u' f5 a. _( q' N% n+ P
(setq dashsize (cdr assoclist))
3 q- \1 g, d: b3 q+ R7 [* {9 K
(setq dashlist (cons dashsize dashlist))5 z, U3 x. y9 P- w) C5 ^
)
; ^( {; Z5 l, ^# I: L8 N/ |
)0 n+ N9 h5 t& ?+ x3 l" w
(setq ltlist1 (cdr ltlist1))* J9 ], v4 _+ b% E
)
: O0 E* Y3 T; k8 n) H3 L" S; x
(setq dashlist (reverse dashlist))
7 F$ T9 y2 s8 S8 Z' N! L7 v8 U
)1 |6 H- E# S: ]; g5 W
;;/ L8 ?( ?2 }3 Q- C! [8 W
;; Color a tile, draw linetype, and draw a border around it
2 X7 q- C" b( D7 Q8 G+ |. G
;;
1 o. W& m- }. j! n$ L
(defun col_tile (tile color patlist / x y)
3 p+ f$ y/ P0 e
(setq x (dimx_tile tile)) h" H# D) t1 F; g
(setq y (dimy_tile tile))# `! N% D% ~. Y% a! C D
(start_image tile)
3 R6 t, S" ~: ~, a b* L2 L
(fill_image 0 0 x y color)) {( w/ f. f* z) }
(if (= color 7)0 _2 s/ i: c4 [; ]; [
(progn
5 x4 r7 B* p3 U2 N8 V4 k3 G
(if patlist (drawpattern x (/ y 2) patlist 0))& h7 K- N! _- h! ?* @: m
(tile_rect 0 0 x y 0)
: s/ H9 o' m7 t0 P
)
+ h% }7 k$ [" M' {
(progn9 h; D4 ?& M/ h; J x- }3 ^
(if patlist (drawpattern x (/ y 2) patlist 7))
2 T' s5 _, r; v: H& d# D4 e
(tile_rect 0 0 x y 7)- Z% ^' o7 n) k5 M6 ^% Y. D% s8 v
)6 m M4 @+ h5 j
)0 Q Q; C& | }% x7 t" @/ v
(end_image): Y; \) ?: V# ~ v7 w8 ~
)
, N3 D1 ^/ ]1 U9 R+ o- K
;;# \! P4 Z8 g, ?/ h
;; Draw a border around a tile$ P, R( e' E" @8 ] q# l/ G _
;;
! k X7 v% Y- ]+ K6 r2 t0 W
(defun tile_rect (x1 y1 x2 y2 color)# p0 E( n( e4 z8 n$ M' X) ]
(setq x2 (- x2 1))+ h- p2 D' G9 T' v; T; {; X( N. G% l
(setq y2 (- y2 1))
+ @$ N! u- d/ @4 ]& l( v
(vector_image x1 y1 x2 y1 color)
1 N% W# {1 G: \' v
(vector_image x2 y1 x2 y2 color)
5 V' r7 |% q( U9 Q' f0 @! k
(vector_image x2 y2 x1 y2 color)' ` y$ }. n _4 T, R
(vector_image x1 y2 x1 y1 color)
' c5 T8 I, o4 }* ?. V
)) t5 w' V( z0 ^
;;
2 o4 _3 L) |" j' e& H
;; Draw the linetype pattern in a tile. Boxlength is the length of the image 1 }6 @- q9 L6 t0 {' K2 U# l
;; tile, y2 is the midpoint of the height of the image tile, pattern is a 2 q0 N7 V+ w" v
;; list of numbers that define the linetype, and color is the color of the & s1 x% [) S; p5 ~
;; tile.
/ N. i2 x4 ]9 r
;;
; T! L1 m& n$ s& E
(defun drawpattern (boxlength y2 pattern color / x1 x2
0 B. K) Z7 ]+ e3 z2 {! h( X
patlist dash): q# V0 E5 s, d$ C; `. n) _
(setq x1 0 x2 0)
% `9 }; K& g" W5 C7 T; {
(setq patlist pattern)5 N; f+ |0 N; V
(if (= patlist "CONT")) M5 P `) M9 }- t6 u
(progn
* C( t! O8 }1 p0 Q. k
(setq dash boxlength) K# D; ]; u2 V% H2 G6 h
(vi)
$ ~. G/ X7 B1 s( h
(setq x1 boxlength)
. E# ]# c" a1 t; U2 E
)
. [# i1 A4 W9 _7 x9 | u% z
)5 g8 h/ X8 s1 C: o/ W
(while (< x1 boxlength)0 a9 p; R" F5 m
(if (setq dash (car patlist)). s! Z Y U! r+ Q
(progn5 Z. _% w# L$ q0 ?8 E
(setq dash (fix (* 30 dash)))
. z. f/ O$ t8 X& K2 J
(cond
% ^# @ v( I, @# _1 O+ O' n
((= dash 0)
! S1 f2 Q+ n2 a# W) k; a
(setq dash 1)
& O* B, L6 z. U w
(vi)
. g% \/ ~7 }) e& j
)
; z/ x% L% s$ V1 x j
((> dash 0) , g3 I4 k! C$ u8 |
(vi)
$ ?3 |, T1 O) R- V, G6 O: U7 ?
)$ N* o5 U8 y6 J! P
(T
) h3 L3 e4 u2 d5 U
(if (< (abs dash) 2) (setq dash 2))
& h; r; M, i( l- p N8 X$ K
(setq x2 (+ x2 (abs dash))). z9 `$ N2 ~. l. n3 G. V
)" {' R! V+ ^4 u* I' ]7 G$ G! M5 m
)+ Q; a) l) d+ i7 N
(setq patlist (cdr patlist))$ ~: A- \) n2 r! U
(setq x1 x2)
0 U, Q8 @( p. A. m
)3 ]( { n6 w( w4 ]# {6 R
(setq patlist pattern)2 G" {* _6 Y, @ X" U
)2 t, e0 [. a" o& A
)
; n j4 A3 @4 P. G5 \
)3 m& f% z# I/ y
;;# P/ V# E0 W& c5 x3 i: F
;; Draw a dash or dot in image tile
. n* T* `+ B7 g; c8 K
;;1 ]% y0 V% _' b5 S4 O, r6 R( N$ U
(defun vi ()9 N. ~: r1 [9 b" o% X( X1 s# b( g5 o
(setq x2 (+ x2 dash))
& I9 D. `4 a# i5 l
(vector_image x1 y2 x2 y2 color)
1 U+ v9 Q3 w& a' F& w: P0 C, A4 ~
)7 f/ D; U# u: U( n
;;/ l2 ^! q1 C' _
;; This function takes a selection and returns a list of the color, linetype, ' O2 | U0 C/ t5 `
;; layer, and thickness properties that are common to every entities in the8 k3 S: Z0 D% e- s4 Y& X
;; selection set - (color linetype layer thickness). If all entities do not : `( s; k0 T6 M5 g* C
;; share the same property value it returns "Varies" in place of the 5 }* n" {; D$ Y. `
;; property value. i.e. ("BYLAYER" "DASHED" "Varies" 0)5 S/ Q9 `' D3 a) F7 I9 @
;;
9 m; z! U0 Y9 T( h2 n
(defun getprops (selset / sslen elist color ltype layer
; F% S7 x; f7 }/ L3 L. t' Z
thickness go chk-col chk-lt chk-lay chk-th ctr) ~3 @; h7 W, | a2 A$ A
(setq sslen (sslength selset))
9 f1 R( a' i: P) ^9 ~: w
(setq elist (entget (ssname selset 0)))/ u" x: n# f3 d c2 g+ s: k4 y
(setq color (cdr (assoc 62 elist)))
4 R. F) ~5 Z2 D/ H* T
(if (not color) (setq color 256))
& w- x5 [: b4 d. ], \
(setq ltype (cdr (assoc 6 elist)))) s' J; b: P/ ]" m3 a, o, U
(if (not ltype) (setq ltype "BYLAYER"))
$ o% C1 P6 u" U3 ]& v
(setq layer (cdr (assoc 8 elist)))5 s# o" }4 Z7 H9 B# \0 o
(setq thickness (cdr (assoc 39 elist)))1 [& T1 W+ ?# Z: s4 W
(if (not thickness) (setq thickness 0)). I$ u$ L0 l. [. R8 n# N
(setq go T chk-col T chk-lt T chk-lay T chk-th T ctr 1)
0 n1 B" h- d' [ z
& e3 q; [4 z% A- g4 U) }
;; Page through the selection set. When a property' B/ i* J3 J: i2 v
;; does not match, stop checking for that property.1 n9 Y4 x3 m) ]9 z. F" E
;; If all properties vary, stop paging.
* Z# x! C2 l) `3 c# B6 O
0 ]8 f) ~% g3 R9 J) N* N# x
(while (and (> sslen ctr) go)5 V" L$ W U' T6 k/ q
(setq elist (entget (setq en (ssname selset ctr))))
; e& p. i l2 z# {
(if chk-col (match-col))
" y- v$ j1 o' s3 R
(if chk-lt (match-lt))$ |' D# X& Q( T6 v
(if chk-lay (match-lay))0 E X' F3 R4 \# T" R" V9 I2 L( p
(if chk-th (match-th))
. S. n+ y% ]# k& O
(setq ctr (1+ ctr))
. N) ~# t% A5 [& e/ K' t0 `2 c
(if (and (not chk-col) (not chk-lt) (not chk-lay) (not chk-th))
. d. D0 Z/ W8 ^; }; B/ R$ x- G& P' Z; f
(setq go nil)- L8 J0 J' \. b. H: {, s# F
)+ Y* Z+ e. n1 c# H( I3 E- p
)
1 H- H+ k5 V% r9 U
(list color ltype layer thickness)
# R$ }' [+ I& A: y# L0 Q
)$ ~5 D; _6 P) \+ ?7 o. o/ w
N& }- R/ J# O3 ]. Q) `
(defun match-col (/ ncolor)/ W5 O, j/ ]; W' h$ b' t# L
(setq ncolor (cdr (assoc 62 elist)))
1 U: p! l0 f* r: T- Y! U
(if (not ncolor) (setq ncolor 256))
! P) U1 r8 i7 M
(if (/= color ncolor)
# W6 C& R6 |3 V2 N+ ]* R' \" {
(progn
" K5 G8 t3 \0 u2 C3 o" n
(setq chk-col nil)
- L: r/ J- E' ?% \2 Q
(setq color nil)* a1 r% S1 H4 ~: t* e
)
0 @2 K* O3 F6 c1 T7 K) L: u8 i$ S
)5 b! V* B5 \; i8 n5 Q
)& G6 I% c$ t, B X" k
1 s* M P3 I& @2 @& {
(defun match-lt (/ nltype)8 p" e0 U5 \! o
(setq nltype (cdr (assoc 6 elist)))
& ^0 {: R, a: K4 n" ?
(if (not nltype) (setq nltype "BYLAYER"))
3 L* j8 W6 y- x* _9 r+ U- ?
(if (/= ltype nltype)
- h, ]3 w7 R- u( `: F
(progn
; h; C6 a/ e8 S4 l0 P# N
(setq chk-lt nil)
! W' M5 X7 t0 i* `/ C
(setq ltype "Varies")2 ~3 r7 K8 d" m, h5 _1 o' y
)
# c! v8 E/ a/ _3 Z4 }- Y S+ Q+ b
)4 \/ F6 J+ M. s7 J
)' I6 F+ E5 u, S' s. _% a* z
! G; S2 K" f( B$ d' ~$ U# `4 k
(defun match-lay (/ nlayer), _6 z/ D" j# x/ b' q; w
(setq nlayer (cdr (assoc 8 elist)))3 h6 h& v4 J$ k: q0 H
(if (/= layer nlayer)
! s; c' ?2 b. W+ r4 \+ x
(progn& q: q. Q5 @% N! o' p
(setq chk-lay nil)# B- q. s" U: g; Y& ?2 _+ ?
(setq layer "Varies")
4 _ F( N) [& X- X1 m! h
)0 A/ ?2 n: l1 `7 ?
)
4 M' d: z ]: Y! \0 ?# \8 J/ Q
)
8 j0 i, s* k: z3 w
: ]4 b n) g! M- z
(defun match-th (/ nthickness)
) f' C, V z$ r. B' l
(setq nthickness (cdr (assoc 39 elist)))# f6 p& Z! g- q* ?# `4 ?# \0 h
(if (not nthickness) (setq nthickness 0))
9 f, d* ]; |3 A
(if (/= thickness nthickness)
% o6 ~* g# w: |1 _4 I
(progn
& G' ]" S6 J0 n2 A9 o
(setq chk-th nil)- Z) A" X/ k/ `
(setq thickness "Varies")
8 X8 m- u) e) o- e, Q! P
)! T" m! K8 S3 g
)
& W2 Y2 H/ m% a* h- a4 `: p
)
& G* ~9 ?1 c3 ]9 s. J% }- H# W {
* s# x3 {7 b3 o2 F% V# v3 ?
;;: I8 e3 W5 X% ?- j O) J
;; If an item is a member of the list, then return its index number, else
/ ]2 j# b: E/ h- p4 W; X
;; return nil.
/ L0 h3 }* n! Y% F; T7 ]
;;( A# w$ Y0 l% r0 U; U3 u
(defun getindex (item itemlist / m n)+ u* ?" P9 B& g2 Q5 s# I4 m2 m
(setq n (length itemlist))
1 w' W9 p8 T3 |$ R+ l; D
(if (> (setq m (length (member item itemlist))) 0)
) t! w* a( x E" f
(- n m)
! i5 t0 M* J! u, Q( T
nil B; D0 e2 S% X8 M% ?* J) t6 C
)" S2 t ?9 t% U) x& @2 P {+ C3 U
)' J3 r' K6 C- z
;;4 D$ v) \: s$ o# \3 U$ q# c% q
;; This function is called if the linetype is set "BYLAYER". It finds the / e: K0 I0 P2 I. N
;; ltype of the layer so it can be displayed beside the linetype button.4 {3 c2 R& p1 v
;;
3 {( ?5 Q, d: g+ b% u7 K4 e
(defun bylayer_lt (/ layname layinfo ltype)
* z; I' Q4 c: U7 i4 ~0 }
(if lay-idx
+ ]( s. s# l4 w
(progn o; v- O4 e o3 }
(setq layname (nth lay-idx laynmlst))0 O4 w* m% R# L% G4 z4 T+ b" V% C
(setq layinfo (tblsearch "layer" layname))
: t5 T+ |* f7 N6 v( m5 h+ A
(setq ltype (cdr (assoc 6 layinfo)))# R' Z6 q3 L# A5 g; W+ N9 p9 y" X
(strcat "BYLAYER (" ltype ")")
* _" \. C* M; T3 R4 i
)+ P4 s: ~$ V( n
"BYLAYER"8 B/ \ W$ A% ^4 G; I
)
5 e' q* r5 o8 s* M
)
3 m1 }0 ~) L D U2 _
;;
( p$ V/ g( i8 k0 j
;; This function is called if the color is set "BYLAYER". It finds the 3 i, x1 u+ J% H* |
;; color of the layer so it can be displayed beside the color button.
- ?1 R- Y' _! K l% y2 w% g
;;
9 w; w$ [* S* Z( M; ?& f* S3 n
(defun bylayer_col (/ layname layinfo color)
6 l1 P9 z' j+ E* B! }+ K* h
(if lay-idx
, }; o2 ~. f$ s5 Q7 y
(progn
, \& E( _8 d1 X% l
(setq layname (nth lay-idx laynmlst)). }: c4 u: Y, l, ^5 ]
(setq layinfo (tblsearch "layer" layname))
(setq color (abs (cdr (assoc 62 layinfo))))
* W8 T1 H" C& `) R) n4 n
(setq cn color)% I; y+ S l% l2 X
(strcat "BYLAYER (" (colorname color) ")"), `5 a: Z7 G% k. q
)/ Z3 O6 X0 z! j1 D1 W- [
(progn" p: c7 { n4 r
(setq cn 0)
" W$ z5 E9 F# T& g% ^
"BYLAYER"! O% |( P7 u9 [1 `
)6 p& t" p9 M) u! L) s
)
2 q) H4 B% s! `* K: l
)2 e) S$ i5 J/ \# f1 e0 e# H
;;: G$ k# {" V J$ P* i% s* d# x
;; If there is no error message, then close the dialogue2 ~' c6 S9 ?& B% z A
;;
1 L6 G; f8 d* q! D/ i1 B: J* o
;; If there is an error message, then set focus to the tile
4 h" D* X9 P0 u" f# h
;; that's associated with the error message.6 o ~- Z5 k- K
;;0 @& l d0 ~8 J) ]$ [$ @
(defun test-ok ( / errtile); Y9 P/ @# l9 T7 p# Z
(setq errtile (get_tile "error"))5 M3 \: L8 ~* L' E& }
(cond' d) I% y* u: H% X: Y: R, u
( (= errtile "")
* R& C2 Y6 l; x( Y5 ^
(done_dialog 1))
1 R; K2 J' s3 ~2 v ?
( (= errtile "Invalid thickness.")1 X3 H; }+ j8 g; y
(mode_tile "eb_thickness" 2))
4 m1 M6 b8 s1 T
)
# G+ \5 O' r/ q$ D( {
)1 ~( O+ U% }' p- v
;;
: Q5 K# s$ v* e0 g2 n8 R! c0 u" B4 a
;; A color function used by getlayer.
7 j/ o+ B8 O- U k8 t
;;
4 L8 K' L V. S9 v
(defun colorname (colnum)7 Y3 ]" `: v. j4 U
(setq cn (abs colnum))
; S% i' j" u+ u
(cond ((= cn 1) "red")
% \. ^0 Z% v7 L! c* U/ U3 ^
((= cn 2) "yellow")) Y7 P* [4 ]4 U+ ?; D
((= cn 3) "green")
8 j6 t; v( ^( s7 n0 D
((= cn 4) "cyan"); F. |; {! X0 N2 z
((= cn 5) "blue")
0 B* I- a4 c2 R! z- k1 b
((= cn 6) "magenta")
$ k% e2 Z3 C$ ?: b9 Q9 R- W) @5 e2 f
((= cn 7) "white")
$ d" }7 K) I5 L4 @& G$ J: B
(T (itoa cn)), m8 Q; f' e- h
)5 u$ m6 u6 P( o ?, c! J+ d
)8 j9 d/ a6 ~6 ` q1 i5 R2 f
) c; u* K4 l1 s& d
;;; Construct layer and ltype lists and initialize all
' |8 A u; U4 Z8 ]5 E
;;; program variables:) N* B8 `' q8 h3 a% H% s
: w, {* g, b0 c6 Q0 C( C4 N
(makelaylists) ; layer list - laynmlst
! A" c( F( t$ f! T1 o$ P
(makeltlists) ; linetype lists - ltnmlst, mdashlist# V. i3 |( h" I5 _+ p2 y
;; Find the property values of the selection set.2 Y: G% {; z" m' C
;; (getprops ss) returns a list of properties from1 C+ R$ m& {) q5 ]- n- J
;; a selection set - (color ltype layer thickness).+ T5 \" g( _$ |" ?0 ]" F9 K
(setq proplist (getprops ss))
3 p9 k- ^1 v# O5 }
(setq ecolor (car proplist))
+ t7 P& W+ m1 f( }: i9 [
(setq eltype (cadr proplist))
" c ?( u. y4 a" U& g
(setq elayer (caddr proplist))
$ j; ?+ P8 n, }" b2 V# F- o; G5 C
(setq ethickness (cadddr proplist))
& J# m$ t/ g2 ^* Y) M! j
;; Find index of linetype, and layer lists+ x- k) j7 r E* `3 X
(cond
, O" j+ J$ f0 F
((= eltype "Varies") (setq lt-idx nil))5 D* Z0 m2 p$ `9 ]4 h
; ((= eltype "BYLAYER") (setq lt-idx (getindex "BYLAYER" ltnmlst)))+ \, \( W B) n; _9 ^0 Y
; ((= eltype "BYBLOCK") (setq lt-idx (getindex "BYBLOCK" ltnmlst)))
1 t/ n2 N N, g7 ?
(T (setq lt-idx (getindex eltype ltnmlst)))
9 [ I, i; q* @1 j' g/ _) }8 [
)
0 \4 L2 }0 o u1 i& F4 @2 w! w
(if (= elayer "Varies")& @$ v) S: X/ J o
(setq lay-idx nil)
+ a* X2 l4 c' Y1 P/ R' G
(setq lay-idx (getindex elayer laynmlst))" x0 Q9 A3 O9 ^* V3 i2 Y! I
)8 g- |+ y4 B' U. Z: u
(if (= ethickness "Varies"), p( Y3 X! _% G7 i
(setq ethickness nil)+ k3 |) H" F6 Z/ `9 g# x; P& |8 g
)
; V0 C1 B* f. E1 z8 r/ p
' j3 Z; {3 e0 V. `7 n$ G1 e
) ; end (ddchprop_init)
; c6 V2 s, q" X3 E8 [5 f1 k
$ L7 h0 g5 F o; h
;;; (ddchprop_select): v7 g+ d1 O$ c4 r# r
;;;
* m$ { S: O# S3 ^" R
;;; Aquires selection set for DDCHPROP, in one of three ways:
; O- n1 e# Z) @( R2 B% b. a, X
;;;
+ h& @) n2 J i( Z
;;; 1 - Autoselected.
1 R1 g4 Y2 A" r* _
;;; 2 - Prompted for.( a( R5 {6 `" R& v( J
;;; 3 - Passed as an argument in a call to (ddchprop <ss> )
5 r& k8 [! h4 g& F! I% b* V* i
;;;0 ?4 q" @% L9 k J7 J& j* e
;;; The (ddchprop_select) function also sets the value of the
" |8 L% f6 `% E0 E* d( V
;;; global symbol AI_SELTYPE to one of the above three values to) o; x) O4 N& h
;;; indicate the method thru which the entity was aquired.
) G% s; B( n( {
6 J6 B2 Q2 h( h# Y
, o, b8 r! B: _. S" z1 H: J3 n8 ^
(defun ddchprop_select ()+ Q- w- d' t! S! C
(cond
1 v# _7 M4 \6 S2 R! }/ J$ k9 g2 d
( (and ss (eq (type ss) 'pickset)) ; selection set passed to
/ B5 ~" I) A$ ~6 K H4 j% w) `( n
(cond ; (ddchprop) as argument
- C W4 b' @8 W2 L' |( v* p$ m
( (not (zerop (sslength ss))) ; If not empty, then1 T( Z4 Y( f1 U/ T
(setq ai_seltype 3) ; then return pickset.
$ S% ]% q% l0 _ B' ^
(ai_return ss))))
- d% U2 q5 o8 `, W6 K( B* ?! ~
% ?" i* r ?- X% P3 ~( ]
( (ai_aselect)) ; Use current selection( _7 a% {& o! J- }
; set or prompt for objects
* e5 P4 `4 q6 P0 Q! N. t
; _7 ~- H# g* i
(t (princ "\nNothing selected.")4 O9 j7 A/ K1 f: `* j
(ai_return nil))
6 I" T2 n5 ~ M+ s) D G
)+ [. \6 }7 O5 C4 h, J: S: h
)
8 z, C' d7 u/ Y) y1 t2 Q
2 ^4 b, R2 S( ^* F! E$ e& d7 h
;;; Define command function.3 P- U, c3 N, V- X
) c3 n/ |3 O4 R5 a' [
(defun C:CH (): d7 G: q* m$ B
(ddchprop nil)
2 B6 B8 e# M) o0 p+ g
(princ)
5 s8 ~+ p3 i- K+ e) s6 x/ {- ], ~
)1 L- V0 S* @/ k0 P9 M0 y m0 H; G
: M1 @* ^+ a; z |
. e' Y; X: R1 g [, P& u# l
;;; Main program function - callable as a subroutine.
+ l2 B/ B# N- ]
;;;2 I2 i6 n* e: g, b2 c* d i
;;; (ddchprop <pickset> )
( r2 Z/ _/ w) g; ~# d! m b
;;;, a9 B+ _2 c/ _& _
;;; <pickset> is the selection set of objects to be changed.. n- Q8 U, a+ m. Y
;;;$ ]# o. F% c/ K' v
;;; If <pickset> is nil, then the current selection set is, G7 k9 |6 U s6 r% r
;;; aquired, if one exists. Otherwise, the user is prompted O- w2 q; R" K' H5 _
;;; to select the objects to be changed./ k: c6 `% i- ~( W6 B, V
;;;9 z. c0 X9 [, u) g
;;; Before (ddchprop) can be called as a subroutine, it must
: A# F" T( _ {
;;; be loaded first. It is up to the calling application to1 X/ C$ { t, L; K# k( V8 p1 W
;;; first determine this, and load it if necessary.0 C% x1 h& Q& n5 q( d- U* z
* |& }. q4 p1 P8 R. g( n
(defun ddchprop (ss /1 e# A- Z% h4 a3 b$ ^ H9 G
# u- g0 X0 c, ~
add-mdash ecolor ltedit_act s2 F$ Q7 M) ^: p0 |9 J
assoclist elayer ltidx selset
$ ?0 U% \9 X6 T! k" V* P& I4 C: m
bit-70 elist ltlist set_col_tile
, {6 I' T; v# z- M
boxlength eltype ltlist1 j8 U7 w% ]9 j
bylayer-lt en ltlist_act sortlist: z7 c3 g( c* u
bylayer_col ethickness ltname7 X' h- N/ E2 v% _5 j; ?
bylayer_lt fchk ltnmlst sslen
$ V0 U1 G) V! z6 Z
call_chp frozth ltvalue templist
6 ~- m S' u ~8 v P
chk-col getcolor ltype temp_color
3 A) {' ~" k! `/ R+ z8 J7 N
chk-lay getindex m test-ok
; m' T6 ^& g0 r: ]/ A3 r
chk-lt getlayer makelaylists testidx
2 f0 Q, k/ s6 A% s+ u$ A4 w
chk-th getltype makeltlists testlay$ W; r$ o- ` O% A: Q& j3 f4 I9 J
cmd getprops match-col th-value
4 ]3 Z( Y7 @' o7 e, k0 s! M
cmdecho getthickness match-in thickness7 O# g! Z7 v" Y- R9 @
cn globals match-lay tile
! X+ W' c% P6 g( s8 p
cnum go match-lt tilemode
9 b/ h$ } A' D8 Z
col-idx index match-th tile_rect0 D& v& w) P# C3 r% V
colname item match_col vi
. h( ` j8 |( N e% U4 c5 m, y
colnum item1 mdashlist vpf
! H, O( ~# W. Y/ [% ^. i
color item2 n vpldata
1 ^& i6 u; Q% {) \$ B
colorname itemlist name vpn
+ L$ @ m& O. w* n+ n
col_def lay-idx ncolor x
; ^6 V# u8 M0 Q) w7 m# o
col_tile layedit_act nlayer x1
0 a1 q. d- g$ m; E
ctr layer nltype x23 q, @$ u- n& k; e. n
cvpname layinfo nthickness xdlist* x: G7 O: }5 r, S! f. `" X
dash laylist off y6 U. g6 l" U/ {( f+ R: B
dashdata laylist_act old-idx y13 H8 A, _& O" p; }( W
dashlist layname olderr y22 G& T; U6 ^ j% e) t
dashsize laynmlst on undo_init1 F4 y, l# s0 Q, h9 E2 Y6 _6 F
dcl_id layvalue onoff, [7 ^* R; `! U+ x5 B# R$ A
linetype patlist
/ H0 e$ Z# F+ _1 j8 n Y7 J1 o
ddchprop-err list1 pattern
% W# ?/ R& h* O/ n9 u0 S- Y
longlist proplist
- X2 ?" ?9 w6 A' Z
lt-idx reset-lay
9 f: G/ M$ Z/ Y- L. O* o9 F& Q1 J
drawpattern ltabstr reset-lt. x% M7 B+ c3 ~' J$ J" s7 }6 T% e
)) u5 X$ {& \- e5 X5 |
, _$ I5 _9 w6 Y) X1 f# s
(setq old_cmd (getvar "cmdecho") ; save current setting of cmdecho
2 W1 }5 ?& N* K3 I. e b3 X
old_error *error* ; save current error function
$ ?; X" [3 U# Z) }/ N
*error* ai_error ; new error function7 b2 y2 G5 L# b, i/ W
)
" P7 ]# y6 u0 a/ {
+ q5 M( R# I. h* j& K; g/ i" ?. U
(setvar "cmdecho" 0)0 e1 i5 D# j+ N6 p- N+ Q. L( H$ d
) y5 V+ r3 l- k6 z( ]: Y) a6 l
(cond& \5 B9 ]. D$ ^% }( t. r
( (not (ai_notrans))) ; Not transparent?2 D) q6 Z" g7 w3 F* T
( (not (ai_acadapp))) ; ACADAPP.EXP xloaded?
. Y( |, [$ e/ w ]* I6 n, D/ H
( (not (setq dcl_id (ai_dcl "ddchprop")))) ; is .DCL file loaded?: q& j0 H) {- B7 |
( (not (setq ss (ddchprop_select)))) ; objects to modify?
* k+ J) R3 F9 ^5 V5 h
" T7 J" `: d# S' }$ `
(t (ai_undo_push)
% W( W3 `8 e& y" e0 Q/ {
(ddchprop_init) ; Everything's cool,2 _6 U0 D: g" H; L" y
(call_chp) ; so proceed!
1 ]" K! u9 {2 ~8 d6 q8 b
(ai_undo_pop), A5 ]$ C) l) E$ A% ?8 h+ R, h5 o
)% U& R; I5 v4 [& z* }
)# l) x0 _# O" g6 E: K
( {( B) H& z* \/ _+ J
(setq *error* old_error)
; u9 l2 s6 G: U1 s7 o$ x% f
(setvar "cmdecho" old_cmd): }( r, H/ K, q/ X3 q
(princ)
+ ]; J6 j; |! T6 l& Q; f2 [* Y
)6 {3 X2 T: S3 y+ w
6 G9 F |1 S9 T6 r9 A' @
;;;----------------------------------------------------------------------------
# O6 e1 _; ]/ R. A8 h
: W& k2 r# V% N- C I% E
(princ " DDCHPROP loaded."). V6 p, k% V8 m" ^, n
(princ)
0 F' F. B* W. R1 A |) I
/ i* A$ w8 m. w' h# y6 ^8 N: ^
;;;----------------------------------------------------------------------------
4 c! I9 N8 E7 g( z% Q0 ?
, u, `6 M! s: X5 Z. Y& F/ P9 S# S
;--------------------------------ddmodify.lsp----------------------------------/ ^5 Q9 |. f: W- Y
; Next available MSG number is 111
. T- k! h+ n+ O& m: E( s+ ]$ ?3 _: V
; MODULE_ID DDMODIFY_LSP_$ k" k5 n$ G/ `+ A, U; n
;;;----------------------------------------------------------------------------
;;; DDMODIFY.LSP* u) N0 D# ` F; ~4 q) C0 b
;;;
) O# p ?% t+ ~
;;; Copyright 1997 by Autodesk, Inc.# i& x) P+ q( ]
;;;
) `4 k! w6 I' M$ H. X/ i
;;; Permission to use, copy, modify, and distribute this software
! \) K y7 r3 d2 n; g
;;; for any purpose and without fee is hereby granted, provided
' P. Y* ^8 q$ ~2 }7 }
;;; that the above copyright notice appears in all copies and% H# ~; U# F" W; _
;;; that both that copyright notice and the limited warranty and
+ i# w- z" u$ H- D
;;; restricted rights notice below appear in all supporting1 W' U9 r- t# Z+ ]
;;; documentation.8 X5 l6 P. G7 m3 D" l y) E }* K
;;;
# w9 E9 i! I4 G
;;; AUTODESK PROVIDES THIS PROGRAM "AS IS" AND WITH ALL FAULTS.3 I/ A" B5 _1 B1 X
;;; AUTODESK SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTY OF
6 e7 s. m$ Q* b$ u) N
;;; MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE. AUTODESK, INC.( z# V/ l) W d: n7 L
;;; DOES NOT WARRANT THAT THE OPERATION OF THE PROGRAM WILL BE# E: C* F# U9 n# e5 G, P* A
;;; UNINTERRUPTED OR ERROR FREE.! \& t& H0 u8 r3 g
;;;
3 |/ @4 O# @ Q3 @2 z9 c z% g
;;; Use, duplication, or disclosure by the U.S. Government is subject to
1 f) R$ K4 h( w0 c+ D, H. a
;;; restrictions set forth in FAR 52.227-19 (Commercial Computer. j) w; J& R( Z! o* Y- Y, N P+ Z
;;; Software - Restricted Rights) and DFAR 252.227-7013(c)(1)(ii)
2 v% d! g; B' d3 x; v# K; b: |" K& }
;;; (Rights in Technical Data and Computer Software), as applicable." i5 D/ i" j" K1 ~) H
;;;
7 b( i' h& h( S7 @6 e
;;;.3 K( S L3 n5 L2 r7 I! n
;;;1 g4 h3 k7 t& a8 c% O6 g1 b) k: A
;;;----------------------------------------------------------------------------
. S M1 T9 B8 {5 L; D# W- B
;;; DESCRIPTION& a# [% N$ A, Z- o
;;;# ^' Y+ a, V v" v
;;; This function allows the user to get a listing comparable to the LIST
! w2 L5 ?8 j, _$ J0 H
;;; command for most objects. In addition, most object fields in the
! y$ n# G+ R+ l& K
;;; dialogue box are editable. Points can be specified dynamically by* N0 j7 e$ M2 a0 d \4 ~
;;; temporarily dismissing the dialogue box. Each object has a unique
$ O7 N& D" p, ^3 Q/ N* H
;;; dialogue.
; U2 L' V9 Y! z% y* R/ L
;;;
' ~7 E% C# b1 b9 h, z5 }" S
;;; Naming conventions# K6 H4 ^0 Q% ]6 C/ m
;;; Long function and widget names may use an underscore "_"! ?% M3 S( o' M6 P' \4 y( i
;;; in their names to make them easier to read, long variable
3 e# {1 z, t: Q) n# x3 z3 ~
;;; names use a dash "-".+ R( S& L& \6 |8 V
;;;----------------------------------------------------------------------------
9 I* l: ~- | }, j
;;;----------------------------------------------------------------------------( X, C3 j8 N/ Y" C5 U; C6 a2 ~$ U
;;; Prefixes in command and keyword strings:" _% r ?6 r! O! x% v' }* X9 x
;;; "." specifies the built-in AutoCAD command in case it has been( _& x. ^, H+ P! j
;;; redefined." R6 q; h- b/ n2 X2 r. O. d$ T, r
;;; "_" denotes an AutoCAD command or keyword in the native language. Y8 }) O" N& I
;;; version, English.4 ?9 @; Q) f! J+ \* W' g R' D
;;;----------------------------------------------------------------------------
) G- V# f" \) C# ^0 r& b9 ^
;;;8 F" B4 L5 s. j! Z+ }8 p
;;; Avoid (gc)s on load to improve load time.
- i6 l& n" e# q/ K1 X k$ e* n
;;;& s, F. w' a5 A, h$ m9 A3 u' T. H
(defun do_alloc (/ old_allod new_alloc)
% S; A/ P* v& P2 \2 h- E. @
(setq old_alloc (alloc 2000) new_alloc (alloc 2000))9 l6 N U' L1 q* t0 r
(expand (1+ (/ 17000 new_alloc)))
. i2 N( u4 g2 X, {' a) o3 w/ `
(alloc old_alloc)/ \9 s1 u3 C* N2 c z X9 e
)7 m1 }7 B9 a" G" |3 }8 m
(do_alloc)( @ w+ t# V) M" g+ E$ I1 g
(setq do_alloc nil). c" ~. f4 S/ B7 S. c y% F- f
) O3 V5 V. i5 W/ t- \! k) @4 |& G
;;;3 t; C" \# \. L; O/ f! }$ ^7 |
;;;! b h& {: c7 J& P* ?* _7 ]
;;; ===========================================================================
( M( t& H1 l, ?& Y, s l
;;; ===================== load-time error checking ============================
1 T6 U0 g( ^" |8 H/ _5 e, r7 F
! `6 \, g. Y0 |/ o4 w A2 u. j
(defun ai_abort (app msg)
4 L( L1 S! v: b+ G) S: ~$ x$ R
(defun *error* (s)4 t# c1 W. D( V6 i8 T
(if old_error (setq *error* old_error))# W" J9 ?$ V% q3 S" M* n- l7 z2 u
(princ)
; @/ [ X" @. J4 D) {, G
)$ I# C* ]6 [: H. H" ^
(if msg+ q# }( U6 K5 }
(alert (strcat " Application error: "
& b$ S. c/ Y0 g4 M: e/ Y' T
app& [; Q v+ @0 Z+ H+ O/ |
" \n\n "
1 q. v- w! `% h7 R, _
msg. I" g! t4 h5 R! x; ^4 e
" \n"8 n7 p& c; P5 h% V/ J5 t1 z
)3 L" B) S) ~+ s
)
+ X3 Q' V" r s# M3 |$ v8 u
)
' p5 S: M+ k& Y- e, O7 x5 D
(exit)
0 _5 `; N l2 h0 ~. ~! E$ N
)& v. e' O: c' T3 A+ y
) z% a+ M: D- ?3 g# G0 l
;;; Check to see if AI_UTILS is loaded, If not, try to find it,$ X2 g% o& J5 V) p/ t
;;; and then try to load it. If it can't be found or can't be
, m( M6 B1 @- w M" a$ ?
;;; loaded, then abort the loading of this file immediately./ i8 ~& ]7 J" q
% w, ^/ p" N2 o+ l. r1 \ x* m! W
(cond
* b! [! w0 y4 C# {" e; e/ T6 B, H
( (and ai_dcl (listp ai_dcl))) ; it's already loaded.7 h/ k* r S' M1 t5 n- o/ s6 H
1 n$ R. Z! M Y( G0 q
( (not (findfile "ai_utils.lsp")) ; find it' e1 A6 ^, C1 N7 G) y3 N) F4 o5 ^
(ai_abort "DDMODIFY"
, f# Y, B. _- Z8 K' G
(strcat "Can't locate file AI_UTILS.LSP."! M8 z8 m! w+ ~, y2 T7 l8 U
"\n Check support directory.")))9 |7 j. R$ v8 g7 [0 n& W
& l5 F$ }7 Z4 k- Y+ n9 P- h
( (eq "failed" (load "ai_utils" "failed")) ; load it) x5 e# W5 M4 X
(ai_abort "DDMODIFY" "Can't load file AI_UTILS.LSP"))
7 g( L& V: @8 ^: O
)8 f: P+ P; R; T
) F- U8 h6 M B* W8 Q& A) d
;;; If we get this far, then AI_UTILS.LSP is loaded and it can
7 f& A* ]5 w" [
;;; be assumed that all functions defined therein are available.
/ T( j4 h; E" S5 t) Z t
% l4 i! H* j) S8 N9 K
;;; Next, check to see if ACADAPP.EXP has been xloaded, and abort
Q1 ?9 A8 B8 R- E' d3 D* q
;;; if the file can't be found or xloaded. Note that AI_ACADAPP
N# t& W- m! W2 r
;;; does not abort the running application itself (so that it can; f$ N8 H* I4 n* {+ F0 t* ?0 \
;;; also be called from within the command without also stopping* S1 D! D8 N! G* R' k- Z/ i
;;; an AutoCAD command currently in progress).
. P$ D% ^+ G N# a9 j
9 w. F7 _8 X1 F; _) ~/ G. R% C
(if (not (ai_acadapp)) ; defined in AI_UTILS.LSP
" |! y/ ^; |. e# i
(ai_abort "DDMODIFY" nil) ; a Nil <msg> supresses
/ l, [0 C% K" I7 c7 T
) ; ai_abort's alert box dialog.
% Z' ^$ l0 U! P) B
& ?9 D# X% F% ?& e
;;; ==================== end load-time operations ===========================6 k7 i$ {) h W c0 C
2 T0 Q- W$ u7 x& ^1 K
;;; global variables5 S. m6 `6 D$ M. K H" ^
8 ?7 u+ D3 {, ]5 N) k3 D
(setq hatch-elist nil)0 D& b! }& t% q" Y' K" Z; b, B
6 R3 E$ n: R" t% z
;;; If we get this far, both ai_utils.lsp and acadapp.exp are
$ ~7 f3 L2 `: t6 ~( u# v8 v
;;; assumed to be available.
8 U7 |& B6 E* ^" [
4 j0 _6 C$ D+ y' F% |9 r$ w
;;; Define and encapsulate all subroutines that are declared
) f1 l! z$ Q m9 D# [* M
;;; locals of the (ddmodify) function.
1 N" R# b( w: @; Z$ E
+ B) N; N; ^* q+ X3 g
(defun ddmodify_init ()
& R9 M& G) S* Z& N) `4 P
;;
. f, i" A. D# @1 F+ k; v5 D
;; These three functions modify the enitity list for common properties. Since
" X+ _6 J! Z! X& [4 _1 g( l
;; color, ltype, and thickness are absent from the object list when they are
a$ y, S4 X* P6 s2 q2 D3 ?
;; set to their defaults (i.e. color = bylayer), a simple substitution using/ J/ }0 t* I _5 x- I. J1 }
;; SUBST is not possible., y. e! i" [ i# E4 D4 ~
;;: n9 @; `2 E9 q4 n2 @
(defun modify_properties ()
' k! R6 \$ n! @; P3 R
(emod ecolor 62)
2 o4 ?$ F9 Q" T! T6 g
(emod eltype 6)- Z( }" f2 W$ L. Z* f. f; L. A
(emod ethickness 39)
% K. w/ j: F# M( `$ o3 C* }& z- t
(emod eltscale 48)& u- K5 q6 ~8 o5 T, g; o. J% c8 ^ U1 S
(tempmod elayer 8 nil)& N6 J6 k( Q4 R8 W/ r/ U
)
9 x6 H' O. K6 c
;;
/ f1 J& i$ B, V& F# ^
;; This function is used for modifying common properties of the ACIS6 f& a4 ]( D' T
;; based geometry objects. Thickness is not valid for these objects
8 i3 Z S. U( a, p/ [) J: ?5 f! ~
;; so it is left out.9 o- y" m. o3 g5 B" b( z
;;: M5 J( j1 j- X7 K/ D
(defun modify_prop_geom ()* R/ Y& m1 [& E4 Q* G! m
(emod ecolor 62)
* D" p% M/ T+ }% l
(emod eltype 6)' ]; c$ x5 N% H7 F) r! |
(emod eltscale 48)( @0 f, q" J9 G3 y9 w ]
(tempmod elayer 8 nil)
W7 |6 v2 s7 G9 i" R, S3 h
)
$ g2 v3 Z$ U. S8 S* c' Y% r
" z! [! ~6 X: K" { k6 q
(defun emod (value bit)
% T0 b/ `( p* S( x
(if (= bit 62)
! ~. F; r* T' e5 T9 }4 T2 C+ t
(progn o- c4 }9 G8 D
(if (or (= value "BYLAYER")8 d- o7 z y& T
(= value "BYLAYER")) (setq value 256))
C% u% a4 d9 ?$ j/ H0 z+ D# G
(if (or (= value "BYBLOCK")8 ~/ n( C' d4 \. R7 C( |& G
(= value "BYBLOCK")) (setq value 0))
: o& ^; \. f9 R% E ?
) Q. `; g! R2 L9 r, l' r) P4 g- `" n
)
! X0 X3 r+ F s4 a
(if (setq oldlist (cdr (assoc bit elist)))
: g- y% E9 U9 ] ]" ]* E* }
(tempmod value bit nil)9 W Z$ w! `# T
(setq elist (append elist (list (cons bit value))))# K# H9 H Q3 h7 ~- c
)5 \8 G, G" R7 W# X. @
)( p# K- ]3 {( f1 r4 ~& x% g& l
;;
7 k- K! W6 V3 u$ P1 Y
;; Resets object list to original values. Called when the dialogue or* I/ q9 l6 N- u8 K
;; function is cancelled.
8 M; V; M9 t8 b
;;
3 _6 N' S; S1 Y' E( k
(defun reset (): q6 y+ S6 e/ s9 a+ _1 q
(setq elist old-elist
- K7 O y2 b1 ]1 A8 K2 X( C, u8 H
ecolor (cdr (assoc 62 old-elist))4 m$ [4 d/ w+ @! \, J+ f
ethickness (cdr (assoc 39 old-elist))
* M, h+ H9 D9 z _- h
eltype (cdr (assoc 6 old-elist)): J3 P6 L, a' D
elayer (cdr (assoc 8 old-elist))/ T! k' o$ F2 L. A3 {
eltscale (cdr (assoc 48 old-elist))
( _7 `9 t, j& E
)
! \$ f1 T& j& v, Z5 j3 _' g |
(if (not ecolor) (setq ecolor "BYLAYER"))
) F. h R' y A
(if (not eltype) (setq eltype "BYLAYER"))
- p, K0 X3 {$ H
(if (not ethickness) (setq ethickness 0))
# q6 }' E: D/ a) r
(if (not eltscale) (setq eltscale 1))
$ _2 b. n9 `" {* S
(modify_properties)
' ]. L+ {! M. u. \- e+ Z; a
(setq reset_flag t) X; }, g9 {5 i( t) i9 D" T
(entmod elist)& z5 T: r& ?: V: P
)
5 E; m/ v6 V; p' Z
;;
$ n( W/ T1 c/ ]8 A7 Q+ _
;; Modify object when dialogue is temporarily dismissed to reflect latest# D6 R9 E' A$ _. w' g
;; settings of dialogue. It converts the point from current UCS coordinates to
7 d. O7 \# n8 h9 l5 h. L
;; the proper object coordinates (world or object).
6 f% c' m0 }$ }* U5 b& @
;;! ^5 W/ i! ~; ]- M
;; Arguments: value - in current UCS coordinates
$ l# A0 @+ z) G' W5 H
;; bit - object code (i.e. 10 for start point)* p$ l$ \$ Q8 Z5 n
;; ptype - point type 0=world 1=planar
2 Q+ Q7 E" g' L
;;
J% u) K1 K$ E$ ~: ?) v
(defun tempmod (value bit ptype / newpoint)
" Y9 }! @- ^( x: J9 ?
(cond& ^. Z+ ?5 h+ c
((= ptype 1) (setq value (trans value 1 ename)))/ p( d5 y0 {& N% C1 E! g# r' w
((= ptype 0) (setq value (trans value 1 0)))* E$ a" M7 Q$ T5 u9 K5 v+ e* s, H/ @8 J
)
' `# Q+ \! Q) E+ l4 b% C: g
(setq elist (subst (cons bit value)
5 p+ F/ T. z* b9 G
(assoc bit elist)
7 P% R+ k( b% }# x: M
elist
6 O5 C: {* R6 \: ~- Q
)
% k3 s7 ?) v3 g V+ {9 {' \1 o6 r! |
)
* _/ c9 Y/ P4 v" [' i
). o) q8 G& A! U, }) t: C7 ?, j$ |8 j
;;) K5 Y* ~3 s1 I( f; k/ n
;; The following functions are called after a dialogue has been temporarily
1 V8 f: Q# V' [6 j" ~) e
;; dismissed and the user is selecting a point. If a point is selected the
- \4 [: b/ |+ ^! w! @. E* ?( G, A! k
;; object list is modified and new X,Y,Z values set. If no point is selected
9 S% h( ]# g$ y# v; H( A" D
;; (null response), then the point is reset back to its previous values.+ `3 @' u- x& H+ {4 G
;;
5 I( `; {% p" r U t1 e G& l
(defun ver_pt1 (ptype)
1 m& v+ p3 T3 p: K( Q
(if pt1: O7 w! v& F0 F; B* e+ L, k4 H& q& A5 S1 d
(progn
2 b5 m2 B- i! s( y+ e t9 a5 Z
(tempmod pt1 10 ptype)
7 M, q( j6 X5 U: f
(entmod elist)4 C, z% y: d7 ^6 h
): S$ I3 T l2 N- U+ Q0 `/ W0 @
(setq pt1 (list x1 y1 z1))
" A6 n- `2 x0 c/ N2 I0 N+ I. p
)7 l) j1 x$ Y% ]1 `& p+ g5 N
)
3 J' z C0 D( b2 M* l# K
9 [) t; n6 {* a7 g/ W5 V* a- U/ c
; (move_pt1 <ptype> )
3 \6 [( z e( N0 O6 \) _
;
1 d2 C" @. C+ { k+ `1 `0 \
; Called in liew of (ver_pt1) to translate block insertions which
2 s* t& w/ U6 S1 H3 Y
; might have variable attributes attached to them. If the distance
4 w( k+ f$ D0 F, d8 d+ G
; the block is to be moved is < 1e-6, the move is deferred.
6 [! e5 v0 x' L- E8 W8 m" P1 O" Q
5 F( b* e, j+ d+ m" b
(defun move_pt1 (ptype / basept hi)
5 b# W) i$ }* w& q: G R/ |* p8 H
(setq basept (trans (cdr (assoc 10 (entget ename))) ename 1))% f! E$ S; ]2 w; ?
(cond
+ Y! I$ }7 s" M3 q* r7 u
( (not pt1)
, c2 z* l5 s& i% E' Y7 P+ P U
(setq pt1 (list x1 y1 z1)))' t7 Y3 i+ N; q/ j7 Q E z5 S
) g; T8 ^0 ^' T8 t6 F, f
( (> 1e-6 (distance pt1 basept)))
# v& U- j( _8 w2 s/ Z
1 o+ Z$ s! Q# F# a X: \% j
(t (tempmod pt1 10 ptype)
: e* X4 [# a/ Y/ Z+ n( l
(setq hi (getvar "highlight"))
. E4 d# Q& L! x/ }& k# }
(setvar "highlight" 0)8 }5 r* P4 d3 C& r1 Z
(command "._move" ename "" basept pt1)
& I" u4 d! d8 \1 x) v$ l+ P
(setvar "highlight" hi))1 l2 P1 @8 v5 K9 P/ ^6 J
)
, D# y* p( L7 C/ @* j2 j5 w7 r
)
* u/ Q! Y# o T |
+ u8 _* P9 g- K, H/ r
(defun ver_pt2 (ptype)
4 D( j C+ r0 ^9 s3 ~( A B; T5 ?
(if pt2' e4 \ F, Y) ~3 V
(progn+ y% i8 |/ t# N( v& F: [6 O' B& o
(tempmod pt2 11 ptype)( p0 r0 [0 L/ s/ U# i
(entmod elist)
. F3 M2 F! Z! [6 J! ^ l
)1 C: A- J4 i, P
(setq pt2 (list x2 y2 z2))
0 _. a; w w, E- E/ y
)
! Q3 j4 d6 p, F9 q8 h1 u
)/ h k v0 z" K7 P& H7 Q/ f: `. g; Q
( g4 s- I' q; v2 U2 n- M7 G8 S
(defun ver_pt3 (ptype)2 s }! D- S) q- @, m
(if pt3! m. R: N+ m8 `8 Z: t9 d% X
(progn
) L! L6 B& p0 T2 ^5 R: C9 o
(tempmod pt3 12 ptype)
( }& x" c# m; p( X: j; Z5 w6 j
(entmod elist); e8 E1 j' ]; C0 N2 ~7 D/ Z6 }2 `
)4 p) {. X6 x7 x7 U9 A# b% R
(setq pt3 (list x3 y3 z3))7 X+ t1 V- O' F+ Q: r' u ^
) F% E2 Q' }8 [5 c J* e/ P0 W. j
)
/ H) L! }; y6 i' ?
7 y) l d0 B6 Z8 ], Y5 x; n! `
(defun ver_pt4 (ptype)
% q% c% \' {+ I4 k
(if pt4
2 A# N1 X8 [9 h/ E
(progn4 k. n! Y& W3 a
(tempmod pt4 13 ptype)3 U4 o' S+ I! {1 @
(entmod elist)
( y# |- ?; {8 M6 p' k
)
! W% _! c0 \/ A3 ^+ Q% L
(setq pt4 (list x4 y4 z4))
4 P q) n3 r( E2 S5 b
)' u7 h9 a) _, z4 M3 n
)" k: p- s8 [" h) q0 e! n5 P' j
;; Xline/Ray
' D$ T# @; V, U
(defun ver_xline_pt1()
6 a- ]7 Y3 r0 g. m* n2 H
(if xline_pt1$ t" ?9 v8 ]8 a6 F' h# [* [9 z5 h
(progn+ t, n+ c! b* @1 p
;; convert to WCS.
: n7 K, w# _( W2 S
(setq value (trans xline_pt1 1 0))
6 i4 a' ^: t: E& g
(setq elist (subst (cons 10 value)2 R. z) n6 [" z$ D5 o2 O, ^( R: k
(assoc 10 elist)2 d- E; v! s4 z& j0 m2 Y( Z
elist+ P/ h0 Q# A# m3 y8 I3 c
)
0 \( Y8 M, e3 o! K
)+ o( Y2 c: H& E
)
" s& X, y9 g2 H6 E
(setq xline_pt1 (list xline_x1 xline_y1 xline_z1))$ |# u8 ^" A: v# |3 Y* d
)4 T1 @4 D, a3 p) U$ d$ ?: @: P
)- o' p5 W( L2 e. ^) l
( t7 M3 _- a5 j( I& D
(defun ver_xline_pt2()% @& N! e1 N% d0 {
(if xline_pt20 n* V3 K$ p0 C* A
(progn3 I& Z3 B! g# ]5 z% @
;;8 t( `/ U* M% ~ r0 ?9 J- ?' p
;; Calculate new Direction Vector WCS# g5 Z+ ]. ^9 Y: u9 W# U2 }
;; x / (sqrt ( (x**2) + (y**2) + (z**2) ))
, k5 [( Q H) c. [
(setq temp_dir (trans xline_pt2 1 0))) c6 b6 u9 R" ^2 z# |* w4 ^8 C$ ~
(setq temp_dir_x (car temp_dir))1 S% e% E! \8 X! y
(setq temp_dir_y (cadr temp_dir))
9 Y3 E* j! m! n3 ]
(setq temp_dir_z (caddr temp_dir))
; e9 _$ g$ _. |. r
6 ]& r$ u% z. o7 K! w& U0 \5 q/ Y
(setq temp_xline_pt1 (trans xline_pt1 1 0))6 _& N- f, d4 N4 ?; V/ P5 \
(setq temp_xline_x1 (car temp_xline_pt1))) o- i q0 v5 V& w/ l7 A3 F h
(setq temp_xline_y1 (cadr temp_xline_pt1))" a5 }% i5 }+ u/ c
(setq temp_xline_z1 (caddr temp_xline_pt1))
, X( J7 E* Q# q0 L6 m2 J/ {- i+ E+ b
) C+ C. t- {5 V$ t' m
(setq denom (sqrt (+ (expt (- temp_dir_x temp_xline_x1) 2)/ |8 B/ T7 D: G
(expt (- temp_dir_y temp_xline_y1) 2)8 N6 [: T1 o* ^
(expt (- temp_dir_z temp_xline_z1) 2)
7 u9 m- L6 U9 V0 j6 n
)))
\4 F$ b' X; g9 \0 T8 l
(setq temp_dir_x (/ (- temp_dir_x temp_xline_x1) denom))8 Y7 Y `) I7 u, S0 ^5 P9 {
(setq temp_dir_y (/ (- temp_dir_y temp_xline_y1) denom))$ n. P8 H$ x5 T3 o
(setq temp_dir_z (/ (- temp_dir_z temp_xline_z1) denom))
* P/ b. R( c8 h- S# Y Q
(setq elist (subst (cons 11 (list temp_dir_x temp_dir_y temp_dir_z))* p) I& \" t4 F, q" y1 p$ h; v
(assoc 11 elist)1 K9 m- m: ?6 \; m) w' A
elist' Z" D, r1 H& B
)( W& x3 k D" z6 C" y
)
- o6 r- t6 v' v* ]: G, B% P4 w v$ I
(entmod elist)
# q) @3 r9 o: o' _* {, n
(setq xline_x2 (car xline_pt2))
0 q6 r* o: Z& z; a
(setq xline_y2 (cadr xline_pt2)): N: J' Q' W5 H' R8 I" m2 {/ h# q
(setq xline_z2 (caddr xline_pt2))
+ D5 V. d& p! d2 f8 g
6 Q; B0 [: Z/ P7 c; F8 B# T
+ A* Y& j) w2 o9 b
)
1 Z+ J$ [8 H% j; y3 g
(setq xline_pt2 (list xline_x2 xline_y2 xline_z2))
2 D9 z3 S2 f; h! L+ C
)
2 x( a: d" j/ e% O
)$ u$ k N7 K s8 I0 k* F, e* E
; m) o1 a* Y/ C% ]
;;$ X" Y3 ^/ j0 S# T' w0 w
;; Common properties for all objects' ~$ g; U: z% V2 m& v
;;
% N _0 e5 G0 w5 M/ O
(defun set_tile_props ()$ e; O! I& C* y+ }
(set_tile "error" "")
* K9 l1 s8 {3 {$ \# t
(setcolor)4 }& j* `; A2 c! T& c% j
(cond
((= eltype "BYLAYER")
- ^% {5 P5 f1 X# w
(set_tile "t_ltype" (bylayer_lt)))" x) J8 G9 B% u1 k n
((= eltype "BYBLOCK")
: j, B1 r4 w( r& k( c! |
(set_tile "t_ltype" "BYBLOCK"))+ x0 d3 j, c; v9 k6 [
(T (set_tile "t_ltype" eltype))
)% S- ^" ]" n! N- n' w# _
(set_tile "t_layer" elayer)
# _5 [" _7 Q2 c- v" f
(set_tile "eb_thickness" (ai_rtos ethickness))
6 C& I l- v6 E; ~1 ]
(set_tile "eb_ltscale" (ai_rtos eltscale))
7 c- l" a' Q. K5 {& T& [* t
(setq which_tiles (ai_common_state etype))
+ B$ W+ p7 q: Q, d5 D7 J1 I
;; Disable tiles if need be...3 a' ?( o% ], q$ d- P4 i
- }, t* N; Z, k
;; Layer Button and Text Field3 D4 d: y& P \ g. ~% @5 u
(if (/= 1 (logand 1 which_tiles))5 U b3 u; `/ a9 M M
(progn
, l9 V( F4 _: x/ k0 X3 O/ _
(mode_tile "t_layer" 1)
, f5 B; \: D; V# X5 O1 r; c6 s
(mode_tile "b_name" 1)9 B% j4 d3 H) j1 q! f( I
)
" M, k+ X1 F! |. K
)
+ N) F* u% a* {( w& z ~( P
;; Color Button and Text Field
( b3 T6 X% Y# ]7 t
(if (/= 2 (logand 2 which_tiles))( v( [! j e) e0 l
(progn" ^/ O3 H- E: G& v3 x
(mode_tile "t_color" 1)
+ u- Y+ E1 s( c8 x* `1 i
(mode_tile "b_color" 1)
1 `$ B4 k% U; U4 e4 ]
(mode_tile "show_image" 1)! h) D: `7 P" }" a
)% S2 G$ c( V4 H
)9 {1 ^( m) @; I7 |
;; Linetype Button and Text Field
J7 Z: ]0 Q+ a$ c% Y% J+ F5 g
(if (/= 4 (logand 4 which_tiles))
' W `, i, F8 I, Y& Q
(progn
9 |* l: N9 L U9 J F# m. I
(mode_tile "t_ltype" 1)8 h* T6 D. O9 d* \& ?
(mode_tile "b_line" 1)
/ Q' A. N- e, `. j1 C
) k8 J1 t0 K/ V- o8 ?% }
)& j9 O4 @6 N1 V; c9 G, f
;; Linetype Scale Edit Field3 L: q5 l$ C. |$ ]3 D
(if (/= 8 (logand 8 which_tiles))
3 x/ [$ O2 h$ f- |
(progn: Z6 b2 r. Z7 ] T" Q5 X
(mode_tile "eb_ltscale" 1)* Z4 ]% z7 Z& D$ c
)
! A$ n9 u) C* R6 A, }* l
)
( n4 [2 H/ U2 x8 z
;; Thickness Edit Field.
. g+ ]% l' t/ \" ?, g4 I& n
(if (/= 16 (logand 16 which_tiles))
2 D, t" Z% x4 F0 c
(progn
0 t8 O) N- e7 R
(mode_tile "eb_thickness" 1): D' R( {; A, w K2 O& I6 O
)
/ H) m) c. k- P: @# [% y9 Y2 d' u
)' @0 t! M" ~, J+ ?0 H# S" P
)
4 _: z0 ]# u3 g; m- I3 I
;;2 X3 J4 E( d# v2 Y9 e1 }
;; XYZ Point values for all enitites
. Q8 S" K, J0 ?4 p+ o6 \0 [
;;- y; ]: ~& e" }9 n
(defun set_tile_pt1 (ptype)
; \4 E% o* n$ T0 N& a4 N3 v: g; _ M
(if (= ptype 0)2 b0 M" D6 o. H* v* n" e6 |! k
(setq pt1 (trans (cdr (assoc 10 elist)) 0 1))$ O" T4 c* m! \9 q1 }' e7 e
(setq pt1 (trans (cdr (assoc 10 elist)) ename 1))
$ t# k$ c* B( Z3 D5 J! B
)9 n1 i' B' R" ~+ N0 f
(set_tile "x1_pt" (ai_rtos (setq x1 (car pt1))))
6 O% M$ l6 [ v$ G
(set_tile "y1_pt" (ai_rtos (setq y1 (cadr pt1))))( S6 k, _! ~: b8 u$ M4 W+ Y! q
(set_tile "z1_pt" (ai_rtos (setq z1 (caddr pt1))))
" t: J) p. ]+ \* l$ l$ K* h, W
). N6 J- x3 Y- y6 V1 N+ a. k' Q
(defun set_tile_pt2 (ptype)
: I2 I/ r; F9 N# u
(if (= ptype 0)
2 z: d. ^- Y) I$ S% u p k
(setq pt2 (trans (cdr (assoc 11 elist)) 0 1))2 @8 Z5 {' n" y/ O2 f& {. z
(setq pt2 (trans (cdr (assoc 11 elist)) ename 1))
- }, X6 S- [( u/ W$ h
) g0 G0 ] z; Y0 C- M: h
(set_tile "x2_pt" (ai_rtos (setq x2 (car pt2))))3 |6 p2 n8 W/ l5 Z6 [
(set_tile "y2_pt" (ai_rtos (setq y2 (cadr pt2)))) ~6 @& o E% Z8 t4 K
(set_tile "z2_pt" (ai_rtos (setq z2 (caddr pt2))))2 W" V! W* X! t4 v4 w
)
( P+ V4 \' i3 @$ A
(defun set_tile_pt3 (ptype)% }2 w) e O0 h9 ~# L# {* U; N
(if (= ptype 0)- `4 K& w9 f8 a
(setq pt3 (trans (cdr (assoc 12 elist)) 0 1))1 b3 b7 O7 i! @6 s# V5 w7 T
(setq pt3 (trans (cdr (assoc 12 elist)) ename 1))6 a" |. G' {( J4 H( M
)
9 V1 }8 a5 w$ h; _
(set_tile "x3_pt" (ai_rtos (setq x3 (car pt3))))
4 g/ ?3 p# e i' p" r- q' V
(set_tile "y3_pt" (ai_rtos (setq y3 (cadr pt3))))
' l5 D6 r, e6 U5 V
(set_tile "z3_pt" (ai_rtos (setq z3 (caddr pt3))))
) @( e6 S7 X3 u
). h7 |9 u/ t, x3 M' C/ g! d9 A) S
(defun set_tile_pt4 (ptype)
& j+ B. j: C, F1 m7 f6 A
(if (= ptype 0)
% m) i- E' N( S, `( ~5 f3 X
(setq pt4 (trans (cdr (assoc 13 elist)) 0 1))
! k5 ]" U2 O0 t# }3 J/ G9 o/ s$ k
(setq pt4 (trans (cdr (assoc 13 elist)) ename 1))
h- `9 ~% j; ~
)
' ]* i# b7 C% E3 S1 O. s
(set_tile "x4_pt" (ai_rtos (setq x4 (car pt4))))) t$ j; N% C; ^3 i9 t) D" B2 A
(set_tile "y4_pt" (ai_rtos (setq y4 (cadr pt4))))
: {& N( o; v) |
(set_tile "z4_pt" (ai_rtos (setq z4 (caddr pt4))))3 t, R& i$ E3 [5 U
)
n0 s1 ?2 G. t: S6 U
;;3 n3 H( ^$ C, E
;; Xline/Ray
9 ]9 P; p2 S, j9 w2 x
;;
9 u8 K' g$ ?9 w0 U m
(defun set_tile_xline_pt1 ()
5 W; v+ ~) i7 F+ a1 F0 x
! C" z/ z$ g# K2 d3 ~5 h
(setq xline_pt1 (trans (cdr (assoc 10 elist)) 0 1))! {# _3 e7 O6 b/ N8 B, R
! ^( @8 J! M! B0 j3 M3 M
(set_tile "xline_x1" (ai_rtos (setq xline_x1 (car xline_pt1))))
2 ]0 d$ `1 o+ O- U% c, p
(set_tile "xline_y1" (ai_rtos (setq xline_y1 (cadr xline_pt1))))5 b9 R. V( i$ X& a; s$ V$ _
(set_tile "xline_z1" (ai_rtos (setq xline_z1 (caddr xline_pt1))))
9 B; Z( Y# P. E }
)
9 N, D# E% b, C, H2 J; y
(defun set_tile_dirv ()4 f2 Z: a8 A7 ^" q+ u& a
;; Convert 11 group to local UCS (displacement)
& I1 O R& v/ y& A- Q6 d
(setq dir_pt (trans (cdr (assoc 11 elist)) 0 1 1))$ a# N& c$ n7 F7 H# ]
0 X9 T2 w3 S7 p. f1 ^+ W
(set_tile "dir_x" (rtos (setq dir_ptx (car dir_pt))))
# W+ X: _8 O1 D8 [
(set_tile "dir_y" (rtos (setq dir_pty (cadr dir_pt))))8 ]' }0 y' _( C* j$ l5 v7 @% K
(set_tile "dir_z" (rtos (setq dir_ptz (caddr dir_pt))))
, A% Y% h7 n- U! D- ~# s
)0 P/ w0 V' i {* b8 N$ R" J
(defun set_tile_xline_pt2 ()
. s- m4 N( T6 o2 y
(if (not xline_pt2)
& o/ M1 R, `; z
;; Initial second point is Root Point + Direction Vector
7 Q+ _/ l9 c$ t1 ?- z2 L2 |4 r
(setq xline_pt2 (mapcar '+ xline_pt1 dir_pt))
1 _+ V' d1 q5 B) K V
)
; k" R9 \/ ~4 n% o
(set_tile "xline_x2" (ai_rtos (setq xline_x2 (car xline_pt2))))
# Q8 V% v- V; m, a8 u
(set_tile "xline_y2" (ai_rtos (setq xline_y2 (cadr xline_pt2))))$ a7 u/ ]/ }8 {" B+ P$ v) w
(set_tile "xline_z2" (ai_rtos (setq xline_z2 (caddr xline_pt2))))
4 H8 X4 z; s4 ^) `; n. r$ o6 s
)
, f* M6 D$ F7 ^. E# r) a; k- s: f- ?
) W3 S. [5 s0 R
;;
. X+ D+ }( A+ Q3 c# x7 F
;; Handle for all objects
# Y2 ]1 i7 N& ]- x" I- Q
;;4 d* i: y* x: }5 ~7 f$ n& _8 F
(defun set_tile_handle ()
+ K2 h5 p0 Z9 U
(if (setq hand (cdr (assoc 5 elist)))! _+ \; Q; a# W' b
(set_tile "Handle" hand)/ ]8 `: B, l* i
(set_tile "Handle" "None")7 ^8 C* f' i. T4 k- Q; L! d( |7 Y
)
: K. W9 l" \9 I C
)
4 V& e3 P, U% J5 E. n4 l
;;" E# w7 L- s5 R
;; Radius for ARC and CIRCLE
# w' \+ ?( C1 b% |$ T1 H% c
;;
2 \4 Y3 E/ z- S E
(defun set_tile_rad ()
4 {5 T3 A/ }( s0 R9 a$ N
(setq radius (cdr (assoc 40 elist)))
( v: W$ R+ O6 ^' {: t4 b) D3 W0 R
(set_tile "radius" (ai_rtos radius))8 ^) @4 B$ Z7 y. f
)
; g5 D. d; t2 D* S
;;' p7 ~- F) [0 a" M
;; Start angle for ARC
7 \$ v# z5 Q M1 e' n) ^; y
;;9 y; H: [% L& Y+ u
(defun set_tile_stang ()8 ]& S- d9 y1 U& t+ K$ b0 S# m3 j
(setq st_ang (cdr (assoc 50 elist)))2 O1 W- L7 e# l9 Y) b3 {) i- B+ E! p
(set_tile "st_ang" (ai_angtos st_ang))( g/ i j. e' M- [+ y) F
)
+ F$ o4 X+ N( U; f N- s* J6 @
;;
1 u) v# K0 v/ z
;; End angle for ARC
) X) A* g2 K6 [- }" v
;;8 j; Q' Q/ ?9 b4 M1 g* m) y
(defun set_tile_endang ()
9 L, G: W5 K' W% g6 i' V3 B, D
(setq end_ang (cdr (assoc 51 elist)))
( ~1 Q |1 O$ [: A5 W0 Z& W0 ]
(set_tile "end_ang" (ai_angtos end_ang)): p9 I9 [8 O! F/ l- C
)
% B2 f1 Z$ j X* r
;;
$ R" A. j, n" Q
;; Rotation Angle - Text, Attributes, Block insertions and Shapes
8 b* F% d. G; T( ]* c1 F( V
;;
: V n# L) h. i! m
(defun set_tile_rot ()
7 a- P0 X% C' R7 Z: @4 r
(setq rot (cdr (assoc 50 elist)))
. |1 d6 B" O8 R3 _3 M
(set_tile "rot" (ai_angtos rot))7 u1 X; ^ H3 g: x
)
$ d+ I( ~% T9 s/ g, T2 h/ Q
;;
' p/ c& `& O1 A9 [ q6 J) X1 B
;; Height - Text, Attributes and Shapes
, \' l, P/ U5 d; f! s6 f, j
;;! X) ~1 K. L- W# n
(defun set_tile_hght ()
: Q1 [" w/ u7 c) Z& L9 `* D
(setq hght (cdr (assoc 40 elist)))
2 Q* L3 ]! I8 H! v( E- }* |
(set_tile "hght" (ai_rtos hght))# }3 B1 W7 r0 n% z" \: h
)8 l9 ]8 X% R& F0 K5 |1 @ H9 \3 \
;;* Q. L6 p- d5 U' j+ ~
;; Width Factor - Text, Attributes and Shapes
' n" [1 l& w( t9 K- `
;;% n! B# \: L, }. ]4 L5 \
(defun set_tile_wid ()
5 ~: K6 L. {$ u9 W, U
(setq wid (cdr (assoc 41 elist)))& N" _7 R: g0 ^
(set_tile "wid" (ai_rtos wid))
: t% k8 m. O! l- `1 |0 S3 ?; C
)& G9 |% v! ?' r, \
;;1 Y5 h# i$ `0 K% j3 m
;; Obliquing Angle - Text, Attributes and Shapes- ?6 n, w9 D; d/ P/ m4 a
;;
! m% a; Z) d* ?0 e9 S* O+ _/ j
(defun set_tile_obl ()
}+ `5 A& i6 i; T& I# \( D( P% i
(setq obl (cdr (assoc 51 elist))): U, Z5 j4 ?- l4 n) Z
(set_tile "obl" (ai_angtos obl))+ y: X) U: u2 y0 G& r
); A- l C1 ]. J1 P7 y& d8 O2 n
;;* N/ u7 g! @% h! w# q
;; Text string
: P" J) e7 l3 [3 g, l9 B$ K7 r
;;
, S3 v5 P( W& ?0 [' J5 A. c
(defun set_tile_text ()
' `8 W2 M" @5 f0 l' |% D, e
(setq text (cdr (assoc 1 elist)))
; k1 A% M: d- K0 [6 C% K
(set_tile "t_string" text)3 f* j0 ` b! K! [! V* ^% a
)
# {( h) l" j9 s# p
;;
: I: p4 s* |* p' x& K& G" S
;; Attribute Tag+ C: C0 K7 s8 Y+ X* C3 d3 L. b( M
;;
$ F( k9 c/ u4 ]- Y, z9 p/ u
(defun set_tile_tag ()+ ], x' Y0 V! r8 P% S: q$ y
(if (= etype "ATTDEF")) m# @$ k0 c; S. B
(progn' A9 M% c! ?- n4 T2 ]0 w
(setq attag (cdr (assoc 2 elist)))% b- U; l8 _ J+ y( d7 g
(set_tile "tag" attag)
: U: v. J% j# e, T* f8 l
)
5 Q& {: F" A2 |9 j5 s1 J5 }
)
/ m: N, s1 S) V. o) E4 [ N1 B
): n" \ a; X0 X( f1 m9 W
;;* Q( o$ U; I8 ~3 m# ]( c
;; Attribute Definition
2 y1 _6 r! |) ?- h9 }
;;
/ I; v$ b! D' t1 y# Q3 E
(defun set_tile_prompt ()
5 Q* S5 r9 P1 v1 q
(if (= etype "ATTDEF")
0 g1 n- h! e6 D: J; z* S% p
(progn. @7 p6 L" Z+ p. Y* t" w
(setq atprompt (cdr (assoc 3 elist)))
9 P7 U% J+ w" k% L
(set_tile "prompt" atprompt)
+ |3 \9 C& n! o) G2 F- ?! A$ v8 w
)6 J3 \. o( s/ f; N8 x, E9 k* ^
)2 i0 D, Y+ i; H
)
6 U+ ^ L' `8 ^4 A% i6 ^
;;
+ R+ u9 g8 U2 P
;; Justification setting for Attributes and Text. Initializes- ]" O8 N5 ]1 N3 x2 Q
;; popup list box# G. w* z4 ]) z! c
;;
7 P f! P9 ]" W' O# U0 {
(defun set_tile_just () Y4 I' i L+ E+ x9 y2 C7 V
(setq ha (cdr (assoc 72 elist))) ; horizontal alignment
& r% A3 q' w4 s* {
(setq va (cdr (assoc 73 elist))) ; vertical alignment
# Q' L. C- F1 h" m
(setq ha-prev ha)
9 Q/ I9 o( C3 ~* C. l; l
(if (= etype "ATTDEF")+ Z; _$ e6 |% ]1 T- W4 T6 T+ w
(setq va (cdr (assoc 74 elist))) ; vertical alignment6 `8 A9 h% O! {$ }; ?1 O
)
) h' O) W: S0 A# c' G+ J' L
(setq jlist
1 u0 J, h, p* Y2 o' ~
(list "Left" "Center" "Right"' f9 J( m4 Z0 V8 X
"Aligned" "Middle" "Fit"9 N8 w3 A5 V" N2 ]& w0 v! o3 c- Y
"Top left" "Top center" "Top right"
; L# J" c) V2 ]; Z& w
"Middle left" "Middle center" "Middle right"
: n6 T/ ^' M3 v9 C$ \+ y+ V) X, x
"Bottom left" "Bottom center" "Bottom right"$ c. E6 x+ k& y( L# ^5 \) Z9 J) M
)
7 H1 r1 z7 `+ }" c/ y+ f
)
0 h" L6 m2 V4 U% c# G, H" _6 k
(start_list "popup_just")/ H& C, Z2 B, M! F! C( k% Y# I
(mapcar 'add_list jlist)
* ^# h* [ l6 U, q3 Y& n
(end_list)
: i$ a K! [* ^ w# q* [0 f5 G
(set_just_idx)
( F! H/ B6 t# ` ~- E
(set_tile "popup_just" (jlist_act just-idx))
4 L4 u) B: i: a# h, V; M
): w' T. c+ N4 C& Y5 x2 G
;; m" X. \8 X' e% n
;; Style setting for Attributes and Text. Reads symbol table for popup list7 G2 |% N0 i* h0 Y% a3 N& ~( R2 \
;; box.
- @& }; n4 _/ h. q% n
;;
* R! C0 H7 [" R8 }5 D) _ Z
(defun set_tile_style (/ sname style-idx tlist)
7 ^" {* r1 j% t4 e
(setq tlist (tblnext "STYLE" T)
& N7 b0 e4 o, f% d( O% N
slist nil); w* W) d$ k& l9 f
(while tlist
# |7 s5 q4 `) a1 Y4 k
(setq sname (cdr (assoc 2 tlist)))
" ?3 d& N8 m" o
(if (and (/= sname "")* ~% E/ I% w. E, [" \/ }
(/= (logand 16 (cdr (assoc 70 tlist))) 16))
! f5 g6 S) u: F! m! d
(setq slist (cons sname slist)))
! Y, L; n$ s3 u4 j
(setq tlist (tblnext "STYLE")))
1 a$ p3 N. p9 J( Z% R0 j" r
(if (>= (getvar "maxsort") (length slist))
6 T, A6 B9 P" C& B* N
(setq slist (acad_strlsort slist)) ; alphabetize style list! `2 Q# g7 i: Q6 l4 c7 {
(setq slist (reverse slist))) ; or reverse it to put it in DB order
& O; b0 `/ g: ^) E( C' a) j7 {
* l( L! ~) k8 K! M
(start_list "style")
: U1 Q1 M# V- C4 o8 _. z- u$ Y+ ^
(mapcar 'add_list slist)
9 D2 K( L) K7 y9 w, T
(end_list)
$ o. L4 \" s* i& U7 q" J1 y
(setq tstyle (cdr (assoc 7 elist)))
+ l6 g7 `& O" l" U8 O7 c0 [
(setq style-idx (getindex tstyle slist))
# k0 m0 E% Q5 e6 b
(set_tile "style" (itoa style-idx))+ c: g9 W6 B0 Q) S2 u. k) E
)
5 M6 x$ v) F/ f" `5 y" ~
;;2 |! U2 |' l+ [0 i" A" n3 e
;; Text and Attribute setting - upside-down, backwards# _6 g: T, ~+ s; _; y1 y! a& T
;;
( ~0 s0 ^6 v+ ]& a1 y
(defun set_tile_bk-up ()5 ]; T4 e/ Z$ a
(setq bk-up (cdr (assoc 71 elist)))
% V: ~; N$ L$ l
(if (= (logand bk-up 2) 2)
$ P8 `# Z% t) k& B9 d. k
(set_tile "bkwd" (itoa (setq bkwd 1)))& @, h: ~& a4 A2 H2 F
(set_tile "bkwd" (itoa (setq bkwd 0)))
2 p* ]3 z3 w' k0 D) K" c
)5 J+ p0 u; r; T/ N3 F/ x6 C* E w& e* u
(if (= (logand bk-up 4) 4)
6 `4 u2 \! r/ c4 h' V, Y2 }7 _9 |
(set_tile "upsd" (itoa (setq upsd 1)))
(set_tile "upsd" (itoa (setq upsd 0)))9 q& `; _# n. a9 p: t+ c" `; t- `: W
). {; \$ c7 H2 z. x- v
)
# n/ T- V' Q) y. p2 t% b, K
;;) g* Y) v5 D" |( X$ w
;; Attribute setting - invisible, constant, verify, preset% _2 q! t% _5 \ }+ P
;;/ d% Z, m0 O8 s* S( r, Z3 e
(defun set_tile_icvp ()# ?* z: h3 q5 [0 _" _
(if (not (setq icvp (cdr (assoc 70 elist)))), ^' E- b+ F& Z" p1 T2 J
(setq icvp 0)
) t( B* w- e+ X2 M! w
)
4 _& ?3 u' F5 }
(if (= (logand icvp 1) 1)7 `. X% J3 K! w( q: @1 }" l2 T
(set_tile "inv" (itoa (setq inv 1)))( ^8 G4 w7 b( _0 T. B
(set_tile "inv" (itoa (setq inv 0)))0 e7 F: \& O: I% O3 G9 t
)1 W" r- M: x& K/ X0 r
(if (= (logand icvp 2) 2)
2 e% m0 Y4 x& c4 ?/ n! T3 D/ E
(set_tile "con" (itoa (setq con 1)))
; F! V- X$ H8 K: t
(set_tile "con" (itoa (setq con 0)))
# p q2 J7 B5 ^9 q+ i
)
# l* o' b) h* [- J/ X
(if (= (logand icvp 4) 4). B1 t$ e: M* F4 G
(set_tile "ver" (itoa (setq vfy 1)))
; L% K8 j) t2 w) p7 L
(set_tile "ver" (itoa (setq vfy 0)))
p6 R9 b' N @$ c& y$ Y
)
2 A# A2 u4 t. c# F/ e$ w
(if (= (logand icvp 8) 8)* v6 g- {+ Q. n( v- {! V
(set_tile "pre" (itoa (setq pre 1)))' ?* I3 `" B/ j# k6 W5 W. b% ^
(set_tile "pre" (itoa (setq pre 0)))
. U; S1 W' ~3 f1 p. {( O, R6 l
)
)
0 f; i( \" z" o9 L- ]+ Q
;;, a. Y3 W$ F) z+ k
;; Scale factors for block insertions
6 e7 _3 k" \( i. b+ d
;;
3 Q" d" [/ q( p+ a1 y# J
(defun set_tile_scale (/ temp)
% t9 L' Z; Q% ]8 W: A* v b
(setq temp (getvar "LUNITS"))7 V+ K0 W0 s: @* L4 P
(setvar "LUNITS" 2)
7 \# r& B$ f# Q Q% e7 p5 b
(setq xscale (cdr (assoc 41 elist)))
: F# F+ Q/ k0 H9 S# ?% `
(set_tile "xscale" (ai_rtos xscale))9 Y/ ^1 h+ D8 X5 J, U7 e1 B
(setq yscale (cdr (assoc 42 elist)))% x. g; A& o7 Z, b6 j
(set_tile "yscale" (ai_rtos yscale))
! j& y0 ~' N* B" T0 v- _8 J
(setq zscale (cdr (assoc 43 elist)))
' o" n, E( \9 b# @5 }% a; W
(set_tile "zscale" (ai_rtos zscale))
2 ^" L& R- F N' K- J
(setvar "LUNITS" temp)- f; r& E$ S8 o6 x- U: R0 M1 z
)
s3 U5 @4 X2 U z$ a/ v
;;1 L7 y8 I& x" C# f
;; Rows and columns for block insertions; C% @& N7 d+ B
;;
/ ?0 H% p/ Z3 t* E8 X3 n
(defun set_tile_rc ()8 o, h9 ~$ L/ Z* z$ a
(setq columns (cdr (assoc 70 elist)))1 O0 v, ]0 _7 E5 M* K' F7 f9 `% c
(set_tile "columns" (itoa columns ))
& o, K( y+ Y" m& K
(setq rows (cdr (assoc 71 elist)))1 h: s# V. S% m- z$ ?, x1 R0 j+ g
(set_tile "rows" (itoa rows))
' a8 q! q4 c3 n: }' {( m. b
(setq col-sp (cdr (assoc 44 elist)))# U. e% \* G0 z r. A
(set_tile "col_sp" (ai_rtos col-sp))
; s/ S T- d1 E2 q! I* N
(setq row-sp (cdr (assoc 45 elist)))
( R% ~' [) `- D$ v0 q+ d1 f, B
(set_tile "row_sp" (ai_rtos row-sp))
8 _4 ?7 P: U' m- J
(if (/= hasclip T): c5 f( e8 j. b# b e& z/ o
(mode_tile "xcliponoff" 1)
6 M9 q. y, @) _4 p4 F
(set_tile "xcliponoff" (itoa xcliponoff))
- e& F- x' B: L& Z% g# R: R
)
, ~: e; S* X* t: }/ c5 O. \ g
)
3 `* ?; [ f* u9 n$ Z3 A
;;
& K3 k8 `8 v" ^2 ]2 Q5 e
;; Invisible edges for 3DFACE
4 P- y& e- E" s( \: a
;;
% G f2 X7 G$ I" z" |! L; p
(defun set_tile_edges ()) o. `; k3 F7 y2 U; v& r7 ^8 o
(setq f-vis (cdr (assoc 70 elist)))
( S0 m8 ]; m$ [7 u) d0 f
(if (= (logand f-vis 1) 1)
4 N! \! g9 c2 ?9 K0 e/ e& r
(set_tile "edge_1" (setq edge1 "0"))
( N9 _& t3 q& }7 C) L
(set_tile "edge_1" (setq edge1 "1"))
: M9 S K% l/ B& K- w
)) ^+ ~, H( G) U
(if (= (logand f-vis 2) 2)5 L: v# N8 ]" L, W* x- \$ }+ s
(set_tile "edge_2" (setq edge2 "0"))
: o" ]$ ~) |" k0 [% L
(set_tile "edge_2" (setq edge2 "1"))% ]/ i! b" y0 Y
)
/ m, l. z- J8 R m$ U7 Z( k
(if (= (logand f-vis 4) 4)5 M# b2 i8 N, c. ~1 r
(set_tile "edge_3" (setq edge3 "0"))( v% [3 M4 s# Q2 l4 ~( z
(set_tile "edge_3" (setq edge3 "1"))
' C! q) ?/ v; A
)
1 w' k: [1 z5 L0 C- ]! H7 V
(if (= (logand f-vis 8) 8)1 m1 U ?4 _5 p: U+ K
(set_tile "edge_4" (setq edge4 "0"))0 E4 N9 g4 l8 F1 C
(set_tile "edge_4" (setq edge4 "1"))" ^9 C/ W* g3 r8 ^3 {( H
)
, {' W' { M3 k
)$ [$ _% g0 w, t1 A
;;
6 i* _' w( \9 I+ g7 \
;; XYZ Point values for polyline vertex
% R" q( L: Q, @/ N+ H
;;! `7 y3 K3 o% m; E
(defun set_tile_vpt (ptype)0 F% V- F6 ^! V8 E) S
(if (= (cdr (assoc 0 vlist)) "LWPOLYLINE")
# ^. R" h/ W, l" I
(progn
E4 i* _3 t' l0 a: d( r2 I
;; ctr is 1 based, vertices are zero based.
/ j2 `* d$ r( _) Z
(setq vpt (cdr (getLwVert (- ctr 1))))
4 G' b+ A: w$ f, {9 E1 l
(set_tile "xtext" (rtos (setq x1 (car vpt))))4 z8 Y6 I# Q/ U: T! z& B* _( l
(set_tile "ytext" (rtos (setq y1 (cadr vpt))))
; c3 c+ ?# S0 ~& I B1 i# x) c/ A
(set_tile "ztext" (rtos (setq z1 (caddr vpt))))+ A5 I) q2 |, T9 d
)- X/ M7 @ E: u4 Z
(progn% Y$ E; f% h3 |8 }
(if (= ptype 0)
0 k# Z6 S1 A- n# S5 {8 F' t/ ?
(setq vpt (trans (cdr (assoc 10 vlist)) 0 1))) U) I: w3 q: L; [& O- F1 \
(setq vpt (trans (cdr (assoc 10 vlist)) ename 1)): B! s6 W- t6 {4 _
)
% }6 U( V( o2 O8 B* u
$ `' v E' D9 k& u5 j0 |6 T! X
(set_tile "xtext" (rtos (setq x1 (car vpt))))2 D8 R2 {- f* Q0 f
(set_tile "ytext" (rtos (setq y1 (cadr vpt))))
* Y8 b5 }$ p, u/ C
(set_tile "ztext" (rtos (setq z1 (caddr vpt))))# U' ?. P: k2 u" o
)6 c+ d8 m' ?- y4 ]
)
- f7 n3 b# L( c2 }. {
. k" \( K7 z7 z1 @7 I6 N1 q2 r4 Q
)" L' Y: s5 T% G
;; This is the equivalent to doing an entnext on the heavy weight$ g+ ]) e! p' {
;; polylines. The hard coded '4' below allow stepping over the- B9 \. R& u9 C: W4 D4 j
;; 40 41 and 42 group code information. The while loop finds the
b2 C! A8 Y2 r* }- X: a
;; first vertex which will be used as the starting assoc in the) i8 M/ @' n& U! {5 {: Z
;; call to nth.
# e) f2 p! i6 `
;;
' `; |/ F9 w4 F/ `! @! d
(defun getLwVert (tmpctr / count tmp)
3 C7 i% R4 J( j) i
(setq count 0)7 U6 `7 C3 L% t% Y+ x% d. T
(while (/= (car (nth count vlist)) 10)
. e; V/ n6 }7 s e/ ~ q9 R
(setq count (+ count 1))
( W5 q& C! O. m0 k$ \+ m
)! o3 }# |( p1 i4 m" \+ O8 Q
;; If the counter reaches the number of vertices,
/ u* s) ? y0 X# S9 S8 ]3 B+ x
;; reset ctr and tmpctr to zero again.
+ @4 c2 H' \; ^% J7 r
(if (= tmpctr (cdr (assoc 90 vlist)))
4 A9 f3 {% J$ i
(progn% O# r* {0 A O6 V2 P5 v) _
(setq ctr 0), @' w( w& K8 j& ^
(setq tmpctr 0)4 U, h! @" L) f0 \, B
)/ r) e/ u0 ?9 ]& T% F1 c' ~# I$ F0 p
)
; r- n6 w2 c$ t6 u
(setq tmp (nth (+ count (* tmpctr 4)) vlist))9 q" d/ f: J; D) J# ]
(setq tmp (append tmp (list(cdr (assoc 38 vlist))))); E9 P2 P/ G3 r. v
(setq pt1 (trans (cdr tmp) (cdr (assoc -1 vlist)) 1))
1 b( A4 x) m0 d# s+ p, f
(setq tmp (cons 10 pt1))
1 s4 r" a# B. u
(setq tmp tmp)
* G. @2 d% b. c, X/ L0 E
)
! X; x: H! A5 t; t1 f' g
;;( |& o/ E) o& p4 p5 I
;; Set tiles for Spline properties. If the spline is rational then we9 ?7 U. _" e4 A( B+ A3 E
;; need to display the weight values of the control points, so set
# y, J. C4 V4 @- l
;; flag to 1.1 |. R z% {6 B' i3 N w+ W
;; 1 = rational spline
) b, H, M, m& @; D/ _$ a) |. Y
;; 0 = non-rational spline9 \/ \4 ~; X C f8 T c( `1 |
;;* B2 X1 @: }' H$ f
(defun set_tile_spline_props ()0 [2 o$ z3 F7 ` P9 E
(setq rational_spl_flag 0) ;; initialize rational spline flag
+ t4 z* B$ s3 }
(set_tile "Degree" (itoa (cdr (assoc 71 elist))))' ?9 f/ Q3 @$ q& D' o
(setq bit70 (cdr (assoc 70 elist))), j) ?/ i% l! g7 b7 J
(if (= (logand bit70 1) 1), |5 a8 z: H ?" r, n5 B+ T& `
(set_tile "SpProp4" "Closed")! K/ D, ^9 L) n" z
(set_tile "SpProp4" " ")& |# G, L) \& e, N" g
)
7 }5 ~* ]) S, [
(if (= (logand bit70 2) 2)$ x- l# k1 U7 Y* W- B, Q' p
(set_tile "SpProp3" "Periodic")- b2 N+ V. X; b% n0 G5 J. b
(set_tile "SpProp3" "Non-Periodic")4 M- u4 h z# z& S; Z" Z$ |% G; s% X
)9 M( `3 l. X" b) A
(if (= (logand bit70 4) 4). B/ f: a( z. ^' ]
(progn
4 N8 U2 g. m/ x
(set_tile "SpProp2" "Rational")
* L% ^1 D0 U5 l+ z/ u* f% h
(setq rational_spl_flag 1) ;; this is a rational spline% t) p) W, B! v! r
)$ g3 L& }4 K% o- T+ a. R3 x
(set_tile "SpProp2" "Non-Rational")
5 n+ |) Y0 w1 S6 Y [
)
# X% ~. y) u. A: V- s5 n+ I0 m. V
(if (= (logand bit70 8) 8)1 Z, T) J2 u) J" v9 t
(set_tile "SpProp1" "Planar")
8 T4 z) u( X7 n; J
(set_tile "SpProp1" "Non-Planar")
8 s/ \% o" [9 \; Q/ }( B
)- ~; u4 r- J( y3 a. J$ j7 {( Z
(if (= (logand bit70 16) 16)
8 ^" M$ T% \7 D
(set_tile "SpProp5" "Linear")5 R. W+ P; D. @6 y9 a0 F/ z B
(set_tile "SpProp5" " ")
+ Q3 x/ n" E/ a8 s. i
)
7 k2 C9 @# _% B) f* Z4 q
)
. o5 A; w$ g! z3 K7 d
;;
! p7 n3 s! n- r/ P
;; XYZ Point values for spline points
+ y& N- [; q, d7 M$ `' g5 S2 x
;; Need to account for WCS/UCS0 Z2 _2 T2 J( R+ r
;;2 O# f. l3 W9 q& A
(defun set_tile_cntl_pt ()
K; j6 }* }! `; E' x% J& i
(setq cntl-pt (cdr (assoc 10 elist)))- B: J7 n) k2 e- \6 T9 h) J
(set_tile "xtext" (rtos (setq x1 (car cntl-pt))))
0 D1 B) B- i6 u/ [! R# J
(set_tile "ytext" (rtos (setq y1 (cadr cntl-pt))))/ E0 W: F2 \* E& s, E' v
(set_tile "ztext" (rtos (setq z1 (caddr cntl-pt))))
- O3 g4 X. u# n
(if (= rational_spl_flag 1) ;; if rational spline* ~, C: ]1 i# T" v; u0 i J, l& ?5 T' X
(progn ;; show weight
& Y$ p7 O; K1 x; Z6 L
(setq weight (cdr (assoc 41 elist)))
; R$ I7 k0 i3 g% N' |9 d# x- G' i4 m
(set_tile "weight" (rtos weight))/ p+ U- z" k; |5 r9 P
) ;; else
4 f' u1 ]" c% y5 h+ ~0 n9 R( Q
(mode_tile "weight_text" 1) ;; disable weight field% w" n/ d7 |$ q
)9 b4 J+ u! C; g+ M+ E
)# u5 k% ], d0 g: [; w2 y3 p
;;
1 w9 D* Q3 q+ l6 V& @: n1 q4 ?1 R
;; XYZ Point values for spline points
* S' q' M3 X- {9 j5 I8 X1 _
;; Need to account for WCS/UCS4 T$ w5 G% u1 i/ V+ z" W( ^
;;
8 R& ~; d1 d. b( m. N4 N
(defun set_tile_data_pt ()5 V; d, j& l9 t' E( V! J# z
(if (not (assoc 11 elist))/ G. Q" {7 m( n, Q
(mode_tile "data_pts" 1)
: p4 W j: C. B |' {% U- U& [
(progn& K& X, Y8 Z0 I v8 ]4 \# `
(setq data-pt (cdr (assoc 11 elist)))6 | i4 J9 g* u' b' c. n+ ?0 Y
;; display points with current precision.
% R. d" Q0 Z7 ]
(set_tile "dxtext" (rtos (setq x1 (car data-pt))))$ c" G7 } \ I# i s ?" l
(set_tile "dytext" (rtos (setq y1 (cadr data-pt))))" N. C2 ]+ A) L ~+ }) z
(set_tile "dztext" (rtos (setq z1 (caddr data-pt))))- f/ }5 L7 G6 @. s
)4 P& J4 `( @6 w3 A" h
)
2 D( }1 E/ y6 b3 N
)
8 `. O1 I. g% E, E# l
;;+ y) l( Y, t1 X5 a# A2 \2 ^
;; Fit curve, fit spline, or smooth spline surface setting/ S! @$ x8 Z1 E# |
;;: K; ^1 i9 K- a& Q3 U0 i3 A
(defun set_tile_fitsmooth ()% i: n- A9 l' g( b0 @
(cond
& n( y6 R. f! _& T
((= (cdr (assoc 0 elist)) "LWPOLYLINE")8 K) Q+ I* _ P6 f
(set_tile "none" "1"); m. U' Z0 K3 _3 i3 j4 N) {, r% ?
)( v* [8 v; }# C8 P
((= (logand bit70 4) 4)
" X- k# T) _4 j5 H/ H
(cond& S4 ^- Q8 L$ n* G U$ t
((= bit75 0)
- C0 A8 L1 |/ v2 C' I5 I
(set_tile "none" "1")0 F' u% B4 U- g3 G# d1 q7 C) t: c& X( U3 j
(setq spltype 0)
' D- ~* a8 _, P* x0 L, p
)9 w3 ^) Y8 A8 \9 N' u7 H& A# m! T& A
((= bit75 5)- k% p D# |7 z1 n& a! V H
(set_tile "quad" "1")
4 s, a- i: K! b( Q+ T
(setq spltype 5)
0 j( I% H! D) ]% H
)9 D7 r& D L0 T ^- H$ q; ~
((= bit75 6)
* c4 w9 d+ [$ A3 y" I7 W/ T
(set_tile "cubic" "1")
) o7 O8 a4 e% u; u
(setq spltype 6)0 w2 X6 q, u. b0 `2 L9 H
)
0 B2 u9 @# O7 A; N1 s
((= bit75 8)6 l; c7 v# ^+ b- C. ^6 h, J
(set_tile "bezier" "1")
3 O4 J0 d5 T t, N- T
(setq spltype 8)
$ E, M( x/ l' ~1 N- u
)* ^2 [+ F% s! a9 K. B
)
* B3 I `. P+ J6 v S7 C9 {* b
); J* _! [$ a/ e6 [7 I/ N0 P8 E& v
((= (logand bit70 2) 2), M4 J- W3 ~; v( m; z
(set_tile "fit" "1")
, p3 I- @7 _' p2 b% M- F
(setq spltype 1)% D( e2 F2 ]; u5 k4 ^: H
)
, k4 r7 M; b* `7 A; Z- `4 C
(T (set_tile "none" "1"))# L; T6 `1 U# ~1 d) S& b; b% L9 a
)7 j% {' a* h P4 U
)
6 C& I; p7 L9 i- v l0 f
;;
' e8 J- J9 N2 o( v1 U. z
;; Closed or Open mesh and polyline setting
$ h8 I, a8 ~9 h
;;
8 z8 S" V& |7 {' S% ]
(defun set_tile_closed ()3 F- w( j: i/ m# ^% e
(if (= pltype "3D mesh")' t: y I; O' u3 K* L, V- h) U
(progn/ y4 C& \: T* h3 m3 h# G
(if (= (logand bit70 32) 32)* s8 C$ F% p; _' ^; ?6 L, U8 w
(set_tile "closedn" (setq closedn "1"))8 {# T3 w" l- R7 T8 x: o1 n
(set_tile "closedn" (setq closedn "0"))
3 C4 u0 {0 W* d- O. z
)
" l9 I w2 a1 i1 S+ [
(if (= (logand bit70 1) 1)* r- a/ Q: f$ u% i& Y2 L
(set_tile "closedm" (setq closed "1"))) c$ ~" E5 I( I8 k/ f# j, p! J! y
(set_tile "closedm" (setq closed "0"))
; j4 g! ^9 g1 h+ X- R, `' A- z5 a
)
# E3 h/ Q1 a, i& ^4 P
(setq old-closedm closedm old-closedn closedn)- L: d. u( K K% V: M. \+ m0 |. z
)
( e: h: Y1 k) Z0 o; U! `# t
)6 L9 U) Y* t" [( Y+ H+ R
(if (or (= pltype "2D polyline")
3 Q m% [+ J; ?5 U, F
(= pltype "3D polyline")4 Y3 Z2 s% q+ f' Z3 {/ u' Z4 q% t$ s
)( |. Z3 a. [* `5 B- ]. o$ W/ y
(progn
3 v$ N( a8 F8 W' P6 A: X
(if (= (logand bit70 1) 1)
3 m" p4 s$ Z- Y! K y7 g, @
(set_tile "closed" (setq closed "1"))# E4 U0 K" f" M/ b% y
(set_tile "closed" (setq closed "0"))
9 X, s7 r/ {6 B6 D( v" Y: p
)
/ m* S2 B' r( u- b7 M
(setq old-closed closed); j) j/ o" e3 b4 Q2 F1 m
)
I8 I: M& i& Q% I ]% D& r
), ^( o- D5 R! n, Q0 n1 s
)
/ K# q" |+ u! ]7 p- l
;; Set common action tiles
1 Y% X( C: V, Q, v; d# u
;;' W7 G3 @1 d4 R( X
;; Defines action to be taken when pressing various widgets. It is called
) P' [) u* V; V" w9 }
;; for every object dialogue. Not all widgets exist for each object dialogue,
7 ]9 d0 d) |5 [+ P W C! d
;; but defining an action for a non-existent widget does no harm.
* \- R% q- Q* J3 \3 a& D
(defun set_action_tiles ()' a, d7 \0 Q/ P& ] e! c
(action_tile "cancel" "(dismiss_dialog 0)")
: p( b- Z) ~' s# k7 |( U8 U
(action_tile "accept" "(dismiss_dialog 1)")
4 H* p L$ s3 _5 u
(action_tile "help" "(help \"\" help_entry)")6 ]7 D3 K; q& N4 C! r. ?) G
(action_tile "b_color" "(getcolor)")
0 w; o( F+ }; V: k, W# H1 _
(action_tile "show_image" "(getcolor)")
0 H2 C* }, ^4 t. m* R5 g
(action_tile "b_name" "(setq elayer (getlayer))")" ~1 M) }$ Z/ \
(action_tile "b_line" "(setq eltype (getltype))")
" a6 a) n/ e" J$ b7 a
(action_tile "eb_thickness" "(getthickness $value)")! |' x- ~1 q- h
(action_tile "eb_ltscale" "(getltscale $value)")3 x* u/ F Y/ N$ H4 V6 a
( b% g; F8 p3 s" r
(action_tile "pick_1" "(dismiss_dialog 3)")
& V: q* L/ ?9 q; L# X5 Y' `: t
(action_tile "pick_2" "(dismiss_dialog 4)"): L, I6 b/ Q3 z
(action_tile "pick_3" "(dismiss_dialog 5)")
' H6 ~! H2 [" K. }# p' S
(action_tile "pick_4" "(dismiss_dialog 6)")1 r9 ?9 F. E7 ~$ ?$ l
(action_tile "x1_pt" "(ver_x1 $value)")
" k1 R5 T- {! J3 J8 z
(action_tile "y1_pt" "(ver_y1 $value)")
0 e* l( S# a0 G% V
(action_tile "z1_pt" "(ver_z1 $value)")! t. y, h+ k4 A4 J' ~, G! R
(action_tile "x2_pt" "(ver_x2 $value)")
9 e4 e- t, b [* n: _
(action_tile "y2_pt" "(ver_y2 $value)")6 u" P* x: [: p3 q5 e5 ?: J
(action_tile "z2_pt" "(ver_z2 $value)")
: m4 I# ~: b; ?
(action_tile "x3_pt" "(ver_x3 $value)")
" H3 t+ C; h! h- t2 G3 N# j
(action_tile "y3_pt" "(ver_y3 $value)")) a' Y/ _. ?% l# U
(action_tile "z3_pt" "(ver_z3 $value)"). O3 K+ ]+ n$ k ~; D( {, g
(action_tile "x4_pt" "(ver_x4 $value)"). Q; B7 k) Z4 j
(action_tile "y4_pt" "(ver_y4 $value)")+ G i3 i7 s$ i- c8 M9 D
(action_tile "z4_pt" "(ver_4 $value)")
6 U6 u0 t r# {
w% X) J0 F) W% x& O- W
;; Action tiles for Xline & Ray
* ~" J% G9 t. B
(action_tile "xline_x1" "(ver_xline_x1 $value)")0 u$ L% J; Q- a+ k0 l
(action_tile "xline_y1" "(ver_xline_y1 $value)")2 u4 E1 z7 K" G; O1 U+ {1 H7 ~
(action_tile "xline_z1" "(ver_xline_z1 $value)")" X+ J7 {6 J+ z$ Y
(action_tile "xline_x2" "(ver_xline_x2 $value)")5 o( B5 |" G- k- D% D* o- ]
(action_tile "xline_y2" "(ver_xline_y2 $value)")
, t) P0 F b) {& \7 U
(action_tile "xline_z2" "(ver_xline_z2 $value)")9 l. w& X) P& k/ }( D9 M9 Y1 F b
& ?5 W$ h6 `2 u7 @
(action_tile "edge_1" "(setq edge1 $value)")( d+ _* O. ], g/ u& s# z) D
(action_tile "edge_2" "(setq edge2 $value)")
$ o* x- @' B% a, y' Q4 ?: j
(action_tile "edge_3" "(setq edge3 $value)")
" G. ^! E H: M7 D. i
(action_tile "edge_4" "(setq edge4 $value)"), R1 y2 F! l% I6 t! l2 ?( [6 _
2 C- p8 m1 x5 F8 A L1 J* Y( ?
(action_tile "radius" "(ver_rad $value)")3 d. q" r: {; u
(action_tile "st_ang" "(ver_ang1 $value)")( R& y! w& ^6 _
(action_tile "end_ang" "(ver_ang2 $value)")
5 w+ Q% u! l: o) A- y, U& ^
(action_tile "end_eang" "(ver_eang $value)")2 ] I1 }! L0 r" _
(action_tile "minrad" "(ver_minrad $value)")$ J5 V8 ]; O8 H. ~) ~& b5 {
(action_tile "majrad" "(ver_majrad $value)")
; A7 h5 L" F, h2 V N% m U
/ z' V& S/ o2 j' ~* q. ]# r4 v
(action_tile "xscale" "(ver_xscl $value)")$ W( L" ]2 c/ |
(action_tile "yscale" "(ver_yscl $value)")
$ t+ `+ p. f- r& N& g
(action_tile "zscale" "(ver_zscl $value)")% i1 f& h! u. m5 Y" S
(action_tile "rot" "(ver_rot $value)"): R' G d( A/ c9 b) z- w+ | i
(action_tile "columns" "(ver_col $value)")' P. W3 p f; J. F$ T
(action_tile "rows" "(ver_row $value)")5 P. X0 |+ i8 T- {
(action_tile "col_sp" "(ver_colsp $value)")$ i5 N c6 ~) h- `
(action_tile "row_sp" "(ver_rowsp $value)")
# f+ v: I2 q) m1 K5 |" r
9 O8 p- U5 A/ P V5 r% K
(action_tile "hght" "(ver_hght $value)")
' t# c* u7 r" u' {( Y
(action_tile "wid" "(ver_wid $value)")/ k9 C0 e" K; d. v( m Z( g N
(action_tile "obl" "(ver_obl $value)")9 F3 K2 _; k1 k; Y( e6 g
(action_tile "style" "(style_act $value)")- W4 `- N S3 c |
) J2 m- o) _/ Y' g' g9 j
(action_tile "t_string" "(ddgettext)")* k) X8 h% P( w! o: o" i4 X% Z
(action_tile "tag" "(ver_tag)"): k& k+ q& r7 y5 `
(action_tile "prompt" "(ddgetprompt)")
/ P) K; q1 `9 A5 p- o( M
(action_tile "bkwd" "(setq bkwd (atoi $value))")6 \- m* Z Q3 r9 a
(action_tile "upsd" "(setq upsd (atoi $value))")' {& C/ |& p( p$ R! _
(action_tile "inv" "(setq inv (atoi $value))")
4 K; U3 \& D* k2 l: z( v2 K; z; J
(action_tile "con" "(setq con (atoi $value))")
- T. X( v, |3 c; ]6 ?) Y
(action_tile "ver" "(setq vfy (atoi $value))")
7 S. A/ @. B& j% \ n
(action_tile "pre" "(setq pre (atoi $value))")) S0 m% d, I. D" A
(action_tile "popup_just" "(jlist_act $value)")
' U7 I* N6 X! B' D4 A. D( S8 r. r
7 Q& p4 d6 X. q% s9 b; S
(action_tile "closed" "(setq closed $value)")8 a& r, r- M9 g8 G8 b9 \9 o5 B
(action_tile "ltgen" "(setq ltgen $value)")
( @7 C, ^( }, Z0 h! R' K
(action_tile "closedm" "(setq closedm $value)")
+ v2 ~* y& R# Z5 t/ m/ o& a- T* \8 I
(action_tile "closedn" "(setq closedn $value)")
- b0 B1 Z. c, S* N9 e
(action_tile "next_v" "(next_vertex)")
, }- N% U$ K( O% p" h
(action_tile "xcliponoff" "(setq xcliponoff $value)")
" O$ b$ h) ~; C8 p, \0 |
1 {1 A+ j' K9 p
(action_tile "next_cntlpt" "(next_cntl_pt)")6 _# I5 N: R9 E& ?1 }/ k( I
(action_tile "next_datapt" "(next_data_pt)")( n3 {6 `7 @# r. ^
# W0 k+ i6 o" R
(action_tile "none" "(if (radio_gaga \"none\")(set_uv 0))")
( F! z( b) c! [
(action_tile "fit" "(if (radio_gaga \"fit\")(set_uv 1))")7 A. [$ j9 q5 \( B! j
(action_tile "quad" "(if (radio_gaga \"quad\")(set_uv 5))")4 E4 G/ V: }7 I% g/ `
(action_tile "cubic" "(if (radio_gaga \"cubic\")(set_uv 6))")# `2 D9 E; v2 d5 H0 _; y2 k
(action_tile "bezier" "(if (radio_gaga \"bezier\")(set_uv 8))"), F0 j0 l4 @, ]0 V3 ^
. K* v$ H7 _( g0 @" g' N
(action_tile "u" "(ver_u $value)")6 J5 C! U# M8 c2 |# R m/ m& B
(action_tile "v" "(ver_v $value)")
. U0 f4 F: j! h# i& B8 l1 ?. Y
)- e+ [3 S% P. U/ Q+ q& e
/ s6 e- ]. r! _
(defun ddgettext()" b3 I7 u: ]- O. s# v1 Z; c( U) a4 H
(setq text (get_tile "t_string"))
* A- \: r) h5 \$ L
)
5 z1 Z6 R( c& W( F3 C8 V& T$ K
5 {( h- u7 [4 p$ O$ ?) O: {0 g
(defun ddgetprompt()" p7 |4 \' @" i) }& h o% d
(setq atprompt (get_tile "prompt"))
7 s" |- T+ x% S7 |$ `/ ~ n
)
2 {7 C- R8 {2 a) F8 ^# c4 M
, w* v: ^7 C# ~9 C3 D! ~1 q
;; As OW doesn't support disabling of individual radio buttons within
/ K4 ]# l. b+ U6 n. ]; m) ~
;; clusters, a check must be performed as to the legitimacy of the
1 z9 d6 f% d' f* T$ D3 G
;; button pushed and reset if necessary.+ Y' \/ a$ z! N; {2 G. L0 V
(defun radio_gaga (pushed)
+ @# X. ~- Y4 J2 S: W
(cond5 F: G3 i9 B$ q4 _
((and (= pltype "3D polyline")8 }; K4 i# {7 j- T6 t
(or (= pushed "fit")
1 D) T$ t7 s0 t' z* `. m2 j0 a5 _
(= pushed "bezier")0 V' l: V @- L( J9 R, ^7 e7 E6 l# O
)5 X/ z% K$ p+ m/ x! ]7 y' N
); M/ t6 j2 l1 h6 u3 m% L5 H; x
(set_tile "none" "1")* C8 M4 a1 s0 Y/ O) g: ^
nil
2 [* M6 a+ P4 ~( x4 o# q: ^: }) z" f
)
; h- S$ I4 y/ w8 W! p/ L2 a
((and (= pltype "3D mesh")
5 C% F6 Y' H; P1 T, P
(= "fit" pushed)" R1 X0 v! W$ ?+ i* ^$ I
)7 V5 L% r. T7 g* p
(set_tile "none" "1")
+ `( _/ w0 N1 o3 l6 d
nil. u! C6 A. I4 T
)9 {2 m% p) P9 s A% `) Y; o- c7 Y
((= pltype "Polyface mesh")
! V) _7 y0 s( H$ p. {5 l
(set_tile "none" "1")2 w1 C; A4 _ Y# S, @$ z
nil
1 U- h- F4 {: c4 p1 x& e2 E
)
/ e* R5 T8 H. S" `1 v' G
((and (= pltype "2D polyline")( r; ]9 h! `! @$ l" J. e7 B/ I/ T A: Q
(= "bezier" pushed)
" k- J. U/ w0 A/ b( g
)& L9 ^) V4 J8 B/ \5 a
(set_tile "none" "1")
, G3 N0 | g% z3 z8 r$ G$ u
nil5 T) s, e- `! t- k# N
)
7 ~% F/ P1 h' X9 a b" W) ^ m
(T)
$ q5 m) k0 @* Q. g
)( z) J2 W/ f) z" \
)" m+ L) K7 h$ `3 C9 z& J; \* }% c
;;
$ Z X: _' \7 R m8 _' A; R
(defun set_uv (type_n)
5 p. v: E9 i' Q) U. B8 J a
(setq spltype type_n)
: Z! h; y9 n( S
(if (= pltype "3D mesh"), v {! ^7 p5 n4 {
(if (= spltype 0)
/ Z1 r; B) U2 L0 ?2 L- o7 j: v$ W
(progn
! q" _/ x2 |4 k4 L5 [, ]: {" k
(set_tile "u" (itoa (setq u 0)))! ?/ W; u: d$ n' u
(set_tile "v" (itoa (setq v 0)))
6 {+ g. V5 }% [* T# L& V
)" k5 ^5 s. a9 Y0 _7 R; L/ E
(progn1 e% }7 C+ ^& y4 H0 V; G. ~
(if (= u 0)% t9 B+ u0 V3 l& y9 z
(set_tile "u" (itoa (setq u (getvar "surfu"))))
& K& k; x3 C/ @* q' D
)
" e0 {0 _1 l) o
(if (= v 0)6 t' v& ^9 u7 G4 _
(set_tile "v" (itoa (setq v (getvar "surfv"))))
3 A3 A# ~2 `5 t* {- F2 ?' C. W
) s+ i/ N6 s/ U3 K! s
): Z' j' o* X1 U* l
)- G# i: f$ H& t" v* m l
)
$ ]9 X: b; a3 V0 P+ }: Z' {' L* J: z
)8 [; Q* j* ^* ?
$ s0 p* w/ `$ J( P% k
6 f: Z2 r# U& y. C* g) D: H W
;;
' x ]3 D: j/ x" p# i* q* O
;; Verification functions: {, K; T8 I- I, ]& w$ q
;;3 d& L! J/ a, `* r
;; Verify distance function. This takes a new X, Y, or Z coordinate or
4 \6 j* S3 `) l. g0 E4 v' {. Y
;; distance value, the tile name, and the previous value as arguments.
1 o/ e& M+ o, i
;; If the distance is valid, it returns the distance and resets the tile.
2 i1 y8 s8 o2 \" O9 {, |
;; Otherwise, it returns the previous value, sets the error tile and keeps
. w+ ~; D! z8 W3 e8 L
;; focus on the tile. Shifting focus to the tile with invalid value can
& k. t4 Z: m/ j
;; trigger a callback from another tile whose value is valid. In order
% l% X6 A" Y$ m C
;; to keep the error message from being cleared by this secondary callback," [" w0 E6 Z! d1 f3 W! U
;; the variable errchk is set and checked. The last-tile variable is set
$ Y5 \) \+ k& T i
;; and checked to ensure the error message is properly cleared when the- v- U6 @/ ~& t; | n
;; user corrects the value and hits return.
* d. t. ~3 R# A T0 U) J
;;
: l' f: D! i J5 D- x1 ~
(defun verify_d (tile value old-value / coord valid errmsg)
5 g# b0 x; ? W$ l$ l
(setq valid nil errmsg "Invalid input value.")
5 K! R x0 z& X) r x4 i% n1 }
(if (setq coord (distof value))& d5 d3 o; V& t/ P
(progn; W- }7 x9 w* z4 Z# Y
(cond
2 L* n, l! S( n) Z; k
((or (= tile "radius")
c# q9 \3 V: |& |9 d# y d
(= tile "hght")( |+ t0 [5 s1 X' @2 t: J+ k; S! S
(= tile "wid")( ^: K% f% X- P
(= tile "majrad")
4 R$ Y; Q: V3 [0 ?
(= tile "minrad")
9 ?! p, K( y- }
(= tile "eb_ltscale")0 H! k, V! P+ X
)9 k, x& N3 E# I
(if (> coord 0)
8 T5 p: j; n- m0 L. z, I
(setq valid T)& _& T( a x5 Q Q+ i; m
(setq errmsg "Value must be positive and nonzero.")
$ J% Y$ l* w( m/ q
)
3 y S' E: b$ F7 m
)
/ a& [' e8 T# ]; X
((or (= tile "xscale")
. J: x7 J- T( P6 f& O* X9 u6 {
(= tile "yscale")
6 Q/ s+ u; w1 g" Z$ W/ C, V8 C
(= tile "zscale")
( n& Y8 N! \ b: q4 Y1 D7 k
)7 m/ l. W* p# X* J+ W8 N0 ~
(if (/= coord 0)
' @4 H( `2 z& Q+ p
(setq valid T)
V/ Q1 S6 H, y) y) [
(setq errmsg "Value must be nonzero.")$ d$ R: L. @/ k8 u8 f
)
! \7 A( x$ N. ~0 f
)) C; Y- \+ U" C* \
(T (setq valid T))* N0 h" c$ z' ~4 h3 I/ ]% G0 F2 Y
)% {/ h' E7 \$ a* J, w" |
)
4 n* w3 A! l6 }; E3 _( f
(setq valid nil)
0 F! r' }" p a% c4 l: u
)/ Z! Q* t, Q8 R- A/ B
(if valid
; r, M9 ]& ?9 M3 ]- k. R
(progn* M! G; B3 }( [! |4 L4 Y/ a
(if (or (= errchk 0) (= tile last-tile))
$ k9 B# Z: z( m/ F4 [# V' q" x9 l. o
(set_tile "error" "")) [" b( ^9 R0 F& ? y
)
3 M3 ^7 D2 K7 ?4 a, m; q
(set_tile tile (ai_rtos coord))) p9 @' T" l8 \
(setq errchk 0)
; b, ?8 \3 I: w$ o9 N
(setq last-tile tile)6 \2 p t9 a6 G% h4 ^ a( y
coord1 L1 C; U, a- @. E% y8 k* F
)$ L7 j9 t4 W$ k! W2 n# i
(progn" _. b) U5 o; V2 c
(mode_tile tile 2) ; Move focus to offending field" K. ?" K: t# ]# Q2 y! \
(mode_tile tile 3) ; Select offending text
1 m" C) G, M/ Y6 S" H& Y) T
(set_tile "error" errmsg)
5 [( I0 i/ M4 p7 I; M2 {0 X
(setq errchk 1)
$ m( ]; }5 i2 ?5 j. X; g
(setq last-tile tile)) O' _7 g9 x! O/ Q
old-value
* \' H8 ~6 t2 @+ R$ @* Q. Q4 X# l
)
- Q2 E, f; \- }+ W9 T4 `; ^* o) k
)
7 [% T! X/ Y i9 t7 ^
)6 \- b: Q) p! {. d6 R/ \
;; Function for Xline coord edit box checking.
0 y9 B* m% H0 {2 g# _) P
(defun verify_xline (tile value old-value / coord valid errmsg)
; {# d/ s$ y. c) p! W% ^: a
(setq valid nil errmsg "Invalid input value.")
% A4 F/ h5 a7 D. {4 J6 o
(if (setq coord (distof value))
( H w' P+ j! V( m0 Z, e
(setq valid T)$ M x0 N. s( V5 V9 G8 P/ ?
(setq valid nil)' N$ V: h1 ~- D% t, @. w( A1 w
)8 K, ~ W2 y$ J" L
(if (and coord
4 V+ Q+ c4 G+ c2 R. }
(and (= (atof (get_tile "xline_x1")) (atof (get_tile "xline_x2")) ); i5 B$ o" `" J7 O
(= (atof (get_tile "xline_y1")) (atof (get_tile "xline_y2")) )
& t5 G6 j9 ]/ f, d
(= (atof (get_tile "xline_z1")) (atof (get_tile "xline_z2")) )
) A) o d6 I6 X% ^0 O- J4 L
)5 v5 y8 z: Q6 A: t, M+ D
)
% y# N; {6 B% {- K
(progn' o( h; x: [( D
(setq errmsg
! W! M" ?8 d& U* d
"The Root point and the Second point cannot be equal.")" f5 B0 f: h4 D* W0 ~0 _% B
(setq valid nil)+ y, v: G1 K) \/ k; B6 G
)5 w5 L$ H- i- i
)% G T- E3 A% D1 V4 o
(if valid' \1 _+ o% n1 O5 e& i
(progn1 f2 B: l6 I) E, Y1 {
(if (or (= errchk 0) (= tile last-tile))
7 V- M3 e$ ^8 }0 L. R& f2 D
(set_tile "error" "")
0 o! Y6 m( B; o: o
)
3 }/ b; |& S7 g! j* U
(set_tile tile (ai_rtos coord))2 t* H# Z0 J$ j( D6 F* ^: H
(setq errchk 0)
! m9 Z) l$ ^6 A
(setq last-tile tile)' \% ?6 o- Z/ p" x
coord
j7 l2 Z- p; a3 T8 U
)! A2 Q- Y3 y; c4 t
(progn
" ?' h, H- ~4 Q% Z$ R
(mode_tile tile 2) ; Move focus to offending field% M! z7 ]! R, ?& _7 c
(mode_tile tile 3) ; Select offending text' _: T- T8 ]0 W! f* p7 W
(set_tile "error" errmsg)
/ |+ \; z0 i9 E
(setq errchk 1)
6 x# s, U$ a6 y
(setq last-tile tile)! E7 A6 d- l* v, s: \
old-value
! j3 b3 S! x7 I. P' D. \6 v
)+ m! `9 ]: z7 w$ Y O# N8 O
)6 k K. @7 {1 o0 [$ v
) [# b) }! u, d U) b0 V3 {
2 w9 ?" _- Q, `- J+ L
;;$ D. g' k Y O
;; Verify angle function. This takes an angle and a tile name as arguments.4 I$ L; [0 C0 K9 U1 ~7 Y n- h
;; If the angle is valid, it returns the angle and resets the tile.* [( f0 n# z' l# i
;; Otherwise, it sets the error tile and keeps focus on the tile.
' R2 k: ]2 l$ D- w- L. w
;;+ s/ s: v7 v F% ]! c
(defun verify_a (tile value old-value / ang valid errmsg oblqmax)4 p5 Y; X) p$ Q3 ?# q
(setq valid nil" t: F) J+ s8 X
errmsg "Illegal input value."+ a, V& T0 X: i1 k
)
% m8 i: n Y" l. `+ G% H ?: u1 W
(if (setq ang (angtof value))' j- n2 V* _0 s8 G9 z& [) v
(cond0 Y0 Y4 r( Q5 m) E/ X
((= tile "obl") ; Restrict obliquing angle
& N& @3 o4 h, k2 h6 X0 X
(setq oblqmax (+ (* (/ PI 2.0) (/ 85.0 90.0)) 0.000001))
6 a2 ]4 Q3 w" s" g! {! F# `
(if (or (<= ang oblqmax)
: q: r7 p1 I& i( s
(>= ang (- (* 2.0 PI) oblqmax))9 y0 E5 @6 b9 L2 B: ~' l6 a7 Z
)
/ A' A8 C8 u6 X. G
(setq valid T)8 t7 H6 c, C4 j% @5 B& ^1 _
(setq errmsg
( B4 W% l/ @' r
"Value must be between -85 and +85 degrees.")
4 c5 h& Q* \/ |
). T5 _8 Y1 a! P0 Z# [8 G
)8 p0 U$ Y( V$ G) R
(T (setq valid T)) ; Other angles not restricted
1 K8 ?( ]8 D/ a
)
7 J; f9 f# z- ?7 k" k S. V7 f
(setq valid nil) ; Invalid angle input( V$ Q* X) p1 @; k6 I* |
)
9 t0 U; ^3 ]/ [$ G+ J0 v8 `( N6 `* n
(if valid4 K' a! _. c+ S/ P
(progn7 p' u7 }/ Q! F! Z2 G/ j
(if (or (= errchk 0) (= tile last-tile))
6 T6 D4 F9 S% z6 k
(set_tile "error" "")# D3 ?* X! x) c3 \2 g/ S0 x
)
& Q. P3 m, Y( h
(set_tile tile (ai_angtos ang))0 v; X0 p, g# r1 j4 O
(setq errchk 0)0 M% Y ~, ~# E' S2 o. V: d
(setq last-tile tile)
& B3 c2 R& U9 q4 y7 s
ang
1 m" T) |+ n1 T
)6 h3 V- C( J! ?' j$ h& C+ Q: h5 e
(progn, _" c6 r- F4 `7 g5 V5 Q. x
(mode_tile tile 2) ; Move focus to offending field" S5 R5 S0 k# n/ d' h
(mode_tile tile 3) ; Select offending text
" D" r% l* G. Q, O2 q/ F
(setq last-tile tile)
6 R7 a" v# S$ c# u% o0 S! J- J$ ?! _
(setq errchk 1), H& ^$ L# v5 e% K( o
(set_tile "error" errmsg)
, g( M0 t6 d5 Q$ a) `0 H
old-value/ q, `# m, ]3 L# F" e3 m
)
! g; O3 J* C4 `# N8 h9 V1 X
)
+ i) [: h0 q; _" O8 u$ a: ?
)" j& K7 k T( L
;;
9 \1 g# K7 R4 [& U6 }( f7 O
;; Verify angle function. This takes an angle and a tile name as arguments.! O( k/ ]- `' R* g$ a7 F" h
;; If the angle is valid, it returns the angle and resets the tile.# G# B+ t( h; v0 R$ F0 y% i3 O
;; Otherwise, it sets the error tile and keeps focus on the tile.# b8 I+ o2 f9 l" }
;; This function is specifically for the end angle of the ellipse object. If7 t1 S6 ~0 T* l, o3 @& p& F: h+ v2 `
;; the end angle resolves to zero then we want to display it as 360.
7 i& X) o8 @1 ~3 X" Z5 i$ k% }
;;
0 d# v% E8 [5 S: a* Z0 D$ S& Q
(defun verify_ae (tile value old-value / ang tempend)
; _$ `7 t a6 K, G8 Y) y
(if (setq ang (angtof value))7 w5 I& a8 ~- N' \3 P' T) D
(progn# H5 Q7 Y- f1 I% z! E- {; S
(if (or (= errchk 0) (= tile last-tile))1 u* f. w, N8 |# g
(set_tile "error" "")
; N0 d, \8 U4 u! @# x* H
)$ `4 r, b9 X5 I) s
(setq tempend (ai_angtos ang))+ u, |9 ^( m) t% b! K, f6 \
(if (= tempend "0")( z5 E: Z2 a, g( d' H" F& q6 d9 g
(set_tile tile "360")
) |, `7 J# w8 m+ O1 }3 Z
(set_tile tile tempend)+ |7 u) H( V! P' z7 X& ^
)
$ A, s. X5 V4 E, b4 `
(setq errchk 0)
6 k! P; w) I+ P: {4 q
(setq last-tile tile)
T. b& S! m3 {2 U+ E
ang
7 T, q. X# D& \' F2 S
)* J; ^' g! c. ?& Y
(progn1 t: q. V- S* s! D. m; s8 g
(mode_tile tile 2) ; Move focus to offending field
0 m; K: U' `0 P( B, d
(mode_tile tile 3) ; Select offending text
3 r/ T. M% H7 F2 @* Q2 {- X
(setq last-tile tile)
+ b& i& ]/ E h! w
(setq errchk 1)
; [/ x! \9 ^$ m0 K9 A
(set_tile "error" "Illegal input value."): T3 Q0 n( C9 {% m/ `* ^- F
old-value+ Y; N8 O. E" T4 P6 `: E
)" L8 Q3 q' y! A4 w% R. O6 k! Z
)
0 ]( q# Y0 n+ o2 {
)
P8 d8 o% ^! @; b/ O' a
;;9 c6 X$ U! I' A% E. C/ _
;; Verify integer function. This takes an integer and a tile name as* I- t# \6 |% z4 F: ]# ^3 l8 J7 M
;; arguments. If the integer is valid, it returns the integer and resets the3 a& Q, A2 D8 k5 r3 V
;; tile. Otherwise, it sets the error tile and keeps focus on the tile. U, O5 Q4 B. x. @- k
;;/ p/ m& N& P1 v' z8 v3 [. t6 R- v
(defun verify_i (tile value old-value / int valid errmsg)
: B5 ?: T8 T- I" P, _
(setq valid nil)
6 w4 q" U3 V# _" C' U% j
(setq errmsg "Value must be an integer.")1 V" b7 [- q. W7 J- k+ h
(setq int (atoi value))
n+ q, O, B: G, P$ v& o9 {2 {
(if (setq intchk (distof value)) \0 W) d) h- M C. S) o( V$ U/ N% c) N# [
(cond
0 v5 P, |( Q3 B7 s% b, K7 e
((or (= tile "columns") (= tile "rows"))5 P4 A- Z& K( j6 n( g1 e: g, j
(if (and (= int intchk)
(>= int 0)
* T% v' i1 P ^$ v. p3 i- R% L
(<= int 32767)
' @# y. a1 B1 P# Y( O1 L
)3 G H0 }! A, ?
(setq valid T): C" i5 t0 ?3 o" Y2 T% E# \
(setq errmsg "Value must be an integer between 0 and 32767.")% ^! `. o7 d- Z1 T: c d0 Q
)
4 y3 f1 P5 ]; t; f% s
)$ X8 K3 T; j/ R! x5 J( Z/ ? y8 q- n
((and (or (= tile "u") (= tile "v"))): j5 Y; v# R; j- B% y; _! x7 G
(if (and (= int intchk)
* ?. |$ h! T( S0 R
(>= int 0)
' |' A, Y5 \7 H# L1 x3 Z/ |
(< int 201)
1 ?8 c1 ?0 \% H5 `$ N9 O
)5 @ a% U: r4 l; u) I; u% z
(setq valid T)
1 W7 m8 u& I, x0 I% T7 B* [: J
(setq errmsg "Value must be an integer between 0 and 200.")
- O" o6 p, `3 F- ?% Y7 x
)0 N" Z3 m! P+ u, b% J9 g& ?
). Q5 E7 E1 J* G6 P5 A6 B2 A
)
" X0 \- h1 a! H2 D% k- x
)# J" x3 |9 V. S: F' P
(if valid7 A# L0 D* ]& e
(progn
! A0 V% I$ z2 [; M x
(if (or (= errchk 0) (= tile last-tile))9 s9 t. L3 E4 S/ ?; M* e- T: g
(set_tile "error" "")
* e' e/ R' }" I4 i( ~- d0 n
)$ q0 ?9 Y; u$ L3 y. j
(set_tile tile (itoa int))
9 ]/ }3 k6 C( j0 C' s Q
(setq errchk 0)
9 K: s$ i/ R* ]2 c4 b
(setq last-tile tile)
( h5 b9 L! V8 d- s9 C
int
2 k- P+ ~0 o0 F; I
)3 j; R4 P% @1 }1 E/ o+ O5 W
(progn
$ a- D) r% s* u% P3 u, A
(mode_tile tile 2) ; Move focus to offending field
$ A; X+ q) Y: A S* T9 L$ V
(mode_tile tile 3) ; Select offending text# i7 i! ^( A& U
(set_tile "error" errmsg)* G$ u* g( l+ z* N# \
(setq errchk 1)
% ?, R8 |7 x& X2 a) p
(setq last-tile tile) t- w1 K0 K3 U( |9 O
old-value
5 g( D" T" c( K8 v: O2 \! [
)0 T! b& _" T' t: w! } |
)
0 f/ C! ?( a z: v
). t; R, ?7 Z/ _3 g) E6 x
;;! T; [+ ]- a. K
;; Functions that verify tile values for integers! U' S8 m! k6 b8 T8 j- a9 E, E y
;;
. J5 d, y$ J6 A! R* Z( ^/ ^" f
(defun ver_col (value)
6 Y+ R5 _* w. o9 R" |
(setq columns (verify_i "columns" value columns))
@! z( d. E( h- ~ V1 W
); a0 q* O6 L4 A% N
(defun ver_row (value)
# D; [. P3 p" i# z
(setq rows (verify_i "rows" value rows))
: s" h8 m- B8 ?: C& B
); O. k6 B. V3 q1 O
(defun ver_u (value): c3 s5 ]0 w& r$ e
(setq u (verify_i "u" value u))" J c: A' z1 x4 B
)
- @/ \( }6 @! g3 g. _
(defun ver_v (value)
# _2 [* a! N1 T' h+ n, I1 s
(setq v (verify_i "v" value v))1 U8 |+ N* R) B' M
)% i: K+ P' Q4 V' L7 u. D
;;
5 u: ]' z, [8 P+ ^- X9 ^6 O
;; Functions that verify tile values for reals3 m1 E* D' {& k7 Q6 p) z8 Y; V
;;
% N# ~, L( V& E+ x. j9 b
(defun ver_x1 (value)
* F* Z8 W6 c( p+ \- s. B
(if (setq x1 (verify_d "x1_pt" value x1)) (calc))- D) o7 B0 O; V% k* V) M
), o+ h- X4 Z, ~' k& U2 J$ d* h
(defun ver_y1 (value)
7 q) u% X% ?( u6 c1 u" H
(if (setq y1 (verify_d "y1_pt" value y1)) (calc))
7 ^$ j/ \# `2 B8 G- x* G% B
)
3 f- B5 L8 B6 }& [, q8 Y
(defun ver_z1 (value)8 h* U, W. F1 Q; W- O: ^' U; C
(if (setq z1 (verify_d "z1_pt" value z1)) (calc))! U9 M% [1 j* d- ^6 H
)
2 c( t$ ], D7 S% \+ w
(defun ver_x2 (value)
7 o5 F/ o) J6 I& o1 F
(if (setq x2 (verify_d "x2_pt" value x2)) (calc))5 _0 f7 ~- ]1 W. G$ S4 b0 X1 d
)
3 W5 |/ R1 A1 H( Y$ s, z
(defun ver_y2 (value)* h0 A/ Z! Z. m
(if (setq y2 (verify_d "y2_pt" value y2)) (calc))
" e" [$ Z U+ S5 i! J
)
7 T3 [0 k9 {- ^# b. {3 |% {
(defun ver_z2 (value)
5 m5 A. d& Q% }+ }0 V6 D( ~8 r
(if (setq z2 (verify_d "z2_pt" value z2)) (calc))6 q$ ]3 r5 i% ?: e& c
)& q# u r8 b4 r& o, H
(defun ver_x3 (value)
1 [- Q. k% ~ c% K( h. q
(setq x3 (verify_d "x3_pt" value x3))" w" T* W0 M9 z/ O3 c! b- I. \) k
)' t3 G0 {: `9 Q2 v4 ?2 p
(defun ver_y3 (value)
" w1 N( `" E* h! t( @; e$ V
(setq y3 (verify_d "y3_pt" value y3))
' ?9 g) v/ }. E# Z! B5 i& x
)
4 C) n/ m4 r* a/ a9 Y% U
(defun ver_z3 (value)
) l2 ]7 d. I) p3 M3 i
(setq z3 (verify_d "z3_pt" value z3))
0 q1 `* T8 H- O4 O! Z o3 |. Y
)
/ s9 D7 k- ~) s) q1 L
(defun ver_x4 (value)! ?! }! g' P* h: n7 ^ g" x
(setq x4 (verify_d "x4_pt" value x4))+ i: x% {, {& }+ l: V' A
)& K+ L: f# A7 P" L$ q4 X, }
(defun ver_y4 (value)
* w8 {- \( P/ M3 w% [. L
(setq y4 (verify_d "y4_pt" value y4))
& m4 _9 L) X/ b; X; @
)0 I J$ L- I. W7 r
(defun ver_4 (value)
. ?" {9 M1 ^4 a
(setq z4 (verify_d "z4_pt" value z4))
4 c0 U) R/ T3 Z W* l1 E
)
( H( [8 v, t- I, Y. B3 ~
(defun ver_xscl (value)
* s) R |2 J* W- k
(setq xscale (verify_d "xscale" value xscale))* X" `- K6 D: k3 v# q
)
$ L+ e% A6 o: |. m: l# a; P7 Q
(defun ver_yscl (value)
; w6 K) |' a8 C9 b! N" U4 Y" L1 Z
(setq yscale (verify_d "yscale" value yscale)) G8 T' f* ]# Y' b
)
. x5 ?3 e4 M- u+ M" A, u A
(defun ver_zscl (value)
& W4 f' J# s+ a3 d
(setq zscale (verify_d "zscale" value zscale))
A$ [* w' Y* n9 Q# l
)
8 `* ?& e, T, K: p0 ?
(defun ver_colsp (value)2 v/ a6 N. u: i2 m
(setq col-sp (verify_d "col_sp" value col-sp)): M3 M; v: p) }
)+ h; r5 R. c4 X5 h8 j
(defun ver_rowsp (value)
b0 b7 h2 [; f# y& \" A
(setq row-sp (verify_d "row_sp" value row-sp))
+ k- t9 ^& L @( J3 c& E" D
)2 D# N# Z3 G" d1 k
(defun xclip ()0 o7 R1 r+ Z/ h2 P3 j
(setq xclipmode t)6 s" S* R2 V/ s1 m6 B
(if (= xcliponoff "1")( W. w$ l3 ?2 J% s5 _; V
(command "_.xclip" (cdr(assoc -1 elist)) "" "_on")- Y n/ E2 E6 o
(command "_.xclip" (cdr(assoc -1 elist)) "" "_off")
: E7 H6 \3 j- u5 v6 F$ p2 Q* r
)
& ~. @7 }: g8 u+ s T( b
)8 d1 m7 v6 f$ c& ^2 w0 _( t
(defun ver_rad (value)* R5 Z. Q" q |1 C2 }9 X0 t
(if (setq radius (verify_d "radius" value radius))
/ y8 z/ `, ^( z" o% D) v
(calc)' E4 W2 g' B3 J5 c3 ]. }
)
7 A: Y' Q. x; y' Q4 m3 f
)% S3 a/ o/ U J2 d- r _
(defun ver_majrad (value)
$ y' n3 [( r# o: D; u- y
(if (setq majrad (verify_d "majrad" value majrad))8 Y% q" g& D* u, n# J4 a
(ell_calc_newval "majrad")
$ {/ m, {1 V7 T5 ^7 y" U
)/ f+ ^+ ^8 o$ `4 L* m+ B' V) v
)4 u' L3 v/ x" `0 A' t* v$ ^& D1 l, Z* K
(defun ver_minrad (value)% }9 M% y4 ^. r) h+ i: t$ [" ^
(if (setq minrad (verify_d "minrad" value minrad))2 {" h" ~$ ]* k: o X
(ell_calc_newval "minrad"). k7 t$ G5 H, ^
)0 w! L0 L' F- `$ G+ X; u
)
+ f6 q$ r4 a0 ^3 t4 F. `
(defun ver_hght (value)
4 \6 ^! p% S* N: g- U
(setq hght (verify_d "hght" value hght)) ?9 @: A/ p. c; @1 \
)
) @. M9 i2 r% F9 M$ t
(defun ver_wid (value)5 P/ l9 h0 F! Q- X$ H. I
(setq wid (verify_d "wid" value wid))$ E$ a8 B" [* U
)9 F- g, A0 Z# K4 b% m" @ m/ W
(defun ver_xline_x1 (value / temp)8 f/ t, ^ I2 W* y
(setq temp xline_x1)
7 R6 M& D+ e6 e
(setq xline_x1 (verify_xline "xline_x1" value xline_x1))7 \5 [2 `+ o4 v1 ]- ?) \
(if (/= temp xline_x1)7 S+ N% U0 b/ X( I
(progn (modify_xline 0) (set_tile_dirv) )
7 @2 ^: |: e9 Q$ Z* I& g8 G
)8 f* v* g! S- O2 Q- O
)
* W# i$ r& g% ?
(defun ver_xline_y1 (value / temp)
) U0 X! c0 H7 k, J
(setq temp xline_y1)0 z( k- B7 V' g) @& V
(setq xline_y1 (verify_xline "xline_y1" value xline_y1))+ p6 L- N# \0 C1 ?0 L9 I
(if (/= temp xline_y1)
; H& O- E* y6 j/ } Y: c
(progn (modify_xline 0) (set_tile_dirv) )& b; Q$ B' K, ~ g N2 u- Y, o
)
0 f' ^* M) }/ M% l$ ]1 d8 U* m
)
/ _* t& j; n' t2 t7 N' N& H
(defun ver_xline_z1 (value / temp)) Z$ i. _9 Z7 i3 W+ |" L
(setq temp xline_z1): e( `9 M" W+ A, S' A
(setq xline_z1 (verify_xline "xline_z1" value xline_z1))4 Z- E& Q: M2 g- {& z6 |7 h( l
(if (/= temp xline_z1)
+ p1 ]6 ~8 w( x: R+ {! t
(progn (modify_xline 0) (set_tile_dirv) ): X1 H+ Y1 `3 I2 @6 I8 L
)- j/ k+ n- `; j3 I; c
)
{* d" _3 @) f! X `
(defun ver_xline_x2 (value / temp)
& y/ S+ d: X4 j0 n2 f
(setq temp xline_x2)( e+ g7 o# O( I. X, O; h
(setq xline_x2 (verify_xline "xline_x2" value xline_x2))
. J, D' x5 K# @
(if (/= temp xline_x2)* w2 {# O0 C+ Z4 \
(progn (modify_xline 0) (set_tile_dirv))
# k8 J% h- Z: H5 J: |2 M/ F
)
' y: C4 q. Y" }( t2 W3 r/ T& }
)& J1 ]: D6 f0 r& X1 g: ~
(defun ver_xline_y2 (value / temp)
' K" ^2 R1 f7 x1 |$ S$ ?% s }
(setq temp xline_y2)
9 n0 D2 L2 t: {1 s
(setq xline_y2 (verify_xline "xline_y2" value xline_y2)). s$ Y0 W6 F. e7 {
(if (/= temp xline_y2)% Z1 b. d/ q' g$ c" q3 x
(progn (modify_xline 0) (set_tile_dirv) )% N5 ]! T$ d3 ?4 I9 Z6 m
)- _* Q6 S# N4 F0 n, m1 z
)6 v4 O1 Y2 |! s7 t( e. c1 W5 ]
(defun ver_xline_z2 (value / temp)2 K% n' F4 G- I7 q
(setq temp xline_z2) e" }% E* b8 P( A2 S+ O" [: p
(setq xline_z2 (verify_xline "xline_z2" value xline_z2))5 T1 K4 V5 P2 S; L2 u# W; ]9 k1 o9 i
(if (/= temp xline_z2)
! \) Q- r) D5 P c! l% k
(progn (modify_xline 0) (set_tile_dirv) )
$ L6 @' K) f2 Q
)
, O& ?3 Q# k. V. G* x g2 W; X
), C8 _/ y. H) {' d1 r* n
;;
0 }, N9 T8 b# k" Y% h4 V
;; Functions that verify tile values for angles
0 E/ R/ k/ j2 _$ E1 ]
;;
' Q2 x7 t7 s# k3 X- g8 ~; P
(defun ver_ang1 (value)+ s8 p" V6 T2 J }3 p' C: W
(if (setq st_ang (verify_a "st_ang" value st_ang))
9 Y- d$ X4 y0 I0 {, } {
(calc)
, p! m- g. D- `2 ^ f1 y% }, t
)" U- G7 S2 l& g
)
7 i: V8 Y1 a5 G! Q1 X5 [0 s
(defun ver_ang2 (value): g q8 M% T& V) A& i$ u
(if (setq end_ang (verify_a "end_ang" value end_ang))
]/ k3 i7 g9 b
(calc)& J4 @* k- {% K( l8 g1 }8 q& R
)! U. J- z) I- h! y5 t2 @* N
)
2 w' o' B- \# q, [3 G C$ ^& ~
;;
7 T. g4 Y) ?; x( n
;; Verify tile value for ellipse end angle. Handled slightly
% z" C" S$ [3 v8 m1 ?: M
;; differently than the other angles.
2 ~" O+ S: N& f! f+ I R# } R
;;$ }7 }! m8 A) [
(defun ver_eang (value)
1 E/ ]' W! C* W$ M
(setq end_eang (verify_ae "end_eang" value end_eang))
$ H& v+ q: U |+ g: r6 l4 |
); b, V$ V1 I t9 R4 O; U) _
(defun ver_rot (value)4 S5 m1 T% ^5 A. i
(setq rot (verify_a "rot" value rot))0 V7 ?: N7 e- A+ h2 l$ F |$ m1 u
)* Q, g! S- o7 S0 j, u
(defun ver_obl (value)
$ Z/ O4 ?0 V) R: T- Q( Q
(setq obl (verify_a "obl" value obl))* p- S) T8 d5 O9 E1 h# p0 J
)5 B9 d$ k9 r$ J/ X0 q9 {
;;
4 U l" P! ~% x/ @' }
;; Function that verifies attribute tag field for null string,
0 o( e5 K* o* F8 f; e2 C$ y
;; or a string that contains one or more spaces. Tile value
: X' H" N! Y0 E. n4 y) K
;; is also converted to upper-case as well.! M9 m4 S/ B# T
;;
S3 C) L; ] x' C
;;
* `* {/ r/ B* ^! |9 k5 i8 ]* E {
(defun ver_tag ( / tval)) [1 X$ W2 n# K+ {1 s' o4 I
(setq tagval (get_tile "tag"))
' k! a8 m0 r& O: t
(set_tile "error" "")
! }% F3 f! |2 W' s) w
(cond8 P# t& f2 ?% F( W0 C
( (or (eq "" (setq tval (strcase (ai_strtrim tagval))))! M* d- o- Q/ H/ n
(wcmatch tval "* *"))+ p. X; ^8 ]. Q
(set_tile "error" "Invalid attribute tag.")8 x6 @$ Z, f" n$ t+ |' Y/ ?
(mode_tile "tag" 2)% ], m8 V8 l, Q B
(mode_tile "tag" 3))" N2 |3 m: `2 ?9 b/ h; f8 W( Z
(t (set_tile "error" "")6 T% E3 I9 I1 P1 o1 q5 L( s! v4 j# L
(set_tile "tag" tval)/ ]5 A+ c! w' `2 S
(setq attag tval)))* X; _) G. Y% U4 u; e) j
)' A* m2 e: P: g( C% v
;;8 a4 [# Y( U1 _; c m
;; Calculation functions R2 P' ?0 K* M' w- q1 n, I, @: u# p
;;$ K3 t: g9 i* C0 R$ Z
(defun calc ()) F- X- D# g3 i3 r
(if (= etype "LINE") (line_calc))7 o" Z4 c0 B/ }' K4 B4 y/ N
(if (= etype "ARC") (arc_calc))( t1 j/ G8 h# h: @0 x- d, T
(if (= etype "CIRCLE") (cir_calc))
$ w9 l: P" q( L1 ?! `3 n
)
0 N; x8 r4 ]: T! d( Y. B
;;
& }7 p& o4 y5 i9 L5 V
;; Calculation functions for lines, arcs, and circles
; o4 F: F4 ?. J. e: O( V
;;
+ `( O3 k: e+ N( d
(defun line_calc ()( c& m1 |! W( }- P6 W
(setq stpt (list x1 y1 z1))1 {$ V6 A$ b# R5 _
(setq endpt (list x2 y2 z2))
& G% g( [8 [7 g! c+ E6 H& T! C
(set_tile "delta_x" (rtos (- x2 x1)))
4 l6 \$ g0 ?3 ~8 V; S- K
(set_tile "delta_y" (rtos (- y2 y1)))
* |$ H3 J! G3 y: G2 _; O+ m
(set_tile "delta_z" (rtos (- z2 z1)))
/ v% l: U" W9 n
(set_tile "l_length" (rtos (distance stpt endpt)))
0 Z! J+ c& ]( ]0 f- c$ ^' @
(set_tile "l_angle" (angtos (angle stpt endpt))), H( A) Z* ? W7 s- k" F C
): X8 d3 r% Z, X3 P
0 x2 B1 e6 @0 s1 L
(defun cir_calc ( / area units)
/ k( p6 n1 h9 k* V- D$ C
(setq radtest radius)1 b/ b4 l- t3 K; n8 y& _
(set_tile "Dia" (rtos (* 2 radius)))) k- f6 n9 c$ d/ v
(set_tile "Circum" (rtos (* 2 pi radius)))
1 M( _4 `; D H# |8 l
(setq area (* pi (* radius radius)))0 a* U- ]' o$ c$ m q% D Q1 B; G
(setq units (getvar "LUNITS"))0 v& u* |5 |, K$ W B# U
(if (or (= units 3) (= units 4))
/ V' I7 O: ^! Y4 R! e4 t
(progn9 ]* _4 G6 c; i( J9 v6 D, a
(setq area (/ area 144.0))6 V" u6 R! ]* @# M C5 N1 v
(set_tile "Area" (strcat (rtos area 2) " square ft"))
8 t/ h2 l& a/ X7 p* B& M% h
)
+ P! U! x+ b' \3 _0 c8 @3 H
(set_tile "Area" (rtos area))
( z/ c, Y1 s3 H. o E# Q
)
; n% h& X2 v/ C; d( X5 I! E. S
)4 _$ P" c% B( C! j e+ [! R2 f) x' {" x v
2 a, m. s O, H( D/ j
(defun arc_calc ()
- J1 `1 d" L: ?$ |& @0 F
(setq totang (- end_ang st_ang)), c8 |" B! ]5 u- [
(while (< totang 0)
5 q1 j/ K3 \! K- X8 v8 ?. B
(setq totang (+ totang (* 2 pi)))
# C& b# T0 R3 z3 ]" l4 n# N% Y. M
)8 B/ F" i4 R0 Q' a- `
(while (> totang (* 2 pi))
2 c, E* a7 z6 t, O; X0 p. F' G B
(setq totang (- totang (* 2 pi)))/ c6 B: [8 U( a3 K8 G: k8 P
)
4 P/ P" {- B$ E6 ?: l
(set_tile "tot_angle" (angtos totang))% D# a1 t( |; W, }8 J7 O) a
(setq arclen (* (* 2 pi radius) (/ totang (* 2 pi))))
+ r/ R! n& _4 X0 y5 q! h5 K
(set_tile "arclen" (rtos arclen))+ G+ o& R: ?, z
)
: v$ j7 P' ]' F5 V8 t/ p
;;9 S' `2 M+ M1 f% ~! e& ^
;; Calculate the major radius, minor radius, major axis direction.
* A1 T+ H4 v: w9 W1 O2 x0 n
;; Get radius ratio. Convert Start, end parameters to start and end
7 Q& A/ ]* M. [ C' _) n
;; angles. Save Major Radius value in "old_majrad" in case the user
2 `5 m9 q& B% S: J+ E( I
;; chooses to input a new Major Radius value later. It's needed to0 E4 i# o! U* X
;; calculate a new Major Axis Vector value.& `7 T" N4 @$ y1 i2 j
;;
# b5 A, |5 l! u6 I; `
(defun ell_calc (), U; I9 C. [+ u& @2 U3 L8 q
;; Get major radius from the major axis vector.
' s$ u, e6 i, K( q% Q* t! I$ V
(setq majaxis (cdr (assoc 11 elist)))& B: G1 Y6 h& O5 i1 L' C
(setq xx (car majaxis))
. L ~0 f' {. |1 W" h% {! t4 b( l
(setq yy (cadr majaxis)): C2 V3 J6 c6 N6 n0 W. F
(setq zz (caddr majaxis))' J1 b+ D2 Z# n: y6 p7 i. P! X2 }
(setq majrad (sqrt (+ (* xx xx) (* yy yy) (* zz zz) )))" p' J, s }7 H
(set_tile "majrad" (ai_rtos majrad))
4 y& ?/ t7 E6 y) v$ m4 j, V) `
(setq old_majrad majrad)% D- {1 N7 J8 ], {6 x# |
;; Get radius ratio& t/ `4 E* Y, M1 R* Y l
(setq rrat (cdr (assoc 40 elist)))
+ m9 v$ m" H5 s0 ?$ s+ _. [
(set_tile "rratio" (rtos rrat))* w3 r/ b' a3 n6 |3 ?
;; Calculate minor radius" I& A: ]* R. }% [6 x2 I4 K
(setq minrad (* majrad rrat))
# G6 e! d# D) D( d
(set_tile "minrad" (ai_rtos minrad))( ^9 V0 c+ R3 s; B7 M; Q( J! G/ |
;; display major axis vector# Z- r. R, d2 v4 J8 m+ u& C
(set_tile "Majraddirx" (rtos xx))3 _( I6 o" x7 [7 S
(set_tile "Majraddiry" (rtos yy))! l6 o& ?+ i6 H2 k6 |# Y
(set_tile "Majraddirz" (rtos zz))' i2 l$ C6 R' \. X
* U6 L8 Y. f$ {
;; Convert start parm to start angle
# E% D! r0 S. A
(setq stparm (cdr (assoc 41 elist)))- t, n! q! F. [# L+ \9 d: x
(setq vecx (cos stparm))
# M4 I7 f9 Y& F4 L5 Q h; M
(setq vecy (sin stparm))
1 r) m: f6 Z' A" G
(setq st_ang (atan (* rrat vecy) vecx))
: a1 x* r3 @' M/ @* `# J( W
(setq tempst_ang (ai_angtos st_ang)), T7 t: c' Y, M+ i' s, B) y
(set_tile "st_ang" tempst_ang)
! S1 |$ R% R( b& c7 R* f( R
;; Convert end parm to end angle. If end angle evaluates to 0
) S/ x2 G( B8 ]2 O$ p. d8 ?. y; X
;; degrees then display it as 360 degrees.
2 S8 v6 s3 R+ Z, @# @
(setq endparm (cdr (assoc 42 elist)))3 I5 z/ D5 Z/ k: o) [
(setq evecx (cos endparm))
% w2 ]. p; m+ U: ] Y4 O3 }
(setq evecy (sin endparm)) Y7 a/ _2 [9 e& C+ f4 J7 _
(setq end_eang (atan (* rrat evecy) evecx))1 l5 J' N; @4 y1 d" r0 q* C
(setq tempend_eang (ai_angtos end_eang))9 x. C; K( { B! I6 M8 E# k: v# C
(if (= tempend_eang "0")& {9 k0 p4 H3 E1 I1 {
(set_tile "end_eang" "360")1 ^- a, d+ f7 _+ H
(set_tile "end_eang" tempend_eang)" k% Q/ L) R1 O! z1 Q
)
% O6 [) O1 v1 i* S
;; Get area of the ellipse.
( J: W- N( ~" t4 n' Z: k
(ell_calc_area)6 h- \* v1 v) l9 H0 c$ E8 Z
)/ B8 u' g" U9 o. _
;; Calculate area of ellipse. If it is an arc then
) |* T$ w W" r* s' o8 J
;; grey out area display. C& n& W5 c8 d+ ?& `
;;1 \7 A1 p4 N7 {: _
(defun ell_calc_area ( / area units)
5 Q" y" U0 o+ d- g
(if (and (= tempst_ang "0") (= tempend_eang "0"))
, o. t8 d! X0 _9 |) {
(progn
& W3 l* b0 t1 e4 z) \! e
(setq area (* pi majrad minrad))
& i$ S4 i3 G$ a! O
(setq units (getvar "LUNITS"))' u6 `: J/ S7 N
(if (or (= units 3) (= units 4))0 N- T$ z( t9 |8 Q1 h2 \
(progn
. i9 _# a# A" V4 r
(setq area (/ area 144.0))
: ]; E2 G9 ?' m' D: H8 g
(set_tile "Area" (strcat (rtos area 2)" square ft"))
; k- n$ i" p" O6 A4 {7 _7 K
)
$ `0 _ @! V3 r% N) v' s
(set_tile "Area" (rtos area))
- _+ W) e, T. |6 U* H! @+ _2 K
)2 o' h* m. b3 P+ A% n9 y0 y
)
, y* t# d9 @- p9 o
(mode_tile "Area_text" 1)8 u, f4 D- A, k' e
)- \4 M' t D. R3 k& z2 [! n8 h
)6 R# z) q# o( @; Q7 I
;;2 x* w5 |. G3 a# o ?
;; Calculate new values for ELLIPSE7 Q; R* Z. b# L$ E9 c% V: T. P/ H
;; Minor Radius, Area
9 N7 U6 v n5 e
;;! g6 m5 n4 x. j0 S2 h" @
(defun ell_calc_newval (ell_tile)
5 @; X2 I/ V. Z* l
(if (= ell_tile "majrad")
8 z# b+ U1 i0 R8 B) n3 V7 U* V8 s
(progn
r5 r8 j! C2 v
(setq rrat (/ minrad majrad))
8 W9 t, W6 V7 b* J8 F
(set_tile "rratio" (rtos rrat))- W9 C+ \/ _/ F7 C4 p
(ell_calc_area)- F3 `' z$ G7 W \7 p: I; t
)
& v9 P$ I, K3 L
)4 ~3 A* m$ \9 _/ R6 b5 I. S
(if (= ell_tile "minrad")/ V- O# r% u1 T0 ]
(progn6 N" X1 w6 Y/ r) Q& s5 l: G! [
(setq rrat (/ minrad majrad))/ Y/ Q: z* ~1 u, f
(set_tile "rratio" (rtos rrat)) J2 T, l5 g. ^* E
(ell_calc_area); J# p& |- K# H7 [. y6 r
)
( s: i* S: X# h, i
)
+ x0 ]% x$ P% g2 G: w5 ^
)
" S: x& _ g5 A6 G2 @% k% s
# {" Y* @' E# K0 V# ]& d! u
(defun set_dimen_props (/ loop a stl txstyname)# J0 s9 ~; O+ R
) ^# j# u1 p# A
(setq stname (cdr (assoc 3 elist)) ; get style name
& m6 g: t" V8 A0 U7 j% ?8 ?
stl (tblnext "DIMSTYLE" T)
: S8 E8 h2 b5 j1 T2 h$ Z" w
stlist nil)9 U/ G; o4 d9 }
;; Get all style names and list them in alphabetical order6 h% W1 F( w9 T
(while stl
- a+ ~( p$ h2 @* }' H8 b
(setq sname (cdr (assoc 2 stl))); T; d: p1 C Y' P4 {( r
(if (/= (logand 16 (cdr (assoc 70 stl))) 16)
& v4 U/ i& n& G7 l
(setq stlist (cons sname stlist)))
- L3 v. t) f# L) ^: u
(setq stl (tblnext "DIMSTYLE")))- U" F% w! P0 X& L" Y* M) q! i
1 y3 I9 d5 H4 |2 d; x! a0 F
(setq len (length stlist)
) a x3 `7 C$ _. ~, c0 B. y
loop 07 O2 }2 s, X' p0 \% p6 T" B
dimsty stname" L8 w4 b+ \; |9 x
)8 [) s, d" T/ R, q
, T. Z$ L. [& H" y/ R$ h
;; alphabetize style list, depending on maxsort
# o/ Z) }0 Q8 f1 ?
(if (>= (getvar "maxsort") len)9 Q- d" |- t9 B! e
(setq stlist (acad_strlsort stlist))
3 G4 d' K5 e" |8 |' t
(setq stlist (reverse stlist)))- g; v: t' C' ?5 p1 n+ I t
3 A9 ` K' ?$ G8 w. o% t" v
; *UNNAMED style (dimsty = nil at this point) is replaced with
9 l& V+ u& I: b. h' d
; the current style. After R13, we require dimensiosn to have a4 M& H- J n8 _/ V' o8 K
; dimstyle, so we plug any holes where we find them." n) \9 s5 _# A* N
(if (null dimsty)4 t. g8 H; [: d: g1 q! E
(setq dimsty (getvar "dimstyle"))
1 k3 Q2 b* j' G" o
)
$ B, T e3 h* g B# z O- P
; Show the styles in combo box. o8 f# k( ?2 z8 u2 G
(start_list "mod_style" 2)' F8 k7 \$ c9 A9 J# g& @! @# j
(while (< loop len)
' r. r- W8 P4 J9 o
(add_list (nth loop stlist))' ]! C% |9 t, g5 @2 k+ | \
(setq loop (1+ loop))! J6 h# u& u( H4 n" \$ k+ W; f
)
4 }5 y: b1 D, C+ u5 p* g% E& _
N ?& e: j- d9 c# v% c
(end_list)
) J1 o/ o# I: F; g5 s+ x# B
7 h% v8 \& ?1 N* s
; Hilight the style name of the selected entity
% `5 G |- Z, q$ l j4 c4 M
(while (and (< 0 loop) (/= dimsty (nth loop stlist)))
. M; O$ u- ^4 J" ^* l: P* F
(setq loop (1- loop))3 C0 V$ _- b' ^$ ?; s R4 A
)
, C2 o j; D) f& q) k2 V- Z3 M
(set_tile "mod_style" (itoa loop))2 G8 A/ [# g, o6 r M/ ~% n' D
. W1 d! K: W/ Z9 U2 d
; The following is the list dimvars. It must be sorted in the same7 r- ]6 B, _/ V1 l5 O" a
; order as the resfub returned from DDIM (ADS module).
q3 d# R& i: r9 E$ l
9 Z) u9 z6 W8 [" k9 N( [
(setq dimtbl (list "DIMSTYLE" "Style name" "Standard flag values": n1 x' C' {5 S+ n5 T/ q5 e
"dimpost" "dimapost" "dimblk" "dimblk1" "dimblk2"
+ q7 U) J2 v9 t+ |% Z) M7 n
"dimscale" "dimasz" "dimexo" "dimdli" "dimexe"
$ N( O# }* B# ~( `% u1 Y
"dimrnd" "dimdle" "dimtp" "dimtm" "dimtxt"
5 p; c0 |" Q+ {) Z1 l I; v
"dimcen" "dimtsz" "dimaltf" "dimlfac" "dimtvp"
- B4 p# y. q* B" a* ^6 t
"dimtfac" "dimgap" "dimtol" "dimlim" "dimtih"
' f4 E0 V1 M3 E
"dimtoh" "dimse1" "dimse2" "dimtad" "dimzin"
# \7 b+ r s* P8 y
"dimalt" "dimaltd" "dimtofl" "dimsah" "dimtix"
1 W0 n. `" P5 \' u
"dimsoxd" "dimclrd" "dimclre" "dimclrt" "dimunit"/ u' E1 X6 }& n
"dimdec" "dimtdec" "dimaltu" "dimalttd"$ Z: s7 W% _( j! y9 I1 p( A; S
"dimaunit" "dimjust" "dimsd1" "dimsd2" "dimtolj": g2 u! I2 p \* f9 Q" }
"dimtzin" "dimaltz" "dimalttz" "dimfit" "dimupt"$ X& }* o5 L: j- _% E8 r
"dimtxsty"% U: e& ], X0 E6 T$ S7 U
))' b, h0 l5 U0 r% `. [
(progn
! H8 K' z9 z* g% l$ D
(setq sv_dvlist (ddimen_getostate dimsty)
% r6 K: S/ O$ E. a
txstyname (assoc 340 sv_dvlist)1 {- l4 K! w2 R! n
sv_dvlist (subst (cons 340 (tblobjname "STYLE" (cdr txstyname)))9 V8 \& D l3 [+ x
txstyname sv_dvlist)0 n/ f5 m5 h* @+ U7 a
dimlist sv_dvlist B( Z% R$ S3 v0 K5 P7 {
)
- Y4 ~) D1 d& c7 I4 j7 O
)
# }- [& G) k, c% g0 C* X" }4 d9 ]* {
(if (= dimtype "DDLEADER")
% j8 M) O b0 j4 q0 ~& |! m8 I
(mode_tile "mod_format" 1)
% A- [$ z: h. G
)
& T$ v! E* q, b( p- f( Q. L
(action_tile "mod_style" "(setq dimsty (ddimen_style))")# H$ C# }( Y. H6 g
(action_tile "mod_text" "(done_dialog 4)")0 h0 b) T8 P3 l& R6 P/ l1 s; P
(action_tile "mod_geom" "(setq dimlist (ddimen_dlg dimtype 11 dimsty dimlist))")3 q* f4 M' }% N3 l( B( [* R6 F; D
(action_tile "mod_format" "(setq dimlist (ddimen_dlg dimtype 12 dimsty dimlist))")( i9 ?+ b- }" J5 q7 D
(action_tile "mod_annot" "(setq dimlist (ddimen_dlg dimtype 13 dimsty dimlist))")
, \0 s' {. d( U$ q$ q# |+ c
(action_tile "accept" "(done_dialog 1)")" d+ h1 N/ ~5 O( b# }* C
)9 E. }$ B& T8 Y/ y, h; v
;;
Y+ X$ K2 a# B
;; Get dimvars that have been restored.2 r! [6 |; e1 L: Y6 [- ^
;;
! h( u6 H' V* R/ @+ [. q
(defun ddimen_getvars (/ elm dvlist dv i)
5 q7 i2 u9 i" c& \+ F& l
(setq i 3! }- s( ]% @' n3 w/ l
dvlist (list (cons 0 "DIMSTYLE")
& O( v; o$ K4 |
(cons 2 (getvar "dimstyle")) (cons 70 0))- ]8 }9 X6 \/ D" H5 o
)0 j8 Y% y3 H# @1 U |- x
(while (setq dv (nth i dimtbl))' ~3 g6 L! M3 c: _4 G
(setq elm (getvar dv)+ c, E3 E: S1 @/ J
dvlist (append dvlist (list (cons dv elm)))
1 l: a/ G4 u+ c! X
i (1+ i)
) q+ U- t+ ]( ^
)- S: G7 }" p3 W1 I3 E: W' p2 d
)
! s0 ]! m& D. H0 g( t9 B L2 }9 o
dvlist; v- z+ P3 K+ j
)
7 f$ l) \! T+ F9 j
5 {0 W9 R, C r4 e# {3 ^
;;
7 ]+ g" b9 X7 [! ]
;; Get the original states of dimvars. This is for DIMENSION entities.0 a$ V4 w2 D- n r- g* b7 ~& Q
;;
4 B5 B8 b1 W+ x( u
(defun ddimen_getostate (dimsty / dvlist elm i dvvars)" O/ s* N5 S9 r# l1 I J
(setq dvlist (tblnext "dimstyle" T) ; Get a skelton list
. W# W! X. ]- v" M
dvvars (ddimen_getvars) ; Get dimvars for that entity& W" i+ r. f) z- v6 E& n1 s
i 1
' A( J; ^% G( G9 c6 ]
)
( K' Z) n+ S0 [9 ?% [
2 n# X9 J K' |1 A/ S
; Create a list that contains values of the selected entity.1 q' v1 } m" y* H1 f( t: ]
# U; I. m( g: |+ `6 T
(while (setq elm (nth i dvlist))! C: B/ n8 B$ [& ^6 e/ U
(setq dvlist (subst (cons (car elm) (cdr (nth i dvvars))) elm dvlist): U5 R# k6 o4 f
i (1+ i)
& q9 c3 b" D8 @; z; d+ ?2 i
)
! S- @5 T2 E& H x2 N' O$ R) B
)
" G L# d% I# j6 X) X
dvlist
% ^3 O3 r: G% ?- @
)
0 s# P6 D: p8 r7 Z4 q& p! I, y
, o2 U6 o% M6 r5 }& l
;;
$ E$ @7 s/ V7 E: [. b
;; Restores dimvars of the selected enity.
6 S7 [$ ]' E% Y$ J7 E: F/ r
;;
" P! y, V# i6 v7 ~9 `+ I
(defun ddimen_dimsty_restore(/ dimtbl dimsvcurset en)
3 x, P6 W' ? T
(setq dimtbl (list "DIMSTYLE" "Style name" "Standard flag values"/ o$ p5 q2 i+ v
"dimpost" "dimapost" "dimblk" "dimblk1" "dimblk2"
7 ^$ N3 f# s2 c% ]8 s, R
"dimscale" "dimasz" "dimexo" "dimdli" "dimexe"" d$ e% E* i5 c% |6 ~* I4 Q/ U, b! D
"dimrnd" "dimdle" "dimtp" "dimtm" "dimtxt"
, E1 g) g3 t2 e! L0 i1 s7 ~9 q
"dimcen" "dimtsz" "dimaltf" "dimlfac" "dimtvp"
3 c) n P) t, B) v# C
"dimtfac" "dimgap" "dimtol" "dimlim" "dimtih"
& b7 R! _% G+ y3 v* Z& l: w6 e& K
"dimtoh" "dimse1" "dimse2" "dimtad" "dimzin". |; I' d' C8 V: B6 V( _
"dimalt" "dimaltd" "dimtofl" "dimsah" "dimtix"( A% n+ I2 P" ?
"dimsoxd" "dimclrd" "dimclre" "dimclrt" "dimunit"
; t( ^: n0 {: v% F
"dimdec" "dimtdec" "dimaltu" "dimalttd"1 o+ l" w& w) B
"dimaunit" "dimjust" "dimsd1" "dimsd2" "dimtolj"6 j- ?5 u1 }% v, c
"dimtzin" "dimaltz" "dimalttz" "dimfit" "dimupt"
! P6 ], S$ G7 R' m6 w" ?& c
"dimtxsty"! ^& M& U2 Y; `5 W% b
))
% Q- a! v* z2 v$ [4 R8 S
(setq dimsvcurset (ddimen_getvars)) ; Save current variable settings e4 n2 _/ h% k( `
(progn
! c# o7 Y; x# k6 `8 z
(setq en (cdr (assoc -1 elist)))/ M( B( G* K `) m/ p
(command "_.dimstyle" "" "" en)
% @( e+ @8 e9 _8 o8 C
)2 P# ^% {+ v/ m
dimsvcurset
- r/ v* n7 s- s' x; I
)
{! `" _+ h5 ^/ l. O
;;
0 C, [' Q9 }+ G" E0 P) Q9 I
;; Modify Leader1 Y' G6 m* D2 C- h! h4 c
;;
0 [, @( S0 k2 j2 \! x% t& o
(defun ddleader (/ dtypebit blkname bename sublist a stname n dimtbl/ R2 Q! ~ x# q/ m2 n( k' W
dimsty dimlist dimtext svtext dimovr sv_dvlist stlist2 b8 }% i* X# u, W
dimtype dimsvcurset). |) F) P5 M( L: G# c6 D
(setq dimtype "DDLEADER"
5 O: U0 ~9 W$ U4 l+ Z
dimsvcurset (ddimen_dimsty_restore)
$ i$ a Q" p- F8 a, v3 G' k* z$ R
)
9 ^; U0 h" F* q- h
(if (not (new_dialog "ddleader" dcl_id)) (exit))
w( m0 ^% U" e! v
;; Set initial tile values3 s7 l1 f4 S, O. p9 f' |
(set_tile_props)/ j0 l8 E5 X4 d
(set_dimen_props)
7 E7 X' R% `9 e' j, ?& r
(set_tile_handle)
% s3 C" Q, l. P, K' z) V' d! U
;; Define action for tiles
; T# f% J/ B( p
(set_action_tiles)
! S2 {0 n1 i6 \. c/ G9 O
(mode_tile "mod_text" 1)# D9 {2 I; R; ]" P7 e" U" S
$ T" a/ }- t1 j8 ~
(action_tile "mod_style" "(setq dimsty (ddimen_style))")
+ k. x% o0 @2 Y5 n" j
(action_tile "accept" "(setq leadtype (get_tile \"s-s\"))(setq arrow (get_tile \"arrow\"))(done_dialog 1)")& g/ v& Z4 U9 j- b5 e* y8 {, @
;; Get ARROW and TYPE.
% _5 p9 F1 f, V2 J( v2 t) i3 ~
(if (= 1 (logand (cdr (assoc '71 elist)))) (set_tile "arrow" "1"))1 R6 B* B7 q5 p2 n. h4 S
(if (= 1 (logand (cdr (assoc '72 elist))))
# p7 @5 a& _) ?9 g
(set_tile "s-s" "spline")
" `/ l9 w# f& s7 u1 f( r
(set_tile "s-s" "straight")
7 Q: I( Y% N2 z, }+ g0 w- q0 x# q
). w. h* ]6 z" E0 B) s! y& k
;; Start the dialogue.. e! @5 u$ d7 {3 \2 @% P
(setq dialog-state (start_dialog))
* R4 O9 ~$ b% |3 S
(if (= dialog-state 1)
2 v- D" |8 C# G
(progn
& E2 v& Q* C# Y# F6 l
;; update the style+ C' T1 i. q/ F1 d$ B/ R
(if (/= dimsty stname); L+ e$ X* m8 H0 w+ W
(progn
( j# k$ s8 f9 l
; Be sure to add (3 . dimstylename) element. R12 *UNNAMED case f- E" Q( J! p% e, U+ J; X
; doesn't have it.
$ v% R% Z! ^/ T/ j
(if (null (assoc 3 elist))
7 f& i) F2 W, \/ \' s1 v
(setq elist (append elist (list (cons 3 dimsty))))
/ _; i$ S a2 J: ?
; else just replace it.( o! ?. J# u7 [# U
(setq elist (subst (cons 3 dimsty) (assoc 3 elist) elist))
( E3 \% {# y# k* b, g
)3 ]4 `* i: h# z+ r# G
; refresh sv_dvlist with new dimstyle.8 \7 ]5 z" [. I7 Q& p( g
(setq sv_dvlist (tblsearch "dimstyle" dimsty))
d F1 m1 w: b
)
5 B: z: O% n1 [: e3 J6 i6 N7 v# d
)
$ D! a) G! D5 \- G6 `& t$ g' {
(if (not (null dimlist)) ; attempted to change dimvars
9 k* A% }! }/ `+ M3 K* `) `$ U
(ddimen_complist sv_dvlist dimlist dimtbl)! n0 ?5 \. X, a6 o) U
)
( i8 A5 l2 g1 [2 _) {
;; update for ARROW.
5 U5 X& z% K3 H+ m: b
(if (= "1" arrow)7 L1 |' F# M2 L
(setq elist (subst (cons 71 (logior 1 (cdr (assoc 71 elist)))) (assoc 71 elist) elist))" E# {; ?+ B4 w
(setq elist (subst (cons 71 (logand (~ 1) (cdr (assoc 71 elist)))) (assoc 71 elist) elist))
6 r. [' O# E0 U1 F0 {
)* T+ n. T9 |5 g, Q
;; update the TYPE.3 t, M" s0 Y0 I+ S2 K
(if (= "spline" leadtype)$ Z9 z- ~3 ]# y9 T
(setq elist (subst (cons 72 (logior 1 (cdr (assoc 72 elist)))) (assoc 72 elist) elist))
9 ]9 x1 D8 j; x% N
(setq elist (subst (cons 72 (logand (~ 1) (cdr (assoc 72 elist)))) (assoc 72 elist) elist))
7 s. l7 G3 T8 d% r5 A
)
9 q* Y/ ?$ \9 ]9 [; E. L
(modify_prop_geom)# a1 H. ]9 ?9 k: [- }0 Y% _; M. t
;; update the Color' R% X" e. q/ N
(setq elist (subst (cons 77 ecolor) (assoc 77 elist) elist))
& l5 N2 q N0 I$ y
(entmod elist)
/ u- j1 x$ |+ E0 j( y0 |5 ?0 U
)
& `* D/ v1 b `9 y' j2 N/ ~2 S
)
4 H1 f j# }) j+ U5 Z; @/ w+ o
(ddimen_setvars dimsvcurset) ; Prepare to exit
( e( o/ L" P n# Z' L
)
3 o, T V: l! z5 L3 b# Z& z
2 N) }: |6 k& L j F
;;- n' k5 g. ?3 f$ w
;; Get dimvars of a dimstyle with overrides.1 G! v# q$ f" C4 I5 r6 Y5 X0 c
;;1 i- h- U0 k1 a+ }% W9 B8 F
8 `% u) ^2 P' ^0 g
(defun ddimen_getdimvars (dimsty / dimovr dvlist elm i)0 y) i8 p6 Q; W- o
- Z8 J. ~6 S* }1 A( N
;; Get override information for the specified entity., L) [0 H7 i) A0 l1 i: x. m, `( z6 }
;; Leader/Tolerance cannot be restored by DIMSTYLE command, so we8 G# U/ y; N! H6 h+ [8 s, c. v
;; must obtain override information through this tedious operation.
1 X6 f" L! I& b2 o5 L: i
(setq dimovr (car (cdr (assoc -3 (entget (cdr (assoc -1 elist)) (list "*")))))
7 ]3 g+ G x. i& G, t
dvlist (tblsearch "dimstyle" dimsty)0 c9 M* S# A" [8 o, _2 k
i 26 r% p7 l/ ^0 {+ E+ H
)
0 L$ P3 q$ y/ Q7 E2 r) o/ p6 |
% o$ S; D0 j! s/ w2 h) z
; Update the list with overrides if overrides exist.
; c) A) O/ N& a
1 y7 N; ]1 ^6 |3 u0 g( V! I
(if (and dimovr (= "DSTYLE" (cdr (nth 1 dimovr))))
(progn' k- b8 k/ |4 U6 }: J# H y, \6 y
(while (setq elm (cdr (nth i dimovr))). d* |$ W9 A, ^! c$ C' z
(progn/ k3 U' ` l% h
(if (or (= elm "{") (= elm "}"))
4 o% |5 I9 ]- E# d' [
(setq i (1+ i))
6 e3 M# z. M: l- n5 L' H
(progn m+ C6 K7 f3 u
(if (or (and (< 180 elm)
3 K7 ]8 y$ v6 w# U& I
(< elm 190)
& I. n8 k: E$ n5 @
)" {; ~7 G8 W* t6 S; q7 r% K
(and (< 80 elm)
) F1 d- N, _. M K
(< elm 90)
& W: \3 u$ p$ B0 @+ h+ T( J
)/ @6 d7 T. x5 v' q9 l# V
)
7 g3 _% V2 P: B, q" T
(setq elm (- elm 10))/ c4 Y3 Z* ?$ s( c F/ f" ?( I4 I
)2 Z4 y7 c7 L) F0 r( ?
(setq i (1+ i)
0 Q; q( @$ F, X# u" H- E. x
elm (cons elm (cdr (nth i dimovr)))$ s4 Y* o$ ] ?' t! D" f+ d
dvlist (subst elm (assoc (car elm) dvlist) dvlist)
6 Y4 V% J- B9 R# c% r( B) c
i (1+ i)+ ~% G* W6 e x+ X4 T2 o3 x, A- ^
); H: I" \1 R- S* R( X3 N
)) [3 e0 h E3 [9 ]( ?
)1 j. C4 n! P. H0 T4 S# H* [
)
& b: {) u _4 `: X
)
" ^' u% W: |9 K) u- ^$ ]
)
c' F, D8 E s- I' {
)7 B" _4 C, M% Z# Y
dvlist& ^4 m8 ^& U6 H! a5 Z
); Y X; h8 z1 w( x7 P8 ^+ f5 ~
; D' \1 z6 c- X9 F
;;
9 w* c7 t( L* l& x- r
;; Modify POINT6 a1 Q/ @5 @& z+ \
;;+ J8 K* J, \4 g+ h1 ~0 ]
(defun modify_point ()% ?+ u; T8 K% q' A
(modify_properties)
8 [' t9 {# S# D
(setq pt1 (list x1 y1 z1))1 i" \7 H( P0 Q
(tempmod pt1 10 0)( X5 n$ z, B# C2 O4 a
(entmod elist)* M+ B, g$ f1 Y8 U. p( s
)
7 q2 `2 O+ q: F2 j9 d8 i3 w
% M/ L) u/ ~1 ?/ J! `
(defun ddpoint ()
9 D4 {( m4 j$ @
(if (not (new_dialog "ddpoint" dcl_id)) (exit))+ F: \ m7 F9 S/ C, I8 q; ~
;; Set initial tile values) v! a; i( s5 z+ y, X
(set_tile_props)) m$ K r) B9 s0 c
(set_tile_handle)8 D# j' E7 ^( ^/ D0 l( ^8 S
(set_tile_pt1 0)' ~: d. B. L: a# k6 U
;; Define action for tiles% [: U. C2 e( }6 R# {/ n1 f& E( E
(set_action_tiles)/ Q6 _# `* r' Q& a" w" y3 G
(setq dialog-state (start_dialog))+ {8 c9 e- G2 i$ I1 y
(if (= dialog-state 0)1 W \$ h6 n( @) K1 O) O l
(reset)+ f8 |5 O9 u% y4 @0 u, e
)
5 s& x" G3 w3 X6 \
(if (= dialog-state 3)
# N) p: w- V. C! L' K
(progn' i) f4 f* W* F) }# a
(modify_point)
- f; b! u% q: a1 G/ K5 N# Q
(setq pt1 (getpoint (list x1 y1 z1) "\nPoint: "))4 b# c- c, @9 W- `
(ver_pt1 0)! l4 A. M' Y1 E" Z/ I& O; P3 Q; G' ]
(ddpoint)3 P' y% M, e5 T& o! {1 K
)
# i' }7 Q3 K, |
)
* C$ x: d6 C ? h7 Y) m2 V, Q! f
(if (= dialog-state 1)7 E! p2 l% C9 I
(modify_point)
: c( m- c* I* U5 b: u x
)" f/ w8 a1 w ^ v' I
) ~1 K3 F2 ?6 z5 m* _
;;4 g) _4 K2 g# ~8 V4 H8 I% \
;; Modify LINE1 o. { L% \0 B: [& I" d' g
;;+ U, @$ b/ E) e* G0 b' J' ~% h1 ]
(defun modify_line ()
4 W; I \$ Y) i& J; X
(modify_properties)
8 d* s% U! M; c9 d1 `( m
(setq pt1 (list x1 y1 z1))
(setq pt2 (list x2 y2 z2))
0 W* D0 ~5 n: P: s
(tempmod pt1 10 0)
- d# M7 }) [7 v# j) Z, P
(tempmod pt2 11 0)% P( H/ j, _* S& x) s7 z8 t
(entmod elist) ~+ t) p, }, J1 c$ |6 K
)6 J- l. z5 X# E1 u& t) h1 p4 w
(defun ddline ()
' R8 E2 l1 p2 K( H6 \; k
(if (not (new_dialog "ddline" dcl_id)) (exit))
, h! O7 J( s* V5 z% y
;; Set initial tile values
/ ?; S4 A5 `$ H3 Q
(set_tile_props)" v- c5 z. [; O1 C& _1 T6 d4 y- u
(set_tile_handle)
% M" i9 |0 |" r4 n8 q. S
(set_tile_pt1 0)" e2 R! e# x4 y+ E+ G
(set_tile_pt2 0)1 I8 N8 r# q; Q' V4 M' a
(line_calc)7 [" O2 M0 n, S0 b/ c! x3 I/ l$ `
;; Define action for tiles
, f- u( {9 ^, w: h, h$ t% F
(set_action_tiles)% V5 A6 d# }1 n3 a2 }" h
(setq dialog-state (start_dialog))
$ c ~6 U$ v2 d
(if (= dialog-state 0)+ K( A2 G* s: }
(reset); p* ^6 X( U. k" f7 C9 {; I$ w
)1 w. S0 M! C8 v, R6 `# s9 O1 @
(if (= dialog-state 3)0 P. z9 J4 M* V' K8 R% M* S: W
(progn
& `! Y' ]. `$ O
(modify_line)+ `7 E% |# `* R4 ~
(setq pt1 (getpoint (list x2 y2 z2) "\nFrom point: "))
; L* H' g' Y% B3 [
(ver_pt1 0)
' |, l' Q z: m' p: u" l
(ddline)0 | _8 M& V' p" r& l
)
4 A7 G' l- H3 P$ m4 S5 d
)' a7 B& K/ D0 h6 F% V
(if (= dialog-state 4)" I; ^9 K$ @6 j% T4 O! ^
(progn! U' E. \3 J5 C" C
(modify_line)
& N" p" |& \) M+ C) [ K) ]
(setq pt2 (getpoint (list x1 y1 z1) "\nTo point: "))1 s R* D1 ~$ H7 ]% E- d4 m
(ver_pt2 0)
1 v% O, R6 l9 l
(ddline)
# B- g9 D, Z. Z# }$ a( C
)4 O0 L0 k& F5 V. P! |
)
6 J E. @1 ^: R" ]
(if (= dialog-state 1)( @5 z+ P; @# @: }/ V
(modify_line)# f3 K8 e4 d9 k7 {
)
9 O0 l% J K4 a: L
)
% C; Y8 H% F2 p# e4 H T) U$ B- u' O
;;# ~1 o/ G! q" ?4 M
;; Modify MLine o* F% I' U7 a( E. _; J! W
;;
$ r) j, t2 J) C# b7 x a
(defun modify_mline ()
. G+ E; m$ _/ r' q$ _
(modify_properties)
* @- t5 F# {1 g$ E0 I$ J [$ ]
(entmod elist)
5 d1 k% i6 n7 j7 p4 d
)
, B3 p+ E4 V) M0 T6 H1 G
(defun ddmline ()
v2 m- E( q. x% I* b/ l9 s2 ^) m
(if (not (new_dialog "ddmline" dcl_id)) (exit))( j3 x7 z- i! W* |+ @1 c7 |
;; Set initial tile values
5 `5 Y- r: E$ G( ]3 N! t
(set_tile_props)( ~4 N/ m5 c/ n6 w' u. l7 h
(set_tile_handle)0 x1 j& m4 }- {
;; Set mline style text field.
: [. n/ @3 p. h, m; I
(set_tile "ml_style" (cdr (assoc '2 elist)))5 D6 s t- }9 W6 o% \
$ R: t+ W; l; A6 x4 ?, X, G7 |
;; Define action for tiles. n5 E- T+ z+ ?0 ^; G
(set_action_tiles)
0 j) ]% J% }: K/ \. K+ Q' d
(action_tile "ml_edit" "(done_dialog 3)")
' j9 ~& K+ t: V: s
(setq dialog-state (start_dialog))
) Y# v" d) h' k2 v) K- w
;; Dialog cancelled, reset to original values.
5 V4 y- U% |& G7 u9 m
(if (= dialog-state 0)
/ L) e- a2 Y$ C9 `- ]. s X P
(reset)
( B+ m! s8 @+ X7 ?% Y
)5 ]/ V" M- C! t( { `! G$ D5 v
;; Dialog OKed, update the mline.; ]0 q+ S! A* l5 ~2 k( Y5 T4 ~
(if (= dialog-state 1)& B* n: S" \% q# V/ Y; q# H! s
(modify_mline)# }% G9 C2 d% g% V$ Q
)
' r7 D% q- t! G. w* t' j2 e+ Z, @8 n
;; Edit Mline, call MLEDIT.
' {6 N( z" H0 _; y8 g* U* l, w( d
(if (= dialog-state 3)
9 B h7 ^% @3 v m# q- S
(progn
( v3 e* `/ O% Z' _
(modify_mline)
+ R/ @4 h9 f3 p# G2 N( y
(command "_mledit")
; a5 u- M) U- s* `6 m
(ddmline)# m# c# ` L6 V7 k) K2 l
)
/ n2 N1 @; U8 |
)0 {# h9 j4 u( u2 A+ ?0 }! {" x
)6 h" E# {; b- i( _0 ]- U( c
;;
# ~9 I0 a4 ^! D- ~
;; Modify Xline
) b/ k3 k) k# o+ o& r" ]5 u
;;' x: Q7 k. n+ V; o3 X) e
(defun modify_xline (flag)* S8 ?: g4 P* Y8 Q% E+ P2 W
(modify_prop_geom)3 j0 b+ R/ l- t& [
(setq xline_pt1 (list xline_x1 xline_y1 xline_z1))
2 Y- F* q/ j, M! }
(setq xline_pt2 (list xline_x2 xline_y2 xline_z2))
; O ^. |) s3 Z/ Q8 U, P
;; Update the Root point.
! ?4 ^+ p5 `9 f
(setq elist (subst (cons 10 (trans xline_pt1 1 0))
8 P% h/ ^; J |
(assoc 10 elist)
! c/ C$ O, a4 O. b5 W' c, d; E
elist. T1 U2 }3 A/ X' d6 x2 _$ y) Q; t
) p* K- x# Z5 T, b7 ?
)/ e& z2 `( `& D; N+ G" r0 W* [0 M
;;
$ G8 p+ O" r. l4 u
;; Calculate new Direction Vector WCS/ V2 L* ]) }7 N9 E8 ^/ B: O
;; x / (sqrt ( (x**2) + (y**2) + (z**2) ))
8 `0 R' s% d% D! }/ l" M8 c3 i1 Q6 |0 u
/ K0 s+ \7 ]' m! Z" z6 P4 G
(setq temp_dir (trans xline_pt2 1 0))4 W% @- K# _* O, \6 K& ]
(setq temp_dir_x (car temp_dir))
! F3 d( ]7 I8 i( x& t
(setq temp_dir_y (cadr temp_dir))
+ D8 s/ J9 V) ]& L: v6 x2 A
(setq temp_dir_z (caddr temp_dir)), W7 A' u& ^3 N' _
# F Q+ o |1 I1 }* }
(setq temp_xline_pt1 (trans xline_pt1 1 0))
5 e! o) F0 H4 w
(setq temp_xline_x1 (car temp_xline_pt1))
) I" s/ v% r8 b# V
(setq temp_xline_y1 (cadr temp_xline_pt1))* Z3 d8 E6 b% f# }# t4 Z
(setq temp_xline_z1 (caddr temp_xline_pt1))
/ Y1 V4 G4 S; y# w, e
$ g( D8 n# u0 s$ m
(setq denom (sqrt (+ (expt (- temp_dir_x temp_xline_x1) 2)
- p9 |; P7 Y# q% M; T" `: q# e
(expt (- temp_dir_y temp_xline_y1) 2)& g8 \* y4 M( w' `
(expt (- temp_dir_z temp_xline_z1) 2)4 {" G1 ?9 c( g+ x, d
)))
' }* j! i7 s& [8 ~8 }
(setq temp_dir_x (/ (- temp_dir_x temp_xline_x1) denom))" Z5 Y- M. r% A1 z
(setq temp_dir_y (/ (- temp_dir_y temp_xline_y1) denom))
# W- a2 j# l; ~+ Z
(setq temp_dir_z (/ (- temp_dir_z temp_xline_z1) denom))7 m j% D6 d Z
(setq elist (subst (cons 11 (list temp_dir_x temp_dir_y temp_dir_z))
" \, ?; z- }& G* E- `
(assoc 11 elist)
9 A* l8 O1 _( l/ D/ R0 B1 {( J
elist
& f! ]8 d- }: Q2 y
)
+ ]+ i# f3 m0 {7 K" l" h
)
0 Z1 m h2 D# Z9 m
(if (= 1 flag)$ r5 g% j2 f+ _% F: I2 s
(entmod elist). X: Z$ z i0 W, Z: Q% i
)2 F7 X8 m$ W! I& w2 l! F! S
)
; X0 R" S; o& d
7 g2 W9 g& {% x; J
(defun ddxline ()% E) h. G6 o$ i4 I
(if (= etype "XLINE")
, O* c0 ]( e/ D" a0 I+ r& ?' t6 T& s
(if (not (new_dialog "ddxline" dcl_id)) (exit))
0 s. v/ d% E4 J+ L" R
(if (not (new_dialog "ddray" dcl_id)) (exit))
5 A3 @& h3 k7 G( m
)0 i* T8 G5 s- H- j1 {3 J: x
;; Set initial tile values7 R1 _$ m" h7 L
(set_tile_props)" m$ j) ?6 j% \5 a
(set_tile_handle)
+ n- v! Q& V) ^# U( w9 S1 W
(set_tile_xline_pt1)) ^, |; _8 n* d+ B
;; Convert to UCS and post Direction vector.6 r. s- v, f1 z7 U" z
(set_tile_dirv)
) K: W+ M- K* |% _* F
;; Calculate second point by adding Root Point + Direction Vector.
: y4 @! t) i8 _; F* O$ U
(set_tile_xline_pt2)& y( j! _+ |: W
;; Define action for tiles
/ M4 l n6 r8 ~5 n* r1 c
(set_action_tiles)4 @7 K* r- u, l
(setq dialog-state (start_dialog))
, G. u5 x8 Q$ A% Z4 P0 Y! m
(if (= dialog-state 0)
& g5 a+ q" T; |" `0 @9 }
(reset)
1 R9 J2 T2 L# I' Z
)& w: C, ~. Y2 \- x- ?
(if (= dialog-state 3)( ?3 q+ P/ b- I& _: F
(progn$ ]; _; S: U2 P# x4 R" b5 i) }; T3 w. g
(modify_xline 1)
& q9 D/ @0 g- S5 C7 D
(while (equal xline_pt2
! K$ y- I, k, w/ C
(setq xline_pt1 (getpoint xline_pt2 "\nRoot point: ")) 0.000001)
, F# g3 k/ r# l5 m0 u
(princ "The Root point cannot equal the Second point.")
4 f* Z9 G/ O0 d0 U
)
6 A7 Z1 S, S% B% b" [
(ver_xline_pt1)
6 r7 D; @2 i; j0 R# K- {1 K
(ver_xline_pt2)5 s" }4 z0 ~9 Q. X+ s
(princ). l5 Z7 h( p8 |3 p6 a9 i7 S
(ddxline)
8 f" M+ X/ k# |3 \; H7 J9 n
)3 M0 G5 \1 C9 F: B! w
)
U! ?1 Q7 J7 {" o) w
(if (= dialog-state 4)
, `, Q; ]) U% N. c( J
(progn- t% T3 k9 w) r9 c0 G- z
(modify_xline 1)8 s) i1 S1 [8 |" [; R1 W
(while (equal xline_pt1) s& M5 }$ z- U3 c) T) A
(setq xline_pt2 (getpoint xline_pt1 "\nSecond point: ")) 0.000001)+ |* b4 L- g+ `. r
(princ "The Second point cannot equal the Root point.")8 Z* A; Z' S. x5 b1 I( G4 i
)+ P6 }+ J! m' J5 B6 |
(ver_xline_pt2)/ W2 s* f! E/ o2 f" C7 m2 W: s
(princ)
6 i. i- d6 G' Z$ J
(ddxline)
; |4 T! g- T" T7 X# P
)4 W p* V3 c. Y
)' V9 u: r* ]) v) N
(if (= dialog-state 1)
/ ~2 t9 [/ E0 b, L' V2 T d, a
(modify_xline 1)
1 Y4 M2 t3 X% p, B* `' R
)9 r6 ?/ C% E! W3 a" D( {( S9 \7 M
)% Q* I6 C/ K5 {4 g6 _
;;
a0 S$ @6 G! V: t
;; Modify ELLIPSE' m- F+ x$ X* P, n
;;3 c, d. |# v1 E" {+ [- \. k
(defun modify_ellipse ()5 ^4 k% C) }1 l8 u
(modify_prop_geom)
) M7 M$ K2 m1 x0 J8 x E
;; Update Ellipse Center Point value.8 J+ y9 p6 T3 T/ ?% g
(setq pt1 (list x1 y1 z1))1 G4 `: F: N: ^6 ]. a* Q+ p
(tempmod pt1 10 1)
1 `' c ?0 o3 M; K* b
;; Update Start Parameter value.
. a, K$ v: z" _1 D L A1 E
(setq y_val (sin st_ang))6 }7 ^6 V1 J" d, X" U
(setq x_val (* rrat (cos st_ang)))
$ O* X1 {( l4 z: M
(setq stparm (atan y_val x_val))9 t4 L1 n+ z9 N7 J8 [7 l* |) b
(setq elist (subst (cons 41 stparm) (assoc 41 elist) elist ))! T/ g' { D! ]0 n6 m9 F& [/ Y9 {
;; Update End Parameter value. Normalize it, if it's less than
& B. x3 t7 O1 Q
;; the start parameter.
! l H: s n; y% r. Z' J M4 X
(setq y_eval (sin end_eang))/ T% n3 Y/ M9 Z5 Q; i0 v& z1 b+ U
(setq x_eval (* rrat (cos end_eang)))2 S0 X5 r8 v2 }4 I- X, u
(setq endparm (atan y_eval x_eval))
* Z5 Q, i Z# ~& n
(setq diffparm (- endparm stparm))1 N( w0 u1 o4 A7 T' ]9 r: v
;; Epsilon of 1.0e-6 radians for checking a zero length arc.; b8 i* }+ W8 [
;; Since zero length arcs are not allowed - construct the full
; v$ A1 I' J' Z6 H9 X% b0 |1 p
;; ellipse in this case.
1 n4 | u8 Z: P, a: t- b
(if (<= (* diffparm diffparm) 1.0e-12)
0 ^: d5 C) Z+ g5 A- a2 e
(setq endparm (+ stparm (* 2 pi)))
$ ~: v8 `, E; K3 z1 o: V( d* Y$ ~8 V
)% ?0 l) Y* l" i$ `+ v
(if (<= endparm stparm)
( Y1 s3 I* i7 S& F; J6 L# L" w9 H
(setq endparm (+ endparm (* 2 pi)))
( L% x. Q' [' u4 J* V- v# E. d
). Q% i& M l* e# e
(setq elist (subst (cons 42 endparm) (assoc 42 elist) elist ))+ M7 G( {. @& K! [9 J" V& ^$ d
;; Calculate the Major Axis Vector by first calculating E: r8 s9 z' u+ j8 y4 o9 w
;; a unit vector using the old Major Radius value. Then
5 `. x. C1 Y9 I' _
;; Multiplying that by the (possibly) new Major Radius( i+ | f6 ?5 v
;; value to get the new Major Axis Vector value.
7 `6 Q1 e& N* ]0 K) G
(setq unitxx (/ xx old_majrad)) k$ W& |5 H* u# o
(setq unityy (/ yy old_majrad))+ {+ m" w c5 \5 P/ f
(setq unitzz (/ zz old_majrad))
: A/ z9 N6 O+ j6 x2 l! |# X$ n
(setq newvecxx (* unitxx majrad))
8 e( o: E( M+ j0 E; e8 n
(setq newvecyy (* unityy majrad))" D" X/ U0 ~0 T( a T
(setq newveczz (* unitzz majrad))0 P! ~& J6 B$ i2 f# w+ p! ?( e
(setq newmajaxis (list newvecxx newvecyy newveczz))! k) g( j: ^8 R8 s! h. e* s3 d+ I% N1 S
;; Update Major Axis Vector value
0 I3 b* R' g, U2 `8 k
(setq elist (subst (cons 11 newmajaxis) (assoc 11 elist) elist ))
4 }6 h) T) V9 G4 _
;; Update Radius Ratio value
( n u/ t: E1 [& a
(setq elist (subst (cons 40 rrat) (assoc 40 elist) elist ))
& ~3 }* ~& M) q6 w
(entmod elist): S L& ?5 Y& A/ A4 e5 @# z. _
)6 U) N3 _/ `. c7 b( C
C9 \) W, Y4 F
(defun ddellipse ()6 O7 F2 d' K1 S3 G* t: b: R( H
(if (not (new_dialog "ddellipse" dcl_id)) (exit)), _, t. z( v- ^$ g8 Y
;; Set initial tile values
$ A. @7 E1 e! s0 X" [" o
(set_tile_props)# ~( r: H$ o7 n4 J ]* W4 X8 o5 P
(set_tile_handle); D3 b+ W( X* O. k0 ]2 S
(set_tile_pt1 1)3 `' R0 t$ `- h% u$ U- {
(ell_calc)
, _; ]% Q2 r* u
;; Define action for tiles+ a/ O; U. J- c" {/ [6 f
(set_action_tiles)
" r7 Q, ~5 l7 v5 ^& m$ F$ k
(setq dialog-state (start_dialog))
1 V% j' y! n" b
(if (= dialog-state 0)- q: F0 K; r' ?5 p/ n
(reset)2 A$ O/ s0 ~: {0 f3 a( c9 a( }+ Y
)
1 Z' T) X# Q% ]9 b, p
(if (= dialog-state 1)& z5 z. I/ B. ~0 e
(modify_ellipse)9 I; U3 z' G6 n+ |$ J4 C1 @
)( d: p: Y% z6 B
(if (= dialog-state 3)( N0 S$ S0 ~9 c% R( P
(progn
K: T g0 E% S) K
(modify_ellipse)
& L# T8 I$ Z1 y' u
(setq pt1 (getpoint (list x1 y1 z1) "\nCenter point: "))
" E) u8 H: _6 f p3 \ b; O
(ver_pt1 1)1 A; C) ~5 p) j* ]
(ddellipse), B6 M( f7 Q& L3 }0 C
)/ T Q& m5 k* _9 W0 v5 j
)
9 }0 ~, W1 z' ~
)& h4 Y# H+ V: w$ J- J9 g9 G5 R
;;' [1 r5 p9 I# {- e. T d) K; [
;; Modify REGION4 f- R) H. @. R3 ^( k7 q
;;( b7 `+ W/ W" f, K* a. v
(defun modify_region (), N8 }. S# T# j: H/ C7 ?/ i
(modify_prop_geom)
3 \( U" F* n" K0 y8 t- l# m5 N6 t
(entmod elist)
+ e7 p8 A/ q3 r( L
)2 Y# W, {) \! e* l* A0 v5 o+ @% g8 w
) {' }# q3 T8 O$ f
(defun ddregion ()0 H. G5 H( {% I+ x, ^
(if (not (new_dialog "ddregion" dcl_id)) (exit))( r. N9 i/ [$ ^: Y2 i
;; Set initial tile values* m. v3 F" i) I z& i/ x+ z4 V
(set_tile_props)+ X3 i- B9 b$ o# R4 [" U
(set_tile_handle)
* z) g o( Y( B" I+ ?' I% ?
;; Define action for tiles
3 @' j3 J6 A5 p3 V$ r4 W# T; D
(set_action_tiles)# e: Q8 y$ U/ E+ J: A( ~
(setq dialog-state (start_dialog)). J/ P, v, o& z2 r
(if (= dialog-state 0)4 S' f! ^& ?/ u- P! ^/ }" W0 }: Z1 ~4 A! Q* C
(reset)
\+ o- e- u0 v3 H
)
7 K! V/ e8 @. R$ O2 N# k! ]
(if (= dialog-state 1)# H4 K+ [" d. ^4 b
(modify_region)
" N7 `: g/ ?" S' I a( m
)6 C1 _6 n) Z# H' G; D* u- U2 s
)/ S& A0 T1 k$ j, K) b
;;2 Z- M' n% ]7 x: a* B2 G9 `
;; Modify 3DSOLID/ \' e" Y5 Q n5 T7 n5 W. x. ?7 l
;;
" y! V7 H4 B- m+ p& t& R2 q5 V; r
(defun modify_3dsolid ()4 S1 G% f7 E# h1 j
(modify_prop_geom)2 l( }$ m% s' ?
(entmod elist)
# V5 _& ]3 y) h- b2 S9 q6 p
)6 s" S# L% v4 }% H. y8 x8 }
0 M) P+ x5 C& y1 X* Y; }% e
(defun dd3dsolid ()
9 p( Z7 U0 [' D3 M) ~" n
(if (not (new_dialog "dd3dsolid" dcl_id)) (exit))" b8 i. ]2 S: x$ c2 J6 A$ T
;; Set initial tile values' O4 w9 C) u8 D: g5 q9 x) G! r
(set_tile_props)
" b- M/ X0 z) e% k8 c- b. O0 H
(set_tile_handle)
4 R; i T5 ~) e- ~1 m
;; Define action for tiles" Z# h& D9 S% p
(set_action_tiles): a# d& y$ s: p8 i
(setq dialog-state (start_dialog))
/ y' j7 G$ X4 Q# Z# p" B. g' P
(if (= dialog-state 0)( `6 i! V) S% p0 }1 J
(reset)
$ @1 a5 Q$ y4 ~7 ~' O
)
* ^8 k/ R9 q& T- n& I
(if (= dialog-state 1)6 _- x* S$ V! u j
(modify_3dsolid)
; S0 d% z1 w5 g2 W* Q! {
)& y9 R- z7 M- b& i
)
' ]! S3 @) j: y" u- W
;;) E+ T, W* ?9 ~0 w' M8 h
;; Modify AcDbHatch
4 i& U, r, D+ C0 t5 ?
;;
p) `" y9 Z& o2 u5 r* {, U
(defun modify_hatch ()' Q0 v y: G* P. K9 U
(modify_prop_geom)7 b( y& o4 Y! p! H6 r
(entmod elist)7 }, Q: x: L5 q, T* J/ ]$ p9 M, Z
)
. Q5 {+ {% B% E8 T
3 P% [& j3 S- U. X
(defun ddnewhatch (), n5 S3 M* u# @8 V' r+ H0 [$ ]: t- z
(if (equal hatch-elist nil)
# F5 _4 j. V# l5 `# E* Y8 G
(setq hatch-elist old-elist)
. y8 D. K O" n: |$ s' Q& a
)$ G g2 ]5 i2 j1 w% I. S1 H
; i2 m2 |1 z5 V3 x# W- ]% b
(if (not (new_dialog "ddnewhatch" dcl_id)) (exit))
3 x ?, l0 V, m: F; v, ~
) T* W1 d1 A' l! C6 A/ Z6 r
;; disable the thickness tile
: n! m% j1 `/ i7 N
(mode_tile "eb_thickness" 1)
; z, z- Z( Z3 M: z$ W0 B
(mode_tile "e_thickness" 1)
: `: I5 A& D1 f+ `) m7 i4 n( [
- d9 r; z1 Z& s9 M1 V
(setq help_entry "modify_associative_hatch_dialog")
$ e% W* g& l0 v) g0 v! N& n
(set_tile_props)0 e" o7 A: N# U0 C* e4 _4 |
(set_tile_handle)
* R$ L8 _' Z* b
S: _- K2 X4 C( b# R* y
;; Define action for tiles
+ A% `; y0 k% r
(set_action_tiles)7 K3 e: h4 e: o# }$ v0 O$ A/ ]# U- O( H
(action_tile "b_hatch" "(done_dialog 2)")
# A6 P5 R' X' l1 _6 N7 a
(setq dialog-state (start_dialog))6 e `4 }; |1 b# i
(cond
q/ T) w! Z2 M
( (eq dialog-state 0), z2 B) _1 f& s1 `9 B+ W1 W
(setq old-elist hatch-elist). e' w3 o4 q+ p, I1 @5 F* A
(setq hatch-elist nil)
* Y, Y5 B; `6 Y& q+ d
(if (= (checkforlockedlayer ename) nil)
& o0 V. w7 N2 R/ t$ b
(reset). u5 _" ^ C( x' ?) m% w! o
(progn ;;; special handling for locked layer reset: L& m& g# ]! b6 n1 M: J, J
;; unlock the layer
+ K$ M, p- \% a1 x( v* i
(setq layername (cdr (assoc 8 (cdr (entget ename)))))0 r1 N9 A' R) Y9 _
(command "_.-LAYER" "_Unlock" layername "")
* y0 P* q- h- Q9 D
;; reset modifiction
: i+ J6 X% s) I' g
(reset)/ r5 T$ i( \2 X* c. s
;; lock the layer again! v b Q. Q: c& ^7 C; X1 j$ Q
(command "_.-LAYER" "_Lock" layername "")6 N" }( a% b1 s1 ~
)
( L- {% `" T3 L5 @
)
2 v" M' t0 A$ C+ }
nil ;;; makes (ddnewhatch) return nil for Cancel% s3 n$ i$ E0 p
)8 v" c; Z- w# I+ W+ `" t& N: @/ y& z
( (eq dialog-state 1)2 X) \( Y/ ?0 C% W$ D Y; L
(setq hatch-elist nil): j5 U/ D D7 h% ^" \
(modify_hatch)
2 `8 g9 {$ L3 x# T& q
T ;;; makes (ddnewhatch) return T for Ok
6 G- Q3 C$ N* w! Q7 ]! D
)( C2 N8 \7 W* J. } _+ U7 X8 T- x, r0 y
( (eq dialog-state 2)
3 z2 t0 C# R9 z- J
% @6 J1 V* j$ a& x/ ?. y6 B
(if (= (cdr (assoc 70 (tblsearch "LAYER" elayer)))/ k3 g7 j$ D. T J! i7 Q
4& O& s( |* r6 K6 b! g. R8 C
)
) @) i+ f4 f5 |* O! A
;;; new selected layer is on a locked layer
, z3 A" B4 q" g7 s- z! J; S
;;; we can simply modify the hatch properties4 j1 }) b1 f' t9 M/ x6 f
(modify_hatch)/ j/ B" `& o% E% B, c6 |* F6 N
(progn7 h6 u. G+ E/ R- {* I7 q
(if (= (cdr (assoc 70 (tblsearch "LAYER" (cdr (assoc 8 (cdr elist))))))
; Y% C. l& O _' G
4" a9 R1 ]+ ^; q
)
4 r* h9 c* z7 q W' Q. P# v% [
;;; We changed the layer previously and now the hatch lies on a locked layer.( ^) Z/ q: S: d% S
;;; We have to unlock the layer forethat we can update the hatch properties.+ W: `0 \9 Y. F& c+ b
;;; If we don't do that (entmod) fails to update to the new layer.5 ~+ V: N3 S; l: [
(progn$ R7 l Y/ S- K6 k! {/ d
(setq layername (cdr (assoc 8 (cdr elist))))4 m) E0 P3 D* }6 A( N2 n
(command "_.-LAYER" "_Unlock" layername "") ;;; unlock the layer5 K- R9 [2 ]4 N8 M& X, E
(modify_hatch) ;;; update the properties Y r' `: j# o7 w
(command "_.-LAYER" "_Lock" layername "") ;;; lock the layer again* O1 u# X8 K% t A0 x- }
)( I4 U2 L" j% Y. u6 \1 y
;;; All other cases we simply update the properties" M K9 P. w* s. t' `3 t
(modify_hatch)
`/ R% x! [( V9 ~ u6 K$ M6 z
)
7 o4 b2 Y3 ~5 {. P- F$ t+ k
)/ F0 ~5 K& W a- [* [0 X B/ q& y
)
2 z& e: R6 E& ?: t
(if (= (checkforlockedlayer ename) nil)
! `2 Z) {( R- N2 ~3 o. F/ h
(command "_hatchedit" ename). k9 ]" j5 u3 P. H! `" W
(alert ;|MSG111|;"The hatch object is on a locked layer.")8 u6 o; s8 E$ o" y& {8 l
)
% D8 T. e- Q q0 l* i. M
(ddmodify ename)9 ]! j1 H3 y; e( C0 _" h* S
)
5 ?; R# }0 U5 X5 G
)
5 b8 ~3 s( B: k, Z6 K. A
)
8 j( }3 e ?3 A( i! h3 [# Y
;;! U' L/ J* o" S, x0 \
;; Modify BODY5 L9 r2 u8 r" ]: H0 }, t2 G
;;; v7 m0 c, s2 F4 m; b0 ], J% y
(defun modify_body ()
; y9 F: Y7 @1 E, D) @! h9 H7 p
(modify_prop_geom)
# Y% o; T) }( h8 N% ]% e
(entmod elist)4 @, t: y) {' B' y
)) G4 ?6 ?9 u' G$ U7 W+ E
% t- \4 d7 J1 `$ w/ Y$ r e$ _
(defun ddbody ()6 b5 c" j& l4 b ?5 ?' C5 U
(if (not (new_dialog "ddbody" dcl_id)) (exit)). `. [* o" H8 {' x* L
;; Set initial tile values
8 b, \2 a9 O- U V7 w- a2 x8 e) `0 ]
(set_tile_props)# D1 [& ~5 N5 x; G% x- T# w
(set_tile_handle)
+ H3 W0 K7 ^$ D' ?! Q i
;; Define action for tiles4 R* l" w, ?! o7 u- z6 B% w0 V
(set_action_tiles)- c/ l# Y, |5 q0 j" M/ m* f7 b
(setq dialog-state (start_dialog))
4 t0 _0 d- F4 s$ T7 G$ `
(if (= dialog-state 0)
* y8 i, {8 p. \; W3 m* v1 D
(reset)
% k+ R; ~3 \$ ~$ c, L
)
4 ?1 Z9 U& Y. X0 g# t
(if (= dialog-state 1)
6 o$ @: k" S& u
(modify_body); c$ {1 Q- Y( G7 {4 [" r
)
" i* s/ A3 Q3 [
)
% J! B4 B" _- E
;;
) i- X1 x" B0 M
;; Modify CIRCLE# M6 b' k; s5 I; N8 g
;;
% Y1 j; }/ M( Y+ U& ^
(defun modify_circle ()
. x+ _4 |& Y# @$ J# k6 U
(modify_properties)
7 u5 g% @" D$ h3 [) O* Q# N
(setq pt1 (list x1 y1 z1)). N: N' Y0 a+ }" a* F7 h
(tempmod pt1 10 1)
3 o$ p0 |6 `6 L6 x1 ]% X+ L
(tempmod radius 40 nil)
7 v3 W3 ]" z* M) q
(entmod elist)) D7 N/ ^. g' h0 X a. @. w
)
+ U) U6 N& g& `
9 q4 \+ t8 {$ f/ i3 |! t5 g* C
(defun ddcircle ()
# y, _7 V# K. |/ L) o2 T
(if (not (new_dialog "ddcircle" dcl_id)) (exit))
/ d) Z. s/ a7 Z/ e6 a, B# o" k4 l
;; Set initial tile values
6 @, z! o ^" A& I+ u
(set_tile_props): Y+ y d+ d9 c$ I$ a3 T1 b0 c
(set_tile_handle)
0 q0 |' {5 [ K
(set_tile_pt1 1)1 y6 A; b: K! D7 {, n+ y' T+ i% T
(set_tile_rad)4 A8 Z7 K9 [- }- u0 }# Z
(cir_calc)
1 h4 V& c# j; W
;; Define action for tiles
$ Z, u5 \5 j" T; H& x2 V
(set_action_tiles)% C" v# X: W, c; E8 a- O
(set_tile_pt1 1). r8 Z/ B* V, \9 V0 _/ P! y3 K
(setq dialog-state (start_dialog))
9 V: n4 ]7 @2 V3 @7 b
(if (= dialog-state 0)6 `- N/ m( _% A, S- P0 {. @- e0 I/ \
(reset)2 L2 H0 h0 P. X. r
)$ M& K* L$ F5 U3 @3 U$ v8 |% l
(if (= dialog-state 1)2 @/ n, w4 N0 x( U6 w' X8 C! B
(modify_circle)8 G6 i8 z$ m0 c+ k- U, b
)
- T3 x5 Y0 K* B! Y3 H
(if (= dialog-state 3)7 J2 y, ^( B+ a$ k
(progn
! z6 f: w% ~, b$ v3 \
(modify_circle)
# L1 \2 C' |2 H T, j; p
(setq pt1 (getpoint (list x1 y1 z1) "\nCenter point: ")); }/ b* a2 a$ T. E' g1 L$ e
(ver_pt1 1)
1 _! p) E5 F! v% U- I) Q
(ddcircle)
$ p' y; [% U @! W& U ?
)! m) W! |0 G5 O3 z" W, @
). X9 o4 n9 s9 A- ~2 N
)
7 P3 |: I. X! Q% z
;;! ~/ ]3 d0 h% n9 c
;; Modify ARC5 g( v d3 \/ t/ t7 P9 F
;;% O' M2 P, W4 l
(defun modify_arc ()
( f0 Y2 Y0 ]/ J# \1 m
(modify_properties)! N4 X5 t" z! \ Y
(setq pt1 (list x1 y1 z1))( t4 I% y1 `" {5 Q! l) y" U
(tempmod pt1 10 1)
: n1 O/ k- E: M0 `( F
(tempmod radius 40 nil)) o( e- ] W' A# f! B
(tempmod st_ang 50 nil)' j ^7 i% Q! |. u
(tempmod end_ang 51 nil)) f( n$ y( h$ Q' O4 P$ @+ {" o3 `
(entmod elist)7 Q; ?' k! [$ w. Z
)
" H: E8 y1 ^+ i: _2 k
(defun ddarc ()
# s: s# |0 W; ]. W& I! b
(if (not (new_dialog "ddarc" dcl_id)) (exit))
0 K# h5 R2 B! f! V4 ^$ g
;; Set initial tile values3 E) u8 i4 ^( k6 E7 d9 Q
(set_tile_props)1 R6 |. l( Z- l- N" p
(set_tile_handle)
2 S1 |2 e1 A5 B |
(set_tile_pt1 1) U% f( R0 S: }" R; M
(set_tile_rad)
. G9 h7 j4 G- k" O
(set_tile_stang)2 i+ }( N, B! f( ^4 `, p
(set_tile_endang)
' d- |/ A5 Y. S; G2 ^1 P. r+ D
(arc_calc)$ l' v* C9 s! D# {1 K
;; Define action for tiles
, t3 U- \5 E3 `+ Z I# s% D
(set_action_tiles)7 ]. \+ c' S$ Z# I4 y' O
(setq dialog-state (start_dialog))7 }0 e0 V: [6 O& d4 Y/ t c
(if (= dialog-state 0)- H) r5 b% X' t: H+ \! k- R& r8 K
(reset)
; n% d# m: T& x( j
)0 c( V d% J1 i( \" O$ M
(if (= dialog-state 1): J8 c H% h3 q& ~( H5 z/ m# L, `
(modify_arc)
' w- c6 A3 K: ~
)
; y7 u5 |* m+ n, x. w
(if (= dialog-state 3)
, P3 {3 j6 J& V8 E) z' b. g' o' G4 a
(progn8 ~) M- R& S" d3 R
(modify_arc)/ ^! y, j: a8 c3 }! o' f* W3 j8 u) g
(setq pt1 (getpoint (list x1 y1 z1) "\nCenter point: ")); J+ @! G" w2 b% `
(ver_pt1 1)
& e! Q3 C$ J7 x( V5 Q# a D7 H
(ddarc)
7 S3 C; @7 C7 S1 X* M+ x8 y0 H% p$ v
)- ]2 v# m( s4 j& E% i& X
)
. ~8 x( f4 I/ z; ?3 x
)
# G$ V8 D3 [/ I1 v) h" \7 f+ p9 A
;;1 L5 B5 A) K5 X/ Q, D+ G
;; Modify SOLID or TRACE! o- [1 a) `0 P, ]4 ?. W8 h" U$ x. |
;; Note the Z value of the object is determined by the Z value of the fourth8 o! C0 x9 F5 v4 k2 ?
;; point - code 13. Changing the point values of a solid or trace from a UCS
9 _; C3 P! P: c& t4 [: X4 x& W
;; that is nonplanar to the UCS the object was created may confuse the user.
9 l; C8 g1 q2 R4 n( N5 e4 s
(defun modify_solid ()
9 `7 Y9 ]# W/ p6 \: P
(modify_properties)% `- ~# p7 I5 ^
(setq pt1 (list x1 y1 z4))# U5 }2 G3 Q$ T8 V6 @1 V
(setq pt2 (list x2 y2 z4))
' O* W4 D. e' }& k7 ~
(setq pt3 (list x3 y3 z4))4 V" _( ]; H" {
(setq pt4 (list x4 y4 z4))
. ^: X3 l5 f2 H' S ^
(tempmod pt1 10 1)
# [' U; t% w! s) X. a% m
(tempmod pt2 11 1)8 k$ A; S0 a6 E! P3 ]+ b2 ^
(tempmod pt3 12 1)/ |7 z* w0 D, g- V [
(tempmod pt4 13 1), ?9 N6 D t- B/ r9 I' t, y# O
(entmod elist)
- z2 n* t: M) C5 N7 V; Y: \8 I
)
& C; @2 W7 @$ ^4 p/ H/ x
+ k3 P, p! X5 w" m# X H+ q7 A
(defun ddsolid ()5 v, O9 q" I- x1 e* g
(if (= etype "SOLID")* b+ h+ b! ^+ n, v
(if (not (new_dialog "ddsolid" dcl_id)) (exit))2 s4 X7 K' |3 X4 [0 \0 _6 V K
(if (not (new_dialog "ddtrace" dcl_id)) (exit))& Q0 s' \* g* p: n' q/ ^
)
: P6 l8 ?8 I B5 K! ~
;; Set initial tile values
# |$ Z! j4 d/ O$ P( s! v- ~
(set_tile_props)
2 J6 [" m2 a! t* F" c9 X
(set_tile_handle)8 l7 n' {* C5 y
(set_tile_pt1 1)- q3 i$ d/ j6 p0 j, t
(set_tile_pt2 1)
( ?: Z" M. K1 O
(set_tile_pt3 1)
1 y" B0 }4 h5 `3 @5 X% W, L
(set_tile_pt4 1)
+ Q f1 ~! v3 \" P, ~
;; Define action for tiles: t) ^% C3 O' z+ m% d0 r4 L2 E* \* h
(set_action_tiles)
x' U/ D% S! d3 l& t
(setq dialog-state (start_dialog))
% b' T0 f# \# U" N5 S% I! X' f; e
(if (= dialog-state 0)
# u- u1 ?# n% {2 |& Z4 D* |: U
(reset)% @8 h7 h8 n% Q7 }
)
+ x% `- X5 p1 T9 k* g
(if (= dialog-state 1)
" b5 z, | Z9 M* L& G) {" `
(modify_solid)
3 Z U& e- H% m) A4 J( y
)
9 K% O: x2 U6 T9 U# h4 _+ e
(if (= dialog-state 3)* d7 D& H7 f& R5 ^, E6 Q
(progn6 F! z( R$ t* v, g- @
(modify_solid)
- A1 T) |0 O6 ^4 f) v* {
(setq pt1 (getpoint (list x1 y1 z1) "\nFirst point: "))
7 [0 p7 v" P; n; V5 u3 Q
(ver_pt1 1); H$ m# U7 ?# S/ y- l
(ddsolid)1 ?0 p* A" R1 J. e4 b
)6 B* c. y9 M. n* K9 I0 S
)
, D" o' X7 A, |- h; R
(if (= dialog-state 4)
0 S1 R6 X1 D$ D- j1 J0 x: w( R
(progn
6 N( u6 ~" H3 N; `9 l$ d
(modify_solid); w# S5 G6 [8 q+ d5 r9 @
(entmod elist)
! i! t- \) v3 s2 d% [; k, X
(setq pt2 (getpoint (list x2 y2 z2) "\nSecond point: "))7 @* S4 k# O+ C; e5 V
(ver_pt2 1)! |7 h% I5 m/ A: t6 h4 q$ x$ l# _
(ddsolid)
1 u+ N: D* \- A/ ]* A ~
)
7 X) }7 {9 D6 X, N& ^3 [6 |& e/ V% m
)
4 z3 T- I7 o6 T
(if (= dialog-state 5)
; L. Q$ j8 Y+ }& ~2 E$ W- w/ y
(progn
' p/ q! W) G" V$ e
(modify_solid)) [8 H6 x# L7 b$ u m1 N: ~) l
(setq pt3 (getpoint (list x3 y3 z3) "\nThird point: ")); q+ T* [4 I( t$ Z6 c4 `
(ver_pt3 1)
7 O! R: R C+ D' ~ E7 ^( G7 {
(ddsolid)' P: y+ F. i0 N1 j3 I, G
)
c- ?4 I2 n! y, N3 U9 n
)
$ k! W: A) d3 z+ J$ S( p5 _
(if (= dialog-state 6): S6 y6 V7 V: m7 n1 |
(progn
! p/ g/ ]- q0 C" j# U
(modify_solid)% k8 c" W2 q& x. F: M
(setq pt4 (getpoint (list x4 y4 z4) "\nFourth point: "))& u+ l# r: q" B
(ver_pt4 1)
# k6 ~) j5 j2 a! F4 ?% F% {
(ddsolid)
$ @# U" t/ L1 N: e( Q" \1 H
)3 X8 X' [8 `7 y9 x
)0 N; h; E7 c7 s7 I
)
3 F% z1 i9 t0 {3 Q# I
;;
8 S: U/ W6 J( C0 l4 H
;; Modify 3DFACE
* i+ y% J0 M) R2 l1 I
;;3 u) n8 ^6 e* h0 _5 X, N
;; Check visibility of edges
& h$ O3 ~6 D8 Y d6 ~
;;
# S- y$ ~* {/ b$ C |0 R& ^6 U
(defun edgetest (/ bit1 bit2 bit3 bit4)
3 i# j3 ~) o5 b
(if (= edge1 "1") (setq bit1 0) (setq bit1 1))
, |7 C$ `) `! k- W8 b; e
(if (= edge2 "1") (setq bit2 0) (setq bit2 2))8 F5 D* l k) K& J5 J
(if (= edge3 "1") (setq bit3 0) (setq bit3 4))$ f) ^- M: _ c
(if (= edge4 "1") (setq bit4 0) (setq bit4 8))
/ k/ }! c7 ~( i! L7 Y
(+ bit1 bit2 bit3 bit4)% Q8 K! [. k1 g$ D; N3 w' I k; T
)
" s" h+ n; q2 W: B
8 T0 y0 t8 T; K$ g: D6 V; k! r' }
(defun modify_3dface ()
! [' I3 ? Q$ ]2 E- o6 K
(modify_properties)
6 Z+ t0 ?6 F7 s! @
(setq pt1 (list x1 y1 z1)) q0 u4 j1 |; p s
(setq pt2 (list x2 y2 z2))
/ {3 [+ ?3 c* p& } n4 Q1 c
(setq pt3 (list x3 y3 z3))- S. s/ U! L7 L5 E- `& _+ m
(setq pt4 (list x4 y4 z4))9 y* Y9 ^ h/ ? j2 @
(tempmod pt1 10 0)
2 A9 W9 m6 A) {6 q# l" e# S
(tempmod pt2 11 0)" f8 o8 U2 x5 U" U) q, m- ^7 j
(tempmod pt3 12 0)
8 B: t: l; k* r8 d
(tempmod pt4 13 0)
; z7 Y! H c* K- b( D7 _
(tempmod (edgetest) 70 nil) q) X! t Z6 D7 G' v" ]* J c# L" A
(entmod elist): }0 L; k% z9 e& i. W2 r1 m" T
)
" P' Q+ e& x& z4 [
4 G" O! o3 e: t
(defun dd3dface ()$ v4 n. d2 d! o0 V# M4 b( T
(if (not (new_dialog "dd3dface" dcl_id)) (exit)): K3 J5 j7 N; k! z/ l
(set_tile_props)- B5 N$ }& z: y6 j+ m9 L4 U
(set_tile_handle)
: s1 h3 t/ A! [; d$ T/ @! Y
(set_tile_pt1 0)
(set_tile_pt2 0); Q" _ r6 j! s2 d2 M. s4 \+ Z& @3 q
(set_tile_pt3 0)
* p o+ {7 W- S) \
(set_tile_pt4 0)
2 {8 L- ~; R2 }9 f! r- n$ ~2 m
(set_tile_edges)
. ?8 J* D* k! v
;; Define action for tiles& r& O( @, Z& O
(set_action_tiles)
8 q# a ^2 T; h4 p5 z
(setq dialog-state (start_dialog))! R* z, Z5 Q$ m. F% D) V8 j, _
(if (= dialog-state 0)9 A: N m' L/ V. C" v: ~5 l
(reset)2 G- o0 a& } x R4 ^5 f
)5 i6 C, d$ a! @* _
(if (= dialog-state 1), m6 z: V* g, O$ f
(modify_3dface)
! f1 J. V7 z! K; k& n
)
2 r$ g l2 m* S+ t" L
(if (= dialog-state 3)2 J: T4 n. L3 s; n: i% E+ D, Z6 v
(progn
+ }0 m2 J0 b$ S& D# z
(modify_3dface)
# |; ]! k7 u7 @ A+ r; f& l: i# l6 P
(setq pt1 (getpoint (list x1 y1 z1) "\nFirst pt: "))- Q' `4 e! L! [) V
(ver_pt1 0)
$ X! I. a5 _ l7 _0 w" x
(dd3dface)9 t1 K ^& O6 ?* |" k
)
% }* |* c9 ^/ s+ t) D% w
)
( J3 u( L' U" Y* K
(if (= dialog-state 4)6 ^7 x9 b2 f: |' F7 D3 L6 X
(progn0 c# c8 M* B8 e9 i3 U
(modify_3dface)
4 Y- \5 @3 U1 w# F( v5 @6 s
(setq pt2 (getpoint (list x2 y2 z2) "\nSecond point: "))) U% ]" o2 Z9 C1 Z
(ver_pt2 0)
9 i# t6 y! c \' K, t1 u
(dd3dface)/ E* I7 C! k; }1 Z" C/ {
)9 z' K0 ?# t7 r7 d. P( u2 W
)% Y+ t# X; D* n7 g! N6 f" y
(if (= dialog-state 5)- `8 c+ \. o) _/ D
(progn
. c; N# x7 d, A
(modify_3dface)
! M# d) j- m3 H. x3 Z
(setq pt3 (getpoint (list x3 y3 z3) "\nThird point: "))
( S: M3 Y* k: v$ B" y# R* W9 F
(ver_pt3 0)) a; ]% e ]. I) |- _' y
(dd3dface)
- `4 @9 \, r5 C& x& v
)
0 N5 O0 l' u9 P! z# W
)
" E' T3 f/ D1 b0 P
(if (= dialog-state 6)& [% _% e- Y2 _; }: V* D
(progn
! {0 G1 k j) R/ W( `' ?, y, k7 ~# B
(modify_3dface)1 ~5 W Q" T* H# ~% W* q9 P
(setq pt4 (getpoint (list x4 y4 z4) "\nFourth point: "))" g$ a; |7 x! Y; ]% n- U, y, t% Y
(ver_pt4 0)
- }; |* Z3 @' M6 O1 g, D8 g
(dd3dface)" ]+ S/ A" a. P# x: U: e
)
. O$ j% Z' B9 M% V: b
)
4 I1 R7 x6 o& W: |, t* y9 @
)
! k& L( J: `+ V; p3 K
, k' X- V2 Q$ e( H( v9 t
;;, O2 ^5 Q4 \1 T, F3 ]/ H" j4 M
;; Image functions
* G# }, b- G/ m# a# R
;;
6 b- h9 l! l) B. B, r3 g: _ ~
(defun image_scale (/ upixel en n userscale temp)
$ n- {' {. f% O. K9 y
;; Calculate the size of an image pixel in AutoCAD units- ]2 f* W, M9 \( z3 u& e8 a
(setq upixel (distance '(0 0 0) (cdr (assoc 11 elist))))
6 z0 w- ?, D8 _, P" [
$ A+ F9 j4 y# i/ V" c/ G! h
;; Retrieve the user scale
! }6 }. a2 h; T4 |$ ^- N. f* x t
(setq en (dictsearch (namedobjdict) "ACAD_IMAGE_VARS"))
( v2 \8 G/ l- M+ j! U
5 ~4 O7 _' P7 k- X
;; Next, extract the image units and pixel resolution
' _. F' }3 N& r
(if (or (= 0 (cdr (assoc 281 image:olist))) (= 0 (cdr (assoc 72 en)))): e7 v; \* n" x& E, C& O4 q# a
(setq image:scale (* (cadr (assoc 13 elist)) upixel))6 F9 D3 f; n' {) C h
(progn
6 q+ @; o" y) j' X6 i! x1 Z: R }
;; Convert the user scale to the proper word
3 G/ K+ h; d+ @6 ?7 ]
(setq n (cdr (assoc 72 en))) b G+ q1 O7 @" X( T" h
(setq temp (getvar "LUNITS"))( s* f i! G1 y
(if (and (/= n 0) (or (= temp 3) (= temp 4))) (setq n 5))4 L# S$ n- j( b- t9 l) G; ?8 s
(if (= n 1) (setq userscale "Millimeter"))
0 w d1 Y2 H% C7 I8 Y, r" q
(if (= n 2) (setq userscale "Centimeter"))
6 `9 p9 F' G% Y+ {! x) Q2 @9 ]# v
(if (= n 3) (setq userscale "Meter"))$ a* T. g' @+ a1 M1 b
(if (= n 4) (setq userscale "Kilometer"))9 l" r I C- O- u+ y3 g' E
(if (= n 5) (setq userscale "Inch"))
# z4 a$ s* D2 w2 z' Y/ H
(if (= n 6) (setq userscale "Foot"))
: ~# {: e/ z, P9 Z
(if (= n 7) (setq userscale "Yard"))" [- U" D1 I+ P0 A% _) P
(if (= n 8) (setq userscale "Mile"))2 O' k& I# K I) V* d
(setq image:scale (/ upixel (cvunit 1 "Millimeter" userscale) (cadr (assoc 11 image:olist))))5 N# ~# P& I9 k# q4 B- [2 R
)
% j& p& h1 }4 C. \" j+ {7 U
)
6 I5 N( |6 u% |. j
)7 q/ e; r: p( _6 u
+ r# ~. l4 p- m% V6 n6 z# _/ D6 I
;;
# z2 R3 e5 i6 U) _6 V
;; Scale factors for block insertions
3 ?' @0 w5 s) f0 p/ P, x$ t
;;
0 @" [+ X: @8 i* C+ ~
(defun image_set_tile_scale (/ temp)1 |. [6 ]- V/ t5 u( J; S
(setq temp (getvar "LUNITS"))
; q1 Y5 x- a! A* P" j3 m
(setvar "LUNITS" 2)
5 s4 f# w( a& z$ q7 Z1 k7 y" ~" Z
(set_tile "xscale" (ai_rtos (* image:scale image:mult)))
1 ~/ A6 C) Y4 o+ z) z: m
(set_tile "wid" (ai_rtos (* image:width image:mult)))2 Z& F+ P/ q; X/ H V, x- N/ _: S
(set_tile "hght" (ai_rtos (* image:height image:mult))); g, ?6 H5 \$ N* E! N* R$ f
(setvar "LUNITS" temp)
* Y9 j2 {3 p$ A
)( A5 E+ U9 `7 h1 C& ]. z \
( ~" H# x* u5 y! o$ {' \3 F9 y6 D
;;
, {( a1 @/ Z& l5 U$ \2 q2 I9 ^: f/ a
;; Set the scale, width and height values appropriately.
. v0 H6 _% _7 y0 h8 s/ \3 b% ^8 M
;;
1 N" I1 n+ \+ ]8 o6 @8 j9 f8 |
(defun image_update (field value / orig_value new_value mult)# l- y( \ x$ I* H
(if (= field "xscale")$ H l6 w% y8 K6 m5 c9 s
(setq orig_value image:scale)/ L) E8 A7 ?; g" P5 }1 j# H$ Y
)
3 g' B z4 k8 D: R2 r% h9 X# p
(if (= field "wid")
7 B* z; w0 o# {/ x
(setq orig_value image:width)# M d/ B( n% V+ `7 v- h2 E
)
9 H$ B5 ]$ F" t1 X% ?; U
(if (= field "hght"): L9 f- b) O5 M/ {8 s8 w/ m
(setq orig_value image:height)$ l- D9 y3 k# l* p) b
)# s4 l* h6 x* T9 ?- ~9 m
(setq new_value (verify_d field value (* image:mult orig_value)))3 s" R/ j8 ~" i4 Q& ^7 `
(if (/= new_value old_value)
7 A" f& W, J3 u
;; Make sure the user has entered a sufficiently large value
(if new_value0 Q, K$ `& {$ j; M- [
(progn- S- o! ?5 S* _2 U) e
(if (< new_value 1e-8)2 E# G6 A- _8 O8 f/ r' c }4 p
(setq mult image:mult)+ f8 M% t: p- i( R: Y0 a, H! @$ Z
(setq mult (/ new_value orig_value))% q, X9 s/ t# _" t1 v' ~1 b# K
), j. z+ }' X4 {: r; j
(setq image:mult mult)
4 Q b$ e; T2 E7 M2 R: f& i# M
(image_set_tile_scale)
* r3 V* s7 a+ v0 e K, t7 B
)) [3 t: v, b$ J0 m/ v; ?; v
)) Y$ Q! F7 e/ y+ E1 \
)" P8 n3 ]; C0 Y- s9 W; x
)
0 m8 h: m1 C& F/ g+ x' G
, a2 q: A/ V+ m i. Z, j$ O
(defun image_disp_opt (bit)6 I: k4 f$ d; E
(setq image:options (Boole 6 image:options bit))
1 Z& F' h5 K3 O8 `* f+ I
)
# ]6 a' Q0 R& p; T# F
/ X& n2 q$ B! z7 \ S
(defun image_modify ()* N p U8 \: a2 [3 e
(modify_properties)) }; ^& u3 q, Y6 g. l8 m. ?
(setq pt1 (list x1 y1 z1))( w2 x. f% y) @& |$ F0 H$ k
(tempmod pt1 10 0)$ N( n+ H0 \- s* v/ E3 \
(entmod elist)% y6 ^/ W5 a" U4 T) E1 C/ k
)% ~8 a5 n; K& J0 p6 _
5 w+ ]/ e0 i7 n ?1 l$ N( U5 ^
(defun image_clean_variables () a: y) ]6 J. f+ |
;; Clean up global variables used here( [ C1 X$ N: l7 t" e \; p8 V
(setq image:scale nil)+ p6 T8 `& L/ H8 t) A2 h
(setq image:angle nil)
8 d, x. b7 m- D9 G' I7 y
(setq image:width nil)
1 k8 ^% `# ^ k- Q
(setq image:height nil)2 a5 R/ ]7 V% [- A& k
(setq image:options nil)
( U1 B0 h9 F7 L0 n& t. B+ }3 P
(setq image:oname nil)
( b! A0 a8 J' x8 {2 c+ X; @* ?$ P( I4 g
(setq image:olist nil)" R" _* i# S$ d' S7 @9 L9 x
(setq image:mult nil)
A- ?2 R; p4 n0 }# j0 ?7 d
(setq st_ang nil)
2 l& N/ n! w! x! W& I5 ]
)0 t% ?; D8 p$ C. { ^
9 H5 u- Y% y4 M6 [5 T/ d5 Y
(defun image_scale_vector (v1 value)
% P* s! I* |0 j5 g. j1 l+ T
(list (* (car v1) value) (* (cadr v1) value) (* (last v1) value))
/ T* K! h, Q5 U$ _2 o T) D/ X
)* D/ M l$ |* c3 P9 v" g- h3 E) m
- q. N: I) z4 V- T7 w
(defun image_cross_product (v1 v2 / vx vy vz)# ~& ]# y: t& `! D5 @3 U
(setq vx (- (* (cadr v1) (last v2)) (* (cadr v2) (last v1))))% [; D9 D) c6 |0 {' _- g% C
(setq vy (- (* (car v2) (last v1)) (* (car v1) (last v2))))( d. E, o1 z4 V9 x3 l
(setq vz (- (* (car v1) (cadr v2)) (* (car v2) (cadr v1)))): [" @, a5 W* q2 ~
(list vx vy vz)
' _6 b8 Z7 r- f/ Q& l2 I/ x2 e
)
/ n1 W0 R, [8 V- S& ?
8 J9 u, V w3 g) E6 c2 G
(defun image_dot_product (v1 v2)
0 c6 `+ E/ g7 \% A2 b) d! o' i0 X* I
(+ (* (car v1) (car v2)) (* (cadr v1) (cadr v2)) (* (last v1) (last v2)))
0 J& v# ?! L9 @) F( b/ a# z2 @
)
" b/ X3 Z) } E/ W
1 d `% _0 Y7 n, y/ y( `$ X- l4 o
(defun image_add_vector (v1 v2)
7 X$ d( ^$ m) p: C# b
(list (+ (car v1) (car v2)) (+ (cadr v1) (cadr v2)) (+ (last v1) (last v2)))
% a$ L9 U: L( d/ v7 N; e! x
)
3 N6 x% P1 u- U0 _' ^
+ c+ }( A7 k' ^5 h: x) i; g
(defun image_subtract_vector (v1 v2)
" C. C( {5 ^: B, {7 j5 q/ c9 D
(list (- (car v1) (car v2)) (- (cadr v1) (cadr v2)) (- (last v1) (last v2)))1 [- g, H% U7 M
): V4 w+ r$ S5 ^; l7 v
! I" g* o- C2 y1 N$ l$ S4 ]
(defun image_normalize_vector (v1)8 H% u; Y: G7 Z& D8 l
(image_scale_vector v1 (/ 1. (sqrt (image_dot_product v1 v1))))
, E: z2 n6 k# M0 m* N. g; X$ y' v
)% |4 s% Y9 Z( E
, D5 }7 `3 x) \2 w
(defun image_rotate_vector (vector angle axis / along_axis axis_x_in_rot_plane axis_y_in_rot_plane in_rot_plane)" Y% R9 D, C- R
;; Normalize the axis
7 z- q7 x0 i N8 }% l Y
(setq axis (image_normalize_vector axis))
5 }4 o9 Q( T0 A: u& ]8 Z' O
(setq along_axis (image_scale_vector axis (image_dot_product vector axis)))/ u- ]* V# `$ D9 @* `# Z
(setq axis_x_in_rot_plane (image_subtract_vector vector along_axis))
. O" S- z- }/ X$ W0 g
(setq axis_y_in_rot_plane (image_cross_product axis axis_x_in_rot_plane))2 W2 I m+ L0 S7 @8 ]
(setq in_rot_plane
0 t9 y& \$ W7 V1 J
(image_add_vector
" @5 v. ^6 l, f" t% W
(image_scale_vector axis_x_in_rot_plane (cos angle))
+ y! Q# B! s z% x. T& n% w
(image_scale_vector axis_y_in_rot_plane (sin angle))
! m5 P# ?4 b- ]& s
)
; I3 U- u: r/ M
)& F- R3 |3 r9 z/ ?' [
(image_add_vector along_axis in_rot_plane)
& X7 |& J; ~& w! Y2 L
)
2 d0 H! \: W" G$ X% p1 O
+ n( ]0 v: V0 Y
;;+ t& V' g9 w! {& O: B4 e
;; Calculate current rotation angle if appropriate.
& h4 O L# u/ ^9 a2 J6 h
;; If not, grey out the rotation field.
u! N" R9 {$ h1 A! w5 N
;;
! k+ B9 q2 B9 y: o
(defun image_rotation (/ normal rlength zlength sqrt_tolerance)
& y' r" i# u, _
;; Determine if image normal is codirectional with
! s4 Y) ^1 j6 G6 r
;; the current UCS Z-vector.; A$ ]8 a( g4 w% D3 X( l
;; m. \7 o) G, j% h0 b; L' P
(setq normal (trans (image_normalize_vector (image_cross_product (cdr (assoc 11 elist)) (cdr (assoc 12 elist)))) 0 1 1))6 A2 G8 ]4 t9 i7 K
(setq rlength (+ (* (car normal) (car normal)) (* (cadr normal) (cadr normal))))
- X2 {* J* `# Q
(setq zlength (* (last normal) (last normal)))" Q- @7 d; _( \
;; Note that the value .0001 in the radians is approximately 0.0057 degrees./ k6 a; s0 l& J+ s$ ^
;;& }! H; P6 I1 U1 w/ {- I2 `
;; cos(.0001)^2) M$ Q5 Q/ m* O1 I0 ^
;; Tolerance = --------------
P6 E( s& J) B& v/ f; w( G
;; sin(.0001)^2
i# N, r7 I ?/ c' H0 T. g
;;
* U( T( Y4 @. Q7 F% s
(setq sqrt_tolerance (/ (cos 0.0001) (sin 0.0001)))8 ~9 Q6 g9 u; Z8 R
(if (and (< (* rlength sqrt_tolerance sqrt_tolerance) zlength) (> (last normal) 0))/ b& X, h3 j, A& q8 \# ?% ?% s
(setq image:angle (angle '(0 0 0) (trans (cdr (assoc 11 elist)) 0 1 1)))
2 N0 Y3 X6 ^4 x; G, q8 y `
(progn# _! c% U9 @, C
(mode_tile "st_ang" 1)5 r# f' N! }$ l& @
(setq image:angle 0); S3 b( Q' E4 n( C
)7 K9 F+ D/ D: g- r% f6 y: N
)1 f4 g) U0 y3 M8 x2 ?
)4 G, B$ |; U+ V; h: O; Z
8 o; ^- i# [# ?# W8 Z
;;6 ^. y% @9 ]7 X/ x, G
;; Modify Image
& u) \( S( \ D* |! n
;;5 }$ o* H" F; V% W( r5 X
(defun modify_image (/ u_vector v_vector z_vector)5 w) R ]1 L4 f+ j, o0 {* v
(modify_properties)0 H- Q B$ o# D& v
(setq pt1 (list x1 y1 z1))1 R/ S7 n: }. B$ T6 x: [5 W: L
(tempmod pt1 10 0)
2 f# G1 t2 H0 L) q
;; Make display option changes to image
/ J2 O* j9 `% F& i* u6 x5 O
(emod image:options 70)6 D+ Z; L% p# s6 q P& X% C2 q
;; Get the u and v vectors
( D w0 X* D$ W, H
(setq u_vector (cdr (assoc 11 elist)))2 N1 \" k; \* M7 i
(setq v_vector (cdr (assoc 12 elist)))2 E( \. D: k. K, J' Y1 R7 S/ F
7 r# ~" @7 Z! ^. ?# c8 U* A- ]
;; Make scale changes to the vectors* o7 Q5 X* o P2 g( C- d1 n
(if (/= image:mult 1)& ], e# |% e/ _$ K, x. [/ ?3 ~
(progn
- G/ t, ?1 e4 o$ t, }* H3 Q; S
(setq u_vector (image_scale_vector u_vector image:mult))
. J! M0 y3 V% L: P) Y4 {- ?% O, e( X% J
(setq v_vector (image_scale_vector v_vector image:mult))
) O3 o7 Q" O: _% J& P
)
3 w: m! J* t% G( q6 _% E
)
$ F8 g' q2 K$ l
;; Rotate the vectors
% H: B$ H+ b1 v: S3 D1 J
(setq st_ang (- st_ang image:angle))# `. g4 M* M9 \
(if (/= st_ang 0)
; H3 J% F3 ]* x7 N& t/ I$ d; C
(progn( y: U) J/ g9 q+ L5 ^- O
(setq z_vector9 Y* A( J; ?- e
(image_cross_product+ P2 h A5 z8 F$ Z/ \# J
(image_normalize_vector u_vector)
$ R; t5 S- b9 c( C4 c' M3 Z. A* C
(image_normalize_vector v_vector)
^& q% `$ M; R0 B x
)
! V1 a4 Z7 @9 T2 S6 j l1 R
)
/ }5 ]' l; s# U. n) Z
(setq u_vector (image_rotate_vector u_vector st_ang z_vector))
0 a/ ^# J& h. z: t
(setq v_vector (image_rotate_vector v_vector st_ang z_vector)); n) f. V \1 H3 g
)0 Z2 Q( s' v: h, j
)
) ?. @5 s, S' A- r# ~
(emod u_vector 11): @- D% r* u" Z% L
(emod v_vector 12)
' T4 a8 x, F- K+ f+ j
(entmod elist)
8 @$ \: }7 X3 R" p9 j6 l7 q6 G
)
" M7 M* x9 A2 P; H6 V( R1 [6 \
3 f% \+ z: L' o) q
;;
! C, `* y2 ~1 n& V/ r% L1 U- T+ z$ W4 u
;; Run imageadjust on given entity, working around possible# p2 S3 Y) s4 V+ b" v
;; re-entrancy problems, `) c- I2 H+ {) K6 w A
;;0 s' B' E9 k. J- _
(defun image_adjust (ename)5 D" X* Z$ ^ V5 r* p3 C9 z
(verify_arxapp_loaded "ism.arx") ;; make sure it's loaded...
# |) m' }7 H* H) O8 [0 t5 z
(imageadjust ename): K8 ?+ F5 k$ [9 Q3 ]
)/ u7 C: y: E$ V; ]. u
7 S1 j4 j- M9 b5 @
(defun ddimage ()
; C4 O5 P7 P6 x1 [: ?5 r/ N
(if (not (new_dialog "ddimage" dcl_id)) (exit))! Q; H/ N' P; R% `- F# j
& l# H1 A9 Q$ g/ j( m/ t& p& f
;; Grey out the thickness field.5 F& C4 `. b% l# j8 M$ y
(mode_tile "b_thickness" 1)0 H% B( Y1 U$ m
(mode_tile "eb_thickness" 1)1 Q. a3 I5 k# A1 M+ j$ ^% K
% A1 u5 }% I9 ]2 y# ^
;; Get the associated def object.. Y& m5 S. B* G/ `1 ?: ^+ K) Q
(setq image:oname (cdr (assoc 340 elist)))
4 N' W! d, _+ p2 r: a! `
(setq image:olist (entget image:oname))$ ~1 t* Q' V3 Q
* G9 I( b) o1 F6 f+ v
;; Set initial tile values ~5 L" \ F4 Z/ f0 o+ F4 m( u
(set_tile_props)6 V' ]9 k9 v' M2 p: K8 {
(set_tile_handle)
3 s4 B: S6 E1 G5 g$ g$ U6 G
(set_tile_pt1 0)
2 J: v; w+ ~' L& Z- Z& J: q: D
(setq image:scale (image_scale)), ~7 A1 g. N& w& @2 ]
(setq st_ang (image_rotation))
. H3 s& B% y3 N' }
(setq image:width (* (distance '(0 0 0) (cdr (assoc 11 elist))) (cadr (assoc 13 elist))))) b7 x6 p- _" W" J) N& ~" n7 H$ x( J# J
(setq image:height (* (distance '(0 0 0) (cdr (assoc 12 elist))) (caddr (assoc 13 elist))))
4 _2 o* {& @! b# F
(setq image:options (cdr (assoc 70 elist)))
! _5 K. z+ l8 P+ ]: J3 }
6 Z5 X) S; g" |! P# n5 d5 [( t+ {
;; Record the last multiplier for use in image_update function
! z+ r* g P+ l4 v6 y
(setq image:mult 1)
( W3 G1 n7 l6 N( Z" u! Z
. T9 s+ y4 p* @+ p1 _+ T! m
;; Retrieve the image name
6 F+ f, \+ y) b6 r& D
(setq fn (reverse (dictsearch (namedobjdict) "ACAD_IMAGE_DICT")))
3 w$ q, ~/ s4 W
(setq flag 0)1 {( Z. J/ V2 f Y' w
(foreach n fn
4 n' }+ G, `# X8 I9 I$ G' T' `! D" f
(if (= flag 1): |2 Y8 \$ A1 M
(progn
3 s1 S& W0 n3 J ^
;; Display the image name/ X1 t. K! D2 u6 C$ a
(set_tile "image_name" (cdr n))
% w2 d$ [0 E4 I: J3 i. O
(setq flag 2)
. T+ X9 b, G) j! ^ Q
)& l: f; ?! o; h+ {
)
, l& Z3 a2 @" ?- z4 _
(if (= flag 0)
. k6 h- X5 Q- g+ |" W& \" S F. x
(if (equal (cdr n) image:oname) (setq flag 1)): ~) m3 {. ]) v. ?% i' c
)
3 H- q z. P* H; z
)
& M% d( I l# |0 F; V
& j" ~8 t; X7 K! E* P+ U
(set_tile "image_path" (cdr (assoc 1 image:olist)))
- Z7 w9 ]0 [; s9 i. p
(set_tile "st_ang" (ai_angtos image:angle))
' {7 G$ k6 q+ a$ T5 G2 R9 o
(image_set_tile_scale)
) T+ j6 V2 i8 }* E5 h+ L' `
0 O4 p( v$ h7 m$ K# l: g. ^
;; Check the appropriate boxes
! t, b: b3 A& _2 _+ Z
(if (/= (Boole 1 image:options 1) 0) (set_tile "image_show" "1")), I+ f# u+ A! g% E3 n5 {
(if (/= (Boole 1 image:options 2) 0) (set_tile "image_non_ortho" "1"))4 W8 @3 f9 r7 J' B ^
(if (/= (Boole 1 image:options 4) 0) (set_tile "image_clipped" "1")). J) X3 {7 c1 g' n6 J0 k; Z
(if (/= (Boole 1 image:options 8) 0) (set_tile "image_transparency" "1"))8 i7 E) ^9 A( S4 ]
4 c3 [/ _( i" M. d9 z% j
;; Define action for tiles
- {8 C/ g7 _# G/ G: p5 E% D/ Q
(set_action_tiles)
2 y" t5 c9 [- K: R+ {+ P R
(action_tile "xscale" "(image_update \"xscale\" $value)")1 Z, R# z( y# ]2 A
(action_tile "st_ang" "(ver_ang1 $value)")
$ ^- ~) ~( N4 h% r) c/ F
(action_tile "wid" "(image_update \"wid\" $value)")
& O+ X7 W& e6 p; V- P
(action_tile "hght" "(image_update \"hght\" $value)")' m* @6 T, |5 w9 s# A
(action_tile "image_show" "(image_disp_opt 1)")& X% U8 M( ~0 X* \( F
(action_tile "image_non_ortho" "(image_disp_opt 2)"), |) [0 Z' I, P4 @7 q7 A
(action_tile "image_clipped" "(image_disp_opt 4)")
& X8 L. _0 O7 c D* s& W
(action_tile "image_transparency" "(image_disp_opt 8)")
) [+ q) I) \! X4 v: Z. ?1 V# ~
(action_tile "image_adjust" "(done_dialog 4)")
9 Q9 R: l# d5 o* u5 X. {
9 h5 c: g% l% l& y) G+ R2 H9 M1 k
(setq dialog-state (start_dialog))
8 s6 d, i T& h# [* }
(if (= dialog-state 0); {, r: s2 q& _/ n$ p. H( c8 U
(progn w: c O( h# i
(reset)
4 X& R1 T6 j0 [, v5 j: a( v
(image_clean_variables)# V/ M6 J7 i; }( c7 E
)8 g$ O) T$ \% r
)4 C+ J2 E1 S1 @9 g
(if (= dialog-state 1)8 V2 p& o/ T' ]" l9 x5 w1 `
(progn
. Q% M1 Y' k# T# @/ ]
(modify_image)- |* C1 H7 F. c$ X
(image_clean_variables)
* P# S* t, Q! l% d( W
)1 u6 J2 N3 G( v: k/ L( Z8 F
)
- q5 l' G9 T; e4 D4 l
(if (= dialog-state 3)
+ j( Z2 @0 F7 l5 i* |/ J* b# p' h- o
(progn1 n* W1 ]1 @, d4 W( m
(modify_image)
: x: r0 }, y9 I: A5 j& S
(image_clean_variables)
& U/ I* o$ _- C7 l( N( H. q
(setq pt1 (getpoint (list x1 y1 z1) "\nNew Insertion Point: "))
7 S$ S. G3 ^8 F; M7 D
(ver_pt1 0). N! a7 g4 l6 J3 @9 C6 C
(ddimage)
/ G6 Q7 x: ?7 O
); ]. L2 d2 t" w- L
)
: f; R: X, y0 l8 h' T4 z! w6 r" @
(if (= dialog-state 4)
% J+ i$ U. B4 S) ?
(progn5 C6 F, \8 f1 H4 ?
(modify_image)7 V) {- n4 Q; R$ n
(image_adjust ename), z/ q2 q: i3 ]3 `8 M. _
(setq elist (entget ename))
$ Y! H1 b6 r% S
(ddimage)8 G I. H. u! `% ~( E1 c4 _
)! r6 d; D, P3 P. s" ^# r
)
6 R- r' i w u& D' O5 ^
) o# W' o ^6 W. o
4 R2 j, h5 G+ J/ |6 q1 x5 u# v
;;
# p: s5 {4 }4 E" E, r
;; Modify BLOCK (and its Attributes, if any)
) K$ A7 U4 X6 [" E
;;
|, _ j) u+ L$ n9 }( j- P* Z
(defun modify_block ( / el en2 p1 p2 oldp1 oldp2 new_hgt old_hgt attr! Z& \) d5 J' E0 g' |8 F
new_wid old_wid old_rot scaling old_scale% l4 Q; I0 f e
xdelta ydelta zdelta xbase ybase zbase ipos)
/ t! }3 w4 @6 E' p' t5 y
(modify_properties)
4 p1 q, o, j$ d0 P ?: N$ U
3 ^% F1 J4 D: h4 {2 t0 q, `7 o
;; First, translate and scale the Attributes, if there are any.( b6 x5 A' m& i" \' I ?1 G5 \) A9 ^9 `
(setq old_rot (cdr (assoc 50 elist))
* B" B8 T+ C7 R" a$ {
old_scale (list (cdr (assoc 41 elist)) r. \" d1 o5 W' E2 q
(cdr (assoc 42 elist))
(cdr (assoc 43 elist))8 Q* l" I5 h# r
)
6 [2 ^0 a8 t) U7 B6 u1 ]
scaling (or (/= xscale (car old_scale))0 R! n; u; u6 d# t
(/= yscale (cadr old_scale))
, Q: e* c* v F- x( [5 o
(/= zscale (caddr old_scale))3 d: T& J4 @% @) \4 K# G/ J( o
)5 [/ o9 v- L+ ?! ? J* H( ~
attr nil ; No Attributes modified yet
6 Q4 b; ^! p3 h
) t! ] {' |/ X/ j
(if scaling- r$ W. a* }" W* P( I/ J2 d
(progn P% S+ n% V0 x* y+ X) U6 {6 Y
(setq xdelta (/ xscale (car old_scale))
* f: [# s) B0 x1 M
ydelta (/ yscale (cadr old_scale))
0 J$ y/ f F. {7 b7 `
zdelta (/ zscale (caddr old_scale))
1 @3 ]- M9 @/ j; f; j
ipos (cdr (assoc 10 elist))
* N! W& [0 G" b# V& s
xbase (car ipos)
! w# f0 G" r: s
ybase (cadr ipos)
) R6 {0 M) p4 s$ M& I
zbase (caddr ipos)
6 v& K. U" ~3 b6 V( Y, q
en2 (entnext ename) ; First Attribute
8 |* T1 s0 f# y* s
)! P9 \3 _. Q# V" A) s0 x
6 ?6 _/ |% |5 m3 B6 _
; If the Block is rotated, temporarily un-rotate it, along
- e5 E* G; x8 J5 u* U
; with all its Attributes, so the scaling/translation of the7 Q) m2 z/ L1 k$ y8 x
; Attributes won't have to take the Block rotation into account.
0 i! b4 [" d& y& o8 b
(if (/= old_rot 0.0)9 @; M" `3 A2 [ Z5 U; w: i
(progn9 I, V) @8 W) ~4 F' [
(command "_rotate" ename "" pt1 (ai_angtos (- old_rot)))2 r( }$ g$ D. A3 g, f5 e
(setq old_rot 0.0
* D' T' x6 a: }0 ]& l
elist (subst (cons 50 0.0) (assoc 50 elist) elist)$ q! E1 X1 z; `1 B' ]% \( P8 }- }
)1 C' {. X3 o/ ^) S4 J
)$ F" q! a2 Q' H& P8 s
)0 [1 [. k/ L W5 \4 v/ T
2 Q! J2 l) ]" C: s1 ~* a8 |
(while en2
9 b# k% D- g1 E" n
(setq el (entget en2))
4 K. k( o' k" g3 d) E4 E1 w
(if (= (cdr (assoc 0 el)) "ATTRIB")4 [& ?/ ^! y( |8 i9 n
(progn3 W h3 }. E5 |" Y7 L6 e
(setq old_hgt (cdr (assoc 40 el)) ; Height% e' Q W; |# F, a7 K R) t
old_wid (cdr (assoc 41 el)) ; Width-factor9 S) T3 y! M" k7 g" Z+ R, [; q
oldp1 (cdr (assoc 10 el)) ; Generation start point9 l3 E0 p; o. _. q! y
oldp2 (cdr (assoc 11 el)) ; Optional alignment pt
; i) D" t( U1 G5 ^
ha (cdr (assoc 72 el)) ; Horizontal alignment
8 \' N7 _6 M6 O! L
va (cdr (assoc 74 el)) ; Vertical alignment
0 p8 l5 b3 `. Y4 l- f
, K& [, w* x6 S" t
; Translate gen. start point+ i3 C' a/ ^) C
p1 (list (+ xbase (* xdelta (- (car oldp1) xbase))): p' o! {! k$ S: H- ~
(+ ybase (* ydelta (- (cadr oldp1) ybase))). ~" J. t- h5 c. B+ r) d
(+ zbase (* zdelta (- (caddr oldp1) zbase))), w6 F: E: j& c) ?3 r- p
)4 P- x" F' z9 Y
el (subst (cons 10 p1) (assoc 10 el) el)
- }2 q& E. d' n, z8 \( w
)
6 |/ C+ w$ V% O
2 d& |& p" z( _+ ?
; Translate alignment pt similarly, if present and applicable
. h/ j. W! ?4 V" l5 q8 |
(if (and oldp2 (or (/= ha 0)
. g$ Q' s I" }/ b
(/= va 0)
3 F5 U. [) C# J4 A8 g. F9 W: c
)
/ ]# q4 D. J6 g3 [! C$ L G0 R
)
) N# o: C% F0 B
(setq p2 (list (+ xbase (* xdelta (- (car oldp2) xbase))). q! f2 r2 D y r6 ]! W' a& C2 x
(+ ybase (* ydelta (- (cadr oldp2) ybase)))" |* Y _' L. ]5 Z) ?
(+ zbase (* zdelta (- (caddr oldp2) zbase)))
. B+ {' B6 `+ u7 x( K& _/ l
)
7 A. W+ @& Z9 E% P
el (subst (cons 11 p2) (assoc 11 el) el)
- |8 @6 x4 L& W- Q
)6 U- h4 K. i8 a1 a% T9 U7 U
)9 y4 a. I5 H0 h$ |/ p: v
6 s& L: L: c0 L1 d& ]
; Each Attribute's height and width-factor were computed
; h% r" z* C! j# {; [
; based on the Block's scale factors. Adjust them now,5 ~/ K" A W" y) V& O
; by first reducing to values for 1x1 scale...
0 p2 L- j9 F! q) R d: V
(setq new_hgt (/ old_hgt (cadr old_scale))
2 v+ t/ p: b8 e; Y" Y
new_wid (/ old_wid (/ (car old_scale) (cadr old_scale)))
3 i8 [7 r% K$ N8 s& Y% q4 |
)7 q* u f2 M' w- E. l) d! f
; ...and then rescaling.
, E0 @) ^1 K b1 Z3 E L% k8 O
(setq new_hgt (* new_hgt yscale)( w* B$ a, B# M3 L6 J; _0 @+ h
new_wid (* new_wid (/ xscale yscale))
2 A5 v1 k" W U' W
)) K: P( ?3 F. x2 B6 O, f1 r
(if (/= new_hgt old_hgt)
. ?7 Q7 D: w# e& |$ ?
(setq el (subst (cons 40 new_hgt) (assoc 40 el) el))3 ]( m2 [9 r- |$ o1 E- X: z7 ?5 f
)
, Z f$ ^( x- {' c# C, w8 r
(if (/= new_wid old_wid): u$ P$ f6 ^& v/ ~* x. F$ k
(setq el (subst (cons 41 new_wid) (assoc 41 el) el))8 ?! Y3 u3 }5 I! i
)
2 Q" w4 `/ ]. A! N
(entmod el)
, h( d4 D+ C! t$ y) T' x' v9 ~/ l
(setq attr T ; At least one Attribute modified1 J+ a7 ^1 L7 v# K7 z
en2 (entnext en2) ; Next Attribute
( ~6 t' |( x b$ i( ^: W
)+ A; F! l$ f% ]% A& O& n
)6 m% T0 f- V0 t/ S4 i. d" w+ z
(setq en2 nil) ; No more attributes
/ a. P2 C+ I0 m3 z: S
)- L3 B6 Z" ~3 n% \" I
)' ^% ]& r/ |9 X9 e5 n2 [) q
)
+ W( @5 k" e9 U" J9 {! w: V
)& j I/ V3 h, B; F- c+ C
1 h6 P7 |/ ^$ W7 f
(setq pt1 (list x1 y1 z1))
, u6 e( `! L( H) P
(tempmod xscale 41 nil). g; e. s( F! Q7 @3 ]/ \: E
(tempmod yscale 42 nil)& E V7 z7 ~! Z6 X( V) [* x# o
(tempmod zscale 43 nil)
: c' d" O1 }! G5 ^
(tempmod col-sp 44 nil)% U* W' h3 R' P
(tempmod row-sp 45 nil)1 p$ C4 o0 q* L- M% D$ R q
(tempmod columns 70 nil)
: ?( ~! C/ k' m! `' R' l! M3 k
(tempmod rows 71 nil)
8 G$ o! W9 C" }+ P( s, V/ s' S
(if (= xclipmode nil)
& l) _+ R0 \' D+ {
(entmod elist)
$ t: d- e. `1 Y( y- }# J
(setq xclipmode nil)& A4 n7 } v7 ]) m8 `5 L4 I5 c/ ]
)
$ f; ?5 W- }" C8 q8 s" N x
(move_pt1 1)3 Q# Z5 Y# y7 P" _2 {1 O
$ l* | C3 v" G$ W
;; Now do the rotation with the ROTATE command.
) a8 C4 o, ^( {. { a! f
(if (/= old_rot rot)
3 ^) r8 ^( Z) a% m! c- I, \% ^
(command "_rotate" ename "" pt1 (ai_angtos (- rot old_rot)))$ z- {1 r6 A' a2 v5 i6 e
(if attr ; Else, if attributes were modified,0 g$ j# i/ B3 @0 Y' ?) E& c! ]/ A
(entupd ename) ; just regen to force attrib display' K* S7 S' L9 h8 @: i! U
); S6 {( ?' P. @6 W
)( J5 o3 U3 q- K2 i, a
(setq elist (entget ename)). d o. _* b3 j' J2 [; |+ W# R x
)- h; W- O3 Z, M! q: D
(defun ddblock (/ temp temp_xclip newhatch blkname blklist blktype program xrefpath)) ]" u, [/ L/ N
(setq newhatch 0)
% x* s& z# q7 x [ z
(setq blkname (cdr (assoc 2 elist)))' l2 C6 O" r K' k
(setq blklist (tblsearch "block" blkname))
, o# i) K1 z& ?6 b# A; y8 w
(setq blktype (cdr (assoc 70 blklist)))
! G) q; T4 {% J, |1 A) e7 ?
(setq xcliponoff 0)
0 p& }" C( ^" s0 F' s# v; I
(if (or (= blktype 0)(= blktype 36))$ C" q5 u% o, b4 V% q$ u
(progn
. ]5 _, ] {1 U8 b9 Z& B Y
(setq xcliponoff (xclipon elist))0 b ?0 M# ~. m- r
(setq temp_xclip xcliponoff)
2 P7 v0 b' m. \0 p; b. y3 t+ o* Y
)
( [. I4 w8 N ?% W
)
% K! q/ }* F- y( n
(if (= (logand blktype 4) 4), S) J$ z+ c7 u6 H5 q6 z
(progn% t( G% D- e& f/ \' q0 T
(setq xrefpath (cdr (assoc 1 blklist)))4 r) t, Z! i8 V6 f. h4 ^1 m
(setq help_entry "modify_External_Reference_dialog")
7 E( L0 J* J* p
(if (not (new_dialog "ddxref" dcl_id)) (exit)) G% `" @& _$ R' i' D
(set_tile "Bl_name" blkname): L3 h* J# n2 w' t, M
(set_tile "path" xrefpath)% {4 @* ^% \. o! N) \- z
)
4 @- p7 r- e( p2 G( Q
(progn
; h& \' q5 I3 p
;; Get program name for use as Xdata app name! f" B) Z3 }- C2 o
(if (not (setq program (getvar "program")))
# \! s4 V; u6 g
(setq program "acad")2 A% l/ k$ X! _! z
)
- Y( W) N) n4 d$ ]5 t$ D
(if (and (setq temp (assoc -3 (entget ename (list program))))
+ b7 B, R; s: u: u1 t
(= (cdr (assoc 1000 (cdadr temp))) "HATCH")
0 |# V+ l# P5 ~
(assoc 1005 (cdadr temp))& }6 [7 Y! h3 p; }0 n
); W9 F! a5 z; f' {/ F" I
(progn* [5 l5 p4 _" }6 \( B
(setq newhatch 1)4 N Q. d Z2 M( {7 O9 U# o9 x0 k
(setq help_entry "modify_Hatch_dialog")
% S6 ~6 f! d( ^
;;; convert the object into a new hatch
9 E9 w# p% P1 w( {& b/ @/ K J
(ai_undo_on) ;; enable undo" k5 a% n* w7 V7 D- d5 Y
(COMMAND "_.UNDO" "_Mark")* M' k' B1 s; E$ E% v" E6 ]8 |
(COMMAND "_.CONVERT" "_Hatch" "_Select" (cdr (assoc -1 elist)) "")
8 s, f7 T- E, `! q$ t( n7 W4 j
;;; suppress nasty message from convert command
! L) ?* |$ b. s8 ]. T9 Y0 E" V
(princ "\r \r")
1 n9 V; ?( ~0 l/ n5 b9 I! r# w. W
(setq elist (entget (setq ename (cdr (assoc -1 elist)))))
4 X7 }- O; }; p3 i* q. f7 [
(setq old-elist elist)- X3 T/ b3 v3 R" `: T
;;; If we have cancelled ddmodify0 v* i4 T9 h+ x
(if (not (ddnewhatch)) ;;; (ddnewhatch) returns nil for Cancel or T for Ok
* d0 Q2 _- R2 i% ]2 E" {
(command "_.UNDO" "_Back") P+ ^. T4 X! u! b
)+ p8 R' E' _6 t1 v9 m
(ai_undo_off) ;; restore undo state% x" d! j+ c6 u9 ^
)
; ? M" X3 c4 }1 L/ n
(progn2 g. w5 Q5 W% b2 C' a+ _) b: C
(if (not (new_dialog "ddblock" dcl_id)) (exit))- |! F* [4 w# m
(if ( = "*" (substr blkname 1 1))
# Z! j3 C& z4 j1 a! _, L6 g
(set_tile "Bl_name" (strcat blkname " - Anonymous block"))
6 ^$ g B5 ^8 i G2 }) D1 K
(set_tile "Bl_name" blkname), C' h2 T0 ?7 L4 a. f
)$ E1 _& y4 I4 Q8 i6 G \
(setq help_entry "modify_Block_Insertion_dialog")
7 y8 p4 N S+ ~% R6 k% c
)7 h2 p! g9 D9 C& x R2 I0 U
)
6 {! X- \+ u( m' s2 X" h6 N( Y0 \
) W# S* x1 v. E. W
): O% v$ z% e h# r6 ]
(if (= newhatch 0)
; G9 R3 [" c1 |1 k* x3 Q
(progn8 c' F& U7 z I' j. g
(set_tile_props)3 k) y+ a5 L8 t) \* P8 B5 ]
(set_tile_handle)
1 ?' b+ p, K$ C" W$ v1 k
(set_tile_pt1 1)) m8 U/ w h/ V `
(set_tile_rot)
0 m1 X, X" t) A6 I0 z* |! I
(set_tile_scale)
; H" ~: X4 f6 B* \
(set_tile_rc)8 B' ^3 ~% z8 {7 I
(if (= (logand blktype 1) 1)- [. f. m4 c. o& S. S
(progn
|' k& ?' Z0 r* c3 x. q5 R' x9 J
(mode_tile "xscale" 1)8 o- A* G2 O" F' k1 z
(mode_tile "yscale" 1)
) p3 F% d; ?4 a) {" `
(mode_tile "zscale" 1), o6 n! y, W/ g) }) b: M! f; T
(mode_tile "rot" 1)
! {2 E2 m9 w) I6 G
(mode_tile "columns" 1)
! y& Z& p/ h* o# T R$ q" _ W8 o
(mode_tile "rows" 1), A+ C0 f' `" [1 z$ k
(mode_tile "col_sp" 1)
5 _$ [# ~/ K& l j- z: i
(mode_tile "row_sp" 1) u! |4 Z8 Z. t0 Y
)
) K3 w% y. f+ `. x" p0 q
)
4 M7 }' A- x% s5 [6 V6 n
;; Define action for tiles( R7 @$ O# L# r5 K
(set_action_tiles)
) [9 p6 n7 C" c2 [8 ^" h: R
(setq dialog-state (start_dialog))8 h& ?' @; Q/ U( M6 A* a
(cond" `: X# x' ^' S6 C: u+ C& y1 N" W0 f
( (eq dialog-state 0)- A! R6 ~7 V" H1 B% ]
(setq pt1 (trans (cdr (assoc 10 old-elist)) ename 1))" q, |8 T( w" P2 m9 r
(move_pt1 1)* F# a" [ i; e
(reset))# ]% W( I* a. G4 Q; E& T
( (eq dialog-state 1)
2 b) A# C- v2 |1 b# ^! c0 K
(if (and (/= temp_xclip xcliponoff) (or (= blktype 0)(= blktype 36)))0 \: x6 e" d9 e* P# S: ~, I+ q" y
(xclip); M5 t; y0 O/ T) ?
). w2 v% P; Y' A0 q3 z4 W
(modify_block))6 v3 j! q6 g# y G9 g' p' H7 h
( (eq dialog-state 3)
& O% v+ @+ J. v7 C) Z8 Y9 x
(modify_block)
" Y. R: C* ^& Q5 q4 I, u
(setq pt1 (getpoint (list x1 y1 z1) "\nInsertion point: "))
! v$ U+ N7 M7 q8 [0 z, d' }: c. F
(move_pt1 1)
. N$ n- N/ [2 i+ a3 w8 k
(ddblock))
9 Q5 G$ _& [& i
( (eq dialog-state 4)$ @7 X: U1 T7 w7 `
(modify_block)& Y, ]8 y5 F% M, r. Z
;; Get current handle.
/ x0 w/ V( w/ D
(setq hand (cdr (assoc 5 elist)))
8 J/ _& `# |) a9 c
(command "_hatchedit" ename)
2 Z8 M! ]2 K9 e( s! s
;; If OK in hatchedit, a *new* entity is created and the old one
; L4 t/ ?# m+ r8 ^
;; is deleted. So if the old one exists, it must have been a
: Q0 k$ c! X. I; }: o
;; so rest the entity.
- C+ y* ` w- a, c9 x
(if (entget (handent hand)) (reset))
7 m4 i$ Q N- a/ n. P
)
( z1 q" x" h9 d' m$ O
)0 V6 A: [2 ], X" Y F
)
, f# X% P) L5 R8 K+ r9 S5 e) }4 A
)1 X0 i, a8 h4 o& { n% O
)( b7 P6 H# H) X7 b
;;
, T: T* s- v* M, ^" D& v3 M H' H
;; Modify SHAPE
# T% x5 O; `6 L( o# x; }* m" c
;;
( v. i5 S( ^4 L( H- e
(defun modify_shape ()
h& I$ K, A+ y* w/ M/ m( ]
(modify_properties)& Z/ z2 I* D* G% W% S
(setq pt1 (list x1 y1 z1))
D% m5 ]/ r5 X; A' K
(tempmod pt1 10 1)
3 u% y( B* \- a: M, k' w
(tempmod hght 40 nil) a( W8 r1 V* \9 ^
(tempmod wid 41 nil)
. I2 e- {4 f4 m6 z% H
(tempmod rot 50 nil)
: u8 z& m3 O) M& I# f5 B
(tempmod obl 51 nil)
2 T9 w% C; x5 v4 @) |2 `6 w
(entmod elist)/ z0 Q6 j% `. L h/ a2 F
)9 C. o/ \, p# E
8 Y" @5 t, j9 o$ ~% x. Y
(defun ddshape ()
_4 o! i: M: n3 W% U4 \! F0 u" r
(if (not (new_dialog "ddshape" dcl_id)) (exit))7 t" n, F9 O* z y8 C% d
(set_tile_props)
5 ~; l$ U4 O9 ?5 M2 i. n
(set_tile_handle)
% U' A# n0 ?' P- {6 ]
(set_tile_pt1 1)% r) j) x1 C- f$ ~
(set_tile_rot)
* {3 w- f8 G; ]9 r. m
(set_tile_hght)
, b7 X Z7 `' B4 ^/ w# z, e
(set_tile_wid)
4 o; ]3 |. C+ ]
(set_tile_obl)
" O* \3 a) Y! V- a
(set_tile "sh_name" (cdr (assoc 2 elist))), j) H4 i+ W9 _; a" p9 ?( g
;; Define action for tiles
& q' ~8 {2 o G# _7 R* x; ^
(set_action_tiles)( F' {/ {. t$ L Z( A: T
(setq dialog-state (start_dialog))
2 T* [: B) K2 i+ z/ q8 a0 V4 F
(if (= dialog-state 0)
r/ L% M0 H- ^
(reset)! ?5 |. [! N! B+ R
)
3 _% e; @' d4 g5 q: j# i1 e; A0 x
(if (= dialog-state 1)
4 j8 M. s; q& _ G0 J* ^1 u
(modify_shape)
/ x' ]. y/ e5 A `# \
)
4 A" Z4 K8 g( V
(if (= dialog-state 3)
$ K9 w4 }1 [- A) M: ?. Y. d- s
(progn8 u/ h$ L5 H* `3 N" Q( g+ f/ T( O m
(modify_shape)) i/ C& @. R8 D4 C
(setq pt1 (getpoint (list x1 y1 z1) "\nInsertion point: "))
! I4 _1 r$ K% G' Y( j q$ e
(ver_pt1 1)
, }5 U& l. W; Q4 ~# V2 M4 B
(ddshape)6 L: ?" E9 c# v+ D6 A* ?* _
)
' f& m$ W% G! f8 O( N' a" f3 m
)& V2 ^, k3 R5 Q" y+ l0 t
)5 C8 G8 y/ t6 [/ o4 b, O( R
;;* u7 {' d* i5 e( M0 U4 }) l. d+ H/ Q6 ^
;; Modify TEXT or ATTDEF
[3 {' R- T/ n, A7 F
;;+ L G3 Z9 n' |8 d# B' b4 G/ B0 \
;; Set bit code for upside-down and backwards setting% M4 O# P: f `; q; d; l6 j+ F
;;! u! m& r1 A9 P/ R# s, |6 B
(defun code_71 ()5 K& ^4 z6 @# L- g9 X- i0 Z" h
(cond ((and (= bkwd "0") (= upsd "0")) 0)) @1 [- S; W6 _0 b- f h" g. t
((and (= bkwd "1") (= upsd "0")) 2)
" k- @8 a o% Y
((and (= bkwd "0") (= upsd "1")) 4)
% Y) d+ Y: b1 ~6 C2 a# j
((and (= bkwd "1") (= upsd "1")) 6)1 j9 R$ e& `$ g" w
)
3 c, X$ A# t7 `9 H
)
% }6 h2 m* x' V7 y
;;) g. ?7 e% X1 L5 |* Z l/ \
;; Style action. Reset widget values to style defaults1 m8 U9 t- J) x9 [& q- [- s9 T
;;
' s# b: H1 D& X# V: Y6 d
(defun style_act (index / style-list)
4 T/ B0 J: V% [8 t
(setq style-idx (atoi index))
( S, O0 g$ J5 X: z
(setq tstyle (nth style-idx slist))
5 C! v8 A6 B; _$ M! k( f, f4 }7 W
(setq style-idx (itoa style-idx))- {) d+ k6 N1 A% B/ I+ |% K
(set_tile "style" style-idx): w% f/ k- D- G2 f. i5 a
(setq style-list (tblsearch "style" tstyle))
- u. ^2 [$ D" ? o5 u) }) o
(setq shght (cdr (assoc 40 style-list)))( d: p/ I& x) W" o/ P
(if (/= shght 0); U) V& R4 j+ E5 I. I- u" X
(progn
# h# P5 e i0 k2 a& [& A
(setq hght shght)8 o0 R4 ]' T2 u! B' z. e0 s
(set_tile "hght" (ai_rtos hght))9 ~" d' i3 z0 ?! `& z% h
)
0 K8 M& i \7 g2 _& M
)
& [3 d5 @8 Y) g4 q6 k- R2 U9 b
(setq wid (cdr (assoc 41 style-list)))
3 r+ [. }! R ]# v! ?8 K$ d, K; B6 |
(set_tile "wid" (ai_rtos wid))7 J4 H( e6 r5 j3 T. ]9 _
(setq obl (cdr (assoc 50 style-list)))
6 b0 Z# i, r' h1 T% o# [
(set_tile "obl" (ai_angtos obl))0 U8 b) f$ p4 C4 f- v8 T- p* t5 w; i/ A
(setq bk-up (cdr (assoc 71 style-list))) D/ @- V% {* ~
(if (= (logand bk-up 2) 2)# r: j9 a! Z4 E- @( N! A
(set_tile "bkwd" (itoa (setq bkwd 1)))
$ ~- `8 `& f# l# a
(set_tile "bkwd" (itoa (setq bkwd 0)))) }% d0 k; I& m6 G
)
, Y0 a$ ~: P+ v$ A3 `
(if (= (logand bk-up 4) 4)
; e2 U, ]5 I! s/ z
(set_tile "upsd" (itoa (setq upsd 1)))
( l% R# E5 ]: W5 S8 |# r. w
(set_tile "upsd" (itoa (setq upsd 0)))
1 x5 h- q" _- l/ g& t* |
)3 m# O* Q- W8 r( E* Q8 Y- w, o
)8 {5 V7 q& _ m, Z$ t
;;6 p4 d/ t; R4 a" o: J
;; Justification action. Set vertical and horizontal alignment variables,
) n: I1 [" s2 a: e
;; grey out rotation and height if alignment = "aligned", grey out rotation
+ i' o: b& x4 j4 F1 t
;; if alignment = "fit".
- x! w0 E6 _( _& P& y5 }8 s
;;, ^2 j- A0 l# e
(defun jlist_act (index / templist)9 E( b( Z: \' j* W1 r
(setq just-idx (atoi index))
. _0 c4 x9 m x. }2 [. b
(cond; x/ I( O! a: `1 s& [
((= just-idx 0) (setq va 0 ha 0))
\. R; G, R# b9 L6 C% _( w
((= just-idx 1) (setq va 0 ha 1))
4 t" p$ |( i& W
((= just-idx 2) (setq va 0 ha 2))
$ b. f9 n' g; P0 B* K( Z& |
((= just-idx 3) (setq va 0 ha 3))+ k% N$ q- y" Q) x6 ]0 r
((= just-idx 4) (setq va 0 ha 4))! g$ B, e" H1 u, n3 Z. b2 J* f% h. Z
((= just-idx 5) (setq va 0 ha 5))
: h) U- d- C# G
((= just-idx 6) (setq va 3 ha 0))$ S3 X) P9 u! W# A( ]
((= just-idx 7) (setq va 3 ha 1))
) |( r- x4 `; c- j; U* A
((= just-idx 8) (setq va 3 ha 2))
: G# E( A! }0 O- U
((= just-idx 9) (setq va 2 ha 0))
3 f: g* g$ E% {. x" O9 k
((= just-idx 10) (setq va 2 ha 1))3 F0 D5 h$ [6 ]+ [
((= just-idx 11) (setq va 2 ha 2))
& F( L0 J4 h' ?5 i7 f4 V
((= just-idx 12) (setq va 1 ha 0))
/ t6 D$ ^1 s. v
((= just-idx 13) (setq va 1 ha 1))
# Q: ? x b6 A2 O2 R U
((= just-idx 14) (setq va 1 ha 2))
1 m* g: Q/ n) k: z* R# g0 A
)) b t# k; B5 A
(if (or (= ha 3) (= ha 5)) ; If Aligned or Fit text
3 n' s% c1 X9 v
(mode_tile "rot" 1)( r& x; x# u9 q4 o0 D* |4 u1 {, n
(mode_tile "rot" 0)- M; K5 Y: f: B2 |3 m' U# V1 K8 e
)0 p: o2 ]1 ?6 Z
(if (= ha 3) ; If Aligned text2 B- k k8 p5 b4 {6 i+ l. L( k; F
(mode_tile "hght" 1)
6 a# b( Y9 g; F6 a( X+ b V# ` ~
(mode_tile "hght" 0)
L. r& w3 f7 D& @( d _4 @
)
# T& H) G; Z. ` f3 h, |
(if (= ha 5) ; If Fit text
% S. u" I. I( B6 H
(mode_tile "wid" 1), _; c5 p3 k+ F4 X5 {
(mode_tile "wid" 0)+ h: N. i5 n! s& |3 O* r4 i& d: L& j5 I
)% q/ `* `8 D" W5 U2 w J" \
;; Reset rotation and height if changing from aligned.
! j. w9 q9 b% G$ j$ t$ h
(if (and (= ha-prev 3) (/= ha 3))
9 u1 l, P! X+ {9 S
(progn* r. S4 ]; t+ c! J" x5 P* {
(set_tile "rot" (ai_angtos (setq rot 0.0)))
' K; M6 s; n3 E5 }
(set_tile "hght" (ai_rtos (setq hght 1.0)))
6 L0 N7 s9 b) j& A9 R- s
)
3 C2 |: S6 ?6 q. m& W: _7 n
)
$ e$ m4 ?4 D$ W1 R
# {, Q8 x$ ^: z) Y7 S/ y3 F
;; Reset rotation and width if changing from fit.
; B$ W2 o3 u; r6 i( m9 p
(if (and (= ha-prev 5) (/= ha 5))
9 i5 Y! |- u% y' ]
(progn- I( j4 G @! \' q' e
(set_tile "rot" (ai_angtos (setq rot 0.0)))1 @, R0 r: x5 O: _3 a0 `+ S) V
(set_tile "wid" (ai_rtos (setq wid 1.0)))
% W1 n) R; y9 n0 V9 G: g
)
; d8 u+ A% ?& [( S/ e5 q" p
)% v0 M J: J4 t6 T( J6 B
2 ?% l9 T6 W& [4 A, [7 _& Y, U
(setq ha-prev ha) ; update ha-prev for next time
+ T5 n$ l6 @. W+ U P( T
(setq just-idx (itoa just-idx))
2 A2 A( U# ^2 g
)
2 |7 e6 R" u3 _
;;& N+ n K4 w" l+ s) p
;; Set intitial alignment setting based on vertical and horizontal alignment
& |. K6 s: V K9 b6 \
;; bit codes.
8 H5 [, D f; H
;;
! E! e( h* S2 l0 I8 |3 l
(defun set_just_idx ()
$ w% n7 \$ c: D4 G
(cond
4 e4 Q' E |" e4 h* u2 @
((= ha 0) ; Horiz alignment = Left( f" t. ?, w1 ~' E7 |8 g
(cond
) r2 Q9 F% [6 N/ U0 n9 I
((= va 0) (setq just-idx "0"))
# B. {9 G- E8 P
((= va 1) (setq just-idx "12"))7 j" F0 M% j" J: b
((= va 2) (setq just-idx "9"))( z8 k1 z5 [- S* Y3 {
((= va 3) (setq just-idx "6"))
' S7 @: m- n I, n% X( E
)- h3 C8 a) E2 ^: ]
); U: ~5 L& l; X4 H3 d g
((= ha 1) ; Horiz alignment = Center0 c5 E" \" P: R. w8 e+ B3 v9 [
(cond% Y, f2 _* g( W B5 E0 ]% S
((= va 0) (setq just-idx "1"))/ l) m# E* a) s
((= va 1) (setq just-idx "13"))2 }* C2 c: y% v) ?" g; J9 a
((= va 2) (setq just-idx "10"))2 u0 N8 W, Q% Q5 G; x
((= va 3) (setq just-idx "7"))# L4 s7 x/ e7 ^! g0 i6 u6 @, {" [; @
), |( c Z. K2 k0 x( ]& P+ s
)1 t _/ G& O4 d1 T7 H) y$ U
((= ha 2) ; Horiz alignment = Right
5 j, U. P' Y% I+ X
(cond2 ? l& Q. H5 H; ]* F0 |
((= va 0) (setq just-idx "2"))0 s3 w5 T* U. j9 F9 H
((= va 1) (setq just-idx "14"))
. u l/ R* f+ D' E2 t
((= va 2) (setq just-idx "11"))/ q- T. K. v! [7 O2 R0 p
((= va 3) (setq just-idx "8"))
' R3 m8 Y- t+ z
)
3 H7 w9 G% D& I" `3 ^! C* d
): ?) P' J& G+ J/ k
((= ha 3) (setq just-idx "3")) ; Aligned: T3 A3 }! ?3 |- e
((= ha 4) (setq just-idx "4")) ; Middle( U, e+ A) S/ h4 Q) T% {
((= ha 5) (setq just-idx "5")) ; Fit
" \9 m0 L! Y! V5 s: p4 U) h
(T (setq just-idx "0")), ]9 Z0 b, o2 |2 ^; Z/ F: _
)
" V( t" h1 f0 f3 U' d0 D. e5 T
just-idx1 m$ o; Y9 [9 C( |- E* I) z2 l/ a
). B1 t! e% e' l& d+ R; \4 h' B
1 t7 z8 [' j- f5 N7 s- b
(defun modify_text ()
+ P, v+ w4 X6 a5 G
;; insertion point& Y' Z2 D/ Y$ _- ~
(setq showpt (list x1 y1 z1))+ B: {* r1 s8 @" I S
(setq bit-10 (trans showpt 1 ename))+ l" g, I! w, X4 z* l
;; alignment point( a/ @& ?! D% h+ z
;; for 'Aligned' or 'Fit', alignment point must be different
+ l+ |+ F; ]0 v, i: ~1 E/ X% g
;; for all others, use insertion point- a/ r$ V2 a" `8 X2 g' e
;; (ACAD will recompute insertion point)" j7 f) a& B |. Y+ Y
(if (or (= ha 3) (= ha 5))% T e, o# c' `7 W7 I1 R
(progn# Q: H7 X6 K3 o' q
;; if no alignment point, fabricate one
8 h" L# ?9 n7 b! k' {
(if (not alipt)
" ^, L6 s. |! S* P1 d% |
;; add text width to insertion point
* y2 j8 t4 J- t- U
(setq alipt
' [" N7 x$ g1 l5 E' m
(list (+ (car showpt) (car (cadr (textbox elist))))& B$ T5 G' m; J% S+ d
(cadr showpt)
) O" N. j: ?. V# `8 A: G, \2 S9 Y E
(caddr showpt)
# @" f9 `0 [8 M: k4 ~
): O! M S! T# l/ H. J# s. x
)
+ Z" b$ ?1 i3 K5 Q' n
)$ g6 F' o; j% E
(setq bit-11 (trans alipt 1 ename))
9 x" E9 c1 j# s8 D
)
( F, m. b, H5 F0 W5 ^# ~+ i9 B: Z1 K
(setq bit-11 bit-10)
) D7 u# K& _6 P) L0 p0 K* i
)
1 t0 a/ a5 T+ L
(modify_properties)8 B' o, p6 g3 S2 _: [+ I
(tempmod tstyle 7 nil)$ ^+ u; A8 S' i3 t+ g
(tempmod bit-10 10 nil)
s" r, l4 b" M; n d) T+ R
(tempmod bit-11 11 nil)( f3 t4 b/ k) V7 c2 c/ A& U4 [
(tempmod text 1 nil)1 ?. O- O) b$ g: U1 e6 z2 p
(tempmod hght 40 nil)
! ^0 v' g, q- @- p: G( k, p" b( k( b
(tempmod wid 41 nil)) Y6 i, T+ w$ R
(tempmod rot 50 nil)9 k6 _9 q( j! x$ N" K4 l F: _ Y
(tempmod obl 51 nil)# l* i/ j9 [6 z: J0 g: q
(setq bk-up (+ (* bkwd 2) (* upsd 4)))# s- C2 E. v1 J$ l1 k0 v9 |
(tempmod bk-up 71 nil)
1 M1 f ~, X% t
(tempmod ha 72 nil)
( p( ^3 f3 l4 B' h
;; Attdefs use 74, text 739 J! T& a1 C+ Z P8 J
(if (= etype "ATTDEF")
6 [% f3 J1 L8 K& ?" Y
(progn
& c+ B' T8 I7 ]+ O6 E* |) S
(tempmod attag 2 nil)
1 R" _3 o3 F: X8 V
(tempmod atprompt 3 nil)2 v v. R4 x( t2 ~; |
(setq icvp (+ inv (* 2 con) (* 4 vfy) (* 8 pre)))
5 S8 O+ T6 o" e* h5 O
(tempmod icvp 70 nil)% {1 P$ `, I8 o9 Y" P3 G
(tempmod va 74 nil)
+ W# x+ c/ S% [
)
- K5 ` G' J: A. U1 n( g
(tempmod va 73 nil)$ ]1 Z) Z$ T: l
)
2 X0 t6 K2 ^$ h& B% N/ ~- T/ w% _. ]
(entmod elist)3 `& @7 i$ }' G R( B+ _% R q5 h" k
)
9 K1 q; O5 z/ ~- k9 k9 i: l
# `$ W/ r' p* R1 B( A
(defun ddtext (/ 2ndpt slist i)
; S$ d% S7 X! W7 g9 Z
(if (= etype "TEXT")
7 O8 H5 k3 R2 X2 O$ I0 H% i4 Q7 A
(if (not (new_dialog "ddtext" dcl_id)) (exit)), F: I% y, a, a, e% q( }
(if (not (new_dialog "ddattdef" dcl_id)) (exit))5 h9 t3 Q) p; a$ a* P) |! c
); D" \9 o- r: Q; V _" W
(set_tile_props)
7 X3 k* c; F! o+ s3 @% @6 s/ b: p0 m
(set_tile_handle)
+ P5 N8 \7 Q; z- B& y( R( k
(set_tile_text)7 ~( Y. f2 j& X( J* ?
(set_tile_tag)
: X7 \/ q2 |4 D |3 v. s1 M7 T9 R
(set_tile_prompt)- v& o# t- U0 @) G8 H. ^- C
(set_tile_hght): s+ Z' G" f. N- E7 w& A' H. T
(set_tile_wid)% l6 r9 n4 K# }# x% ]( |* O
(set_tile_rot)& ?$ W9 u/ N& t8 {: ]
(set_tile_obl)
$ t( t4 I; p" U
(set_tile_bk-up)
) f2 u* W! n/ T) ^
(set_tile_icvp): o1 }9 P3 x8 d. Z$ `' r2 {
(set_tile_style)
7 \+ D6 C6 w8 l* H/ a
(set_tile_just)
) S4 h2 W5 _; a9 z# X' v' u& |
(setq pt1 (trans (cdr (assoc 10 elist)) ename 1))
# t# l) `1 f4 R, `
(if (not (assoc 11 elist))# v3 l0 w; Z3 ^% @& v
(progn (setq pt2 pt1)
+ `" \4 u' J& h. `3 g
(setq elist (cons (cons '11 (cdr (assoc 10 elist))) elist ))
' w. `. b6 j( ?9 Y
)! s6 K: d1 L: \; }* q- j0 f; q
;;(trans '(0.0 0.0 0.0) ename 1))0 f: G4 [+ d% k2 h3 O
(setq pt2 (trans (cdr (assoc 11 elist)) ename 1))
4 c2 G# c$ I2 ]8 J) Y
)$ e) Y2 ?5 M% e( K- l' V& Y! _" {( ?
(if (or (and (= ha 0) (= va 0))
/ q3 a4 ^0 i4 d1 K, a
(= ha 3)+ D' H9 R9 l/ B" Q! A
(= ha 5)3 T9 m( D9 N+ L- X: u# b" \$ C! K; K
)
9 ~' v3 Y- o, [# N9 f
(setq showpt pt1)
3 H w7 u r+ ?0 ] s, I
(setq showpt pt2)4 R, e: E7 O5 b1 D; |4 _
)" V }( K* y: ^% c% a& p; A6 ?- |( U# W
(if (or (= ha 3) (= ha 5))# u6 u' V3 p7 o) \6 b$ g5 b7 B" p2 B
(setq alipt pt2)
$ b# N3 f* U" @0 y
(setq alipt nil)& Q, r, t% H) G! P
)0 m% Z4 |2 l) l3 d5 h1 I
) w& l ^) r# `. M" x
(set_tile "x1_pt" (ai_rtos (setq x1 (car showpt))))9 Q& M+ @* ?" Z0 X' h
(set_tile "y1_pt" (ai_rtos (setq y1 (cadr showpt))))% d" I- s; ]1 m4 p
(set_tile "z1_pt" (ai_rtos (setq z1 (caddr showpt))))
3 Q! T' @9 G: t" R: X
% ^& i" ~0 _9 d3 V) w$ }
;; Define action for tiles. ?4 L! F' f6 B9 u/ A* B5 {1 Q
(set_action_tiles)
0 u. x" `$ P5 N7 I- o* I
;; Set focus initially to the text edit box.& K5 ^( |, p' Y2 Z. v
(if (not i) (progn (mode_tile "t_string" 2)(setq i 1)))( B9 X* _" ]# p$ I$ F$ N
(setq dialog-state (start_dialog))
( S& \) Q( U# \/ S l; Y( \
(if (= dialog-state 0)+ D0 O! \& Z- T8 n+ S* W
(reset)
J$ ~% a. {7 t# X
)
, x1 [1 u* w$ D
(if (= dialog-state 1)
+ A, H8 f8 D8 \! N
(modify_text)
A" ]1 u! A) e. c7 S: P) N
)
4 b- [, `" z1 Z- j6 A- f0 G5 L
(if (= dialog-state 3)1 o' d0 G% s/ \. W4 [2 l# G5 V! g
(progn$ ]" z& e- R! @
(modify_text)
0 s- c0 }" w- u+ s* Y
(if (or (= ha 3) (= ha 5))
' n6 v- v% X% k0 E
(progn2 I: L' R" d+ q ^
(setq showpt (getpoint (list x1 y1 z1) "\nFirst point: "))7 [) d! l) ?. R/ f
(if (not showpt)
1 Q$ N" ?7 z2 X7 W
(setq showpt (list x1 y1 z1))
$ _# j5 q2 X% A$ I
)
5 ~4 R& l! [% l% r% y! ?
(setq 2ndpt (getpoint showpt "\nSecond point: "))
- {7 V# o. c4 n+ J
(if 2ndpt
) @ {+ a2 K# i7 e
(progn
/ h' L o' d# p: T4 `
(setq alipt 2ndpt)
, x, o' b* r0 W! B5 J8 S5 y9 _- [
(tempmod showpt 10 1)( g) E% F- P; l0 z$ x7 u9 h. t$ ~
(tempmod alipt 11 1) O4 j7 V+ r* n2 a/ u9 m5 u
(entmod elist)* e; C; Z3 N0 k! ~) b
): E1 ?1 ?6 t/ i# I+ L. _' q
)
1 Z: f3 L5 X& y' T8 f$ C& E
(setq elist (entget ename))
1 @0 Y7 v* x& N! ?; F% _; s4 H7 s
)
" L u# R" U3 n4 p8 r6 V: @9 A
(progn
: |+ A0 E7 S4 W1 d( F8 q
(setq showpt (getpoint (list x1 y1 z1) "\nInsertion point: "))
! T* S* W3 v( o0 y3 ?) E
(if showpt3 X; x5 R5 u# `( ]/ n8 x& Z9 x/ T
(progn
% D' ~7 ?/ e4 J2 J- h
(if (and (= ha 0) (= va 0))9 u1 e0 K& ^4 ]3 g' L+ N
(tempmod showpt 10 1)
. c* i9 i5 l4 u/ U$ B0 H
(tempmod showpt 11 1)
}, D8 z# q+ ?8 E1 l+ \7 M! R9 R
)/ ^# x/ K9 E e& }# t! h, G+ P
(entmod elist)
( `: Z" V# ?# c/ r. L) ?
)
3 B/ @2 O5 Q1 C' m+ L
(setq showpt (list x1 y1 z1)): R% L3 W6 e! f
)
+ i( }& d6 B# D, J: j7 {$ V
)+ `. S: `2 ]2 o
)# ?- q9 R$ o; w1 v4 |- E
(ddtext)
! c6 W1 h) v8 H! B0 L- e
)$ g g' B/ l0 o4 ^; m
)( N$ K$ z& X4 R0 r, A
)2 n8 ~+ m" s& L7 [9 E0 P
' M; \% R* w. u! ~
;;0 _- n: ^: [% x
;; Modify MTEXT0 q: _7 D4 E$ G' h+ q, M/ L* x) b9 n9 G
;;8 n5 T# A6 l6 E
(defun modify_mtext ()
6 u* |" c" _2 h4 E$ S
(modify_properties)& w* @0 q) k$ S% {# r/ }7 Q
(setq pt1 (list x1 y1 z1))/ X) ^4 N8 N& e* u ^) ~
(tempmod pt1 10 0) K z5 B" [) Q" f
(tempmod text 1 nil)
3 o9 Z; Z4 `/ L/ q9 r7 Q! v+ A# T4 V
(tempmod tstyle 7 nil)* I6 n/ M$ i; Q" f! B: h& s
(tempmod just-idx 71 nil)
# k: m% x( P: I; a
(cond5 F9 \8 H! b; I( V3 I6 p; Y( F5 I% a! _
((= dir-idx 0) (setq dir-idx 1))
6 J- s4 j9 C7 {% w, p
((= dir-idx 1) (setq dir-idx 3))
0 K$ ?- m/ U9 C4 U$ P
((= dir-idx 2) (setq dir-idx 5))
$ ], B$ Z8 o1 @+ T
(T (setq dir-idx 1))
- J' P* Z8 I7 W) N* ^
)( e3 n+ ?( ^2 k9 z
(tempmod dir-idx 72 nil)3 K4 W \/ D, k0 I/ E
(tempmod hght 40 nil)
`9 j% {6 a4 C# _: d: j* `: x
(tempmod wid 41 nil)
/ J# [- U; K3 V8 L* f4 i: y
(tempmod rot 50 nil)
2 H# ~& n4 Z' q4 J. `0 V3 P
(entmod elist)) W, @/ W$ @; P. f- q/ Q
)9 u( q! ^2 C. z; r% w# m
. X1 t. |3 ~: a" y
;; Set MText text style& F9 z o3 f: g9 Q7 m
(defun MText_style (index / style-list)0 f q; J* |3 y1 p* l
(setq style-idx (atoi index))% A% h5 u. }$ p6 k6 d, y
(setq tstyle (nth style-idx slist))8 n$ L: C! z4 c' M1 d" Z8 n1 x
(setq style-idx (itoa style-idx))
8 e% K+ A8 g* C) \* m! p2 C
(set_tile "style" style-idx)4 o2 ^$ {( J% Q3 d" e& Q3 z7 [
(setq style-list (tblsearch "style" tstyle))' \* a3 [: w, e3 K
(setq shght (cdr (assoc 40 style-list)))! s) [2 q8 \% c/ ~
(if (/= shght 0)
& g4 s# E( o" o) R* v1 F5 k/ p' R
(progn/ t: w4 |, K$ o8 L- S6 Q
(setq hght shght)
: L' B8 ]. ]' W2 @9 P4 Z. F+ N& B
(set_tile "hght" (ai_rtos hght))* {5 G- g; B& ]) N
)% W+ W/ \, K$ i R0 ^- S
)
1 w1 t* H6 K4 P9 r
)
0 o/ g7 r! `3 x# H' z; M, t" @$ g5 m
$ V& f# q+ u' Z+ N. `# E
;; Run DDEDIT on given entity, working around possible re-entrancy9 H/ m( J& [" {8 [0 n) z
;; problems with MTEXTED8 n) `5 z8 Q7 P/ C
(defun safe_ddedit (ename / orgMTextEd work)
; C+ [- a: S. d8 R, W+ V
(setq orgMTextEd (getvar "MTEXTED"))* Z7 G% ~0 X8 l
(setq work orgMTextEd)
& A4 Y$ c! w4 F) e
(if (= ":" (substr work 1 1))
! B3 @/ i. u% `. }
(progn
( Y0 A* e4 }0 T8 a- I
(while (and (< 0 (strlen work)) (/= "#" (substr work 1 1)))
- V2 o/ s1 X; }, y! |3 {5 o
(setq work (substr work 2))8 ]: |& r. {/ a( T: ]0 W
)6 y% H, C$ O `0 I1 }) L
(if (= "#" (substr work 1 1))
8 p& v Q9 P6 V! y5 z+ n) e
(setq work (substr work 2))
3 ~% ]3 ]& Q* s! f8 j
); q) J! k5 q# k* n3 T2 e3 \
(setvar "MTEXTED" work)
& \0 t. x& w" P* ?$ d
)
7 E1 [+ m) Z0 w7 J
)# Q2 s; ]8 y9 A u9 y
(verify_arxapp_loaded "acmted.arx") ;; make sure it's loaded...% s1 Q6 Z3 }* @0 }. J% j' l
(command "_DDEDIT" ename "")
5 Z2 Q0 o9 M# l1 P6 _1 L5 m) j' Y
(setvar "MTEXTED" orgMTextEd)4 Q! S4 t; Y% b& j! E% j
)
2 \$ _) s2 P& _' \8 \
# ?/ k' l1 t" |, \
;; Verify MText object width
. d" n" f6 h v( p
(defun ver_MtextWidth (value)
6 B& l' l& Z2 O% `( a; X# \6 L) m
(setq value (distof value))
+ B: r: l1 q, p
(set_tile "MTextWidth" (ai_rtos value)). V% A8 f. E g/ I* G/ o
(set_tile "error" "")/ S! [5 C" {2 t
(if (< value 0.0)
4 {- H8 J) a/ J
(set_tile "error" "Value must be zero or positive.")
+ y+ p. K/ ]0 Z# {0 u
(setq wid value)
( P* Y/ E! X. x, p3 x
)
. Z# J8 C; m) Y7 c: k
)* F8 q7 q9 A! L+ h
+ l6 Q4 P8 x" K2 e* {/ W
(defun ddmtext ( / gc3)3 J. J: m }$ T9 h6 k4 Q
;; Get dialog4 y$ V2 j& u; A6 J" _" ]7 H, Q
(if (not (new_dialog "ddmtext" dcl_id)) (exit))
' z+ n( N% T$ y6 I: w9 n- r
+ K" v6 T/ d* s
;; Load list boxes+ k0 h* \& `0 G: w! E2 E5 o: ^) J
(start_list "MTextJustify")
7 i. H% i" ]8 K8 S
(mapcar 'add_list '(
$ O0 i' Z- c! f2 o4 e7 K
"Top Left"+ K7 k) L/ d; u# o6 A
"Top Center"
- E! ]2 b$ |- _3 f' a
"Top Right"
& I' V2 Z) ~+ a4 h: k7 b
"Middle Left"
+ q+ M; [- w% \; l+ f' A; }/ h
"Middle Center"
% O$ Q1 G7 d+ J L
"Middle Right"; {1 f d! n7 A/ u4 z! ]0 X: b
"Bottom Left"
3 |1 w6 |& y6 h1 P/ W
"Bottom Center"
# e, v$ ~# f" a9 F% K
"Bottom Right"" `0 u$ q5 G! d" U, Q
)
4 D' Y9 g( G# `, ?
)2 |4 W0 |1 [# R+ i' L
(end_list)
5 F: }; i; R: N! E3 j0 I: I% z* T1 m
(start_list "MTextDirection")5 C% O/ T* P6 T
(mapcar 'add_list '( n. |$ x6 U4 p0 Z( J# N8 A. `' y5 L; u
"Horizontal"
/ L8 J" o, l/ w: f
"Vertical" k% J5 w0 Y% W6 g6 |0 J5 G) n. T5 [
"By Style"
1 ~& }: e4 r2 q# m4 X; |7 C9 K
)
4 a0 m* q% n4 n$ x* v9 K! d9 V
)
9 L+ X; {9 J4 V% V: Y2 l9 C; T2 L
(end_list)
( l" V9 a$ F* P8 f; p
4 b( C0 b, d7 b$ c
;; Set initial tile values( u- V# t. x3 J* b+ U0 i2 A. h& Z
(set_tile_props)3 \3 G8 D8 x2 x. x$ |
(set_tile_handle)
- x6 s0 V5 r# K9 M+ i" q
(set_tile_pt1 0)
8 z5 c& k! x/ g+ E3 m
(set_tile_style)1 z8 ?) ^% o, P
(setq just-idx (cdr (assoc 71 elist)))
/ [8 E) K4 Y$ @: B- }9 f
(set_tile "MTextJustify" (itoa (1- just-idx)))
% S! i- t' P& E
(setq dir-idx (cdr (assoc 72 elist)))
" F8 e" ~ H7 x8 ]& d4 Y* n8 Y
(cond3 L* A2 |5 V& J& P& O% Q* ~+ L
((= dir-idx 1) (setq dir-idx 0))
0 G8 U, i2 G# i
((= dir-idx 2) (setq dir-idx 0))
; ?$ r6 F8 L% c
((= dir-idx 3) (setq dir-idx 1))
% i3 d* h# o5 p
((= dir-idx 4) (setq dir-idx 1))& Y% A/ P* {) C0 W
((= dir-idx 5) (setq dir-idx 2))1 I: W+ _* i- H" v% K
(T (setq dir-idx 0))( s2 K. K6 f7 g1 |, F( c
)
% D6 a) B; H8 } d; M: f
(set_tile "MTextDirection" (itoa dir-idx)): ~3 G _* D& o9 j8 j, m
(set_tile "MTextWidth" (ai_rtos (setq wid (cdr (assoc 41 elist)))))
0 D1 ?+ Z) d% K# D$ n
(set_tile_hght)5 y0 e% `4 d' U+ @
(set_tile_rot)
' E7 _5 G/ G: N4 r1 O! y
4 o4 y6 u9 x, c9 S
;; Set edit box, disable if too long, H% p/ W+ E3 I; Q) u
(setq gc3 (cdr (assoc 3 elist))0 Z5 v2 n* K* j' `
text (cdr (assoc 1 elist)))
/ Y5 @2 ]' s) v7 l3 j
(if gc3' ?1 L. B+ c/ l$ M! C( g$ D
(progn ;; Text is over 250 chars, disable edit tile
4 g! y) G" N. l0 q% b6 }+ z
(set_tile "t_string" (strcat (substr gc3 1 25) " ..."))! G, x% O# H+ t& Z- s
(mode_tile "t_string" 1)
9 j5 i7 T u% S1 R: t
)2 @& Z6 ?+ F6 ?5 e
(if (> (strlen text) 80)4 d$ Z# h: f4 {: p5 G
(progn ;; Still too big, o, @2 e) s# V4 o
(set_tile "t_string" (strcat (substr text 1 25) " ..."))+ E; T r5 E3 Z
(mode_tile "t_string" 1)
9 ?7 E. c& B3 O. j* A
)
5 ~7 S5 C" I: }9 }0 ?2 A+ y
(set_tile "t_string" text)$ X3 s k0 `) W( m& Q
)4 h7 k' W3 ` t" V* H
)
8 a) r m; x5 A0 o+ I
' d) V q0 r8 l0 w; ?% t8 ~ m9 Q
;; Define action for tiles
* j' j# L/ }% ^! z, E) I4 L8 G6 B
(set_action_tiles)6 u W3 e4 l1 m: q
(action_tile "style" "(MText_style $value)")! q8 J1 s% @+ z% H1 K
(action_tile "MTextWidth" "(ver_MtextWidth $value)")0 M9 V2 F ]+ H* J! a8 }9 H9 p3 D0 R
(action_tile "MTextEdit" "(done_dialog 4)")' {. {4 _2 |4 ]) H! I
(action_tile "MTextJustify" "(setq just-idx (1+ (atoi $value)))")2 A2 h( q" a4 Q" Y3 O" v( X
(action_tile "MTextDirection" "(setq dir-idx (atoi $value))")
5 A2 @: m& |8 F# S2 g
) w0 b. W. p5 P* c4 c
;; Set initial focus to text edit box.
6 E4 h! I% W4 _% z
(mode_tile "t_string" 2)
/ h( H* U- k. t
`. @9 J) R; W5 Y3 p f0 L
;; Run the dialog
! l2 L( z; s* W/ |4 B2 G
(setq dialog-state (start_dialog))8 a2 [* y) C0 _5 w. u0 m8 j
(cond
" u3 k% _4 N' ]( Q2 D
;; Cancelled - restore saved data. X- t" s* x+ A$ G# T( b% I% g
((= dialog-state 0) (reset))
* A7 s1 n6 H6 d7 t
;; OK - save new data
- \( X% Y4 N9 b$ w$ z& N/ u
((= dialog-state 1) (modify_mtext))0 [* _+ P, T$ j7 ~
;; Pick new insertion point
( C+ B; j3 k+ q6 K- T- N, Q$ w
((= dialog-state 3)
! R1 Z& a% p+ v8 }% W
(modify_mtext); f* V6 ^, x" |% U3 S
(setq pt1 (getpoint (list x1 y1 z1) "\nNew Insertion Point: "))
" }, i# c/ @! K# w2 x
(ver_pt1 0)( o* I1 P. ]) l9 p. n5 ?, ]3 |
(ddmtext)
. }; R$ o L$ D: U
)
$ o( z# W$ ~5 F% g z
;; Run full editor
% J, k( V- V8 R C9 f
((= dialog-state 4)+ ?7 L( k! a, R+ T: t7 z# W2 D
(modify_mtext)9 a/ m( U0 O7 @9 X; @
(safe_ddedit ename)
- T" Y/ b4 f2 Z* u/ ~6 A0 N
(setq elist (entget ename))# n; c! K6 k m9 W) }6 {
(ddmtext)' @* Y5 T, l) o. }2 P- P5 ]( e8 i
)# M0 E( u5 b+ }1 E2 u
(T nil)
! B: N w2 R- S8 E& s
)/ c+ ]% {3 c$ J$ @( J
)7 t" l- M5 y w7 @7 R
* N" I5 t+ z. n1 u' B& r+ {/ y( O. d
;;
7 s# o( x3 T/ M+ g
;; Modify VIEWPORT
D+ X _5 d8 W& G& D7 x% X1 `
;;9 w& x" K9 v. F# P/ F
' G7 L% j# v0 P! q: L! @* m
(defun ddvport ()6 \4 }" ~* C/ ]
(if (not (new_dialog "ddvport" dcl_id)) (exit))
# v. m9 z# B2 G. h2 Q
(set_tile_props)- A* j1 I q0 L
(set_tile_handle)
\& _# j7 }9 r8 Q( ~8 g
(setq vpt (cdr (assoc 10 elist)))
7 o% o6 v; a+ X2 z' X) d3 y0 \- ]
(set_tile "xtext" (rtos (setq x1 (car vpt))))
, Q4 ?0 s" [& D- ^! r, K
(set_tile "ytext" (rtos (setq y1 (cadr vpt))))
! B$ {! @: w. P9 O0 E" ^
(set_tile "ztext" (rtos (setq z1 (caddr vpt))))
2 B) r% }* R l' S
(setq wid (cdr (assoc 40 elist)))
0 w0 b; z( m* {8 T
(set_tile "wid" (rtos wid))
- w J. k9 r6 e3 U; a; M
(setq hght (cdr (assoc 41 elist)))2 J) O, E( Q. t0 z
(set_tile "hght" (rtos hght))
$ ~7 Y3 ]1 V% k
(setq vpid (cdr (assoc 69 elist)))
7 \8 n* ]& E4 E$ K6 W
(set_tile "vpid" (itoa vpid))8 A! I1 u' `' B# a" e* m: d
(setq on-off (cdr (assoc 68 elist)))
- n3 H# S7 {% F- {
(cond! m9 W" \0 g% j+ Q% \$ C" x
((= on-off 0) (set_tile "on-off" "OFF"))
6 T* l4 C/ I! F/ N( F1 N9 r
((> on-off 0) (set_tile "on-off" "ON and Active")); s) J: b- G3 a
(T (set_tile "on-off" "ON and Inactive"))1 X; S3 M, A' W: ~# D
)8 } ^* A% V; W0 P2 X
' {7 A/ `9 z# u# b3 n
;; Define action for tiles$ E! p1 n6 v: S9 [! \) i* n9 q
(set_action_tiles)" L0 t9 m2 Z* ~" `$ z4 e
5 {5 I4 K9 ^9 k+ _8 T
(setq dialog-state (start_dialog))
- |2 Y+ s5 O; S7 A6 X$ ~
(if (= dialog-state 0)
- g# y9 i$ W& P& m9 r
(reset)
6 O$ @! b0 G. x+ j6 ]! b5 j
)
3 [ V. ^0 z: U4 n: G+ M
(if (= dialog-state 1)* V. R3 R. c* G: q) x+ G
(progn
5 d' G2 M9 a$ ~
(if (= ecolor 0) (setq ecolor "BYBLOCK"))
$ K7 ~* g% W- j9 ]+ C0 _4 ]
(if (= ecolor 256) (setq ecolor "BYLAYER"))0 l4 t# a9 w8 m; k: {5 k2 G' L
(command "_.chprop" ename ""
# l: u: Q8 }7 [8 o% u8 U4 W" V9 X1 d
"_la" elayer
$ ^" M* } Y, @6 ^8 D% E
"_c" ecolor ""3 O0 e! o" Z5 {" T# i! ?( b }. W
)
0 ?( V; p; \* |% e. I
), f$ S8 K' ~& d: H9 `) I) ]% h9 [ @
)
; k4 [( q, F( m5 I9 c' c: L. i( ]
)
5 q- b: V- w1 y6 b( J+ _
;;! S# K& Y' B% M2 d/ i
;; Modify POLYLINE
9 f5 B5 F- K& ~$ i- F) z7 ~
;;
7 L) T1 E, z8 }0 a5 g
(defun modify_polyline ()
2 g. n; J$ \8 ]" H1 u. N
(modify_properties)9 _% f% a+ b! [
(if (= ltgen "1")
2 Y* _3 g1 ~! b# o9 i" E k' M
(if (/= (logand bit70 128) 128)
- S" a+ ^, }6 A8 v: H" b1 O
(setq bit70 (+ bit70 128)). }3 [$ |* z+ T1 _, `2 m+ l5 H
)" F# C I x5 c* O4 f3 C
)
2 w. b+ j1 {" a) e5 G
(if (= ltgen "0")2 b# N9 U: U* j7 p6 R, |
(if (= (logand bit70 128) 128), k/ l1 Q! B5 \0 T0 f% G
(setq bit70 (- bit70 128))
; ~/ |; f7 H8 T
)
; p8 \ h, D/ e. S7 E) k
)# A' F! h0 H: }1 Y- f0 R8 v5 i( C
(setq elist (subst (cons 70 bit70) (assoc 70 elist) elist)) e' A; t8 g, }, Q# i" Y
(entmod elist)5 J8 J* G r; b7 u1 h% b! {( e. X
;; Added to take care of updating Vertex information for color' {' S7 o8 P9 X, ~
;; and linetype.
: }+ z3 U( l9 r& e
(setq save-ename ename save-elist elist)
: n; Y2 U4 D: E6 d
(if (= (cdr (assoc 0 elist)) "LWPOLYLINE"). S- y$ X7 Q$ U L0 V f
(progn
. L# h+ O; {9 U# C ?
(emod ecolor 62)
( A7 x- F% ~& f& D& q7 p
(emod eltype 6)2 }8 S- q1 v/ O' b0 W7 r
(emod eltscale 48). P/ G1 l. U' D6 S# m
(entmod elist)
0 A* t+ F I( C/ k
)
1 l8 Z' c2 U0 N5 Z
(progn' ]/ W0 ^8 l8 f. |( U z, E* v
(setq ename (entnext save-ename))* L+ H9 z/ M8 O. f2 I) x7 I: w+ ^9 }+ k
(setq elist (entget ename))3 W; _8 Y. @. n% `. ~0 E" z$ _
9 j8 y! i4 H6 d6 H! Q! Z
(while (not (= (cdr (assoc 0 elist)) "SEQEND"))
: Y5 j( d& ^; Z: h
(emod ecolor 62)8 d+ c, z5 w7 I% {1 m$ Z
(emod eltype 6)' B; p+ H2 P0 q |
(emod eltscale 48)4 z# \# ~; ]! Q- K* m a$ x
(entmod elist)
; G. e) ~: |0 X" j6 V9 ?
(setq ename (entnext ename))) B& s3 X0 y" p/ o5 s3 V, `; n6 i
(setq elist (entget ename))
7 ~! K+ p7 k! @) \2 S% P# `; Z
)
" Y9 d7 L! `" K H1 x& F
)# F k4 h0 m* ^- V5 d
)
( U! Z7 _( {1 H y0 y1 M
;; Update the SEQEND
: v, q3 o: l8 u5 |7 H' |% u& Q
(if (= (cdr (assoc 0 elist)) "SEQEND")
1 d7 ~7 N0 y5 q
(progn' C+ h- a e$ V. f3 h8 Q% k
(emod ecolor 62); [, E8 }. ~* X) T, I
(emod eltype 6)
( z" I: Q2 O% M' N. C% L! T
(emod eltscale 48)0 x8 j; m) r1 d' Z- E% C
(entmod elist)( ]; E6 k" H* _8 N3 K2 y# }$ ^' v1 b
)/ s: K, h9 i- O
)
$ Y3 o( A' ? V3 t5 C. U
;; Go back to header.7 B9 {/ R) I! D; `/ }, \
(setq ename save-ename elist save-elist)" g4 i5 D! U1 G! j# M
2 `5 Z& o0 g8 O6 B2 f W" t; k& \
(entupd ename)
5 \: t% u& b; o. k- R
)) i5 h$ g7 n* Y! [( c! Y
: j% B4 x* U' y1 L
;; Increment vertex. Set tile values to next vertex
5 F. H9 g2 ?3 n. ^
;;5 @0 A4 @3 G2 M4 Y4 p
(defun next_vertex (). L: }* }% A' m/ l& q2 ?
(if (= (cdr (assoc 0 vlist)) "LWPOLYLINE")
0 U- q: H6 K" G u' p+ k
(progn! p5 R4 b$ ~+ R2 H( I: L
;; If the counter reaches the number of vertices,
3 m/ h* B. ] g, J% @2 ^
;; roll it over to zero again.
' i' c& P5 `( r3 F+ l- s' l0 S3 P
(if (= ctr (cdr (assoc 90 vlist)))
& b4 f( s5 C* X: V
(setq ctr 0)
7 j( z2 L5 W! {# \0 M8 Y8 v. Z1 b
): F: g, b* O0 d: N3 w P2 _
(set_tile "ctr" (itoa (setq ctr (+ 1 ctr))))
* O" N( h- Z) h) T, Y$ l% a
(set_tile_vpt pointype): {( T1 s7 U) ?4 G0 a9 ~5 v- k
)3 o. F' J. T9 t. n5 F
(progn
( U' A0 b/ v$ f3 u& s9 L5 c/ [
(setq vname (entnext vname))7 V6 N. N3 F/ u. o: M2 Z
(setq vlist (entget vname)). F, [, n2 q) G. K# N
(if (= (cdr (assoc 0 vlist)) "VERTEX")
. Z0 w5 W0 f, X7 ?" ? @# w
(progn, N& c' b o2 q/ Z! W) R( m( [- Y
(set_tile "ctr" (itoa (setq ctr (+ 1 ctr))))- |9 U: Z Y( ~: x G# K
(set_tile_vpt pointype). }& D$ R! p: `
)$ S1 V& v: {5 k9 I6 k! c# }
(progn- S3 h p$ N$ ^/ W5 @% F
(setq vname (entnext ename))
( o8 N% I# w# C# _
(setq vlist (entget vname))
( C' J$ U* X& G: D) B
(set_tile_vpt pointype)
. V3 D0 B2 Z5 C6 x1 g! C7 ^1 x
(set_tile "ctr" (itoa (setq ctr 1)))
9 g4 I7 {1 [ a5 q( A' \) ^ G
)+ N5 F5 D* R" Q
)
; @* X2 H6 m6 ^9 n+ U
)
d" s9 C; k" ?' Q( k5 W
), G: u5 u) x) L- M' T8 _+ w. e
): j) j6 ]' X" W8 H5 ~
& o/ f# o$ j4 [1 Q$ m& ^
(defun ddpline (/ oldecho)/ } e2 K; m- Z9 k
(if (not (new_dialog "ddpline" dcl_id)) (exit))2 B) Z( [6 ]7 m4 Y% F* g
(set_tile_props)# S. @4 [. c; J/ Y
(set_tile_handle)
, j1 }9 |0 ^ F' S* u4 d: r
(setq bit70 (cdr (assoc 70 elist)))
$ ?, m" n0 S1 Z+ i7 m
(setq bit75 (cdr (assoc 75 elist)))
. B% t7 X0 R# f* B/ |
(cond
* F- T' j% T9 p. Y- g4 f2 i
((= (logand bit70 8) 8) ; 3DPOLY$ O9 T9 U4 d Y; D* ~
(set_tile "ptype" (setq pltype "3D polyline"))
+ `2 | V" Y- ? _
(setq pointype 0) ; WCS or ECS point values
/ G9 |+ u G( x# k
(mode_tile "fit" 1)) U+ Z0 e0 f) ^* }7 _# s, G
(mode_tile "mesh" 1)) U, [: Q: A! A
(mode_tile "bezier" 1)6 X/ \8 J3 U" D
(mode_tile "ltgen" 1)
(set_tile "none" "1")
5 q; P9 c$ u0 b1 g; U3 Q& q( f
(set_tile_closed)
- x5 q8 e3 M( X# q# u3 v% T
(set_tile_fitsmooth)
8 ^* w( M5 v' P. U& ]' ^
)
_2 x6 Z' j! H P
((= (logand bit70 16) 16) ; 3DMESH
# o8 g T# W( v5 n7 y; g
(set_tile "ptype" (setq pltype "3D mesh"))
0 h7 H3 v9 g- t, \
(setq pointype 0)2 u9 \- L$ a, I u9 B( Z
(mode_tile "pline" 1)
1 Y3 h6 ?$ U0 b) Z( [
(mode_tile "fit" 1)
" ^# M* d( u* m& O" [( f- Z; a5 F- y. {
(mode_tile "ltgen" 1)6 G+ e0 r4 n: n$ ~3 m
(setq m (1- (cdr (assoc 71 elist))))
& A- ], y; G1 t5 D& h7 c
(setq n (1-(cdr (assoc 72 elist))))
4 m5 _: J3 N- N: @( F
(setq u (1- (cdr (assoc 73 elist))))
# t) C* k9 z( `- Z
(if (< u 0) (setq u 0))
9 ?" ?: ]9 A2 H# s
(setq v (1- (cdr (assoc 74 elist))))
- B( Y. A* w2 U$ { d4 x* a0 R
(if (< v 0) (setq v 0))
4 M9 y( v: O7 {2 v' I* a% o1 E* m
(set_tile "m" (itoa m))- X2 o( c1 |" L: m5 f$ g
(set_tile "n" (itoa n))' f$ d- D9 Z! u" ^" q a
(set_tile "u" (itoa u))
. C" C7 [4 j0 W" w
(set_tile "v" (itoa v))
8 h6 W; t+ f3 P* ^6 g
(set_tile_closed)5 E, }- t# ?( n7 @
(set_tile_fitsmooth)
% ^& W5 B1 G' A2 b
)& R9 q4 k2 b" K
((= (logand bit70 64) 64) ; POLYFACE MESH
' J& a6 ^7 v% _' V
(set_tile "ptype" (setq pltype "Polyface mesh"))
4 Y6 ]6 n8 h1 c+ q1 ^
(setq pointype 0)
, M! ^+ X ]2 h( f1 o4 E
(mode_tile "f-s" 1)
- M2 G) d5 T6 i4 N; g* g' i/ x
(mode_tile "mesh" 1)
* `) }; X" [. E4 h
(mode_tile "pline" 1)
; y2 X: }! e8 }# F8 M
)
; n$ V4 ]* `, N6 d% W; H
(T ; 2D POLYLINE3 G- X( E7 e0 p1 ]2 `
(set_tile "ptype" (setq pltype "2D polyline"))- ]! f8 p8 K) h. ]' l
(setq pointype 1)
* R6 W4 O, d6 T' z6 q
(mode_tile "bezier" 1)0 y8 {1 k1 m( {! V1 P
(mode_tile "mesh" 1)* g3 \) F' A. r, q4 i: q* Y6 P
(if (= (logand bit70 128) 128)
. N* b! N: U/ U
(set_tile "ltgen" (setq ltgen "1"))
^5 P& U* F6 W4 s/ I j9 M- ]
)
1 Z3 ?5 E! P e
(set_tile_closed)% s- r8 q8 e9 K' L4 P
(set_tile_fitsmooth)8 R5 }. }( A# R4 N6 y- i
)- m. |# T- t. b$ e; D
)' t9 D4 g8 O- Y+ v. b' x
; k7 f; K$ G, h; F6 D, S
(if (= (cdr (assoc 0 elist)) "LWPOLYLINE")" V) I9 ~7 d4 L/ L8 F
(progn
8 J2 c/ c* m1 I0 @. W2 R h7 N
(if (not next) (setq vname ename))
3 _7 H0 z! h% v9 y3 c6 [: S
(setq next T)* [& O( y7 |8 D5 g: m
(set_tile "ctr" (itoa (setq ctr 1)))/ s+ u' S5 m1 S: ~, x3 I
(setq vlist (entget ename))
; X; A0 r* r1 L: a8 o8 B( `
)3 [* D; S4 H- k1 v9 M+ H1 D, i
(progn
' U5 Q4 p3 e) ~2 p
(if (not next) (setq vname (entnext ename)))" @; Y, b. a2 [
(setq next T)
9 o; x" n4 t0 \3 i
(set_tile "ctr" (itoa (setq ctr 1)))
0 O2 u6 _! C( a% v" W8 k
(setq vlist (entget vname))
8 {" j" ~! R. D& f$ h/ C/ s
)
+ D# J+ L# B* ^- S7 b/ k
). V+ E# W! O, @6 E- s& ?
(set_tile_vpt pointype)
- @$ D3 _5 z$ N7 O! H
;; Define action for tiles3 `3 w6 ~, O; O6 Y* m! I+ X
(set_action_tiles)# x9 u: p2 E3 O$ j! N- y) Z; V
(setq dialog-state (start_dialog)), g( J( \. c: m6 C) ~
$ e$ \8 T, W, N( B0 I! Z' g
(if (= dialog-state 0). k. d' [1 I$ Y/ N" a) r( V
(reset)( Y6 T+ W! E; b' x, A" `0 h
)
: K" b$ G4 A" ?$ d5 L P# s8 ^
(if (= dialog-state 1)
0 i: A/ b$ i, h- S0 A9 A4 s0 B
(progn! c- z3 F2 ?1 [4 B
(modify_polyline). ~5 t3 Q/ H6 Y: |+ z5 A
(if (or (= pltype "2D polyline")
8 L( R* W7 z# \: F/ d9 Y
(= pltype "3D polyline")
9 T1 J0 U9 g4 p* Q0 L
)+ W V$ f% [* |- r
(progn
( o- h8 i( W# q
(command "_.pedit" ename)) J6 C+ R, s8 h1 O8 X
(if (= spltype 0) (command "_d"))
7 V! Z+ y, o$ ?* b$ l
(if (= spltype 1) (command "_f"))
$ _+ V V1 e+ X+ M9 v0 k
(if (or (= spltype 5)$ P4 t }; ?0 M% m$ O& F
(= spltype 6)
# O1 s7 j" @1 ?( R( F c
)
9 q- @* x: ^" U( d+ y3 @
(progn- x: j5 A$ l- O; K, b/ \% Z
(setvar "splinetype" spltype)
( v& I2 ~& z, l; b9 h# X
(command "_s")0 I% z+ }3 r7 G) H4 x) m
)
7 W* u- T/ }3 e) w) a
). N4 U; Y6 y% F( t/ O8 A8 Z( Q
(if (= closed "0")
! L% {+ L; f7 ~, {, l% h! ~1 `
(command "_o")4 [* K: L; x% q+ S% e8 _
(command "_c")$ N2 I: U1 u6 q+ S; \" g3 _
)
% V6 q, ?( Z( ~9 \" g; {1 Q
(command "")
, D! [* e. h7 Q$ P X
, \0 B3 r( D4 l2 L6 j' q! N( L
(if (= spltype 0)
! L: v1 W/ [$ e0 |+ a$ y0 p8 _
(progn/ o6 u1 a( G7 B/ G
(setq oldecho (getvar "cmdecho"))
1 E+ G- A0 B8 [4 a1 |7 t- r3 N
(command "_cmdecho" 0), y# b$ W8 q6 N' ~
(command "_convertpoly" "_light" ename "")2 v4 D# O" N) s2 \9 z8 c
(command "_cmdecho" oldecho)/ Z1 q! ~) @& f$ P, ^
)) {9 i3 ~; d5 t b# i# R3 V
)$ v0 ~7 y% p2 g1 {" x, R
). {( q+ x) O) Z' C9 ?
)3 O4 r: [" W0 w( t% j" `+ G/ q% b
(if (= pltype "3D mesh"); O4 ^0 g1 J. w( K* o9 ` {9 b7 _
(progn6 b$ u. ?" q0 ~& f
(command "_.pedit" ename)& E; j' j2 l" K$ r
(if (= spltype 0) (command "_d"))
! _! e; }, k0 m- J6 _) m" z6 g8 I
(if (or (= spltype 5)
& h0 r% f! Q3 Q
(= spltype 6)
$ S4 f9 [! }) ^6 {& Y/ @' Z8 T
(= spltype 8)
! K7 H3 K& E6 K+ Q4 p/ H
); l! [3 X1 j- @9 [0 V+ I+ n, t
(progn! L4 u8 a& g9 H1 ^5 v, V" {3 B
(setvar "surftype" spltype), ]7 W8 N3 k Y( |
(setvar "surfu" u)+ P3 |4 B3 G2 A# e6 {) Z% |' L
(setvar "surfv" v)
# v7 c5 m2 n0 q. K k8 e+ Y# C
(command "_s"): M: j6 q' e" L6 R. I
)
7 H+ F4 m+ Q5 L3 ]' ^/ N
) v# v/ M; h! d' l) r
(if (/= closedm old-closedm) L2 J! E, C; `
(command "_m")
( ^" b) r2 e+ u2 Y$ y
)
. Y/ `9 c2 t$ R6 L* Q) [3 U
(if (/= closedn old-closedn)! ?# c# H, W0 V4 f
(command "_n")
! M9 |5 O d+ Y
)( ~$ U; b+ n5 s* }3 A+ l/ W: P+ P
(command "")4 t5 k3 j7 L. p$ x) `* `
): @. x1 T/ o& N4 b7 {' I7 U. F
) G3 `! \5 q! d) j: J
)5 A4 Z% q2 F( o3 w
), ]1 I5 a% f# C- h9 F! b
). F; M# z0 f+ W2 P2 Y
;;
; p2 k) q3 z6 P/ y
;; All the spline data is contained in a single elist. We must do some
5 W5 [9 ^1 X6 a3 z/ t9 T
;; tricky list processing to loop through the elist in order to display3 i0 z" K x z% F n
;; all of the control points.
3 Q& A! _$ K4 J, |$ f# i
;;
: j p( R/ M. F) V/ y1 s8 W
;; The structure of the elist is different for rational and non-rational
- [ [; V% Q2 i x# ?. `( M d: m
;; splines. Therefore, we check the rational spline flag.; E2 Q3 s8 t- ?- M7 f- {$ D8 O
;;
1 E: p% {' k6 Z- l/ Z! Q" U" M
(defun next_cntl_pt ()( p B9 w, C& l: O' d. ~$ ?
(setq elem-no 0) ;; elem-no = element counter
+ [' O6 K3 o* {! Z" G% H
(if (= first-10-time 1) ;; If first time, find location of first
0 B r6 ?+ B( j- Y( T
(foreach list_item elist ;; cntl point element in elist' S) |3 N5 _& A7 H7 V$ u
(progn4 `. u6 T. Z# }# J4 q; {
(setq elem-no (+ 1 elem-no))
0 Z: ^" i0 K) q# n
(if (= (car list_item) 10)% T% s3 f9 f/ s( g
(progn, M0 Z/ E6 W7 Z/ k
(if (= first-10-time 1)% p( W* Y, y* m; s
(progn
k' s1 K8 u7 M4 e) {" j
(setq first-10-rec (- elem-no 1)), f: t2 I$ U& D' g& U) ?
(setq first-10-time 0)5 v: [' g( B+ x1 b6 b
(if (= rational_spl_flag 1) ;; if rational+ A: _ o# ?4 V' M- B' }
(setq cur-10-rec (+ elem-no 1))
- I% @( ?1 Z* Y! h7 S
(setq cur-10-rec elem-no)) _" v! t: o* T" d; i
)$ ]( R1 x- w! F9 J
). E6 D+ ]" C& B6 l3 F% k3 j
)
2 p! K N! Y/ P, r
)
3 p6 z/ A* \ U" r6 j
)' } ^: k5 o+ J) a
)
9 p/ O! @" j: `* b9 s# |
); u7 Z2 J+ m) R. t' O6 M
)
4 o8 n5 Q( Y& \* d8 b( s$ c" Q
;; Now we know the location of the first "10" record; it's stored) J+ B$ J' W2 }7 g7 c$ Q
;; in first-10-rec. The first 10 record was already displayed when. V: I# |; B4 t1 q3 N& j- e. R* I6 h1 W
;; the dialog first came up so let's display the second one when
) t$ c- `" C: C3 v" p" [' g
;; the user presses the "next" button (the first time through).0 l) N' J! @, n$ v# \1 g9 s1 a
;;
9 x6 y. r( f5 N- e
(setq temprec (nth cur-10-rec elist))
+ V% {* ]. `6 P8 e4 s- m3 v6 b- o
;;) ?9 m7 T# f0 r! j- z7 W4 h
(if (= (car temprec) 10) ;; if 10 record
) t2 m' z" H2 ]! f
(progn
, ]7 P+ v% c' B
(if (= rational_spl_flag 1) ;; if rational spline7 A" p3 d5 r( o3 T
(progn6 k! M. I( i) {
(setq tempweight (nth (+ cur-10-rec 1) elist))
3 H: K0 p1 L) x3 Q/ k2 F
(setq cur-10-rec (+ 2 cur-10-rec)): q" q( q& Z. i7 Y
)3 l* `" \1 F3 A1 _6 b9 b
(progn ;; else. k0 o( V" |2 t" |
(setq cur-10-rec (+ 1 cur-10-rec))
3 o4 o! n( A5 ~! P$ p8 y) ~* ]
)8 Y7 D2 E1 n" t, {( P& Y
); }6 a. m* x0 a, }1 g) c
) ;; end if rational spline7 A3 T! U! ]6 i. E+ v0 {
(progn ;; else reset counters( y4 q$ T1 U' L" Y/ l+ {
(setq temprec (nth first-10-rec elist)) ;; get 1st 10 rec" p8 F) s8 y5 f3 x& X
(setq tempweight (nth (+ first-10-rec 1) elist))! a, Y" Q1 a8 p. C5 m( G
(setq cntl-pt-indicator 0)9 O7 {) }, c3 m5 o% \/ M6 ~
(if (= rational_spl_flag 1) ;; if rational
" K3 u( w+ ^4 M0 T+ j; z
(setq cur-10-rec (+ first-10-rec 2)) ;; point to 2nd 10 rec
9 B, o. Y _, Q! B7 F
(setq cur-10-rec (+ first-10-rec 1)) ;; point to 2nd 10 rec
- n+ m3 Z& l! M. O4 J5 \
)- c/ s9 s7 Y) ` ]
)9 l, H: J1 A, o( q
) ;; end if 10 record. S# m: \- V- ^, o1 [7 U
6 U0 J+ c; i0 P4 S* d1 s$ w! h
;; Display cntl point, weight and ctr. Increment ctr.
/ h7 g3 t7 Q0 j& b- O+ ~
(setq cntl-pt (cdr temprec))
/ [. {4 U/ d1 `2 }
(set_tile "xtext" (rtos (setq x1 (car cntl-pt))))
' R5 l. y$ m) b6 u! x/ n+ e6 v. q4 v
(set_tile "ytext" (rtos (setq y1 (cadr cntl-pt))))2 @% f8 F: }: ^8 Y; m# i7 |! C
(set_tile "ztext" (rtos (setq z1 (caddr cntl-pt))))& ^. S2 A; \& l8 O, k1 t
(setq cntl-pt-indicator (+ 1 cntl-pt-indicator))" J+ t) K b2 p2 |0 x
(set_tile "cntl_ctr" (itoa cntl-pt-indicator))3 c. @& q/ b q- k" A& S
(if (= rational_spl_flag 1) ;; if rational
6 |( o8 S* T3 Y
(set_tile "weight" (rtos (cdr tempweight))) ;; disp wght& u- u/ Q5 N p5 j8 q8 ?. d
(mode_tile "weight_text" 1) ;; disable wght3 s! @! F8 z" x
)
$ s A( I5 E+ E# q
)
$ |7 c6 s7 N% Y2 l3 H' G+ X% k3 a
;;
$ i- u2 x( B" u* x- Q A
;; All the spline info is contained in a single elist. We must do some+ j" I, K! ]* M& H5 a
;; tricky list processing to loop through the elist in order to display# }- P: u2 i; p$ U Z9 W
;; all of the user data points.
5 {9 K, t% W# u& p
;;0 S9 Z; _* h% _' J: r- L
(defun next_data_pt ()
/ {/ S' d* L# \" |2 Z
(setq elem-no 0) ;; elem-no = element counter$ c6 {9 @. m3 K0 |2 ?- v
(if (= first-11-time 1) ;; If first time, find location of first, c" ?" B- B7 I
(foreach list_item elist ;; data point element in elist# _! f$ u0 w) R& }, f' G
(progn9 V. K: x i4 a+ ? b% z+ \3 O# B
(setq elem-no (+ 1 elem-no))
: R# z# U, C$ e# o5 ]2 }' f8 i
(if (= (car list_item) 11) ^" U8 S. }' x
(progn
: o: p; _, L* r7 M N, { _
(if (= first-11-time 1)
2 d4 O f, Y7 }* T
(progn) v4 U$ e5 f, s( _: t" V1 d+ F
(setq first-11-rec (- elem-no 1))
: x/ e2 f& c2 z1 k1 J; G# j
(setq cur-11-rec elem-no)
0 u& R+ m3 L. V1 F) {
(setq first-11-time 0), K' E, e* F$ F
)8 U# t/ h+ e" Z$ X% |! F3 Z ]; v
); T* Y, S. E7 s& I9 v1 {' W
)
' A# v0 g# M N0 d: w/ j" ^
)
8 r+ A0 s( Q7 e' I+ y
)% R7 N9 x& l4 E
)
8 F# F; c3 W1 W1 l& h! D0 ]; x
), m9 j1 ]4 i! V D
(setq temprec (nth cur-11-rec elist))
* d) R6 b2 b9 G
;; If it's not a DXF "11" element then we've gone past the last
6 D% D2 k; H7 e% v! ^, w( r( \
;; "11" element. Go back to first "11" element. Reset counters., ]: J, H# I* a: ?7 M! r! H
(if (= (car temprec) 11)
! ~% @: O0 p- R5 `% b% O; T
(setq data-pt (cdr temprec))
* O+ n, M# Y8 ~7 D6 U$ L
(progn ;; else3 R; D( n q6 C! q1 x& A
(setq data-pt (cdr (nth first-11-rec elist)))
( I# Z2 \; a7 d, o$ i- ~
(setq cur-11-rec first-11-rec)
; B+ z8 k) o6 S7 V' l/ c* u
(setq data-pt-indicator 0)
7 J% J" b* _& @( Z
)
5 I$ a( C) U0 P! ?( b8 x( B
)+ D. ^- s ]% G$ b
;; Display data point and ctr. Increment counters.
; h$ s' G/ T6 G6 v
(set_tile "dxtext" (rtos (setq x1 (car data-pt))))
' v- f# c2 y( X. a* T) N8 }
(set_tile "dytext" (rtos (setq y1 (cadr data-pt))))5 G/ Z! a8 R$ N( ~' n6 L! c
(set_tile "dztext" (rtos (setq z1 (caddr data-pt))))
% i- |( G3 B5 ?2 s/ p0 ~( ~8 _
(setq data-pt-indicator (+ 1 data-pt-indicator))
~4 x9 o7 M/ G' R6 _& z
(set_tile "data_ctr" (itoa data-pt-indicator)); {# H4 U6 d% z: ]
(setq cur-11-rec (+ 1 cur-11-rec))/ ^9 N, x0 u" w9 J" G
); A0 v& e5 x; O# g% x# S9 c
;;
0 p1 a# r0 ^( {# {# P' l+ x1 U
;; Modify SPLINE
1 R1 T" x2 K$ b6 Y& M
;;
0 T8 G1 E5 k; W3 j; _
(defun modify_spline ()
' A3 I. c b4 g! k
(modify_prop_geom)
. o) ]- {1 n; G/ R( t$ o0 ~! p
(entmod elist)$ M* t' I; B4 N2 Z G+ \" s4 }# V# D' R
)# @7 j. ~4 H% ?# G4 E
8 t9 Y5 h6 |4 J# u, }* P
(defun ddspline ()
7 E w( N9 H* X& {1 ~1 R6 }
(if (not (new_dialog "ddspline" dcl_id)) (exit))1 i+ a( ~4 g4 Q2 C# n" z' M% q; G0 `
(set_tile_props)
0 f5 J3 S" w" K( ^
(set_tile_handle)
$ Z" H/ l# {: ?5 }
(set_tile_spline_props): t7 m3 }: E2 A& Q* \! F
;; Display first control point! V# ~ T3 b8 i
(set_tile_cntl_pt)9 G. S, ~. U4 D ]: d0 O
;; Display first data point+ u1 S# r7 I* @" k& m# o/ m
(set_tile_data_pt)6 L w4 y: s! [5 h- i! l, g
7 |. a1 k' ?% y3 f; F, |, C( @- j
;; Initialize flags to indicate first time through the dialog.( W0 `4 l! o/ d/ T+ i/ M
;; For control points and user data points the "next" buttons
7 y* L( e& D& ^* v( y
;; in the dialog call the appropriate functions.
) L1 E4 w9 J& B( T# p& t
(setq first-10-time 1)
6 L, _* n7 H1 y6 m8 h3 X
(setq first-11-time 1)) ` D: y/ {: |+ v2 G: w! j' k
;; initialize control point number counter
3 N# u2 R2 y1 R
(setq cntl-pt-indicator 1)
, X! O) u0 k2 `2 o& ~
(setq data-pt-indicator 1)
& u% C0 w( K e C0 H
(set_tile "cntl_ctr" (itoa cntl-pt-indicator))
I: p% |) \- }5 k2 b( W$ F
(set_tile "data_ctr" (itoa data-pt-indicator))
# P& Q3 ^$ \& |+ i5 D; U5 {
(set_action_tiles)/ j' \; _+ i; k
(setq dialog-state (start_dialog))
. Z/ i3 v O& S# m6 L& e$ E
) D! b8 o0 k u' \ E' f, I9 f
(if (= dialog-state 0)5 \3 m3 {! r) Y: ^3 f C+ ~% G
(reset)
9 s' b% z4 m, T/ u- I5 w; R; ?
)$ l1 J$ I; n$ L7 J
(if (= dialog-state 1)1 _# O+ b% P( f H5 C
(modify_spline)
% s. U) }! r5 G
)
* ?) V3 B/ ~& X7 k9 d
)
9 A( b, X5 g, A% `- l
3 [. i+ |. F, Q0 l/ }
;;
" I& I2 t1 _7 p: v( D, N
;; Modify DIMENSION
& j% h; Z+ W) |/ D! L+ @
;;
4 J$ d' n7 p6 m3 R6 S
(defun ddimen (/ dtypebit blkname bename sublist a stname n dimtbl
f, S8 ~# W/ f. H! p) s# k
dimsty dimlist dimtext svtext dimovr sv_dvlist stlist7 F& |3 }* X$ C& c
dimtype dimsvcurset)+ w/ F% v9 O/ L: Z
(setq dimtype "DDIMEN") q, [3 v( x' G! g* C/ N
dimsvcurset (ddimen_dimsty_restore)2 R9 `$ T: e3 d. I
)
9 r/ {+ M0 s4 M; b' G
(if (not (new_dialog "ddimen" dcl_id)) (exit))9 J3 f D" F0 s, U, E$ M; f
(set_tile_props). _/ P1 w7 r3 ~& [$ L
(set_dimen_props)- d2 x2 P# O9 j' w
(setq dimtext (cdr (assoc 1 elist)))" i3 i% c$ z3 D5 r8 r. C3 \7 Z$ y
(set_tile "t_string" (if (= "" dimtext) "<>" dimtext))0 |* ~! B" y1 W0 \+ J
(set_tile_handle)
: m* {# X, I. i, Q: I. `
;; Define action for tiles
7 C/ n% [5 B4 Z% i0 A H
(set_action_tiles)
z" n( b# O- M$ o: m
: F9 L* u' _" I0 v% B' k4 f
;; Set initial focus to text edit box.
6 G7 k! q; Z( V, o+ b8 N
(mode_tile "t_string" 2)' x& I0 |4 {. i& @
; l9 K* x; n" c- E$ Z
(setq dialog-state (start_dialog))
! R- I1 X' J. i, ?/ ?8 k
(if (= dialog-state 0)
+ ~, w; R8 l; n) e
(if (= ddimmt 1)3 b# e6 R& n# h$ ^& O
(reset)/ P8 }% j: P% V: ?6 r
)7 V2 k/ f, A' u- m( t: G! m( F% t( Y
)
* p; \: x. P7 e( N* ]+ g& u
(if (= dialog-state 1)7 H) K5 [! [% P0 l, O \1 J
(progn
& E; k5 N1 H4 _" W' O
(if (/= dimsty stname)5 o7 l( q& M, j! B" r
(progn9 r5 N% L8 V H/ ^9 B v
; Be sure to add (3 . dimstylename) element. R12 *UNNAMED case
& X4 N3 I8 q5 C5 l/ M
; doesn't have it.
+ ?' _( G6 k& \ N: Z/ h* Y
(if (null (assoc 3 elist))% m5 F% n# v. V) c7 o
(setq elist (append elist (list (cons 3 dimsty))))
3 ?- M. ~4 T5 |2 S
; else just replace it.
% K0 O* S5 ]* O% V
(setq elist (subst (cons 3 dimsty) (assoc 3 elist) elist))5 S" ~2 S5 o: j' C! g" [# a
)! ~: G$ D2 I2 n& r
; refresh sv_dvlist with new dimstyle.
" y4 d/ [3 I6 w% [
(setq sv_dvlist (tblsearch "dimstyle" dimsty))
7 Q. \) q% z& {! R+ M. m
)4 t/ e( k: D) M0 s; {0 M- |! r( c
): e- G8 C7 J4 q5 ^
(if (not (null dimlist)) ; attempted to change dimvars
; x: Q+ O* O$ n6 g5 w5 Z9 S1 V$ g
(ddimen_complist sv_dvlist dimlist dimtbl)
0 D+ ~/ ?+ }, K
) Y1 o; [ T f3 W [! A
; Modify dimension text$ i) o' h5 q- b0 s& m
(if (/= dimtext text)% N1 O- U$ e# p$ `! ]/ m/ T
(progn% L/ x' J9 \* t* {* V
(setq dimtext (if (= text "<>") "" text))
$ K3 J2 ]( }: h; }4 Y
(setq elist (subst (cons 1 dimtext) (assoc 1 elist) elist))
$ r+ g% R) E+ u6 ^# O! F
)
0 P* ]; D# \4 [" u7 u
)+ W4 S5 W8 k3 {" B& ?
(modify_properties)
( J& g- h6 ^$ h! q) N$ F
(entmod elist). I$ ]; g$ e( C8 ^. B5 d. l6 y6 m/ X
)
: d, H8 f0 m/ }
)
6 O! L8 B% e- }$ S3 z6 z+ V8 }
(if (= dialog-state 4); j6 {5 z6 W% A
(progn6 ]0 x. J! n$ `! q3 l" z; h R
(setq ddimmt 1)
* T! Z* M" g! N; F8 {0 I# b) I6 L( s
(if (/= dimsty stname); _+ Z: m' r. ~( u5 n& e8 k/ b
(progn; U; d' G( C* m0 D/ t7 C
; Be sure to add (3 . dimstylename) element. R12 *UNNAMED case, U, p- s ?* o
; doesn't have it.! J% [' ?4 g9 i; }) d: Z! B6 _/ t2 A
(if (null (assoc 3 elist))
$ E. U6 W7 s3 N* h+ Z' z
(setq elist (append elist (list (cons 3 dimsty))))
7 e9 }3 P9 ~/ u& v8 R- s
; else just replace it.
$ C+ P' S( @$ w% a
(setq elist (subst (cons 3 dimsty) (assoc 3 elist) elist))
6 \8 j$ R5 J# G, O4 z
)
' Z) a4 K1 ^, {6 R: @; S
; refresh sv_dvlist with new dimstyle.' j1 z# T- t+ Z Y8 a+ [" y/ P$ e
(setq sv_dvlist (tblsearch "dimstyle" dimsty))
3 O& S) Q+ |$ h @4 H; Q
)0 d* L% s' V6 | K! g7 _5 I0 H
)* | C) l( V2 ~2 o9 A a
(if (not (null dimlist)) ; attempted to change dimvars" S; f6 _/ C( `/ \" l& W0 k
(ddimen_complist sv_dvlist dimlist dimtbl)
" L2 k- G8 B4 h5 s9 E# Z
)
! ~% |1 }+ r: b' Q7 F4 L% N
; Modify dimension text, M( F4 B+ Z+ g5 b
(if (/= dimtext text)9 S6 G( w( z0 { l
(progn0 B+ _# a' W# ^" N3 Q
(setq dimtext (if (= text "<>") "" text))
0 Y3 `1 G7 y/ J4 x4 e
(setq elist (subst (cons 1 dimtext) (assoc 1 elist) elist))
" ]$ n! F1 i7 V" k) [
)
7 w& ]1 c6 q4 z1 O' N# R( H
)
- X5 Q6 ]" H: }% n3 c2 i7 W
(modify_properties)
9 F/ Z3 R% s# F7 v
(entmod elist)
9 f3 J/ e3 I" T& V: l
(safe_ddedit ename)3 N/ `1 r6 E6 l3 K: k$ E
(setq elist (entget ename))
; z1 v8 B7 J& n+ u5 f& w$ K
(ddimen)
- m1 L, X( F1 ]0 C! {
)1 P$ B5 m! B( `9 d
)4 X1 ?( x' [% s/ g/ ]
(ddimen_setvars dimsvcurset) ; Prepare to exit1 u! T Q' z, W( Y' H$ L4 {4 R' y
)
! P4 g3 f! y5 i
m F) J) U) u+ D% c6 D2 S
;;' t7 `% g, @' K: h; L( M3 F% x
;; Modify TOLERANCE
5 B9 B1 _- w8 R1 G7 _) f
;;
8 p+ X- j8 H1 V
(defun ddtolerance (/ a stname n dimtbl
& a) ]! F0 _7 s2 k
dimsty dimlist dimovr sv_dvlist stlist dimtype0 V- a3 i7 s n4 l! _" z
dimsvcurset)! X; [5 [: q& b2 O3 E: L
(setq dimtype "DDTOLERANCE"
: @7 z: A, Z8 m9 G
dimsvcurset (ddimen_dimsty_restore)
3 U. V* u/ ^& j/ V
)
0 \% p* t/ _$ b! z
(if (not (new_dialog "ddtolerance" dcl_id)) (exit))+ z8 e7 s( p3 j; a4 l7 p
(set_tile_props)
! ]( g0 P( t/ }* }
(set_dimen_props)0 ?% E7 y ?! H
(set_tile_handle)
6 {$ Y6 H3 `. e' I& T
(set_action_tiles)
( `) s. a7 z" m' G
(setq dialog-state (start_dialog))2 @) K% ^! k3 H1 M, Y0 G
(if (= dialog-state 0)9 u: R6 ^! V' Z5 ^+ u3 I
(if (= ddimmt 1)
# w$ q1 E6 M: Z6 ]+ U
(reset)( B2 i. Z$ T: {6 W( J2 A0 @
)/ J: p' Y& p5 Z3 l9 a9 {3 F! |
)
/ ]* t3 l$ L$ p6 k0 ]# G1 i
(if (= dialog-state 1)
( n2 W$ v5 N# |' i, N' V/ }1 h
(progn. A4 M# p; Z3 B K
(if (/= dimsty stname)
6 x0 L _- e7 i
(progn
, k) ?- f9 K3 {1 O- a9 v
; Be sure to add (3 . dimstylename) element. R12 *UNNAMED case# f, h, @' c6 ^4 W
; doesn't have it.2 o3 i, |% G5 ^" t6 s! ]
(if (null (assoc 3 elist))9 f) V. J4 @8 j" O: u
(setq elist (append elist (list (cons 3 dimsty))))
% M; u# d+ Z3 O. `3 e6 w9 \
; else just replace it.
8 l8 j% w9 t6 @; B6 U& Z4 a; `& G
(setq elist (subst (cons 3 dimsty) (assoc 3 elist) elist))! {6 ]9 f% a" H' N; Q+ V, R9 Q# `
)
& l" {! I/ ]7 T
; refresh sv_dvlist with new dimstyle.
8 U+ o; O$ k: C. r$ T
(setq sv_dvlist (tblsearch "dimstyle" dimsty))
2 e1 k# W1 U( u$ p% |; [; _
)
* @8 W. n8 k4 {; v, n6 l' x
)& G; K. J* J. s5 R9 r4 A# m$ m
(if (not (null dimlist)) ; attempted to change dimvars
5 W" }6 `1 z6 \8 w& z8 _- p
(ddimen_complist sv_dvlist dimlist dimtbl)
& y [1 U5 Y- }. V8 r' U9 K1 ^
)
2 ]. b" Y W( l+ \
(modify_prop_geom): h( L' v# [- n- M& A1 e" B
(entmod elist)
* M( T) X5 H! ]4 `7 A" L+ F
)0 E8 c9 b/ ^; w$ H7 g8 O5 J
)+ Q/ P! l/ y2 a4 T, y& \
(if (= dialog-state 4)5 V) S* F3 ~! q4 L0 V! U9 j
(progn
' N u( k* v: p) F
(setq ddimmt 1)$ f% Y5 y2 v! }5 \/ @% {& ?" n/ y
(if (/= dimsty stname)
6 U5 c" ^8 E) B$ ?0 [4 E
(progn F& `8 [1 a! a) [1 a; v; Q5 L
; Be sure to add (3 . dimstylename) element. R12 *UNNAMED case
. j# R8 Y$ G( \
; doesn't have it.
; c/ W* r+ P* i. @! N
(if (null (assoc 3 elist))
8 F1 V, l& ?6 n4 r3 a8 Z" r# U* P
(setq elist (append elist (list (cons 3 dimsty))))+ x4 Z' s% D5 L& Y
; else just replace it.. P& o6 g# K& d3 b/ P
(setq elist (subst (cons 3 dimsty) (assoc 3 elist) elist))/ _" s3 Y F4 `
)
% P& d# \9 Y/ | L2 L' \
; refresh sv_dvlist with new dimstyle.
/ r7 }% ~# d9 O& n2 z* V4 V Z& h
(setq sv_dvlist (tblsearch "dimstyle" dimsty))
8 M" v6 M3 ?% t' I! p9 K5 k
)
5 x1 H/ o4 B. j3 t3 L
)
2 W) J1 V( u1 ~; R0 z# H5 q. v6 a
(if (not (null dimlist)) ; attempted to change dimvars
6 }$ E g- P$ \8 e) H6 A
(ddimen_complist sv_dvlist dimlist dimtbl)# i2 i" ]) G1 n) t, m- \
); Y$ p* H% ~6 v. ~
(modify_properties)
! c; s' H! U9 F, B; I# F/ u& B% @
(entmod elist)
: C' O4 F( X: b) m
(safe_ddedit ename)0 |# W- }3 v. {2 Y4 x3 b* Y7 e: ?/ z
(setq elist (entget ename))
3 d U. w6 D3 k
(ddtolerance)7 H! K; c& _: @4 p6 F* e0 N
)
/ o, \4 r: m+ C
); I" D3 w2 i v+ D, }) [+ S% `
(ddimen_setvars dimsvcurset) ; Prepare to exit
: H3 J. L& r5 X$ g# A# D
)) S, F3 P: T4 P) o2 i: r8 M5 c
5 P) |, o+ d1 S8 q
;;
: J5 p2 X* b- e: W4 I
;; ddimen_dlg - jump to ADS ddim module, O! c% O) I% ~, U) S& Q4 G1 \7 V
;;
! p: S) r) C" y/ |$ s% E( _
6 [5 |0 P5 a( b" ]# o( C
(defun ddimen_dlg (dimtype tile dimsty dvlist / dimlist)
* `, K. S/ F- O) v% W" y
: i' O- g, ]/ J4 s
; Jump to DDIM with overrides if any./ c* \ X' Y! b: r C
(cond ((= tile 11) (setq dimlist (c:ddim "DDMODIFY" dimtype tile dimsty dvlist))) ; Geometry
: W& |" A a& m; ^( @
((= tile 12) (setq dimlist (c:ddim "DDMODIFY" dimtype tile dimsty dvlist))) ; Format
5 P. ^$ j2 F0 [# d* Q, }+ _6 M
((= tile 13) (setq dimlist (c:ddim "DDMODIFY" dimtype tile dimsty dvlist))) ; Annotation
8 y; ~; \& {4 t8 ~9 d+ f
)
! k# N6 R/ `# J r
)9 `/ U3 | v3 ^ {% v
, A& H) G- A( z
;;: o* S) R8 \8 J. Z! S8 s' b
;; Dimension variables updated are stored as overrides.
1 m2 j; {6 f" P u* ]
;;
. C& ^; J5 @; Y' O; p1 V# H
+ s6 y! b. ]- l6 R
(defun ddimen_complist (dimolist dimnlist dimtbl / i odvar ndvar9 t0 K. \7 t( M! ^* T" J
dv dime commandIssued)5 Q5 N/ Y% H' t" g8 F$ j
o6 \) W1 W3 z. x/ F$ x
; Here we skip the following first three items:
& b+ J) J& t$ u# W9 a5 {4 L, V
; (0 . "DIMSTYLE") (2 . sylename) (70 . 0)% m8 Z7 L* B) c
;! t# ]" O' R( Z
; The list comparison immediately begins with dimvar.
- L3 n2 V5 K, R* ^" g
;
. G' P4 f: ~" D# t1 `" z
; dimolist - original states of dimvars
; w- [2 M4 ]! |; ?6 i3 B3 G) J1 V
; dimnlist - new dimvar list which is of the resbuf's
% e9 p& @$ @5 X0 p5 P1 E9 ^8 f
; dime - entity name for the dimension
1 c( q5 E! }4 U/ i+ T$ L. M/ c
; odvar - value of dimvar for the dimolist
& `( ?: A5 f" l
; ndvar - value of dimvar for the dimnlist
! j" a2 z6 B$ I, c" ^! l
5 r. f; y x7 @
(setq i 3
* I) r4 y1 h3 K k) t
dime (cdr (assoc -1 elist))' N6 Y- _) V3 L' Y. P
)( P3 i! y( l3 u s
(while (setq odvar (cdr (nth i dimolist)))8 ?4 _( E/ |4 ^4 i$ T4 [ z" V- I
(progn; C* }! `0 f- c" b$ {
(setq ndvar (cdr (nth i dimnlist))). ]. N! k* Y( n8 ], H
(setq dv (nth i dimtbl))
% A8 v: h' c4 F9 Y2 M6 o
(if (eq dv "dimtxsty")
(setq odvar (cdr (assoc 2 (entget odvar)))
* p9 A8 m! C' j7 N# c1 [8 ]5 g
ndvar (cdr (assoc 2 (entget ndvar)))
! U3 C |; E( X+ w# ~2 @8 q
)
* \- P! u7 K8 l; j
)
+ s7 \0 j: d& Z6 i
* v1 U( d9 ], i0 o j; [! D& _
;; j1 e+ O& `/ o! O. q) i9 @
; In order for DIMOVERRRIDE to operate correctly with string
. s% ~6 M# |! ?0 p" `' h
; based dimvars, we must pass "." versus NULL strings.! M, b" @3 a$ h# U
; In this case ndvar is the new dimvar value the user wishes
e# h1 u3 x+ O
; to update on selected dimensions.5 [" x! X# {' g( ^, ~- t
;" `2 i" F/ E9 i; s
(if (/= ndvar odvar)' r G& {3 ^4 a# F7 ?! N9 ^; U
(if (= 'STR (type ndvar))
3 I; i" }# ]+ K& w2 Y8 s$ R' l
(if (= ndvar "")' `* X7 S4 D( s R, d
(setq ndvar "."))))& h+ m5 C) g- O' `1 z
7 R& W" W- M8 x) P
(if (/= ndvar odvar)
) x Z |* t( R! j) d2 E* o# p& x
(progn2 _0 i8 e/ q7 \9 {; s9 _
(setq dv (strcat "_" dv))+ V# P. l) C* P
;
7 y3 _. F5 D/ i6 M0 ^
; Start the dimoverride command9 u6 E; V/ j* n0 }) k* n1 o. E
;) R. F* c& q4 s; m8 S$ b
(if (not commandIssued)
/ h1 ^! [9 w0 a$ E( I& J
(progn f1 j$ l$ \" m+ Z
(command "_.dimoverride")# O3 S( _# n8 R' p7 k
(setq commandIssued "T")
9 Q; r- R" T" x6 E
)& o7 s! X$ L ]+ d3 P6 l
)
. D% h& u" M& W
;4 p6 S( G/ `* s
; Issue dim overrides3 i, {, J, U; ?: {( E+ J2 ~. f
;* R C+ i. g2 d
(if (and (or (= dv "_dimclrd") (= dv "_dimclrt") (= dv "_dimclre"))
6 ^) m7 J. y0 e& l! f" v
(or (= ndvar 0) (= ndvar 256))
* d9 l7 A6 E' h+ a! u
). g1 k- L* {5 u t
(progn
, s# F( Z5 Y, J% ~$ _3 J
(if (= 0 ndvar) (command dv "BYBLOCK")), ]* E, ^" k; C3 h9 R5 X' Z
(if (= 256 ndvar) (command dv "BYLAYER"))# ^1 {& `! _5 L0 f% h3 u5 N
)1 F! L$ z4 X8 G* p+ `* D
(command dv ndvar): q F5 b: R* ~' U4 U$ I
)/ O" j; G- x8 A. S
)
2 T% B( ~9 V& C. k) p( q4 t
)2 u9 n! u- G3 [+ ^+ d
(setq i (1+ i))9 j0 m2 M: r" U. v
)
" M- j% k* K! i
)
: o @" H( u3 L
;
9 ?) G o& w* H. G
; Select Entity and terminate command" U4 a& B! d- t. E
;% j; X% p6 U- i. u% V
(if commandIssued
' ~& A0 B/ W& p5 C' J `
(command "" dime "")& y- E& K" U3 I$ w) F: L
)
3 U1 @. h# V" D; S0 w7 \6 N
)1 o* h! L7 {, \ o) R8 m
2 H; R/ S: y$ W
;;( ?( f) z" o2 B/ l
;; Get style name currently selected style name.
8 q+ v- J" A5 x( }
;;$ O* e$ d& s. ~3 [5 j
" c1 |! {$ q: ^5 C5 w! q5 ~3 T
(defun ddimen_style (/ dimsty)) i' A+ V0 a3 g" [. a9 h, s
(setq dimsty (nth (atoi (get_tile "mod_style")) stlist)
/ t, n+ r1 c2 g, G
dimlist (ddimen_getdimvars dimsty)
% _) C/ M* A, m' u- i1 p
)
8 U2 o: C. v& o$ a) W
dimsty
: f0 o3 P$ n- d) z7 \! V! `+ ]) Y
)
, [' P3 K; X( s X+ X3 e
^0 O/ X( Z1 S/ H( l- T$ S0 {
;;
( H5 t6 a1 g6 V# X" ]) u7 r; l+ s
;; Set dimvars
: ]8 q! c4 r1 K- w) Q( M& O& `
;;
3 d% F7 U/ ^0 x1 _" u% Y2 P
(defun ddimen_setvars (dimsvcurset / dv i)) e/ y5 \0 q4 @5 X" S( K: p% J
(setq dv (cdr (nth 1 dimsvcurset)))% S' {( I- e( c- }+ J( k# y
(command "_.dimstyle" "" dv)
9 v% F. Q6 f% Z) k
(setq i 3)5 b( i+ x' m5 U1 i7 i7 E
(while (setq dv (nth i dimsvcurset))
& B) d8 S, [ \- U
(progn4 r5 \2 L# B/ o
(setvar (car dv) (cdr dv))) ?- V% s- Q& z4 |( ?+ K
(setq i (1+ i))
% Z1 H& U4 G; D/ j6 j
)
( W+ R9 H; E& ]4 F+ `8 t7 _
)5 R* R: J* u6 K3 M. D' O( |
)
0 t7 _3 h$ N( w% q1 L# v' |
;;1 M4 t3 Y. ]$ `& \" {5 V, g1 c% W
;; End-of-dimension8 [2 ]1 z. Q% n3 }' i
;; ==================
; }4 l" S7 K" U V8 U- j
& r% q4 v& V6 w: t0 k2 |# L1 B. C( H
;;
) S6 p; Y7 U; r" P
;; Sub-dialogues for properties. Common to all object dialogues) F1 @. R. J) p( g/ _% v3 p, X
;;
8 O0 _1 C& L3 W# _' E; q
;; This function pops a dialogue box consisting of a list box,image tile, and
. P9 Z% B+ g: V
;; edit box to allow the user to select or type a color number. It returns! m& k2 `% q: |$ L& Y$ t/ S
;; the color number selected.; Z& c8 p0 s, j# G( @
(defun getcolor (/ old-idx colorno cname lay_clr)
/ Y2 A# V. l' x$ T
(if (= (get_tile "error") ""). A- h1 m( |9 y) D* D$ r8 L# [
(progn( o1 V* U7 J) `1 e7 B; w
;; Get the color associated with this object's layer, for use) I, R+ S- K& M/ _6 b( }9 V6 m
;; in the color swatch if the user selects color BYLAYER.
0 G9 z/ \; C- s# h/ t, L
(setq lay_clr (cdr (assoc 62 (tblsearch "layer" elayer))))
) V9 ]0 s9 R( T# |1 a: F8 d
(if (numberp (setq temp_color (acad_colordlg ecolor T lay_clr)))# K. d! i* s6 [$ e3 i: o
(progn) d6 {5 D i6 |& S, d- O* P
(setq ecolor temp_color)
/ [4 x# u/ L& c7 |
(setcolor)- _9 e' n# r! v6 n) b) c9 I) v" `9 }
)- f f7 w! a% y( `. z
(setq testcolor temp_color); W ]. _5 B& Y- W! b
)% m4 F) u, T, q$ W C! D0 {1 c7 a+ E
)) `6 M2 ~8 l. g. O
)( L: I- _& r1 p! g; ~# N6 k) F, g
ecolor
2 s! F9 G a' o- I4 h% F
)1 |8 }7 O& W7 s; v
;;
( e% S% q& |* F1 i4 ^
;; Function to set the color tiles.
1 j7 N; T# R) b& ]+ H+ F
(defun setcolor()
0 w0 d! N2 f( A
(cond0 J @; ]' ~; l' q
((= 0 ecolor)# K) \: u7 a0 j$ l- g
(set_tile "t_color" "BYBLOCK")
% p3 P" L2 k6 c/ H( W
(col_tile "show_image" 7 nil) ; show BYBLOCK as white
8 w8 b# @- O( z
)% J' x+ d: f! e! Z6 ^
((= 1 ecolor)
& y+ c7 w) I4 f! H
(set_tile "t_color" "1 red")
' L3 h1 B( A) e6 \# _! P
(col_tile "show_image" 1 nil)- r4 C% s# \* b
)' W9 X1 {6 r- F+ V3 s& m+ l
((= 2 ecolor)1 O3 S) `0 J! |0 x9 ?
(set_tile "t_color" "2 yellow")
" a0 w* U7 q# ~: \% A+ j
(col_tile "show_image" 2 nil)
" l) I4 B2 d( n) x; \, i1 c1 B2 |' F
)) z* M0 ?( w2 U
((= 3 ecolor)9 F) P. e8 W) y0 [* ]- f( A. [
(set_tile "t_color" "3 green")0 a4 s1 `4 j' I6 [3 K
(col_tile "show_image" 3 nil)
0 d' e1 q% ?5 {5 W
)
2 [# K& P# u/ h4 B* i- S" s
((= 4 ecolor)
8 K# D' E1 {# B& ]1 K) {
(set_tile "t_color" "4 cyan"): u/ g# I6 f9 z/ [) Q
(col_tile "show_image" 4 nil)
% A( V$ h7 U1 s8 t7 ]
)6 b: Y- C6 ]4 w ^9 l0 u9 ?
((= 5 ecolor)8 q& Q/ N% w/ w4 U% \
(set_tile "t_color" "5 blue"); k9 r k. U0 ^& A
(col_tile "show_image" 5 nil)7 k s7 M+ c% ~0 i1 K0 O# ~
)
& ?$ X- }; f' ~" l& q% d8 t
((= 6 ecolor)3 ]! n( A( I- r4 N+ S% S
(set_tile "t_color" "6 magenta")
. e0 v* M9 b( r
(col_tile "show_image" 6 nil)
4 D$ V4 ]" O- ]0 n
)' u$ z* G$ G' w& j; ~& T8 Z- \! t
((= 7 ecolor)4 [- V; j; h& F( G
(set_tile "t_color" "7 white")) Y* R! u, W! H
(col_tile "show_image" 7 nil)
+ }; f- j1 D- K, a) t! K
)3 k* W/ l4 N9 V( T, j
((= 256 ecolor)* d4 }8 ~* l: }& U
(set_tile "t_color" "BYLAYER")
& S9 }' K* z [5 c4 ?! T( H
(col_tile "show_image" (bylayer_col) nil)
8 `8 ^" i5 ~9 T1 O& s. V
)( S1 f6 f: u* z/ l8 ]: [
(T
$ T6 I0 E& C8 J$ Z! v$ A
(set_tile "t_color" (itoa ecolor))
; W7 @+ a3 |# d0 @( ~) r4 w
(col_tile "show_image" ecolor nil)1 d! {) G+ G5 v* {# V9 J8 G$ o
)
( H' C% f* X9 E: x0 A2 `
)6 y. K. K ^. b) E! ~
)
" z- h0 j. P/ v! V. W+ [; m
;;/ V( m3 I# X% w x: p8 L: ]" z$ u
;; This function pops a dialogue box consisting of a list box, image tile, and
C: o. {4 K1 f; }6 \8 d! |& Z, x. t
;; edit box to allow the user to select or type a linetype. It returns the! ]& R! C6 P7 i8 H) f: N# C
;; linetype selected.
: ^4 f0 _6 ~0 c$ _
;;
6 s' z$ T, D! S( ^6 Q' s6 B% w) Q
(defun getltype (/ old-idx ltname). ^+ e9 y. \5 j
(if (not lt-idx)
8 L+ J) [; h8 ~* \% i3 X. z6 x
(progn
+ v7 E! {5 I7 i: s# L1 {
(make_lt_lists) ; linetype lists - ltnmlst, mdashlist( ^- k8 G3 o* J% d# k5 Y
(cond5 r. L$ C$ i! V. e
((= eltype "BYLAYER")
0 X2 v- E5 ]! V. T. [; G
(setq lt-idx (getindex "BYLAYER" ltnmlst)))
) Q1 Y" _' b+ ]$ W4 L% z
((= eltype "BYBLOCK")7 }/ H4 a: l* l9 [
(setq lt-idx (getindex "BYBLOCK" ltnmlst)))
7 I f; P7 A8 z7 }
(T (setq lt-idx (getindex eltype ltnmlst))) U6 p9 Y2 X/ \+ F
)- J2 A r0 H& L- m
)! C, o/ R) g- P7 E+ b
)
* E, x' V1 I2 g5 ^# m" \2 p" J
o6 e8 ~6 Y1 b; E! O6 M3 Y
(if (= (get_tile "error") "") d5 F& f8 y n0 X5 M4 v% d% {
(progn( t1 P, i0 F! ~+ i" m( S
(if (not (new_dialog "setltype" dcl_id)) (exit))
4 S% x+ J% \" S2 L
(start_list "list_lt")
0 _, N! J! J, h2 H5 q3 A
(mapcar 'add_list ltnmlst) ; initialize list box! C' E: D: q/ U2 R* R; e8 q
(end_list)
+ h; a5 Y: m. Y* U9 P* r5 p0 H7 O
(setq old-idx lt-idx)
- Z- |) A' U9 E
(ltlist_act (itoa lt-idx))
L0 Q7 D! F+ Q) Z2 l; W. r1 J) ?$ X
4 A' M4 A4 @) J& Y/ M
(action_tile "list_lt" "(ltlist_act $value)")
+ r; `- p& Y) P3 I3 g0 h, ^+ l
(action_tile "edit_lt" "(ltedit_act $value)")" {; [8 f* t; Z8 I( w
(action_tile "accept" "(test_ok)")
+ h) l( d: M! Y8 V$ K+ p O
(action_tile "cancel" "(reset_lt)")
. {- ?. a' N5 t8 S
. X0 j& H/ X! S/ o d5 x
(if (= (start_dialog) 1) ; User pressed OK
. \! ]8 e0 C: a5 J4 y
(cond' m& g) A$ d3 |- @! T
((= lt-idx 0), y6 _# A3 j2 M3 m. \1 S" {! N2 p- x
(set_tile "t_ltype" (bylayer_lt))
! q9 Z- c# }0 P6 S; y% u
"BYLAYER"
( D6 _7 M, S2 q
)
: k9 w6 G/ K4 Z8 V
((= lt-idx 1)! n. y$ ^# [: v$ R: O
(set_tile "t_ltype" "BYBLOCK")& W4 y, X0 ~9 \& z
"BYBLOCK"
2 B% c' d$ w9 N
)) }7 p! A2 f# }: Z* f0 @9 l! A
(T (set_tile "t_ltype" ltname) ltname)
# J- g3 V& y; f' @% Q
)
6 L7 O/ u0 A; {
eltype$ B% V9 S6 Y5 r# G/ t
)2 z; y' s4 I& m; f/ s& V. x
)
2 X0 W/ D+ A6 E, H/ |$ V8 M% f& q5 f( d
eltype
: G4 C9 ]$ U. _6 o
): h/ e7 c3 O( Y/ i0 t2 k9 Y
)
7 y8 a$ H- K! A. n% P
;;7 w( M" s9 U# O( s9 p& _6 T
;; Edit box entries end up here) N3 z3 |) K( F2 @
(defun ltedit_act (ltvalue)
, o( C; A5 s) H: [ B
(setq ltvalue (xstrcase ltvalue)). T: I1 x6 P; y" D& F
(if (or (= ltvalue "BYLAYER")
8 x, r) F. o; H; u4 ?1 _* F9 _% }
(= ltvalue "BY LAYER"))! A6 [) R* }9 K3 I1 D
(setq ltvalue "BYLAYER")
, a7 ?5 ~! N8 w- @5 U
)
- ?( c! j; U; k: v# B$ [/ n
(if (or (= ltvalue "BYBLOCK")/ y1 F" M5 D+ a5 i6 s: g
(= ltvalue "BY BLOCK"))
+ S1 c/ Q- R$ l& U8 M g- r
(setq ltvalue "BYBLOCK")
2 O7 j5 M' H5 H( B* K5 [) L
)
2 e2 l% ]: d, |7 [. p7 F0 j
(if (setq lt-idx (getindex ltvalue ltnmlst))' Y2 `5 R; h6 Q2 H
(progn F- e. V' @1 h. R& I* b% L1 v, T& g) y
(set_tile "error" "")
+ K/ a- ]2 N4 T2 b: M) |# K" o- E
(ltlist_act (itoa lt-idx))* g5 b4 N- ~% m
)
! H- X* Z0 K% j4 @3 A
(progn; J& x- J) h4 C$ r
(set_tile "error" "Invalid linetype.")
1 A3 T! z' K5 I
(setq lt-idx old-idx)( ]2 K& i k( v2 _1 t- ]
;; (mode_tile "edit_lt" 2)
F; D, j: b% c. L
;; (mode_tile "edit_lt" 3)
' L1 D t3 f5 b+ W5 ]7 ^
)
+ I* a! ^0 _% `" i$ U1 m4 x7 P
)
$ T2 A/ a& j7 H& ^+ Q
)8 N4 k& a. ^0 W
;;
/ b$ S' ~3 N; q, f3 n7 z' d& C
;; List selections end up here. Update the list box, edit box, and color
9 d1 V% Q" m8 _ j% }, i4 D. W
;; tile.
) C7 Y4 r# ?+ @
;;( f9 _/ S5 _1 T8 K# g5 @
(defun ltlist_act (index / dashdata)
* n0 q2 i6 P. M1 X; l' U1 F
(set_tile "error" "")% ~" ?- d/ t" ^% C6 C! ?- N
(setq lt-idx (atoi index))
\7 {) U3 s- R& C0 B/ d! T
(setq ltname (nth lt-idx ltnmlst))
( K( L9 l' m; Z' L# |9 ~
(setq dashdata (nth lt-idx mdashlist))8 y$ q: a7 a* x x
(col_tile "show_image" 0 dashdata)0 p# q ~+ Y9 s% u& D
(set_tile "list_lt" (itoa lt-idx))3 z# [0 G. ?; l/ G
(set_tile "edit_lt" ltname)% T; L4 }9 @2 R" ]$ {, H
)
: z" ~5 J0 B1 O6 R) M# v
;;* ~. _# r; E0 K9 S: e$ I
;; Reset to original linetype when cancel it selected
: |+ o' W) R# {5 k P- e9 o
;;
, e) R9 M3 ?0 m8 y" x' B/ {
(defun reset_lt ()
( K) M% Q3 C9 G E1 _ f* ?# Z* @
(setq lt-idx old-idx). a3 v, C3 Q4 \0 n; e1 p
(done_dialog 0); j" f& G0 j! _+ [
); E# a& A. Y! c2 W
;;
8 w- A! V, t$ H0 c8 a s
;; This function pops a dialogue box consisting of a list box,image tile, and* o: m2 f2 J$ I- d
;; edit box to allow the user to select or type a layer name. It returns the2 e" Q7 k- K7 q% {
;; layer name selected. It also has a button to find the status (On, Off,# T0 x3 j" [/ g% ]; \
;; Frozen, etc.) of any layer selected.6 J( m, a% p! x8 V1 A. Z0 m1 ?
;;
0 @' I3 C: H4 C# `
(defun getlayer (/ old-idx layname on off frozth linetype)7 M5 H" x) k8 Y& }
;; Create layer list the first time the layer5 ~$ u* C" `( B/ w6 E1 ?
;; dialogue is called.
6 C/ y4 l2 k1 m2 U
(if (not lay-idx)
9 K+ V2 p$ Q1 _( x
(progn
3 z& d+ Z, w L( ^4 e z
(make_lay_lists)
0 @, ?6 _0 ]* T( B
(setq lay-idx (getindex elayer laynmlst))
' H- L* p( `2 Q$ `+ J( M, t
)4 {- G/ H1 c. T* w2 T$ @- V5 u N: M
)
! }# B9 Z+ I6 l" N3 \
/ y+ y3 O* E# }: z
(if (= (get_tile "error") "")5 n2 L& H0 h3 [! w5 c9 w
(progn
4 R8 C$ Z" k: y1 P+ _% W
(if (not (new_dialog "setlayer" dcl_id)) (exit))
% i" H0 s" G, b7 Y! n
(set_tile "cur_layer" (getvar "clayer"))" o9 w8 w1 Q9 T0 `
(start_list "list_lay")
" n8 z; {* G( R. H: B2 w! S" p: q
(mapcar 'add_list laynmlst) ; initialize list box, d3 c/ z5 ]! p+ w5 K" I
(end_list)4 T1 N4 ^) n1 X
(setq old-idx lay-idx)
% o1 S. ~7 f1 T/ K% x" R# l
(laylist_act (itoa lay-idx))! h- U4 W% a% H, G
(action_tile "list_lay" "(laylist_act $value)")
% Z6 E4 U6 ~' A
(action_tile "edit_lay" "(layedit_act $value)")5 j) i: H3 V# }4 S
(action_tile "accept" "(test_ok)")' m# |! {: N3 R/ i
(action_tile "cancel" "(reset_lay)")
% n) }, q: t$ B- ^* c: c: M
(if (= (start_dialog) 1) ; User pressed OK, g# }7 B1 z6 }, c$ j) P8 j
(progn1 B' j. D8 n% p( K% T1 p* M# ~; i
(set_tile "t_layer" layname)9 `! U* r' d1 `, b3 T
(setq elayer layname)5 ?1 m& u4 W' m) U: _
;; If layer equals bylayer reset color tile; o S: D3 z, Y) `" k
(if (= ecolor 256)" I9 X0 H) } g2 }! V4 e: D2 ~
(col_tile "show_image" (bylayer_col) nil)
3 r. W. l! Y6 @: A) U" h
)
% _" i/ P: b5 r
layname
% k$ M* H& J# P* Q# X# Q& O
)! Y' p* r K2 H# N) L+ S* n6 H
elayer$ X: X! b6 }% L$ u b |
)
; D" ]7 o/ F! g; C/ a6 D7 @2 m
)
2 X7 C7 Z, A# @) ?* J; l5 q) E; g, f
elayer. m" P! M; ?- \- w
)
' _7 h8 I# R7 e! B% `& e
). v$ J9 m' y* u" x# m- R
;;
8 M) s( w% S2 F, t
;; Edit box selections end up here. Convert layer entry to upper case. If
# X. O6 M, {" U$ i
;; layer name is valid, clear error string, call (laylist_act) function.
$ M2 h( k6 v2 K
;; Else print error message.( O" G, k) d: P; t- r& o
;;
, m8 m+ H7 Y8 D+ d& K' n
(defun layedit_act (layvalue)- r; a6 @7 f0 @- |# o1 p8 p
(setq layvalue (xstrcase layvalue))/ W, G& [ F: Q$ f
(if (setq lay-idx (getindex layvalue laynmlst))
( L4 G4 f1 l# f4 E
(progn7 M C9 ?2 t+ x" J
(set_tile "error" "")
1 }9 V( k8 q: t' Y- D! R* T
(laylist_act (itoa lay-idx))1 F% D Z6 I1 V! g% Y! a- b n$ Z9 I
)9 t0 |7 H( @$ f' X( J
(progn6 v( a9 T# A* z& Z" J- }0 q! x
(set_tile "error" "Invalid layer name.")
0 ^6 a: X% w7 W+ K
;; (mode_tile "edit_lay" 2)0 e8 {9 F5 M/ z1 G) M0 ?8 Y
;; (mode_tile "edit_lay" 3)
! B" E( l9 M, k" j
(setq lay-idx old-idx)0 f" P/ n5 o7 Z) t. o
)( `) G m" Y3 a6 n1 o2 N
)
3 ~, Z6 N5 F& g% Z
)! `- W& a+ g4 i! g
;;
/ _% I. R# P, F8 ?$ o6 g: @+ @
;; List entry selections end up here.* l% ]6 L s) e$ ^
;;, o0 A8 E+ w4 d+ n/ X
(defun laylist_act (index / layinfo color dashdata). @" `( K! x) i9 H9 ^: L+ z! Z
;; Update the list box, edit box, and color tile.
& O M6 Z0 n/ K4 j$ k
(set_tile "error" "")
; J0 a( A+ Z" F0 y5 k
(setq lay-idx (atoi index))
( L4 _2 Y5 B- F6 l
(setq layname (nth lay-idx laynmlst))* L* e. a" ^: J* n
(setq layinfo (tblsearch "layer" layname))
) }5 f& e) p) g% b
(setq color (cdr (assoc 62 layinfo))). D, h S: R# i/ y
(setq color (abs color))
8 K$ J4 b) o6 H; P- j8 _
(setq colname (colorname color))& L7 a c; D0 X. [# ?& z' V; ]- I
(set_tile "list_lay" (itoa lay-idx))- F; a: b7 J! H5 l: v( j8 Y
(set_tile "edit_lay" layname): E* j2 ^0 _ v, C) h* v0 q+ U
)
2 h# U& E6 A9 O0 P* V+ G+ k: O
;;; e' r) F; o0 b1 l$ a7 X# e
;; Reset to original layer when cancel is selected.
2 w- b, Y! w$ S: W4 X* \" f) b. P
;;
: l! L( n% `' A6 ]3 s# g
(defun reset_lay ()8 Z5 Q) I. _4 |3 `
(setq lay-idx old-idx)
4 Q8 ?4 H$ }+ c% Z
(done_dialog 0)
8 b: v ~& s+ y* \1 Q
)
' F: _% g0 N$ ~ P k/ d1 K5 Y
;;; p2 T1 x" E6 K* w) g7 [
;; Checks validity of thickness from edit box.7 X, j3 A4 E5 P1 K7 ^% W1 _
(defun getthickness (value)
; {4 T; Y: ~( s; U$ z& M) z
(setq ethickness (verify_d "eb_thickness" value ethickness))
7 d, L, y2 V- c% }% ^& w7 t
)7 {5 X( P* t+ _
;;5 _5 O5 T1 M: h: y' Z
;; Copy of (getthickness) for ltscale. If more, make this function
9 A/ W* X v8 `/ ]; R: k4 ]) b" @
;; generic.& ?- n$ q$ d1 h1 O0 r
(defun getltscale (value)( B; e/ k& O- w) Z3 b6 [) m% R
(setq eltscale (verify_d "eb_ltscale" value eltscale))
# G' |$ g1 k! v" T! h9 }0 F
)4 B) j7 {; d1 p, T: p! U) f
;;
+ k0 C& v }4 F0 h3 }; ~1 D$ ~' O
;; This function makes a list called laynmlst which consists of all the layer! h8 w3 c; Q( R/ `: R% n7 |3 a& Y8 ]
;; names in the drawing. It also creates a list called longlist which; p! Q0 u! @( X* Q- `: S
;; consists of strings which contain the layer name, color, linetype, etc.1 N& I: Q, k: M+ p
;; Longlist is later mapped into the layer listbox. Both are ordered the
* O6 O. H' L+ S! Q; ]
;; same.. `. r3 M6 ]; W& G9 K8 w1 M
;;
B) W6 t) a8 [1 E3 v
(defun make_lay_lists (/ layname sortlist name templist layer_number)
/ Q" j& Y8 Q+ Q$ c. G0 n. b
(setq sortlist nil)
2 n* P- i0 W" A+ z; [, ]
(setq templist (tblnext "LAYER" T))$ j2 N8 g6 P3 J' K( T
(setq layer_number 1)% T5 d/ r8 B$ i& `6 e
(while templist6 Q/ c1 r/ ~ J( d* j9 `1 V4 F
;; No xref dependent layers, please.
+ V# }8 E2 [. ?0 n! @
(if (/= (logand 16 (cdr (assoc 70 templist))) 16)
3 b) N& J; [" t. ~8 D
(progn
7 p8 v& `2 R! H0 W3 i! P
(setq name (cdr (assoc 2 templist)))0 y( \% x7 S4 Y; X5 u
(setq sortlist (cons name sortlist))5 V3 |9 }9 r2 q9 t' Z) J
)$ K9 ~# t3 d0 ~& t$ ^3 d/ u
)
4 k2 T& \3 W4 v6 d
; Get the next layer.3 _8 H; a5 F7 n9 S8 a1 @
(setq templist (tblnext "LAYER"))2 y8 W' _. {# O: P/ }4 L _5 l' p
;; Not dead message...
; T" g" v. S( g1 Y$ n2 y% L
(if (= (/ layer_number 50.0) (fix (/ layer_number 50.0)))- }- Y4 C) Z: R0 a
(set_tile "error" (strcat "Collecting..." (itoa layer_number)))
, `0 S, D1 j' i4 V
)! l& \1 k0 y% ]1 }
(setq layer_number (1+ layer_number))
$ g* R+ M+ `% f; p9 T
)- B6 Y) h Y% m p; L
(set_tile "error" "")$ |. t' x1 O) ?& W7 ]6 Y
(if (>= (getvar "maxsort") (length sortlist)): [: L: h7 M, t! d# j* T
(progn1 D7 I* q, p; Y: K1 c
(if (> layer_number 50)( g! f% o: d- [- U- p
(set_tile "error" "Sorting...")
5 P U1 v/ d0 `2 ?3 H
)
2 {3 ~1 l) d7 H; _* e5 I% J
(setq sortlist (acad_strlsort sortlist))% t9 U& l; c' y1 `# Y8 ~* }+ v5 b
)
" K& P. {/ b, h2 U- H; W; G \
(setq sortlist (reverse sortlist))
# D, d% j. ?: g
)' S0 ?" k- D2 x" V3 Q
(set_tile "error" "")
# S7 x2 H- R$ a" [% i
(setq laynmlst sortlist); k8 P) Q% O s# @
)+ x* |9 l$ \, z9 e% P
;;2 V- x- d" F# l/ R6 ~
;; This function makes 2 list - ltnmlst & mdashlist.
@0 _3 e7 d$ N+ O5 ]
;; Ltnmlst is a list of linetype names read from the symbol table. Mdashlist
" I! @% z$ q7 }' n& \
;; is list consisting of lists which define the linetype pattern - numbers
+ J0 |" U J* S% v( |5 m
;; that indicate dots, dashes, and spaces taken from group code 49. The list3 d* {" | F7 Y# v' k0 }
;; corresponds to the order of names in ltnmlst.2 E0 x) l j/ A$ N3 G/ V
;;2 i7 K# z4 l# {, l+ h* B2 _
(defun make_lt_lists (/ ltlist ltname)& z" I- P9 c4 C. o) k' \# m$ u- d
(setq mdashlist nil)" D; M2 a: R' w) w( X
(setq sortlist nil)
4 K# U$ I( |5 ]8 @" G+ Q( a
(setq ltype_number 1)) Y2 Y/ l( D; M( c, v# p9 O
(setq ltlist (tblnext "LTYPE" T))
" ?7 y V. N1 {) _
;;(setq ltname (cdr (assoc 2 ltlist)))% I6 {1 y+ ^2 s8 v4 G* C
;;(setq ltnmlst (list ltname))
' b- K5 G/ E/ [5 s2 @# R6 E, T* Z
(while ltlist- \4 i) h* s% b. K
;; No xref dependent linetypes, please.2 m' r3 ?& Q8 t
(if (/= (logand 16 (cdr (assoc 70 ltlist))) 16)* a+ |0 V$ A- B1 u
(progn
6 A S/ G6 I3 o. [- a3 B
(setq ltname (cdr (assoc 2 ltlist)))
0 _& P( S+ ?5 U- H: e+ T
(setq sortlist (cons ltname sortlist))* N9 Q9 z: ^9 c: S% o* n
)
* T, k0 r2 W3 @: E, v8 t
)
) q0 l6 U; U' P
;; Get the next linetype.5 N2 A! N7 [0 a: n( |. ^
(setq ltlist (tblnext "LTYPE")): X( t0 P' {" {6 ^& n3 a
4 d: \0 \! N4 Q6 u3 ?6 N" P
;; Not dead message... x9 E* R3 T0 @+ ~
(if (= (/ ltype_number 50.0) (fix (/ ltype_number 50.0)))( _# P5 D4 x) f! \% _9 H( |
(set_tile "error" (strcat "Collecting..." (itoa ltype_number)))4 V9 a; h/ h2 r* M1 o3 y& s
)( a) F# z" ~, l0 X* Z- X
(setq ltype_number (1+ ltype_number))
, i/ c+ D# i, ]4 q/ X
6 T, o) o$ T. o- @ g
)( X _. e4 z" Z
5 R* y0 G( v8 l7 Z
;; Remove Collecting message.
+ |. v4 f0 ]; l% L* E h
(set_tile "error" "")
& F1 x1 v* V" N
& U2 _* ?3 D% k. [
;; Sort based on maxsort.
3 I/ ^( i. P- q
(if (>= (getvar "maxsort") (length sortlist)), w7 c* d, q" o2 l e) ]
(progn
1 E' Y- ?1 O& x8 W3 m( O4 q2 L- _
(if (> ltype_number 50)
( s- Z* a" N2 {' O3 f
(set_tile "error" "Sorting...")
Y4 T9 `, \; L; H, w# m5 T# s# T4 l
)
8 L6 j3 W8 C8 d9 L
(setq sortlist (acad_strlsort sortlist))
- H- {; J( X' Q: Z3 L
)! ^: R+ `) F5 |: U" d7 l$ `( K
(setq sortlist (reverse sortlist))6 M6 B- h2 N0 T: y! `8 P3 {
)1 W- [1 r: R, k" b
(set_tile "error" "")( U5 G; C( \* i; o" D
(setq ltnmlst sortlist)
% Z, R c& J1 Y. |' P) d$ U
5 n: f' n: M3 t7 j- k; W9 g7 ?
(foreach ltname ltnmlst
! h( \7 F3 W C. w) ?, I
(setq ltlist (tblsearch "LTYPE" ltname))
# W) g8 B6 X3 E/ X8 o2 V% r
(if (= ltname "CONTINUOUS")
& R, r% I x4 Q
(setq mdashlist (append mdashlist (list "CONT")))0 S" q8 D1 s& r& R# D) @
(setq mdashlist
. c8 d1 g% @7 L5 F' z) }2 s; r
(append mdashlist (list (add_mdash ltlist))); x+ N# s$ E( b) H" p4 W
)5 M" ]5 f1 D# q: D- F
)
. f% D6 f- ~% \2 O! @
)' P2 [. N! D! E$ d7 I5 Y
(setq ltnmlst (cons "BYBLOCK" ltnmlst))
9 q Q# a: O& \- X
(setq mdashlist (cons nil mdashlist)): D0 }( a- b$ V- A* M7 d
(setq ltnmlst (cons "BYLAYER" ltnmlst))( k: S7 B. l& t1 @
(setq mdashlist (cons nil mdashlist))
0 n, Y" C- _( D$ M1 b% p
)
3 M; N1 k1 `8 Q T/ E! n. W' p
;;4 y' V6 t& @- Z5 W0 C2 J
;; Get all the group code 49 values for a linetype and put them in a list
: N; V9 D `0 S- H; p
;; (pen-up, pen-down info).
9 s" }5 Y! K1 R; K- b
;;! Y% O/ e) @8 Y/ Y/ i
(defun add_mdash (ltlist1 / dashlist assoclist dashsize)! g# J8 h0 x; ]/ E7 ~
(setq dashlist nil)6 K" x* @0 {: F8 S8 J. e
(while (setq assoclist (car ltlist1))
% P2 `! n3 a, y" |- V2 U P) e
(if (= (car assoclist) 49)- [9 H) `8 z& R# k+ K
(progn8 _( H0 a8 ~7 z- Y* l3 v% N" k
(setq dashsize (cdr assoclist))' _5 _( ^# ], q0 Y9 F" W2 B4 @, f/ p
(setq dashlist (cons dashsize dashlist))
- b8 g; b5 ]# G w4 F! A
)* C- j7 T$ T& M- x& x. q2 E& }8 d$ N
); t. ~1 F* n" a# {" j$ N
(setq ltlist1 (cdr ltlist1))8 N$ V5 }( M& |% G" J9 M; _
)" _' `1 A3 F4 T* B O
(setq dashlist (reverse dashlist))
6 h3 G+ M. w( _2 |- ]7 J
)
E! [- i9 c% U9 s/ m, ^5 g. L2 G
;;) g/ L9 Z4 I7 K& f; `
;; Color a tile, draw linetype, and draw a border around it8 K; z; z. T0 B1 c6 V! @* C4 C: D7 j$ N
;;
: h1 }; H$ t0 r- J( Z- F* h
(defun col_tile (tile color patlist / x y)
- { O8 L2 s' G& A- a9 y
(setq x (dimx_tile tile))
3 Q$ h& b. ~( l ]
(setq y (dimy_tile tile))
9 j6 i0 d5 s9 o. Z) w
(start_image tile)
0 a* e" ~, `) R0 f7 S
(fill_image 0 0 x y color)0 y, V+ u. H- g
(if (= color 7)
# V. n" E, G# h: U: ?3 @( f+ @
(progn! i) M9 d( v" g# s: m1 b3 |
(if patlist (drawpattern x (/ y 2) patlist 0))7 O' r6 l% I- z" b% d2 |. M
(tile_rect 0 0 x y 0)
1 p8 z+ b4 q3 W. z* B6 o
)
% g" u# `$ h- }/ x7 s- u) S
(progn
, ^# u$ g i+ ^+ s- t, R) x' H
(if patlist (drawpattern x (/ y 2) patlist 7))
7 B0 y% Q0 o; ^# S" r) z
(tile_rect 0 0 x y 7) Y- Y) n% V% g5 t. W
)
6 Y6 @8 o- O+ O- ^
), q& Q+ B2 t/ o+ T: w& R; v
(end_image)
$ i9 l8 v1 @- ~3 B2 |8 Y( n3 ?9 B4 J
)
# w) D) B4 |4 w6 y" Y H% u
;;
2 m* ]+ J* @2 C; `
;; Draw a border around a tile. T6 k- |2 ~& a6 n' J
;;. y [/ w" e6 w" a* A3 L( J+ ~
(defun tile_rect (x1 y1 x2 y2 color)
, o: |: p# S, A5 C7 V/ B2 a6 w9 x# C
(setq x2 (- x2 1))7 G& Z8 a" K& T, O" D
(setq y2 (- y2 1))( X2 u2 H6 D) j0 A
(vector_image x1 y1 x2 y1 color)/ i; {! a. K9 F3 S' K4 @$ ~. q
(vector_image x2 y1 x2 y2 color)$ I b. C X0 X: b& L1 A+ N* p3 ^
(vector_image x2 y2 x1 y2 color): d- @4 ?. C' _, w! k0 Z2 \/ H. K
(vector_image x1 y2 x1 y1 color)' n% X4 I& A# D
)8 ]7 P- n9 j+ `. K
;;
& l6 k0 D8 I3 z* B4 k" i s' k
;; Draw the linetype pattern in a tile. Boxlength is the length of the image$ b0 g7 K2 K6 b0 `& K
;; tile, y2 is the midpoint of the height of the image tile, pattern is a5 Z4 ], Z9 j* @& f9 Q
;; list of numbers that define the linetype, and color is the color of the
4 K% X2 G2 K0 f6 F
;; tile.
( J* L# f# j3 U/ O/ D% O: i. W
;;! f1 U0 c& V; E5 N8 Q+ S2 I/ e
(defun drawpattern (boxlength y2 pattern color / x1 x2
m" Z# s2 h4 Q1 Q0 n
patlist dash)5 A/ O$ I& I1 H
(setq x1 0 x2 0)# Z7 u1 V; V ?" u; R, f1 ?
(setq patlist pattern)2 u# n& N3 C) R- u2 C" |
(setq fx 30)) K2 O2 D: }" M' ]0 P
(if (= patlist "CONT")
! a; t2 o# B+ `9 N
(progn (setq dash boxlength)* }% I' q7 f Y: C7 g
(vi)
C! D2 z. f; O/ b% c! j
(setq x1 boxlength)
' O; O! H$ G. g0 p
)
4 ~; R) O* y0 r! m9 [/ \: a, m$ p
(foreach dash patlist
' Z% ^( F' r$ n4 B5 v
(if (> (abs dash) 2.5)5 k. c7 |+ a: B( _ K
(setq fx 2)
2 p# Q6 g: Y. x4 b9 r0 }
)% K/ P" ^: ~1 V, g' y
)9 R7 a- J' p2 p" [3 U, o" E( B4 V7 ?
)
" }' M1 B1 \/ y/ p1 l
(while (< x1 boxlength)
; c; c# y. A( Q) n
(if (setq dash (car patlist))1 ]6 b- F; r/ f: A
(progn
' a/ Y( `2 n2 c( Z7 z
(setq dash (fix (* fx dash)))
+ h. v/ b, y3 h) c9 s
(cond. P9 z2 a- n. j
((= dash 0) (setq dash 1) (vi))) d6 h2 q7 [" Y3 j9 a, a
((> dash 0) (vi))- w4 O0 r9 m; C. Y
(T( [9 J" C/ s$ {2 B
(if (< (abs dash) 2)
9 a7 x" [ a$ d" B% h
(setq dash 2)( O# ~4 U4 v, ]3 ^" e8 T6 \" Z- F
)2 z: q2 ^; p1 c% g) S
(setq x2 (+ x2 (abs dash)))
+ h9 H' q; J5 i5 ~, D) ^; n+ ^
)
7 A, d) O l& G, l" y+ P2 j
)
! G( y; p8 C3 N$ ^
(setq patlist (cdr patlist))! j! Q4 E: K; ^0 @1 n# c5 S
(setq x1 x2)
0 s3 V* K5 e! @# S Y [
)2 ~$ P; q/ w" U2 J. w+ w
(setq patlist pattern), X% Q H# F. y0 N
)8 T- M L$ m/ d' w7 K1 e
)
/ T& P" J0 I. L- z5 r1 A1 \
)
3 S9 n' _) |, a8 E/ G7 j3 V3 ]5 ~
;;
( G5 s( Q3 @& B
;; Determain state of xclip' R4 G' b, G S) z
;; Returns the group 71 value of the spacial filter dictionary.+ P6 H3 a+ [7 b0 u- V
;; If the entity doesn't have a spacial filter dictionary, this
% Q+ t/ |& l' ^, z! M# p, }% n/ K
;; returns 0. If it does it will return 0 or 1 depending on the4 O! S3 B$ \8 X) B+ c
;; current setting of the state of the clipping visibility.
. Z# w" A: n+ K
;;
4 H5 {1 c& T$ V" |
(defun xclipon(elist)- \% z6 d% F1 _4 L! A+ L6 g1 g% B
(setq hasclip T)
i) U+ I* Y# \ n) K4 r8 M% n
(if (/= (assoc 360 elist) nil)$ ]& K9 ?; h! e
(progn
0 t6 ~% x( c0 @0 J/ p5 z4 X
(setq tmp (entget(cdr(assoc 360 elist))))
* ~) q* N7 L) E6 F, {# Q
(if (/= nil (assoc 360 tmp))
" k" ^( \, [) ?5 }9 d2 N ^
(progn4 M5 `" h0 q% [
(setq tmp (entget(cdr(assoc 360 tmp))))
0 j1 Y* Y* B, N/ E p) w
(if (/= nil (assoc 360 tmp))
* [9 S" _* y. r4 E* y
(progn0 @2 g. D/ i7 r! r: ]7 c `$ }0 q
(setq tmp (entget(cdr(assoc 360 tmp))))" n; l# t0 @9 u' M7 L7 c2 i3 Y
(if (/= nil (assoc 71 tmp))
1 c; L/ S0 U% L9 z9 r4 U
(cdr(assoc 71 tmp))) o; z! M, I% S, j! L
(progn
: h& M! D1 ^( h. B9 }) D
(setq hasclip nil)
( T" K o3 c2 V( R
(eval 0)" }' s- }2 [* L1 M# |. q
)
6 P6 z% C e1 o! l/ E% i
)
1 y( D& G+ M+ x' T' D. G. l
)5 r7 v0 a; C' z1 a* G* j% u3 ? H
(progn & r- y7 k6 E" |! s9 b' K
(setq hasclip nil)
1 a$ J; Z" \- V, d! E- R' N
(eval 0)
5 D9 S9 W9 n# p J
)! Q2 I) A4 r; \0 S
)2 v* [" D/ A! X6 G
), s" t L0 j& L+ p% V% H8 @3 z W
(progn 5 ?$ i' E9 k9 R% O* s: p ~- M
(setq hasclip nil)9 J2 r- n2 V$ z0 Q( i; T
(eval 0)
! V. w3 t, X3 S; [* Q; U
)
* ^: D* P5 f+ i: d0 x! r) P
)9 }% z2 C; ]2 Z1 C" B
)1 K; }2 q2 s1 H; S- b+ L% s/ ^/ v
(progn
7 U# u: I+ ]- K) {5 N. w% `
(setq hasclip nil)3 e8 \& v \0 ^" g( F+ Z# l
(eval 0)
2 m8 S- N- y& i
)
' R: E) Y+ F0 O% S2 N3 `9 |
): {$ d8 r& Y" I4 ^
)- h4 C8 J& d! U8 z: }3 H
;;
0 I7 z! s" o. _, ? ?
;; Draw a dash or dot in image tile
& P# q# Z% G* |* n' v) r, ?
;;
/ A3 i; D! G- E3 h
(defun vi ()" H5 I- }. H$ Q0 _4 o9 q
(setq x2 (+ x2 dash))
# P4 l2 Z/ G* l9 @' I
(vector_image x1 y2 x2 y2 color)
7 P( U$ }8 y! ?7 c( \
)
+ E6 H! I" n& s% b
;;
1 o( @" |' h8 W4 L7 h% c0 P
;; If an item is a member of the list, then return its index number, else3 F/ M) K. [, X8 [' K2 B- k7 V1 P
;; return nil.
6 G4 w+ e* q, l9 w
;;) f% H0 ]* q0 t4 \6 S
(defun getindex (item itemlist / m n)/ O' F1 s" b! C$ h+ G2 j4 X+ x
(setq n (length itemlist))9 L7 |3 M y8 ?8 C9 d
(if (> (setq m (length (member item itemlist))) 0)
/ ]% ]+ ?6 z1 P Y0 F E+ p d
(- n m)- a" j* ` D/ [" r- v# s
nil. `- A& t0 j4 u. [# b
)6 s0 G3 v8 H+ }2 _. M5 q0 |+ d
)) R0 O6 R: Y1 A0 j. S# D$ B. @6 d
;;) n8 ~+ H c& h% T6 M
;; This function is called if the linetype is set "BYLAYER". It finds the
8 w( @- v; k" X5 g I7 o( i, B8 Q* E
;; ltype of the layer so it can be displayed beside the linetype button.
3 d: O$ }) o4 M! T8 |. f
;;
( [. Y2 k4 S: E! P2 \' a
(defun bylayer_lt (/ layname layinfo ltype)7 B9 z" R* {, _: l/ o
(if lay-idx
3 @1 t: g6 T2 |6 n
(progn! @1 E- y! q* W) v4 O
(setq layname (nth lay-idx laynmlst))
}( S" J' }! {( j! u6 I; J
(setq layinfo (tblsearch "layer" layname)). i" M9 b0 G0 `' X( B, g
(setq ltype (cdr (assoc 6 layinfo)))
8 `2 c m T% Q8 I$ ]
"BYLAYER"' t; N! Q" b8 a" A: }* z
)1 L; E5 B8 O4 g3 }+ V
"BYLAYER"
% ]: A# S" X8 ?" o
)8 k- z7 n8 Q. j# w: p
)
! x7 F- }. i5 U7 C6 v
;;
/ G; h Y# k& ^/ V% F
;; This function is called if the color is set "BYLAYER". It finds the color. L, j( e7 v ^3 f, W2 ~! f
;; of the layer so it can be displayed beside the color button.7 d" b P: N8 b# d/ F- L
;;
) _7 i. Q4 E+ O/ R
(defun bylayer_col (/ layname layinfo color)
/ X. K9 Q/ Y0 i% q- I& X
(setq layinfo (tblsearch "layer" elayer))
+ R4 L& x, v8 u( h7 ~( K
(setq color (abs (cdr (assoc 62 layinfo))))2 K' V, r9 N" I2 g) |4 ?
)
- h) n. h S4 R
;;
9 m- W+ X7 k* U4 M5 v
;; Used to set the color name in layer subdialogue.
% r2 y2 \" |/ |! r/ \
;;3 g% \7 n3 e }! U" L
(defun colorname (colnum / cn)6 X6 p3 j' h5 J2 v. X2 M
(setq cn (abs colnum)): M3 R* Y1 E6 B2 L2 y* i9 s& j
(cond ((= cn 1) "red")9 i* B, q$ B4 u, J8 x! J7 s
((= cn 2) "yellow")& |& m0 Z3 X+ Y% n* F0 n2 u/ P
((= cn 3) "green")
, z- I% d/ I+ F3 q& j9 r
((= cn 4) "cyan")
2 k F; L8 D; y4 q
((= cn 5) "blue") L, t" P1 U' p5 M1 m8 O) L: e1 ]
((= cn 6) "magenta"), C5 Y4 E0 K+ y
((= cn 7) "white"), q# a; l, |" u; R! q9 q/ k) Z' d' k9 y
(T (itoa cn))) j& ` ~" t4 @' n, Z2 C
)
1 w3 n, I4 g! @" p7 Q% ^
)
: i0 C6 f8 t! p v
;;$ p" O$ S' l# Y8 l& c$ t* j# \
;; If their is no error message, then close the dialogue.
* m, h' g' V% f3 ~- L+ s
;;, z# \3 L" m" s4 W+ w9 p7 u
(defun dismiss_dialog (action)) T) l2 Y7 o( O+ \# ]
(if (= action 0)0 ]7 L$ y. k) O, {. g, h
(done_dialog 0)
6 R& w. ^- ^# x& {
(if (= (get_tile "error") "")
/ f* {$ Y/ [3 S! T5 D. k
(done_dialog action)
' i& P* e1 h0 Z5 a l9 P1 z! P
)6 [( ^7 E4 H! C# G9 D# L
)
/ O( F$ v( m) |( V0 E
)" M6 M( f" T6 ~$ D0 n
# Q" m$ t+ a7 P X H0 L
(defun test_ok ()& {7 J1 D% v, {) ]2 E: b" n- n
(if (= (get_tile "error") "")# B% `8 f. e+ s& ?1 W {4 x4 T' @
(done_dialog 1): @, |& f% j- Z$ Z
)# L" _2 b3 z( R6 w
)% T3 V t6 L8 z `& h0 W9 s; g
& H0 b* }1 a2 f+ M$ Y) ]
(defun cancel () F# }7 B# C: r' x8 K6 _0 m9 @
(done_dialog 0)
9 I+ B5 H- u: ?4 ]4 K c4 M, H1 L
)
7 p$ Z/ G7 ^: D+ C: r. r( |3 U
5 t0 T, w% D& L3 g$ a
;;; =======================================================================
* c0 s4 g! z5 I& M2 B0 i- t
;;; SETUP layer and linetype lists for application, and initialize all
! `. V5 ^8 U2 i: h
;;; program variables.6 M% ? O! _, N+ ?9 p$ X* z3 K( H
# O8 {5 f! Q3 m" C) j' w2 m* T
(setq elist (entget ename)" g9 [' U' Y4 z3 I* e6 O
old-elist elist1 Z3 k/ F1 J( ]7 R0 ^1 Y8 }* K
modlist elist; \# p$ e2 j9 ^( h- S- z
etype (strcase (cdr (assoc 0 elist)))
G2 T' Y5 `( N( y0 O+ O. o
ecolor (cdr (assoc 62 elist))* p$ m- `+ M0 J. e m r# D
elayer (cdr (assoc 8 elist))$ L. u2 B$ \- F/ I
eltscale (cdr (assoc 48 elist))' T* `$ O# F* s- O2 m9 h
ethickness (cdr (assoc 39 elist))9 ~! x; k- H& B' q2 M6 V2 Y
eltype (cdr (assoc 6 elist))% E; b6 l9 [% O* H7 A
)$ _# z' u, L! v
(if (= (assoc 210 elist) nil)+ x8 d5 m2 w W4 C
(setq extru (list 0.0 0.0 1.0))- z$ E1 J. n' O- o% _
(setq extru (cdr (assoc 210 elist)))
}, K; c7 e6 e$ W5 D+ z
)
* J; i8 Y$ @, e9 Y- P6 Q( N1 P
7 y5 W+ K- s. G: C7 j
(if (not ecolor) (setq ecolor 256))
+ u$ X/ u# z0 |% Q$ {5 O" S! t/ l/ o
(if (not eltype) (setq eltype "BYLAYER"))
1 ~4 d* F5 B/ J& m C
(if (not ethickness) (setq ethickness 0))
3 o; t J- W3 i: Y3 B1 r: ]
(if (not eltscale) (setq eltscale 1))+ ]: r) C- e0 d9 `
) ; end ddmodify_init
, T5 W2 h( j! W! F- p' L" w$ x
- @6 P2 `" z# X2 ^+ F4 q. D( `
;;; --------------------------------------------------------------------------
8 |" j3 m. W/ b; \, S2 ~; [/ j
;;; Function: DDMODIFY_SELECT& V* l* w# i) B& V- z
;;;% T0 B. W' i R5 R# M
;;; Object aquisition function.
. X. h, z T( e. ]
;;;
* l3 r1 {& [6 R) Y& p
;;; (ddmodify_select): R# K/ J o" q# Q8 V
;;;
. p/ k1 n6 d2 m6 e" G. g' `
;;; Obtains object to be modified, in one of three ways:8 _5 D( b& z. ^, |* ?
;;;% D( L6 W& ^+ Y2 d9 F+ o6 A2 j
;;; 1 - Autoselected.
. [1 w) }$ ?8 F/ |# h4 D$ V" ]$ Y4 h
;;; 2 - Prompted for.6 l }/ [/ S9 e' C; ]
;;; 3 - Passed as an argument in a call to (ddmodify <ename> ); U0 ~( l5 `. I8 e
;;;
. t! r$ R2 ^% K% d7 w* u
;;; The (ddmodify_select) function also sets the value of the% O* f% J b+ i8 V y d
;;; global symbol AI_SELTYPE to one of the above three values to
+ D4 Q: v: \% [
;;; indicate the method thru which the object was aquired.* U4 u! i# J9 `! S% e# e: L( g0 P
;;;
5 c; V2 X+ t% p, A
;;; This value can be useful to applications that want to RESTORE% f/ @: T+ r$ R+ V
;;; an object that was autoselected to its previous selected state+ s6 d: R. G* w/ @5 A; c
;;; when they terminate, although there doesn't appear to be any
5 C6 M$ O7 _) \% W& d) ]4 C
;;; way to do this right now.
7 W6 {" O; h6 {3 K
/ z0 m& g: G% S8 b
(defun ddmodify_select ()
3 j( k& U/ `" ~. O
(cond
! I/ ~( @4 E$ y, B {- ?8 `: ]
( ename ; (ddmodify) was called
& H7 R3 k; l6 E
(cond ; with an <ename> argument3 v0 r' d* O& p) H9 _
( (entget ename) ; If object is non-deleted
" g: y) m+ q" }" b: n% r" A
(setq ai_seltype 3) ; then return its ename.7 P* {$ O* E' r
(ai_return ename))))
- ~* p/ d g# T7 S' W8 ]" c
;; return auto-selected , see ai_utils.lsp
! U% G9 U0 V$ G
( (ai_autossget1 "\nSelect one object to modify: "))& t3 ]9 p; g( z) L# v& D5 N
! T5 n& K$ f2 x( G( K
(t (princ "\nNothing selected.") g3 f) K6 T- o' f
(ai_return nil))3 j1 I1 x2 K0 }( {3 q% |' `( b2 W
)
{- R. d6 `6 y, z% m1 t
)
& R( V3 j* J& j+ l
0 u2 K$ e$ [! K* t% `. ?
;;; ============= Command line interface function =======================& o' U2 @, z$ P6 t
. o/ _. u6 n5 W7 u0 G) o% p
(defun C:MMO ()8 k5 k( g9 f1 K* g( w! _
(ddmodify nil)3 k9 W* [) x3 Y. H% U4 }+ S; L+ _
(princ)
+ \7 t0 f2 g) j+ F
)
h; K' L! E8 j
0 J" m0 U* Y7 c% J1 X4 Z+ b& c
;;; ================== (ddmodify) - Main program ========================
" t. {$ r! \' q1 S3 P
;;;" x% u$ {4 e q
;;; (ddmodify <ename> ) e( q+ i+ ]% V) [! }9 G, h
;;;! M- F/ P4 S h1 o" [- f, P G
;;; Main program function, callable as a subroutine.
- l" d) Q K n8 F. {3 _+ _
;;;
: U; d( ?0 O5 F" R+ B+ _
;;; <ename> = object name of the object to modify.2 ^& r) e) b) D$ D
;;;& [6 u4 P; W3 _; |" t" _
;;; If <ename> is nil, then user is prompted to select
- c; ]6 S' [) Q* x' b
;;; the object interactively.0 B; H {! ^+ D$ p8 P( P* l
;;;
; U0 \4 w$ z8 H, b. j/ O* w
;;; Before (ddmodify) can be called as a subroutine, it must
# N: e# i* i* P6 O
;;; be loaded first. It is up to the calling application to
% P- H: }, m& X" N
;;; first determine this, and load it if necessary.
3 {3 ?% _4 R2 f; Q4 T
, ]7 B( u3 a% ?5 `
( s, { R3 X9 V$ v& Q( M
(defun ddmodify (ename /
( D/ L8 e+ p4 B: Q' d
2ndpt ell_calc_area move_pt1 templist
2 x/ k" M' F$ g+ i
add_mdash ell_tile n tempmod
' ?7 a7 l! C: _+ |7 G
alipt eltscale name tempst_ang _5 ^) R8 i3 D6 ]/ A
ang eltype newpoint test_ok1 A8 J! F+ O$ t2 b
arc_calc emod next text/ q; [) m4 K# J" O7 B1 H1 Q
arclen end_ang next_vertex th-value
! t, U9 j0 S0 O/ P" \
assoclist endpt obl tile
6 _' }" r9 z3 P' {; @ T4 n/ a
atprompt errchk off tile_rect5 Y5 ^1 }( W$ w7 j2 ], V
attag ethickness old_majrad tilemode0 r- m% L8 V" \
attprompt etype old-closed totang" G) z6 X, i! D1 X$ ]; u( R
bit extru old-closedm tstyle
3 X+ q* M0 _) E- s* T
bit1 fchk old-closedn u
' L# U1 T( _; G3 \1 }
bit-10 first-10-rec old-elist undo_init
5 X3 G! J- ^7 B% W) E
bit-11 first-10-time olderr upsd
+ L# g, q% p6 C8 z
bit2 first-11-rec old-fit v! U4 F( b4 N; d3 u5 G0 W& |
bit3 first-11-time old-idx va
$ k* e0 N- H6 q, D* c& X. G1 V6 g* Z
bit4 fit oldlist value7 Q- r' {: I9 N$ F7 g4 q2 J
bit70 frozth old-spltype ver_4
1 r8 Y4 J) Y3 t; S
bit-70 f-vis old-u ver_ang1, C' g9 P6 A% x! L
bit75 fx old-v ver_ang29 _( T% A5 |/ J0 k, s+ R
bk-up get_color on ver_col
7 d1 }% [% v2 E
bkwd getcolor onoff ver_colsp
( R7 Z) `. C. A! P
boxlength getindex on-off ver_eangle2 w0 d1 T! }+ l: o2 Y: p
bylayer_col getlayer patlist ver_hght
0 M: }; T5 A' i) J0 [) n0 x* ~8 q
bylayer_lt getltype pattern ver_majrad: ^ T: \# H! x9 x
calc getthickness pltype ver_obl9 \6 ?. A# F' u6 J( F
cancel globals polytype ver_pt16 w9 ^( _7 p" n- y# J2 ^ O1 h0 x4 B
cir_calc ha pre ver_pt2
- e5 U# g" d0 h9 X$ }
closed ha-prev proplist ver_pt3* t# Z/ S- D6 f# |4 ]
closedm help_entry pt ver_pt4% O7 n4 |: {- P. C$ {8 [
closedn hght pt1 ver_rad: m: Y5 R7 l' s4 \
cmd icvp pt1_eq_pt2 ver_rot% ]' `/ f$ h" w" G6 L
cn image_add_vector pt2 ver_row
5 r2 h& N" o# B$ f6 v% a
cname image_clean_variables pt3 ver_rowsp
; f l7 B8 Z9 h# i' E
cntl-pt-indicator image_cross_product pt4 ver_tag+ C- c" J( |1 b! p' ?8 c8 r
code_71 image_disp_opt ptype ver_u
0 f/ s; G5 U, \
col_tile image_dot_product radius ver_v1 I+ T. c) I0 ]4 b9 q! B5 q7 ^
col-idx image_normalize_vector rational_spl_flag ver_wid6 m1 B; Z7 X0 \# E. H: T2 u: K
colname image_rotate_vector reset ver_x1
! L$ i$ H# T3 k9 [; A
colnmlst image_scale reset_flag ver_x23 v( N/ l( r2 }7 ]% e! C
colnolst image_scale_vector reset_lay ver_x3
( k& t& d4 E; E" Q) t7 z
colnum image_update reset_lt ver_x4
" m" E& e% C' z/ b
color index reset_uv ver_xline_pt1" u' Y# _5 s$ H, k# G2 H; p
colorname inv rot ver_xline_pt2
4 T( _8 @# u3 @! f6 f3 m' X0 z) s
colorno item rows ver_xline_x1
col-sp item1 row-sp ver_xline_x2
9 d& n) T6 H, H( R. R* ^* y2 W
columns item2 rrat ver_xline_y1
( D$ a6 M0 N! F: V, S
con itemlist s ver_xline_y2. x! [& b5 g3 Q7 W; }
coord jlist set_action_tiles ver_xline_z1 ~. n, L: e/ l# E$ b& T/ a9 P1 r5 _
ctr jlist_act set_just_idx ver_xline_z2
6 d* A# E j b' y" B8 s
cur-10-rec just-idx set_tile_bk-up ver_xscl8 s* Y9 C5 V2 E4 N" q
cur-11-rec layedit_act set_tile_cntl_pt ver_y1' `/ G, N- R& l( N* m- X3 w/ J
cvpname lay-idx set_tile_data_pt ver_y2' J3 \' f, G0 u2 e
dash layinfo set_tile_dirv ver_y3
5 Y% o! S$ G0 N
dashdata laylist set_tile_edges ver_y4+ x- |$ ?. i5 W
dashlist laylist_act set_tile_endang ver_yscl8 [3 C3 Y& L! B' \8 C
dashsize layname set_tile_hght ver_z1
. J* ~+ ^/ Z5 ]4 H- `2 s
data-pt-indicator laynmlst set_tile_icvp ver_z2
9 z6 k9 P1 p% a' |7 h
dcl_id layvalue set_tile_just ver_z3" G6 ~2 e! k5 Q+ a
dd3dface line_calc set_tile_obl ver_zscl
- ]! B! I; r9 a( S
dd3dsolid linetype set_tile_prompt verify_a+ c0 z0 A! [/ \, c. s. c
ddarc list1 set_tile_props verify_d
4 c# A- c; j& [5 f% M' V0 m' L6 R
ddblock longlist set_tile_pt1 verify_i5 E1 r# E, l, b/ T* r
ddbody ltabstr set_tile_pt2 verify_xline: j7 ]5 W1 y4 l9 e. z
ddcircle ltedit_act set_tile_pt3 vfy
# g- C/ v6 e( }1 ?0 c1 K9 [5 `
ddellipse ltidx set_tile_pt4 vi' H% D5 M" W( b% k# O) {2 \
ddgetprompt lt-idx set_tile_rad vlist+ t- X7 z+ |" J" Y+ R% }8 e- j# c, ?
ddgettext ltlist set_tile_rc vname
5 V2 w' j6 a" d J
ddimage ltlist_act set_tile_rot vpf
% J5 E4 v% ]- A2 Q/ P
ddimen ltlist1 set_tile_scale vpid2 Z: b4 P* }; \) p3 C, ^" I! A% b
ddleader ltname set_tile_spline_props vpldata
# Y0 [& F: o. h) L. ]1 \
ddline ltnmlst set_tile_stang vpn }+ ~9 d% v6 P% }1 P0 G
ddlist ltvalue set_tile_style vpt, F' T* }$ R* M/ w' ?; X4 p
ddmline ltype set_tile_tag which_tiles& @+ W8 z5 h/ L D# @0 G; s6 t8 Y
ddmodify_err m set_tile_text wid9 P- S, g: K- i0 g: r3 {" |2 l3 W. ^
ddmtext majrad set_tile_vpt x
; e- d+ N: ~+ P* h
ddpline make_lay_lists set_tile_wid x19 s9 k3 `+ y* G* S' T3 H
ddpoint make_lt_lists set_tile_xline_pt1 x2
. X9 _7 v1 R$ L% k
ddray mdashlist set_tile_xline_pt2 x39 x( j0 ^7 h1 f+ S) V+ j
ddregion minrad setcolor x4
3 L2 T6 }# [0 E2 ^+ r; b
ddshape modify_3dface shght xdlist
/ A4 v; a E8 l$ G' l
ddsolid modify_3dsolid showpt xline_pt11 |9 V. G O/ c. y( O$ }$ n
ddspline modify_arc size xline_pt2
2 @% ]) n# M4 s
ddtext modify_block slist xline_x1
. a: P K0 U: G3 Z, \1 ]
ddvport modify_body sname xline_x2
1 H" A) i# C* W; J- Z" k; _; P7 h
ddxline modify_circle sortlist xline_y19 b7 l5 M, N/ P. X- v
denom modify_ellipse spltype xline_y2 `) a' Q' z' E2 w3 P
dialog-state modify_image ss xline_z1
0 S6 c6 ]# U: l' Y. J
dir_pt modify_line st_ang xline_z2
1 N$ w* R8 X* ?4 Y, `) h+ U
dir_ptx modify_mline stpt xscale; Q! `, J2 C" j1 w2 n8 Q
dir_pty modify_mtext style_act xx
' l: ~0 t* ^- N4 u1 ?! ?
dir_ptz modify_point style-idx y
# z% ^& d8 p" J1 y( P
dismiss_dialog modify_polyline style-list y1
2 {$ Z; r8 a/ s" [+ |, z3 K' K9 j
drawpattern modify_prop_geom tagval y2
' V2 e( i6 }) v3 F/ r- ^: w, I4 Y
echo modify_properties temp y3% W; ~' n. d% S/ f( _& P7 {
ecolor modify_ray temp_color y4
C" m* h: |$ I
edge1 modify_region temp_dir_x yscale
: f8 r% s7 p& y- P
edge2 modify_shape temp_dir_y yy
4 w' W5 p7 f9 p$ p! Y; r& V
edge3 modify_solid temp_dir_z z1) A$ N, S6 z7 n( a& h; t- E
edge4 modify_spline temp_xline_pt1 z2
9 w9 l9 V( A+ u6 V1 F/ S, |
edgetest modify_text temp_xline_x1 z37 B, ~3 H% Q2 a& c# b
elayer modify_vport temp_xline_y1 z4) A* R; r, q9 j2 b! \; N8 }
elist modify_xline temp_xline_z1 zscale
# Z* a8 [" X9 m8 Y; n/ \6 Q, ]
ell_calc modlist tempend_eang zz
0 o& ~) u2 E9 o1 n
dir-idx safe_ddedit ver_MtextWidth xcliponoff
+ H @! c y# Y
MText_style! Q' a) F" v1 o- i% ]
)$ e# A) l& V5 {- n" E
# }, q& m* ]+ g- g, S4 l$ L
(setq old_cmd (getvar "cmdecho") ; save current setting of cmdecho
6 y# O/ O6 P7 {8 U Y
old_error *error* ; save current error function
# E/ n! N7 q, M3 V5 X8 H+ Q
*error* ai_error ; new error function
( g1 M+ ^5 b) [% V5 O3 I3 \0 P
): ~4 @' t2 ], D. E# Q) n
: c% [; V- ?1 @2 T8 B+ x5 G
(setq old_pickstyle (getvar "PICKSTYLE")) ; save old pickstyle
1 B4 w7 k6 l0 ]( W! |
(setq new_pickstyle (logand old_pickstyle (~ 1))) ; turn off group selection
. W1 V- B. A2 L& O1 K6 g* C
(setvar "pickstyle" new_pickstyle) ; bit and set to new value
# j# W8 R) R+ L& k
i5 ~" {# t" @+ }9 f
(setvar "cmdecho" (cond ( (or (not *debug*) (zerop *debug*)) 0)
8 D" l' G1 `; E1 z3 l, @; ~
(t 1)))
" E2 s; J/ g* z
(cond
" [# @) O& w4 P9 M% D; ~; g/ H
( (not (ai_notrans))) ; Not transparent?
: d5 n$ O- g8 L. ^0 s) T
( (not (ai_acadapp))) ; ACADAPP.EXP xloaded?
& h7 Z; u8 C8 Z/ z
( (not (setq dcl_id (ai_dcl "ddmodify")))) ; is .DLG file loaded?
# c. {8 b+ h4 W
( (not (setq ename (ddmodify_select)))) ; object to modify?
; A# f2 _& d" D) ~
% r# r- q, [) {! J* ?' w
(t (ai_undo_push)) U O6 e+ Z' e9 \' U
(ddmodify_init) ; everything okay, proceed.
9 C. \! Z+ I. b2 o, Y/ v
(cond+ |. t$ g0 x+ b F1 a
((= etype "LEADER"): b1 Q: N; r$ T& n, `4 r' l$ p
(setq help_entry "modify_Leader_dialog")3 T9 m" y2 E t& _* @: r
(ddleader)
* A# m& I% C3 G: I" U
)
# h* U/ G' S f9 x+ k% w
((= etype "ARC")
, s. s: y$ S5 N) h) K
(setq help_entry "modify_Arc_dialog")2 g# D# Y+ @( m+ W& y
(ddarc)
) f& ^+ f. o" C7 k# d% ~4 C
)8 o6 k N/ Q0 S& J1 l5 c
((= etype "ATTDEF")& u0 \0 d. a6 {8 H6 l8 C
(setq help_entry "modify_Attribute_Definition_dialog")
: c6 W: M7 `9 ]% s" J
(ddtext)
$ R) _* x; @& h9 ^2 [
)
3 N" Z; f c g3 _. h' R- H
((= etype "CIRCLE")
! l- t; M# A" Y/ i
(setq help_entry "modify_Circle_dialog")
/ P" T" A) ?; u! q& B! w
(ddcircle), q% f+ w( N1 N0 T9 b! k
)7 ?! H, f4 V: R7 U4 [/ i$ E
((= etype "ELLIPSE")" b/ P6 a8 Q! ]7 i/ H- x
(setq help_entry "modify_Ellipse_dialog")
' M3 X& ?: j5 P- _
(ddellipse)
9 X C7 \/ \5 @1 r2 z/ k
)
7 F. K1 ^( I" V y# [
((= etype "3DSOLID")
; x% c, c; \+ c4 Q) i
(setq help_entry "modify_3d_Solid_dialog")
( ?$ s* w/ Z0 T3 @
(dd3dsolid)- p5 d( O0 x' G% G
)
; I) s; m0 L7 S1 k3 B; A
((= etype "BODY")% |7 V! c. L8 v }
(setq help_entry "modify_Body_dialog")
K' u& w+ C% `/ C9 x7 o
(ddbody)
: G1 v6 J3 O" V, h7 e# }
)/ d! l! x/ y! ]7 b
((= etype "REGION")- ?- n$ h2 P0 o* n
(setq help_entry "modify_Region_dialog")
$ h1 V& Q. [8 o/ v
(ddregion)2 K5 w0 b2 {$ W& E9 |/ K; I
): Y$ V6 O, ?& y( p
((= etype "HATCH")
/ v" K% h1 K' k4 a9 u' E) d
(setq help_entry "modify_Hatch_dialog")
& C) o# C1 U8 l6 J) }9 z! M4 j `
(ddnewhatch)8 @: P4 V6 }1 R% f
)
& Z8 Z ]3 R$ T* J
((= etype "SPLINE")/ V* f6 E; p& l8 n A B! }% u
(setq help_entry "modify_Spline_dialog"), q& i, c% t6 m& `# }* C
(ddspline)1 s' t. }# r0 }2 U2 s
)
1 b) d* E3 {' |3 }: ~
((= etype "INSERT") ; see ddblock for help_entry
9 a. M, u$ J: `& B0 x7 \$ ]
(ddblock)) h$ T5 Q, s" [2 ~+ Q1 y
)1 {! N0 I& r6 R: B$ o0 O: J% R
((= etype "LINE")) @. f* c: x+ n! C! Q: I
(setq help_entry "modify_Line_dialog")
% `/ P' t* ?1 x6 |. Y5 i- o
(ddline)
4 `# H5 _/ |" |- w3 b
)
* \ n9 J2 x! }8 \' J
((= etype "MLINE"): {; k! m# i9 x) k7 O; P
(setq help_entry "modify_multiLine_dialog")% j7 Z6 |4 {- i) k% ], P! w# D+ h. \, ?7 ~
(ddmline)' |0 W, S9 s2 i- f
)' S- \1 l8 n! _; X* z$ o M) a
((= etype "RAY")
& B+ E O3 b& }5 p3 v% i, S$ I
(setq help_entry "modify_Ray_dialog")
8 Z; ~" {, O [1 e" g: ~. n9 @
(ddxline)1 G! y, y8 ^# z* b' O4 {
)
: ~! p5 O8 I. Q' P/ e; J' {. G( F4 @* p
((= etype "XLINE")
) Z, z# o7 a# a/ I/ Y4 k2 X% Z4 G
(setq help_entry "modify_Xline_dialog")! k& X, W. _7 X$ {* M8 x8 `
(ddxline)
0 b) G) }+ A" p f4 e" c
)
: ^, n5 j$ z! L( k0 {) E5 H! n
((= etype "POINT")7 l; [; L6 H4 |! ?5 b
(setq help_entry "modify_Point_dialog")
4 V2 |/ J' d7 p# Y8 J1 r1 \
(ddpoint)
9 t1 ^6 K" W5 A5 L
)
: f; p' ` O/ m- p! A" }: R
((or (= etype "POLYLINE") (= etype "LWPOLYLINE")): G1 D" e' t ~
(setq help_entry "modify_Polyline_dialog")
+ R" x; ]$ }" q/ l: V
;; If a 2D pline, check to see if it is planar to the current1 c+ |" `% a8 A3 w7 F
;; UCS, reject if not. To see if the pline is parallel,; }( g, j8 f I; p. T: a
;; the 210 group (WCS) is added to the current UCS origin (WCS)7 k* b3 T8 s2 a. w+ A9 i1 K0 r
;; and then converted to the current UCS and checked to see if8 C) n3 @- |# \! f- R
;; it is equal to (0,0,1).
# v- h5 }, s' ?9 a( p- q3 A' P6 T
/ |3 @+ ?* w- L+ {- D+ H
;; Incase the 210 is default and not in the dxf list.4 I/ f9 K. J. U0 W. C- n4 L
(if (= (assoc 210 (entget ename)) nil)
/ d5 _, x3 }8 A6 h h2 E y
(ddpline)
" C; a c' C* ` @! I( N! [! z8 [
(progn2 c# t% n, u2 W( [
(if (and (zerop (logand 120 (cdr (assoc 70 (entget ename)))))
$ y9 M9 L4 u; T- q6 C0 J2 a" }
(not (equal '(0.0 0.0 1.0)& I* b- ^3 c" l9 z7 F7 _
(trans (mapcar '+8 K3 @( Q# P7 n
(cdr (assoc 210 (entget ename)))
: S9 i2 r; v# l2 U! r
(trans '(0.0 0.0 0.0) 1 0)
1 J9 o6 J( T& a# W% K/ }. m
)
) _6 U: K% t' B+ u4 Y7 z
0 1
7 D+ ~& q' v; v$ _
)3 @* D' u3 j7 s
0.0000000001 ; fuzz
4 n& j7 }; o# Q) o
)
" H. a- t, M- Y/ |6 u9 n) B
)# @* e/ ?1 a$ U W& X# w9 U0 h
)
% r$ \- {9 r8 x, g0 J
(princ "\nThe 2D Polyline is not parallel to the current UCS.")
- B+ I& W7 P7 c4 F: M3 D
(ddpline)! ^; Z9 G/ J: K; v, U. q1 C
)) H( x8 m; m3 G
)' t+ Q k( f' b0 c% E. H. j4 ~3 f
)6 w# Y) r" a! P$ H
)
( c1 f) A) i% x6 t3 j2 ^' O. i D
8 P M6 e0 B' R4 c* o# [
((= etype "SHAPE")
' @5 Y1 }8 }/ D+ u }+ y6 i
(setq help_entry "modify_Shape_dialog")5 z( p, R* I& R8 {0 C0 f
(ddshape)1 ]- I3 U) B7 s, L6 O5 w
)" N: ]4 X7 X, n
((= etype "SOLID")
/ ~4 E+ f$ u& t! K& b, \
(setq help_entry "modify_Solid_dialog")
# H5 W' L, f+ h+ L3 q# L
(ddsolid)# D2 K) \6 V& o' m+ S) w( i
)' U! x) [! d+ q
((= etype "TEXT")
; k( E2 ~0 d5 \: K
(setq help_entry "modify_Text_dialog")% w: D8 X* R) `; p" }1 w
(ddtext)
7 w& j- W$ ^$ v/ _9 H% p: |, L' s% S
)
! \( p8 O! H& t! e
((= etype "MTEXT")( j" S! }3 J3 T+ ^8 a
(setq help_entry "modify_MText_dialog")+ e! k# x( _. @4 {( d
(ddmtext)) w3 E* z9 C8 a9 C4 H" v
)
2 B7 b! i( a: z# G- X6 d
((= etype "TRACE")3 A4 E+ I& k! a9 S' h. _# ^; }8 @
(setq help_entry "modify_Trace_dialog")
9 n3 j! M/ r& S: e4 e5 E- |1 a
(ddsolid)& f/ t: F G$ O4 e/ R
)5 B2 q# t7 t6 k! q
((= etype "VIEWPORT")1 q% l: J) Q* I
(setq help_entry "modify_Viewport_dialog"), W5 R& D! w) T+ I7 `- h
(ddvport)9 i9 M0 g+ V4 [
)
- y/ g/ X: n4 |& T: l6 y# c& m" ^* b+ ?
((= etype "IMAGE")
4 Y( j8 ~" x, }3 L* Z- W
(setq help_entry "modify_Image_dialog")+ R5 c8 j/ C3 G# P; A: I) G1 p
(ddimage)
& ^6 @2 @% _$ Z/ W
)& S1 n3 u# Z! ~. w, u2 y Y6 g9 e
((= etype "3DFACE")# ]) a# m& k1 p+ q8 o! g! k, ^ l
(setq help_entry "modify_3D_Face_dialog")
$ @- q! R/ Q# v
(dd3dface): c* s2 w! ^" I7 W8 l. R
)
6 |- V7 L4 Z4 z0 q# p) F S
((= etype "DIMENSION")
- j# B+ {# Y0 K0 ]% @6 ~" r1 H% q
(setq help_entry "modify_Dimension_dialog")& X" @; s. ]0 L$ L8 d( Z4 Q# @" U
(ddimen)8 b% F# e6 \4 l$ K0 ? c/ d
)3 Y! j5 Z- ?- C1 f+ o3 ^ ?
((= etype "TOLERANCE")9 }9 t4 A( x7 R+ G
(setq help_entry "modify_Tolerance_dialog")
, S2 ?; y; H0 T+ o/ E! J
(ddtolerance)
$ i: S+ K0 h( N
)
. V- e9 v% E: z" X5 P& h
;; Fall-through condition changed by MCAD for MDT 1.1 release.
, G N C. @& F5 @ q: W
;; This allows DDMODIFY to work on any custom object or any new object type- A, t* [+ l' I1 H: c0 V
;; that isn't specifically handled above by calling the more generic DDCHPROP.8 {' Q! I) {2 b0 v6 E
(t
8 h8 n8 N% ~: v& D: c
(if (and (not ddchprop) (not (load "ddchprop" nil)))
& U+ f0 m$ f8 |; J1 u
(princ (strcat "No dialog support for object type: " etype ".")))
& b& |$ M, X# J
(progn2 J- l- O% ?. o( \; ~
(setq tempss (ssadd ename)), n; T5 g5 A: _, h( i% ~7 k
(ddchprop tempss)+ x( w9 b3 ?/ Z$ f; V
(setq tempss nil)
5 _# |3 T$ Z8 X3 J- u5 y
)
?) G+ W L& {% Z5 R6 X/ F
)$ p' N( L# i, b& ]8 T5 h! Q
)
. a! K" J. F3 j/ i$ ^
;; Previous fall-through condition.. x/ y- p/ i8 y, t
;; (t (princ (strcat "No dialog support for object type: "
. Z |- I" ^6 T. @, E) s6 n
;; etype "."! v6 E! z; H. p3 n9 }. c# K" y
;; )9 Y; R8 F! M8 {) ?
;; )
, z2 i/ @9 N z
;; )$ {0 ~) h, o( k8 C
;; )+ n! @" q# h$ o0 Q4 D, s% ?
(ai_undo_pop)4 _: @1 i" c, s( }, q
)
{( |/ t3 g) Q5 \( u+ y
)2 B+ \4 S) u3 \" r- ^6 u& j9 O, P7 L
, P: r2 O% ^. _ ?# K8 b. N
(if (eq new_pickstyle (getvar "PICKSTYLE")) ; if user didn't change pickstyle
9 E! C( e1 n$ X- v
(setvar "PICKSTYLE" old_pickstyle) ; transparently then set it back
) }* f! M l4 s' b6 g; m3 b# a" o
) ; to what we started with
6 E3 O" B/ k5 f( i! g3 Y2 _
p1 r, s1 F7 f( X
(setq *error* old_error): Y! K& b9 i( t" p
(setvar "cmdecho" old_cmd)
. _; h0 b! f1 e- k* Y0 h! A% U
(if (not reset_flag) ; if object was modified, then' h2 z& b8 w( Y7 E* {6 S8 F1 [
(ai_return ename) ; return it's ename to caller4 Z. e0 s; J# @5 M8 }. m
)8 Q( W3 D" j1 V4 S) A) E! d1 T
)
, S' |; W, s+ u. n. n- J& \
5 V& d( e- Z# Q- g
(defun checkForLockedLayer (ename): u! A" ?: i; k. z
(setq layername (cdr (assoc 8 (cdr (entget ename)))))
5 P: a3 q% r- W5 _9 C0 I( y
(setq layerflag (cdr (assoc 70 (tblsearch "LAYER" layername))))
9 L+ H$ Z. c: L5 {1 |6 e+ u
(if (= layerflag 4)6 p1 t, O' J2 h: }
T
$ P/ \' }" x& Y: A! o, v U: s
nil
( |9 a$ K1 M: r9 H' t
)
, A7 P' Y b F1 G! [
)* y; k. A6 ~( p& m x7 M
5 i/ L( I3 L- F2 D$ N* b
(princ " DDMODIFY loaded. ")& n4 s. `& { q }' J+ {
(princ)) H9 Y6 Y( b, ~# z# w' X, d3 L
;;;???;;;---------------------------------------------------------------------------------------
H4 J$ F9 _) A6 Y9 L% y1 y
" w5 T% V5 _! F
; Next available MSG number is 8
; \! |+ ]! C2 {( d
; MODULE_ID DDUCSP_LSP_( E, v$ \4 O& ]2 G6 h
;;;
% @+ y, O# {+ t4 Y4 [, x
;;; dducsp.lsp6 e/ b( u- U+ J% k; c: a) [, b
;;;
1 |* t6 Z0 w Q, u' z5 F6 f; B# b
;;; Copyright 1992, 1994, 1996 by Autodesk, Inc.) s/ a2 L9 Y% o" C
;;;
7 j" P3 I. b! Z0 c' t
;;; Permission to use, copy, modify, and distribute this software
& f/ X& s7 G* M5 z
;;; for any purpose and without fee is hereby granted, provided" |- P( P3 l8 t0 R! q! q
;;; that the above copyright notice appears in all copies and) O1 W. \9 e2 ~2 A7 b! z
;;; that both that copyright notice and the limited warranty and+ S* w; r5 t% c$ X, F3 k
;;; restricted rights notice below appear in all supporting0 H1 V/ Q2 [; J9 v$ i$ Q, r" R
;;; documentation.! `+ v# Z2 q3 e2 Z7 }; m
;;;, z( V# k7 d4 X6 ]4 s/ J
;;; AUTODESK PROVIDES THIS PROGRAM "AS IS" AND WITH ALL FAULTS.3 D# U" n; y3 R$ C: ]& y" \
;;; AUTODESK SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTY OF' i+ D) _, C" }( |8 I
;;; MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE. AUTODESK, INC.& X8 g5 a" c+ j/ ?
;;; DOES NOT WARRANT THAT THE OPERATION OF THE PROGRAM WILL BE; |" T ~: j" @1 T6 |
;;; UNINTERRUPTED OR ERROR FREE.- @2 L: a* x7 @! W' w* K+ L; O
;;;
7 Q! S4 b/ ]1 R7 W# \, M/ m: ]
;;; Use, duplication, or disclosure by the U.S. Government is subject to
2 A( [8 ?. T4 w* x/ f
;;; restrictions set forth in FAR 52.227-19 (Commercial Computer
;;; Software - Restricted Rights) and DFAR 252.227-7013(c)(1)(ii) ! o; E) Y1 T0 A4 C; L5 v
;;; (Rights in Technical Data and Computer Software), as applicable.. R4 ?$ N4 y; x# Z( @
;;;8 a- Y. m i. \& ~8 A
;;;.
q* T2 `' l# N. k
;;; C:DDUCSP - User Coordinate System presets dialogue.
( k! ?6 v' B* m1 }7 r# P) o; \
;;; 3 x2 i! S/ m# [8 c W3 p0 B
;;; Uses DDUCSP.DCL for the dialogue definition. The
/ b7 Q! S$ I% Y2 f
;;; slide images are in ACAD.SLB.
6 O: S1 B0 ~3 a/ d
;;;( s/ g; x. p/ F! ~& h6 c9 A& g7 ?
;;; =========================================================================== g+ r, \6 y% B
;;; ===================== load-time error checking ============================# r2 F1 |- | E8 X/ a+ x( ?; V, g
;;;" _1 ]9 l& J& L
, u% T$ G- Y7 X' z- e7 U$ \/ \
(defun ai_abort (app msg)
2 {& f$ X$ t( J2 [
(defun *error* (s)
/ l, C! Y/ w( }7 n0 Z( c: R5 Z
(if old_error (setq *error* old_error))( O( ?' O F* B: d$ A2 S
(princ)- [% U9 `1 R6 @0 S' E2 u
)
( I- _ A7 O0 g1 a. }4 o
(if msg( K! Q* ^( i0 u! D* d6 J
(alert (strcat " Application error: "6 K8 _+ |9 ]3 a; {$ g4 ~4 a7 N* x
app) y9 N4 q2 C9 @, n) l/ J
" \n\n "
- N1 y0 F$ S& |' c) I* L& g6 t) h ~
msg' r w9 X: f& |. Z* ~, A5 n
" \n"
* E7 a" ?9 N0 _& y
)9 K4 C* M( Z3 G* G2 {2 w
)
9 T3 E6 k1 _1 o, Z4 F- G
)
3 {1 N( j. T. \, i# U8 |
(exit)
1 `0 P r& [4 l$ Z
)
. Z) G% z8 `' b, Z% ?) J
0 @; ^: O- @ z
;;; Check to see if AI_UTILS is loaded, If not, try to find it,% m8 E6 D3 _. {; q0 R
;;; and then try to load it.
% @1 k, x3 I7 E- p; F
;;;3 [& L8 z3 k, b' s/ l( U1 `
;;; If it can't be found or it can't be loaded, then abort the# K- `) @3 t+ s8 z, R
;;; loading of this file immediately, preserving the (autoload)
1 ^1 d% D/ Y; z
;;; stub function.
+ m; \5 O! W3 g" I% ]. o
3 @+ R% ?/ B+ z* L
(cond# d) F$ R. _1 y; Q" W T" t2 x
( (and ai_dcl (listp ai_dcl))) ; it's already loaded.
% ?$ q9 i* W) n
H/ X$ `) b& m5 P4 P
( (not (findfile "ai_utils.lsp")) ; find it# B* B+ L9 I% _" b' P
(ai_abort "DDUCSP"
% s9 s, t4 g7 I. y/ _
(strcat "Can't locate file AI_UTILS.LSP."
/ |) z" E! T8 N& I
"\n Check support directory.")))
0 e, b% e: v3 H, h7 ?2 R% {4 U
7 e# q4 A( \; Z& j! ? F& j6 o6 n
( (eq "failed" (load "ai_utils" "failed")) ; load it
5 ~9 Q3 C) ?1 K/ I1 q
(ai_abort "DDUCSP" "Can't load file AI_UTILS.LSP"))
0 ^3 J" c# Z8 Y: ]$ w7 a/ L
)
4 z, }5 |1 U- W" j7 x& k7 F& e N8 K
4 P7 j. K% J9 s
(if (not (ai_acadapp)) ; defined in AI_UTILS.LSP ~- g, D* W) Z" F% i
(ai_abort "DDUCSP" nil) ; a Nil <msg> supresses
/ x- ~( {! ?" D% i$ O1 u4 }
) ; ai_abort's alert box dialog.: h; g( c6 G6 e9 V
2 L R2 Y% ]* J/ g* e/ ~4 r
;;; ==================== end load-time operations ===========================
3 N8 \, ~, L; m) t/ T! \! v' y
/ \& g' L7 ]9 v2 j
(defun ai_ucsp_start ( / program)
% A$ b6 G( u. ]' H+ t8 z& _8 k3 Y) s- D
;; Get program name4 ]) @, H% g/ v1 W
(if (not (setq program (getvar "program")))
0 P3 U0 g. H9 p# ~
(setq program "acad")
' h; D" K4 P( `- v
)
; j8 @- F* z( H
(foreach v0 '("world" "left" "cview" "top" "front"
' I: m) v* ~0 ^) _! _& |+ g& r* e
"bottom" "back" "right" "prev")8 A! X' B* [! y, [2 ~
(start_image (strcat "ucsp_" v0))3 c+ U; f9 _4 @
(slide_image
4 a- o2 |. V/ _+ b) U" a7 u9 Q% |" v
0 00 h4 n/ G- @. k( ^- i8 K
(- (dimx_tile (strcat "ucsp_" v0)) 1) (- (dimy_tile (strcat "ucsp_" v0)) 1)
2 L: V) X. d# @( n
(strcat program "(u-" v0 ")"), F9 u* o; K- ]
)& J) e0 X, `( O% I+ p9 d& c
(end_image)5 l: u/ u6 N+ J" L' {* P
)
8 ?; P3 N2 }3 { [3 I l. {- ` Q
)
! p( m; U( H$ E; e; R) \& P
( y0 \4 E& X. N- V
(defun ai_ucsp_set ()
# l4 |) S) Z# I) {; P3 {+ M5 j
(if ai_ucsp_sv
6 ?8 O$ G9 Q1 g# b# Q' n. L; q! {
(command "_.UCS" "_V")& x4 Y9 E+ ]' Z, [# a# o+ h
(if ai_ucsp_prevs
& y; c( M# p7 D: p9 b! i* o; x7 R
(command "_.UCS" "_P")
/ i# |5 t5 U; w" c/ R& Z
(if ai_ucsp_chg- y$ C9 Z) T6 ?0 X2 O
(progn4 [9 Z' a# m9 K/ B5 {- B( n! C
(if (/= ai_ucsp_a "*")
(setvar "LASTPOINT" (trans (getvar "UCSORG") 0 1))
6 |! X$ i, k2 H" i9 m0 m
)- y$ P* A8 W V) k
(if (< ai_ucsp_pick 6)
+ N! \. x# V/ `7 [: Q, @ H; g) n
(setq ai_ucsp_set0 "@"). g A4 \0 @0 ^$ ~6 }
(setq ai_ucsp_set0 "*0,0,0" ai_ucsp_a "*")
3 ?$ e5 S. d( M8 W
)
4 |% p9 C8 n# n( P1 X& v! ]
(cond ((= ai_ucsp_pick 0)$ ^; X. q* y9 j7 n+ ?* i/ t" e
(setq ai_ucsp_set1 "0,-1,0"$ w, L7 B' T2 N6 Z/ N
ai_ucsp_set2 "0,0,1"7 M+ o% f* D: o9 w% f! N0 Q
)
" q( r8 W% K) y: C5 Y- w
); ?. ?$ f( j' |
((= ai_ucsp_pick 2)& |6 _8 {- t$ m: j
(setq ai_ucsp_set1 "1,0,0"
c+ L, v9 ^. l7 b# v* i7 v
ai_ucsp_set2 "0,0,1"
( {9 ^8 n' H2 `3 ?0 q
)( k" f' h. L. x/ `7 b: c; m3 N
)# f% s4 y* ?, Z8 y5 x/ \
((= ai_ucsp_pick 3)
* ~) Y" s/ N2 ?8 e' A- V* X7 a9 ]
(setq ai_ucsp_set1 "1,0,0"
- @8 t. D4 j6 _! H6 Z2 J
ai_ucsp_set2 "0,-1,0"8 f3 `* p; P; j$ e( r& }. y
)4 K' n) R, R. l, c
)
, O2 v, I; A5 Z5 B
((= ai_ucsp_pick 4), ^7 r% E, `2 X! O( G4 d( E* W
(setq ai_ucsp_set1 "-1,0,0"1 N, l0 H: `0 L
ai_ucsp_set2 "0,0,1"
x w! O$ J; [4 R) v' D
)% ]0 |; l# Z* N0 J% ?
). q6 _" w2 |$ [9 I
((= ai_ucsp_pick 5)
, s3 |2 a2 C" ?- k% X3 Y7 P2 n
(setq ai_ucsp_set1 "0,1,0"
! l, j2 Z% E: |/ C7 e+ F
ai_ucsp_set2 "0,0,1", q4 m+ D- i) x
)
0 \8 m2 l5 N- Z" ^6 Y. x
) L- \& r4 \8 p; G2 H5 y
(T
. K& w6 a' J5 [ J+ X9 `
(setq ai_ucsp_set1 "1,0,0"- V0 a0 o' Q/ P& {* Z; o7 H' D
ai_ucsp_set2 "0,1,0"
7 a7 t4 _' B$ A; Q) J8 |2 e J
)& } C3 F0 B1 ?
)2 @( ]$ i, g5 [6 b' |7 V; m8 S: V* M
)
0 p. T# A1 s) o! Q0 e, ?: P' ~" I0 D
(command "_.UCS" "_3P" ai_ucsp_set0
8 I- W. F+ A; ^0 x4 y
(strcat ai_ucsp_a ai_ucsp_set1)
9 t2 W( Z9 R ~- G
(strcat ai_ucsp_a ai_ucsp_set2)5 R) l K4 O" c' p0 m! D
)
, m0 B9 q. Q# x7 _& X: v
): I+ a$ V( [# s
)
4 j/ Z) d G" k# w
)* l2 H- D; S. W8 t" c
)7 e$ H9 N7 s+ v, {1 W# r
)% m) J Q/ @( H% {5 m
; V2 r$ q" V" \, T4 b3 ? i
(defun ai_ucsp_p (val currtile)
: ~! p0 I9 P* } @
(mode_tile ai_ucsp_currtile 4)( {( z4 }: Z6 E% v! h. i7 V/ R
(setq ai_ucsp_pick val
8 n% S q% p" S# m, D
ai_ucsp_sv nil8 h* P4 X, J3 J& ^: ? c
ai_ucsp_currtile currtile
8 ^" R/ h) ?9 L% Y; U
)9 ^. |, B# b: o* Z2 ~* L i3 i
(if (/= val 1)
' K- P4 q7 N, V! H, O2 R* [
(setq ai_ucsp_chg T)
+ M7 M* F$ b+ ~+ X" J- D
)9 t/ x7 u# y4 T$ r. C$ M, j
(mode_tile ai_ucsp_currtile 4)
) G( B+ ~1 A2 D2 n6 N
)
; m" }1 T7 X9 K
2 C( ^, r# X; A/ u2 S
(defun ai_ucsp_swcs ()) h& o! D U0 u3 k+ Q% V7 A; H
(mode_tile ai_ucsp_currtile 4)
: I; B1 e+ M, L
(set_tile "ucsp_a_wcs" "1"), e! E( d4 A B% |7 l7 O# f
(setq ai_ucsp_pick 6
5 W' l( n5 |% [ W; l" S `
ai_ucsp_sv nil/ E# f( J2 U! K# _4 h# [/ x# ]1 _
ai_ucsp_currtile "ucsp_world"2 G p& X2 H: F
)/ ]1 d' a* `* F5 @
(if (/= 1 (getvar "WORLDUCS")); ]! D; X3 r/ H/ |& d% b% Z' t
(setq ai_ucsp_chg T)( `; V- K5 P$ }$ x
(setq ai_ucsp_chg nil)0 T% }( H0 N9 m4 I0 q# X
)9 g4 ?% D, ~8 x$ R( U
(mode_tile ai_ucsp_currtile 4)
% I: _0 [# f1 U2 X( j; x5 _
)7 H2 U* h- V9 d2 x8 G: Z6 O/ M
6 m+ S6 Q5 N! x: i5 Q
(defun ai_ucsp_cview ()
) }/ @0 m4 x. T$ t8 d
(mode_tile ai_ucsp_currtile 4)
' M& b0 A% j: z, @
(setq ai_ucsp_sv T
2 F1 N/ r" L! Y; I! i7 q) T
ai_ucsp_chg nil3 S0 W0 V3 q# l% A5 m
ai_ucsp_currtile "ucsp_cview"7 A0 d8 Q R9 s0 F0 @& M
). J0 D! S8 l3 [7 W
(set_tile "ucsp_a_wcs" "1")* |7 r4 J u) t& s, X+ }
(mode_tile ai_ucsp_currtile 4)4 T! r ^8 k) F0 F( B0 d, b
)
1 a6 Q& r+ }: i* R2 P
% [, ^: p& x, |( N( D+ @) t
(defun ai_ucsp_rucs (typ); j0 Z9 s+ @' Q: a* p! \" W* T% A# _2 I
(setq ai_ucsp_a typ): L* A: x; v% N0 g9 c {
(mode_tile ai_ucsp_currtile 2)8 s0 _2 ^# b" H
)
# q' x/ v7 B) `2 j
& v& C) J3 D. ~+ n5 `/ x( Y$ G
(defun ai_ucsp_prev ()
: j' c- a5 v: D3 P A* n
(mode_tile ai_ucsp_currtile 4)
/ j) d3 r- B0 C/ p; F7 f; L
(setq ai_ucsp_prevs T
" R# x1 E& W0 M7 r& z( t
ai_ucsp_currtile "ucsp_prev"
: C U; S& X* N# C; v2 W3 J& j
)6 ?( M( h0 U0 Q" B. T+ G9 x1 o* |
(mode_tile ai_ucsp_currtile 4)* X$ l1 F8 C5 h- o$ Z) A( G* S
)
. Q0 b9 z6 r t
1 e2 c1 |. |; U5 U9 G
(defun ai_ucsp_main ( / ai_ucsp_pick ai_ucsp_sv globals)
8 u e0 l6 v! A( X5 L) s
(if (not (new_dialog "dducsp" dcl_id))7 n+ ~' D9 c- m- H$ l2 e
(exit)
& @% f+ m" _- N
)) g4 ^2 l& A' I4 V
3 a% m; i2 O2 g4 b7 l# D
(ai_ucsp_start)
3 q4 M, ^/ U9 P! |
(setq ai_ucsp_a "@"
S( x' Y9 ^# S( k. M7 _
ai_ucsp_pick 2
3 K; M L- h3 o, p. }
ai_ucsp_currtile "ucsp_top"! P$ s( v3 m- r3 s1 f# A: n. z$ M4 i
)
5 A3 M" E5 `9 I' l$ k
(if (= 1 (getvar "WORLDUCS"))
! K+ D4 O) ]( I
(progn+ _, d5 h1 v$ S) K N. c
(set_tile "ucsp_a_wcs" "1")# ] g7 F. j8 m# }6 n. a
(setq ai_ucsp_currtile "ucsp_world")
! ?& a7 I0 G$ ]' {
)
9 ^2 o7 ?! y/ t( t# q& ~
(set_tile "ucsp_r_ucs" "1")
% `' n( r! Y! o* \1 o
)4 p; n+ ]9 e3 O
(mode_tile ai_ucsp_currtile 2)! n% @6 S. d/ G& m# `3 P
(mode_tile ai_ucsp_currtile 4). u2 w; t3 y2 x& A
(action_tile "ucsp_world" "(ai_ucsp_swcs)")
! _# w. g8 N5 c. x7 D: I# S
(action_tile "ucsp_cview" "(ai_ucsp_cview)")
4 N2 K7 p" U2 K# ]: Q$ r) r w5 z
(action_tile "ucsp_left" "(ai_ucsp_p 0 $key)")
(action_tile "ucsp_top" "(ai_ucsp_p 1 $key)")9 o: e7 j# I8 }+ X$ }! a1 d& A0 X
(action_tile "ucsp_front" "(ai_ucsp_p 2 $key)")+ O( A2 z. @% L; M
(action_tile "ucsp_bottom" "(ai_ucsp_p 3 $key)")
. ~. o- w: Q/ J* s5 A( M8 ^/ b0 }
(action_tile "ucsp_back" "(ai_ucsp_p 4 $key)")
/ j. T/ N) P! N8 x" O' P+ [, r: Q- p
(action_tile "ucsp_right" "(ai_ucsp_p 5 $key)"), u/ B2 F! {" p! M7 a
(action_tile "ucsp_prev" "(ai_ucsp_prev)")1 |1 ?- H+ g' [, b+ q. G
(action_tile "ucsp_r_ucs" "(ai_ucsp_rucs \"@\")")1 E1 r/ f4 l# }5 ?9 N) c" K6 X
(action_tile "ucsp_a_wcs" "(ai_ucsp_rucs \"*\")")
! z5 s/ f2 m. U- b) M. o* ?: Q
(action_tile "accept" "(done_dialog 1)")7 n4 V! c; f9 X
(action_tile "cancel" "(done_dialog 0)")2 b; J, J7 F' ]7 [, q
(action_tile "help" "(help \"\" \"DDUCSP\")")) |9 ^; z+ e3 w0 `- c& B S
(if (= (start_dialog) 1)
& N4 N% x7 ~+ u$ O3 @1 _
(ai_ucsp_set)
: Z _& {* j. H n* M- X' ^
)
6 ]% p: [4 ?. @6 U6 b
)4 b Q' ^, c6 a" h# y
- [* v! k* Q" P o6 T* V* N+ I
(defun c:UUS ( / app dcl_id old_cmd old_osmode ai_ucsp_prevs
1 e3 {4 f! P! y7 @: I" n9 t3 z
ai_ucsp_sw undo_init)/ d7 X4 w7 d" x5 T4 e
. d7 n- |2 J, ]* T! l
;; Set up error function.8 _, [! z$ X& Q! Z! m% w
(setq old_cmd (getvar "CMDECHO") ; save current setting of cmdecho
; n; T$ v- l3 m+ V8 b5 i7 ^
old_error *error* ; save current error function
$ u! j6 B9 h3 |+ a
*error* ai_error ; new error function
( }# s& |5 \9 i3 [, P z! Q
old_osmode (getvar "OSMODE") ; disable OSNAP for duration
6 u9 n8 a O; e
)
4 w9 B/ r$ f' W
8 W. j( }4 ^$ l( F4 {
(setvar "CMDECHO" 0)
3 g$ ~* d% l' O, B8 y5 _% b
0 i' ]% Y( S4 U6 v3 U K
(cond
- N6 q6 |( D! I
( (not (ai_notrans))) ; transparent not OK* A7 W) o8 f: T6 a8 F) u
( (not (ai_acadapp))) ; ACADAPP.EXP xloaded?
: B0 A5 ^- ?2 \5 r4 X
( (not (setq dcl_id (ai_dcl "dducsp")))) ; is .DCL file loaded?" U9 z. j$ {# S: P3 q
(T (ai_undo_push)
1 j! ^2 l5 B% k
(setvar "OSMODE" 0)$ g% ] t( e- d* Y
(ai_ucsp_main)
- e3 n2 ]" z2 z1 y8 g
(setvar "OSMODE" old_osmode)( U9 k! q' c# M$ a o1 B
(ai_undo_pop)! Z# I% ^/ U( t+ h
)
) f2 h( Q, ?" @
)+ d: `: t/ `4 H# }; N) y: E
, E( a+ K t% |3 d$ ~- n6 y3 D4 k
(setq *error* old_error) - ]% \5 H4 ~* @" q& K
(setvar "cmdecho" old_cmd), j) c* X! X8 i" C$ k3 E9 E
7 k) ~/ B: J* E
(princ)
. L/ w7 ]1 o4 g b6 W1 _; f. w9 ?
)
$ ~, |7 n; C1 a% X" c
# o8 d# P; ^1 z) v6 r) R) Q" s
(princ " DDUCSP loaded. ")1 C) q. |7 B, V$ N6 k
(princ) v( D8 @( p) y# c
; y# n- m# l2 d' }0 }/ Y
;;;???;;;---------------------------------------------------------------------------------------) f0 r3 l9 U9 m% c3 m
2 c; L6 o2 |' o7 h }+ f% O
;;;----------------------------------------------------------------------------
# `" [* i3 z1 A1 Q/ J
;;;& J6 w. ^" \+ z
;;; EXCHPROP.LSP ; k) L2 L8 d2 z4 A: k5 O, ~
;;; Polyline and text modification capabilities added by ) I1 O: T6 Z: i/ X9 h3 B0 h
;;; Randy Kintzley
; J( M. l M/ k& I) j2 L
;;; 4 i' N# y$ x2 l$ ] j/ F
;;; Copyright (C) 1997 by Autodesk, Inc.
; F N$ s S: u; ^ V. U
;;;) k9 W- C' Y! s0 S6 y: T4 P
;;; Permission to use, copy, modify, and distribute this software- \; L& C5 v" r* K' t# ~
;;; for any purpose and without fee is hereby granted, provided( B! g4 z) G3 N+ G( } f* |+ e4 Q
;;; that the above copyright notice appears in all copies and
0 R/ l6 {3 v' ]- V% `" d
;;; that both that copyright notice and the limited warranty and* Q9 @( J# N) D6 [7 {: @8 q. o/ ?' }7 @
;;; restricted rights notice below appear in all supporting
0 k, G. X0 @" H' D& I2 a5 Y: z
;;; documentation.
- o0 m; y8 d3 h6 `; z% M! Z8 u' Z
;;;0 W" N- C+ g6 O( Y
;;; AUTODESK PROVIDES THIS PROGRAM "AS IS" AND WITH ALL FAULTS. Z. x5 j1 x" O& o; ?
;;; AUTODESK SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTY OF
" }2 x& Q' {* |2 T4 {9 r" y! i9 M
;;; MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE. AUTODESK, INC.
6 k7 m* E6 @$ i7 ^6 x
;;; DOES NOT WARRANT THAT THE OPERATION OF THE PROGRAM WILL BE
8 k' C3 O6 X' e7 D
;;; UNINTERRUPTED OR ERROR FREE.
* I. V# s; T$ @0 v4 C9 F0 D" [
;;;
( |# h9 b, m" W; n8 A
;;; Use, duplication, or disclosure by the U.S. Government is subject to' o1 t" | n, V- H- }
;;; restrictions set forth in FAR 52.227-19 (Commercial Computer6 M" @5 r/ ~3 @/ {6 e
;;; Software - Restricted Rights) and DFAR 252.227-7013(c)(1)(ii). D; ?7 ?2 L' B( \) Y! \- l
;;; (Rights in Technical Data and Computer Software), as applicable.
~$ I9 l+ \7 o! D! w7 H* w& h
;;;. \+ }4 f! V# B! M5 j$ W
;;;.
. G3 o) A4 S' M# z0 _0 ]; Z
;;; 28 February 1997
3 J# I* k" z1 q& ~7 t/ @3 T0 _
;;; S' N/ X# ]1 G8 d+ }
;;;8 M# w: G. C' \* \/ ?9 r/ Z8 H
;;;----------------------------------------------------------------------------; D$ a& v" {! }) ^
;;; DESCRIPTION
3 G4 B+ Y+ R% {- @4 x
;;;----------------------------------------------------------------------------
. v$ v! N5 F% a7 G( Y
;;; C:EXCHPROP is an extended or enhanced version of ddchprop. This 2 R( w ~6 y% L# V5 I7 q, p# u8 _
;;; command gives the user the abilitie to change several characteristics
|( R" k( N0 }3 E8 J3 e* g
;;; of selected polyline and text objects.
( B+ y$ n8 f1 X4 D' N! k6 @
;;; The style and height of selectected text objects can be modified 7 W( A$ s4 B) P. Z, P7 l
;;; (including text, mtext and attribute definitions) as well as, width and 8 e3 A# d/ n5 M1 L5 C! ?$ P" D, z
;;; elevation characteristics of selected polylines (includes lightweight and * z+ W( w6 D( m; V
;;; traditional polylines.)
5 \/ e' m) {% r9 m" X h
;;;----------------------------------------------------------------------------: t6 m4 s+ w( \9 j# J$ S* V
;;;----------------------------------------------------------------------------) [# Z c3 ~5 d' M
;;; Prefixes in command and keyword strings:. y/ K# u' Y) t1 Z: N3 F
;;; "." specifies the built-in AutoCAD command in case it has been
4 [+ B6 `5 Z# r* |2 r7 U @
;;; redefined.
9 ^! Y( |! O4 e* l
;;; "_" denotes an AutoCAD command or keyword in the native language, m, Q5 i' Q' f
;;; version, English.
+ v$ ~$ L. n" F7 g
;;;----------------------------------------------------------------------------, h4 M2 ~7 P) y [( j/ I) ]
;;;5 }' i0 r9 x2 L |; v+ W! b, ^$ P' X
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
4 s# F- G2 K" y0 {8 l
;;;;;;;;;;;;;;;;;;;;;;;;;;;;GLOBAL INFO.;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
/ G4 i& x5 g0 Q! e& S
;Functions created as result of loading file: exchprop.lsp
( Q5 y! k2 _/ Z2 G$ Q
; DDCHPROP25 a2 A5 W% O* B* G3 Z4 F
; DDCHPROP2_INIT
1 ~- n# x0 F, a: a4 T+ e, r6 A
; DDCHPROP2_SELECT
) V+ F5 @* V: q' L h, ~
;
2 U7 y( F/ x8 @4 e% ]( M
;Variables created as result of loading file: exchprop.lsp4 D4 L& l# p; [3 a4 u) I
; OLD_ALLOC$ |( U8 f9 _% }- F1 [5 O7 y
; V) H9 y4 S) m( D; Q
;Functions created as a result of executing the commands in: exchprop.lsp
5 L9 r! S: C9 ~- `1 c
;
0 X" p6 [5 `1 E+ W/ O( f* u( X
;Variables created as a result of executing the commands in: exchprop.lsp; L7 H0 P6 m3 K3 P/ F
; AI_SELTYPE, v, ~/ n& ~8 g0 Z. J6 A: t
; BONUS_ALIVE3 V3 w1 |) e' S! `1 v! E( m# ? E
; BONUS_OLD_ERROR# h! _' Z) g& ~: f
;;;;;;;;;;;;;;;;;;;;;;;;;;;;GLOBAL INFO.;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;# C6 ], q* A: {6 S2 u ?8 ]- R/ _+ ?
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
q/ S$ [; J& g! Z9 j. }
" P, D' V: j& r
;;;6 b( Z" O( n) E' q) O2 X( [
;;; Avoid (gc)s on load to improve load time.3 x4 m! Y/ E- \8 d6 [; X
;;;
" A/ U2 Q R( F" s0 B6 u' l3 O
(defun do_alloc (/ old_allod new_alloc) r+ W" U2 n9 {* T
(setq old_alloc (alloc 2000) new_alloc (alloc 2000))- E" d( w4 F0 x, |) T
(expand (1+ (/ 4750 new_alloc)))
?6 w s/ C! h) i# d3 O
(alloc old_alloc)
2 H* |4 V; ]. [9 i
);defun0 }6 ^; }, F+ `2 v2 P ]3 H8 a
) P8 I0 U& ^$ G, V7 U0 A0 W
;runs at load time - rk6 q2 L7 c! {( V& n" R) N7 d
(do_alloc)
4 L: x- x. i/ k2 Z) S# m; w" x' y
(setq do_alloc nil)5 x. I& B; b7 B1 ]/ l( i6 G
;;;
4 p8 a! P1 k T5 _! S
;;; ===========================================================================& J% }6 x+ U# ?6 }; p4 c9 b4 y2 ?4 J
;;; ===================== load-time error checking ============================
5 [- k$ ^, h5 ~5 f
;;;
; b( H; a/ d0 {+ \+ F
2 }! m1 n _0 J c
(defun ai_abort (app msg) + d, T3 W, @( g5 d6 J" _
(defun *error* (s)0 T- u( w3 J& b l j. Y2 `
(if old_error (setq *error* old_error))0 Y7 l6 {& z m2 Y2 E
(princ)- h! y- m/ r" e# V
);defun% U0 l$ |9 k1 ~' K, Y3 I
(if msg Q) f1 e% ~7 z) W. g# U
(alert (strcat " Application error: "4 G& g$ x8 \. z8 B! f6 ~3 g; j
app% Z' l6 @$ o$ h& U- Z e/ Z
" \n\n ": n" B/ N! u8 z$ m
msg, s4 u" @1 w0 _, h& H
" \n"
& [9 Z5 M4 B# x% u& Z
)
1 H+ R3 [! \5 _
);alert
( i, Y- A( R/ d; y0 \* Z4 R0 U
);if
5 F8 o9 O; y( u- x
;(*error* msg) i b* p5 G4 C9 \+ `/ t. }/ {7 t
(exit), ]* B6 w: N0 Q$ e* O/ G
);defun ai_abort% c+ @ G4 @: H4 d
) `9 Y5 J4 [ `) v
;runs at load time - rk
3 }4 o) h7 e, a8 H
;(if (and *error* ;added the if wrapper around this - rk.- q9 R3 s- i' \9 A
; (not old_error)
6 r- q4 C1 i; [6 h
; );and : \8 o0 P% X/ M) y9 O
; (setq old_error *error*);setq
* w% k8 a2 W+ E/ G0 [5 R/ I
;);if
! O- D- ?8 O% _ I7 ]
& k& A8 J, ^* |3 A6 [! n
/ \) c4 q, K$ a! {8 [2 e4 L6 G+ m2 m
;;; Check to see if AI_UTILS is loaded, If not, try to find it,
# p" \) T! U7 A0 b
;;; and then try to load it. f0 ]7 n" h4 E$ t# ?# l
;;;
: o6 ]/ P$ o8 P2 [5 \
;;; If it can't be found or it can't be loaded, then abort the
7 j' Q; e. u! r4 P D* D8 s
;;; loading of this file immediately, preserving the (autoload)
) n" \+ U' F* W4 E4 L2 b7 V0 x
;;; stub function.
/ }- b- d/ A% S+ r* a
' s# J, `! s p" v, g% ?0 Z
;runs at load time - rk.
5 o+ } D. O4 `/ I% z, _! W
(cond
3 f! h. S5 H/ E/ j: ~) v- }
( (and ai_dcl (listp ai_dcl))) ; it's already loaded.- I0 f y1 z! }* o/ r
( (not (findfile "ai_utils.lsp")) ; find it
$ m2 [: Q1 z. s$ h( l( D- S6 G
(ai_abort "EXCHPROP"
) k; d. q D8 P4 T/ y8 w: w
(strcat "Can't locate file AI_UTILS.LSP.", ?& i( @' _2 ?; [5 H" R' A
"\n Check support directory.")
6 n3 G5 Z! i, ]6 f$ ?
);ai_abort
; N3 [: ^& v! c3 u6 s2 s. {3 K
)" @1 C6 p# N/ L
( (eq "failed" (load "ai_utils" "failed")) ; load it0 C, \, m2 }4 b
(ai_abort "EXCHPROP" "Can't load file AI_UTILS.LSP")7 |/ m. [5 v( h5 ~3 p6 [& [
)
; V$ B0 k8 n: f1 E- i: w2 @
);cond close
" x- a" l2 v& [3 v' J2 I% k0 l
4 ^! T. G8 M ^5 s% M N; t
(if (not (ai_acadapp)) ; defined in AI_UTILS.LSP* z+ f1 r. x$ X& `, m, [
(ai_abort "EXCHPROP" nil) ; a Nil <msg> supresses7 q N$ v! Q0 O9 [8 u& J5 f8 E0 p' @
);if ; ai_abort's alert box dialog.
8 z+ I! K& E( {
" z' d& Z4 [' A
;;; ==================== end load-time operations ===========================% B+ H1 V; h1 r- W
# L# [; X4 w9 N$ C" s% j
;;; Initialize program subroutines and variables.( L, z4 L, L; U, z/ l
9 v) E( J2 s* Y/ L
(defun ddchprop2_init()
}8 _6 m! s G( o0 Y
6 f% I. a3 ?- G1 a9 l1 f
2 e7 \' f4 O+ q& M
. }( N! T- r1 D* t5 v: b
;;
; a5 `& o: y9 Q
;; Define buttons and set values in CHPROP dialogue box
: z5 t+ d& o9 a# u3 U9 d; d
;;
1 e4 K: @5 Y$ ?
(defun call_chp2 (/ cmdact p1 p2)! B! M6 X2 _8 Q* Z& x8 n9 D
: j3 l. r/ A5 Q! I
(if (not (new_dialog "ch_prop" dcl_id)) 6 g& ~: i# I. n9 p" u9 i/ \
(exit)$ T. F; F4 Z c
)# Z% ^ `' ^& o. }( K
$ R# }; s+ K& v: J
(set_tile "error" "")
6 a9 l& \- i6 K& F& a. u* y
;; Set initial dialogue tile values
. Q' [4 Q& G" z. y- [, O
(set_col_tile)3 v+ T5 L1 T* U' V1 s8 L
(set_tile "t_layer" elayer)
1 ]0 E. l! K9 m9 N$ H, z. O
- O/ i. N1 P% j3 @& i- }/ G
(cond5 w5 O2 w) U2 g. _ [( c
((= lt-idx nil)& g6 ?& B) j- s2 A
(set_tile "t_ltype" "Varies"). K+ w0 N5 Y, G1 L2 v, r/ U
)
7 L4 v; Y( x1 D( @+ f& r1 u1 q
((= lt-idx 0) ; set tile "By layer & layer linetype"
9 M) ^; d% a6 H3 I1 p$ D! J8 t7 B
(set_tile "t_ltype" (bylayer_lt))7 G8 l: ?' u2 ~9 S" p! n. \; c
)7 E( L! b" J/ l0 S: m0 h
(T, Y3 }+ ^+ g& u" z+ E. p
(set_tile "t_ltype" (nth lt-idx ltnmlst))6 e7 B* H, X! T+ O# \9 {! }# n
)
) F! ?5 X- K. F! w; x5 b5 u
)' ?% U( p9 s: c/ l3 d3 z) t
+ R+ p0 V% \' a/ f8 b
(if (or (= ethickness nil)
- x* l! g5 X, N9 Q7 Z# x
(= ethickness "")
( N" A* A& C! K2 H
(= ethickness "Varies") 8 P$ d" Q! x' U! `& g
);or' `8 _* @! m' W% c% w* o* s& y8 Y
(set_tile "eb_thickness" "")/ |; e. O3 K+ Y5 n5 F
(set_tile "eb_thickness" (ai_rtos ethickness))
8 i0 r8 |+ O. e1 F6 s7 L) |
);if% Q$ A# K f9 c6 F/ ~" C5 S
(if (or (= eltscale nil)! U; x- m: f9 ~. e" {/ G' ]
(= eltscale "")
! @- b, T& n1 }" d
(= eltscale "Varies"): k9 M# ?1 e/ l& x2 k7 \" X
& u1 Y: `0 `+ I
)
# D# h* S M+ s f
(set_tile "eb_ltscale" "")
* @2 j: q3 }5 [
(set_tile "eb_ltscale" (ai_rtos eltscale))& c4 D8 S6 h; n8 k$ Q# \- z+ k
)
0 R' w6 ~. v8 {8 y
(if
6 O# ~" Z7 H/ H3 Z' c: p
(numberp ewidth)5 B4 P0 R; A4 m& o5 T
(set_tile "poly_wid" (ai_rtos ewidth))
1 R; ?# }% u# E4 h, W% R
(set_tile "poly_wid" ewidth)
2 Y) [( M$ p0 K
)' {. s# O) ^& M2 _" Y
(if( F- G$ `- e, C/ A
(numberp eelevation)
: _1 V0 |2 K' w0 [8 T
(set_tile "poly_elev" (ai_rtos eelevation))
& M& V3 y( k/ `1 N }
(set_tile "poly_elev" eelevation)
2 Q9 R+ ~$ W4 I
)$ Y5 m- G5 [/ @% {/ b* w7 V
(if
/ C0 t C/ q+ h
(numberp eheight)) ^/ d# _4 Z' \0 U' P e, E$ Q( I7 u
(set_tile "text_hgt" (ai_rtos eheight))$ i* w+ |& R" |9 L8 q, R
(set_tile "text_hgt" eheight)5 k8 d1 G T# x& `8 b ]# _
)
X5 V, @4 J! y& F8 ]5 S0 O
(if (not estyle)" P% W& M0 C7 s* x, h; \, B
(setq estyle "")
% L& W1 L" z5 I& b( ?
);if
2 ]5 H# i3 ~0 M/ O, P
(setq hair_style_list (tnlist '("style" 16)));setq
+ e* t* |0 M" a# g# \* `
(if (not (member estyle hair_style_list))$ H" k( ]$ C n" k1 p, K
(setq hair_style_list (append hair_style_list (list estyle)));setq" E; E3 [, w0 O
);if , _) r: g* T' b; g. g& Y
# d( k: B- U0 W% g8 c x8 j% B
(setq hair_style_list (acad_strlsort hair_style_list));setq
" b& \, J, ~* X* N6 _
(mpoplst "text_style" hair_style_list)1 O$ {5 g; r+ l2 {
(set_tile "text_style" 2 o5 h# F, z6 }/ h. N
(itoa (position estyle hair_style_list))
* E+ }5 o; O, V' S2 y6 J. H) K0 o) p- \
);set_tile
# E0 w- X. P. _2 u- ~& ]
- M& m, J" j% H. ^9 a* u
;; Disable tiles if need be... ;@RK: \: L8 n$ z8 S
(setq a 0). @0 F/ c- b1 R+ H9 \2 { C
(while ( < a (sslength ss))
" a( c% c/ |5 x1 G
(setq which_tiles4 m& w/ R3 N; ?# @& v
(ai_common_state (cdr (assoc '0 (entget (ssname ss a))))))2 z4 f* w2 x* p* n
1 E& h7 g: R' E0 f5 O
;; If all fields are enabled, don't bother checking anymore.
- p6 h- \, X q) p( z% c
(if (/= which_tiles (logior 1 2 4 8 16))1 g7 n+ W2 g6 b( n
(setq a (1+ a)) ~" G0 T5 ?4 {: }! E3 c4 @
(setq a (sslength ss)): {0 Q& c% a5 f, u: R1 i4 ], b
)! H7 `% J. k; P- i7 p# n
)# W% G: y% m n d/ ~
;; Layer Button and Text Field
: e# B6 o1 }9 C4 [% i" T' Y) Q
' M4 H1 N- O2 F0 U% F
(if (/= 1 (logand 1 which_tiles))
7 L, o/ W! m0 [
(progn
) W' W7 L- ]. D# r; M
(mode_tile "t_layer" 1)
' u3 i+ n% e& c' s7 N
(mode_tile "b_name" 1)8 T' a5 c' t6 V; U! T0 ^9 S
)1 ?- i) C5 @: ^/ b; o+ e
)
6 f9 i# N- `' x, t) D$ m4 I
3 l( i' @) z7 i3 U
;; Color Button and Text Field2 e* U. w* a2 Q+ {! b8 u
(if (/= 2 (logand 2 which_tiles))% E6 p7 v5 r2 g: c! F9 k
(progn( k2 l- Q5 x& m) T% K4 E
(mode_tile "t_color" 1)
4 x; Q6 `0 |+ ~
(mode_tile "b_color" 1)
7 E* o( ^ T, @9 q; B
(mode_tile "show_image" 1)
0 Z" e2 h3 Z- f7 w: b
)
% `9 r+ r# R( O- l! [
)
% X% M' ]- S4 x
;; Linetype Button and Text Field* F: x0 p; x( n% B1 P
(if (/= 4 (logand 4 which_tiles))
8 Z" [. Y4 M- S9 ?2 I+ ^0 j1 x
(progn
( Y! F+ F% I8 B) Q" [+ H
(mode_tile "t_ltype" 1)
! Q& P7 F, w4 K$ u0 l4 z: |9 ?
(mode_tile "b_line" 1)0 x( s1 N$ a$ |$ p5 W
)6 R s- M& f5 J& o# k, G8 r q
)
4 m% v. l7 l M& g/ u
;; Linetype Scale Edit Field; c' V; ^: {7 c% @) n6 U- Z% C
(if (/= 8 (logand 8 which_tiles))( [" M% j7 A' l/ q; ]# J1 @# K
(progn4 J2 k7 y; \" R
(mode_tile "eb_ltscale" 1)& Y" v- p$ p( `/ `: u
)
D$ b& ~$ y: o
)! q4 D2 Q7 U# C* Z B/ E* k
;; Thickness Edit Field., h2 m% d# k, U7 I9 I
(if (/= 16 (logand 16 which_tiles))
1 }5 R% n4 O' p2 x" ?
(progn- r) Y) T& E" Q: G: V
(mode_tile "eb_thickness" 1)
/ T. H# {$ q) l& U& \
)
2 S) y. ]: }( r- k" E d& n
)% O& H. U2 X+ ~4 ~
$ g/ n8 d* s/ M5 |3 c/ j0 ?
;; Polyline box and tiles @rk 10:05 AM 1/30/97
! b5 `2 q% r, v: P( @2 R0 _# R
(if (not (= 2 (logand 2 eflag)))
]! ?4 y, W. V2 N, {
(progn `7 q4 J& B9 s. q4 L' e. d8 f' A
(mode_tile "text_hgt" 1)
# L8 K$ ` q# u* \- O
(mode_tile "text_style" 1)
);progn
" y4 F4 X, y8 _* b4 w$ q
);if$ k1 W9 g7 M% j( k$ \
(if (not (= 1 (logand 1 eflag)))& @* v2 f- u4 T# j' s0 w% T3 m
(progn b/ Q! R, N5 O& L2 Q1 ~
(mode_tile "poly_wid" 1)
$ a( N& r- h+ D- U- q7 ]' |
(mode_tile "poly_elev" 1)
! i8 v/ K) w1 ]4 q0 h8 U ~
);progn then disable polyline fields
# [& `; I# h$ p9 p9 q6 M3 X: m9 f+ c
);if
) X5 g3 P2 p! m
; p4 v. i' \1 f! M
;; Define action for tiles' P) U9 Q) f C' l* K4 O. B
(action_tile "b_color" "(setq ecolor (getcolor))")( L6 _5 v2 m |5 f' f
(action_tile "show_image" "(setq ecolor (getcolor))"): Y" F& ~2 Y4 I; B/ ~' z. G- S1 h
(action_tile "b_name" "(setq elayer (getlayer))")- F% C: B3 Q% k9 s1 _0 j1 i
(action_tile "b_line" "(setq eltype (getltype))")6 k8 C2 _ ~7 N+ W+ A
(action_tile "eb_ltscale" "(getscale $value)")
: d; _0 T& y- z8 h# q6 [2 L
(action_tile "eb_thickness" "(getthickness $value)")
4 C: Y6 j) A g: C" I* W7 \
(action_tile "poly_wid" "(getwidth $value)")* h( v6 z% _ @# \$ x
(action_tile "poly_elev" "(getelevation $value)")
8 O9 J- ~1 p) D1 A
(action_tile "text_hgt" "(getheight $value)")" Y3 F/ V* j& J: r) J
(action_tile "text_style" "(getstyle $value hair_style_list)")
& \7 c. a' \. D4 v4 X) Q
(action_tile "help" "(help \"AC_BONUS.HLP\" \"EXCHPROP\")")
' O& g4 q2 K2 e3 e
(action_tile "accept" "(test-main-ok)"). ~$ O9 }4 \+ s) c. \$ ^, j* ?
# ^1 c3 Q5 _. Y) E# h1 F7 b
(if (= (start_dialog) 1)6 q+ s7 t5 O. j
(progn
: G; z2 S/ J5 N" E
; Update special properties for polyline and text selection-sets.
6 G. e& {5 p/ ~$ C! ?5 E$ h
5 F/ `3 D6 q' a4 _; m
(if (and (= 1 (logand 1 eflag)) ; polylines rk chprop, S" X' K3 b% t% x( o
(or ewidth+ s% a& c! `. p2 Z' z7 C- K# Q
eelevation# t6 P/ C8 h. \: I8 y
);or% o' V X& z! t# P% w& Y4 R
);and( {% p2 J! ]3 l4 n! l, [( F- }
(progn
4 H2 g1 }& c3 |. |
(setq ss-index 0
/ a3 c3 |4 Y* v! j
ss-length (sslength poly_ss)
( q- h/ ^/ `6 _" _# Y/ X
);setq
0 N# [/ E/ q0 e& @- L& O
(while (< ss-index ss-length)- r; X; A" L; n0 P0 V1 x
(setq ename (ssname poly_ss ss-index)
1 b( a& K: R1 M( o
elist (entget ename)
. \) [. d: X6 [3 y$ X- c
);setq. }6 P, W. H: ?% q0 o
(ucs_2_ent (cdr (assoc 210 elist)));this function lives in ac_bonus.lsp* O1 N: f: f/ b2 u7 r3 G
(if ewidth
H3 F: c" ?1 S1 i, w" W
(command "_.pedit" ename "_W" ewidth "_x")% a6 Z3 ?# E$ K# [
);if 7 L% S! h- m8 `$ T2 ^3 x9 J
(if eelevation
: T6 T$ i6 N A4 S8 O: ]3 S
(progn
" f9 o0 A/ L' H/ V. J* X* _
(setq p2 (list 0.0 0.0 eelevation));setq- Q+ ^3 n N) ^: ]
(if (equal (cdr (assoc 0 elist)) "POLYLINE")! R" V9 s; V, {- T2 |" v" I
(setq p1 (list 0.0 0.0 t% o# Z% s# r! L* c
(caddr (cdr (assoc 10 elist))); R0 [) A3 w- J# ~: w7 p
);list
" I" X, b2 w1 |0 e% {0 A7 E( \ q
);setq
' i0 d$ z+ q. x" l: d1 _9 @ W
(progn
) i, \% @8 L2 i3 r8 J' i5 Z5 k
(if (assoc 38 elist)9 U9 O" d2 A) A" P
(setq p1 (list 0.0 0.0
+ S" Y. \: R+ s& ^
(cdr (assoc 38 elist))
3 J# ]0 K- X V- b4 X
);list
' v; s! J4 x/ H/ N8 A- \
);setq6 [+ X/ q7 T* s0 S! P
(setq p1 '(0.0 0.0 0.0))- p, c( T2 \6 c5 x$ n
);if6 s: w% l9 ~8 e; n; B" c+ G( [
);progn ) ?7 j7 K1 [ W
);if
6 U4 E7 G" k! y+ O* h
(command "_.move" ename "" p1 p2)
: G' t! n& t: u( a
);progn then change the elevation of the polyline
) a' F, h7 i9 q* P( |8 f
);if& m/ R" @/ {$ U5 p$ j
(command "_.ucs" "_p")+ _! b8 V. A6 t! F y6 a" A5 y
(setq ss-index (1+ ss-index))6 [5 v; r9 x$ {. _/ y6 k5 x1 K
);while
/ a6 p! P) _1 o2 n4 g; L2 ^+ h0 l( {
);progn then polylines are in the selset
) v7 q1 R" D! _; x6 p$ J4 g
);if/ z U w3 |7 V3 w4 T
(if (and (= 2 (logand 2 eflag)) ; text4 `! h) s+ k& j$ ]. t" N6 H2 x& w/ w
(or eheight
* ~9 ^' b% ^# G( U
estyle8 Y6 T7 C% n" b% c8 C6 }; m
);or
! \! d2 V: r5 V( B
);and( l2 l" J! I w0 @, P
(progn9 `* {* D) g! g4 v% h8 k
(setq ss-index 0 ss-length (sslength txt_ss))5 H8 A& R: c5 d h
(while
8 c; X6 O# ^. }+ p8 j3 b8 g
(< ss-index ss-length)* {1 f" I, n& g
(setq elist (entget (setq ename (ssname txt_ss ss-index))))- A- {5 G: E0 D5 |5 T
(if (numberp eheight)
s5 {8 b9 i$ `6 A, Q- k% } q
(setq elist (subst (cons 40 eheight)/ ~; p* k+ Q! p3 n7 J$ E1 ~& V5 @
(assoc 40 elist)
2 H7 {* S/ C& J) i
elist
& P+ a% |4 @6 a/ Y! A3 |
);subst7 U) q- ^5 G/ v' Q m2 B
);setq7 p9 r. K& e/ q$ H* G
);if! Q+ j# ?* W. {
(if (and estyle ;(not (equal estyle ""))/ e9 M) k! k+ ^' }- S
(not (equal estyle (cdr (assoc 7 elist))))
' Z# B* A E0 X' ?
);and9 o$ f, O' |- f' l7 W$ i0 Y; E
(progn 0 Q' M% p7 s; E6 s% B2 p$ D
;rk. This needs to be implemented as per mtext font issue in ; ddchprop_notes.txt : C* |2 C7 O5 T# u" H
;(if (equal "MTEXT" (cdr (assoc 0 elist)))7 W, p( z% ?$ s& [: ^
; (setq elist (fix_mtext_fonts estyle - F" s2 ?% O! S) v8 @: Q! [# A
; elist. j5 |! u% T* M4 ?" m$ d
; )
" r9 M9 H+ r0 J& F1 ~6 o7 C
; );setq then1 |' ]) j7 d' ] F- N2 p+ [* Z9 w6 Z
(setq elist (subst (cons 7 estyle)2 r5 G5 {5 N, h) P) h
(assoc 7 elist)
2 k( e4 W; }( w( `, y& w
elist
* m+ M) G+ j7 J; V
);subst
- r% a' x) h, ^6 f$ F2 u' V3 W
);setq else
7 P1 e" w p9 |& G+ e! P
;);if
1 _" q9 q- e9 [: y: N
);progn
3 a4 P3 m. B/ S0 d& _2 w* ]: I
);if
" c; T+ {6 g' r" G1 D) Y9 @
(entmod elist)3 L# X- i; f4 _8 X. d2 n( b! a
(setq ss-index (1+ ss-index))4 c- M9 y( d9 ^/ x8 ^9 X
);while
% V. l: g* v+ l5 L. j( Y3 `
);progn then
% x c0 s* A+ j9 D% S9 E) I
);if
$ L ?/ i% \% N, W0 m( Z( E' B
* i& s9 b# D; _+ I
(setq cmdact (getvar "cmdactive"))9 N# _6 _7 E& E
(command "_.chprop" ss ""), N7 C' T @' v8 A
(if (/= cmdact (getvar "cmdactive")) ; Is CHPROP actually running?9 h5 g# R8 C5 `& i- u
(progn9 g c7 g- d7 U: H
(if ecolor0 ~! p# p) O' _. d- G
(progn9 V* p B; q) E3 B) C+ v# D
(if (= 0 ecolor) (setq ecolor ;|MSG0|;"BYBLOCK"))' ^+ W% S# K! ]* P
(if (= 256 ecolor) (setq ecolor ;|MSG0|;"BYLAYER"))$ J! ]# V: t( k9 Q3 a
(command "_c" ecolor)
3 Y$ u% F' n* h4 n
);progn then$ ?' B7 A* m* E/ k0 ~# o' G* a: J
)
1 L" M0 A6 g- R& v
(if (and lt-idx
- A B" Y8 B8 a5 R2 o5 U5 J+ z
(/= eltype ;|MSG0|;"Varies")
: h1 Q/ p2 T% A4 z B, B1 x8 ~8 P' Y
)
; x% a7 } R" q( k
(command "_lt" eltype)% j. r( O! y1 @" b. [0 K" p
)
) B1 N( C8 ]7 J( d8 c, }8 b1 K, d
(if (and lay-idx 3 H6 u6 Z% {, l
(/= elayer ;|MSG0|;"Varies")$ `( E, M9 z1 y" z6 s
) W- H0 g; g6 m! T6 f7 Y+ h
(command "_la" elayer)' o2 X; n; h- @5 P3 r* n5 e& M e
)' [0 t2 ^. M) Y% _) e
(if (and ethickness
( B2 j8 X1 C9 O. z
(/= ethickness "")
1 k4 {* t6 ~: H5 D4 @
(/= ethickness "Varies") 5 _; a! r! ^7 G4 g- @
)! S) d" U! p; h6 c1 a; ^
(command "_t" ethickness)* ^) y3 Q1 c* E
)
2 a4 n/ {. U8 m1 D- s \
(if (and eltscale (/= eltscale ""))* o+ J' K; M+ N- e$ c
(command "_lts" eltscale)3 K2 T; o5 q8 ?( Q, x
);if
) O3 r7 l4 M3 K& x
(command ""). Z# E6 z b7 W/ W1 m
)
3 D* ?, l @6 y$ v3 `
(princ "\nProperties unchanged") ; CHPROP didn't like our SS set/ g$ P7 b7 A& K0 P- @/ M
)
, e ^; f7 @* G2 c1 S3 R# U
+ R O6 P0 ^* d7 R9 y
);progn then OK was picked in the dialog.
' }3 {# S n8 a/ y- Y4 x e# b
( }! g4 w9 j. b7 v
;; Fred GERBER - 25-AUG-947 y. i' h* L" T( b
;; Don't print the "Properties unchanged" message when the user cancels2 G* J$ e) L7 H7 U. ?) T
;; the dialog because he knows that already (otherwise he would have3 a o! Y6 S: f9 {* I1 j' K
;; hit the "OK" button). Display the message only if CHPROP fails for
) t0 L! [/ k- T& B
;; some reason, because it is not the expected behavior of the command.
, P% N4 ]) U9 w J5 U$ `
;;
. j+ I9 s. k- k& q. w. `' _- f- l# r
;; (princ ;|DDCHPROP2_LSP_8|;"\nProperties unchanged")0 |9 s& j0 n! V3 R" y
);if
8 D ~ B1 L! z
(princ)4 r8 ^+ a# R7 |( X& \; j; O
);defun call_chp26 `8 F( d& a! g+ S$ j
;;1 v4 G4 s: R! d; Y$ |/ i1 x
;; Function to set the Color text tile and swab to the current color value.6 }. V8 Y( v/ f$ H
;;7 D, o) R& w) K [! U
(defun set_col_tile()
4 V' ]3 U @: M+ P R6 Y) x
(cond
# X7 X% R2 W! O
((= ecolor nil)$ S- N6 s( b, M" R- _$ D7 Y
(set_tile "t_color" "Varies")' l+ F2 P: t! h6 ? L0 S- @5 g
(col_tile "show_image" 0 nil)
" [7 O% A7 e1 `
)% j1 G/ N: Y7 ^& Q$ y
((= ecolor 0): N4 Z9 y+ F% ^2 C% K% Y3 s
(set_tile "t_color" "BYBLOCK")" I, V1 F$ i! L/ ^
(col_tile "show_image" 7 nil) ; show BYBLOCK as white- a9 f- ~! A* X2 v$ ~
)% l- N/ ?1 C" u D
((= ecolor 1)$ t3 z( t8 z/ u2 F% Q4 w
(set_tile "t_color" "1 red")
( c! R2 {; Z/ c) l
(col_tile "show_image" 1 nil)
3 c& X9 I [* o$ v& ~/ U0 g
); c E# s9 m+ {- Q$ g' J) b' @( {
((= ecolor 2)
) T" U: t+ g$ `1 ~% U
(set_tile "t_color" "2 yellow")! j$ ]; |' o, e! l4 P' N4 O7 V3 e6 q
(col_tile "show_image" 2 nil)! t- }9 x* r6 m
)
5 x$ l T& i& V
((= ecolor 3), r. E3 T2 ]" p* a
(set_tile "t_color" "3 green")
{: E% }" U& _ ~: A0 c
(col_tile "show_image" 3 nil)0 a4 V! o9 T9 n
)
* C* b2 r$ c* C5 f5 }9 i0 s
((= ecolor 4)
% }" w3 I( o e- c6 b s9 L, n" j
(set_tile "t_color" "4 cyan")
9 T! B. P/ n# R4 ~
(col_tile "show_image" 4 nil)1 }! e: O7 s* ~
): i. v" X" ^, w9 z' e& B
((= ecolor 5)
f5 r2 a& s% P" k, i8 F0 l# P
(set_tile "t_color" "5 blue"); T0 P, Z% K. M/ g( z8 {
(col_tile "show_image" 5 nil)
6 E: |; m \% a |+ ?
)
- _" L& [: \8 V% D8 Q& Y
((= ecolor 6)
$ @) r7 ?8 p5 m, ]2 e' C
(set_tile "t_color" "6 magenta")
1 p! ~0 W$ J: g& M6 D
(col_tile "show_image" 6 nil)& y. U" `$ ?% ^; g. k
)
, U* R5 [- ?1 @$ P& H
((= ecolor 7)0 l" m. `5 \4 e# e5 b- q
(set_tile "t_color" "7 white")' w! C/ G2 A, ]9 P! ~. ^# L
(col_tile "show_image" 7 nil)2 _7 Y# e& {$ l: K
)( ~* ^/ d/ D# |" \( d+ i, \6 k
;; If the color is "BYLAYER", then set the tile to) F9 L M$ }- J4 M* E
;; show it's set By layer, but also indicate the
( @* }8 \" ?# J; M5 g. |
;; color of the layer - i.e. By layer (red)1 z( B: J* W f5 H4 S
((= ecolor 256)0 i, K. o( T# ~ A/ a
(set_tile "t_color" (bylayer_col))
C. Q9 W4 y4 U; Q
(col_tile "show_image" cn nil)
" _( E0 j, J8 F( K1 P8 \4 }% O8 T& \" F
)/ ]# e2 |' j, w5 n
(T
/ p7 r* D% R$ X8 t# D( X7 S
(set_tile "t_color" (itoa ecolor))
i- a% R7 ?7 H7 }1 O# U
(col_tile "show_image" ecolor nil)
" U; H, \% j$ w. V
)& o0 f/ V- C* T# p1 }( B ~
)
4 g& j. k5 `& F6 b
)
: @ K$ @% B* l7 T, q* f0 i+ u) y- z
;;
$ T: l" u0 M6 M6 i- B" h
;; Function to put up the standard color dialogue.
( l: P6 s5 ^# y2 B
;;
. R; d. _8 K w, o
(defun getcolor(/ col_def lay_clr temp_color)7 I7 E/ w+ \2 t Q% M' u( u
;; col_def is the default color used when rq_color is called. If ecolor
8 a7 T& d% r+ d8 d8 K
;; is nil (varies) then set it to 1, else use the value of ecolor.! Q$ o) R9 S; ~
(if ecolor
# T) t9 M0 y% l. j+ ?% Y4 y u5 S
(setq col_def ecolor)& p. p" B/ D7 ]( a F) A
(setq col_def 1)* a" t) }9 D' q. `* P
)4 l5 D5 ?5 {$ N! Y& n; V
& V) i/ @* @' W8 p3 Y: V" X9 L o
;; If we're working with a single layer, get its color
, B" Z4 U. F" |6 X
;; for use in the color swatch if the user selects color BYLAYER.) G3 S! r- v W9 R8 J% N4 F" a
(if (/= elayer ;|MSG0|;"Varies")
, P& Z0 ?$ g1 l( @
(setq lay_clr (cdr (assoc 62 (tblsearch "layer" elayer)))); Z- `& W8 P0 Q. i
(setq lay_clr 0)
8 [( }4 K! N$ J8 K9 M5 ^
)
8 F; N2 ?/ g1 \& A" F2 y q A
(if (numberp (setq temp_color (acad_colordlg col_def T lay_clr)))
& F5 x4 j7 L5 |% U$ {
(progn
2 @3 C8 g! i, [8 m+ G: A P, q
(setq ecolor temp_color); M9 |( W1 N$ ?: u7 F1 t
(set_col_tile)* @( `8 A: b' M/ n% N4 Z
ecolor
: v9 h6 X7 t6 {; E, L/ Z, s
)
8 f$ w- k7 G H$ f7 k, d+ F$ g
ecolor
9 c0 U1 v, D- l5 H% k3 H
)) u9 ^8 q& Z1 I# O
). r# X" ?8 H) k
;;" X* K& @* {$ r( B: a
;; This function pops a dialogue box consisting of a list box, image tile,
; H/ u* {7 t' u2 j1 F8 T
;; and edit box to allow the user to select or type a linetype. It returns" W, l+ Z9 [9 D$ g/ Z% H7 ~& a6 y# W
;; the linetype selected.+ C) A8 G `* e" O
;;5 W9 V# H6 d1 n' ^
(defun getltype (/ old-idx ltname)
% B# ?) l# t$ U: x
;; Initialize a dialogue from dialogue file; ?' |, M% R" y( _
(if (not (new_dialog "setltype" dcl_id)) (exit)): j, u% {8 p O) r$ _% J% G
(start_list "list_lt") T6 Y. c. x$ Y; b9 ?. x" e4 l$ P' \
(mapcar 'add_list ltnmlst) ; initialize list box
- {+ U4 B/ k' ?$ j; A4 ^7 J* P
(end_list)0 Z$ y5 r2 n8 m
(setq old-idx lt-idx), c! ^5 D% L, P
;; Show initial ltype in image tile, list box, and edit box9 j$ a. e; c3 Y
(if (/= lt-idx nil)
9 k/ g0 P& G" Z8 {; v
(ltlist_act (itoa lt-idx))
; u! v$ Y+ f8 f9 O5 o
(progn
' ^5 f6 ^6 D2 [/ s2 g1 O
(set_tile "edit_lt" "")6 B$ ?+ U9 |! q0 v
(col_tile "show_image" 0 nil)* r9 G% B; F) N! D: D
);progn else3 Y' y3 h6 U2 B
);if: Y! ?* i1 X: N1 R+ k# E$ e
(action_tile "list_lt" "(ltlist_act $value)")
* G3 y8 k, M$ U" a1 A
(action_tile "edit_lt" "(ltedit_act)")
f; X- D) |5 J5 c5 O
(action_tile "accept" "(test-ok)")6 N+ E! a! ` l) z( y0 G9 b
(action_tile "cancel" "(reset-lt)")
# o1 D5 { k; N( Z1 v
(if (= (start_dialog) 1) ; User pressed OK
6 W; _# E; w3 M2 [
(cond9 Y& o2 s0 `- u; O( h
((or (= lt-idx nil)# t. d, @7 y- j; ?# S6 ?- L
(= lt-idx (1- (length ltnmlst)))6 ?, r, ]' W" C/ x! _
);or- f, K! M: U* K, v! z1 y" Q! m! I
(set_tile "t_ltype" "Varies")
* Z1 P+ C1 F" k4 W4 |4 B) I& Z
;|MSG0|;"Varies"
/ }& s! b' f% @' A, S
)
/ p) f# B4 w, O
((= lt-idx 0)
. F7 k9 ?% }. [) J# n$ I5 p( t
(set_tile "t_ltype" (bylayer_lt))
" x1 x: U, y5 z/ w* Y& n( z9 z# S
;|MSG0|;"BYLAYER"5 n1 T' R% a& M9 B1 b
)) e' T" Y6 W' G+ I, h
((= lt-idx 1)4 E5 _' M" P5 J0 V! L4 I
(set_tile "t_ltype" "BYBLOCK")
$ j6 J9 S K* y
;|MSG0|;"BYBLOCK"5 {: N; X* P5 B( @8 Z2 Y
)
& Y& s1 \+ D) X. W- Z) `" f
(T
8 k. V+ }" x6 A/ c! s# c
(set_tile "t_ltype" ltname)
8 |2 w, n/ M0 Z$ N1 |4 l
ltname
5 B7 S& L2 J: V; m: ^% r" K* N
)
( L% ?/ ?* l2 C& K a; R
);cond then& m9 M6 o/ p% O) D6 n/ e/ C
eltype
, u6 G! c- B5 z( n6 C; |" c
);if) j' Y" p b1 ]# B
);defun& }% ^6 N3 q# O7 N R
;;
# z! {9 J0 B# R/ F, \
;; Edit box entries end up here0 i- O: v5 ~! L/ N8 T V ]
;;8 ~/ Q, G! |$ |6 A# I6 p- e3 w
(defun ltedit_act ( / flag)
9 f3 z; d( l' B+ N4 h
;; If linetype name,is valid, then clear error string,* ^0 k' k! [/ h( n6 \5 M h) E
;; call ltlist_act function, and change focus to list box.8 e' A: e/ G3 @/ \
;; Else print error message.
3 R5 O5 Z8 U# B4 H4 [' L' Z
/ [% s# e. r1 r: [
(setq ltvalue (xstrcase (get_tile "edit_lt"))): t6 |1 p- X i- O3 L1 F0 I
(if (or (= ltvalue ;|MSG0|;"BYLAYER")# e( f1 ]# L3 [- o- A. C$ {
(= ltvalue "BY LAYER")
0 `' A3 [$ d: L7 \5 @& o, k
)! h/ u% v) h7 |+ t6 N; X/ ?
(setq ltvalue "BYLAYER"), S& X0 S& E: K7 D2 \
)$ {" S: T! G' n# b
(if (or (= ltvalue ;|MSG0|;"BYBLOCK")# I0 V/ L$ r0 P* Q7 ]# }$ M
(= ltvalue "BY BLOCK")' H0 |( E% ]: i7 b! P# Y: C
)4 P9 h* F1 m: ]3 Q; ]
(setq ltvalue "BYBLOCK")
( b- X6 {, c& e7 X" j6 G
) c. P, E3 d* i0 [/ |' y0 O; t/ m
(if (setq lt-idx (getindex ltvalue ltnmlst))) V+ Q" p! r) g$ R+ X; Z8 ~
(progn
2 z6 k5 Q. p7 B) H" f: E3 o- B" R
(set_tile "error" "")9 _/ u' K9 z3 M4 U( R' m, M
(ltlist_act (itoa lt-idx))( @& T/ _0 i5 K& M, h
;(mode_tile "list_lt" 2)
# c; K8 X5 C* J( y5 w' V" r1 w- o9 p
);progn then* n: _( N7 G1 b0 Z# X( {" [
(progn4 [- i; E# o( I; Y9 [1 a) X
(if (/= ltvalue "")5 L3 i5 ]$ n( t' G! q8 _
(progn. D# |% U! f- R" O3 I$ A
(set_tile "error" "Invalid linetype.")
+ Z' V3 z) H' `
(setq flag T)
, V, K8 d% X3 D" E& w' m
);progn+ X$ T8 b; ?6 ?) F% i+ X
)/ R/ L: Y N O& o7 D; ~& N/ z3 M$ U
(setq lt-idx old-idx)
4 B& T: L- [, [4 j- _) @
);progn else
( N9 W5 d" J$ _1 d( }
);if
" [' @9 r% U* a! N& I' S
(if (and (not flag) ;added so a return will take you out of the dialog.5 x2 C* u; x/ g8 i: \
(= $reason 1)) a/ e$ Q0 {* r% W/ y
);and$ p4 V5 F- Z$ ^" r" E
(done_dialog 1) ) l# Z1 _; a* A- @
);if 9 b3 V7 n6 ? i( F% V6 b
);defun ltedit_act# }* P1 q: d5 o/ e% R5 N x
;;8 e6 U7 z& [; C" ]2 b
;; List selections end up here" h0 f. O0 c1 o: A$ j
;;
- A' u5 s3 ^2 C3 F( }' b& E
(defun ltlist_act (index / dashdata)1 B0 `& r- F; c
;; Update the list box, edit box, and color tile8 `2 h8 o' Y8 N, O5 `
(set_tile "error" "")5 c( d* ^2 H |2 q$ x' \1 G
(setq lt-idx (atoi index))0 c5 e7 R5 o+ ~! L9 B! G, P
(setq ltname (nth lt-idx ltnmlst))
% W1 |+ k/ C2 u& p; l: u
(setq dashdata (nth lt-idx mdashlist))
, ]: }! Z( n2 A
(col_tile "show_image" 0 dashdata)
$ o0 f3 |- A) Y& Q3 E/ q, ^. z! J3 v
(set_tile "list_lt" (itoa lt-idx))
2 Z ~$ {0 ?& d3 K2 [ F
(set_tile "edit_lt" ltname)
E. V+ @, ]" r
)7 d- {) \" H* H" m$ a
;;
& D7 d2 k" S- f4 h
;; Reset to original linetype when cancel it selected
* Z8 G; K3 N P5 }& u
;;
- `. r7 H0 E2 F$ w; E
(defun reset-lt ()
4 b( B- ?) b, n' [" H) b
(setq lt-idx old-idx)
' U, u5 t5 h, d$ Q& f
(done_dialog 0)% l7 \2 a' q U5 Q
) c; M. B. X1 H9 `
;;. R# T4 X$ M6 v. h
;; This function pops a dialogue box consisting of a list box and edit box to
! D4 \5 o l S+ a
;; allow the user to select or type a layer name. It returns the layer name5 e2 M. v) t4 h# }$ e v E5 N1 V
;; selected. It also the status (On, Off, Frozen, etc.) of all layer in the, C. G; q1 r$ x- ~1 L
;; drawing.5 Z; b- v8 b- y7 ]
;;5 ?0 j1 K `, J8 M# Z
(defun getlayer (/ old-idx layname on off frozth linetype colname)
$ l- ]2 Z" ^1 r# [' Q
;; Create layer list the first time the layer
3 C4 ^$ a6 C( C( r, `& G& e
;; dialogue is called., ^+ H# ]5 U! r0 G i u& O7 j# U
(if (not lay-idx)
; d$ R' g+ Z! P U. Z
(progn
# v8 t% T% e2 ?+ }
(makelaylists) ; layer list - laynmlst% _' ?. c+ q+ S& b4 e
;rk
" B5 Y0 S4 r ?0 a
(setq lay-idx (getindex elayer laynmlst))
. g7 T+ Z& V4 P. ?
);progn
4 |. m# b' Y0 g
);if
# o, R* L* V# b& F, O( z1 a
3 y% v, _& c. ^ E* y8 l# x; J
;; Load a dialogue from dialogue file' n& I0 B/ ~- T% g9 c
(if (not (new_dialog "setlayer" dcl_id)) (exit)); ~; M% o$ W) L6 v
(start_list "list_lay")
' T* A8 F$ B4 \/ N- m/ _; s2 d& w- u) T
(mapcar 'add_list longlist) ; initialize list box S0 H# T8 A% ~# N4 @* J4 C3 b# E9 A
(end_list)4 _1 q' D3 `9 N+ l" Q
;; Display current layer, show initial layer name in edit$ S; |( Y, y; R- p( m. D
;; box, and highlight list box.1 I+ x: a. g. D; `" M9 ^
(setq old-idx lay-idx)
" V/ p' H9 V6 \" g+ U
(if (/= lay-idx nil) (laylist_act (itoa lay-idx)))
- Y; b8 w% j, B6 X6 F$ u2 `2 P
(set_tile "cur_layer" (getvar "clayer"))
: z% @! l0 i4 l" I- N4 F
(action_tile "list_lay" "(laylist_act $value)")
" x, r, D3 `, X
(action_tile "edit_lay" "(layedit_act)")
0 l' o% N' c" y" W$ k: K. n* I
(action_tile "accept" "(test-ok)")
/ X$ B+ i" _; I' K0 B9 | r" z
(action_tile "cancel" "(reset-lay)")
( T) E# S( H8 K/ n6 Q/ R
(if (= (start_dialog) 1) ; User pressed OK
+ y9 }# B9 {5 p( b0 m
(progn
: j( ?8 G. W! V' M G5 ?
(if (or (= lay-idx nil)6 o: U" _" X- P7 N
(= lay-idx (1- (length laynmlst)))
* F! _8 N m4 K" Q+ j9 c3 `9 Y3 x: l
);or
: E0 P2 Z" i) i
(progn
* g" Y4 q! b( T# S% B8 s' |
(setq lay-idx nil)
8 [9 S/ `7 I# j: Z4 d
(setq layname ;|MSG0|;"VARIES")
, z x; |9 |2 v. ?" b$ t. i/ [
(set_tile "t_layer" "Varies")( ?) }$ n! w3 T/ D& J
(setq layname "")
/ r4 l2 t* ~4 s1 X( y& R
);progn
. X* A' _* M h7 R+ n
(set_tile "t_layer" layname)' ?0 j5 W4 |8 w; C! N4 h
);if
" _! ^, L" ^0 y o9 X' Q3 Q3 L
; If layer or ltype equals bylayer reset their tiles
0 c, j5 Z# z* k. j- ^3 n4 f! W
(if (= lt-idx 0)
3 |2 p/ g& P8 u6 U
(set_tile "t_ltype" (bylayer_lt)) c/ S t0 j* W. v8 i2 Q
);if- s& O. S) A0 O$ [% w' ^4 A
(if (= ecolor 256)
' x: }5 q" n% c; j: I
(progn+ \$ K+ n1 @2 M* e# Y- N
(set_tile "t_color" (bylayer_col))
' D( W s7 U* F5 f$ P
(col_tile "show_image" cn nil)
6 U7 U3 C" U+ Z% }7 [
)
9 _9 k* t( [: P$ K* m6 f& n" i
);if
' A" \; \- \" l# r
layname
7 ~! V3 w3 P+ L
);progn; J K0 v! t$ [
elayer/ }& X; t T( |* L5 w8 c2 H/ T
);if
" P0 V* E( [0 j. ]6 ~0 O6 q2 |0 x
)
) C; A6 ?" P/ G' } G# z% I+ h$ R6 J
;;7 P; K8 j! a$ u7 t. Y
;; Edit box selections end up here" }( H0 S- @3 h4 j# x8 Z7 ~
;;
; E$ U* M$ o) K7 L3 N% V3 k% p' V
(defun layedit_act()
( D% ~* d( F/ ^# @
;; Convert layer entry to upper case. If layer name is
3 f9 s: X. Y2 a# a
;; valid, clear error string, call (laylist_act) function,0 f: @! \" Q& y d6 u
;; and change focus to list box. Else print error message.% ?' Q8 P# \7 m# I3 k6 j6 J
(setq layvalue (xstrcase (get_tile "edit_lay")))- |) d: t( v% v$ V) P+ l4 v
(if (setq lay-idx (getindex layvalue laynmlst))) A% b% V7 G/ s# \# ^
(progn- t3 c: {! ~/ y
(set_tile "error" "")2 O9 \4 p: n$ D" i6 r7 t
(laylist_act (itoa lay-idx))2 t8 `# s: t- Y6 S" z6 \$ c
)+ p; k3 n, q% e8 S
(progn) f; i3 }/ p! t; n j6 y( @3 l
(set_tile "error" "Invalid layer name.")
5 d6 R3 a% y- O$ C% _
(mode_tile "edit_lay" 2)
2 y) ^3 a* {* W. z' ~
(setq lay-idx old-idx)/ H- G# C5 [3 e" g9 G% i" p
)$ S% U- l) \2 j0 e
);if2 U* {. m$ e6 E
);defun
! y! t2 V0 `- C! H( s
;;4 }5 H; M* |, J! Y: ^
;; List entry selections end up here
# P8 R3 Q1 z7 V1 \1 ~, B, M& M
;;3 j* M# p8 G. D; _; v% I' P& `& S
(defun laylist_act (index / layinfo color dashdata)
" ^' M8 E' Z: O9 M5 b9 K" a- A% K7 \
;; Update the list box, edit box, and color tile
/ P8 p/ e3 k2 S/ z8 X
(set_tile "error" "")
( G9 J; J% S P- ^9 Q8 H
(setq lay-idx (atoi index))5 s r& s9 q# Y8 p$ t' \- ]
(if (not (equal lay-idx (1- (length laynmlst))))$ m7 {; W/ L- \1 ]9 W5 a9 f, ~( g% p
(progn
" u& }! B4 W# k0 y
(setq layname (nth lay-idx laynmlst))
1 e) u3 E3 I2 {( I! g
(setq layinfo (tblsearch "layer" layname))9 E) }4 y& v) N. c. [( H
(setq color (cdr (assoc 62 layinfo)))6 a% y" y" @0 Z4 p0 X: m
(setq color (abs color))
/ N& T7 U0 _" }" M% h
(setq colname (colorname color))5 C3 h. v b4 v R0 ^" ]9 Q- M# l
(set_tile "list_lay" (itoa lay-idx))
% K: W0 ]# E* C+ g( X4 S! M
(set_tile "edit_lay" layname)
, `. ^! U7 _# l5 O; U
;(mode_tile "list_lay" 2)
8 R5 H2 F1 ?9 {4 P! Q; K
);progn then
7 {% b, d8 F6 F# r2 w- Q
(set_tile "edit_lay" "") # S- r1 G2 h _" l, v8 U3 D
);if
& d' v% V7 N8 C) B6 L
);defun laylist_act
1 c; o$ c9 Q; U7 t& v* ]8 m
;;2 t8 z4 w4 O/ s) B
;; Reset to original layer when cancel is selected
" u. g; }- Y- E6 y0 J3 G i- f
;;' _ J1 X1 Q1 K) h+ a5 _- A5 H
(defun reset-lay (); F7 }& j8 w2 t$ K! y3 K7 d
(setq lay-idx old-idx)6 k( ]; m* F* l9 L+ ]0 A* u
(done_dialog 0)
6 C, h* z8 v4 }. w
)
Z1 K) n# W( A, k* c5 J/ U
" `& H' b4 y+ J9 E
;; Checks validity of linetype scale from edit box. It checks to$ M. q. o2 z2 l8 |$ @" _- X# e$ m
;; see if the value equals "Varies".
5 C0 Y5 }' c7 |7 S
, E# I* u; L6 n) v) W- V
(defun getscale (value / rval)
/ v4 F/ {9 v5 C- W
(setq value (strcase value)
- a3 N5 W* U1 F, L. V
rval (distof value)
8 S, d' o1 R5 c* Y
);setq
E0 N; v! H( U( v/ O r
(if (or (= value "")2 S7 P; a& A* E5 H6 @4 E2 t
(> rval 0.0), F3 }9 q }2 `, o* x. I& u
)9 N& Z, }2 Y3 b
(progn2 E4 P0 E. T: G* l! {
(set_tile "error" "")! |( ?* G5 r. R4 b+ A. v
(if (= value "")/ r8 F% c6 M7 }
(progn
5 E- \! H* U2 [
(set_tile "eb_ltscale" "")/ G3 x; P E' F1 g( t. p' F
(setq eltscale nil) `; d: u, \1 r' w5 X1 y
);progn then
1 O: a+ q3 j) f6 I: p6 l) P
(progn
# d M- x; Q$ k
(setq eltscale (distof value))
) f7 l; z; | Y: L" _& z
(set_tile "eb_ltscale" (ai_rtos eltscale)). V9 s" M: Y; h, n2 d* J: j6 c
eltscale
' {: I/ Y; [ M: L) k- A8 Z$ d
);progn else, c" \1 p9 Z+ n9 p4 f
);if
/ C( W) P1 B' |, {* D% ?
);progn) X5 \! P7 C/ j- i
(progn. X' B; w- b! k# c/ _) N$ w8 E
(set_tile "error" "Invalid ltscale.")9 ^* \' F: N$ w' Q0 M; V# ?
nil
' c6 V7 ~* i3 c) h( G; u- ^! S" M
);progn else2 w" k) {, H2 s- N
);if
1 ]( X9 G' L" b1 a2 {+ t& B) z
);defun
4 R% h1 E- u5 q# q" c/ y W6 I
;;; M h; Y, o2 n$ i, e" ]6 Z) Z7 k5 s
;; Checks validity of thickness from edit box. Since (atof) returns 0 when a; A" I% u/ P6 t# N( e0 t
;; string can't be converted to a real, this routine checks if the first
$ m, H5 R% a7 X& K U9 m
;; character is "0". It also checks to see if the value equals "Varies".7 w+ Q' [: g9 K9 D0 ]7 m" b d
;;6 ^! ~3 l9 g* |' g# T1 `
(defun getthickness (value)+ g w2 N6 N0 u' E4 }3 W
(setq value (strcase value))
0 Y' o J# H- J, a$ n! w+ Z
(if (or (= value "")1 }5 ]: }* \( I7 T
(distof value)
6 p o G3 B! n3 r# f
);or" ]9 {# h/ {0 S) ^+ [2 ?: o. p# k
(progn
9 i/ F, D! ?( I+ v+ S9 i% }
(set_tile "error" "")$ q0 B- ^9 W& y! p
(if (= value "")
. o7 f: n/ x" F, D
(progn* j+ s% {7 {! J
(set_tile "eb_thickness" "")# n# C/ G: f6 M' h
(setq ethickness nil). \2 r* u" R9 n) L
);progn2 \3 S0 Z9 U: k. b2 @( c1 @& D( A
(progn
/ {. k, q2 w7 |
(setq ethickness (distof value)). g6 k# l, L' \, u
(set_tile "eb_thickness" (ai_rtos ethickness))% q. S% t) M+ }, N$ N6 W
ethickness
6 O2 @! c0 j8 t% j5 I4 V
);progn
; _2 l; M* {- S& o5 ~
);if. G/ s; g) H) z: `
);progn
, F7 b8 [/ `% m) ~8 ~
(progn3 X6 S5 U' w5 a- y- y; z& G" A: O
(set_tile "error" "Invalid thickness.")
0 @4 e1 w* @% E) c3 e/ [8 [
nil' X9 n' z) R# ^- _2 t
);progn
. T- B4 i2 ^# T* M; ~
);if
7 d' U" t, z/ ?3 w/ {
);defun
% n; Y; V. k% B7 n
;;
3 I/ j: F# ?( d
;; Checks validity of polyline elevation from edit box.
" r, {( d, z6 p3 @$ \( `
;;! m; K6 B P$ L: h0 x1 X9 ]$ i$ q) t
(defun getelevation (value)
, n5 D$ M! q1 C
(setq value (strcase value))+ ^1 u) h; E. l+ u1 Y$ O
(if (or (= value "")+ D# P; Y! U! |2 _1 l4 U
(distof value)/ D" ]( C! Q6 D7 W- u- ]4 R* t
), Q6 {; H( {. D" \8 h. @
(progn+ B0 N" J1 _' k, U
(set_tile "error" "")# Z5 ?& R" \# {6 T$ `, H; U# X
(if (= value "")
& N1 Z7 P+ \# j F
(progn6 A) T( W; u+ l# d+ ~6 O, I
(set_tile "poly_elev" "")
/ G$ @1 C0 ~' `7 r
(setq eelevation nil) t0 k+ u& g' Y# u( m0 O
);progn
" p( x' U5 \' u" }( p/ G m! T
(progn
8 d3 u& k1 v5 d3 G3 b- b
(setq eelevation (distof value))* V9 J( c% a4 E }
(set_tile "poly_elev" (ai_rtos eelevation))9 c8 o; A" ] L L5 O2 v4 N+ G
eelevation" n/ {% k1 I9 S; o+ `# J5 z
);progn9 C4 H& D) T% M- J
);if: T7 H* v: Y' Z# W' Q
);progn
5 q8 ^+ h' u I/ L0 |' v( t, w0 h
(progn2 {$ v# O8 b: `0 y0 T: X+ @
(set_tile "error" "Invalid elevation."): \9 P# _7 |! Y/ ~. c) D
nil
4 O& u( Q% O/ f, X0 Y
);progn/ f0 @, R+ w' n4 Q5 F X- Q
);if) y/ F) L0 k* a& b# U L
);defun# Y1 Z2 M* q# j- x! K8 S
;;! t8 R" ^+ C. ~1 P9 n' [' q! {
;; Checks validity of polyline width from edit box.) X; R4 U# \9 ~
;;1 x' S: r- ~8 N4 D* ~6 ~
(defun getwidth (value / rval)9 a7 p5 ]4 U/ K$ [
(setq value (strcase value)
, r j" V# ~/ u" O/ ^' L5 m
rval (distof value)2 m) ]- _; I/ }
)
! _% g+ _( @' x% k
(if (or (= value "")) P- t- i! h* ^4 T: P' x
(>= rval 0.0)4 |, y% W) L3 e
)4 X$ @* x' @1 F4 v e j6 ~
(progn
$ t% V' u7 ~5 X2 p6 j7 |+ x6 I
(set_tile "error" "")
7 K; M/ V5 L' Y0 r9 d" S# ~5 |/ H
(if (= value "")
- F4 B/ i w) Q
(progn
3 H: p, r# @8 Q
(set_tile "poly_wid" ""); E1 X" ~% `6 T9 C9 \; G( Z' R
(setq ewidth nil), P9 p6 F; {: W7 \# \; I0 h
);progn
* \, K4 @" s: S4 n) v& ^; l
(progn
) T7 ^! V$ K2 k( s s. i; D5 G o
(setq ewidth (distof value))
% i2 ]1 d' q7 S/ K) R: N
(set_tile "poly_wid" (ai_rtos ewidth))
( q2 R4 c/ m1 e% l
;width
' L, O+ E) z# @% X
);progn( |. ^ M* ]/ B- _; f
);if$ A& v* v4 k! j7 A1 R
);progn, n% ~( r0 n* W! a( ~
(progn
! N0 w3 o' k; D! i4 P
(set_tile "error" "Invalid width.")
* _" d2 B' C- o; M( y
;(setq ewidth nil)
8 d) ]5 `7 e+ |5 A/ N
nil 9 N. Z. W9 L# o' D6 Z
);progn& R1 @, e& g3 R" B. Z
);if
# V. d* k& U, Q' Z4 C: W$ Q
);defun% T7 P7 |: J2 V6 u
;;
4 I0 s# T5 q$ Q% {8 P- c+ U. s
;; Checks validity of text height from edit box.
5 C$ w2 W2 A/ k0 Z: { C
;;6 J" U- e |% _- l- q
(defun getheight (value / rval)
$ J/ K8 M% p1 C* }; Z7 a0 J
(setq value (strcase value)
& Y0 o4 _, {; M% h* z
rval (distof value)9 G7 F i/ Q+ B- a- `
); }( X8 r8 x: K/ u- j# R( o
(if (or (= value ""): O; O/ n; W- C' W5 k
(> rval 0.0)( k' W7 M5 w* U
) |: h; j* m, s Y6 C6 _
(progn2 j7 N2 z% W a' O' Z" Z
(set_tile "error" "")* K2 z' G. Q$ V& a+ S: |/ a
(if (= value "")
0 [# o: D4 C( i& h
(progn9 ^- j, E0 ?1 ?; b
(set_tile "text_hgt" "")
: R% q7 D3 M, l6 u" I( T
(setq eheight nil)
) R( B# X; C$ ?$ Z: b
);progn; L" i% r7 @! U. A
(progn
i2 [0 C- \& l2 @1 G( ^0 _
(setq eheight (distof value))$ N; S+ F$ L1 Z/ I% I) V: T3 `
(set_tile "text_hgt" (ai_rtos eheight))
0 e* T! T( a" |( f
eheight
1 t0 Y: H# b: w+ `: [$ r5 f8 B
);progn( I, f- Y0 o, w( }" z3 m( P
);if
) J+ G/ R/ H6 K+ z; j
);progn
* V: s5 ?! i' Q. ~0 r2 p) r
(progn$ z0 w; O/ u/ K# Q
(set_tile "error" "Invalid height.")
* f- @" z W7 W% D, U$ ?
nil
Q- |. U4 f/ C2 i Z4 S
);progn( _3 b5 p. z9 V* C% \% A- Z
);if
/ y/ k% A. n! r" ]
);defun
4 L) a$ G5 p1 ?. W
/ t- N& M0 [' J! ?' G: b
(defun getstyle (value lst / rval)$ n* o: L9 V* u) I0 \0 l0 K
;(setq value (strcase value))1 _. R, r. a' ?$ e
(set_tile "error" "")6 k! z- O; [* n# T# g
(setq estyle (nth (atoi value) lst))' K/ R+ ]* D" \) Y' m9 n7 X7 j# S2 l
(if (equal estyle "")
- U `+ A; D5 s/ Q* u
(setq estyle nil)6 D% w0 e" @/ f) w
);if
% z' k! Z. `9 j% z: A
. G* c# C) N. r- ~0 R2 t2 u9 h+ T8 i
);defun getstyle
8 z) ?' k& D4 d8 o! {
+ }2 V3 ?/ d4 t* z7 E
;;
( A' D9 O5 o ^) \0 @! Y# e
;; This function make a list called laynmlst which consists of all the layer1 R- P! x% Q; k/ E7 g' B; T
;; names in the drawing. It also creates a list called longlist which
' w: I3 [1 r: X s* Z8 e
;; consists of strings which contain the layer name, color, linetype, etc.: q: t3 `) T. X( Q0 R* c7 ^! Z
;; Longlist is later mapped into the layer listbox. Both are ordered the
/ A/ x, A3 U, o; o
;; same.
4 I& k$ p1 @' |
;;
" q2 k) m' M/ V$ ~
(defun makelaylists (/ layname onoff frozth color linetype lock vpf vpn ss cvpname5 x1 n! A7 G5 J1 k( P, L% {
xdlist vpldata sortlist name templist bit-70
layer_number: P: L& k; z0 _. ~
)
: ]/ w0 `% M! q4 b! q
(if (= (setq tilemode (getvar "tilemode")) 0)
' }( m8 X) n- {
(progn, J5 k/ q- q- M: ^# L7 a+ d) T* P
(setq ss (ssget "_x" (list (cons 0 "VIEWPORT")
1 q/ I" C! _$ n4 o! U. Q+ T
(cons 69 (getvar "CVPORT"))
6 H% H7 [& l% {' E
)
4 b" }" ^4 p7 n3 p) N' u: S
)+ ~- X1 J1 W6 x) _+ Q% o# P
). I4 P& @7 g( `9 K8 o
(setq cvpname (ssname ss 0))4 R; E, }) N- ~: B) i" S
(setq xdlist (assoc -3 (entget cvpname '("acad"))))
0 x! R% ~: t- L! s% a2 f7 C
(setq vpldata (cdadr xdlist))! X4 D2 A* r7 O- T/ t0 l
)0 x! S/ b/ w8 F6 L% V s( \
)
# s6 n Y, I+ d: B
(setq sortlist nil)6 R) O; O8 k3 O$ C3 m. F6 X
(setq templist (tblnext "LAYER" T))
7 h5 _7 l6 f/ h- Y. L9 q
(setq layer_number 1)% v$ R7 d( t9 X* P& r# b
(while templist
! p) S1 o5 `$ c
(if (not (equal 16 (logand 16 (cdr (assoc 70 templist)))))
+ S5 I7 q J1 `, m
(progn
: v! p3 I& ?$ h
(setq name (cdr (assoc 2 templist))): j c; x6 D: a/ R/ j# S6 v( X6 O
(setq sortlist (cons name sortlist))
: g7 d7 s0 T1 X
;; Not dead message...
; ~( O, _' Z) k6 U
(setq layer_number (1+ layer_number))$ M0 k F9 l8 }1 x6 [9 \9 A
);progn
7 H) E3 k% i! M) Z) o1 `! c1 Y _
);if
1 {3 K1 A* m% |! `) X4 Q) m
(setq templist (tblnext "LAYER"))
; S/ e/ l* J2 ~4 v) k8 ]
(if (= (/ layer_number 50.0) (fix (/ layer_number 50.0)))9 f @; t4 j0 C0 t. N' W5 s5 I
(set_tile "error" (strcat "Collecting..." (itoa layer_number)))
8 J1 G3 r/ ^0 p/ Y4 n$ ?% m
);if
- I- B9 F# p: p# F7 n
)
Q$ i6 N3 w0 v1 R0 q
(set_tile "error" ""): c. [) X5 s2 G3 Z/ j. K0 m( c
(if (>= (getvar "maxsort") (length sortlist))9 J2 ?( f9 ? R
(progn
* _# P( S$ h9 K ?, M1 F' Y
(if (> layer_number 50)
4 z! s7 B' p' Q P
(set_tile "error" "Sorting...")! z% x- T% [3 E) o. j
)
: d- z! U3 \' e" h+ T8 b& C" y& ]8 T$ G
(setq sortlist (acad_strlsort sortlist))# [. F" H2 z% E
)
2 Z5 ?6 \+ v4 }" i9 x
(setq sortlist (reverse sortlist))( c4 @* D( V4 T6 j$ J
)8 Y" V" l6 d& V J$ I* X
(set_tile "error" "")# v; |- q; p" z, n
(setq laynmlst sortlist)
7 W: E0 I/ @ Q# |" K/ v
;rk B# @; W" n. y( i1 i
(setq laynmlst (append laynmlst (list ""))) ; ~/ Q1 j. L9 f5 y* I! m) e' N
$ s6 V9 e5 r+ A/ ]
(setq longlist nil)
5 [8 x6 o. f' |: [' X: V; H
(setq layname (car sortlist))
N8 i# O& l; H1 Q) c6 ?
(setq layer_number 1)
' v* ?5 P1 `5 @0 t- e+ f
(while layname6 A: j5 _, C! Z+ U
(if (= (/ layer_number 50.0) / d* X- @$ O1 F, S
(fix (/ layer_number 50.0))
( {) y0 l4 r5 Y1 Z
)
' A- g8 l( ?; Y) [
(set_tile "error" (strcat "Analyzing..." (itoa layer_number)))
X$ z! f: V6 m# I/ E: X8 O
);if' T7 ]5 \$ @& B2 p6 g& M2 Q* R
(setq layer_number (1+ layer_number))% g0 k7 {8 H8 p, z5 p* w* n
(setq laylist (tblsearch "LAYER" layname))( M2 x* O% y& M% L4 _% j6 P
(setq color (cdr (assoc 62 laylist)))- A5 C% ~: @0 J3 Y8 E+ g8 p
(if (minusp color)& U8 `7 U' U8 X8 I0 `- x( Z& k
(setq onoff ".")* @1 A* Z c J# q+ Q/ h
(setq onoff "On")
0 Y* ?2 h; `- B+ }
)
+ E: R/ }& Z) g& r1 V
(setq color (abs color))
G6 @5 Z$ d, S( Y8 W' R( k- E) ?! V
(setq colname (colorname color))
7 E7 E) E* `. O* P
(setq bit-70 (cdr (assoc 70 laylist))). v& { W/ V4 Q
(if (= (logand bit-70 1) 1)
8 _7 B+ L# m- ?$ F) v& I
(setq frozth "F" fchk laylist)
/ d6 X' f, n# J* {$ w; B
(setq frozth "."); Z6 D5 m& y% r2 A6 h# j- @* ^
)
, R1 i" R' e) X1 i
(if (= (logand bit-70 2) 2)
6 d* Q5 B# V6 A- w O, d
(setq vpn "N")
7 \1 Z7 x/ i2 Z
(setq vpn ".")
0 S {. B( ]+ ?. U$ m# `
), o/ Q& E8 X4 R) `3 O& Q% t
(if (= (logand bit-70 4) 4)$ f& a5 X; @5 z
(setq lock "L")" {6 \ z$ m5 v& w$ J% h
(setq lock ".")* K6 X0 K5 \& _1 F9 z- v
)
$ y6 n- C0 b6 V4 l) p4 `
(setq linetype (cdr (assoc 6 laylist)))
% D4 Z L% o! A- X8 b2 b9 u
(setq layname (substr layname 1 31))" U* O2 [& t2 ^- x- l( { W" W- ?
(if (= tilemode 0)
4 i" t0 j. L( E7 e
(progn7 P4 S7 U9 ^9 Y! U( h% f9 x/ [, V, ?
(if (member (cons 1003 layname) vpldata)3 {' l6 L7 }& r0 S/ R" ~ h+ D
(setq vpf "C")
! i+ C( x1 t3 l4 W1 q$ g2 j; B
(setq vpf ".")/ z, G1 d% B K( w8 U1 g" J- m
)
' }* }$ S' j$ [
)4 L9 m$ R9 ]) Z+ j
(setq vpf ".")
: w7 r9 D: Q J# I
)
1 z+ N7 A' r1 a, |: t
(setq ltabstr (strcat layname "\t"* f% W9 ?& s( V8 X
onoff "\t"* A* a* ]1 u; {
frozth "\t"
. K9 F( n3 V( N( L( s6 [8 T5 @
lock "\t"
B5 N( l; T: j* \4 r% v. V
vpf "\t"+ o9 m- j% H- J3 {$ q
vpn "\t"
$ x$ j3 _) ?; X% e0 f; R
colname "\t"4 a: a7 l8 x. t6 }
linetype
i# ~0 s% a8 |9 b
)
) Q( ^+ r$ G) J( s" ]
)$ Z9 e5 X7 X! S. ?6 F# ~* l
(setq longlist (append longlist (list ltabstr))); C4 H/ W$ F: q5 l) w
(setq sortlist (cdr sortlist))
r1 l# [5 r3 U$ o! Y% a( y
(setq layname (car sortlist))6 E0 R# L# n4 t* J4 w
);while4 U1 h. W# c1 X8 B" b7 ^6 M
(setq longlist (append longlist (list "")))
1 e$ a' W* w6 j: |+ q! ?
(set_tile "error" "")8 e. b5 U- W3 p0 S: t
)8 N3 ?2 _* t& \2 F9 o
;;+ m( ]. @& Q9 w0 r1 s; }8 ?
;; This function makes 2 lists - ltnmlst & mdashlist. Ltnmlst is a list of
8 _( s0 a2 O( Y* l
;; linetype names read from the symbol table. Mdashlist is list consisting! Y/ {! Z g- o! D
;; of lists which define the linetype pattern - numbers that indicate dots,
/ r( \) E2 D+ ~9 V9 K7 X% h2 _5 S( `
;; dashes, and spaces taken from group code 49. The list corresponds to the
! s) z% {3 k0 ]+ x+ y
;; order of names in ltnmlst.
3 D9 e5 j' x* O5 u) h
;;# H" Z% \1 F9 [3 i/ d4 q S% H
(defun makeltlists (/ ltlist ltname)0 R( ?9 k6 H# q8 T# G& k7 P
(setq mdashlist nil)
) N# D+ N" e% X$ J+ a5 N
(setq ltlist (tblnext "LTYPE" T)), g/ @9 h# Z% \* R# L$ x! z. h- g9 R
(setq ltname (cdr (assoc 2 ltlist)))
6 t3 ]2 A% u. A& k# X
(setq ltnmlst (list ltname))7 I' d; T* r/ A, v
(while (setq ltlist (tblnext "LTYPE"))
# |9 f6 Y' h$ d5 | L
(if (not (equal 16 (logand 16 (cdr (assoc 70 ltlist)))))
' ~3 v4 Y4 \) k( V8 I: z3 K5 v% I
(progn
8 U/ H# r& t7 {0 {/ E& j
(setq ltname (cdr (assoc 2 ltlist)))
( y0 v" u9 c. a( }7 l
(setq ltnmlst (append ltnmlst (list ltname)))
+ i6 V# u5 U6 `) a2 d$ }
);progn
8 r9 R$ b5 O+ ~ s
);if & B' f1 G4 s$ G
);while% B0 Y9 P& [/ ?1 T( ]2 t$ u
(setq ltnmlst (acad_strlsort ltnmlst)): E0 f3 f+ t* j/ x7 [2 @* O
(setq ltnmlst (append ltnmlst (list "")));add by rk
+ q/ X; K4 N( V( a2 K
(foreach ltname ltnmlst
* E) O1 X6 E8 d* F, a! B
(setq ltlist (tblsearch "LTYPE" ltname))
/ T% @# [3 o1 \
(if (= ltname "CONTINUOUS")
7 I7 S3 I1 L( N$ J( Z
(setq mdashlist (append mdashlist (list "CONT")))$ |8 _2 M7 N" H8 U! _
(setq mdashlist
$ J4 H8 S0 v, }' W* T. d
(append mdashlist (list (add-mdash ltlist)))% f2 A+ ?8 E9 S8 h( z& Z
)
' ?7 }2 V8 a. w( {3 g
)& y j" n. Q2 e; Q) T" [5 T
)3 i6 c3 o; s8 Y% ?' U3 _+ Z
(setq ltnmlst (cons "BYBLOCK" ltnmlst))
3 N' m6 C" }- O
(setq mdashlist (cons nil mdashlist))
/ R0 f' ~; w5 w0 a
(setq ltnmlst (cons "BYLAYER" ltnmlst)), D& R, W- ~. q) f+ i: T5 o) f
(setq mdashlist (cons nil mdashlist))3 ~9 h& A# v3 ^3 |3 H
)
9 \1 W$ h- o3 M ^ ? Z$ T& k
;;
$ ~! ]# E" I7 I( |8 m6 j* K
;; Get all the group code 49 values for a linetype and put them in a list! [! J; e- e, ^0 i; p
;; (pen-up, pen-down info)
; p2 a% l L% G+ F0 F
;;
: }$ u4 y9 S* g, _
(defun add-mdash (ltlist1 / dashlist assoclist dashsize)$ Z" ^$ r8 w u( g. p! L
(setq dashlist nil)0 E$ ~4 ~3 m% V$ R
(while (setq assoclist (car ltlist1)): ~, b/ u0 t9 h) T! \0 V5 z+ I
(if (= (car assoclist) 49)3 X! |' X8 S# b# t( E7 S2 j
(progn5 ]" F- N& s5 O
(setq dashsize (cdr assoclist))
& O0 z3 H4 {1 Z7 _3 j& H0 C
(setq dashlist (cons dashsize dashlist)): x3 {8 W8 a' I7 N
)
$ W% y7 T% Y0 z, E8 ?% p3 e5 H
)* N: e. }5 |( u3 C' ?
(setq ltlist1 (cdr ltlist1))
. V" Q ^& F- E* Z% H. ]& d$ D7 U
)
8 v2 c9 w2 f% a* F' Z& \* a) ]1 Q
(setq dashlist (reverse dashlist))
7 S9 G" i! W# I8 \6 J
)
, J8 N, V4 c. n5 }6 }' n) z. ~; k
;;* {* d0 {! I+ ], s
;; Color a tile, draw linetype, and draw a border around it
$ P' X1 x1 _9 X0 o
;;
A% n8 u. t% e" m' e: X) B
(defun col_tile (tile color patlist / x y)% V$ j" K# S Y" I% S& @7 r) ]
(setq x (dimx_tile tile))6 d$ j% s. t2 o$ [! ~
(setq y (dimy_tile tile)), L# v0 H% P4 |0 w0 y: M
(start_image tile)
. T4 g8 T! @9 x: A+ y" m# Z
(fill_image 0 0 x y color), {! [! |* a& v. F
(if (= color 7)
; z6 v! q" K* z
(progn
1 x h2 k7 Q" A3 I6 O
(if patlist (drawpattern x (/ y 2) patlist 0))6 h* S0 E- J% z
(tile_rect 0 0 x y 0)) V8 }/ F, y7 Z' }- F& ^6 m& x
)
* z- `- [7 `( P/ p; j
(progn
5 C) @" f) U# ^( B: t
(if patlist (drawpattern x (/ y 2) patlist 7))5 D9 J+ {" C h
(tile_rect 0 0 x y 7)5 X! i' s. ~- g7 u- S
); W* w) I/ {" v, Z4 S
)
6 _) F0 ]% [- W1 ~: p/ I* _ k1 {
(end_image)
' M( a( {* f) v: ?! F
)+ c4 y* ~5 k. s9 O( t
;;
( ~/ i+ r* d/ q( ]$ c5 z# s
;; Draw a border around a tile
# Z/ g% |0 D2 s$ ~' z" T, G
;;" e5 l- i0 a) z: f: d/ @
(defun tile_rect (x1 y1 x2 y2 color)
' s; |0 S1 g5 X& I! _& k
(setq x2 (- x2 1))& j: x2 H& O+ R! o u$ D
(setq y2 (- y2 1))1 y( A/ P* e& _1 j6 k
(vector_image x1 y1 x2 y1 color)
% G/ Z. L1 o" _* E& w% Z
(vector_image x2 y1 x2 y2 color)
; x* O" O$ A+ V9 n( g- w( B# L5 j5 ^
(vector_image x2 y2 x1 y2 color)3 c1 |$ R$ [6 D, k- E
(vector_image x1 y2 x1 y1 color)) q4 y$ d& i/ o/ u; R0 c! K% d7 v u
)
& ~, L' I* s7 j: L# I
;;/ k6 R$ ?. G: D
;; Draw the linetype pattern in a tile. Boxlength is the length of the image+ ~( n4 |& S# {& Y5 z" T. _0 [( _
;; tile, y2 is the midpoint of the height of the image tile, pattern is a+ V# [8 x5 S& d! k7 U0 G! o# Q
;; list of numbers that define the linetype, and color is the color of the0 H9 ^ K/ t4 K" Y7 H
;; tile.
a; B# g( r% X, z$ I) n4 N
;;# @9 Z4 v8 B# S0 j- ?7 h" Y
(defun drawpattern (boxlength y2 pattern color / x1 x23 Y9 f, {9 K( E5 C" C2 d
patlist dash)
4 [. b: w$ x3 e, _9 k$ [
(setq x1 0 x2 0)
7 A. {- J/ i. e* a7 |* h& b u% `
(setq patlist pattern)
/ w3 ]3 ~2 P @
(setq fx 30)! ^2 i8 z6 g8 S
(if (= patlist "CONT")
+ y' N1 a) L. L% E/ l& b# \
(progn
3 X! m8 C& H* e
(setq dash boxlength)
s9 {7 P) z$ U; L% c" l& V4 `# S
(vi)
3 F* Y ~5 _5 Q
(setq x1 boxlength)
1 n. S2 z; V0 Z: M' a# i$ N
)
# N4 _) c9 l( p7 ~3 F
(foreach dash patlist3 o; c# I) C! E* O1 |1 w
(if (> (abs dash) 2.5)
9 S" N; x4 ?: c7 o
(setq fx 2)8 C/ C: X7 r1 s J. y. N
)3 W U3 ]' b$ t* `. u; c
)
a- X( ?% p- f( R6 B
)) T; y8 N! h: P2 o' h7 u
(while (< x1 boxlength)* F4 M/ z% t+ f1 y9 q9 p
(if (setq dash (car patlist))% D1 S' u$ K! F9 R6 \
(progn% w% Z! Q& }$ U3 i F8 {
(setq dash (fix (* fx dash)))
$ q K& L# x) I6 m4 K
(cond
- j+ Q" S3 z/ G! R0 b8 `
((= dash 0)& R3 }/ w9 q. e( M' ?6 c' z4 k; c
(setq dash 1), n! k$ K% v# Y' ]1 N
(vi)
3 [' h/ a8 `. i- Q) a
)
# T+ F9 I; X; Q2 z
((> dash 0)0 l5 `8 A* W* A% } M2 f+ u
(vi)$ y: b$ _* u% [# j. p; D: h5 w
)
; @, H. r+ q1 }
(T
- _) V. U* H" I6 a0 u9 C9 T; g9 ^1 c
(if (< (abs dash) 2) (setq dash 2))
, Y; O7 P! |3 f- ? _, ]
(setq x2 (+ x2 (abs dash)))
5 I8 p% q/ B/ G5 `4 ?
)
: Z0 b" S0 b/ {$ D4 C0 S
)( p. w, o6 a$ J ]" h5 x
(setq patlist (cdr patlist))
+ N: i5 v6 T7 N# J) ]
(setq x1 x2) u: U3 z& n' b! \4 H
)8 _5 ^% c A Q) l' y: ?
(setq patlist pattern)7 {6 J+ }% c- ? l& \
)( p/ Z9 @5 W5 z/ P
)
) H$ k" G- N- J9 z+ h$ \. L
)
' ^% E9 W: o* Y7 H y8 q3 h' Q
;;% b' l7 t0 P9 s' p1 l+ t1 V
;; Draw a dash or dot in image tile
: U& p1 [& b6 F% o+ X K: Y
;;1 ~* }( s4 |2 }& w4 o' |' F
(defun vi ()5 [' W9 ?, r4 i: T
(setq x2 (+ x2 dash))1 C4 _6 |9 T7 F2 x5 t5 m/ f* D
(vector_image x1 y2 x2 y2 color)
6 w, S# |/ s4 d/ v# X, @+ d
)
. o* K4 c8 b1 J6 p" z+ X+ ~0 a! x
( b) U! J! e* L' H; v1 |
;; This function takes a selection and returns a list of the color,
. P% w5 E6 V1 I! e% {
;; linetype, layer, linetype scale, and thickness properties that
( B# J) O+ q9 \' h. [
;; are common to every entities in the selection set - (color0 X' R4 h; D' X6 Y
;; linetype layer thickness). If all entities do not share the same1 Z* E( w4 Z! C/ k" k! c
;; property value it returns "Varies" in place of the property* T" d1 Q' Y+ w2 q6 u
;; value. i.e. ("BYLAYER" "DASHED" "Varies" 0)
* y" t) @9 s; t
;; The last item in the return list is an integer flag for the
3 b! C, r' Z% y' i& S
;; homegenity of the selection-set object types.
8 Y. L4 v7 V4 u# w7 N' U( ~* p
;; 1 = All polylines) G& [3 {, {: s: _" u9 I# K
;; 2 = All text or mtext or attdef, or a combination of the three: v; {5 z/ g4 K
;; -1 = Any other mix of objects
# N x9 q u8 S/ n- N
7 }" x( Q f* ^9 n/ i' J* z- s
(defun getprops (selset / sslen elist color ltype layer ltscale thickness
7 k* _7 h; r* F/ h. R
width elevation height go ctr
6 \8 j9 L2 n i9 r4 d. D
eflag
2 L) H# y9 ]" K, s6 a
etype temp
2 `& r4 B7 V- y( j8 e
txt_ss ;;;;rk 11:24 AM 1/30/971 h! _ A" ~' b
tmp
. D( f; h, j* j8 e7 }
poly_ss
' a+ h9 I4 L" I3 z" a. u
style/ n' e6 a; E8 n$ l- A* n
)
* K0 O3 i+ C7 C3 ]7 q A4 R$ g
5 z% B5 d' N1 z1 m
8 T! U1 t, C3 [$ R4 S
(setq sslen (sslength selset)
/ V- [" c7 C, k" S: @# t, m- u
elist (entget (ssname selset 0))
0 L' Y: Y, s; r' g* y
etype (strcase (cdr (assoc 0 elist)))
/ C; O# j- m4 Z9 b+ Q, i
color (cdr (assoc 62 elist))
* W7 T+ f4 [8 ^, I5 h
ltype (cdr (assoc 6 elist))
c) Z4 Y4 V: H6 Y# A; A
layer (cdr (assoc 8 elist))
% u2 I3 u& n a( l$ j7 a
thickness (cdr (assoc 39 elist))9 _9 f+ \. L5 K0 e1 R6 f' K! T
ltscale (cdr (assoc 48 elist))% W O( x: O6 [3 x- H% r
);setq
7 `7 P, r% {* r5 R9 A
; @ U7 p9 n$ a, s; }
(if (not color) (setq color 256)); |5 o) N( u5 z- r l C- r
(if (not ltype) (setq ltype "BYLAYER"))
/ m1 a6 e) Q4 }9 _/ P
(if (not thickness) (setq thickness 0)), l J( M0 u: x& |' x, L- L, K7 R
(if (not ltscale) (setq ltscale 1))
' R- C, c+ F( X6 J( t: W
- V- r1 ?. U- P/ \6 S. T. X& y
(if (not width) (setq width ""))8 r( n! a* Q2 E. O
(if (not elevation) (setq elevation ""))4 v5 y! S. P! }1 |3 F: a. I
(if (not height) (setq height "")) Y0 I" M2 L( Y8 w3 Z3 i
3 s" E& O. H5 Q8 G" Q$ B- o% ?( q
(setq go T . n+ L+ q; u/ e. t
chk-col T
# [9 W; F' t( m7 i! `
chk-lt T 4 y+ X+ F; u8 c0 W, z" l; F8 u
chk-lay T
" l I+ T0 R9 n
chk-lts T
/ v1 X3 N7 a& u$ G# H4 \, @
chk-th T
2 L* Y# P9 _/ o% O5 z
ctr 0 _0 g) _ s, B; ]% P. N" x
);setq! z8 h" H! C7 B4 t, h
! A) `( x* N" s2 X, {& n4 k
;; Page through the selection set. When a property+ h1 P, _5 B3 A' S. l5 I1 I
;; does not match, stop checking for that property.
' {$ I* i! J6 z( m
;; When the selection set is not homogenous, stop checking.3 h8 V; `) h* \9 O
;; If all properties vary and the set is not a type 1
) A6 G8 e/ q: k6 i s0 J, E
;; (polyline) or type 2 (attdef/text/mtext) set, stop paging.
) g) I$ U4 y! Z
4 B, }( C: @8 r3 b4 q
;Lets set the eflag so we know if the selection set includes any 4 h) j5 C* i+ l% _2 {6 O
;combination of polylines, lwpolylines, text, mtext or attdefs.
8 ^% y; s& }, }, I
7 ?( Q7 I( \' W7 i5 I9 o; z
;watch out for 3dpolyline and 3dmeshes here! @rk 10:17 AM 1/30/973 ^; p, x! `6 B: p0 j6 S
(setq eflag 0)
6 S, j& ]+ P% k1 Y' ~
(if (setq poly_ss
+ p; u' Z. T6 F- J: Y& u0 @4 b
(ssget "P" (list '(0 . "*POLYLINE")
7 r9 u5 W/ ?# W. T2 f5 A5 Y! m
'(-4 . "<AND")
3 X, p9 J/ r h- @4 v: i4 K
'(-4 . "<NOT") '(-4 . "&=") '(70 . 8) '(-4 . "NOT>")7 |. I7 w. K5 U8 C$ p" R$ p0 @
'(-4 . "<NOT") '(-4 . "&=") '(70 . 16) '(-4 . "NOT>")
) K) j( {5 z3 v/ Q; i) U/ Q
'(-4 . "<NOT") '(-4 . "&=") '(70 . 64) '(-4 . "NOT>")
# [- h% V6 q5 ?) X6 @
'(-4 . "AND>")
x) _* n( _, U+ J
);list# j$ E9 {0 S0 y5 ]$ a4 U# E
);ssget get 2d polylines (legacy and lw). \6 p8 U/ c# n6 x- A# F
);setq
) } i" J" ~2 v2 Y( a- G
(progn
9 F7 G: c6 H/ Z% ~# Q
(setq eflag (+ eflag 1))5 r) D* E2 A3 b3 G9 s
3 G* f! H2 O; p( g( S8 N
(setq tmp (entget (ssname poly_ss 0)));setq
% Q- m' ^; V4 W2 R4 m& a, _* O, _
, h: J4 t: ` q3 ?7 _
(if (equal "POLYLINE" (cdr (assoc 0 tmp)))
2 s0 }9 i6 C$ F9 S( K8 O
(setq elevation (last (cdr (assoc 10 tmp))))
! E0 J5 s6 m2 m. t2 [: c8 {
(setq elevation (cdr (assoc 38 tmp)))
8 ?( `# k% C0 w8 c
);if
* i4 n9 d* u8 C
(if (not elevation)
& L+ K' i( p7 b T
(setq elevation 0.0);setq
1 F- U1 d* X% l0 `; I) p% ]
);if" @$ o8 z2 Y9 |+ \
) C! P+ B& w% j% ]# G {# q9 H
(setq tmp (ssget "P"
! n8 h% ?+ Y8 T* }
(list
G& e* R/ z' U$ j( `/ Z3 p
'(-4 . "<OR")& { u& ~% G" }/ [' |
'(-4 . "<AND") ! t3 \6 s9 e5 }8 U# v' g+ |
'(0 . "LWPOLYLINE")2 f5 T: I# s- V& `
(cons 38 elevation)/ D4 B3 A! b& _* s
'(-4 . "AND>")
5 l3 Q2 c5 }6 x/ n. F8 m
'(-4 . "<AND")
9 n" ?+ P! W+ `6 @$ p, c/ }
'(0 . "POLYLINE")
8 u; h& h o% k3 |) n
'(-4 . "*,*,=") 7 M6 a" _' [' k! L7 M0 s
(cons 10 (list 1.0 1.0 elevation))
) f7 J4 C8 k& v8 e1 k
'(-4 . "AND>")
" n1 J: A1 F# `
'(-4 . "OR>")
4 {8 U2 B' j; B" R( f/ s) [
);list# W9 |& K) T6 ^1 M: d6 j
);ssget
( S2 Z% Z7 L/ e% G) z5 T' F, ~
);setq
1 H0 ~* Z- i* A5 \
7 Z1 Z# z- E4 [& ~/ ~; i
(if (and tmp ( c4 T8 E( c/ |& }
(equal (sslength tmp) (sslength poly_ss))0 q) b" F; ~% V9 C. z. z, O
);and
1 g4 }( E3 ?% D
(setq elevation (ai_rtos elevation));setq" E7 V9 T. r: \* Y" e
(setq elevation "")% r2 c. T5 M) r; p2 \ K1 g6 ]
);if# j0 q7 r) B5 X- U# w7 t
+ D* Y! Q9 s9 C4 j9 t/ h
(setq width (pl_width_getter poly_ss));setq; ~, W: v8 f+ M9 Q p
, h: r7 F9 _6 Q$ d
);progn then 2d polylines and/or lwpolylines are in the HHHHHOUSE!
+ h- U8 _! B& A; A2 w/ R7 q
);if T0 q( `2 T1 ?# e
(command "_.select" selset "")3 x% j- f1 Z3 j" h6 m7 M
$ h. \9 p8 r( B
(if (setq txt_ss
' \# [ A& ^. j+ N: Q6 F4 m4 w0 r; U
(ssget "P" '((-4 . "<OR") (0 . "TEXT") (0 . "MTEXT")
- ?1 S3 m* H. C
(0 . "ATTDEF") (-4 . "OR>"))
* b- A3 `+ Q0 X) ?' Z! y+ H
)
! |, U2 i* Q' W3 {1 B
);setq
. {7 J6 u8 _, t2 r) d) [
(progn
~2 @. I j2 }
(setq eflag (+ eflag 2))1 l- d9 K3 W. p! h" Z
(setq height (cdr (assoc 40 (entget (ssname txt_ss 0))))
; V/ W+ l; [8 u5 }; }1 n# ~2 J
tmp (ssget "P" (list (cons 40 height))) 5 {) _4 b# e+ v$ d1 R
);setq
8 J6 |& `5 C% H
(if (and tmp+ Z) n i; J. ~, b) V; ]0 _
(equal (sslength txt_ss) (sslength tmp))
$ o) m7 Y3 P) I7 A' y+ G
);and
% K t. X; v7 q0 M
(setq height (ai_rtos height));setq ;@rk need to translate from float
. Z* ~4 Q, [% M
;to string and back again easily- a$ R+ h3 ~7 F! K6 t3 \. `
(setq height "");setq else the height varies
* h1 Y, h# w' \) y
);if5 N. j9 d/ |; N) e
(command "_.select" txt_ss "")
+ L3 X7 P8 P/ m& n) F
(setq style (cdr (assoc 7 (entget (ssname txt_ss 0)))) o% v9 s3 m N
tmp (ssget "P" (list (cons 7 style)))
2 N0 a" [* X( U: m( o, ]2 D: S& l0 D* H
);setq ! ?: @( m3 a4 u; t r
(if (not (and tmp
6 o( g7 M6 i4 r! E% j' a
(equal (sslength txt_ss) (sslength tmp)) # W$ k; d1 a" I& w% r% ?1 ^$ d+ P
);and* I7 |1 N$ D! e2 o b; P! S
);not) j$ {) r, l- l% O9 h) A
(setq style "");setq then the style varies , G; Z6 x- i5 N! h
);if
: ]( e2 W, t. s- K) H. |
);progn the text type objects are in the selection set- a3 ~6 Y& m3 M6 L
);if6 E/ T( z2 ]" ~: g6 ^* d$ [; ^& Y* G
(command "_.select" selset ""); v6 K( _8 W! m! j1 r$ _
6 t+ q& {( f j5 \$ H
(while (and (> sslen ctr) # z& \: [; C2 N& T: F! c+ E6 i
go% J. g& ~) {1 w; _
);and
/ j$ G2 y! p! u! S0 H+ u; E
(setq elist (entget (setq en (ssname selset ctr)))): r' K G* j& W9 H& t0 v
. [( X( L8 l7 ^; f6 k, l" f; h
(if chk-col (match-col))
* c7 }; J3 |% X
(if chk-lt (match-lt))" P5 D$ ?( o& b+ E
(if chk-lay (match-lay))
$ q- W$ _; u1 B1 U# T8 y. y' a1 C
(if chk-lts (match-lts)) e) \ _% y. l! ?
(if chk-th (match-th))
9 X7 ?: D7 C0 ~; t1 C5 d. O
( t I% B/ f$ Y
;(if chk-etype (match-etype))8 @, h3 T& q" f. B) b
: O2 v, |! ~* m# c
(setq ctr (1+ ctr))
w8 [5 ~" e( i& m
(if (and (not chk-col)- b# h" H( d; |& S
(not chk-lt)
# S. Z1 F% X+ c
(not chk-lay)8 o$ L: z& P! ?4 A/ ^+ M
(not chk-lts)
' J; J* c- I/ M( {0 ]
(not chk-th)
( y8 O6 l4 U& P' q
;(not chk-etype)% R$ w3 n' _6 T7 N. h
);and
, f; w# r- ]* b$ w' _( O
(setq go nil)* U& h( Q+ E5 u5 Y9 z
);if
; @2 I% [/ ^5 m7 V+ J5 r( W
);while4 {( Y+ @8 s/ G: N1 D) ~$ A$ U/ Z
! j4 O1 D7 L/ F4 w; H
(list color ltype layer thickness ltscale D" i: Z r D9 T$ \
width elevation height eflag
! e% `5 q( |' B. o/ T
style poly_ss txt_ss
2 y8 E7 O1 C O1 ^' \6 [9 L9 e
)
" k7 M/ }. e, P% d/ ^7 n
);defun getprops7 V: g8 W- V/ t+ ^* B9 x
/ G }! G' N6 L H
; This is a speedy little routine to tell whether the polylines in
+ [/ @ z5 d8 Q
;the selection set argument are of varying width or a constant value.
1 J( Z0 c9 a" n2 m
;Looping through the vertex's has to be done for old polylines when % b2 i' j: D# G4 S& w( y$ ^( n) `
;the polyline header has width values of 0.0. Basically, in this case,
7 P1 e0 `5 j9 |# v5 p2 r! H; T
;information in the polyline entity header is abmiguous. Width values 6 ?- j1 x* G2 E( V2 V. d3 {
;of 0.0 in the header entity could mean the polyline has a constant : c: ~( y" s3 c, ~7 j* z. x# r
;width of 0.0 or it could mean that the polyline has vertex's of varying # ~2 Y& `0 n0 h$ ~' w# _
;width. ]) Y( X4 _* K" `3 S
;
# O8 N4 p' }+ M
; It's all in wrist. Err a.., I mean it's all in the 'if'( k t: V! o4 q+ _1 a- }& h
;;* c, y3 [& h" D5 b5 \1 i! b" w! F
(defun pl_width_getter ( ss / ss2 ss3 n na e1 width width_a width_b flag flag2)
[" n$ S6 J% Y4 w x4 ^
! N$ X: R3 l* _ }5 w! j* d7 M
(if ss $ x- U& t/ p+ p$ o8 \, t
(command "_.select" ss "")7 n; K6 U3 ]: F: T( t
);if# a3 J$ M% S" B+ y# h8 f( n9 l
(setq width "", _0 ~+ R b' Z# B, a
flag nil+ l) |: |8 \2 P W4 G
flag2 nil
b b% c( ~+ q! k c! v
);setq! I; f+ _* i( H; M
(if (not ) |; D U3 C+ i7 f: P2 i, K9 U
(and ss
$ c- F+ v* i7 R) q. q6 B r6 a
(setq ss2 (ssget "p" '((0 . "LWPOLYLINE"))));setq
, i: Q$ V6 y2 s8 v$ C7 J+ \
(setq na (ssname ss2 0)
- n% A" S% `, J
width (cdr (assoc 43 (entget na)))5 p8 I' j+ o: [( m! g3 Y
);setq$ Q) s( S( F' n( m
(setq ss3 (ssget "p" (list '(0 . "LWPOLYLINE")5 K* F- f" B" D p
(cons 43 width)( M6 C* X+ T$ K% |$ B$ L0 z w t8 M1 R0 B
);list) q0 H/ S) ~- M+ H8 w5 h
);ssget: v6 Q3 q0 f- [2 _3 J0 x8 t! Y5 a3 w
);setq: n8 U2 ]3 J& L5 p
(setq flag T) $ y: Q7 Y( U) J& ]1 Y( H
(equal (sslength ss2) (sslength ss3))2 s/ z4 W; y4 l% M7 Y' B1 }- h
);and
/ _4 Y1 m& m6 B
);not
, l6 s: Y8 v/ t* Q' G0 x
(progn
, r% @4 h4 M; B4 Q1 \( L
(if flag
/ {+ |, d7 @& l" ~8 |
(setq width nil) : H/ Y3 [( W7 q! l9 x/ A; [- R
);if% b" V5 O e# _: w0 w
);progn
- g( G4 P6 w( h+ M6 h2 J/ J R, ^
);if # }, b q5 J1 ^
- Z: R8 F8 Q! }8 p: f+ A9 o
(if (not
8 j- c0 l: ]9 n; [1 F- d+ d, c
(and / C( v& k0 y( V2 c3 v2 ~' d
ss
5 G1 l: O; D8 i2 X5 t
(progn (command "_.select" ss "") 7 I E: e* c& t& Q5 E
(setq ss2 (ssget "p" '((0 . "POLYLINE"))));setq
8 z$ ?* ] [: I- a
)
' X0 w( l- m! P. r* t( q
(setq na (ssname ss2 0)
, T- w! ~' b1 w" J7 C/ G4 d
e1 (entget na): y) G$ i* q% w, R! @' _ f
width_a (cdr (assoc 40 e1)), ~' q$ b. h- X( ~
width_b (cdr (assoc 41 e1))' D4 f) ~3 X H7 G d) v+ |8 C
);setq
4 C, O' u/ p! P4 M% D& h$ [
(equal width_a width_b)) A( } _ [' q$ e! `, e) Q
(setq ss3 (ssget "p" (list '(0 . "POLYLINE")5 b2 ~0 B6 i) ^: |
(cons 40 width_a)
2 n! S+ ^& N' {- l* l& ?
(cons 41 width_b)" P7 n c! R1 D8 k z* X; U
);list; k& K5 H' R+ I( C
);ssget4 S- A: \8 D3 n6 L7 B! M
);setq
- Y' M; o1 U8 U' T) |
(setq flag2 T)
9 d# W1 @) @( x+ J- x
(equal (sslength ss2) (sslength ss3))
' N' R, }$ P' b. P: X; O7 h S
);and ! N3 G. P0 L# Z# M6 U; s) ~
);not , }, b W; a2 ?. ?" m0 A
(progn$ j0 ]0 b9 Z8 ?9 w; M9 v: \( J
(if flag29 K% W7 i8 j4 Y+ [
(setq width nil);setq5 y# K+ _" R! T
);if
! a, ~5 L7 f6 D! B& ?4 `" R
);progn then: Z0 [7 H, X4 K7 M
(progn
5 C; {- w- |% O
(if (or (equal width "")
0 P9 h+ x+ |" i6 ^. A
(not flag)
- R* J8 ^* n% d3 q ]3 v
);or
8 A7 }( D0 l5 I4 Y9 ?& ~% i
(setq width width_a)) B/ S$ S7 a( q4 e/ v) M; p3 v
(progn$ M$ g9 H; D/ h$ r/ _7 q9 ]
(if (not (equal width width_a))
. M' |" h7 G# n5 Z" r: S( ~
(setq width "")) d4 c7 f! t0 D9 i
);if ( q# i6 _: Z1 y' D
);progn
% b s k: U: A' Y0 ]
);if2 m: c, H G3 }1 ^( k
);progn
' ^+ K/ m! d2 z6 D. |
);if
5 W$ p3 H- R& _8 U6 l2 J
/ y% m+ Q. [+ _8 t5 \
, M( L8 I& `1 E, t' O/ j$ z
;now for the special handling for old polylines
6 x( F* g! s( D1 V1 @6 p6 S
(if (and width
}9 |4 ?/ L. _
(equal width 0.0)
, J- ^/ a' P: B \1 X' d3 l
flag2! p9 m5 ] U' d+ Y. S
);and
8 `* C& u, Z5 x% |& U8 x' B
(progn
! y R; Y3 [5 M! p G s, Z
# t+ x+ p) h( z! Z+ E
(setq n 0);setq
2 ~( z" [" y$ M3 Q v
(while (and (equal width 0.0)7 P8 j E: `$ E% j
(< n (sslength ss3))
6 G7 N$ ] W- w8 @
);and1 A9 U# l0 ] l) I Y: o3 d. z8 ?
(setq flag nil5 Q$ d& B3 q" Z& k# [ ~4 Y
na (ssname ss3 n)( P* `7 D7 A* \4 }+ o( ]5 @
na (entnext na)! Z: v( k1 W. Z: u' h5 D8 g
e1 (entget na)
7 V) q5 o9 r& s( R5 F" h9 n7 h1 l
);setq$ V" X- w P3 d5 w, Z7 N
(while (not flag)! }3 g5 }5 y- X5 ?
(if (or (equal (cdr (assoc 0 e1)) "SEQEND")
) R, L/ C) K; [
(not (equal (cdr (assoc 40 e1)) 0.0))8 K- w; N/ y( q$ S
(not (equal (cdr (assoc 41 e1)) 0.0))( Y/ Z/ M2 P+ _1 D) K- y
);or$ G8 ?" {# D E+ M
(progn" }) d9 k; J( J9 y% j) P
(setq flag T);
0 U+ Y' r0 E! E8 U4 X* E
(if (not (equal (cdr (assoc 0 e1)) "SEQEND"))
- N3 K" S. u! X3 L# O$ r
(setq width nil)
( e* r( |4 l7 I c
);if0 L0 u! H7 D' y3 b, G9 a. c( |6 ?2 j
);progn then jump out of the loop
8 C7 W) {" ]7 U7 y
(setq na (entnext na)
- D# [- G0 h9 ~+ G6 E
e1 (entget na)+ s9 A' ^9 x8 S5 K m
);setq , r. _- a. q7 O2 X2 A+ c
);if
0 w$ }+ k- `# g/ m6 W8 q
);while2 [3 g' O/ `. s/ n1 ]; Z2 N
(setq n (+ n 1));setq ( L) X" T- E9 M! A
);while , o4 u; g1 T: W7 q4 K! d8 q# K
; z7 t* D8 O/ h' ~
);progn then it's a legacy 3 h! P& h4 V0 X e5 W0 j( ^5 P
);if ;legacy polylines that may have varying widths 5 G7 R+ h+ d! r5 ? J B+ \
: ]9 z6 s v" P' U0 V
(if (not width)
' e2 P$ t$ k% L$ V9 _( p
(setq width "");setq
' A) n- N9 X, ?- [
);if B, ^3 l5 O0 {
(if (not (equal 'STR (type width)))7 p8 l& z; R( E7 \4 a
(setq width (ai_rtos width));setq 5 h- p' A D, m
);if ! V& o) z( U. [. H. V3 X
) [" ^ j1 g! d
width
4 @+ B# q6 V) m$ [8 B
);defun pl_width_getter
2 b) I7 r# y& g& i: p# |0 O
/ T8 C8 ^3 G% \( f9 u
M1 J2 y! `$ y( M- Y
(defun match-col (/ ncolor)2 Q! j1 S# F- e* [! z* W+ r
(setq ncolor (cdr (assoc 62 elist)))
+ Q/ E. t, A7 {# |' j1 S+ t+ Z2 g6 [
(if (not ncolor) (setq ncolor 256))+ f3 {+ K5 V9 q7 i' K- \
(if (/= color ncolor)* u4 q& R" {( \+ k6 X! e
(progn/ I) A! {1 b4 U2 j
(setq chk-col nil)
8 [5 f& i1 w( [8 F* h3 N
(setq color nil)
2 u% B5 d7 q! C4 M& \2 l
)$ {8 Y! M5 Y( `8 t% f4 D% u! L7 y3 U
)
5 d/ R. w$ W3 d+ f3 U9 t# C) F2 R
)7 h9 |' v# S; n" W# q
: {. _& i* X/ x. a0 w' v4 Q
(defun match-lt (/ nltype)+ k! R" [/ Z2 U+ Q' m; V0 ~' d
(setq nltype (cdr (assoc 6 elist)))
! ]% X, j. S y+ q* l) B0 K+ `
(if (not nltype) (setq nltype "BYLAYER"))
2 \; w8 C1 h& L+ |3 S1 H* I/ s
(if (/= ltype nltype)
, Z- S# w/ l, B4 }! p% n
(progn
6 ^8 V0 g) _ C, {
(setq chk-lt nil)4 o) V- S3 B* X5 T. y
(setq ltype ;|MSG0|;"Varies")0 Q1 @; f2 I8 x3 Z, F3 `/ b& G
)6 ^# V$ `" _! Y4 T
)
2 E% b/ H+ V( I& Y
)
X) F" [/ Y+ f+ Q/ p3 `
) _$ o+ D" |! }( b
(defun match-lay (/ nlayer)
- B; E! J0 g( v t1 h% O
(setq nlayer (cdr (assoc 8 elist)))
, f; u+ I7 j% M! L8 S# G. h
(if (/= layer nlayer)' Q4 Y {; n" U# V& F
(progn
9 q2 U) |0 U) \2 @3 b$ z% q5 i
(setq chk-lay nil)
3 m! ~6 b+ O5 s$ E" \4 r+ T$ C
(setq layer ;|MSG0|;"Varies")
& n4 N g) T+ @; d6 Q8 O
)
% h6 u9 `* i6 g, c, y
)8 V% j/ X6 u) l: k" n% A
)% B) o V1 p' G6 ^- j2 p
0 Z" W. n1 H f
(defun match-th (/ nthickness)& y p- m4 G; M( u3 q
(setq nthickness (cdr (assoc 39 elist)))
% m& O+ @6 q7 ?6 m9 d0 ^& f
(if (not nthickness) (setq nthickness 0)), R) U- Z0 S& l9 O" y( h3 _6 h2 L
(if (/= thickness nthickness)$ z7 {& f5 _5 ]7 @+ G1 K
(progn
" Y8 X0 P$ |: q$ i( ?. b" Y k
(setq chk-th nil)3 F& M4 x/ w' ~8 c, W/ K' }4 I
(setq thickness ;|MSG0|;"Varies")
, O* P3 H! |8 N8 C4 a& k, h9 W
)
1 @" l+ U9 P; f/ Y- _- m; }
)& ?# b; k+ t7 q" {
)
' l5 y3 j/ i0 Z" R/ s; _3 e
: r7 ^6 E8 O# N; I. e6 _. d/ _0 v
(defun match-lts (/ nltscale), M+ b5 j; a' t- c" I* ?: N8 F
(setq nltscale (cdr (assoc 48 elist)))
! o7 A7 a; P9 k0 Q* O; g
(if (not nltscale) (setq nltscale 1))! u6 l5 ~ M8 U6 j
(if (/= ltscale nltscale)" f4 }; T# ?! d
(progn$ V6 u& a9 `; W9 _
(setq chk-lts nil)
(setq ltscale ;|MSG0|;"Varies"); V: M. ^0 b$ V" B6 C" H
)
9 ~$ R- V% _1 e4 v' y$ _2 r9 @
)
4 V) }( q! \( j# ?
)
8 B ?8 J" V( ~$ z% A, f
+ M1 R* z8 R8 |: C8 a- W
;;( _0 @3 y% K/ Y! l: S- @
;; If an item is a member of the list, then return its index number, else
5 o8 x) B7 `; d1 S' A0 Q
;; return nil.
0 L$ w7 ^: ^; v+ C/ K2 u/ L( G
;;
6 Z# f Y6 p& v/ g Y C
(defun getindex (item itemlist / m n)# @( D0 F" W& L, A. j) N7 C
(setq n (length itemlist))
. d: Q- j4 z0 C7 _' P2 m4 C; K) V
(if (> (setq m (length (member item itemlist))) 0)4 a# I& Z! e0 [% C% r
(- n m)
2 j' V& h$ N; O+ ]# \
nil
2 l1 x# C$ k. q& s# ]- E
)
* i' r# {0 E3 A. Y; G N. P3 x
)
; A0 ]! v. Z; J2 f6 M# K2 N
;;
3 v/ Q4 k) t6 ^. B3 f! C: Z
;; This function is called if the linetype is set "BYLAYER". It finds the
' S9 U0 q) U, U+ ]2 f$ }
;; ltype of the layer so it can be displayed beside the linetype button.
5 \! f; E8 \6 }, A9 N
;;
1 K8 ~3 T& b7 T
(defun bylayer_lt (/ layname layinfo ltype)
3 k1 W9 Y, `% @9 ]9 O6 \4 c0 ^2 g3 W
(if lay-idx( ^% I8 e7 I! j$ t+ z) ^1 |
(progn( d. R- \- W0 ]8 Z, `
(setq layname (nth lay-idx laynmlst))7 m# W; U; _5 _6 H5 L3 o
(setq layinfo (tblsearch "layer" layname))- o. X$ |) d# `" |
(setq ltype (cdr (assoc 6 layinfo)))
' v. w2 D4 A0 M# Z3 l
(strcat "BYLAYER" " (" ltype ")")
/ i" g2 O3 L- j1 a* m& i
). B: P" D9 s& C8 A3 E2 F) m
"BYLAYER"5 H _3 F+ _9 [# W3 y- h, I" u
)
8 u# k2 G5 |% s! z% \
)
4 k& B, A- ^% `) _, H+ ~
;;
, o6 u2 e- u0 Z' m
;; This function is called if the color is set "BYLAYER". It finds the
" }2 [2 A* z5 o' W& S
;; color of the layer so it can be displayed beside the color button.% y$ t. @3 `' K1 \4 @' o4 Y- B6 q
;;
" o- | T: j" c1 A
(defun bylayer_col (/ layname layinfo color)2 K& d! l& ?$ P; ?: ~4 K
(if lay-idx1 U+ s) v/ b9 U. v; k }
(progn' h8 ]6 t- e/ O/ @
(setq layname (nth lay-idx laynmlst))
; m1 K8 \" I4 U
(setq layinfo (tblsearch "layer" layname))3 G% G1 z3 ]# v- s: g7 u
(setq color (abs (cdr (assoc 62 layinfo))))
. {3 r0 W) z4 n* g% z; n3 m$ y
(setq cn color)( s4 d' l5 P5 T. Q9 e5 k+ |
(strcat "BYLAYER" " (" (colorname color) ")")
Z W3 z5 s/ }6 x
)6 l: M' o* c+ `7 L, H5 p
(progn1 a( T5 ]8 O$ J' Q( J
(setq layname elayer)
+ V, s8 @9 @. L4 E8 n5 U# A
(if (and (/= elayer "")
: C8 z; {. p: `. y
(/= elayer "Varies")# p) x4 Q" y7 F# O! i& r8 }
);and/ p2 ^6 O' x9 z$ p. B' k
(progn
" R! S1 `1 ]9 _ q2 s6 `: U% s
(setq layinfo (tblsearch "layer" elayer))
) q! R# f3 h4 |- r7 B8 r3 }6 F
(setq color (abs (cdr (assoc 62 layinfo))))
( @: j! t3 {7 E; f
(setq cn color)+ E6 ]# H4 T- k$ K3 o6 N
(strcat "BYLAYER" " (" (colorname color) ")")* c5 X4 o+ w1 Y) u6 X6 O+ b R
)
, _4 u [, g" n3 k7 b) i8 M
(progn6 b' e4 @ M& F! {* B
(setq cn 0)
3 M% {$ q( B3 s2 h4 m
"BYLAYER"
* B1 u4 x5 t$ d0 }" r8 K
)
' M+ ?. a) `" x2 |0 L0 [4 M
);if
* C- e0 u: z/ b# G: p
);progn. a; P4 w! t' L- ^
);if3 f- a* c5 s( S5 w' v9 E4 [4 o
)* r( R) B7 j. o( R( a# T
;;
3 a) m* L$ _5 J+ P: e4 K2 \) u
;; If there is no error message, then close the dialogue: C1 \5 f8 {; t( [9 f3 ?( d
;;& i# o2 c, B. u- @, V$ ?9 Y
;; If there is an error message, then set focus to the tile) H# L, u" Q% M+ N
;; that's associated with the error message.
- R, \6 c% z/ J$ R6 }( H
;;7 Q( ?' X* V8 ]1 R
(defun test-ok ( / errtile), ^/ B ]- n$ Z' {
(setq errtile (get_tile "error"))% A {& k" ?4 O; S8 }+ u; U
(cond. \ k% [/ [2 M1 d5 @
( (= errtile "")- t/ C( V& ^+ l2 h
(done_dialog 1))/ j6 o$ m4 e R0 A
( (= errtile "Invalid thickness.")4 `3 v- g8 Q( y6 c5 k( H3 y
(mode_tile "eb_thickness" 2))
- E; A% T" d4 i/ o. `3 d; h) I
)1 d7 P1 b# v% c- u+ s
)
( Y# f6 r9 A. e3 J0 j. U
;;
- J, ^0 r5 q( m2 z1 X( \! z6 D
;; OK in main dialogue.' w$ C, t9 L( `, R
;;& c& P/ h+ ^- ?! L( m& o
(defun test-main-ok ( / flag)
- T5 G* @, u( a* h L; D" ~
(setq flag T)
, i5 x; E w7 E7 t% v; {: w! |5 i
(if (not (or (distof (get_tile "eb_thickness"))8 `) y0 n& t$ b# y) Z0 M8 S
(= "" (get_tile "eb_thickness"))
1 M1 V6 K' h* m. w* n. @
);or5 s' ?( B4 U( [5 i
);not
3 C. k8 n/ ~) k
(progn
( O/ D% @7 `& k: e
(set_tile "error" "Invalid thickness.")
) n8 S% x6 j4 `% P. G: m0 g; N
(mode_tile "eb_thickness" 2)
: A/ N- ~. {$ d+ U' b9 l
(setq flag nil);setq3 x; D4 ~1 T, o- C: {
);progn
P1 k& z1 H/ u8 o
);if
3 A- e R7 S1 U. ]
(if (and flag
# p. D& M1 z2 F/ M9 v( C4 ]: t
(not (or (< 0 (distof (get_tile "eb_ltscale")))! ]7 v1 w+ M5 h; s5 c* V. b4 T4 \
(= "" (get_tile "eb_ltscale"))
, g5 q/ N6 a+ g3 n6 a& Q
);or
& C- p* N1 A$ i# P
);not4 ]1 q( }" I6 _, O: L1 S5 m
);and " f7 X( _) Y; }
(progn
# ]2 p5 g- A8 B/ H
(set_tile "error" "Invalid ltscale.")
# E% N: B9 I+ n% t
(mode_tile "eb_ltscale" 2)+ F3 w E) Z$ a8 o, H: \! p
(setq flag nil);
. G" V7 U- R1 r' O
);progn then
! Q9 b/ O- u) N! C9 Q9 Y
);if
. `' O2 H9 o# k U
(if (and flag
* N- W0 K# N# B% e( K+ a; {! j
; Don't test the tile's value unless it's enabled.
, K2 v7 P9 F4 f' v) I$ _8 K5 a
; We're not set up for the display-only value
( }- G5 _4 ^) v3 b' d5 _ U& H; h
; of "" here in the error handler.
! R1 A, S- O" {* R: W4 L0 L
(= 2 (logand 2 eflag))& N" N( t' ` d
(not (or (< 0 (distof (get_tile "text_hgt")))% s- Q0 o' ?3 ?) E9 Z& I5 k
(= "" (get_tile "text_hgt"))
8 y" m7 x% Y6 s+ g
);or' m7 c9 _! q' F9 n) P
);not
( ^$ J3 C* J) O6 m$ N4 @4 H
);and0 y# m- _ G) R l
(progn
' h0 N1 A- l. g; O; g, ^# }
(set_tile "error" "Invalid height.")
+ N0 A7 l" E% ]9 C% c
(mode_tile "text_hgt" 2)/ x6 P' c( b' F9 W6 Q
(setq flag nil);
) F: k2 v5 ]5 h
);progn then
& N0 K6 n/ U* C2 T5 X7 y% ?* H
);if
2 u, t! |! ?6 |- \- m9 B* T4 v
(if (and flag& D( T, B- c, P" ?! r6 t1 j
(= 1 (logand 1 eflag))( N: z5 m' h$ l8 Q
(not (or (<= 0 (distof (get_tile "poly_wid")))
! Z# ~4 }7 v0 k9 \6 U1 J9 [% E2 C
(= "" (get_tile "poly_wid"))
7 W4 t5 m7 J% ~3 U
);or) A! B! y6 g' m
);not
4 J. G) U1 c6 l R3 _
);and2 {3 t, F; O- R* D% t6 C4 S
(progn( S! s8 [/ e5 g$ B5 m, G- \8 c6 h
(set_tile "error" "Invalid width.")
' Z) W. m: |3 q4 p% r4 }
(mode_tile "poly_wid" 2)
( s9 Q+ H D W& [
(setq flag nil)
4 A9 P; J1 w& x8 l6 u7 q9 D) H2 i# R
);progn then# i0 ?- @: ^5 i2 r
);if * H4 a! } W4 W6 \
(if (and flag
4 ]+ G- I5 k: j, w; t
(= 1 (logand 1 eflag)); v# V+ N: z# z" t8 E/ j
(not (or (distof (get_tile "poly_elev"))! w7 q8 [+ G, }, [$ |6 o
(= "" (get_tile "poly_elev"))
# c5 g; W- u! L
);or
8 P. C1 s# s- J
);not+ ?# i2 m7 D: \: T
);and
- S' O+ t- G- ^" O" D \% q
(progn
& h' p* w4 G# [ e% ~" o# _& n7 U% E
(set_tile "error" "Invalid elevation.")/ a3 m6 g/ j4 W) C; @7 F
(mode_tile "poly_elev" 2)
* E8 v# \* r$ ^4 T& x
(setq flag nil)
0 i/ T5 H! N" r+ P
);progn then
3 g* L/ t0 Z L
);if ; d+ s" c( P! m$ ^( y+ A) n
(if flag # }' {( p8 H; i
(done_dialog 1), [- d* X! K4 H! N% ~& E5 d
);if$ G: A5 J% G& O" P: R) m0 H/ ~9 x1 n1 S
);defun test-main-ok
: y, Y* u; G: I2 ?- W& k$ o6 d, E
2 U" c9 M) k) \: V" d1 n
;;
2 G! L2 U c' f/ K- I
;; A color function used by getlayer.
+ N# f$ B8 Y1 \: K! k- V
;;$ M3 |2 ^+ u. d! K: h8 s+ B
(defun colorname (colnum)
1 i1 P; R1 B0 C* r6 P
(setq cn (abs colnum))
9 {0 ]5 X. G: V& K, l4 Y' [
(cond ((= cn 1) "red")
4 S, a- \) `5 K, i) C. R2 q; B
((= cn 2) "yellow")
# i5 r# _6 |9 `# ^4 f; H
((= cn 3) "green")
8 \' I( ~/ ~* I5 s3 P- `* @! ]
((= cn 4) "cyan")
5 Y5 ^* ^. b! }+ }
((= cn 5) "blue")
) r5 q) Z8 W/ E% C J& A
((= cn 6) "magenta")8 e4 y) I9 S! ]- ~2 t: V$ _8 d
((= cn 7) "white")
7 I3 v7 @* w! ]. p i
(T (itoa cn))* l0 V; Y+ t/ V3 ^; \
)
! e* C6 O4 d$ ^5 K) T& W
);defun* o* D9 z% |! E3 U3 \ z2 X
* x1 S0 Q1 m A
;;; Construct layer and ltype lists and initialize all
* Q; `" X; v2 e
;;; program variables:) D& n: u2 }2 ]9 Y& C! o* L2 T) Q
& {7 Q* v+ l, d' z0 {
; (makelaylists) ; layer list - laynmlst$ `: G! F8 a1 S8 U+ w% s
8 E& H& z: s ^ o6 O
4 Q' t9 v% c4 K9 o
(makeltlists) ; linetype lists - ltnmlst, mdashlist
& N3 d# g- }- Z- N/ u2 |
# n& J! D0 Q& R/ W
;; Find the property values of the selection set.
7 s* u" [1 J+ z) B9 [
;; (getprops ss) returns a list of properties from
- l* [6 i& ~( S' Z1 s2 L' B
;; a selection set - (color ltype layer thickness HEGHT STYLE WIDTH).0 e- F' N3 w$ {2 r- m
+ Z; u0 O7 B# q% w O8 d
(setq proplist (getprops ss));@rk interesting things happen here
! ?0 ~, N$ u$ \. |, L" G
2 \* L6 F: K! Q3 N8 ~7 i
(setq; e# V& t1 p8 p" e3 i
ecolor (car proplist)! n1 S c6 o/ {4 b. X% U- c2 K% ~
eltype (nth 1 proplist): h! ^1 z9 \! E
elayer (nth 2 proplist)
M% M; F* z. j! ?$ E6 N) G
ethickness (nth 3 proplist)
7 ?9 |0 x3 j( ~
eltscale (nth 4 proplist)
/ K' Z2 d' K1 k$ X; m1 a, F+ ^8 d
ewidth (nth 5 proplist)
. j5 d, z6 V0 J* Y: f" b
eelevation (nth 6 proplist)
" z, Q% I m' P z2 Z B7 h( X
eheight (nth 7 proplist)+ o' p1 b( X: T% P2 N0 [- p
;etype (nth 8 proplist);commented out and replaced with the line below. RK.& o3 q4 c. q& C# R* p0 T/ z
eflag (nth 8 proplist)
: P. l) A" y% }) f5 U. P
estyle (nth 9 proplist)/ m2 B& A2 H! m/ p
poly_ss (nth 10 proplist)
- x" J% K5 ] Q' J5 H$ c; }/ B
txt_ss (nth 11 proplist)# v+ S" ^1 U% x' W6 O4 `
);setq
" Y. J0 Y# O J; g& R- { N" ]7 |
{1 {0 O: i8 f
;; Find index of linetype, and layer lists
$ K, N: c! C$ z) A( i8 C, y3 E
(cond7 ~! g3 k$ M. m) r2 @" J/ @
((= eltype "Varies") (setq lt-idx nil))
6 Z) X8 S+ i; I' o1 J+ b7 J, {1 J
((= eltype "BYLAYER")- @' M: I3 u3 ~: v3 \9 Y% V
(setq lt-idx (getindex "BYLAYER" ltnmlst)))
0 }! M: B3 X0 K. S b& j" w
((= eltype "BYBLOCK")
, s5 R7 U) {0 O* ?5 M% o
(setq lt-idx (getindex "BYBLOCK" ltnmlst)))
2 O3 ]- g; i! ]$ G2 V2 w
(T (setq lt-idx (getindex eltype ltnmlst)))8 f0 M9 }+ V- p" e
)% O* ~- [4 E3 M
(if (= elayer "Varies")
! h+ t2 [+ i: R
(setq lay-idx nil)
4 J/ G" f" U* S* O' b% o
(setq lay-idx (getindex elayer laynmlst))$ T2 j( O5 ~1 i+ J
);if
/ d5 w$ m t0 `+ H4 S; D
(if (= ethickness "")3 `6 A3 q/ H) X. c" B( C
(setq ethickness nil). \4 O# t. z! ~0 @$ v
);if/ w/ q7 P, W% F8 F9 x
(if (= eltscale "")7 F) a3 |. g% @: [" h
(setq eltscale nil)% \" l4 {7 E" m0 R8 h" J4 v+ E w
);if
1 y) M$ A0 B6 y: z' K
- s4 ^ c/ F% C# e1 v. f
);defun ddchprop2_init ; end (ddchprop2_init)- F3 n$ {) M% F8 V2 O
/ n6 T2 p6 Z. t) A
;;; (ddchprop2_select)) R4 I, V+ a5 g
;;;1 E1 o- P8 i. B6 |; L
;;; Aquires selection set for DDCHPROP2, in one of three ways:
* f$ p1 r0 ~: g+ C. g# R
;;;& c" p! m' w% I1 B7 h8 o
;;; 1 - Autoselected.2 b! q% g! u3 Y
;;; 2 - Prompted for.+ J1 l, b$ u! j
;;; 3 - Passed as an argument in a call to (ddchprop2 <ss> )
3 E2 \! W9 G3 X/ m- W+ h
;;;1 g3 i# W. d7 o- Z
;;; The (ddchprop2_select) function also sets the value of the
0 t7 ]. e6 l6 U& ]
;;; global symbol AI_SELTYPE to one of the above three values to
l3 D9 u x( V' g ?6 A
;;; indicate the method thru which the entity was aquired.* L. @) \( s! C+ [
2 h. x+ y, l u- N7 W
: Y; |. K) U7 a+ |* V8 z" r+ Z" `
(defun ddchprop2_select ( / )
% ]" p' @. H" X8 ^, o
* G+ {9 ^" V$ Y/ i4 n+ }' Q
* Q) y* I- z! H" ^ W9 P
;returns only entities in ss that are in the current space.
* S2 o; N( ]$ Z1 \" a* ^9 k
(defun ss_in_current_space ( ss / a cur_space ss2)$ H5 b% T1 H4 X% N
; |, `2 A' g: I) B. r8 x9 W
(if ss
9 u% M* \' s. M8 w- ?! p
(progn
) X S3 e9 N O4 e+ e D( b
(if (and (equal (getvar "tilemode") 0)
" C, Z, ?1 v+ G4 t
(equal (getvar "cvport") 1)
+ w+ a. @/ z7 G* {0 V5 \
);and $ }, z' v2 x( Z9 A0 Z4 x
(setq cur_space 1);then paper space is where we are.
. Z$ N6 P) s* z0 N; s
(setq cur_space 0);else model space.
( A4 v& F) d5 j7 m: e5 N
);if
4 l6 a) X: n2 W3 ?7 R g/ P) |3 R
(command "_.select" ss "")3 c0 Q0 ]( H5 W2 C) p
(setq ss2 (ssget "p" (list (cons 67 cur_space))));setq
6 q( b. ?$ u5 m. i5 l
(cond ;;;;;tell the user what's going on.
0 K" l* s! S; d
((not ss2) (princ "\nNo objects found in current space."))
; N6 e8 z2 O& F6 n( M
((not (equal (sslength ss) (sslength ss2))). M, x2 v. W: r/ i' d
(princ (strcat "\n" (itoa (- (sslength ss) (sslength ss2)))- J# {) ?) S1 I0 t8 |
" object(s) were not in current space."
9 M% J1 S7 W% m* _ T( T
)
4 J+ N$ [; ~+ {( e, W( _7 o( h9 A
)
! B+ R- d$ ]5 `, g! S, n* N
) # B/ t* a' C, t. j
);cond e3 E+ i* w' b0 q
);progn then4 u, ^( F% I6 e: q
);if . _7 m+ G! o$ X- ]
ss2
! m' b" n5 t8 q. c5 b# t+ g4 Z
);defun ss_in_current_space
7 y) V) |9 y* v# h
) {4 s, V, y1 o8 D% }1 m8 z/ e
/ ]2 i0 _ y/ ?0 F
;;;begin the work of ddchprop2_select
5 W. ?; p6 Q3 G0 f9 G' Y
2 f3 p- k# K: |0 i0 R& Z
;; temporarily restore original highlight setting.: K1 m' C- ?) g
(b_set_sysvars (assoc "HIGHLIGHT" (car bonus_varlist))) d0 B" j( n6 @
(cond
$ M% j! p. J+ P) K0 `4 ~
((and ss
(eq (type ss) 'pickset)
: K1 B5 A# u: O' I6 p f& v
) ; selection set passed to
$ Y0 F( f: N" `/ N* E# g
(cond ; (ddchprop2) as argument l4 j7 L8 o- F1 X5 g' I
((not (zerop (sslength ss))) ; If not empty, then+ a; z) w$ z$ S' E; `5 [
(setq ai_seltype 3) ; then return pickset.
. f6 w5 a+ b6 W! m
(ai_return ss)
( g8 a' H( w3 S
)$ S* n {0 z6 T3 m1 ?
);cond close& @' z; g3 p8 f" W4 }8 D$ Y# b
);cond #1
C* ?" n: n' k7 U/ o/ M
((setq ss (ai_aselect))) ; Use current selection
' s# B. ~% W, U# J- E3 q
; set or prompt for objects" P+ P! Z9 k) C6 H& y1 Q
(T (princ "\nNothing selected.")
5 T7 B% h/ ?) F0 g" u
(ai_return nil)
! L. }9 F8 D. z+ P! k7 E& r
)' f T8 u' F: b: C0 B+ ^
);cond close
, `) B, V- G' C; N
(b_restore_sysvars)
2 V- B1 C5 q2 L9 m; B9 }4 c9 g1 Z- F
- ?1 p- D4 v! L& L6 X
;(if ss1 ^4 Z3 J, a0 O) f ]: j
; (setq ss (ss_remove_locked ss))
# l7 u# q% y! G T
;);if$ c' j- I; ~+ g; ?: C7 }0 `: W
(if ss/ f; O, Z; H0 h# b+ c
(setq ss (ss_in_current_space ss))
2 H: v8 L% ^+ d9 p0 ^
);if
) U: s; }& o# S- G5 i
4 }( B2 ~; p) O. j! G
ss; h: p+ K5 y9 X: L6 _/ ]: A
);defun ddchprop2_select
* t0 V6 b' _$ J2 u9 a
4 H/ k' X+ G" @: i, e" E) K
, U1 v/ \% O, c7 R0 a$ a$ D& [
;;; Define command function.
9 o; r- i4 T9 G ?# J) x- W
(defun C:CCH ()
3 C7 Z3 @, T7 @# k& p U
(ddchprop2 nil)
' M0 M/ h& D% K" q. F2 m
(princ)* d' x* U% H e$ |
);defun2 C- m* n5 x& s% b6 A5 r
$ B& d% ^2 [7 P+ w
7 U: I/ O0 `. o+ }6 W, [7 I# B& t; S
;;; Main program function - callable as a subroutine.% e. m) q& u% Z" a
;;;, k( S, g# j+ u: a F6 W
;;; (ddchprop2 <pickset> )6 O# \4 F/ b5 c% |1 \: \9 Z
;;;2 o! d1 h" }+ a4 g0 F$ P5 T
;;; <pickset> is the selection set of objects to be changed.
9 V3 c. Z" f; S5 Q8 Z; D9 }: i2 A
;;;! k* h @; r! o
;;; If <pickset> is nil, then the current selection set is6 e3 b3 @) x0 _: g8 L9 A: _9 n9 C
;;; aquired, if one exists. Otherwise, the user is prompted- Z" R# O& Y7 w/ S; I6 ~
;;; to select the objects to be changed. M& n( [6 b6 F5 O, Y& b" E. m1 T
;;;
- n J6 M5 Q. ^. r$ w
;;; Before (ddchprop2) can be called as a subroutine, it must, p0 G: a2 J( X# g& P
;;; be loaded first. It is up to the calling application to# S# R: } d' {- W8 P1 D. B3 B
;;; first determine this, and load it if necessary.
8 \8 _4 ^. o% n/ [% T
% [* {2 D' Z& Q `2 D4 q
(defun ddchprop2 (ss /
: F) g% V. @, c! u" L/ B2 o
2 ^8 L# w" M0 T7 K" F
a
& p3 M8 L" P, G- E/ @! F
add-mdash8 e- A9 m5 `8 n& b) q' b- ]
assoclist
: Y' x2 x3 Z2 J9 d1 O& ^
bit-70# s; R# ^: G. a% L& e( a g$ t
boxlength
1 g# C L% T3 W" A
bylayer-lt
3 Z, x! T1 N: C; n+ i
bylayer_col
{7 j- w2 x$ ~2 t4 p
bylayer_lt
n" [: a B8 ~' u9 O* h
call_chp29 Q* n' B; \) V
chk-col
! c) Z4 B2 p% s3 Y( S6 i
;chk-etype ;var removed by rk 2 \2 d2 G0 e m0 B+ c
chk-lay
$ C0 _6 ?/ c5 Y9 I6 h( J
chk-lt& t* C, \! [5 z# h; I
chk-lts ;var added by rk
, _$ b0 Z$ K1 j2 X9 f
chk-th
0 s' u L+ H8 H1 V
cmd4 Y9 w% q8 H! W# H1 g) ]1 c
cmdecho
- H, y/ P6 W6 W, V5 u4 T8 e+ P( k
cn
4 H, K) W0 }# |
cnum
. `/ p0 p' g# G* g% I% u
col-idx
: ]' }, x. }- G9 a: z) A6 p7 q
col_def! T( {* d% H" [' d. D
col_tile
V: L* j% b" W1 _
colname
0 T/ Z6 E- U# e
colnum: J: I }# T2 A
color' B0 `: d2 k% I* z" |5 H
colorname
' i' [& R4 B" d) z# U" e# B
cvpname) y. {7 W( P7 ~; M7 B
dash6 q' l! @' p$ U q. c$ F0 a: r
dashdata% v* @' R- ^; q( j! p3 |
dashlist7 u I' a( P3 J" s, C& w0 b3 }/ ~
dashsize
. ]; e A) A& @: [1 R
dcl_id& k2 [! w' @! P' h0 {6 W6 R) X
ddchprop-err
" c9 c$ @/ Y# q
drawpattern: S4 a" j4 t1 F
ecolor
# w! J! A" {% J0 l
eelevation
, ^# Z9 y! d+ X2 [
eflag
' g& g7 y2 v# [
eheight0 O8 S; b7 { [% ^$ v
elayer
; R0 Y5 _& k/ }1 Z! _
elevation
5 u" j/ ]/ \( P# d' p4 B
elist
1 F, U0 C9 p+ }0 b) b4 ?. d
eltscale
5 q9 g: q4 w+ F. ]2 @
eltype- I% D7 z" S3 x
en" H( M! g/ F7 s" q( r
ename
$ }+ q/ x# Z- h0 s0 O
ESTYLE ;var added by rk9 L$ u$ w- F" d5 S. d+ n
ethickness
- X% \$ S, J: G1 H4 N9 m
;etype ;var removed by rk
/ C5 m) C9 T* ?( B
ewidth
. r/ j5 c( \; W' X
fchk
6 r( s7 T2 L2 _7 e* {
frozth
$ D9 t7 [. A8 t2 z' y( c3 U* i
fx' M7 l: C9 W, x! H6 d9 x
getcolor4 ~+ U9 l/ q4 ?3 Y
GETELEVATION ;function added by rk
4 k0 p5 q& k; F Y! a! l
GETHEIGHT ;function added by rk
; V) v' F! u4 X
getindex
# g/ I$ F( A6 H: j; X
getlayer4 @* P3 X7 v% T$ ] y0 `) K
;get_locked_layers ;function added and then removed by rk + ^" D; H7 n$ Q; k4 K
getltype2 b" k4 _6 F$ r, I* g; O
getprops3 M2 J: J* g# y! w
getscale ;function added by rk
1 z: x* T$ u1 P: z' b. i* K
GETSTYLE ;function added by rk
+ @0 G: h" ~! s6 X5 R n" a
getthickness$ `% t3 ]! X. e, R
GETWIDTH ;function added by rk
! w: R5 M9 z' a. j/ \! H9 }1 d7 Y
globals
( d/ N% f' {! J0 V. l% F) h
HAIR_STYLE_LIST ;var added by rk
8 J8 n$ p! i& [! I5 T
height
/ J# ~ t( M7 u, S
index
7 o! u9 }! m m# J( e! \9 N0 ~4 A5 g
item
" S5 c: q/ y* p' n7 w+ b! m% |
item1
/ N+ V Y- f2 r# K4 z4 e+ }
item2
4 \1 ]* J2 c( _
itemlist
6 Q# m" m) m R* W9 C: J( h! {8 ^0 \
lay-idx
: J" [3 W) j# H" a
layedit_act e$ N9 l4 i# |8 g3 Q3 W I% D
layer9 G* e8 C8 g \7 ^+ M5 n& h
layinfo/ k0 N% Y7 w* m% s6 w$ j. H
laylist
0 G y! b4 a1 V: _; U
laylist_act+ k1 X$ J5 k' Y% O% s
layname
4 W/ |1 p% o. S. h$ h
laynmlst" ?1 y! l0 k9 C' i& B
layvalue
$ o5 [; M1 t7 t& w# q
linetype
9 V" U) I8 M7 _$ m* E# `; M
list19 U# b) D3 l9 j a7 [
longlist
9 I0 C7 A- S/ k: u7 t4 A1 g
lt-idx4 [0 g4 y" A, j) f" A! q
ltabstr
2 j8 ~. ?: Z' J+ o7 T5 x. }& |8 d$ r0 S
ltedit_act
7 K2 c7 n v4 L. H& E7 e/ c6 Y! u6 c
ltidx
$ x. l' p) K; j2 [" M! v
ltlist+ o& q$ v* H3 p) }
ltlist1
2 ]! x( `2 [7 l1 @: {/ W0 A
ltlist_act/ q, R9 I0 U9 \4 `
ltname. w4 t/ k$ k" z- C/ ?
ltnmlst
1 N0 N4 }" H6 a/ f, S7 s
ltvalue
) m! A; G/ @4 O, r8 \- p2 T
ltype
/ i" U: E- b0 g4 y, S6 q
m/ Q+ w! D$ E+ d! Y/ `
makelaylists
, L, Z" f+ B1 m
makeltlists
0 ^, N: ]2 m0 z }, Y- u7 O( }9 m
match-col
. y: h. o5 O* ?0 ~
;match-etype ;function removed by rk4 x, i8 M2 d( h# g
match-in; o3 Y1 V* I7 n5 l
match-lay
4 J4 q( ^8 P7 ], j+ @) j: l2 A1 ~, d
match-lt
9 `4 K0 `( v' T4 \* C0 p7 x k; [7 N
match-lts
9 \/ t& P( W1 s% i
match-th
. {- V- x$ J0 J3 P5 n" J/ M
match_col
2 \. {% s3 X! O8 q
mdashlist5 g) q' m* M3 Q* B
;MPOPLST ;function added and then move to ac_bonus.lsp by rk
& R- q; y- V# s* @
n
% x" L1 t8 |$ r' Q
name7 d! ~- n; w/ Q3 Y5 a% N- q0 z
ncolor
2 ?% ?- x0 {5 T/ ^5 z2 T: s
nlayer0 j- t' j, |4 P, \4 X! p
nltype/ ^3 Q5 a8 F( ?% z2 S
nthickness
3 f7 U, n) [- s: `- W+ ~
off. m* f* D9 E, T# z& }
old-idx. L# c: m x. T2 g" }0 l
olderr
8 {3 k/ U) A8 H, ]+ s
on$ K2 w8 ]- _( N& W* _% H
onoff* F! s& X$ \. R4 a
patlist
4 N$ O8 D6 X# n q/ @
pattern
! Z( Q9 T7 Z' r; Q. O/ ^/ i
PL_WIDTH_GETTER ;function added by rk+ K8 x0 |. [, ~2 Q/ d! c0 Q
POLY_SS ;var added by rk$ a7 S3 x0 ]: j; X7 J
;POSITION ;function added by rk and then moved to ac_bonus.lsp8 ^3 q5 D2 T$ ?: ^
proplist3 d2 z' n) _$ q1 R+ }
reset-lay
. z3 Y3 b' m# i5 Z) z
reset-lt
) ^: L; P* m! r1 \) p2 g
s% r3 h* K# A* X/ S/ c
selset
6 O- s% k- e8 o3 u) l+ N7 o% e2 K
set_col_tile. B% t! ]# s* @: z# D5 g# i% G% W
sortlist
; V7 _ c/ W: `3 T
ss% J# D% t) T0 S0 z V9 V: j' H
ss_in_current_space ;function add by rk.
7 `* O1 R6 l5 D
ss-index
# n4 x' {# O" Q1 Y: ~* q
ss-length
7 `/ A3 O$ e# W K6 t4 V7 f
;ss_remove_locked ;function added and then removed by rk.
& }: i% U8 ]0 p+ r1 G
sslen
4 ?6 D- ^$ {9 a2 _+ J# u* b
temp_color
0 R8 s/ v2 `8 k+ N; A1 E P3 |" |
templist
/ s6 |% ~# C$ T+ v# p2 e, U- _$ A: w
test-main-ok4 D3 z" c7 j# Y: l% ?
test-ok N' v) ~4 p8 h$ C6 y4 @" }- u
testidx2 s0 i- }' H, f4 v* r
testlay
4 u$ U+ ^9 @7 B z' D" n- S; W
th-value
" b/ n/ b _2 O( m6 n7 C
thickness
1 P l& r4 p0 b0 x4 h' K1 e- x" q+ L
tile5 ^8 _, d9 L1 t$ N6 y
tile_rect1 K6 z' w1 J- A, b" r8 W
tilemode6 ` c3 R* s/ Q. l. b4 s# y
;TNLIST ;function removed and moved to ac_bonus.lsp by rk
- i; J& j! z+ Z5 B" \9 x( M0 s+ B& v
TXT_SS ;var added by rk |" ^" h5 p% ~5 X9 Y
;undo_init ;removed by rk.
# l9 u: z3 L. {5 a) s
vi
- K4 a. j/ N5 z+ | F' T+ I) R
vpf
+ ?& R) ~5 b, y" c9 r
vpldata
1 {7 L" a+ b/ O; k6 L
vpn0 e) a! H& H7 s; }3 T6 B
which_tiles
* y# Y% d5 j9 q' b# e5 T
width T9 I$ ?. l: `2 D: [6 M
x
- O# X% l5 X; G5 }, a
x1
V9 o1 V0 S6 q; w) e7 U; D6 n
x2
xdlist
- `! {% ~ o& `( D; j. H& ^+ W
y6 k; z' q; R3 |0 D# j
y1+ v5 k# R+ K; K' a& Z! h/ ^! ~0 i& w
y26 b: B3 P( C0 U5 h9 I; |7 Z- e) I
)( {. ?4 o$ N, n) |7 E
% l5 ?0 Q! O# P2 f, g% W0 P: r7 J
(if (and (not init_bonus_error)
; J9 S* S. \! _/ `1 J2 s
(equal -1 (load "ac_bonus.lsp" -1))
4 [: @9 Q. y7 B+ |
);and- G* n1 x# W/ e* U. f g3 H8 N
(progn (alert "Error:\n Cannot find AC_BONUS.LSP.")(exit))
9 N9 ?6 H) e6 u* d8 {( G9 r2 c
);if F. c+ I1 C+ j1 Y
(init_bonus_error (list
. d9 N/ h v" r3 B# m4 o d
(list "cmdecho" 0 ) \+ Z7 a2 ^1 a2 J
"highlight" 0
4 Z! X- t: @+ I1 O; P5 M# C
"regenmode" 12 {" O: F# q+ Y
"ucsicon" 0
& D( t$ b6 C# O
) % L8 |0 X/ D; ` l
T ;flag. True means use undo for error clean up.
+ [5 s2 j; d# Z& @, F5 n6 H3 ]
);list / `" |: |0 J7 s2 T4 O' e
);init_bonus_error" _* Z4 y, b* w1 `
( c# k! [% D8 W
(cond
. e/ P1 k# Q1 w2 W: b2 z
( (not (ai_notrans))) ; Not transparent?/ j' o2 w% N- C' K
( (not (ai_acadapp))) ; ACADAPP.EXP xloaded?. ]# I+ a* ]+ y: _
( (not (setq dcl_id (ai_dcl "exchprop")))) ; is .DCL file loaded?; \6 w4 P6 z' B6 ~: L
( (not (setq ss (ddchprop2_select)))) ; objects to modify?
6 A( x: P3 @ Q. o
(t ; ], u8 k# r, b$ I# f) j2 J
;(ai_undo_push)
5 W) a( G& Z% H/ }4 u, S8 Z
(ddchprop2_init) ; Everything's cool,; [8 [# w# v' R7 x5 t7 v
(call_chp2) ; so proceed!
! D4 D- n1 X: n: G0 I
;(ai_undo_pop)
0 l2 K! y9 R0 s8 [# V
)
$ @# a$ c4 i/ n* z, `" X# u
);cond close9 l' E( x( D4 y/ |( w P
) D* P! b: Y9 K$ f
(restore_old_error)
, q9 P- Z$ P6 v/ E9 a- J
2 j! C2 ^6 L! a# a
(princ)& G2 P( |# M1 w8 p. D- {
);defun ddchprop2
( ]! _: p( B! I9 M5 E/ z
& q; c6 [9 n0 P% z; K' E( G$ E! |
;;;----------------------------------------------------------------------------; s h X7 m) N
* m2 w# G( y! s \( ^3 y5 j
(princ " EXCHPROP loaded.")
' V+ k' [! v% C- l
(princ)+ T4 r+ l- c; J6 \. U0 c, F2 G
5 J/ M; e: i4 x# k( r" B/ {! r
;;;----------------------------------------------------------------------------
; g6 Y1 {2 t0 C0 i+ O% t0 I
;;;---------------------------------DDCOLOR_LSP--------------------------------) @/ m% i' ^1 j9 C5 {) m
;;;----------------------------------------------------------------------------) v$ @: {4 V+ C6 {4 Y7 D7 H
+ q7 m7 B) E7 U8 b& N) `
; Next available MSG number is 24 ; e$ M5 B) i) |
; MODULE_ID DDCOLOR_LSP_* T; {: \. |; y- ^, U6 a
;;;7 w0 d' H0 K' {7 N& g: ~
;;; ddcolor.lsp1 [0 k; p- s. L0 c1 p$ H
;;; 5 `% @+ l/ y0 v# U
;;; Copyright 1990, 1992, 1994, 1996 by Autodesk, Inc.- X v' W( ^1 }
;;;0 q9 {5 F* T. Z* Q/ \" y
;;; Permission to use, copy, modify, and distribute this software
( T3 [# x% X2 p3 ?
;;; for any purpose and without fee is hereby granted, provided7 e- y3 S8 q/ N5 _5 i
;;; that the above copyright notice appears in all copies and
* Y% D. u7 R" \, a6 M
;;; that both that copyright notice and the limited warranty and
6 p6 d" C, K! S
;;; restricted rights notice below appear in all supporting
6 }1 @# F* H, s3 @+ u
;;; documentation./ y5 O4 N5 S; b: v( }0 b
;;;
4 a$ {% g7 w0 g3 b
;;; AUTODESK PROVIDES THIS PROGRAM "AS IS" AND WITH ALL FAULTS.
# w8 ]1 @% K! x6 s% f) v/ l
;;; AUTODESK SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTY OF$ L9 C3 o1 g# Q+ Q, X
;;; MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE. AUTODESK, INC.
8 P# l" b3 X( n% y1 F
;;; DOES NOT WARRANT THAT THE OPERATION OF THE PROGRAM WILL BE9 ^3 ?1 f. n- x9 R
;;; UNINTERRUPTED OR ERROR FREE.
; T; }, f& }$ J- @
;;;5 m! U, S5 T3 E' S/ S) X
;;; Use, duplication, or disclosure by the U.S. Government is subject to- q4 s# f5 z) x7 b2 `. W
;;; restrictions set forth in FAR 52.227-19 (Commercial Computer* \" b5 Y% z3 m8 A; E
;;; Software - Restricted Rights) and DFAR 252.227-7013(c)(1)(ii) 8 ?- `3 {1 ~" j
;;; (Rights in Technical Data and Computer Software), as applicable.
8 v: v1 e3 Q [+ R
;;;
/ b, }/ u! w/ e
;;;.
8 X0 C# _' e) C4 X9 H0 I3 V7 H
;;;
% ?7 A# Y. [% Y$ q5 t3 H% f
;;;----------------------------------------------------------------------------
;;; DESCRIPTION! {' g' h9 M. A. g1 Z* e; ~4 ]# ]
;;; ! g) V& I* i* _5 M0 P% C
;;; Chromatic Pallete style color selection dialog.9 S0 n& F5 \7 b: H8 X6 |; \8 ~
;;;
; l& u4 [% A* g! ]8 i4 r
;;; Globals:
/ f% r# h! T) P" @4 a0 u
;;; 0 D( V9 w- k! n- Q( p
;;; chroma_color - Integer color index. The last value selected
: b0 I" m2 z8 O( h* J( F. G& W
;;; by the user in chroma dialog. It is not cleared or reset& a9 o. m0 W3 h* D: U
;;; by a cancel. Only used for communication between callback
, r- h* y+ u) h0 `
;;; functions and the (chroma) funciton. o) E% D# t& i$ ^% j
;;;
. \# f& V1 O# z
;;; Depends on the definitions for the dialog provided in chroma.dcl.5 U2 p) \5 ~% ?" |- W
;;;
& \/ j1 V, U; B
;;;( u D+ u$ K; r) ]
;;; C:DDCOLOR -- Dialogue front end to the CECOLOR sysvar. Uses the chroma 9 }: N. ~$ A; y* b" K1 d
;;; pallete style color selector.
% I9 Q* D9 V) Z0 X3 g4 V) c+ M! H
;;;: h/ P5 |: t) q
;;; ===========================================================================
% U8 T) P0 l7 k+ P
;;; ===================== load-time error checking ============================
; p3 |, e: o! b4 v, `
;;;& W: K9 G/ y8 m! U
+ a6 Z; h* I5 F0 s
(defun ai_abort (app msg)) ~. L a; c: U- w6 C
(defun *error* (s)
' z. Z4 U( ~7 J
(if old_error (setq *error* old_error))4 l( p0 O! f: t" u
(princ)
3 j# `/ f2 T5 _: l( R
)" p1 S8 Z h# F& N
(if msg
& N8 o- h; i3 Q- f: c/ t& L
(alert (strcat " Application error: "
- e2 w/ Z2 U7 J' O! T, J: y# ~6 i
app
$ P ~+ S3 I% u1 Z) ^/ l
" \n\n "3 Q, _" L% C9 l( K1 `
msg
# p2 I) x- T. h9 J
" \n"
+ i5 D& x. I# m- T3 z# |
)
! p& p. `6 k" q" Z, n5 b) _
)
8 x9 V7 u7 @; }1 C& K
)
. u# `! |. H2 @: C% v+ F' ^9 G
(exit)+ e6 L0 o. |( ^+ {
) n: N3 A& U; `& Y5 P: Z* Y
5 M' T: Q) o% {: m5 e9 G( j$ c+ z
;;; Check to see if AI_UTILS is loaded, If not, try to find it,
( ^! m, Q6 {# I
;;; and then try to load it./ Z8 X- D9 k6 z; m* g5 H/ d
;;;
# W/ f4 y9 A5 ?% A" ^
;;; If it can't be found or it can't be loaded, then abort the, k1 E3 c1 L8 i \
;;; loading of this file immediately, preserving the (autoload)
* }6 D- A0 T& x+ {$ B& {: Q! Y" w( W
;;; stub function. q! Q1 u& ^+ d8 A% J8 x; a9 N
0 C+ _" M1 _, g
(cond
% Z3 q; G3 u" Z
( (and ai_dcl (listp ai_dcl))) ; it's already loaded.
5 q4 B3 \ D7 H% V5 ?
; c, @ M) b0 V+ I
( (not (findfile "ai_utils.lsp")) ; find it
+ V4 Z( ?; P1 u3 {
(ai_abort "DDCOLOR"
i8 K7 ?8 g' r7 K1 @* O, [
(strcat "Can't locate file AI_UTILS.LSP."& w- u$ v% |: C, P4 _. M# b- Y
"\n Check support directory.")))
5 M3 ]8 @# {; J# B% H
$ `: U7 i5 {5 t6 \% y* O9 C5 Z7 r
( (eq "failed" (load "ai_utils" "failed")) ; load it, C7 L% p% |) j: B& V
(ai_abort "DDCOLOR" "Can't load file AI_UTILS.LSP"))7 Y3 O4 ?6 r( a
); p$ g' b. B4 O$ T' U
0 L/ m/ g9 [: G7 b, @ ^
(if (not (ai_acadapp)) ; defined in AI_UTILS.LSP
& u: H% d* j6 _3 a9 i+ a
(ai_abort "DDCOLOR" nil) ; a Nil <msg> supresses
# s9 N( [0 E2 Q; z6 J) M
) ; ai_abort's alert box dialog.
' ?, C7 n z$ F/ A
3 G% v6 \) g" { O0 u: I' D9 L
;;; ==================== end load-time operations ===========================# h8 G3 p' |( \
1 ^+ H- Z7 k. w& a2 y
(defun c:ccc (/ co_oce clrx co_err co_oer lay_clr)
$ A! d) c$ p( j: A# o8 k; f
( B! R/ H& O" E
;; Main Color function, called by setup code.
6 a) z4 g4 A5 F: ^
(defun ddcolor_main()1 A6 y2 U5 h1 A
. V) x: M8 O' Q1 i5 T; [' l2 Q
(graphscr)
$ n9 `% c$ [, a- i5 j+ ~( g4 ]
# V% @( h. G ~' ?3 o1 W
;; Get the color of the current layer, for possible BYLAYER color swatch.
# g5 ?" z1 V$ h- a/ C
(setq lay_clr (cdr (assoc 62 (tblsearch "layer" (getvar "clayer"))))). b4 U3 B# p; P) y5 `
5 E& \, S; ^$ P& [
;; Call the dialog here...
4 W, h' X. Z6 q1 z. V [
(setq clr (acad_colordlg (cstoci (getvar "cecolor")) T lay_clr))5 \4 T0 ^* ?$ Y/ e
7 s( I/ z2 Q8 f5 r1 }
(if clr7 z! Y) M. V1 X0 @6 r4 o7 i
(setvar "CECOLOR" (citocs clr)))
- l0 _/ O" P# Z7 ~$ G+ Z( q
)% y3 W9 ^5 ]2 L$ I R' p
' ?* M5 v3 b9 o, G' L" n% m
;;;
1 [( V `2 M8 ]9 Q5 i
;;; CSTOCI -- Color string to color index7 `5 U' P: T$ V6 F
;;; Convert an arbitrary case string into a color index.
. G, Z3 v, R$ c! n3 n
;;; Returns nil if string is not a valid color.6 M7 e6 c' I+ r( {" @
;;;
$ [8 K0 n2 X' z- {! o
(defun cstoci (str)7 e( K1 a6 h% k; R
(setq str (strcase str))& e' p7 I8 [! t$ M
(cond
& `" h D7 V7 t7 R" P3 ?) f r
((= str "RED") 1)- J1 O$ A3 `) u, T, H
((= str "YELLOW") 2)- Y5 |) Q2 ]' s/ n$ H1 ~; H$ S& ?
((= str "GREEN") 3)
$ h/ U- e$ N3 f' G) c( q
((= str "CYAN") 4)
# ~* j1 \! x6 Q' U
((= str "BLUE") 5)' X( u% @8 r. N7 A
((= str "MAGENTA") 6)
- J7 |7 ^- U+ b _
((= str "WHITE") 7)
% o$ l! l* E$ r3 O
((= str "BYLAYER") 256)
6 p) \7 |) Z- K& F1 ?
((= str "BYBLOCK") 0)+ C7 R" w+ l: B! |
((= str "BY LAYER") 256)
4 @; H T2 ~, t" ?. B
((= str "BY BLOCK") 0)( X& Y9 c2 K5 q3 ~! M. V
((and (< 0 (atoi str)) (> 256 (atoi str))) (atoi str)). A+ ~% Q1 i8 p" i1 R9 J/ U
(nil))
3 F4 h7 m9 y! L( q6 C
)
/ O/ _7 r1 N- y" r; m5 a
/ d a. ^$ I3 E- m% r' v- S
}* M5 [, {" Z# N! N4 f$ f
;;;) L* _# e# q, y7 d2 Z
;;; CITOCS -- Convert color index into standard color name.- D3 x: E2 j; s* D# p
;;; Will return the standard and logical color names as text! I! l& R% g" w) K! e+ Z
;;; strings. Returns nil for out-of-range color indicies.5 T% K4 y; D# [* G# |2 O- F8 R5 a
;;;4 R1 ^/ c& e1 }
(defun citocs(i)
. i! m9 G9 c- j8 N8 P0 O8 S
(cond; R4 A8 O: { X+ N4 a
((= i 0) "BYBLOCK")
0 v% x y& R* t0 \; Y; A; c
((= i 1) "red")
2 S3 e! C5 d7 O5 y9 @" c% v6 A
((= i 2) "yellow")& I# V8 \4 Y) c$ a5 ~4 Z: \7 e, p
((= i 3) "green")" k, D( k8 ~6 Q3 H! O/ x6 ?3 r2 n
((= i 4) "cyan")
$ [) I/ V4 E1 x- T1 i! j
((= i 5) "blue")
/ k; o, `# M& C; I6 }
((= i 6) "magenta")9 ^" t/ m1 [1 b1 o" i
((= i 7) "white")1 c' l6 s, l! @' u# T
((= i 256) "BYLAYER")+ r5 a/ d9 N# A. Z" w
((and (< 0 i) (> 256 i)) (itoa i))
9 R8 g: a8 i* N- R: Y
(nil))
)
; P7 z* ~" r9 d3 a0 E; d
c/ R& y2 h$ i8 r6 W
;; Start of ddcolor) X' H4 F4 o6 z4 I. K( p* ^! |; {
(setq old_cmd (getvar "cmdecho") ; save current setting of cmdecho% A! \: r- a) _# [; @
old_error *error* ; save current error function* ~5 [$ s: V' F: b+ I; Y
*error* ai_error ; new error function) L0 U4 x q: W0 V
), S4 ?2 l' ]0 ]& O L
4 D& o6 K7 a3 D- d
(setvar "cmdecho" 0)7 \5 ~" y- _& F0 j: [+ Z% I* D, r
. {( C* e# S0 U4 v9 Y0 @5 M
(cond- d9 P) t% c" ?
( (not (ai_trans))) ; transparent OK; F4 _4 q2 G: x4 ^5 z6 V
( (not (ai_acadapp))) ; ACADAPP.EXP xloaded?1 A# I7 o; i+ R+ ?
6 ~0 X7 ^+ Z& b- [& ~" G% s
(t (if (and (/= 1 (logand 1 (getvar "cmdactive")))# \2 w* U3 B2 ] l3 r. b
(/= 8 (logand 8 (getvar "cmdactive"))). [$ s$ S# v) I4 M
)4 B# I. m: p, C6 _8 @
(ai_undo_push)! o$ P9 K: ?$ ~7 ~3 ~
)) G* ^" v7 `- f3 p' o, k5 T" R
! y* Z A: g6 Y4 J( r: R
(ddcolor_main) ; proceed!* O1 V2 b7 n0 R" H1 Y/ \2 V% o
3 o( ?0 B& R& W% `; u$ Z
(if (and (/= 1 (logand 1 (getvar "cmdactive")))
7 Y/ A) I. s4 f7 ?5 f6 W' m
(/= 8 (logand 8 (getvar "cmdactive")))
5 S& Z3 P W; q# A# H% C% R8 p
)3 Y% [0 s% T5 |9 V2 x8 H- ?" E6 @" [
(ai_undo_pop)3 X4 c- [3 C! B( c' F9 k
)4 z2 `+ m6 l8 K7 r5 V4 d
)
# n- { V+ Y, d5 w1 x- Q
)
, K8 L' C) F7 e1 X: _$ U2 z- D5 T7 a
$ R" R4 w2 V0 d" }/ y( X
(setq *error* old_error)
7 A& [0 g$ Y+ ~
(setvar "cmdecho" old_cmd)$ \% Q5 m, S/ `5 e* b
(princ)9 c3 l, y9 L7 e% o) G
- s/ o( a; d% G# |0 P; c: Y" U
)' _7 r) Z1 u" x9 t8 c. x' H6 j
' U; q/ y: v; p8 o8 Q
;;;----------------------------------------------------------------------------
- R1 d9 d! H8 x4 @8 ~
6 L: o# `; Q5 e/ J
(princ " DDCOLOR loaded. ")# D1 z! s3 S3 A: B3 T
(princ)1 z* U2 H* r! @9 z- J
# }9 u3 |8 {$ v( {& ]3 b
;;;--------------------------------------------------------------------------;
; K; n" J7 k' Z- X8 l4 A7 _6 ]& u
;;;---------------Chon NHANH Nhieu Doi Tuong GIONG THUOC TINH----------------;
# L$ D) v" Q4 J. G! A) e
;;;--------------------------------------------------------------------------;4 m, s' t% w, w5 U6 `' \. M
;;; ssx.lsp6 k1 L( }% ?7 U- @" y4 ?
;;; Copyright (C) 1990 by Autodesk, Inc.
7 F; h1 Z0 [+ H
;;; Copyright (C) 1991 by Control Systems, Inc.; `- T0 N$ l( Z1 u: m/ K/ [0 J t
;;;; ~. v& Y5 b- M5 P2 N
;;; Permission to use, copy, modify, and distribute this software and its; D1 I" v; g0 o' M6 { `8 s2 ~
;;; documentation for any purpose and without fee is hereby granted.4 w& _8 E% {/ d$ \0 D
;;;: V+ z& S2 v$ f
;;; THIS SOFTWARE IS PROVIDED "AS IS" WITHOUT EXPRESS OR IMPLIED WARRANTY.
$ ^: B% f. S) p8 @* _2 F& h5 ~
;;; ALL IMPLIED WARRANTIES OF FITNESS FOR ANY PARTICULAR PURPOSE AND OF1 A7 V8 ?9 v; d8 j K. V; ^
;;; MERCHANTABILITY ARE HEREBY DISCLAIMED.7 \, a0 J- V- r- n* |* j9 H
;;;6 k( ^. y" ]6 v( {/ e- D: `
;;; Larry Knott Version 2.0 7/18/88
0 V9 ^: Y/ a, [
;;; Carl Bethea & Jan S. Yoder Version 3.0
, n3 M6 j* l/ `- {% J4 L/ O% Q
;;; Enhancements to (ssx).* V z, ^- i, o# K; w5 t9 ?
;;; 15 March 1990 0 ?/ c% Y9 Z$ r+ @$ ]4 a H f, e* d
;;;: m- G$ u% x; r, [% z+ Q
;;; ARTIST Software, Inc Version 4.0 December 1991
# x" ]3 H, u f7 E3 t
;;; Modified for FLEXICON usage. If the variable FLEXVAR = 1,3 d8 d, R a! n7 r; h! b' u
;;; use Flexicon menus
" j" g5 P9 u' M1 G9 Q
;;;
( D$ \4 w; @ W1 M! U( U
;;;--------------------------------------------------------------------------;
- a1 T( j: ?8 k" T1 S
;;; DESCRIPTION* x1 Z3 u1 a$ I# D9 z# E
;;; SSX.LSP
* i# J; `* {3 `: h+ C
;;;
; g% y& i R8 Z9 e& V! x, o+ J! _
;;; "(SSX)" - Easy SSGET filter routine. ' A8 `- b7 h' x
;;; ; Y4 l% c$ y& U- S4 s
;;; Creates a selection set. Either type "SSX" at the "Command:" prompt
) s U- G1 j- A3 E2 ?% V5 x2 k* c
;;; to create a "previous" selection set or type "(SSX)" in response to % ?5 [* a" W; a1 ~5 c
;;; any "Select objects:" prompt. You may use the functions "(A)" to add 3 }# B/ U6 N" B# k- V1 ]- F
;;; entities and "(R)" to remove entities from a selection set during ; n, |1 b- r1 B: V- {
;;; object selection. More than one filter criteria can be used at a & R% s+ \$ X, ?& I: a
;;; time. - V; A/ C8 O: L& T: X
;;;
5 X Q0 U* i- O( d
;;; SSX returns a selection set either exactly like a selected" F S) F x5 S) B2 M" v* G
;;; entity or, by adjusting the filter list, similar to it.0 B* D X: i/ n+ r! _ B4 \0 Z
;;;8 @& w% v) Q9 W& P$ q) @
;;; The initial prompt is this:6 w- g( n- X; O& H ?8 i3 V
;;;
4 a8 `0 g2 {' I& z$ D6 h
;;; Command: ssx
. h/ q4 \ O6 S4 f* i; @2 Q
;;; Select object/<None>: (RETURN)! Z' x$ G9 h. Y6 @
;;; >>Block name/Color/Entity/Flag/LAyer/LType/Pick/Style/Thickness/Vector: 2 c) L0 m' s; H1 v
;;; 2 ~1 D) W, ~& F' p- Y3 k
;;; Pressing RETURN at the initial prompt gives you a null selection
7 V/ N6 D3 |5 r$ y; J6 W' s
;;; mechanism just as (ssx) did in Release 10, but you may select an
+ z; o! W# V. k9 c( M3 m
;;; entity if you desire. If you do so, then the list of valid types
7 I# _- X) F- {4 y6 ~& Y; `
;;; allowed by (ssget "x") are presented on the command line.
5 a* |8 z3 n. c
;;; / p7 E9 K0 K0 L+ m) M
;;; Select object/<None>: (a LINE selected)
) U& \: x9 T& K8 |* v
;;; Filter: ((0 . "LINE") (8 . "0") (39 . 2.0) (62 . 1) (210 0.0 0.0 1.0)) 6 U) z( f( Z8 o0 V& M7 o! l% G
;;; >>Block name/Color/Entity/Flag/LAyer/LType/Pick/Style/Thickness/Vector: % P6 h8 h% }3 B _; v+ h
;;;
: W5 X1 s8 Q! \& F; S" {9 D
;;; At this point any of these filters may be removed by selecting the 6 h$ z0 i3 K7 o- d" R% }* ~
;;; option keyword, then pressing RETURN.
{& Q2 B( w) ^/ g+ ^) p
;;;
/ y7 @ [6 q; X. Q/ m/ A5 @+ h
;;; >>Layer name to add/<RETURN to remove>: (RETURN)
3 J0 m! _0 x+ p) p
;;; 7 y: w/ H, M2 {: {+ @
;;; Filter: ((0 . "LINE") (39 . 2.0) (62 . 1) (210 0.0 0.0 1.0))4 ?1 [% M: T) b& U
;;; >>Block name/Color/Entity/Flag/LAyer/LType/Pick/Style/Thickness/Vector: . n% c$ g* S9 q2 J- r# A- s6 i
;;; u" h$ |# q! l% n, E
;;; If an item exists in the filter list and you elect to add a new item, p' W* U& O8 |
;;; the old value is overwritten by the new value, as you can have only " f' C5 {( j. I' {; @7 A
;;; one of each type in a single (ssget "x") call.7 S6 e5 L2 q+ p H9 R, n
;;;+ U# Z# x# m7 B$ n( J: C# }/ k
;;;--------------------------------------------------------------------------; s0 J! K5 D+ F7 o! t7 `/ ~* p
;;;! V$ B& R) o0 n: j/ N
;;; Find the dotted pairs that are valid filters for ssget( ], D5 D& x- h) M* q6 U6 u
;;; in entity named "ent".
$ y) S# B; I0 t6 L( c5 [
;;;
) q* i- g- Z* q& W( R1 F
;;; ssx_fe == SSX_Find_Entity W. X1 \) A" T1 e
;;;. y$ m2 s5 k" Z% k# }
(defun ssx_fe (/ x data fltr ent)1 V( }# M; t) P/ m( G
(if (and (= flexvar 1)(/= t2 "Pick"))8 T( F6 w. w# V
(setq ent nil)
) @( W& ]# d9 h/ s/ Q
(setq ent (car (entsel "\nSelect object/<None>: ")))
3 D) m; ^% v2 A. x! a6 z
)
# I9 g8 [$ u7 L# A8 f* ], e2 }0 z
(if ent
' m5 W; F o, L7 Q7 x6 L
(progn
; V$ f C f8 M' s" a& {
(setq data (entget ent))/ [! k6 m' F0 H7 g1 a
(foreach x '(0 2 6 7 8 39 62 66 210) ; do not include 38
, O3 @/ n$ z: Z% s
(if (assoc x data)
8 Z$ \7 b1 y2 d& W
(setq fltr 9 a7 @. `1 E: z$ h; |
(cons (assoc x data) fltr) b: g) e7 K. s+ i. r, d5 X" T
)
; s# h6 U# k9 J) t& f
)! q0 }) }/ T! Z# M. e/ g5 q
) * t$ p0 k8 R9 @8 a# Q8 E
(reverse fltr)
- X" M2 Q) s% ?8 ~1 c+ m k% _
)0 V3 B- B' R) Y$ H
) - T5 I0 r' `3 x
)
# I8 G! d+ q i+ @' { ~7 H/ H
;;;* F" z2 \5 _" p: g
;;; Remove "element" from "alist".9 Y- M) A% v# n2 c3 ?3 c
;;;
' i; [; S5 E9 ^" q
;;; ssx_re == SSX_Remove_Element4 ^' n6 k' t. L
;;;5 }) T2 O2 @; v. b
(defun ssx_re (element alist) r) K2 I- v- Y, T6 i3 `% Z6 ]" {7 a
(append
5 _, ~. \( m2 ] i
(reverse (cdr (member element (reverse alist))))
* q) |# k# u$ O$ t' d9 f
(cdr (member element alist))
2 H, A7 T2 S! H9 l* e
)
4 v4 P4 y# o d* P1 g" H! |: M
)9 a( F' R1 P7 @5 M7 M4 B$ }4 a p
;;;
; ~6 i: e% M$ B# L, `
;;; INTERNAL ERROR HANDLER
w8 g; k$ }7 m1 ]
;;;
. X; R. }+ [2 ^+ B1 b) G
(defun ssx_er (s) ; If an error (such as CTRL-C) occurs+ \$ S& X) Y6 `" G+ G4 J1 G7 k5 R
; while this command is active...
/ \) S- a0 \2 {8 W
(if (/= s "Function cancelled")
- ^' v% O, }" ]! W4 W+ e
(princ (strcat "\nError: " s))
# `. V8 h ?- K& H# U$ R
)2 d; B$ d* R8 C) j- ^$ e
(if olderr (setq *error* olderr)) ; Restore old *error* handler, o! h" H- P0 u z
(setq flexvar 0)# @; X' a1 Q( x) [) G q8 x& h
(princ)5 X. h: j3 H Y; p9 \. X9 l$ Z' K8 q1 J
)
7 Z, e+ f3 A& I! }/ y/ N. \$ O
;;;) j* _3 y7 g1 Z2 h8 ]* |# V3 w
;;; Flexicon call routine
" R. Y, F' K# R; d5 q, v
;;;3 Q8 ?7 a5 F$ `! M+ O
(defun flexmnu (a) f7 m3 T/ G3 Z# g
(if (= flexvar 1)2 Q0 N9 s6 P! T) K+ W6 `0 [6 Z0 e: W
(command "FLEXICON" (strcat "FLEX" a))9 t9 u7 l4 u# F! Q4 q8 m
)3 K( }- ~$ `+ Q2 Y! g; R
)# h- }7 c7 S- J# e* n( j) H Q% Y
' d8 I0 C) D1 ], S- q' p- [
;;; ! f5 Q# F; g' L! b. G: d3 q
;;; Get the filtered sel-set.0 n5 N3 h: o7 K3 c; h
;;;
o: H! L; D( ]. D; ?
;;;* H9 a4 [( a4 h, X% o7 @3 D' a6 W
(defun ssx (/ olderr)
; } s! B- i: C' G
(gc) ; close any sel-sets
: \0 e% n% A' w0 D
(setq olderr *error*
6 s$ }6 B" O+ q7 S9 J% V
*error* ssx_er
z% }& t/ }! w* O- s j
)9 l5 ?5 F& v8 T* ^
(setq fltr (ssx_fe)) 6 q3 P& l* W, G7 Y/ b& L- Z
(ssx_gf fltr)
. L2 y6 p3 l! V$ Z- O
(if (= flexvar 1)
$ a( ^/ O8 K l) k/ N- M
(progn
- a2 J( Q! W* x G m& Q
(prompt "\n \n \nNow select the required EDIT command and (P)revious.")
+ E: u' O+ W9 c% d
(flexmnu "EDIT")- W m! t; |+ ^" k$ ?
)
% g- x+ U- ^! c9 \
(command "p")& J4 Q2 D2 c4 c) ]7 x" r8 k
)
" i: j* e* @8 g; f" Q/ d
(princ)) Y5 m9 z$ M9 q! g5 j. b
)8 X8 Y" ^. B2 G! E8 `
;;;8 H) R, h k( e5 N' ^; Y% i5 {& u
;;; Build the filter list up by picking, selecting an item to add,
& y. D% w% J% O& C4 K% p4 q
;;; or remove an item from the list by selecting it and pressing RETURN.
% g( B# z4 G, V4 [6 j4 e
;;;
! ?# I2 N) i' f8 v
;;; ssx_gf == SSX_Get_Filters
0 W+ u9 Y0 J2 `! d9 G8 }2 Z
;;;
; `; G0 o& Y- M8 S* G
(defun ssx_gf (f1 / t1 t2 t3 f1 f2) \6 c1 R- e8 r: X- y$ B% L
(while
" _( _8 s) h! T
(progn* ]- @6 @3 O7 F& N; P
(flexmnu "SSX")/ V- B) ]9 R, Y/ ~1 p' m( [
(cond (f1 (prompt "\nFilter: ") (prin1 f1)))
, j3 |1 ^0 k4 l& m$ J) ?
(initget
0 w4 m* {% C- h5 P) ^
"Block Color Entity Flag LAyer LType Pick Style Thickness Vector")" j( d& e2 v7 B
(setq t1 (getkword (strcat
5 w) o5 D. C, B# u+ W: q* \
"\n>>Block name/Color/Entity/Flag/"
! s. {1 ~' |' S. m% _3 n+ u
"LAyer/LType/Pick/Style/Thickness/Vector: "))) 8 I0 K; E& d! |6 b8 z1 q
)
% J# | l. F. R; \- |$ H
(setq t2
4 F2 h+ u; Z# H- d% j3 g6 x
(cond- W1 {9 j7 U3 n+ N& ~$ g
((eq t1 "Block") 2) ((eq t1 "Color") 62)
' k( m+ t3 i6 }" I& r
((eq t1 "Entity") 0) ((eq t1 "LAyer") 8)
5 e. e- q) @. C; S
((eq t1 "LType") 6) ((eq t1 "Style") 7)
% N, Y3 ^+ n* A6 R. n( V, ^8 D
((eq t1 "Thickness") 39) ((eq t1 "Flag" ) 66)( G/ Y4 \6 t% R& N* Q6 [& o# i8 f. N) A
((eq t1 "Vector") 210)
4 c3 L# M* `% l* a7 c
(T t1)
6 f% X1 t9 |& d& Y7 z
)
5 C" [4 S% h+ k5 ]% J3 J, n
)5 ?% I4 X' K7 u. \) v8 Z
(setq t30 V* I2 t: ]9 K0 S
(cond) U* J; m) s: w$ I4 }3 l
((= t2 2)# Q- }. ^5 |8 `+ v- P* P) Q' V6 j2 W. ]
(if (= flexvar gtads 1)5 m3 I4 z) [& |0 f& m0 j$ w
(progn
8 V; e0 Z" `1 D0 ~- ^0 c# r3 g
(prompt "\n>>Block name to add/<RETURN to remove>: ")
+ k9 L# f) x$ ~" _
(gttable "BLOCK")6 H; _5 r/ S3 L7 _ @
)
( s- q; y5 Q+ R7 m! I! a% |
(getstring "\n>>Block name to add/<RETURN to remove>: ")
8 \: F8 i" Y- I( o- ?# S
)4 H5 C$ k( F7 c% X: Z2 a
)
# ]# R( H# O. r: q! X( U& k. o I
((= t2 62) (initget 4 "?")
$ p/ K+ q. Z* [
(cond5 { C8 a$ R( g# K" r( B7 H( @/ ^
((or (eq (setq t3 (getint * A9 P1 M/ f+ m
"\n>>Color number to add/?/<RETURN to remove>: ")) "?") 6 t( z6 F0 v+ B0 z4 u! t% |5 t
(> t3 256)). P6 o( L4 q- l7 D% Q. O
(ssx_pc) ; Print color values.
0 T" G8 o4 |' R) ?
nil
# b7 ^. V) u V. s8 y
)
. g* h5 I7 V7 _6 P- i& G5 N
(T7 C# V* J9 `' p9 A
t3 ; Return t3.
! O3 A5 }9 ]- X, `# |
)
0 Y$ l) E# Y1 ~0 k- J4 S" Y2 ^
)
" |, \0 ]! b% m6 v7 F
)
8 G* F+ z3 N# ^
((= t2 0) (getstring "\n>>Entity type to add/<RETURN to remove>: "))
& D+ H e8 y2 t
((= t2 8)$ R4 W' m6 d8 L& S
(if (= flexvar gtads 1)
$ J2 ]3 a$ J* N" D
(progn& U0 r9 N, r* @) I6 k1 a( B
(prompt "\n>>Layer name to add/<RETURN to remove>: ")6 n/ q; {) y' d- p
(gttable "LAYER")
; |; t5 a" h6 M$ @; ?. ?$ A
)
6 D6 c3 G4 K8 \# ~6 F
(getstring "\n>>Layer name to add/<RETURN to remove>: "): @/ t3 L" t A, c
)
9 ?2 D, M" p" n7 x& t0 d
)' f) u- Q2 h0 u# B+ N* X
((= t2 6) , ^4 e0 a9 `1 s- o* F" K/ h% ~
(if (= flexvar gtads 1)
, c3 G+ o5 O3 P6 v6 g
(progn4 d2 Q4 e5 D" o# q* K
(prompt "\n>>Linetype name to add/<RETURN to remove>: ")
0 `$ x% W+ Y; L* D
(gttable "LTYPE")
! ?, T7 `5 c# D0 A. n, E K
)' D7 V$ c' h2 b, S2 N) B$ d7 b
(getstring "\n>>Linetype name to add/<RETURN to remove>: ")
1 [% o, [! K4 }% |- r% c
)
8 u6 N& n0 t& x D" y: ?8 m
)( ]/ A$ `+ e1 k0 `$ l; n
((= t2 7)
1 K1 L; G" T; P+ M; x
(if (= flexvar gtads 1)$ t! w. r+ r9 W+ C: A" B P
(progn
- C% a2 W# _0 _- c( m
(prompt "\n>>Text style name to add/<RETURN to remove>: ")
* y. _0 x0 l2 `
(gttable "STYLE")5 ?4 z$ q1 N9 l0 A) K7 W
)
# c# \. J) O$ ^$ e* v( y
(getstring "\n>>Text style name to add/<RETURN to remove>: ")
9 V* ^! S* v# b6 G6 ]
)
6 n& {/ L. T$ F$ i% G R& }
)
2 c! `8 u3 A: ^4 z5 s0 @4 v
((= t2 39)
* a* a( ?- E! d c( t" N
(prompt "\n>>Thickness to add/<RETURN to remove>: ")
4 ^8 v3 H! i* N! r
(if(= flexvar gtads 1)(gtfnum"Thickness to add:")(getreal))- E: u) e1 v4 r! r6 g i
); O* K3 L$ d3 v& q8 _
((= t2 66) (if (assoc 66 f1) nil 1))$ ?. i/ f! a' }5 `
((= t2 210)
5 U1 B ]5 d3 a C: X9 r$ R
(getpoint "\n>>Extrusion Vector to add/<RETURN to remove>: ")
& n! V" G- N) p+ `5 L3 [
); s6 n7 T- A; K. P& h1 T5 b
(T nil)
0 ] G7 ]& g P% O9 f
); N" H2 j" F& @( S! ^& A( ` w D
)
# R8 m! W4 V" T% a2 J8 d9 ]: Y
(cond. U: x5 H7 k! J% {' @1 \
((= t2 "Pick") (setq f1 (ssx_fe) t2 nil)) ; get entity
5 o' P% |) v) h; ?: w& n' E
((and f1 (assoc t2 f1)) ; already in the list
' H1 ^! ~1 g! n. M7 ]
(if (and t3 (/= t3 ""))
( |, A5 d! Q2 ~; {0 ?
;; Replace with a new value... 5 F2 D) v' w3 ] l) r) v
(setq f1 (subst (cons t2 t3) (assoc t2 f1) f1))
& ^- Y1 I$ d; ~
;; Remove it from filter list...
7 X+ _) v" m0 G0 Q9 Z' `1 m- d
(setq f1 (ssx_re (assoc t2 f1) f1)) % m" g! [) \% h* F |- r, q3 ~
) - D v; a! D* Q6 h
); [) M7 G7 }) l+ b5 _! A
((and t3 (/= t3 ""))
9 s) F" \' p4 k* {2 |
(setq f1 (cons (cons t2 t3) f1))9 p' z* |% D6 m% |
)5 ~0 i% [5 }0 n7 J# Y5 i
(T nil)$ T, {* S4 L8 @
)& E' y4 V0 t; @
)
, ^+ Q7 z# C4 V6 J; S* [; s5 d& T
(if f1 (setq f2 (ssget "x" f1)))7 t" H) i- m2 t
(setq *error* olderr)
2 z- J$ Y; F: G( J: _* k5 n
(if (and f1 f2) " g: v7 c+ H& M0 i! d& Z k, J6 n4 m
(progn6 K1 U1 Y8 @, ?
(princ (strcat "\n" (itoa (sslength f2)) " found. "))7 C& [ q# _/ G4 n; `1 c, c7 i
f2 8 E+ B. m1 M( B! b
)( @7 V# ~4 {( P, @/ \2 ^; ]
(progn (princ "\n0 found.") (prin1))
( W& l( b' } _2 f% ?2 A# W
)
- B+ w7 [, v9 c5 Y5 E8 C; n0 s
)
* b5 ~! y9 p2 r
;;;
. J/ ~8 i3 w1 `
;;; Print the standard color assignments. p3 ?5 o! N u# H6 \
;;;
# R2 F) g8 ?" h* v
;;;% a% _( ?2 p3 s- ?5 }
(defun ssx_pc ()# h1 T {$ }# J
(if textpage (textpage) (textscr))
% s+ T5 I3 A0 a' o* M8 q
(princ "\n ")
! t8 r/ `0 y$ d6 A
(princ "\n Color number | Standard meaning ")0 q7 s4 Y0 j" [, S7 K/ `) ^
(princ "\n ________________|____________________")
% t2 ?8 V1 M0 Z/ J6 G
(princ "\n | ")( A% N' c6 [5 a7 C" y1 i5 P' r4 ^
(princ "\n 0 | <BYBLOCK> ")
* I2 O b; e1 h- A
(princ "\n 1 | Red ")
5 Q& a6 e: \( G$ X: l# ^) }1 I
(princ "\n 2 | Yellow ")* G7 C! F7 b/ ~
(princ "\n 3 | Green "): y$ l3 O& z; [$ F3 d8 Y2 U9 [
(princ "\n 4 | Cyan ")
6 D5 X; M. `3 {5 Y! U
(princ "\n 5 | Blue "), }, `2 ~# P0 R9 @0 H& x) L
(princ "\n 6 | Magenta ")
$ f" o8 [; h- |/ {, F# g
(princ "\n 7 | White ")
* M h* w: W6 ?3 S. Z/ X
(princ "\n 8...255 | -Varies- ")
) G( P6 k1 l: W. G% l. C
(princ "\n 256 | <BYLAYER> ")
$ T0 ]" Z6 h) ?; B* m4 w- p* ]
(princ "\n \n\n\n")7 q/ Z6 h# F% y7 I
), P) y% ~/ c7 y" q+ o
;;;6 Q+ R. K9 i3 Z# m
;;; C: function definition.& L4 x- y$ p& h1 n: a% {1 K; S; w7 q
;;;' B# }, g9 }, p8 ]( W- Y- o# R# W3 m
(defun c:ssx () (ssx)(princ))$ {( a* ^* Q: i% x4 U- U3 l* V
(princ "\n\tType \"ssx\" at a Command: prompt or ")
) K7 l( x- h' D* o7 A3 o' u/ H0 M% H
(princ "\n\t(ssx) at any object selection prompt. ")6 e* f5 |1 n, @& _ q
(princ)
5 X3 a2 ^9 T5 _. F/ ^7 ^
7 P8 H# M5 V9 ?
;;;--------------------------------------------------------------------------;
# e& c/ i' }* Q( K6 C5 |
;;;--------------------------------------------------------------------------;* g" V& A' p3 Z1 g3 T( P& d
;;;--------------------------------------------------------------------------;
+ F+ J5 x h* I, j5 M/ D2 i8 g, g
(defun S::STARTUP () M1 ?* F5 u- x: {% z. }! u
(setvar "cmdecho" 0)+ h) e9 ~5 q( ]/ \( I& J- o
(setvar "cmdecho" 1)
6 k" z* l. E0 N& V% i# Y7 G
(setvar "LTSCALE" 10)7 j! K* w, P% _% Y! m! e; k
5 O1 o2 q2 w4 D8 u% f6 ~% w) @5 }
;(command "_load" "chenKH.fas")
. L6 M+ P3 Y8 R, Q. Q+ y8 D# p! i
;(command "_load" "ctcot.fas"). o) @& X2 v4 b
;(command "_load" "damdoc.fas") j0 k$ Y4 n$ \. }
;(command "_load" "ghichu.fas")
& o; v+ U7 D2 y2 ] L- X6 n& p' W
;(command "_load" "hamtutao.lsp")) {1 ?6 ]; }- _* {) o7 e
;(command "_load" "KHOITAO.fas")
- ~; N# m6 d! u4 C! h
;(command "_load" "KHthep.fas")
& g* I/ y: F. J
;(command "_load" "mbmong.dcl")
( h* F9 Q$ x \3 Q3 p% n. a
;(command "_load" "mbmong.fas")
, x0 G1 P* |$ g2 ^" i( a! ]
;(command "_load" "mccot.fas")
8 ?- n# l* R/ |3 `& H I5 m, K
;(command "_load" "mcdam.fas"): Z; d& F& C& u L; V
;(command "_load" "mcmong1.dcl")1 j/ G) C# @2 m
;(command "_load" "mcmong1.fas")/ ?$ q' W* u7 E# |/ i% |
;(command "_load" "mcmong2.dcl")
4 K2 Z5 Y) ~/ ?4 A/ I3 O; D
;(command "_load" "mcmong2.fas")
& ]! Q& }# E% b7 ~: K& u' n
;(command "_load" "mcmong3.dcl"), e6 L1 p2 P7 ~# `, V- |/ H6 [
;(command "_load" "mcmong3.fas")8 l% e" y0 o3 t+ p- N
;(command "_load" "mcsan.fas")
5 Z7 I# ]/ N/ ]# E1 ?% E2 l& |# b
;(command "_load" "thepdai.fas")) I& B q# i( X# J( s4 @- I
;(command "_load" "thepdoc.fas")3 A9 L% F- k, i) C2 r* N
;(command "_load" "thepmb.fas")% p& |0 A( o0 \+ X
;(command "_load" "thepphbo.fas")4 f* U' I; F% E5 Q. N1 g' @: `3 D% t6 Z, S
(command "_script" "thongso.scr")
! T' ?& Y; j6 Q& z6 o
;(command "_load" "thongso1.dcl") }( |# _ M& O [: c# p' U* P
;(command "_load" "thongso1.fas")
$ s6 p% Y- S4 V/ m
;(command "_load" "thongso2.dcl")
9 ]# Z& f2 e* k; P
;(command "_load" "thongso2.fas")/ |0 a% U. z' ?
;(command "_load" "tietdien.fas")
" Q" \" a2 f) S
;(command "_load" "vehan.fas")
9 d8 d# ]9 ~( `5 b1 W1 q
(command "_load" "phamDuy782006_TKT.lsp")
: [# T% i c1 l1 L! G) z" Z+ k
(command "_load" "phamduy782006ganhtd.lsp")
' a) u: X* B6 C: J( y
(command "_load" "phamduy782006ganhtds.lsp")3 C9 G2 V& X" D$ f* u, M
(command "_load" "phamduy782006htd.dcl")
" S$ u6 |* f6 i
(princ)
# C- l o2 ~$ E+ s- I7 G
)
( E. ^/ B3 z# x7 r; D
0 K: G4 J+ x" H4 L2 L% t' e% L
;; Silent load.' H/ @* \4 z D. g0 m
(princ) I: p ~& m$ z. A" |! X
# \" G$ b. }& h
1 ~% M. Y- p; V$ P8 g! M: ] m
;; Silent load for the Express Tools., b- P7 Y. I& _% `9 f7 v
;; Altering this line will affect Express Tools functionality
1 a# |) q& U3 Z$ B7 Y2 ^
(load "acettest.fas" (princ))
# e( H- i1 Z3 `0 ? B
�32

Sao chép mã