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

********************************************************************************
: L7 P3 @/ o: o% g
* ACADLISP FOR AUTOCAD R.14 -> AUTOCAD R.2012 *: L) P$ t- c: I7 m
* Tran Ngoc Thang DHXD-HaNoi41 from years 1999 -> 2015 *
6 D! @% |+ w1 u- ]8 n8 w
* Suu tam & Soan *
( k- `: J# z& o
******************************************************************************** b! M5 t: I! q% K+ R" B; A* S7 o
- T4 J; K* x9 x+ O. v
; Next available MSG number is 104, I0 F4 ?% R# }
; MODULE_ID ACAD2000doc_LSP_
! X' f" I) R. D6 N8 d
;;; ACAD2000DOC.LSP Version 1.0 for AutoCAD 2000
. @, a" A& j! r
;;;
! L* w7 M2 q1 U3 o
;;; Copyright (C) 1994 - 1999 by Autodesk, Inc.
7 k5 t4 O( N' E/ @! B
;;;
' w6 z: _7 P. J8 H5 k' h0 t. B; r
;;; Permission to use, copy, modify, and distribute this software
! W6 h6 P9 b1 v* v& w" L$ a
;;; for any purpose and without fee is hereby granted, provided: j. t V) e8 D% |& x
;;; that the above copyright notice appears in all copies and
2 h! X" O' L3 v* B' i
;;; that both that copyright notice and the limited warranty and
" c0 g* A/ N+ j @& |
;;; restricted rights notice below appear in all supporting" @. U0 e9 l+ |4 e$ d2 E* p6 W! t
;;; documentation.
0 n, p q7 M& y* m/ Y C/ k
;;;
5 b* F, `' y6 l
;;; AUTODESK PROVIDES THIS PROGRAM "AS IS" AND WITH ALL FAULTS.
" p; ]' e# z1 N; L- X
;;; AUTODESK SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTY OF( s# e0 W- O0 f$ _
;;; MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE. AUTODESK, INC.+ k/ W& R4 T2 _8 q8 S: c
;;; DOES NOT WARRANT THAT THE OPERATION OF THE PROGRAM WILL BE
) |3 w1 g# L" J. J7 i; I: d& k
;;; UNINTERRUPTED OR ERROR FREE.
# U, e6 ]0 k# ?3 V6 S7 w
;;;+ R- e" _4 p2 A
;;; Use, duplication, or disclosure by the U.S. Government is subject to% f6 I! l1 k. V
;;; restrictions set forth in FAR 52.227-19 (Commercial Computer
- N! a- W5 R4 s& s ?
;;; Software - Restricted Rights) and DFAR 252.227-7013(c)(1)(ii) 1 e5 t, d: H& \; W- x0 ]
;;; (Rights in Technical Data and Computer Software), as applicable.
& j9 p7 k# J* F% m7 w$ C0 a
;;;
1 G- j% i3 |8 S+ ]
;;;.
2 f k( b' R+ P$ l6 H& p
;;;
- D: v6 ^' O4 I, [% @% |* ]& ]
;;; Note:
2 o( \. y8 U: J: s6 j& n
;;; This file is loaded automatically by AutoCAD every time 1 H; V$ W8 h) c* h
;;; a drawing is opened. It establishes an autoloader and
1 J7 h5 }3 d" U2 C: \2 f
;;; other utility functions.
8 O" r0 s4 b5 x6 i+ m. k0 S# \1 n
;;;
2 }' c4 T. |0 s0 M1 T# l+ [
;;; Globalization Note:
& {$ {# E/ z; P3 S l
;;; We do not support autoloading applications by the native
, ~; C! u% [" F( @
;;; language command call (e.g. with the leading underscore# n5 s) F b# Y: G
;;; mechanism.)
# y! B' E4 z) l# W9 s9 g$ }- O
9 W- ?% p6 B+ E. w- C
) _1 Q2 d' z+ n/ Y2 k. p
;;;===== Raster Image Support for Clipboard Paste Special =====
1 Q2 H8 m; f; J( F7 v. n9 n7 g
;;
2 }+ o( ?9 N3 Y& n- V, |( s
;; IMAGEFILE- }% n6 f1 n* Q. v0 A7 j# a
;;
8 |( s Y) T! Y) J9 I; V
;; Allow the IMAGE command to accept an image file name without
+ f0 G3 o( D# H9 u- B- B. R
;; presenting the file dialog, even if filedia is on.
' U( S5 l5 g5 R# F3 _" [: u
;; Example: (imagefile "c:/images/house.bmp")
; U( C+ q0 S6 x5 Y8 o
;;
* @+ U6 w! T r! D# _: x- A% S
(defun imagefile (filename / filedia-save cmdecho-save)- E, a7 k9 Y3 \5 \0 E' c3 x$ c% w" F
(setq filedia-save (getvar "FILEDIA"))+ `$ d, v5 E/ b3 |# b
(setq cmdecho-save (getvar "CMDECHO"))
# X3 n4 ~6 @0 S9 D4 a
(setvar "FILEDIA" 0)
0 T. Q4 b1 u6 V3 c R5 C
(setvar "CMDECHO" 0)
* k+ N: Z& B3 G' X1 ~, P/ r
(command "_.-image" "_attach" filename)' F$ ? [) a$ h0 @+ O o
(setvar "FILEDIA" filedia-save)
/ A& k& l8 `/ e& o' r# t
(setvar "CMDECHO" cmdecho-save)# N3 U# ?/ y& [. m$ @. @/ j; K
(princ)
7 u3 o1 O" h* Q) m" z
)
8 a V0 w1 o" f- z
! S/ m" m) m; q- ?# H
(defun c:zx () (command "zoom" ".5x"))
2 F4 [2 j! i% P6 y7 B5 B9 c( g
(defun c:zz () (command "zoom" "p"))
' h1 j7 u; h$ ]0 M# O
(defun c:za () (command "zoom" "a"))
9 v0 V4 M G. w
(defun c:zd () (command "zoom" "d"))" J* D: b& s' L
(defun c:ze () (command "zoom" "e"))' h% d4 _# U- P. Q% f3 |, J: j2 I
(defun c:zr () (command "zoom" "" ""))
8 y$ ?& s% x% m z3 v/ O
(defun c:vv () (command "ucs" "v"))( Q- `# ?3 p6 C1 T. n1 I; r
(defun c:co () (ssget) (command "copy" "p" "" "m")) c1 p1 T j% r3 }1 ?& F8 Y
(defun c:c () (command "circle"))
; k0 q, _! Y3 R" S/ Q$ R. g" d
(defun c:rt () (command "rotate"))
6 [% B! S1 o3 q1 r9 D
(defun c:3q () (ssget) (command "_rotate3d" "ANGDIR" "value" pause (princ)))
3 ~7 U. U2 I7 G8 X1 G% Z+ v
(defun c:30 () (ssget) (command "rotate" "p" "" pause "30"))9 c% r4 S7 l% s6 J; s3 k. Q8 f
(defun c:-30 () (ssget) (command "rotate" "p" "" pause "-30"))
2 X& C1 a5 z5 U& C5 g
(defun c:45 () (ssget) (command "rotate" "p" "" pause "45"))
, J) O# M+ C6 [; _2 d: j7 P, o
(defun c:r5 () (ssget) (command "rotate" "p" "" pause "5"))
' A m; M8 R5 E+ Y
(defun c:60 () (ssget) (command "rotate" "p" "" pause "60"))" Q# m! j* ~1 e0 A( W* @& @
(defun c:-60 () (ssget) (command "rotate" "p" "" pause "-60"))2 U2 P5 @5 k& d# w/ x8 o
(defun c:90 () (ssget) (command "rotate" "p" "" pause "90"))
( M& V" r7 z' n1 O( _" g+ X
(defun c:180 () (ssget) (command "rotate" "p" "" pause "180"))
$ }9 ~0 O+ e' ^* h3 i# d! ^
(defun c:-45 () (ssget) (command "rotate" "p" "" pause "-45"))) I* x' Q( { G8 }7 P2 e8 J
(defun c:-90 () (ssget) (command "rotate" "p" "" pause "-90"))" z! u7 K! U; E" {0 \- r
(defun c:md () (ssget) (command "mirror" "p" "" pause pause "y"))+ `* _0 y" c' j$ m5 U# m
(defun c:fd () (command "find" "p" "" )(princ))(princ)
/ g1 Q- r. Q5 \* Y2 d: l
8 N3 z9 l' _# W u
(defun c:romantdim () (command "-style" "ROMANT-DIM" "romant,vnh.shx" "200""1""0""n""n""n"))(princ)
- @ X6 |( ]' C' M0 g. n
(defun c:romantext () (command "-style" "ROMANT-TEXT" "romant,vnh.shx" "200""1""0""n""n""n"))(princ)6 U& E' L' P2 U' J- j* V% [
(defun c:vnhelvthuong () (command "-style" "VNHELVLT-Thuong" "vnhelv,vnh.shx" "500""1""0""n""n""n"))(princ)
4 C/ A$ }" _* ?% _, O. u1 p. V; d
(defun c:vnhelvhoa () (command "-style" "VNHELVLT-Hoa" "vnhelvh,vnh.shx" "500""1""0""n""n""n"))(princ)9 X9 c) z# k1 p- P% l
(defun c:truc () (command "-style" "TRUC" "impact" "0""1""0""n""n""n"))
( e* a2 y. K& d
(defun c:chu () (command "-style" "VERDANA" "verdana" "200""1""0""n""n"))# _/ Y& M3 u6 U7 Y1 H! y( V& d
(defun c:cot () (command "-style" "COTES" "verdana" """1""0""n""n"))) T9 z: f0 V: s) P* R/ w
, J# p; M4 D$ m. X" R0 _; ?9 b
(defun c:an () (command "-style" ".AVANT" ".vnavant" "200""1""0""n""n"))
$ Z. E6 a9 Z- Z1 ]3 j/ k2 F
(defun c:ah () (command "-style" ".AVANTH" ".vnavanth" "200""1""0""n""n"))* d" h4 {; X1 d/ J- l) F
(defun c:ha () (command "-style" ".ARIALH" ".vnarialh" "200""1""0""n""n"))
, h1 o! [6 h9 \1 _
(defun c:na () (command "-style" ".ARIALNARROWH" ".vnarial narrowh""1200""1""0""n""n"))/ J& I; v8 G, P2 _
(defun c:vn () (command "-style" ".VNTIME" ".vntime" "200""1""0""n""n"))/ r _" s0 \7 j0 j
(defun c:vh () (command "-style" ".VNTIMEH" ".vntimeh" "200""1""0""n""n"))8 h Y& T& Q/ j. z- D: ^$ c
+ l0 w/ U( ?, A/ j- h
(defun c:ps () (command "PSOUT" "CorelDraw-import-Photoshop" "W"))(princ);export the current view of a drawing as an EPS file# e) p8 `* A: g/ a% T
! H& @6 \0 z# ~7 `! q1 D
;free lisp by cadviet,cd2k44* C" J `9 Q% \3 R+ w" o+ O
;link bai viet http://www.cadviet.com/forum/index.php?showtopic=53830, V& Z* o4 r7 O2 F+ x' T0 B, _1 `
(defun c:FTEXT (/ ent tstyle )+ L) P: f1 ~7 C7 n* W
(command "undo" "be")- r y, j8 J* Q- ^# g& I' P) T
(setq ent (entsel "\n Pick text :"))
" l: Q& S0 Y4 ^4 `
(setq TSTYLE (cdr (assoc 7 (entget (car ent)))))
1 p( k9 ? x+ v/ d6 L4 p7 r
(command "STYLE" TSTYLE "romant.shx,vnh.shx" "0" "1" "0" "N" "N" "n")9 s4 L1 ]- ?: p: {% s
(setvar "TEXTSTYLE" Tstyle)- F5 q" `' _2 Q" L" W
(command "undo" "end")7 f9 D. {9 R$ \! q( m
)
; ~1 M9 Y. M9 d
;Cam on cadviet nhieu 27-11-2023 04h15p36s (thanks cadviet)
/ F* u! q# c6 Z
6 e# ]* }6 w) h/ \
;free lisp by cadviet,cd2k44
8 G8 L Q/ y5 b4 _: h
;link bai viet http://www.cadviet.com/forum/index.php?showtopic=53830
) U' p: N, a$ Z5 Y0 Q) ~) f
(defun c:Fvnh (/ ent tstyle )" u3 z5 x3 e1 m& p2 g% Y5 X/ m1 [
(command "undo" "be")) [: W2 Z6 ]& L
(setq ent (entsel "\n Pick text :")): g4 g% w/ c) D. \! j; u5 [8 q7 \
(setq TSTYLE (cdr (assoc 7 (entget (car ent)))))
8 V0 I0 S6 F% C" L
(command "STYLE" TSTYLE "vnhelvh.shx,vnh.shx" "0" "1" "0" "N" "N" "n"): T4 o. e1 O( ?6 ] M
(setvar "TEXTSTYLE" Tstyle)+ R# Q: p( i8 k
(command "undo" "end")
3 K5 I/ r2 K2 q: \8 F* {
)
/ }0 {6 o; D8 c& x7 D+ i6 i
5 n& T- o+ O( `
;free lisp by cadviet,cd2k44$ j R& g' C8 f6 }% L/ b9 Q4 E
;link bai viet http://www.cadviet.com/forum/index.php?showtopic=53830
3 V/ t3 B* a; j8 Y! f" G" D
(defun c:Chbg (/ ent tstyle )
- ?$ e, w) e. D, K: R
(command "undo" "be")' `( x$ A7 }( S- x: W$ Q
(setq ent (entsel "\n Pick text :"))1 I+ I* w! H$ V
(setq TSTYLE (cdr (assoc 7 (entget (car ent)))))
# P& a. ?7 [1 }. _9 w
(command "STYLE" TSTYLE "chhbg.shx,vnh.shx" "0" "1" "0" "N" "N" "n")
- M" ~ a$ Z! C7 U
(setvar "TEXTSTYLE" Tstyle)
4 [! S3 E6 Y5 O4 u
(command "undo" "end")- K; v$ p4 S0 U6 H0 x$ g, N ~
), p8 Z8 w# t& z; X
8 t& V# l s4 b" N
;free lisp by cadviet,cd2k44( ?6 Q Z5 m( z! N0 d% W
;link bai viet http://www.cadviet.com/forum/index.php?showtopic=53830( j- c+ v3 I8 F
(defun c:Chsm (/ ent tstyle )9 D" T% }! Q( Q8 m+ y% J/ `
(command "undo" "be")
7 c/ i! B G0 K; J
(setq ent (entsel "\n Pick text :"))9 J- F# _ w" T5 X8 r1 A9 W
(setq TSTYLE (cdr (assoc 7 (entget (car ent)))))( C6 V6 c ~3 o1 c$ m) T- S1 v
(command "STYLE" TSTYLE "chhsml.shx,vnh.shx" "0" "1" "0" "N" "N" "n")/ s5 C G* S+ |( Q
(setvar "TEXTSTYLE" Tstyle)
, k/ n7 K' Y. y$ O8 h, P3 x+ f
(command "undo" "end")- U& }8 ~0 B- g1 H7 P0 Y
)
1 q$ y- H, w) u/ k! ?2 d) r( s0 s% n
6 p( Q- s" J% b% P( S" v
;free lisp by cadviet,cd2k447 b D X9 z3 a# d+ M4 V1 ]
;link bai viet http://www.cadviet.com/forum/index.php?showtopic=53830
" G! I; g5 I# Z8 Y s; C! ]! M
(defun c:Fttf (/ ent tstyle )
- l! X3 O" r: `. @+ n0 X
(command "undo" "be"): K' C( u1 h0 D9 g8 }1 A
(setq ent (entsel "\n Pick text :"))
% k& E; y& @+ u, v M7 M. @7 o
(setq TSTYLE (cdr (assoc 7 (entget (car ent)))))
! q3 f& l6 b4 n
(command "STYLE" TSTYLE "verdana.ttf" "0" "1" "0" "N" "N" "n")! W6 P7 I( ^& Z \" X
(setvar "TEXTSTYLE" Tstyle)$ }! I4 q$ j& }* [0 z. M, b
(command "undo" "end")
- f' r4 D/ D; q, G/ g$ ]6 }
) E i* }+ K. c. t9 {6 f
( f% ^3 q0 X) C. U1 r$ |3 s5 Z! K
;;; ============================================
, r! `2 E- [. V) B6 }; H7 O
;;;6 Z4 ~4 R' J* P% q- v: u
;;; LISP Creater Tao Duong Dan AUTOCAD2000
0 ]9 L }9 e& S: _7 X5 U6 G7 u
;;;
# J2 {: P0 D( A
;;; ============================================
" @: w) ~( R# A6 L; z* a
' f, x. D4 P3 j1 ?" D7 I
;;; ============================================
, o% x$ Q# M- W9 X8 N
;;;& ]# ]$ i S/ d' }) ?" M- R, c# s$ L
;;; CREATING FROM AUTOCAD20002 y9 O1 K" n- w8 T; F& |: o( P( [, S
;;;/ z1 w) O* B) |9 `0 l# V
;;; ============================================
7 f8 D1 i% N+ P( y; W8 {6 t8 G
, P6 p; Q- F7 C
(setvar "INSUNITS"4)* u, i- N; w1 U d- c
(setvar "ANGBASE"0)4 M8 S, D. L' ` ?& ?
(setvar "ANGDIR"0)- k7 r7 N, D# F/ y I
(setvar "AUNITS"0)5 v# g3 o" T6 l) J! i
(setvar "AUPREC"8)
9 m& u1 R- p0 r& G
(setvar "LUNITS"2)6 L/ w8 W: J4 A3 s2 o
(setvar "LUPREC"8)2 M# r& o) E! l/ T
(setvar "ACADLSPASDOC"1) # W7 b$ v$ f: B3 R1 r& D4 O
(setvar "pickbox"5)
5 D9 C$ F; X* C5 z# w
(setvar "blipmode"0)
/ y! @( L4 D( Y# m6 @
(setvar "mirrtext"0)
2 P, ^& E; Y+ c& ~9 b5 N3 I
(setvar "cursorsize"100)5 q0 Q: K0 F( k( z8 b2 U
(setvar "ZOOMFACTOR"75)
+ @2 z' L4 i4 y+ {& w! {- P
(setvar "LTSCALE" 10)
; q! f7 m0 w" D4 v8 S
(setvar "lwunits"1); S8 d" `: R3 j+ G1 C7 _
(setvar "DIMBLK" "Closed")
) K6 S0 r3 o. R g
(setvar "DIMGAP"0.0693)
$ n6 `- x$ P! _3 p7 c) g( r4 N1 ?
(setvar "DIMASZ"0.20)9 b- n( M- w7 p) u
(setvar "DIMCEN"0.2)% f+ s# `) x2 N6 X/ H* T
(setvar "DIMDLI"0.1)
$ D! T" u7 U1 A) I5 B0 h
(setvar "DIMEXE"0.0693)1 r$ i. o9 s5 X1 Y2 i' i. i- p
(setvar "DIMEXO"0.25)- x* W3 n" l6 I+ J1 O% T3 g4 @
(setvar "DIMDEC"0)* U/ Z" n% T* {' G0 a- J! A
(setvar "DIMTIX" 1)
3 w, y" `: j' F( R
(setvar "DIMTXT" 0.099)4 O3 z5 r/ H6 w) [
(setvar "DIMCLRT" 7)2 M! w; u) O. |5 w# ?2 k
(setvar "DIMTVP" 1)
* m) i5 V( M8 z$ n" L6 C/ j3 }
(setvar "DIMJUST" 0)/ ?+ ^7 L+ p! n% |) m$ A
(setvar "DIMTIH" 0)
* E. a, o. x, \0 q' c
(setvar "DIMTOFL" 1)
( k/ V$ g7 z7 e. _4 m0 i/ v
(setvar "DIMSCALE" 1111.1111)9 h) D# f1 y! V& d& J: |" R ?$ `
. q+ {8 v/ U5 `% A* ~% N9 x) b4 }- Q4 q
2 E- _* A7 v" J8 H
. _. k& n* y8 z: l1 I
(defun c:zp () (command "'.zoom" "p"))) r7 y% B# i/ C9 M/ i
(defun c:zz () (command "'.zoom" "p"))9 v4 g: L5 S! ]& f% S
(defun c:ze () (command "'.zoom" "e"))
/ h* Y( s0 ^1 J9 e9 v' @: L
(defun c:za () (command "'.zoom" "a"))( R9 U6 _+ E0 G* n) H; y" o
(defun c:zd () (command "'.zoom" "d")); {# h$ e0 W0 R- |! T" Y
(DEFUN C:ZZZ () (COMMAND "ZOOM" ".25X"))) |" p0 {$ p( y
(DEFUN C:ZX () (COMMAND "ZOOM" "2X"))% r; \' k; x7 {' |. w$ D
(defun c:de () (command "ddedit")(princ))
: `. Y1 T: n/ b b# H
(defun c:dda () (command "Dimaligned"))
8 ?; |9 G6 K3 {/ i9 W# ^ U; L
(defun c:ddb () (command "Dimabaseline"))7 w: Z3 q4 o% B( j* L; H+ E
(defun c:ddc () (command "Dimcontinue"))
! I/ Y3 b! t0 g( X2 n A
(defun c:dde () (command "Dimtedit"))$ h4 h0 u4 p2 p5 F" X: a/ m
(defun c:ddf () (command "Ddattdef"))
# V) Q1 D8 H, ^8 b) v6 I
(defun c:ddi () (command "Dimdiameter"))1 y: }0 F4 Y1 _5 R* r
(defun c:ddl () (command "Dimlinear")), J! H& S" c9 b/ l/ r
(defun c:ddn () (command "Dimangular"))
6 V( M- k/ c4 h+ y
(defun c:ddo () (command "Dimordinate")). i! q) H3 l* z0 a3 t# E) G/ ~! }' z
(defun c:ddr () (command "Dimradius"))* q, J6 c1 E8 ]- b' R
(defun c:dds () (command "Dimstyle"))1 Z5 i! i: T! M. ^' {
* U) W3 L# D2 m4 m& E. u2 `: i
(defun c:DU () (command "dim1" "up" "select" "exit" pause ))(princ)
& Z3 [2 Q7 Y, K5 w. C
(defun c:DH () (command "Dim1" "home" "select" "exit" pause))(princ)
! E: L7 i% E7 v5 ~8 E
(defun c:UU () (command "dim1""update""all"))
9 o3 G: l) M: p' e" S! w) q" ]
(defun c:ded() (command "dim1""tedit"))1 D. z' P6 E6 q5 C( b+ a
(defun c:da () (command "dim1""ali"))" P$ f$ o3 g+ }+ X* U
(defun c:dll() (command "dim1""l"))
. x# V1 P" ^2 H, K4 h
(defun c:dan() (command "dim1""an"))- l% ~$ t5 n" q2 o2 d
(defun c:d1 () (command "dim1""ra"))
7 m) C8 S( I% i9 ]( I
(defun c:n () (command "dim1""new"))
# g6 V. @( O9 `+ [9 X, {- F
5 n, k: v# a3 M5 @2 s
(DEFUN C:PE () (COMMAND "PEDIT"))
4 O: F2 `( q6 o( b/ J
(DEFUN C:PL () (COMMAND "PLINE"))! e0 E6 d# f) x8 c G8 p: [; C
(defun c:dd () (command "dist")(princ))
6 N7 g5 P, s2 k
(defun c:w () (command "pedit" pause "w" "au")(princ))9 D- z, O/ _8 u
(defun c:pg () (command "polygon" "polygon"))
0 p0 J. l/ {0 B. [2 Q) r
(defun c:el () (command "ellipse"))) ~8 y) s* |* N+ J5 x
(defun c:xe () (command "explode"))
5 b( ?( G z0 b, f- ~: T1 @
(defun c:eex () (command "extrude"))
' W y' H$ S( ]# c1 F7 L( y
(defun c:xg () (command "xline""a"))/ E0 `" V3 `4 F5 I {
(defun c:xh () (command "xline""h"))
5 o/ s& `: G( }7 Q+ _: V$ j( r
(defun c:xv () (command "xline""v"))9 p' y; ]! p7 [* v# o j, p# |
% j$ F$ K+ Q6 v' e: q
(defun c:oc () (command "osnap""cen"))
3 u( o+ V" X8 y
(defun c:od () (command "osnap""nod"))% v! l" j: v" f
(defun c:oe () (command "osnap""end"))
: C3 a4 ^1 \) Z3 S# F
(defun c:oi () (command "osnap""int"))/ P! b5 {7 s X
(defun c:or () (command "osnap""per"))
+ U, S7 F9 m& [( u
(defun c:on () (command "osnap""none"))+ \! y, ]+ |1 W. a& ~8 C
(defun c:oq () (command "osnap""qua"))
. T f6 f$ m/ J; {% a6 Q
(defun c:om () (command "osnap""mid"))! u6 _; k6 O5 j# T& D! n: ~8 Z
(defun c:ot () (command "osnap""tan"))
3 {8 p. e+ i3 C" ?. b9 {! A, z
(defun c:oin () (command "osnap""ins"))6 Q2 J) H9 g3 @
(defun c:oa () (command "osnap""nea"))4 N) F/ }8 n3 I! Z% i' f' J
(defun c:ol () (command "osnap" "End,Mid,Cen,Node,Nea,Int,Perp,Qua")(princ))% ~4 W! k1 f b; H- Z
;(defun c:du () (command "dim1" "up" "s" "pick" "other"))
4 w) p! [- z$ @1 s! w! L
;(defun c:nn () (command "new" "y" ))
2 u8 @ t; L" H' N% ]
4 Z. _8 O4 }! M/ b& U" }, c
(defun c:/ () (command "limits"))
% j7 m. `2 X" I
(defun c:`1 () (command "region")): M5 \7 \! F; R
(defun c:`2 () (command "subtract"))
9 ~2 M6 z, G% e0 f0 W, ~5 m4 x; Q
(defun c:`3 () (command "union"))
: R* w% ^) p. e+ [! N0 m. a
(defun c:`4 () (command "intersect"))
@+ S( g8 x [+ o. u/ I [
(defun c:`c () (command "cal"))
% e1 V# T" [. [3 ^" y
(defun c:`g () (command "Polygon"))
$ J: |- Y; Z- s2 p& @" j4 e% f7 Z
8 ?3 @2 u, F" d C
(defun c:lmi() (command "LIMMAX" pause "" "zoom" "all" )(princ))
% G- n% [3 d* |1 i! ]# b8 m/ o' |
(defun c:drt () (command "DRAWORDERCTL" pause "Integer" "" "" )(princ))
* C; L; g5 I7 n0 C5 C* y0 ^
(defun c:ip () (ssget) (command "print,_plot" ))(princ)( C5 H4 o& D2 R- U0 E' J" u
" E$ F9 e* N# B+ K
(defun c:ddm () (command "ddlmodes" pause))
( c+ V' J+ ?7 @+ ]
4 l6 w" F- A& o# M* t7 ?/ B5 D
(defun c:sha () (command "shade" pause))
9 x/ _' Y3 I- N5 b
! o) s( |+ L- V) L+ e. Q. g& }
(defun c:sr1 () (command "surftab1" "p" "" pause))" D( l) N; b1 @0 N" M' p3 \7 |
(defun c:sr2 () (command "surftab2" "p" "" pause))9 @. @+ g8 h) d+ U
8 C- Z; ?( g& p- ^- A2 F
(defun c:ad () (command "audit""y"))0 H+ G9 G |9 k* n- l0 j( q: w7 M5 k
(defun c:q () (command "quit")); G5 h) b. R; @, m
1 R6 S1 Y# O, E
(defun c:30 () (ssget) (command "rotate" "p" "" pause "30"))
) ^4 l) R. D0 L2 k, \5 @( l. p; `
(defun c:-30 () (ssget) (command "rotate" "p" "" pause "-30")), R$ ~( E# A p9 V
(defun c:45 () (ssget) (command "rotate" "p" "" pause "45"))
8 U) x4 ~" H2 s3 T M
(defun c:-45 () (ssget) (command "rotate" "p" "" pause "-45")) U) }+ t( u7 l' W$ d
(defun c:60 () (ssget) (command "rotate" "p" "" pause "60"))
* I+ W0 B* `) S7 Q1 `
(defun c:-60 () (ssget) (command "rotate" "p" "" pause "-60"))+ ~2 [6 c/ \& q1 r* L. I1 Q/ A
(defun c:90 () (ssget) (command "rotate" "p" "" pause "90"))
' V8 [2 R( w/ X( o$ f( M) i! M! ~
(defun c:-90 () (ssget) (command "rotate" "p" "" pause "-90"))
' r! ~: m3 ~2 B
(defun c:180 () (ssget) (command "rotate" "p" "" pause "180"))0 g0 V7 ^0 m( O0 r9 P
$ Y0 c: I" [7 k" b( ^ ?
(defun c:u3 () (command "ucs""3"))
W6 z4 u( j3 ]3 o, A0 P
(defun c:ue () (command "ucs""o""end"))
+ I5 a% V' {2 s! S, H- ?1 M
(defun c:ui () (command "ucs""o""int"))% t* @- M3 a; P2 f8 i" V
(defun c:um () (command "ucs""o""mid"))
8 l6 y M; U- p6 W1 u' y$ |
(defun c:uc () (command "ucs""o""cen"))
' \, g& R2 o3 {/ Y+ t
(defun c:uq () (command "ucs""o""qua"))
$ N4 \3 @) n+ `% ?" Z% e
(defun c:3s () (command "ucs""3"))7 C% W4 D0 v5 t" f: G c4 F: j
(defun c:sx () (command "ucs""s"))
# j' f" E" O s+ r5 ~ L- o' u: N
(defun c:sf () (command "ucs""o"))
! M9 D# Q0 b! `' v. u
(defun c:sz () (command "ucs""p"))$ }' n( t2 p t6 `
(defun c:sr () (command "ucs""r")). N8 V9 z) e6 ~4 R# {
(defun c:sw () (command "ucs""w"))
; ^' V' S: a) W5 W2 s
(defun c:fv () (command "ucs""v"))& m2 t/ i+ k" p; R
(defun c:ux () (command "ucs""x"))8 Y/ ]- h# `) A- U( D$ p! T
(defun c:uux () (command "ucs""x""90"))& J4 u6 ?+ Z% u p U9 c0 t
(defun c:xxu () (command "ucs""x""-90"))8 \0 T0 C/ [; _' { _9 R
(defun c:uy () (command "ucs""y"))
0 D1 `: ?& s. O- F: O$ E
(defun c:uuy () (command "ucs""y""90"))
/ S0 z0 }" ^9 Q# m" [# D2 R' y
(defun c:yyu () (command "ucs""y""-90"))# i8 ?+ y( r; R9 a4 O0 H. f
(defun c:uz () (command "ucs""z"))
$ }% A/ g7 J2 H8 j3 V
(defun c:uuz () (command "ucs""z""90"))
- K3 A$ q K" Y) y) m# a3 z5 B" b
(defun c:zzu () (command "ucs""z""-90"))8 F4 J+ C5 J/ I! a7 x' W& o
(defun c:uci () (command "ucsicon" "Properties" ))(princ): N3 o9 \4 _/ N1 n
(defun c:ucm () (command "ucsman" ))(princ)" y" z4 W/ H/ `/ i- }. M9 N
+ N! L( v9 }" r }6 Q. V
(defun c:sa () (command "vpoint""_non""-1,-1,1"))
4 V' |& r- B( `
(defun c:sd () (command "vpoint""_non""1,-1,1"))
, [- Q2 c0 `, |- S
(defun c:se () (command "vpoint""_non""1,1,1"))
7 w4 T- R/ h: e8 i- l
(defun c:sq () (command "vpoint""_non""-1,1,1")), z5 P6 p4 S" t' C" q
(defun c:vc () (command "plan"""))( T) w; y* t+ P; E
(defun c:vd () (command "dview""all")), D; Z! A( H: ]7 k9 M3 ^$ u% |$ j
. G I. T& E- [3 V0 c
(defun c:TT0 () (command "tilemode""0"))* n& d$ A) `# s8 V' E8 q8 x( P$ v
(defun c:TT1 () (command "tilemode""1"))+ R( i0 U% x$ m' H
- b* @ u: X, g, v3 \0 w8 `0 S
(defun c:vt () (command "vpoint""_non""0,0,1"))* }# e! o0 d/ b2 D$ K
(defun c:vb () (command "vpoint""_non""0,0,-1"))1 k& G* H/ Z1 x2 \/ H b
(defun c:vl () (command "vpoint""_non""-1,0,0")): e# b0 t" l; m- M: |
(defun c:vr () (command "vpoint""_non""1,0,0"))
) t( ^$ c- C( b& `5 d6 ~
(defun c:vf () (command "vpoint""_non""0,-1,0"))
) m7 ?. ?6 w3 o" S1 V/ I
(defun c:vk () (command "vpoint""_non""0,1,0"))( `( s! R8 Q! s! w' _' j/ u
7 X1 W- Q7 p4 R5 u4 [
(DEFUN C:MM () (COMMAND "MIRROR"))
4 y( \& b/ v" a+ d0 G) f! P/ l
(DEFUN C:MP () (COMMAND "MOVE" "P"))$ ?) M8 w# J* n1 _, K8 S; G5 I
8 `$ t' A. K8 {: L
(defun c:mee (/ a)+ A- k1 q4 C d
(setq a (ssget))(command "move"a"""end"pause"end"))- N! [$ ^( k, h% V7 p
(defun c:mc (/ a)
$ l5 v9 R0 g0 J1 J9 G" [" C1 K i; d
(setq a (ssget))(command "move"a"""cen"pause"cen"))- k' q8 r H9 C! K( p; \* a
(defun c:cc (/ a)
% t4 f. N$ h7 Y, W
(setq a (ssget))(command "copy"a"""m"))% Y/ x. T: d7 f; X0 A
(defun c:ce (/ a)
) x! C) m) g; \+ j& O, D
(setq a (ssget))(command "copy"a"""m""end"pause"end")) E6 C& z6 v" }6 G r% }
(defun c:cn (/ a)
( p2 e; F$ u7 M% x1 ^( ^0 G* v8 I
(setq a (ssget))(command "copy"a"""m""cen"pause"cen"))2 h9 z& G; V. t( r, j' p3 ]
(defun c:tl ()(command "trim""l"""))3 j5 |5 D6 b+ v% K* ^& L
(defun c:tf (/ a): h! L* R0 q5 n& b7 z$ b& J8 `
(setq a (ssget))(command "trim"a"""f"))
& G6 b1 e% q# l$ h! `7 d. i2 C
(defun c:el ()(command "extend""l"""))
( q q( F2 w: ~9 m" u; F& N: |7 ^* B
(defun c:ef (/ a)
8 t/ \2 P* T* y+ s/ Z
(setq a (ssget))(command "extend"a"""f"))
- J* w& n1 q4 z" n1 W
' O ], x( J. [% c$ f4 X( a4 N( e
( y3 H; R# G* q. L3 \( X
(DEFUN C:110 ()(princ "\nChon doi tuong can offset ra 110.......") (COMMAND "offset" "110"))
7 i5 f# Z# S, U& H" p1 t
(DEFUN C:220 ()(princ "\nChon doi tuong can offset ra 220.......")(COMMAND "offset" "220"))6 u4 O D. ^/ d! A/ q0 V
(DEFUN C:330 ()(princ "\nChon doi tuong can offset ra 330.......")(COMMAND "offset" "330")). u5 q2 I9 [' F) s
(DEFUN C:400 ()(princ "\nChon doi tuong can offset ra 400.......")(COMMAND "offset" "400"))# \. D. j2 w) W! P" A# x
(DEFUN C:55 ()(princ "\nChon doi tuong can offset ra 55.......") (COMMAND "offset" "55"))0 K, N# t5 Z" V% B- @: d; E
(DEFUN C:600 ()(princ "\nChon doi tuong can offset ra 600.......") (COMMAND "offset" "600"))4 e; f& b! I5 i1 P' t! `9 h
(DEFUN C:700 ()(princ "\nChon doi tuong can offset ra 700.......") (COMMAND "offset" "700"))
" R0 @: x, B9 l% W* D
(DEFUN C:800 ()(princ "\nChon doi tuong can offset ra 800.......") (COMMAND "offset" "800"))* e' v2 F& k7 A. l+ g) D1 s! J3 \7 K
(DEFUN C:900 ()(princ "\nChon doi tuong can offset ra 900.......") (COMMAND "offset" "900"))
, r x1 K# f* R7 d
(DEFUN C:1200 ()(princ "\nChon doi tuong can offset ra 1200.......") (COMMAND "offset" "1200"))
+ W w% d! }- q6 A5 J8 N! U. m& I
(DEFUN C:1500 ()(princ "\nChon doi tuong can offset ra 1500.......") (COMMAND "offset" "1500")). O+ ]# I6 K3 V
(DEFUN C:1800 ()(princ "\nChon doi tuong can offset ra 1800.......") (COMMAND "offset" "1800"))
, J8 |, r9 Q" S l1 v7 s" A
(DEFUN C:2400 ()(princ "\nChon doi tuong can offset ra 2400.......") (COMMAND "offset" "2400"))
# n' \% g. W& }* v0 Q& B5 Y0 @9 h
(DEFUN C:3000 ()(princ "\nChon doi tuong can offset ra 3000.......") (COMMAND "offset" "3000"))
5 H' q5 A, C; K2 A
(DEFUN C:3600 ()(princ "\nChon doi tuong can offset ra 3600.......") (COMMAND "offset" "3600"))+ V+ N1 U) `* I0 v* b& h# X
(DEFUN C:4200 ()(princ "\nChon doi tuong can offset ra 4200.......") (COMMAND "offset" "4200"))3 M- a, H8 F( B6 j- T8 f, f" W
(DEFUN C:5000 ()(princ "\nChon doi tuong can offset ra 5000.......") (COMMAND "offset" "5000"))
: u1 P8 k) h% z( e( c- f2 }, A
- D1 a2 _4 t0 F$ m! x
(defun c:mla () (command "-mledit""av"))
2 @4 A. p. _3 D4 p& L
(defun c:mlc () (command "-mledit""mc"))6 y; n8 C0 o2 [0 I! L0 s: t5 F) g- O3 R
(defun c:mld () (command "-mledit""dv"))4 S0 n* |3 l' z1 G
(defun c:mle () (command "mline""end"pause"end"))
- O8 K' u- T6 y6 t& N& l+ N/ W
(defun c:mli () (command "-mledit""ca""int"pause"int"))/ v5 E( m; Q, E$ |9 `1 o
(defun c:mlj () (command "-mledit""cj"))8 t- K. }% O& t( _! |: z; Z
(defun c:mlt () (command "-mledit""mt"))! }* P) e- Q# b: S" Q! j
(defun c:mlk () (command "-mledit""ca""end"pause"end"))0 \7 m4 N( p& V
(defun c:mlw () (command "-mledit""wa"))( n1 g% T6 [" Z3 a
1 k9 u$ O3 ~5 ]/ E
(DEFUN C:DCA () (COMMAND "DVIEW" "all" "" "CA"))4 d8 j- r5 G1 i
(DEFUN C:DPA () (COMMAND "DVIEW" "all" "" "PA"))
0 B) J9 I q H# V0 ]1 e5 [
(DEFUN C:DPO () (COMMAND "DVIEW" "all" "" "PO"))
0 B" }) ~$ U/ N4 u
(DEFUN C:DDD () (COMMAND "DVIEW" "all" "" "D"))* u" L8 O& F6 B" a0 S# {
(DEFUN C:DZ () (COMMAND "DVIEW" "all" "" "Z"))
; g( D8 w! X: @! M
+ M4 V4 e1 F( B
(defun c:p0 () (command "pline""""w""0""0"))( S$ b- j0 r* S( a2 _( i( O
(defun c:ot () (command "offset""t"))
7 z7 ]$ ?, a6 K7 D4 q) y( l
(defun c:t () (command "mtext"pause"j""bl""h"pause))' R) k) m) x6 v4 p+ \, ?. [ H
(defun c:uo () (command "ucs""ob"pause))6 E- c* X9 q; Q4 V
(defun c:f0 () (command "fillet""r""0")), A5 _: w5 l! C X
(defun c:fr () (command "fillet""r"))
1 J: ~( N& w6 k$ M
. i$ {1 E! P$ G* o0 T
;CHAMFER) J0 P! L7 Y! K' s2 k5 g
(defun c:cf () (command "chamfer"))
* ]0 F' c4 h" X8 ~4 N# \ m4 z
(defun c:cfd () (command "chamfer" "d"))
/ k% @: G7 k9 B# @* e( }6 e
(defun c:cf0 () (command "chamfer" "d" "0" ""))- j. m. a/ a* j; c3 i& X
: @) W/ W8 D$ M; Z! x4 V5 e" L' R
;FILLET1 f6 W: t K3 Z* u
(defun c:f () (command "fillet"))
* W1 u3 v) O7 r# L2 a
(defun c:fr () (command "fillet" "r"))
$ q5 U, k: B, O
(defun c:f0 () (command "fillet" "r" "0"))" o/ P- D& A1 b P0 _0 v
1 p7 h0 K# B! c; L* A3 P
(defun c:OO () (command "oops"))
, D6 T9 S7 T0 ^5 ^7 j
(defun c:dln () (command "dimlinear"))4 X# u u+ w i- t' P; K; q) d) Y, W
(defun c:dan () (command "dimaligned"))8 I- j5 z4 n6 ]; ?7 C) a
(defun c:ddc () (command "dimcontinue"))& H# T: \9 o/ m! K1 [
( r# i$ z* A# [& F: i& c6 B
(defun c:sc () (command "scale" "auto"))
+ L6 S5 g" R k! `3 K9 p
(DEFUN C:XO () (COMMAND "snapang"))
6 |; ]& a; X. L# j g6 |# L U
(defun c:cc (/ a)
6 i# {/ x9 v) i. B4 A% l, Z
(setq a (ssget))(command "copy"a"""m"))( O O! V7 \: g& D8 Q
7 y1 X" g u8 P; j" K
(defun c:PJ (/ a): g: `) |- }( U4 h0 @2 o# N; R5 w, l6 c
(setq a (ssget))(command "pedit"a"""j""all""y"))
" d' D" d7 P/ |2 j" y
(defun c:JJ (/ a)
# R: Z! K; [/ W
(setq a (ssget))(command "pedit"a"""j""y"))! H7 q7 m& G5 x4 h
(defun c:TN (/ a)/ Z) b, o/ T, V6 j
(setq a (ssget))(command "change"a"""p""T"))
$ g& j" K# b! c/ p: `* [7 r
, b; q$ S' f: ^- o; j
n. Z% l8 l% a4 S( x3 O& |6 I
;=======================Tran Ngoc Thang - Tu nam 2000 - Hoc nam cuoi KTS . DHXD=========================
4 d! O; j# v; O! Y8 `; v2 e. ]
' O7 C# v0 f( W, B3 Y
(defun C:IB ()(setvar"cmdecho"1)4 _# O' b5 ^% W0 D' O. G" z
(setq pt(cadr(entsel"\nSelect Block:")))
" v4 a0 [$ r$ }
(setq e1(ssget pt))
) z0 g: x6 M8 y
(setq e2 (entget (ssname e1 0)))% t8 S' v/ ]3 T% D' Y" b; ~; Y. ?* ^
(setq blname (cdr(assoc 2 e2)))
* L) s+ k( \# u, R% S H+ S+ H
(setq oer *error* *error* err2)(command ".insert" blname))0 T5 i. q* x9 H5 E) j, O3 W3 p' A) ~
3 n( G/ _; p* k. L, l
(defun c:II ()
: `' N7 b3 ^( p% l* u$ g8 W- t
(setvar "cmdecho" 0)/ K b6 m" W u# H3 {* S1 u" A
(setq olderr *error* *error* myerror)) l; T3 ~8 r) K; B0 L3 @6 Q
(prompt "\nSelect objects: ")
9 x9 x+ r4 g& b" O/ r- f5 j7 m6 [
(command "select" "au" pause)- U8 ~& k; U: i
(setq sstxt (ssget "p")* \3 ^8 M& j) p! A9 M7 u
sslen (sslength sstxt)
5 v6 N8 k! @3 u
ctr 01 z" ?% X. R/ J3 W1 w
)1 L$ x0 ^3 x0 s8 S' B3 x" |
(command ".undo" "mark")
# {" \" b8 [" M
(while (< ctr sslen)) z2 B, Z( A4 v2 v5 @
(setq listxt (entget (ssname sstxt ctr))% I0 W+ ~" \4 g. g6 c o( V. Q: ]# n
txttxt (cdr (assoc 1 listxt))' ~, ?1 u c) t1 g9 d
enttxt (cdr (assoc 0 listxt))
* p0 T& L0 M/ N6 L
)6 m) n: g% f6 B' K! E
(if (= enttxt "TEXT")
% `- H0 x' d' G, S
(progn
$ l+ H. q1 i. a
(setq testxt (substr txttxt 1 3))
7 @7 @, G- `6 _1 M3 k6 j
(if (or (= testxt "%%C") (= testxt "%%C"))
9 l3 W2 \" d4 L$ |$ g
(setq newtxt (substr txttxt 4)), f8 G O j8 J' @
(setq newtxt (strcat "%%C" txttxt))1 m# {& G- J# o) S0 F
)$ m. r' H0 o0 G+ X& n6 F1 j
(setq listxt (subst (cons 1 newtxt) (assoc 1 listxt) listxt))
: o2 [& b0 `# O1 N% o9 G. p
(entmod listxt); i- ^+ b( i, G( [
), E- @5 K+ R! a) C* I& }
)
' K- `* q3 u* A, ?7 n7 p4 R {, i
(setq ctr (1+ ctr))) z3 l. F& o' b- l5 x3 J
), K- }4 N' q+ M- {9 @/ ~ Q5 U
(setq *error* olderr)$ D& \! P, j4 D; C5 K
(setvar "cmdecho" 1)+ a7 x6 |) X$ S& }
(princ)0 _9 r) \/ k$ e
); j, Q! m$ T( I' t3 |
) J: `% B; \) a
(defun c:DG ()
7 r: J, ^6 a* Q) [
(setvar "cmdecho" 0)
" q6 B; i+ b% u: R
(setq olderr *error* *error* myerror)
6 Q$ l2 Y) g1 L% a' a* r
(prompt "\nSelect objects: ")6 j/ P, _0 U9 R
(command "select" "au" pause) b/ F, R) F- J6 I' m7 M1 f7 s9 g
(setq sstxt (ssget "p"): ^* \2 v5 T7 \" I
sslen (sslength sstxt)
, l. I3 P7 h" w" J' d
ctr 0
( }) a0 Q0 u$ b+ ^! Q' i. x
)( S3 x" n1 n8 b
(command ".undo" "mark")7 G! J' `5 Q/ b% D4 U' e6 u' `
(while (< ctr sslen): b9 e4 Q8 }& ? h& f4 ^7 ]2 y
(setq listxt (entget (ssname sstxt ctr))
( D" P: Q' S3 I" B1 y
txttxt (cdr (assoc 1 listxt))# e' p% R+ i9 x: W
enttxt (cdr (assoc 0 listxt))
8 I! ~0 ~) w8 `0 A8 R6 ?
)) f9 Y& }( H9 N2 R5 a) N3 n. ^ o
(if (= enttxt "TEXT")
c' S% I# h, f. q' z: @
(progn
# u) k4 J4 \5 I2 V
(setq testxt (substr txttxt 1 3))
" v, ^* w! B- r5 e3 q
(if (or (= testxt "%%d") (= testxt "%%d"))! k( F% @% l3 R- Q1 b8 b
(setq newtxt (substr txttxt 4))2 Z; F9 e9 q& G. ^
(setq newtxt (strcat txttxt "%%dC" ))
& `. ~! T8 x$ _/ D4 i" m7 k0 ]
)
/ s! f0 c. h$ }& p
(setq listxt (subst (cons 1 newtxt) (assoc 1 listxt) listxt))
6 V; S) E6 ]: g
(entmod listxt)
" V0 L) l+ N: @+ c, n
)
" j. e! Y/ N2 Q& }1 b
)+ X( O, l7 u- X+ R* B
(setq ctr (1+ ctr))
. v4 m, A+ ?' o0 ?. j* w
)
3 x7 A j W) q/ o: [, D
(setq *error* olderr) a5 r0 |" G$ S+ G! R& G1 y& ~3 [
(setvar "cmdecho" 1)
7 g& m n( P o
(princ)% w) G% J' r# S" m9 z
)
1 c9 s6 C& k; {! i8 B% X! U
; a! b" c2 f% c
(defun c:PI ()
" x. X* N F; D, @9 V( k
(setvar "cmdecho" 0)
+ [4 R; C* ~4 [& E6 Y
(setq olderr *error* *error* myerror)! x0 W- c( o: W$ r
(prompt "\nSelect objects: ")* }0 Q2 G5 f" `$ `9 [2 S f
(command "select" "au" pause)
. W8 {1 S+ f; T' n$ L5 x; x' \0 X6 K
(setq sstxt (ssget "p")( r* M" M/ w6 }5 C
sslen (sslength sstxt)
7 b( g0 D$ Y% b7 {; r4 U k
ctr 0
8 Y3 `" R% e3 V. C; a2 h
). @ S, P; B5 D
(command ".undo" "mark")
: C, H" ~" t9 f" E5 j
(while (< ctr sslen)
J4 ~$ S0 }+ `; a' {
(setq listxt (entget (ssname sstxt ctr))& ?( e7 }; }) j. m
txttxt (cdr (assoc 1 listxt))
" C0 l' b/ O; E& D$ E3 U# c& D
enttxt (cdr (assoc 0 listxt))
- Y$ b% A. K9 J
)
; O5 E4 h9 E" [3 k4 Y3 r* I
(if (= enttxt "TEXT")
: f& r9 J; \$ |% Q
(progn
' D3 e# B) E8 M. I: e
(setq testxt (substr txttxt 1 3))
. o3 F- a; B7 F; x) E. u6 U& r
(if (or (= testxt "%%p") (= testxt "%%p"))* R; e& ~. [% [! ^" ?# `# m
(setq newtxt (substr txttxt 4))
, w( {5 n9 J4 L5 F& i Y
(setq newtxt (strcat "%%p" txttxt))
& W4 G' u* {) R/ W3 O) Z
)* X8 Z! Y* z3 g- _, C) z8 q
(setq listxt (subst (cons 1 newtxt) (assoc 1 listxt) listxt))" J! \* D# S# V
(entmod listxt)3 Q3 F4 O- s H1 l
)( [, i) |# S/ J
)
' C. [, n& S5 Q: L0 D* h1 c. x
(setq ctr (1+ ctr))
6 j/ O0 c9 ]7 }6 v1 P; X
)
$ l* S4 o4 _) J# C0 \) v% e/ g4 J/ _
(setq *error* olderr)& z; a; \' O+ E
(setvar "cmdecho" 1); ?- B. {( q9 y% R$ r8 q
(princ)
" h; Z: s5 m1 h/ W. f N: }3 e
)
; z3 P% w! T7 c6 Z0 X' g# X
3 w1 d, @( z8 x& d4 r2 r" j
(Defun c:CB (/ a)
+ G$ |4 S, _) [) |$ K. Y2 e
(setq olderr *error* *error* myerror)% _5 `- Q. ?( F; V8 x4 W# T$ V9 x
(setq ocmd (getvar "cmdecho"))
. g; g7 |% Y# j8 Q: N
(setq oblp (getvar "blipmode"))4 Y9 Y( I0 P0 f' G2 W2 u
(setvar "cmdecho" 0)
8 ~4 d, {" ^$ j" X; ~
(setq a (ssget))! D. L5 V1 X& g+ v
(command "CHPROP" a "" "C" "bylayer" "")7 Z; Z9 U% [- m" m3 | o
(setvar "cmdecho" ocmd)
# Y% O4 K" a3 q- g& u* _: m
(setvar "blipmode" oblp)
6 m0 D o) {2 B, a
(setq *error* olderr)
, I. k6 E. G9 p4 ?6 K, K: e2 [- r
(princ), x( `5 B* ^1 p7 l7 |# r$ y
)8 T; I# B, X" g2 G1 T+ F5 G
) r4 r7 B2 H# }% I4 H' m
(defun c:LCC (/ co43 obj23 la23)
% |; Y, g' B# S" ^) u$ y7 o
(setvar "cmdecho" 0); _2 ^, U: F% x$ P$ z' x# H$ H& j4 v; c! f
(setq co43 (getstring "\nNew color : "))
3 j* H2 U& Z5 v) B+ Y9 h/ X1 f1 O
(setq obj23 (car (entsel "\nPick object on desired layer: ")))- a; K# Y% e: S( |( a
(if obj23 (progn7 Y3 s/ Z3 C+ t; q' X% W
(setq obj23 (entget obj23))
, A {% v& S, ^/ i
(setq la23 (cdr (assoc 8 obj23)))& Q7 z& H" N' V. K; l2 a/ w
(command "layer" "c" co43 la23 "")/ ~# W: M7 y/ G: S4 N4 Z" e; D3 F
)8 f+ X. g8 E4 c L
)
' N$ p% r, N/ ^
(prompt (strcat "\nLayer has changed..." la23))
- X6 K+ B, r: W6 x! ^
(setvar "cmdecho" 1)5 S3 z7 L, b @+ S4 I5 M
(princ)
2 A; Y% N# ^& V5 l" X8 V3 ]
) 4 e. S* P2 L0 r, Z2 W
0 `9 U+ h" k8 t& w9 K. c
(Defun c:RP (/ a)% p/ H. |2 E3 W* j
(setq olderr *error* *error* myerror)- U: U1 Y4 Z& z5 L k
(setq ocmd (getvar "cmdecho"))
& [4 K9 Q/ H# k! A- Q8 [. x
(setq oblp (getvar "blipmode"))
" |2 n! f+ j0 x4 K$ X
(setvar "cmdecho" 0)
% `) G6 ]" U1 J$ Y( H+ j0 X
(prompt (strcat "\nUSE: Delete object(s) belonging to"
, c" {% ?8 @' n, O* ~9 m- t1 Z
" the layer of the entity picked...!"))4 y7 n; y7 A5 _9 X% r
(setq a (entsel "\nPick the entity with the desired layer to delete: "))0 w6 _0 ?' b j+ m
(if (/= a nil)" u# H& B3 y: Z- \# Y+ ~6 `! F% j# z
(progn (setq a (cdr (assoc 8 (entget (car a )))))6 h4 J$ Z5 Z% \5 X
(command "Erase" (ssget "x" (cons (cons 8 (eval a)) tempword)) ""))- A2 [7 G. {8 ]- R# p
(prompt "\nNo entity selected!"))0 M0 T5 i" A) @- W' X
(setvar "cmdecho" ocmd)
; H- O" A/ F7 e4 z" u1 d
(setvar "blipmode" oblp); I) B ^0 v ?3 ~' v$ [
(setq *error* olderr)
% f2 e! T. @! e! D) Y9 x1 E- ]# I
(princ)
/ h# t/ }+ E. O# E- C
)
9 j+ d" U+ F( P' ^+ Z2 B
; [( u+ D0 v& [7 k0 z( l
(DEFUN C:WL(/ SSET NET SSL M)
W& Y' E9 D9 ?$ j
(PRINC "\nSelect lines :")7 i9 Y3 @# `! n& X
(SETQ SSET (SSGET))# |' L: ?' h( ?$ h
(IF (/= NIL SSET) (PROGN. P- f2 C1 E9 R+ G
(SETQ SSL (SSLENGTH SSET)) B/ r& D7 i- i4 |: [
(INITGET 4)( B% `- k0 f" {+ \5 V. J5 [
(SETQ NET (GETREAL "New width : "))+ j1 q0 S) {7 o: n% O, O
(IF (/= NIL NET)
4 v. M+ m- R9 _
(WHILE (> SSL 0), U- e9 {0 c( @; N% G. I' a7 O" w* B
(SETQ M (SSNAME SSET (SETQ SSL (- SSL 1)) )); K% t B5 W: y s
(IF (= (CDR (ASSOC '0 (ENTGET M))) "LINE")
- K2 j: r1 _) Q' C( |3 ]
(COMMAND "PEDIT" M "Y" "W" NET "") 3 \$ c* V' n) n$ k! e. f
) - y6 `' r1 v8 O. _3 o4 L/ D
)
/ G0 T" V. g* K5 u* n
)))
' h; Q7 d5 h: D" L: }( G( Y
(PRINC)
$ K$ h/ n$ f; p# {
)
% j# d- X2 d/ `" F: P
" D: q0 c- e& z5 |2 p: i
(defun C:MML ()5 R% }3 O W! l) }
(princ "\nSelect objects to move to another Layer.")% i( U, U) E# z+ h- u
(setq ss (ssget))+ E3 w1 ^3 L8 R: C2 l/ V& v+ |
(SETQ UL1(GETSTRING "\nLayer to move entities to : "))# j9 @; E$ y5 T- g2 P
(setq counter 0)3 p* o/ Z" }" K
(prompt "Moving to layer.....")(princ ul1), P) N. C; P6 p' T
(setq e (ssname ss counter))/ M) D; B' R3 x L. G
(setq l (cdr (assoc 8 (entget e))))
' Y0 v2 x/ L, R0 b0 z# j
(setq S (ssget "X" (list (cons 8 l))))
8 g1 U% _+ D6 \, e
(command "CHANGE" ss "" "P" "LA" UL1 "")
: [9 s4 f/ G/ E7 P
(setq counter (+ counter 1))) T% z$ j, Y* p! ~# S
(princ)
5 Y; e4 Q, t4 ?! w7 x7 l. L
) . r# m1 z3 D" K6 T% E" ]0 y; [
- a& L0 f& S* _: k# _8 w- Y7 Q( @
;;; ================================ GHI CHU ============================
: A5 u1 v8 D) E8 P
;;; ======== Phai Vao STYLE Tao LAYER Ten TEXT + Phai Dat Height ========
8 n" I# m/ i( ?$ X' v& h
;;; =======================Thuong Dung Font Romant.vnh===================; j! J8 I4 b" {2 O" a
. j* H }) m0 S! h! h9 k" ^+ X
(defun c:RS (/ pta ptb ptc ptd X Y X1 Y1 rmsz pl1)
1 v1 W% [/ d" G/ y" C% u2 v
(setq oer *error* *error* err2)! n# A l4 X$ R N
(PROMPT "\n(UNICODE-Verdana)(D)ining room. (S)torage. c(L)oset. (C)onference. (O)ffice. (K)itchen. (B)ath. (M)aster Bedroom. ")
/ v6 Y& o! S3 w" t, ~
(SETQ Cpt(GETSTRING "\n (ROMANT-vnh)(DD).(SS).(LL).(CC).(OW).(KK).(BB).(MM). (UNKNOWN-font)(oD).(oS).(oL).(oC).(oww).(oK).(oB).(oM).")): {, S$ r& H- D" a. k8 b6 Q7 \
(IF(OR(= Cpt "K")(= cpt "k"))(SETQ CPT ' "Nha` Bê´p"))
) u6 D( v5 \ W
(IF(OR(= cpt "B")(= cpt "b"))(SETQ CPT ' "Pho`ng Vê? Sinh"))
& t' Q, \2 b: h9 L
(IF(OR(= cpt "C")(= cpt "c"))(SETQ CPT ' "Pho`ng Ho?p"))8 s3 ^) p' z, g
(IF(OR(= cpt "O")(= cpt "o"))(SETQ CPT ' "Pho`ng La`m Viê?c"))
# m$ T: E' k+ S ] }5 O) m
(IF(OR(= cpt "M")(= cpt "m"))(SETQ CPT ' "Pho`ng Ngu?"))
. T' K5 u9 A0 j1 M
(IF(OR(= cpt "D")(= cpt "d"))(SETQ CPT ' "Pho`ng Bê´p + An"))
: I; s2 v1 I9 N. T9 d
(IF(OR(= cpt "S")(= cpt "s"))(SETQ CPT ' "Nha` Kho"))8 m9 [3 b% r" T' x
(IF(OR(= cpt "L")(= cpt "l"))(SETQ CPT ' "Pho`ng Ðê? Ðô`"))
! b3 w9 ~! D1 j- V+ |& t
3 N1 d c* H8 z+ |) B% I! T
(IF(OR(= Cpt "KK")(= cpt "kk"))(SETQ CPT ' "Nhµ BÕp"))# q! ] n+ v8 ]- D& _
(IF(OR(= cpt "BB")(= cpt "bb"))(SETQ CPT ' "Phßng VÖ Sinh"))/ M3 v) R2 z5 w- s& ~0 H4 g, d9 V
(IF(OR(= cpt "CC")(= cpt "cc"))(SETQ CPT ' "Phßng Häp"))1 {* @/ o/ E2 U3 z* p4 A7 u+ c2 x9 K
(IF(OR(= cpt "OW")(= cpt "ow"))(SETQ CPT ' "Phßng Lµm ViÖc"))
# }( c+ q2 ?* g4 Q
(IF(OR(= cpt "MM")(= cpt "mm"))(SETQ CPT ' "Phßng Ngñ"))( J' G0 O1 p A. @% B5 T0 }
(IF(OR(= cpt "DD")(= cpt "dd"))(SETQ CPT ' "Phßng BÕp-¡n"))
! u! `& p6 [/ q# u7 E, R
(IF(OR(= cpt "SS")(= cpt "ss"))(SETQ CPT ' "Nhµ Kho"))2 h/ f J5 [/ Q9 ~- F4 |
(IF(OR(= cpt "LL")(= cpt "ll"))(SETQ CPT ' "Phßng §Ó §å"))" C& ~# b8 ~/ i" U! m- ?0 w
! q/ G. R4 b0 S1 f
(IF(OR(= Cpt "oK")(= cpt "ok"))(SETQ CPT '"NHA/F BE/M/SP"))
$ k: f, M3 |( Y3 _2 h
(IF(OR(= cpt "oB")(= cpt "ob"))(SETQ CPT '"PHO/F/NG TA/W/SM"))/ ^' X% @# d" L7 X' b5 h3 p) n
(IF(OR(= cpt "oC")(= cpt "oc"))(SETQ CPT '"PHO/FNG HO/JP"))0 ]0 `3 r$ n8 w# a; w8 P
(IF(OR(= cpt "oww")(= cpt "oww"))(SETQ CPT '"P.LA/FM VI/E/M/JC"))+ s; q" A: ^2 Z/ @' j
(IF(OR(= cpt "oM")(= cpt "om"))(SETQ CPT '"PHO/FNG NGU/R"))9 o% E% V1 o2 X+ B7 U; _; [
(IF(OR(= cpt "oD")(= cpt "od"))(SETQ CPT '"PHO/FNG A/WN"))
- f0 ?9 l& C+ P
(IF(OR(= cpt "oS")(= cpt "os"))(SETQ CPT '"NHA/F KHO"))) l* r K& L) N0 U
(IF(OR(= cpt "oL")(= cpt "ol"))(SETQ CPT '"PHO/FNG /DO/M/F"))$ P3 R! g! ^5 h5 ?" z
(setq pta (getpoint k- b( [% a- g8 p) t" S
"\nPick first corner. : "))8 F) M [/ y6 L) n
(setq ptb (getcorner pta
0 c9 Y6 u; b8 b* |4 z* t5 \
"\nPick second corner. : "))
& U ?7 Y& X0 Z6 l" T S
(setq ptc (list (car ptb)(cadr pta)))! q' c# @9 Y$ _, M
(setq ptd (list (car pta)(cadr ptb)))) ?: o# [8 d" W! @* f
(setq ang (angle pta ptb))
% V+ b$ ]* v L4 x/ @7 t; d- z
(setq d1 (/(distance pta ptb) 2))
* X0 K# D: `, o, `
(setq cp (polar pta (- ang (dtr 0)) d1))
; _+ H2 O( `# l. C) `/ U* Y. ~6 ?
(setq X (distance pta ptc))
8 m& d1 A5 h8 c4 g, i
(setq Y (distance pta ptd))& u6 ^, W, z7 |
(setq X1 (rtos x 2 1))
4 t- J* R; B2 O( b! C+ F
(setq Y1 (rtos y 2 1)), Y) {+ x/ l- G" \
(setq rmsz (strcat "(" X1 " x " Y1 ")"))
5 X7 T; M& N: t: l y# L: q
(command "TEXT" "c" cp "0" CPT "ROMANT-TEXT" "" rmsz))
& l' h5 D. \/ }$ N. v" M( x6 c
(defun dtr (angg)5 Y; _5 {1 L/ Z7 F. J; j$ C3 e
(* pi (/ angg 180.0)))3 `+ H9 I' g+ F8 {+ u
t' v! v6 b5 q1 h( x
(defun c:WS (/ pta ptb rmsz pl1)! `5 R4 q+ F% T6 @
(setq oer *error* *error* err2): s) y% }: n0 J* C
(PROMPT "\n (RomanT.TXT)floorp(L)an.(E)levation.(S)ection.(M)planFoundation.(C)Found.(K).(P).")9 V& K! k. q# L9 s" C+ F) M
(SETQ Cpt(GETSTRING "\n (VnHELVH.Vnh)(LL)floorplan.(EE)elevation.(SS)section.(BM)planFoundation.(CM)foundation.(KC)Structure.(PP)perspective."))
) Z1 o' O8 l& N7 `& P x
7 `+ K* s. S9 n8 x/ \
(IF(OR(= Cpt "LL")(= cpt "ll"))(SETQ CPT ' "MÆt B»ng TÇng 1 : TØ LÖ - 1:100"))2 ~ \# F" J6 b2 m! d* c# H: w. K
(IF(OR(= cpt "EE")(= cpt "ee"))(SETQ CPT ' "MÆt §øng Trôc ?-? : TØ LÖ - 1:100"))$ D2 L" i6 k3 k! J, }$ H
(IF(OR(= cpt "SS")(= cpt "ss"))(SETQ CPT ' "MÆt C¾t A-A : TØ LÖ - 1:100"))
9 w* i$ e% U* Y7 ?) X
(IF(OR(= cpt "BM")(= cpt "bm"))(SETQ CPT ' "MÆt B»ng Mãng : TØ LÖ - 1 : 100"))7 E, @) a6 o+ f
(IF(OR(= cpt "CM")(= cpt "cm"))(SETQ CPT ' "MÆt C¾t Mãng : TØ LÖ - 1 : 100"))* o; X; J! |, c+ _. I
(IF(OR(= cpt "KC")(= cpt "kc"))(SETQ CPT ' "KÕt CÊu Khung Däc Nhµ : TØ LÖ - 1 : 100"))! ]* Y/ M( w4 A9 t
(IF(OR(= cpt "PP")(= cpt "pp"))(SETQ CPT ' "Phèi C¶nh Mét Gãc Nh×n"))+ {0 b' F: G) H) F; Z1 i: C
% K: i m; m6 w. R9 U6 G4 C
(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"))
: g h" l6 ^* J& n
(IF(OR(= cpt "E")(= cpt "e"))(SETQ CPT '"MA/W/JT /D/}/SNG TRU/JC ?-? : TI/R LE/M/J - 1:100"))
; U5 ?# ^$ q! I1 I9 q2 G
(IF(OR(= cpt "S")(= cpt "s"))(SETQ CPT '"MA/W/JT CA/W/ST A-A TI/R : LE/M/J - 1:100"))
2 l. h: W2 A# Y0 ? j7 b
(IF(OR(= Cpt "M")(= cpt "m"))(SETQ CPT '"MA/W/JT BA/W/FNG MO/SNG : TI/R LE/M/J - 1:100"))
" F* R3 n! L2 f6 C5 ~: _
(IF(OR(= Cpt "C")(= cpt "c"))(SETQ CPT '"MA/W/JT CA/W/ST MO/SNG : TI/R LE/M/J - 1:100"))2 c+ d: I y$ E( |# a
(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"))
) |: T3 p& T R# { `- J
(IF(OR(= cpt "P")(= cpt "p"))(SETQ CPT '"PHO/M/SI CA/R/NH MO/M/JT GO/SC NHI/FN"))
1 ]. A( H7 r- w; W+ `& B
(setq pta (getpoint, j$ Q& J0 k/ k0 R9 r7 F4 v/ u
"\nPick first corner. : "))1 k& Q4 `! W* g: ~
(setq ptb (getcorner pta
, h4 d3 m+ h+ p3 l. [
"\nPick second corner. : "))
1 B& }# V, k8 g# }' j% h9 U
(setq ptc (list (car ptb)(cadr pta)))$ d' v# i; Q% z% N
(setq ptd (list (car pta)(cadr ptb))); @. @4 W- O! i& X) `9 k
(setq ang (angle pta ptb))2 b# L# p5 }: r' Y7 H: u
(setq d1 (/(distance pta ptb) 2))2 o) o* R \2 v$ F9 I$ r4 k
(setq cp (polar pta (- ang (dtr 0)) d1))
* l) H3 T' K( R1 p2 A6 m( |0 `
(command "TEXT" "c" cp "0" CPT "ROMANT-TEXT" "" rmsz))/ Z- [6 S" P+ v" r% S" e
(defun dtr (angg), i9 t: v5 \, H5 H
(* pi (/ angg 180.0))). w+ R( R! ^( W1 ?! E% b
( {$ m' i5 D; w1 D/ L& z. }8 h; L: G
;;; ================================ GHI CHU ============================
3 l# w7 f7 j1 c, k: z8 }
;;; ======== Phai Vao STYLE Tao LAYER Ten TEXT + Phai Dat Height ========
* G) r; ]6 F/ g' b
;;; =======================Thuong Dung Font Romant.vnh===================
! e) k$ M; H( L* m
3 ]# g0 I' V. Z8 X1 Y9 S
(defun c:RRS (/ pta ptb ptc ptd X Y X1 Y1 rmsz pl1)% U+ P r4 d" e7 {+ `& C
(setq oer *error* *error* err2)
- a( ]- I" K; W" p
(PROMPT "\n(D)ining room. (S)torage. c(L)oset. (C)onference. (O)ffice. (K)itchen. (B)ath. ")2 S' q4 [0 C! ^; m
(SETQ Cpt(GETSTRING "\n(M)aster Bedroom. (DD). (SS). (LL). (CC). (OO). (KK). (BB). (MM). "))+ K: a0 k! p- W1 @6 q
(IF(OR(= Cpt "K")(= cpt "k"))(SETQ CPT ' "Nhà B?p"))# i+ w* e* H3 V
(IF(OR(= cpt "B")(= cpt "b"))(SETQ CPT ' "Phòng T?m"))" X9 H i2 Y y% y4 k/ e' b0 {9 Z" H& `3 v
(IF(OR(= cpt "C")(= cpt "c"))(SETQ CPT ' "Nhà H?p"))
' L* r1 G t! A# x/ Z2 m
(IF(OR(= cpt "O")(= cpt "o"))(SETQ CPT ' "Phòng Làm Vi?c"))) V. ^% D3 c! a( R1 Z6 g
(IF(OR(= cpt "M")(= cpt "m"))(SETQ CPT ' "Phòng Ng?"))
# f! }$ g5 |/ Y2 a
(IF(OR(= cpt "D")(= cpt "d"))(SETQ CPT ' "Phòng B?p-An")); ?7 a' v6 V4 F1 P( y" M
(IF(OR(= cpt "S")(= cpt "s"))(SETQ CPT ' "Nhà Kho"))0 o. y0 k. o7 E, N! ]( X/ p' {
(IF(OR(= cpt "L")(= cpt "l"))(SETQ CPT ' "Phòng d? Ð?"))
! T9 q+ T4 h7 n3 [; f
(IF(OR(= Cpt "KK")(= cpt "kk"))(SETQ CPT ' "Nhµ BÕp"))( Q. y* D6 w, H$ P# l0 ^
(IF(OR(= cpt "BB")(= cpt "bb"))(SETQ CPT ' "Phßng VÖ Sinh"))+ ?9 |! e' Q) b
(IF(OR(= cpt "CC")(= cpt "cc"))(SETQ CPT ' "Phßng Häp"))6 K1 z& U3 d2 t% g4 S8 p% s
(IF(OR(= cpt "OO")(= cpt "oo"))(SETQ CPT ' "Phßng Lµm ViÖc"))
& _+ ]# P9 p6 {, A, t! y I2 Y1 ~
(IF(OR(= cpt "MM")(= cpt "mm"))(SETQ CPT ' "Phßng Ngñ"))
) N* k% x# l6 X: m* @
(IF(OR(= cpt "DD")(= cpt "dd"))(SETQ CPT ' "Phßng BÕp-¡n"))0 Y% W* \9 m/ I$ v; F" i% X
(IF(OR(= cpt "SS")(= cpt "ss"))(SETQ CPT ' "Nhµ Kho"))
" S- g2 O# d( Q: T
(IF(OR(= cpt "LL")(= cpt "ll"))(SETQ CPT ' "Phßng §Ó §å"))
& D) i: ?: l! N- m0 o
(setq pta (getpoint
4 ^7 y: C6 Z; F q
"\nPick first corner. : "))
) V+ Q/ O6 w4 E3 H$ P) a( Z
(setq ptb (getcorner pta8 o h4 O% \6 _; U4 L
"\nPick second corner. : "))0 J0 H) m. _, T
(setq ptc (list (car ptb)(cadr pta)))
9 w3 u+ E% G5 p y9 v! _) F# x
(setq ptd (list (car pta)(cadr ptb)))
n6 P4 F' t. r$ v5 P! g+ \/ l0 a" J
(setq ang (angle pta ptb))( \. W* R! ]9 F: t6 O4 T
(setq d1 (/(distance pta ptb) 2))
3 W f0 L( \) o7 x; z6 W
(setq cp (polar pta (- ang (dtr 0)) d1))
" E( O; [" n; q& }
(setq X (distance pta ptc)), E) b1 r# N3 a5 q/ ^
(setq Y (distance pta ptd))
# G7 o( P) L; a0 c5 v1 A: Z* R
(setq X1 (rtos x 2 1))
, m9 _5 d ~; r1 r# e. z
(setq Y1 (rtos y 2 1))7 H/ t7 Q, j- I4 N
(setq rmsz (strcat "(" X1 " x " Y1 ")"))
+ F7 q( V& Y5 C2 v
(command "TEXT" "c" cp "0" CPT "text" "" rmsz))
) j ]9 ]: _" o" p
(defun dtr (angg)
" k [- t4 D, }$ ?. D
(* pi (/ angg 180.0)))7 T0 S# O( F% h' R3 d7 H# |, j0 b
% N, b8 q: V/ O4 N f) `) E& k0 a
;;; ================================ GHI CHU ============================$ t3 a8 Y# d% f9 y) |7 z7 g/ C' j# W
;;; ======== Phai Vao STYLE Tao LAYER Ten TEXT + Phai Dat Height ========
M( L6 m- M, Z" m. J/ B6 \
;;; =======================Thuong Dung Font Romant.vnh===================* {6 A4 y0 L- H% g- U
! e$ S2 t4 i% J s
(defun c:GS (/ a b c d)
3 Z0 J$ u, j& f6 j( ^- n' X* Y
(graphscr)6 K" U9 S( o$ ~: T) ^" q
(prompt "\nSelect text to set style....")" G- i: m3 X0 r2 ~6 r- W6 C
(setq a (entsel))6 [0 m4 O. t1 S/ s
(setq b (entget (car a)))
2 i) C# @8 [. R# B
(setq c (cdr (assoc 7 b)))
/ l2 C4 {2 F& f; @
(setq d (cdr (assoc 40 b)))
; u q( V; Y( J0 n5 o; F
(command "style" c "" d "" "" "" ""))2 g8 f5 E) L! e
(princ "\nType GS to set text style.")8 T, y2 N( }1 z$ w* |& [9 y
4 F8 X3 M7 ^5 ]0 L
(defun c:RC (/ olderr ocmd oblp pt1 pt2 pt3 pt4 l w). o+ j. X9 y: p% {3 Z6 H
(setq olderr *error* *error* myerror)& |. M7 s' |+ o9 r& {# e0 O- }
(setq ocmd (getvar "cmdecho"))
' ?5 B2 u5 A4 [$ X4 d( n( _
(setq oblp (getvar "blipmode"))/ A# d( W* s S) N+ G! m
(setvar "cmdecho" 0)
* G, d# Q) @9 T$ ]* E9 x; d
(initget 1) ;3D point can't be null6 X8 Y) m/ S/ h) o, H
(Setq pt1 (getpoint (strcat "\nCorner of rectangle or square: ")))$ v# r. L" \$ S m3 h$ m# `
(setvar "ORTHOMODE" 1)8 ?9 _ X! B' l/ i4 }/ w2 Q5 k
(initget 7) ;Length can't be 0, neg, or null
- F; O7 j1 F) f u/ g% X
(Setq l (getdist pt1 "\nLength: "))+ a7 _6 L' N( p5 c! t2 L% L/ @
(Setq pt2 (list (+ (car pt1) l) (cadr pt1) (caddr pt1)))6 N! z; o2 a# m; p2 |" L
(grdraw pt1 pt2 2)
# `5 a: C% [! r7 r* ?
(initget 7 "Square") ;Width can't be 0, neg, or null+ {6 V& j/ T. |
(setq w (getdist pt1 "\nSquare/<Width>: "))! r6 a& f& o9 g, |1 U" ?
(if (= w "Square")
: X( g9 F1 N; t" }7 I
(setq w l)
2 p' x% E- R4 t* q1 a0 T$ e
)' e: V9 l& G# w! Y+ H4 R/ }) U
(setq pt3 (list (car pt2) (+ (cadr pt2) w) (caddr pt2)))
: c$ s1 X* X8 s& k: y
(setq pt4 (list (car pt1) (+ (cadr pt1) w) (caddr pt1)))) b% I' x- i# S5 ^6 w6 T
(grdraw pt2 pt3 2): \$ y# y- e& P. t
(grdraw pt3 pt4 2)
' O6 Y0 S2 L: e5 C( e) M
(grdraw pt4 pt1 2)
/ u1 r( ]6 H( v! J
(setvar "ORTHOMODE" 0)
3 I j& B% H- X' L. D
(command "pline" pt1 pt2 pt3 pt4 "close"); i- s3 C4 S+ ]3 }/ k: \
(setvar "cmdecho" ocmd)9 t# [! }" h9 B2 ` k
(setvar "blipmode" oblp)$ p* i8 H: l) b8 W5 S* T
(setq *error* olderr) ; Restore old *error* handler
5 R5 [+ b& d& J% s4 t
(princ)
5 A. m6 s& x3 [
)
2 E' H% p- W& C4 @4 i8 n
/ x3 j# A; z" z, _1 U1 b" X
(defun c:SG (/ ent pt1 pt2 ang)* k5 e9 y7 u4 _8 c
(setq cmd (getvar "cmdecho"))
e7 Y* b( s3 T2 Q9 ~2 q2 Z/ G1 c
(setvar "cmdecho" 1)
" ?+ Z4 a9 k" z7 x/ Y" A6 h
(prompt (strcat"\nSnap angle will be set to angle of line"))* l/ a4 G5 C" @$ m, o
(setq ent (entget (car (entsel))))# z# ~$ s1 j1 ~
(setq pt1 (cdr (assoc 10 ent)))
& C5 _. x3 F! e3 D8 Y
(setq pt2 (cdr (assoc 11 ent)))
* ~: ]: d+ r$ T3 p. N/ S
(setq ang (angle pt1 pt2))
3 @/ b: ^. j2 H& c
(setq ang (/ (* ang 180.0) pi))
. ~5 B, q( U ?
(setvar "cmdecho" 0)
+ s0 n. B A6 r; k# v X7 J. x2 u
(command "setvar" "snapang" ang)' p9 `7 |9 @9 K8 W# C4 g3 Y
(setvar "cmdecho" cmd)
4 u* @" x, d0 c9 W
)
7 q. _/ C- _$ y) a( W( T8 @3 t4 z
( F! t% _% h( A1 c! \
(defun C:TG ()
1 O4 j/ }! w' B! U% Z& n7 _
(initget "Increase New")
. ], H1 I$ c2 Q( X) G& x; _& d
(setq ans (getkword "Increase/<New>: ")). f- V1 G' N, _- e. A
(modang)7 h" N/ {, t3 L) L- B% y+ |
)! F% h' q, Q! j* s
(defun modang (/ ang ss ca e na ssl)& ^! b3 X3 C ]5 p! h
(if (= ans "Increase")' A# j/ g3 W |2 r* R
(princ "\nIncrease angle for text by: ")
9 h2 u; k" z4 y3 `0 e1 H- q
(princ "\nNew angle for text: ")
" \, L3 X8 s9 e9 T6 T+ \, @$ r
)! O2 K; K! f, M3 h
(setq ang (getreal))
' Y; p: E3 g2 g7 w
(setq ang (* (/ ang 180) pi))
+ w7 w8 Q$ Z, K; r+ ]
(setq ss (ssget))
1 E% P! x5 Q( w- _" s
(setq ca 0 ssl (sslength ss))- J& z3 s9 e" p
(while (< ca ssl)& {1 i; o/ u& M* t. u: b
(if (= "TEXT" (cdr (assoc 0 (setq e (entget (ssname ss ca))))))
: J- O6 e. A- g0 G! w* F- j; y0 N" \3 Y
(progn
( H3 D/ R8 g5 Q
(if (= ans "Increase")% `+ C- U2 C# W* ?% w
(setq na (cons 50 (+ (cdr (assoc 50 e)) ang)))8 Y2 r, x% [ y8 n2 e/ |6 t, {6 R
(setq na (cons 50 ang)); F) O( y0 n9 @% u. n* p+ Q
)
) C; ?1 k% [7 p! X% z# Z
(setq e (subst na (assoc 50 e) e))
6 l& N" s+ {! Y- E3 n% T+ H% Z( M
(entmod e)
' ?8 l; @) X& A: Y" G8 [
(setq ca (1+ ca))2 a* U6 Q$ T* R
) J4 B' v$ c; P' H
)
* e3 x9 c6 e9 L2 C/ r8 j* x
)( b* k4 G( j [
(terpri)8 n/ R% f% u* _/ M: }
)
5 E+ j7 f. q7 u* e& s4 @% l3 ^) X
& I% d. o3 G. ~9 D. B* E( e+ i
* b* a& ? n, y( x& Q
(defun c:WL ()+ T9 q: ?9 p- _7 F
(setvar "cmdecho" 0)5 U; O& y b+ x+ g
(setq a 1)( v( E' s: K1 C, P- b# }6 [9 ^
(prompt "\nSelect Polylines to change: ")& q8 j/ d( w9 o9 ~0 K8 q
(while (/= a nil)7 v- b, ~8 Y$ s& n; L3 |3 ^
(progn9 I8 T# t; X! A- t& G$ I
(setq a (entsel)); s1 w! A( A' ]& A9 s+ R
(if (/= a nil)
1 N# a, m* W& y- y# l1 z
(progn5 Q6 c* ~; T, U# D
(setq b (entget (car a)))
- h; H+ ^7 m) J' w
(setq c (cdr (assoc 40 b)))% a- @$ l+ u5 L4 d/ ?2 A
(princ c)0 r2 u5 p. S. H T$ O8 k3 f
(command "pedit"a"w""lw""")
( E+ Z0 g+ x$ X% a& t! Z
)))) . V) J0 e v8 T$ k
(princ)
" _1 Y8 `( [( X/ b5 s
)
1 L, \: P7 N# C! D* a6 C6 L6 j
0 g/ R, W8 ~0 K% B$ s$ M( K: _
;;; ================================ TEXT FIT ============================( a5 y2 I) ~& v6 p3 v( i l
3 u' ]0 _+ X' n B3 T
(Defun c:FT ( )
/ |* W; ^9 U ~- V, z$ J& q
(defun setsnapang (arg /) (setvar "snapang" (angtof (angtos (cdr (assoc 50 arg)) 0 8) 0 )) )
7 E6 Y C5 X# s% _5 w2 @0 n
(Defun LL-xyz (arg) (CAR (TextBox arg)) )" _& g) c% e1 j/ s) P! ?5 m) L
(Defun UR-x (arg) (CAADR (TextBox arg)) )! U% V; [# G" _$ ?6 f; a
(Defun LL-y (arg) (CADAR (TextBox arg)) )
0 c+ S1 q" |! S' U/ a# \& K
(Defun LR-xy (arg) (List (UR-x arg) (LL-y arg)) )
% {8 H) h$ B& _& ]4 `! A z
(Setq ename (CAR (EntSel "\nSelect Text to stretch/shrink:" ) )- ~, ]/ G/ T% U8 T5 W* j
Textent (If ename (EntGet ename)) )
! p- V, y. Q5 l6 } m% w
(If (= (CDR (Assoc 0 textent)) "TEXT")
. D; I7 H" _( V* h; \$ _
(Progn (initget 0 "Start")2 p* p) R; s3 I% H
(Setq NewEnd (Distance (LR-xy Textent) (LL-xyz Textent) ) )
W" [/ X$ S1 j! }6 l: ?2 s8 {
(setsnapang Textent) ;set snap along text entity$ I* p, K. z9 Q U9 |( q! g X! g
(setvar "ORTHOMODE" 1) ;drag along the text- G1 W' e8 Q; u7 r q
(setq ; A! U/ p1 U6 D1 @+ W# b" z' X2 k8 Q
TMP (getpoint (cdr (assoc 10 Textent)) "\nStarting Point/<Pick new ending point>: ") )
8 v( x4 f3 c# v% m r- D. I
(setvar "snapang" 0)
4 e5 i$ G: p$ {+ D' ~3 B" P* \
(cond
((= (type TMP) 'STR) ;;new starting point to be selected9 B: a9 I$ Q1 [! l
(setq Start (getpoint "\nPick new starting point: "))
9 y+ S1 n; T0 ^ f
(if Start (progn2 Q1 B, e- G* Z
(command "_UCS" "_E" (cdr (assoc -1 textent)))
/ T( W! {, H- B
(setvar "ORTHOMODE" 1)
6 t0 Y# K- h, q* v+ @% C! {% G" O
(setq NewPt
0 P( K8 `" j4 S0 C9 z6 q: ?
(if Start/ c8 l+ i7 J0 Z( N
(getpoint (trans Start 0 1) " ending point: ") nil ) )5 x) S* T6 e3 D6 Y3 c1 d
(if NewPt (setq NewPt (trans NewPt 1 0)))& |$ S* j: i# C& Q
(setvar "ORTHOMODE" 0)) t% k" r: f7 ]7 U5 n
(command "_UCS" "_W") ) ) )7 a7 G K' w s+ ~* D
((not (null TMP)) ;;new ending point selected
" M( \ Z9 e) @" t. p; J
(setq Start (cdr (assoc 10 Textent)) NewPt TMP) )
# r4 k7 L! @& @
(t (setq Start nil NewPt nil) ) )6 b7 @9 P* V2 W ~+ G0 H. k
(if (and Start NewPt) (progn) s# H% N6 p g' C2 X a
(setq Val (Assoc 41 Textent) ;;current width factor
6 }5 ^6 n/ w+ ]- H
Val (if Val (cdr Val) 1.0) LTC_%
& x, y0 r+ }& b$ F* X: N8 R
(* (/ (Distance Start NewPt) NewEnd ) Val )6 c( z, @+ G3 z1 b% u. x
textent (Subst (cons 41 LTC_%)
" C6 F+ V7 {1 Q; S. A
(assoc 41 textent) textent)/ ?8 W, ^+ b: l- ]! ~; T# q/ Q
textent (subst (cons 10 Start) (assoc 10 textent) textent)& f* m% t+ \& S" H
textent (subst (cons 11 NewPt) (assoc 11 textent) textent) )$ O$ w2 D$ |& x% M8 ^% z
(EntMod textent) (EntUpd (cdr (assoc -1 textent))))))) (Princ))0 _& \+ ]6 s: a
+ |7 m$ c5 s1 I9 D/ d( T9 k
;=====================================================================* s7 p# _: h: _5 F" y2 X3 o5 y+ R
;=========================COPY + ROTATE ==============================
1 g. D( e1 {3 i# n8 \
;=====================================================================
2 R) h: v. }+ l) M3 @% \5 }0 v
% h3 I8 I* `5 m& m1 A( s5 f4 L& Y
(defun c:CR(/ olderr cm loop ss1 ss2 bp mult lent ss2 lp1 lp2)7 d- \$ O" N5 F8 w' Z4 K# Y0 r
(setq olderr *error*, L. t! n: P# ^( |
*error* croerr)
0 ^1 v) Z z! K b" o2 S- x, r
(setq cm (getvar "cmdecho"))
! G; w& t+ N7 W) d! q" v# e
(setvar "cmdecho" 0): \) F" `7 O0 j/ z% a
(setq loop t)- }; h3 t5 ^0 X) ^
(while (not (setq ss1 (ssget))))
0 C* L# k( A9 d$ Y; |1 Z
(initget 1 "Multiple")
! o1 r7 L& N$ r* V" ^& X
(setq bp (getpoint "\nBase point or displacement>/Multiple: "))
/ @* Q- k. l7 r" G
(if (= bp "Multiple")" X3 W( J, E" T1 g7 y: i$ F
(progn! e3 W9 T. K" c" G; M3 w1 O
(setq bp (getpoint "\nBase point: "))0 _$ w7 P+ i# R# N+ p9 b; U
(setq mult t)
* v' C2 y' b7 b' Z4 i/ s4 n2 V1 F
)' s1 \- P' t5 Q- M
)
, |& ^# I! i: R6 \! b
(while loop% c! N4 e# v8 I4 y0 l4 d
(setq loop mult)
* h! T" m! y4 d' Y, m V8 m
(setq lent (lastent)); r$ D' C1 q9 A1 y- I& ?% |
(command ".copy" ss1 "" bp bp)
, N1 t, _/ j a# l
(setq ss2 (lss lent))9 v4 w3 K% b3 D8 B; o4 I6 u* R
(setq lp1 (getvar "lastpoint")): _6 s! R8 `$ V. P0 t P( V
(prompt "\nSecond point of displacement: ")( h5 e' f+ \ E& d
(command ".move" ss2 "" bp pause)3 s _$ f. V/ s( r7 T' }
(setq lp2 (getvar "lastpoint"))1 T0 }& G( x- a9 X2 o& |
(redss ss1)
" T1 z! k$ M0 A' J) O( E
(if (and (not mult)
# K& t+ w; A4 K6 K
(= (distance lp1 lp2) 0)
7 o, R; |1 S& C$ }" \' U. @, q }
)( \9 F$ o: U1 v. N1 s
(setq lp2 (getpoint "\nRotation Point: "))
& z" H2 g4 Q' Q+ i' I$ _
)- D" A2 Y) _; i2 l/ \4 e* O3 g+ B
(if mult) y' F, S) _, l1 m5 r3 `( U: n. v
(prompt "\nRotation angle ")
% p6 G' r5 b$ t5 k ?! T) k4 k
(prompt "\nReference/<Rotation angle>: ")
4 j% Y2 h* Y+ i }2 q7 A1 N) c
)
4 g& ~* q9 i7 r, {& e/ o$ L
(command ".rotate" ss2 "" lp2 pause)
; k+ G1 t# b p6 L% y- P" z
)$ }6 M5 o& O% a T: E) e* B9 Y
(setvar "CMDECHO" cm)
9 F1 Q" ]. Y4 {' v
(setq *error* olderr)
" R: }$ h3 |4 n+ h" R, M
(princ): f: a+ x) Z& K8 n( X: S
)6 ~1 i3 u& n) S, v* _8 V4 H8 ^& q
(princ)
$ I$ e+ L- a! `5 K
(defun croerr (s) $ t& l6 B/ d9 X6 B! ^3 k
(if (/= s "Function cancelled")
; Y3 u0 ^; d) K, i, H
(princ (strcat "\nError: " s))/ h' l# e# v1 L' W
) " J2 r" ~. w: ` o0 [
(setq S nil)) G9 t Q/ \" i- t
(setvar "CMDECHO" cm), e& b8 \% P# }% r9 ` H$ E
(setq *error* olderr)4 a1 @& I, e8 [* S- x' N
(princ)/ R$ b1 P+ V# U9 s2 B2 `
)
/ k5 }2 U- ^- O' A# m/ V) N8 l. |
(defun lastent (/ a b)/ V/ F; }8 w. v$ ~$ f0 ]" y
(if (setq a (entlast))
' T' t4 W9 D& \( D3 ]. H+ u/ D2 m
(while (setq b (entnext a))9 z1 H% x# R' k, e* e
(setq a b)+ J# b5 E2 d* F4 ^1 B; K
)# w5 ~! p2 e3 ~0 y1 @
)
" B9 a+ a1 a! D) L/ K, ~
a* w, ]. a: n- s1 y' \
)
! P) H0 z# J. R
(defun redss (ss / en i)! y5 a7 x; a" x" ^. W
(setq i 0)! R' K w @# E' V7 J. m, ^+ d! U6 n
(while (setq en (ssname ss i))) F& F7 t9 X# v$ N) D
(redraw en 1)7 s% z8 [. Z7 r) D* i
(setq i (1+ i))
; k& A' m) y( `, l( Q6 u2 |
)) G* i1 U) D! w8 i
)2 R+ E0 o% Q! ~$ L' m$ E
(defun lss (en / sels ed)" K( I' S ~3 d
(setq sels (ssadd))2 B) p- W9 Q3 N! N; a8 [
(while (/= en nil)9 A$ O D5 N8 [, d
(if (setq en (entnext en)) (setq ed (entget en)))' q; X5 E3 Y- ]% N3 v
(if (/= en nil) (setq sels (ssadd en sels)))
2 p* K0 V! g& F& a( C ` \% u
(if (or (= (cdr (assoc 0 ed)) "Polyline")
$ K9 t6 a2 y* \" [) Y: v
(= (cdr (assoc 0 ed)) "Insert"): v! q) E- U% | s
)
8 b+ z1 _- k2 Z* G: g a3 D- P2 e
(while (/= (cdr (assoc 0 (entget (setq en (entnext en))))) "Seqend"))
- \+ {/ _0 Y3 t J5 P
)
2 O/ E9 \9 C, r1 } H
). q6 l/ g5 m# j3 {+ A5 |
sels8 U) I, \ m# @1 s Z. D5 g
)
+ O% k# F# A. }, z& d
9 B+ i2 D) I( h0 P5 L0 j9 A
;;;; ================== CAC FUNCTIONS DUNG TRONG ACAD.LSP ==================% m* d' U" Y% r0 [6 g
+ F" X( U" }9 ~1 y1 C
(defun c:00 ()(princ "\nChon doi tuong net Defpoints")(ssget)(command "change" "p" "" "p" "la" "Defpoints" ""))
b1 Z* f$ j+ t# H- L/ A3 b, _
(defun c:0 ()(princ "\nChon doi tuong net 0")(ssget)(command "change" "p" "" "p" "la" "0" ""))
- t4 _+ x$ I; J$ _+ t
(defun c:1 ()(princ "\nChon doi tuong net COT")(ssget)(command "change" "p" "" "p" "la" "COT" ""))
6 h) p1 }0 x* y
(defun c:11 ()(princ "\nChon doi tuong net DIM")(ssget)(command "change" "p" "" "p" "la" "DIM" ""))2 Y# p( k! H6 v; v; y% h
(defun c:22 ()(princ "\nChon doi tuong net MANH")(ssget)(command "change" "p" "" "p" "la" "MANH" ""))
Q; U/ K( u( V' }5 G* Y
(defun c:33 ()(princ "\nChon doi tuong net NETMANH")(ssget)(command "change" "p" "" "p" "la" "NETMANH" "")). o {4 Y3 T4 o7 j/ H- @2 n
(defun c:2 ()(princ "\nChon doi tuong net NETDUT")(ssget)(command "change" "p" "" "p" "la" "NETDUT" ""))' U/ x3 G9 T" s+ e
(defun c:3 ()(princ "\nChon doi tuong net NOITHAT")(ssget)(command "change" "p" "" "p" "la" "NOITHAT" ""))
, d6 Q7 N0 f, m' G3 Z
(defun c:4 ()(princ "\nChon doi tuong net TUONG")(ssget)(command "change" "p" "" "p" "la" "TUONG" ""))6 ]+ _" Z* e* A7 L( ^- K" z5 y0 \# m
(defun c:44 ()(princ "\nChon doi tuong net KHUNGTEN")(ssget)(command "change" "p" "" "p" "la" "KHUNGTEN" ""))
+ Z3 e4 Y0 k* n7 | m7 X
(defun c:5 ()(princ "\nChon doi tuong net TIMTUONG")(ssget)(command "change" "p" "" "p" "la" "TIMTUONG" ""))
: l: O( H! y6 K8 C# S) k
(defun c:6 ()(princ "\nChon doi tuong net CUA")(ssget)(command "change" "p" "" "p" "la" "CUA" ""))6 M! P7 g# o$ q3 r
(defun c:7 ()(princ "\nChon doi tuong net THAY")(ssget)(command "change" "p" "" "p" "la" "THAY" ""))1 C: n! @$ T' {7 ~ m
(defun c:77 ()(princ "\nChon doi tuong net NETTHAY")(ssget)(command "change" "p" "" "p" "la" "NETTHAY" ""))
/ m( E. f9 t5 H* P
(defun c:8 ()(princ "\nChon doi tuong net HATCH")(ssget)(command "change" "p" "" "p" "la" "HATCH" ""))
6 h4 E, q2 e3 J" x, W: q W# j
(defun c:9 ()(princ "\nChon doi tuong net TEXT")(ssget)(command "change" "p" "" "p" "la" "TEXT" ""))/ o& c$ q( h% [5 \
(defun c:99 ()(princ "\nChon doi tuong net CUAMATDUNG")(ssget)(command "change" "p" "" "p" "la" "CUAMATDUNG" "p" "C" "bylayer" ""))1 H$ G$ s6 K$ h' v
(defun c:td ()(princ "\nChon doi tuong net THEPDOC")(ssget)(command "change" "p" "" "p" "la" "THEPDOC" ""))6 c' f0 d0 I, ?. D: P2 O
(defun c:ddt ()(princ "\nChon doi tuong net THEPDAI")(ssget)(command "change" "p" "" "p" "la" "THEPDAI" "")), j( V4 r( ^7 e1 U
x9 @$ Z3 M% h" a I( W
;=============== DAT NET IN de xuat anh JPG [W x H] [5940.00 x 4200.00] =============
3 [3 W5 T0 Q( H: ^! a
+ j9 s) P0 K9 ^" n% \( q0 Y P
;=============== DAT NET IN de xuat anh JPG [W x H] [5940.00 x 4200.00] =============- `8 A# Y: v y- D% ]( z( b2 f
) o' I: \" x, E) i" w8 l
(alert "Using the NetXuatAnh-[ 5940.00 x 4200.00 <pixels> ] command!")
+ m) \) V7 w7 f% T) p4 g
(princ "\nEnter (DEFUN C:netxuatanh () to get to real LAYER command.\n") (command "NETXUATANH")5 b9 T5 p1 ?* ]& z; ?
: h0 X! o; K( f( }4 E
;=============== DAT LAYER NET de xuat anh JPG [W x H] [5940.00 x 4200.00] ===DRAW===$ z4 L3 ~( B. ~2 ?+ E7 Y' H
- N" H, Z0 Y0 ^# Z" d1 _
;(DEFUN C:netxuatanh ()
% v8 [3 Y; ^& R4 e
(COMMAND "-LAYER" "M" "NETDUT" "C" "8" "" "Lw" "0.6" "" "LT" "ACAD_ISO03W100" "" "" "LTSCALE" "5" ""
4 K6 h: k: W M, h
"-LAYER" "M" "TUONG" "C" "4" "" "Lw" "1.58" ""6 J, f8 Q/ [4 Q
"M" "MANH" "C" "9" "" "Lw" "0.5" ""
5 {# ?/ t F' J' y ?* {% `
"M" "TEXT" "C" "7" "" "Lw" "0.5" ""
$ A- P: C1 |& N/ C
"M" "DIM" "C" "1" "" "Lw" "0.6" ""% u3 C8 `" C6 x7 C$ S0 l
"M" "THAY" "C" "7" "" "Lw" "0.7" ""
; B# Y* u4 U; C3 f- G
"M" "NOITHAT" "C" "3" "" "Lw" "0.5" ""; h, v/ ~7 [! @
"M" "HATCH" "C" "5" "" "Lw" "0.35" ""9 q5 Z4 V& a9 `6 W o
"M" "COT" "C" "2" "" "Lw" "2" ""
7 s0 V. P! o8 H) C4 c- H3 \# ~
"M" "Defpoints" "C" "7" ""; W8 B3 J& y* l) F
"M" "0" "C" "3" "" "Lw" "0.5" ""
7 I8 x% j) q1 I& S( i- L; S
; "M" "1" "C" "1" "" "Lw" "0.5" "" R5 }4 A4 k& \
; "M" "2" "C" "31" "" "Lw" "0.5" "": ^( h- V/ i8 V& c% P3 ^. d# L
; "M" "3" "C" "8" "" "Lw" "0.35" ""
" n' H7 F' @+ M* j+ G
; "M" "4" "C" "4" "" "Lw" "0.8" ""7 y: i8 B& D* O# y5 U
; "M" "6" "C" "6" "" "Lw" "0.35" ""
- G4 t) @# w2 n" I
; "M" "7" "C" "7" "" "Lw" "0.4" ""' ?7 A+ ]1 H/ o( |% Q
; "M" "8" "C" "8" "" "Lw" "0.35" ""
1 b& z9 `( F+ k+ u2 @5 z3 n
"M" "DAY-DIEN" "C" "3" "" "Lw" "0.5" ""
"M" "DUONGBAO" "C" "7" "" "Lw" "1" ""
9 u4 d; u& ^ c; w1 _, H1 c
"M" "KE" "C" "8" "" "Lw" "0.3" ""/ @0 E+ W/ g$ T: x8 N
"M" "KT" "C" "9" "" "Lw" "0.35" ""
) E! U4 E+ J7 l1 J1 z
"M" "NETTHAY" "C" "255" "" "Lw" "0.7" ""
( P3 P7 g% \+ f$ r. X' \
"M" "NETMANH" "C" "43" "" "Lw" "0.5" ""5 _! v+ h6 b! P4 m3 }: o5 k
"M" "TBD" "C" "2" "" "Lw" "0.8" ""2 a# S% P: h' P
"M" "TEXTTXT" "C" "7" "" "Lw" "0.4" ""' U* ?( p& O1 y( ]3 V4 Q8 {
"M" "TEXTVN" "C" "132" "" "Lw" "0.4" ""1 a# ~6 s R4 O8 P) [4 }9 x
"M" "THEPDAI" "C" "3" "" "Lw" "0.7" ""
( B7 M M' r+ X
"M" "THEPDOC" "C" "2" "" "Lw" "1.58" ""% n1 `9 M$ L- u# |
"M" "CUA" "C" "6" "" "Lw" "0.5" ""
9 @/ o! ]) U$ H+ y
"M" "CUAMATDUNG" "C" "6" "" "Lw" "0.5" ""# O6 ]" o% W3 N/ L8 U
" q- n8 m ? ^1 n# f
;=============== DAT NET IN de xuat anh JPG [W x H] [5940.00 x 4200.00] ===NUOC===$ z4 k+ {2 w/ w
" s& n& w, t% @7 x. x
"M" "10-VAN_KHOA" "C" "10" "" "Lw" "0.5" ""7 s/ ?& z2 \" Q; s
"M" "4-WateR_IN" "C" "4" "" "Lw" "0.6" "" "LT" "FENCELINE1" "") _: G( k u# c: c/ @$ a
"M" "4-WateR_OUT" "C" "4" "" "Lw" "0.6" "" "LT" "FENCELINE2" ""
( Q4 D, a1 Y$ t) |8 K
; "M" "250" "C" "250" "" "Lw" "0.35" ""
+ k7 E g8 y% z+ S+ j1 O
"M" "KHUNGTEN" "C" "4" "" "Lw" "1" "". ?$ ~' H6 v w
"M" "TIMTUONG" "C" "5" "" "Lw" "0.5" "" "LT" "ACAD_ISO10W100" "" "" "LTSCALE" "10" "" )1 S8 p1 q; P! ~7 i' {7 M" q: h5 Q
5 p$ K! G3 M- |8 W2 f$ H/ R& g
;=============== DAT LAYER TEXT de xuat anh JPG [DIM] [TEXT] [GHI CHU]======
6 x5 x$ S5 p& V( q, X$ B# \
;===================================30|04|2024==============================5 b1 b) ~( c8 r1 ?; h$ e" t2 I" _
% D& k. _/ V0 i4 Q% W
(Command "-style" "Vni-VietNam" "vn_vni,vns.shx" "0" "1" "0" "n" "n" "n" )
, a9 @# ?' i2 d: Q1 u
(Command "-style" "Vni-ROMANS-TEXT" "vni-romans,vns.shx" "200" "1" "0" "n" "n" "n" ) P/ W0 R0 `; p* x& F0 X
(Command "-style" "COTES" "verdana" "" "1" "0" "n" "n" )' A& B: }( R! n( ^
(Command "-style" "TRUC" "impact" "0" "1" "0" "n" "n" "n" )5 h8 _( ~6 k p& B* N
(Command "-style" "VNHELVLT-Hoa" "vnhelvh,vnh.shx" "500" "1""0" "n" "n" "n" )5 N% b# g% u0 a1 E4 e3 d
(Command "-style" "VNHELVLT-Thuong" "vnhelv,vnh.shx" "500""1" "0" "n" "n" "n" )
. j$ @2 L. m$ d3 s
(Command "-style" "STANDARD" "Verdana" "200" "1" "0" "n" "n" "n" )8 M" E, l& N" g% P( z3 V% ]0 p+ G
(Command "-style" "VERDANA" "verdana" "200" "1" "0" "n" "n" )$ f4 I" |4 x: t) }& {0 V
(Command "-style" "ROMANT-DIM" "romant,vnh.shx" "0" "1" "0" "n" "n" "n" ); \0 w, h* |/ C$ w9 e7 \; S
(Command "-style" "ROMANT-TEXT" "romant,vnh.shx" "200" "1" "0" "n" "n" "n" )(princ)
4 h+ a5 V; n" R# u$ d
2 t5 H- {. A+ b1 p3 z5 z
;============= DAT NET IN de xuat anh JPG [W x H] [5940.00 x 4200.00] =DIM-STYLE= M/ _6 u U4 z: `# G8 Z
;===================================17|10|2024===================================6 k3 f, i" K+ t) L9 ], b) e' W5 k
9 P/ @; U9 S2 m& u! P @* Y
(Command "DIMTXSTY" "ROMANT-DIM" )
' j. }- A8 _0 W5 R+ {" |6 _& w
(Command "DIMBLK" "" "Closed" )/ S9 b6 D0 r- [3 T4 p; q$ g& U
$ K1 r9 K% b( A" P6 ^+ _. N
;============= DAT NET IN de xuat anh JPG [W x H] [5940.00 x 4200.00] =DIM-STYLE=
$ T8 T8 T y* c
;===================================17|10|2024===================================
3 U; [/ v/ v) G4 K1 O, F
M6 D) N3 |" ~, D$ F
;(Command "-units" "2" "8" "1" "8" "" "N")
0 g2 q( I' Z) I6 b7 b" f y
(Command "-plot" "Y" "" "publishtoweb jpg.pc3" "User 1 (5940.00 x 4200.00 Pixels)" "Landscape" "N" "Display" "Fit" "Center" "Y" "monochrome.ctb" "Y" "")(princ)8 b {- a3 P1 \8 r, d
* j, W$ |/ k) V7 o' k' d$ f; {9 ^
;============= DAT NET IN de xuat anh JPG [W x H] [5940.00 x 4200.00] =DIM-STYLE=
3 B" E* R: [6 A; W/ D0 g
;===================================17|10|2024===================================( D8 W* y! T3 t" P
* b' K$ b7 s, U
;======== KET THUC - DAT NET IN de xuat anh JPG [W x H] [5940.00 x 4200.00] =====
' L: W8 y, h% l+ o- d/ s
& z7 h6 ?" [2 B9 A% s6 e3 E3 k
;======================== DAT NET IN & TI LE BAN VE =============================
, P) j$ s K" J5 e" X0 j
; j" C- \& f0 b8 L8 Q' g; O
;=================LENH VE KHUNG TEN - Tieu Diet Lenh==================4 n3 z4 D& z( Q. j$ [+ x
;=============== DAT KHO GIAY BAN VE - KIEU KHUNG TEN ================- k3 L+ Z, z2 a; r0 V" h" Y
;=============================11|07|2025==============================) a( j) `6 F Y3 {4 d3 r
;Ti Le Ban Ve - 1 : 100
0 s5 j9 o, D# @0 y9 }1 r% }
(Defun c:kta4 (); N, M6 J/ E, a- \! \' Y
(setq mv_sc 100);Ti le ban ve
: d5 x+ ~2 u. ]4 ]3 ]' T8 \
(setq x4 297)
- [2 T( N+ j! D( }
(setq y4 210)6 h. ^5 R0 X5 Q$ C* h
(setq x4 (* mv_sc x4)
+ E5 p0 }: P1 @/ r
y4 (* mv_sc y4) ), A8 e# v7 a. I
(command
{0 ~% C) c3 u; s' i
"LIMITS" "0,0" (list x4 y4)5 s1 l2 T% E% z" p/ f' r. q
"PLINE" "0,0" (list 0 y4) (list x4 y4) (list x4 0) "0,0" "_C"
) X& t2 m* A& U8 a* I/ E& ]
;Khung CHU NHAT Chinh # I! d ]; b( A/ }
"RECTANG" "500,500" "@28700,20000": I2 u3 B: Z9 h. l2 n
"RECTANG" "700,700" "@28300,19600"
1 ~$ J! T) P' L
;Khung Ten Chung
! V# p4 ]3 e7 o$ I9 p
"RECTANG" "700,700" "@8000,1250"" X% E0 o! O7 _) E7 [$ F) s& V4 T( d
"RECTANG" "700,700" "@17300,2500"
0 z( ^( H7 C' \* h
;Ten Ban Ve: ~, W J }+ K. W
"RECTANG" "18000,700" "@11000,1250"0 L' h! f( u* P5 e+ B& o8 T
"RECTANG" "18000,700" "@11000,2500"7 u6 v9 Q' a) U& g
;Khung Ti Le + Ngay Thang Nam, C* Z# d6 @5 e; n$ O/ J
"RECTANG" "22500,700" "@2000,2500"8 }; O, @" ]5 ?; [ Q. k4 t% ?
;Khung CHU TRI
# x7 q, k- `+ r, ^: A& V
"RECTANG" "8700,700" "@3800,2500"
8 w( C2 @( L5 j9 @, z3 h
"ZOOM" "_a" )) J+ \6 A5 Z: F/ @( y
;=====================================================================
3 {/ Y1 {) v2 ?. L, s* ]& C
;Ti Le Ban Ve - 1 : 1004 Y8 r1 o7 y2 P5 W- R; B) @
(Defun c:kt4a () _6 f3 u1 }4 z+ O; J
(setq mv_sc 100);Ti le ban ve
& D3 L `8 z3 |- y3 g* R& s
(setq x4 297)
; @$ J/ F/ F }% K' v
(setq y4 210)
7 V" d$ a, a- N# ~6 }4 S; a
(setq x4 (* mv_sc x4) . x+ G1 \, l" a
y4 (* mv_sc y4) )3 M, A. u5 M- e/ t/ g0 O
(command
7 B( k9 Z3 D, C0 E& A
"LIMITS" "0,0" (list x4 y4)
8 X. V( F! b/ N1 {9 m# n% _
"PLINE" "0,0" (list 0 y4) (list x4 y4) (list x4 0) "0,0" "_C"
9 A& k- b# Y7 @. z Q4 f
;Khung CHU NHAT Chinh 7 } {6 U1 I/ g5 ^9 q
"RECTANG" "2000,500" "@27200,20000"
: ~' L) [3 Q9 @
"RECTANG" "2200,700" "@26800,19600"1 Q0 K! s: K- q3 x
;Khung Ten Chung2 c' h3 {3 m+ j9 B( d; i) a
"RECTANG" "2200,700" "@6500,1250"+ T. f* R3 |) l3 ]0 o0 ^! ]0 P- _
"RECTANG" "2200,700" "@15800,2500"" R1 {& ^; [( m2 D* y4 ^
;Ten Ban Ve
3 `- [5 v! s; h: I3 t0 J/ g
"RECTANG" "18000,700" "@11000,1250"2 L+ s- b9 R0 A; K: d
"RECTANG" "18000,700" "@11000,2500"
8 `- o" [* M& F" F6 R0 e* o* K
;Khung Ti Le + Ngay Thang Nam `3 K( {$ Z. ?: A# H
"RECTANG" "22500,700" "@2000,2500"
% ?5 k! ~; U4 z+ P
;Khung CHU TRI
! D- B" _4 h5 L7 r4 v: A
"RECTANG" "8700,700" "@3800,2500"! L1 j4 l7 q3 R/ {7 `4 K
"ZOOM" "_a" ))! h, O) e$ B' \( E# L5 D
! v4 }& y9 K- K9 v% i4 b
;;; ============================GHI CHU Khung Ten========================2 S' a6 O9 W8 N0 o9 s) G+ q3 h
;;; ======== Phai Vao STYLE Tao LAYER Ten TEXT + Phai Dat Height ========
5 j% @( G* z* i' m
;;; =======================Thuong Dung Font Romant.vnh===================
& _5 _2 \/ q& g2 n" Y" h( D
. m) L8 a- V" u
(defun c:GhiChu (/ pta ptb ptc ptd X Y X1 Y1 rmsz pl1)
- N$ O8 f6 T4 l* h5 y6 N
(setq oer *error* *error* err2)
" b! t; \% e% E5 j3 u: T6 F( g
(PROMPT "\nChuTri. ThietKe. KiemTra. TiLe. Ngay. HangMuc. QuyMo. KieuNha. CongTrinh. KyHieu. TenBanVe. Kts. TranNgocThang. ")- ~+ T, u0 C: J: E5 @
(SETQ Cpt(GETSTRING "\n(CT). (TK). (KT). (TL). (Ng). (HM). (QM). (KN). (CTr). (KH). (TBV). (Kts). (TnT). ")). R, ]( Z3 Z' ^2 D
(IF(OR(= Cpt "QM")(= cpt "qm"))(SETQ CPT ' "Hå S¬ ThiÕt KÕ Nhµ D©n Dông quy M« :")); m! Z) ]7 ?2 u: Z9 s% l9 x5 X P
(IF(OR(= cpt "KN")(= cpt "kn"))(SETQ CPT ' "2 TÇng 1 Tum Thang"))# ~) T7 U5 S' L1 n9 N% b9 j6 V
(IF(OR(= cpt "CT")(= cpt "ct"))(SETQ CPT ' "Chñ Tr× :"))( G; A1 {& S! ?* A7 Y7 K( r
(IF(OR(= cpt "HM")(= cpt "hm"))(SETQ CPT ' "H¹ng Môc :"))
! {8 g' p1 h4 V) F
(IF(OR(= cpt "CTr")(= cpt "ctr"))(SETQ CPT ' "Nhµ ë Gia §×nh - Nhµ LiÒn KÒ"))
- o+ o2 R ] k2 \, o' i" c% N" }
(IF(OR(= cpt "TK")(= cpt "tk"))(SETQ CPT ' "ThiÕt KÕ :"))$ s% y5 K; L L* S) e C1 [4 h
(IF(OR(= cpt "KT")(= cpt "kt"))(SETQ CPT ' "KiÓm Tra :"))
! ]/ y* M% H/ O* k+ ^' k% W
(IF(OR(= cpt "TL")(= cpt "tl"))(SETQ CPT ' "TØ LÖ :"))( n3 z) t: V- _1 w; T
(IF(OR(= cpt "KH")(= cpt "kh"))(SETQ CPT ' "Ký HiÖu :"))
! ?, @; o2 d3 ~
(IF(OR(= cpt "TBV")(= cpt "tbv"))(SETQ CPT ' "Tªn B¶n VÏ :"))9 t) f0 q8 F5 ~' y
(IF(OR(= cpt "Ng")(= cpt "ng"))(SETQ CPT ' "Ngµy :"))
" P- I: O# j7 l& Z( j C) ?8 X& F
(IF(OR(= cpt "Kts")(= cpt "kts"))(SETQ CPT ' "Kts. TrÇn Ngäc Th¾ng"))
" D3 k5 D2 j% @2 k' J# R
(IF(OR(= cpt "TnT")(= cpt "tnt"))(SETQ CPT ' "TrÇn Ngäc Th¾ng"))' A- |5 Z. M3 ] y, o9 y
(setq pta (getpoint
/ d& o R) K" q; @: n
"\nPick first corner. : "))
; F3 c- ~; A! `3 ], d
(setq ptb (getcorner pta
0 S+ c3 E( o5 {9 J. Q
"\nPick second corner. : "))
3 `+ s! p' h; v% w
(setq ptc (list (car ptb)(cadr pta)))
2 c( F! r5 m/ A, t3 ^' \% o* i
(setq ptd (list (car pta)(cadr ptb)))2 @$ b5 R9 s, x7 Y
(setq ang (angle pta ptb))
(setq d1 (/(distance pta ptb) 2))7 @# |" Z0 x. G$ D
(setq cp (polar pta (- ang (dtr 0)) d1))
4 p0 W6 J9 S" h: v; ~/ p
(setq X (distance pta ptc))
* q" z4 h, f3 v+ {
(setq Y (distance pta ptd)): @) I/ ^% `% J o+ s
(setq X1 (rtos x 2 1))
) K$ K7 S3 ?" _
(setq Y1 (rtos y 2 1))
' R1 ]. R) A* L5 p$ @9 f
(setq rmsz (strcat "(" X1 " x " Y1 ")")). L0 h4 B* G; d7 I _& Y" m9 @, c
(command "TEXT" "c" cp "0" CPT "text" "" rmsz)): {" Y5 x8 h& u+ { i3 H
(defun dtr (angg); o* x& h: v+ Z2 Z
(* pi (/ angg 180.0)))
; f: u9 ^. r) E0 S3 y9 t1 F7 g( D4 a
7 M4 i% n+ {0 P) o; E5 C1 O9 g( G3 Z
;=====================================================================( w+ ~' o+ m3 S& {' l* m3 z+ c6 }
;==========================DAT KHO GIAY BAN VE - KIEU 1========================
6 R7 h4 ^0 [/ ?% z: w' o
;=====================================================================! z9 [7 D6 C. K6 a/ u
; i3 u) F* ^. S& ~ [
(Defun c:a6 ()
8 P1 N e6 S6 A. N5 {# i* t: \
(setq mv_sc 100);Ti le ban ve; B& x. B. m& O+ |
(setq x4 74.25)- _' k# s5 Q' z7 E- a+ `; v( S2 Y
(setq y4 52.5)
8 u) K6 f B& u8 B: |, q! z
(setq x4 (* mv_sc x4) , {) Q1 B1 |& x- @5 y
y4 (* mv_sc y4) )0 `# n4 Z* w% c' m8 Z% U
(command " |! u/ q$ i( C- V0 K/ l
"LIMITS" "0,0" (list x4 y4)& V- `4 }" {& ]3 T* s& N
"PLINE" "0,0" (list 0 y4) (list x4 y4) (list x4 0) "0,0" "_C") I9 w6 M$ S; z, C9 K
"RECTANG" "125,125" "@7175,5000"
) A f( B. S! `
"RECTANG" "175,175" "@7075,4900"# S5 A' y# I3 c& `( B' i
"ZOOM" "_a" ))
; z8 n( _6 s& D& h, R! \
;=====================================================================
0 M8 F% f5 m8 I. e
(Defun c:a5 ()3 V$ B$ q4 K+ x8 V5 U" t8 y
(setq mv_sc 100);Ti le ban ve1 _8 D# h, B% d0 y/ \$ ~3 n2 e# r
(setq x4 147.5)
8 r2 | R9 `0 G/ F4 v
(setq y4 104)) z* V- l' {% {
(setq x4 (* mv_sc x4) # d, P2 ?9 e( E
y4 (* mv_sc y4) )% O$ h" P8 d9 o7 u* v: Z
(command & S0 K6 o( A) F. }, {
"LIMITS" "0,0" (list x4 y4)! q9 y% D+ h9 u% A/ v9 b6 _: ^& F
"PLINE" "0,0" (list 0 y4) (list x4 y4) (list x4 0) "0,0" "_C"1 s+ k* K3 H* j) N' Q
"RECTANG" "250,250" "@14350,10000"& B0 L1 ^3 t* N: v7 S3 `6 g8 M8 r
"RECTANG" "350,350" "@14150,9800"/ ]6 i2 H7 {# z8 z- q- q
"ZOOM" "_a" ))
8 b3 E1 {( W: J# T; I$ P
;=====================================================================( ~9 R' n( d% U& e i) ~4 a
(Defun c:a4 ()9 I8 e4 B, _$ b9 T+ g) w
(setq mv_sc 100);Ti le ban ve! F# m0 n: z U+ l; U
(setq x4 297)
# r4 Q. i. d# H* E( H0 n
(setq y4 210)7 a" V* m9 O6 L1 O$ J& {
(setq x4 (* mv_sc x4)
2 a; j. x& g$ \- b* A5 m/ F# `
y4 (* mv_sc y4) )6 H" @& l C+ Q
(command # Y! z/ m/ ~6 I% r, }' z
"LIMITS" "0,0" (list x4 y4)( d% B- ~, _. h$ |$ T) O
"PLINE" "0,0" (list 0 y4) (list x4 y4) (list x4 0) "0,0" "_C"3 H. s& q6 O9 Y3 C
"RECTANG" "500,500" "@28700,20000"3 X& E, p5 t# G, k: f( l9 Y
"RECTANG" "700,700" "@28300,19600"* P/ m, f$ z) O- C, o6 {6 Q
"ZOOM" "_a" ))# f$ G* N7 E8 s( u- E
;=====================================================================
. c o3 {, @$ g* H
(Defun c:a3 ()1 S6 X- F" U# A% Y. v3 v
(setq mv_sc 100)9 K% e- u! g- l
(setq x3 420)+ R$ e* a! E* k- }5 `; c
(setq y3 297) L" \5 N" M5 u2 J: H
(setq x3 (* mv_sc x3)
+ ^" w5 V0 x9 {: |" D1 \5 ?1 |
y3 (* mv_sc y3) )
6 A, u* r4 X7 j
(command
/ s, C' L' Z6 R2 m9 J
"LIMITS" "0,0" (list x3 y3). d3 P5 G7 m3 h2 ]7 |6 P
"PLINE" "0,0" (list 0 y3) (list x3 y3) (list x3 0) "0,0" "_C"* w4 f5 O( d6 X% j
"RECTANG" "707.14285714,707.14285714" "@40590,28285.71428571"7 W5 i' y2 a, W$ T3 `; ~- @& m
"RECTANG" "990,990" "@40024.28571429,27720"
+ {2 \ V" z3 e
"ZOOM" "_a" )); [; H w- {, l7 d# }* O" @. D
;=====================================================================4 ^ G R1 d! T; `
(Defun c:a2 ()
$ K M) s2 E3 |! ]) a! w/ c
(setq mv_sc 100)
( X8 \$ t! |9 S8 f; ?4 Z( G# D
(setq x2 594)& W( l# C I7 D, ~
(setq y2 420)+ @1 N2 c- V, @" `
(setq x2 (* mv_sc x2)
8 z l( d: ~) B
y2 (* mv_sc y2) )
9 g: g, ^5 f5 E( L
(command 5 }- d8 @9 D, d9 d; @
"LIMITS" "0,0" (list x2 y2)
" i! t9 L J7 v t( k5 v- i/ p
"PLINE" "0,0" (list 0 y2) (list x2 y2) (list x2 0) "0,0" "_C"
& }+ V/ F; U0 E7 R, R5 r$ Q
"RECTANG" "1000,1000" "@57400,40000"
& q8 R% ^2 a# W. [
"RECTANG" "1400,1400" "@56600,39200"$ o; u: z& |% [/ A. W, a, [5 k. a4 x
"ZOOM" "_a" ))( i7 A7 H; ?+ w! G
;=====================================================================7 i2 G+ \" S% f! ?7 K
(Defun c:a1 ()! ~7 ~- }. b A5 N
(setq mv_sc 100)# q* U0 a' l5 g0 V
(setq x1 840)
4 U1 \; p/ w6 F$ r. a
(setq y1 594)
8 ]* n% I# G- J+ F5 d
(setq x1 (* mv_sc x1) 1 H6 M' ^6 F. C" z! E4 s! Y
y1 (* mv_sc y1) )0 P* A+ p2 d; \2 L
(command + }/ x/ |; Y6 i6 W* p3 V4 `5 T
"LIMITS" "0,0" (list x1 y1)
" {- K: ^5 }4 x: r
"PLINE" "0,0" (list 0 y1) (list x1 y1) (list x1 0) "0,0" "_C"' H$ G7 l6 Q- t. m" u
"RECTANG" "1414.28571429,1414.28571429" "@81180,56571.42857143"
) g9 `/ z/ V4 C
"RECTANG" "1980,1980" "@80048.57142857,55440"
1 k2 V2 A6 w. X* }7 r
"ZOOM" "_a" ))
. k+ \0 v6 c5 X
;=====================================================================$ `: e+ n: s+ v+ }0 s
(Defun c:a0 (). q, a0 ~" b$ J: v
(setq mv_sc 100)3 Y( M1 p3 A% o: j2 x: n3 P1 y6 B
(setq x0 1188)
7 v, G2 w" B$ n& ?& i' h
(setq y0 840)
* s# \: y! q1 |' G% r# W+ r
(setq x0 (* mv_sc x0) 7 m0 l% K: x0 v' u& A' Q
y0 (* mv_sc y0) )$ H1 V5 _! V8 `0 J) x- N
(command 0 v) \6 J) M- E; ^" v
"LIMITS" "0,0" (list x0 y0): t# K" n# n/ W: m3 j0 o4 t, j
"PLINE" "0,0" (list 0 y0) (list x0 y0) (list x0 0) "0,0" "_C"! ^7 C# M" e* V
"RECTANG" "2000,2000" "@114800,80000"
* a6 o5 n6 _1 X% ^- ~* ]
"RECTANG" "2800,2800" "@113200,78400"/ ^+ ?$ G- y, U G; b
"ZOOM" "_a" ))
- @ L2 v( u# E3 f% ]2 k
: J5 [8 ?7 b$ f# _
;=====================================================================
2 {8 }3 S+ D: h
;=========================DAT KHO GIAY BAN VE - KIEU 2=========================$ C- Q; x9 y% p4 W
;=====================================================================% X! o1 \3 H E: d4 ^* h
) j' _6 |3 R6 B* g
(Defun c:6a ()
+ M% V% u! ~7 O" o1 Z
(setq mv_sc 100);Ti le ban ve
' |! ?, e) E. _4 j" e9 W9 K
(setq x4 74.25)
8 \" d- k2 C9 O7 j9 E/ y
(setq y4 52.5)
' V( s9 ^" m0 Z: |5 v' A( a
(setq x4 (* mv_sc x4) 4 p. R! Y& E3 T# k
y4 (* mv_sc y4) )( y0 t7 |& @0 G* c" l
(command
( w0 O: |+ c6 h; Z, m$ y1 N% Q4 W
"LIMITS" "0,0" (list x4 y4)
2 @4 }; o# ~6 {" v! L5 X
"PLINE" "0,0" (list 0 y4) (list x4 y4) (list x4 0) "0,0" "_C"4 @3 s3 @ e3 j. l) g
"RECTANG" "505,125" "@6800,5000"& n3 o2 @1 U: t5 y- p9 H( T
"RECTANG" "555,175" "@6700,4900": ~1 ?6 i0 l+ s* r
"ZOOM" "_a" )), x) [6 x) t' s- }
;=====================================================================( f- R0 W7 h* M( {5 ^4 O
(Defun c:5a ()( Y+ h- Z6 T8 m9 M+ T7 V7 V
(setq mv_sc 100);Ti le ban ve
" S( m4 e. [( Q4 I
(setq x4 148.5)( i0 i) }( g7 Z. U& E
(setq y4 105)
% t5 G; q3 N8 }3 L8 @, @! p
(setq x4 (* mv_sc x4)
) u4 A! C% c$ Y& L+ b8 p, d7 Q
y4 (* mv_sc y4) )
" I3 J' V0 h9 s Y7 V8 P" L6 _
(command # Q. i. N. G; N8 I! o( I# b
"LIMITS" "0,0" (list x4 y4)
% k# q8 T; [2 b4 ~, t, S
"PLINE" "0,0" (list 0 y4) (list x4 y4) (list x4 0) "0,0" "_C"
# z! L: `% O, [. F: r
"RECTANG" "1000,250" "@13600,10000"/ j) r; O; Q% A! e- U
"RECTANG" "1100,350" "@13400,9800"
0 D& ~3 E: c, H. @& \. B6 J4 @$ {8 {
"ZOOM" "_a" ))
: o, p/ e1 x/ j1 u4 \2 \! U& ~
;=====================================================================" a6 m' D4 Q( h9 u, c H
(Defun c:4a ()
0 W: V( B/ D/ j# x2 N' v" ^1 i
(setq mv_sc 100);Ti le ban ve
# c4 g# a+ k, F2 _
(setq x4 297): B3 c. f8 E* ?
(setq y4 210)
5 R4 \# [7 Q! m J+ h' `
(setq x4 (* mv_sc x4) 6 ~! U" g# e( o* w/ A: e
y4 (* mv_sc y4) )$ |4 w6 Z5 o; C
(command
9 k( P: U) ]! ^1 e
"LIMITS" "0,0" (list x4 y4)
% ?4 Q+ D$ h7 i
"PLINE" "0,0" (list 0 y4) (list x4 y4) (list x4 0) "0,0" "_C"
) t2 t% T2 d, w% ]1 I+ ~7 s
"RECTANG" "2000,500" "@27200,20000"
2 @. D* ~# A5 ^5 T; c
"RECTANG" "2200,700" "@26800,19600"$ {7 Y; a, j' v' t
"ZOOM" "_a" ))
& w, w% e# s c) j R2 P: n
;=====================================================================* Y9 N. Z% c' M! w) k
(Defun c:3a ()" a o% m' p1 i1 v
(setq mv_sc 100)
- f0 P# d' Z# ]& k5 e8 J
(setq x3 420.0428571429)
9 H; A/ |8 Y! D4 }
(setq y3 297)
9 e8 W; ^/ X# M& X2 t8 w$ P# N
(setq x3 (* mv_sc x3) 5 z5 l, e1 m: \. E. Q
y3 (* mv_sc y3) )5 k! l# X0 Q" ? M+ |; q% `& m
(command
9 z3 }8 x4 w. K: _
"LIMITS" "0,0" (list x3 y3)
"PLINE" "0,0" (list 0 y3) (list x3 y3) (list x3 0) "0,0" "_C"( p8 D; d o5 X/ j& M8 u& P- B
"RECTANG" "2828.57142857,707.14285714" "@38468.57142857,28285.71428571"
I7 e! Y0 E9 D, z' a& J! t
"RECTANG" "3111.42857142,989.99999999" "@37902.85714287,27720.00000001"
; s& a( ^, R+ L3 C& l0 H! z% Y1 B4 P
"ZOOM" "_a" ))) J4 c4 p$ B* [) ]6 Q
;=====================================================================
$ [- G/ Y" l% C1 |- z# o4 H
(Defun c:2a ()
2 k/ S1 F6 _" t3 f4 E/ v
(setq mv_sc 100)
% ]/ [! d& f9 @& c6 y, ~! N" F
(setq x2 594)
) O0 }- M' D# q! _: G
(setq y2 420)- W9 F$ @( n' x: b( ]1 A4 p
(setq x2 (* mv_sc x2) : Z$ z r* R7 b0 G! J: d% F
y2 (* mv_sc y2) )
6 H0 n0 j1 G. v9 ]9 m. R
(command $ J+ r F( ?+ k, S9 ~
"LIMITS" "0,0" (list x2 y2)8 M. u- c) N$ ~3 }$ k5 @
"PLINE" "0,0" (list 0 y2) (list x2 y2) (list x2 0) "0,0" "_C"
$ ?" f8 B+ n: F8 e
"RECTANG" "4000,1000" "@54400,40000"; a; ?* t; v B+ s: R
"RECTANG" "4400,1400" "@53600,39200"" f+ L. {# [* G: |2 z3 t
"ZOOM" "_a" ))
, y: N( W2 t* g% j
;=====================================================================7 c0 ^6 G8 G2 H# D/ a9 |9 O
(Defun c:1a ()
4 Q& r; v6 r9 s5 `' k W
(setq mv_sc 100)
& a3 V3 _ D o/ X
(setq x1 840.0857142857)4 k& N# Y4 Q+ z
(setq y1 594)
% k; A2 x% ~' f8 m! s
(setq x1 (* mv_sc x1)
4 }, d, B5 W6 e4 }' U
y1 (* mv_sc y1) )- O8 D) q% o" n" d p0 v0 v$ ]- Z
(command
4 r9 p9 Q) T3 m- S: S5 Y
"LIMITS" "0,0" (list x1 y1)
9 W+ D. `6 x$ N& \, B. _3 _2 _# i8 R
"PLINE" "0,0" (list 0 y1) (list x1 y1) (list x1 0) "0,0" "_C"2 s5 H' @$ `8 Y6 u: c8 a3 U, X
"RECTANG" "5657.14285714,1414.28571429" "@76937.14285714,56571.428571436"
1 |: m. a/ G8 Z
"RECTANG" "6222.85714286,1980.00000001" "@75805.71428570,55440"
+ w4 ~, w! T5 M4 B& H
"ZOOM" "_a" ))- X4 V8 t$ L( P r' D7 W6 @
;=====================================================================$ U2 a& Z2 r. Z5 y
(Defun c:0a ()
$ o8 o4 s. y: f" R M) X, G. x
(setq mv_sc 100)
8 F+ N% A; ^$ E3 D0 s7 i8 l1 n
(setq x0 1188)
- Y$ m5 X. V: k
(setq y0 840)
1 Q- h$ a( Y; \, Z
(setq x0 (* mv_sc x0) 4 U" a1 U8 b' H6 b. L* O, _
y0 (* mv_sc y0) ). ]) E. ]7 T9 w7 D
(command
4 _- P+ `1 _ ]( l
"LIMITS" "0,0" (list x0 y0), k) X5 c$ a1 ~$ ?4 U A0 J
"PLINE" "0,0" (list 0 y0) (list x0 y0) (list x0 0) "0,0" "_C"
7 a/ K* x" i7 F5 e I- B, Y
"RECTANG" "8000,2000" "@108800,80000"! L$ V5 j+ ]" V2 X& W3 o4 h
"RECTANG" "8800,2800" "@107200,78400"" Q4 a) Z. b; v, `
"ZOOM" "_a" ))9 {( s3 T7 y- y- `- _( R2 n
& ^5 ~( J- D' }8 x
;=====================================================================0 X3 A8 `0 @0 g( J x* D
;==================DAT KhoGiay Theo KHO GIAY BAN VE===================2 v5 I& K& y# [% s; R& }
;=====================================================================
/ d7 i# N' I9 C
(defun c:khogiay (/ oldlst a b c d e f g h kho TL)- \3 k% Y4 C' b& c
(command "undo" "be")
1 {7 \/ ]' {5 r, C% x/ v* I7 \6 s5 J
(setq oldlst (mapcar 'getvar (list "CMDECHO" "OSMODE" "cecolor")))) F( W# b- _: b" s# o
(setvar "CMDECHO" 0)% e$ ~1 C# J. D" d! A0 ?8 C' P
(setq a (getpoint "\n chon diem chen :"))+ ?8 e7 T1 q' T1 B& }5 j
(if (not TL) (setq TL 1.00))
+ J2 ]% T( v5 c1 V, X6 y7 N
(setq TL1 (getDIST (strcat "\nScale <" (rtos TL 2 2) ">:")))6 B/ D! d) ]0 e5 ], D8 ?
(if TL1 (setq TL TL1))5 J7 r2 I a/ U+ T; J
(setvar "osmode" 0)0 [ l) h( K: v+ x% \
(if (not (tblsearch "layer" "Defpoints")) (Command "layer" "N" "Defpoints" ""))
8 T6 u* e$ r. m
(initget "0 1 2 3 4")& P3 U. D! I+ \7 Q0 B% M
(setq kho (getkword "\Kho A0 _ Kho A1 _ Kho A2 _ Kho A3 _ Kho A4 [0/1/2/3/4]? <0>:"))
: `) V) Y! ^" n2 A2 x3 @7 x# ?) z
(if (= kho "0")+ |+ C* E# f9 S+ \2 V
(progn, y/ D5 ~0 d3 ?( d0 A5 v& s5 s" ]# l
(setq b (polar a 0 (* TL 1189)))
1 c$ Q- M0 G e; ~
(setq c (polar b (/ pi 2) (* TL 841)))* g% l; i# T' ]/ p z. y
(setq d (polar a (/ pi 2) (* TL 841)))
" X+ j% H1 D: o0 j% R0 }
(setq e (polar a (/ pi 4) (* TL (sqrt (* 2 12 12)))))
5 a% E0 i4 F. E
(setq f (polar e 0 (- (* TL 1189) (* TL 24)))); ], y7 A6 A+ ?$ n1 X: a
(setq g (polar f (/ pi 2) (- (* TL 841) (* TL 24))))
0 ~: d' e5 c5 f4 Y
(setq h (polar e (/ pi 2) (- (* TL 841) (* TL 24))))0 e% R# A% a n8 s5 p E
(command "Pline" e f g h "c") 0 ?9 W" }+ W- s* S1 f
(command "change" "last" "" "properties" "layer" "0" "")0 J* u4 d0 K' ~' A+ a5 k
(setvar "cecolor" "4")
/ Q X" Q: I. t" e$ o
(command "Pline" a b c d "c")
: E$ O- g. `6 b
(command "change" "last" "" "properties" "layer" "defpoints" ""))) 5 M: u3 a8 X# H( W
(if (= kho "1")
1 B( G3 A6 R, _. |
(progn; o6 V5 }* V+ I. c
(setq b (polar a 0 (* TL 841)))+ X D: h; _8 E+ @, Q# @
(setq c (polar b (/ pi 2) (* TL 594)))
. l4 w8 V2 w5 h( e" p7 A
(setq d (polar a (/ pi 2) (* TL 594)))
P, `9 M$ N) G# V- E
(setq e (polar a (/ pi 4) (* TL (sqrt (* 2 12 12)))))7 ?0 w& K; p0 U5 g e% P
(setq f (polar e 0 (- (* TL 841) (* TL 24))))/ B5 Y, B- F7 @ t
(setq g (polar f (/ pi 2) (- (* TL 594) (* TL 24))))
b' T0 N/ f' L0 _. k X
(setq h (polar e (/ pi 2) (- (* TL 594) (* TL 24))))
; B- u* H7 R6 _8 [6 y9 C
(command "Pline" e f g h "c")
: s6 Y) G' l9 ?
(command "change" "last" "" "properties" "layer" "0" "")
" a0 b5 k( \" @' j
(setvar "cecolor" "4")
. G' l4 g: q5 g1 ?! C6 [' P
(command "Pline" a b c d "c")# [! U4 j$ c5 l+ E; ^ K' x u
(command "change" "last" "" "properties" "layer" "defpoints" "")))
: P) k4 s4 c. h
(if (= kho "2")0 P9 f! Y8 C- }+ I% x( G: p
(progn. G& G2 ^2 k4 G& {, }+ _; _4 u& v
(setq b (polar a 0 (* TL 594)))* j3 D! a6 x0 s- k; E: q
(setq c (polar b (/ pi 2) (* TL 420)))
; Q o3 O8 H1 m+ o, w4 ~* g
(setq d (polar a (/ pi 2) (* TL 420)))
4 d5 s) c9 l; u& P _
(setq e (polar a (/ pi 4) (* TL (sqrt (* 2 100)))))% B# o4 ], l! \# c! A
(setq f (polar e 0 (- (* TL 594) (* TL 20))))% T& z/ ?) q, v- `
(setq g (polar f (/ pi 2) (- (* TL 420) (* TL 20))))* T2 t* {2 M) J
(setq h (polar e (/ pi 2) (- (* TL 420) (* TL 20))))( m ^' C$ ?" Z. y- b# ?
(command "Pline" e f g h "c")
* f9 `7 a: G* I1 u6 L* L
(command "change" "last" "" "properties" "layer" "0" "") s- U6 A4 p) o+ J( e' N6 K
(setvar "cecolor" "4")/ M1 U; B6 L& f
(command "Pline" a b c d "c")" X! `0 \4 p* q) ^. l8 r
(command "change" "last" "" "properties" "layer" "defpoints" "")))& L# ~0 S* O7 Y! L, z
(if (= kho "3")! c3 f0 U+ l1 \/ [1 G
(progn
1 r; J* Z: O/ R, t8 q) k' t8 k
(setq b (polar a 0 (* tl 420)))- q: w4 Z1 j1 n7 m. O$ a' s
(setq c (polar b (/ pi 2) (* TL 297)))' I9 ]6 P8 a" R& {
(setq d (polar a (/ pi 2) (* TL 297)))
9 ^, |( }- O0 l- E9 E9 V6 J
(setq e (polar a (/ pi 4) (* TL (sqrt (* 2 100)))))- ]! g. S* l9 Y" `6 s4 v
(setq f (polar e 0 (- (* TL 420) (* TL 20))))
" Q& N- I& E% e" M4 I3 o9 H
(setq g (polar f (/ pi 2) (- (* TL 297) (* TL 20))))3 \# j# M* l$ A' A4 J# N' f
(setq h (polar e (/ pi 2) (- (* TL 297) (* TL 20))))5 S3 }7 N$ |5 H7 [! b
(command "Pline" e f g h "c")
1 w0 D9 h. o }- Y4 B! o
(command "change" "last" "" "properties" "layer" "0" "")
+ N" R f! U8 A
(setvar "cecolor" "4")
V2 e( ?. o- E3 @
(command "Pline" a b c d "c")$ X- U! z$ G5 _. C
(command "change" "last" "" "properties" "layer" "defpoints" "")))- w( L5 p& c" M0 \- P& m+ V
(if (= kho "4")
6 g; H5 p- N) j- k7 L& X
(progn
9 h1 O4 H2 P& s0 A) L. T
(setq b (polar a 0 (* TL 297)))
, E, z% c8 k; j7 y. ?% z
(setq c (polar b (/ pi 2) (* TL 210)))
2 R8 l3 [7 |+ o4 y; }
(setq d (polar a (/ pi 2) (* TL 210)))
2 j! `) C( q0 ~. C; u8 t4 g
(setq e (polar a (/ pi 4) (* TL (sqrt (* 2 81)))))- N" E! j, \5 A* A, F9 k
(setq f (polar e 0 (- (* TL 297) (* TL 18))))
/ |4 U3 h0 K0 i" G/ N
(setq g (polar f (/ pi 2) (- (* TL 210) (* TL 18))))
# v- F& Q# _: B4 p D
(setq h (polar e (/ pi 2) (- (* TL 210) (* TL 18))))
" n- b0 g1 J O" X+ l( t
(command "Pline" e f g h "c")
* \; @8 I! r1 [6 W3 v: b- t: a: d
(command "change" "last" "" "properties" "layer" "0" ""); g' Q: n2 W5 ^- B* e! w
(setvar "cecolor" "4")8 P' Y% l4 k$ T. j* z' P% \
(command "Pline" a b c d "c")
J6 d% _- c. Y+ C/ Z
(command "change" "last" "" "properties" "layer" "defpoints" "")))
' j0 C2 ^+ O( E* |
(mapcar 'setvar (list "CMDECHO" "OSMODE" "cecolor") oldlst)
$ R4 y: x& X/ e- k" p2 T/ _; {
(command "undo" "e")/ ~3 o7 K* o3 v5 X, J2 _
(princ))2 M3 ~* [) \8 s& J+ v
;=====================================================================! `! ]# ^" s; g5 v# Y. V' o
;==================DAT KhoGiay Theo KHO GIAY BAN VE===================
. ~2 h; h I3 T; c* }
;=====================================================================, k8 X$ ?" `/ k, G
9 c: Q! m7 v4 v: G5 A( d
;=====================================================================7 _. K" S# ?' i$ w
;===================DAT Ti Le Theo KHO GIAY BAN VE====================
% k: g/ l, @- U4 v5 @
;=====================================================================
x4 t3 Q9 C4 I7 ?
- H0 h% U' W$ M) j* c
(DEFUN C:SA6 () (COMMAND "-LAYER" "M" "NETDUT" "C" "8" "" "Lw" "0.1" "" "LT" "ACAD_ISO03W100" "" "" "LTSCALE" "5" ""
8 r6 J$ ?" V/ S9 l) _( G" t& A
"-LAYER" "M" "TUONG" "C" "4" "" "Lw" "0.3" ""
( ]/ z( S/ Y& j" s) U
"M" "MANH" "C" "9" "" "Lw" "0.1" ""; I* L9 S% ^) P' Y! [) |9 S
"M" "TEXT" "C" "7" "" "Lw" "0.12" ""
6 {. i2 k! N Z' y$ f1 r' o
"M" "DIM" "C" "1" "" "Lw" "0.12" ""& y* X6 j! V) E: S9 A$ W& Q G
"M" "THAY" "C" "7" "" "Lw" "0.2" ""8 m- w: U% h, c& v
"M" "NOITHAT" "C" "3" "" "Lw" "0.12" ""/ d1 U% B8 H( y0 v( [
"M" "HATCH" "C" "5" "" "Lw" "0.1" ""8 d% T6 Q5 G- G& {) A- G! V
"M" "COT" "C" "1" "" "Lw" "0.3" ""
% q0 R) r6 o: m' t4 r
"M" "Defpoints" "C" "7" ""
/ ^2 k( F2 V) J5 A1 H
"M" "0" "C" "3" "" "Lw" "0.12" ""6 }6 l3 @# A: y8 n
"M" "CUA" "C" "6" "" "Lw" "0.12" ""
4 c- G- }% E7 ]
"M" "CUA MATDUNG" "C" "6" "" "Lw" "0.12" ""
. N0 Q8 G1 T0 f. g9 b! G; V
"M" "TIMTUONG" "C" "5" "" "Lw" "0.1" "" "LT" "ACAD_ISO10W100" "" "" "LTSCALE" "3" ""))5 ? V' t0 z+ E' |" {& k
(DEFUN C:SA5 () (COMMAND "-LAYER" "M" "NETDUT" "C" "8" "" "Lw" "0.12" "" "LT" "ACAD_ISO03W100" "" "" "LTSCALE" "10" ""
: b ~) Q8 D8 u
"-LAYER" "M" "TUONG" "C" "4" "" "Lw" "0.4" ""
5 Q# d) W3 }- s' C3 k
"M" "MANH" "C" "9" "" "Lw" "0.12" ""4 o/ i% J2 G$ K+ b N
"M" "TEXT" "C" "7" "" "Lw" "0.12" ""1 d3 v6 I% z7 Y4 b
"M" "DIM" "C" "1" "" "Lw" "0.2" ""
" m+ ~+ N; b' k) q! T: P2 e6 L+ K
"M" "THAY" "C" "7" "" "Lw" "0.2" ""3 o4 n/ y# H: D
"M" "NOITHAT" "C" "3" "" "Lw" "0.2" ""
2 I" B$ n8 c2 v4 m8 g# H5 A7 T
"M" "HATCH" "C" "5" "" "Lw" "0.1" "" ^ r5 G7 j) h: P6 C1 Q& y
"M" "COT" "C" "1" "" "Lw" "0.4" ""& j" i5 G- C. M/ Z( D
"M" "Defpoints" "C" "7" ""
: e6 [" s" f% E7 r* [! v
"M" "0" "C" "3" "" "Lw" "0.2" ""
/ |" O! {- _ ~( ]
"M" "CUA" "C" "6" "" "Lw" "0.12" ""
& l. B( G7 Y* o
"M" "CUA MATDUNG" "C" "6" "" "Lw" "0.12" ""
' u0 i- T4 s r4 v- R$ l- {
"M" "TIMTUONG" "C" "5" "" "Lw" "0.15" "" "LT" "ACAD_ISO10W100" "" "" "LTSCALE" "5" ""))& D" b/ ?4 j) ^- _5 W( a
(DEFUN C:SA4 () (COMMAND "-LAYER" "M" "NETDUT" "C" "8" "" "Lw" "0.2" "" "LT" "ACAD_ISO03W100" "" "" "LTSCALE" "20" ""5 b3 Q6 V* V7 N
"-LAYER" "M" "TUONG" "C" "4" "" "Lw" "0.6" ""& T' g: s! m& I& A0 n1 o9 Q
"M" "MANH" "C" "9" "" "Lw" "0.2" ""
0 a. C- D* T: X9 S0 I8 k) R: H, J
"M" "TEXT" "C" "7" "" "Lw" "0.2" ""- r2 W( X! I) U7 w" I9 g
"M" "DIM" "C" "1" "" "Lw" "0.25" ""
' O+ d( _' R2 n# g) g! y0 _" J
"M" "THAY" "C" "7" "" "Lw" "0.35" ""- {# d( g8 f" T' F) M9 t% q: S! K
"M" "NOITHAT" "C" "3" "" "Lw" "0.25" ""0 K8 ~. w6 D7 h' M
"M" "HATCH" "C" "5" "" "Lw" "0.15" ""$ C% \+ X( J& d
"M" "COT" "C" "1" "" "Lw" "0.6" ""
9 q* w, {3 j. m2 d Q6 V% Q
"M" "Defpoints" "C" "7" ""
"M" "0" "C" "3" "" "Lw" "0.25" ""
* l0 D- [( ?$ k! J& e0 e- E- }
"M" "CUA" "C" "6" "" "Lw" "0.25" ""
2 w' ^0 S2 x/ s; t% M$ `0 K* V- O
"M" "CUA MATDUNG" "C" "6" "" "Lw" "0.25" ""! v: e$ f! V$ n5 k9 j
"M" "TIMTUONG" "C" "5" "" "Lw" "0.2" "" "LT" "ACAD_ISO10W100" "" "" "LTSCALE" "10" ""))
, Y# p6 [+ X! e7 A
3 e0 ^5 f9 W1 [) l7 X- p9 c
(DEFUN C:SA3 () (COMMAND "-LAYER" "M" "NETDUT" "C" "8" "" "Lw" "0.35" "" "LT" "ACAD_ISO03W100" "" "" "" "LTSCALE" "30" "": x7 h( Q) g; w- Z- z* w
"-LAYER" "M" "TUONG" "C" "4" "" "Lw" "0.7" ""+ S9 i" t: s( b3 S9 [3 C
"M" "MANH" "C" "9" "" "Lw" "0.25" ""
6 E, B& ]6 E/ S0 H( s
"M" "TEXT" "C" "7" "" "Lw" "0.2" ""
- m1 q* a( m o8 W* \
"M" "DIM" "C" "1" "" "Lw" "0.35" ""
" |' N* h8 A. I' i" T
"M" "THAY" "C" "7" "" "Lw" "0.4" ""* R+ y: o0 U% Z
"M" "NOITHAT" "C" "3" "" "Lw" "0.25" ""
, @8 R, l; I( n/ k R
"M" "HATCH" "C" "5" "" "Lw" "0.2" ""8 T6 H! j/ S* [8 g+ a5 ^
"M" "COT" "C" "1" "" "Lw" "0.7" ""1 ?3 A2 Z, Q( i+ y' H* f& G
"M" "Defpoints" "C" "7" ""
' j @0 ^2 ?3 K+ W0 {* Q. l
"M" "0" "C" "3" "" "Lw" "0.25" ""
; w. B3 A2 _2 j; O) i1 S) M O1 n
"M" "CUA" "C" "6" "" "Lw" "0.35" ""
, \8 D& U9 N* e- X" W. v
"M" "CUA MATDUNG" "C" "6" "" "Lw" "0.3" ""
2 o1 \8 w- s) I* ]3 n/ n, J+ [. u
"M" "TIMTUONG" "C" "5" "" "Lw" "0.25" "" "LT" "ACAD_ISO10W100" "" "" "LTSCALE" "20" ""))(PRINC)6 B3 j+ V- g/ d: L$ y
1 V7 k0 G9 |$ u( K" C
(DEFUN C:SA2 () (COMMAND "-LAYER" "M" "NETDUT" "C" "8" "" "Lw" "0.35" "" "LT" "ACAD_ISO03W100" "" "" "" "LTSCALE" "45" ""
9 ]( y2 E+ q% v/ X# O
"-LAYER" "M" "TUONG" "C" "4" "" "Lw" "0.7" "", \& S7 F. y0 r* J
"M" "MANH" "C" "9" "" "Lw" "0.25" "". D. [" e, t% X$ N$ _
"M" "TEXT" "C" "7" "" "Lw" "0.25" ""& u y) m' R) g& e2 V
"M" "DIM" "C" "1" "" "Lw" "0.3" ""
9 U6 P l- E8 R q" W6 q
"M" "THAY" "C" "7" "" "Lw" "0.4" ""' H8 }$ T, e7 E
"M" "NOITHAT" "C" "3" "" "Lw" "0.3" ""
$ s( y$ m$ i7 O2 S* r! L
"M" "HATCH" "C" "5" "" "Lw" "0.2" ""
0 t+ ]! a6 e8 ^" U* @7 Y* B' T
"M" "COT" "C" "1" "" "Lw" "0.7" ""
. t: ^9 b! S4 V- a9 K8 e7 m
"M" "Defpoints" "C" "7" ""8 Z- E; e( q% a6 A
"M" "0" "C" "3" "" "Lw" "0.35" ""
+ W9 Z1 k$ G6 h: |" @0 s
"M" "CUA" "C" "6" "" "Lw" "0.35" ""7 f3 a7 w7 b. K, R2 x4 \, a
"M" "CUA MATDUNG" "C" "6" "" "Lw" "0.3" ""
3 [6 A; b; ~7 t5 Z4 k( N
"M" "TIMTUONG" "C" "5" "" "Lw" "0.25" "" "LT" "ACAD_ISO10W100" "" "" "LTSCALE" "30" ""))
5 E! j* \+ K; ~6 I; {
6 C. {6 s: c+ n1 M7 m* A+ d' u
(DEFUN C:SA1 () (COMMAND "-LAYER" "M" "NETDUT" "C" "8" "" "Lw" "0.4" "" "LT" "ACAD_ISO03W100" "" "" "" "LTSCALE" "60" ""7 r! T: V5 h$ d
"-LAYER" "M" "TUONG" "C" "4" "" "Lw" "0.85" ""
8 e7 s$ R1 }& P
"M" "MANH" "C" "9" "" "Lw" "0.35" ""
# X& ~; v2 p" H3 ^7 o: y3 m3 z
"M" "TEXT" "C" "7" "" "Lw" "0.5" ""$ o, Y; v: f( ~. r# E, K t+ o% ~
"M" "DIM" "C" "1" "" "Lw" "0.35" ""
9 x, [4 {6 t8 A3 C5 X# \8 c- w3 s
"M" "THAY" "C" "7" "" "Lw" "0.4" """ M3 i3 ]0 q% G' u! ?& P7 |5 w
"M" "NOITHAT" "C" "3" "" "Lw" "0.35" ""5 ]5 s4 @8 A% H% l
"M" "HATCH" "C" "5" "" "Lw" "0.25" ""
) J% } L N! F/ L
"M" "COT" "C" "1" "" "Lw" "0.85" ""
/ U- c& [# ~- h' \7 H' B
"M" "Defpoints" "C" "7" ""2 ^9 y4 |9 z, H# i: @( g
"M" "0" "C" "3" "" "Lw" "0.35" ""
. ~0 C9 R& z# B, W0 m& A6 R
"M" "CUA" "C" "6" "" "Lw" "0.4" ""
( v, s+ K7 `3 J5 n; [2 s# w
"M" "CUA MATDUNG" "C" "6" "" "Lw" "0.35" ""* V" C" Y" d* k% `3 p0 H
"M" "TIMTUONG" "C" "5" "" "Lw" "0.3" "" "LT" "ACAD_ISO10W100" "" "" "LTSCALE" "40" ""))) V$ x7 U3 N; |5 _# O
3 [5 I5 d. v0 h* o5 M3 f& ?( C7 B8 E9 R
(DEFUN C:SA0 () (COMMAND "-LAYER" "M" "NETDUT" "C" "8" "" "Lw" "0.5" "" "LT" "ACAD_ISO03W100" "" "" "" "LTSCALE" "85" ""! v" d' @& Z8 ^# _2 c
"-LAYER" "M" "TUONG" "C" "4" "" "Lw" "1" ""
f* \9 a2 A: Z3 H; V6 D
"M" "MANH" "C" "9" "" "Lw" "0.35" ""8 V- M% w$ l" h: N
"M" "TEXT" "C" "7" "" "Lw" "0.5" ""
2 [! b( Y' [( _ e
"M" "DIM" "C" "1" "" "Lw" "0.35" ""
, h, y/ |+ c* b4 \. s! w. H
"M" "THAY" "C" "7" "" "Lw" "0.5" ""
3 w! \% {+ V* l9 p
"M" "NOITHAT" "C" "3" "" "Lw" "0.4" ""- T1 A; j4 |9 P, ~ I% E6 R' a/ p
"M" "HATCH" "C" "5" "" "Lw" "0.35" ""
# `$ O3 a7 x( l/ {- m
"M" "COT" "C" "1" "" "Lw" "0.1" ""
) F$ ~+ }1 \9 ~! Z$ F
"M" "Defpoints" "C" "7" """ H, X* t$ m" B5 q
"M" "0" "C" "3" "" "Lw" "0.5" ""
9 j* i$ O; F* _& G' X- i
"M" "CUA" "C" "6" "" "Lw" "0.5" ""
" N; C1 ]( S* r5 i" |
"M" "CUA MATDUNG" "C" "6" "" "Lw" "0.4" ""+ Q- y0 H9 h+ b0 ?. t# s
"M" "TIMTUONG" "C" "5" "" "Lw" "0.35" "" "LT" "ACAD_ISO10W100" "" "" "LTSCALE" "55" ""))0 u: z( t9 K4 k/ s
(DEFUN C:O () (COMMAND "OFFSET"))4 W7 Y1 Y6 z9 p7 p! B" u4 j5 X3 A, \( v
(defun c:s1 () (command "surftab1"))
# G( A+ {9 S" Z, J* A
(defun c:s2 () (command "surftab2"))% B# w4 `# k! w0 g: [& l
(defun c:ep () (command "explode"))+ f1 {# B, R2 q% j" o2 h
(DEFUN C:QS () (COMMAND "AUDIT" "Y" "purge" "all" "*" "N" "QSAVE"))- R9 c' S6 v4 R$ x v- l
(DEFUN C:QV () (COMMAND "QSAVE"))+ @5 q. |- g+ B4 k/ d2 `* N* E
(DEFUN C:S () (COMMAND "STRETCH" "C"))
( s. i: u8 Z: V
, H$ @) l5 j9 N2 L- t7 Q% j# O
;************************** CAT DIM **************************
5 I/ m, o& F1 {0 N1 C* O
/ ]/ I" l! K K
(DEFUN C:DC (/ CMD SS LTH DEM PT DS KDL N70 GOCX GOCY PT13 PT14 PTI PT13I PT14I
2 M9 N4 |, I& E2 y1 I; P- Z% O
PT13N PT14N O13 O14 N13 N14 OSM OLDERR PT10 PT11), I5 d: c2 B1 n6 V/ b5 x
(SETQ CMD (GETVAR "CMDECHO"))
9 B$ c: T4 H; X
(SETQ OSM (GETVAR "OSMODE")): w7 b5 g4 x/ S: S4 g: d
(SETQ OLDERR *error*( ?' ^( B2 B( v* V0 Q5 v6 l
*error* myerror)
1 s7 y2 W& M- K9 w' B* p" t
(PRINC "Please select dimension object!")
. h" L4 x: ?$ x/ B
(SETQ SS (SSGET))2 ^3 i- S1 K, d9 X( r+ ?
(SETVAR "CMDECHO" 0)
+ U& j+ H* u- ]* h/ F5 z; A
(SETQ PT (GETPOINT "Point to trim or extend:"))8 F- `, Z+ b" D
(SETQ PT (TRANS PT 1 0))
6 \0 ^5 f: |! [ ]. a
(COMMAND "UCS" "W"). m7 _9 g, R0 g! q# B
(SETQ LTH (SSLENGTH SS))6 u& }+ m( U& R* n% P
(SETQ DEM 0)
' c2 q* B H6 @7 B! [( }
(WHILE (< DEM LTH)
4 \ f9 W% h' G8 a, v- X) b& A
(PROGN( K. S3 u U; r
(SETQ DS (ENTGET (SSNAME SS DEM)))
6 j& s5 V o m" U
(SETQ KDL (CDR (ASSOC 0 DS))). ]9 ~& m+ X z G1 S6 z
(IF (= "DIMENSION" KDL)/ x: K+ h' V& Z) x
(PROGN4 E/ ?' F! }& X7 l2 b
(SETQ PT10 (CDR (ASSOC 10 DS)))
, |% q" k7 x/ u7 Y; s
(SETQ PT11 (CDR (ASSOC 11 DS))); a: c! M) f* {( O; s/ O( |) }% ?
(SETQ PT13 (CDR (ASSOC 13 DS)))
2 M9 Z, \; q! H
(SETQ PT14 (CDR (ASSOC 14 DS)))% x9 i4 P- p3 Y! Q/ x! E3 w( Q
(SETQ N70 (CDR (ASSOC 70 DS)))
; }+ A% D: _2 p) q8 [. y
(IF (OR (= N70 32) (= N70 33) (= N70 160) (= N70 161))
& n" a1 s+ z9 y, V, |
(PROGN
+ j6 J5 ?% u; J
(SETQ GOCY (ANGLE PT10 PT14))/ ?' P7 n. \/ R8 j- U/ [
(SETQ GOCX (+ GOCY (/ PI 2)))
+ W) ~3 a8 w6 B2 k5 h3 k. v
)
( g5 M b. f! M4 p2 F6 ?
)& I, H' m+ u1 H' V+ }
(SETVAR "OSMODE" 0), f0 s. [% t/ Z# C, o
(SETQ PTI (POLAR PT GOCX 2))
/ z* n/ r% g& j* ^) Y& @; ]
(SETQ PT13I (POLAR PT13 GOCY 2))
. X6 |3 ]$ I# m5 o* ~
(SETQ PT14I (POLAR PT14 GOCY 2))
' S( e- ^( b9 B
(SETQ PT13N (INTERS PT PTI PT13 PT13I NIL))
1 q m5 y9 ?3 m6 a5 n$ c4 Q
(SETQ PT14N (INTERS PT PTI PT14 PT14I NIL))6 e/ _ y, y% u$ v& a7 L. U% G
(SETQ O13 (ASSOC 13 DS))
2 t$ Q9 }, o! Z8 q* ?$ |
(SETQ O14 (ASSOC 14 DS))
1 u; U# {2 j% [& _* ^+ ^7 e
(SETQ N13 (CONS 13 PT13N))) V) V# s3 G5 G/ d& @+ d2 n9 x
(SETQ N14 (CONS 14 PT14N))
3 M& m& X5 {1 m
(SETQ DS (SUBST N13 O13 DS))" B) U4 P3 [2 s' s8 M' U6 C _$ b
(SETQ DS (SUBST N14 O14 DS))8 k z! t5 J8 L
(ENTMOD DS)/ q- h6 r6 L' |! h; x$ r
)' Z, g$ K3 [) c+ R" F, B1 D
); ?# ^! N- K( W3 I1 [
(SETQ DEM (+ DEM 1))/ X/ @4 p! f! U; S4 s" K
)
, Y+ z+ M* ]6 o0 G. T/ G
)( v; r; \. u' U O# z$ G8 E6 |+ M/ V) l
(COMMAND "UCS" "P"): B; `, M4 `- q- D2 y j
(SETVAR "CMDECHO" CMD)
B# h" O' s* i& d0 {1 {
(SETVAR "OSMODE" OSM)( q! h0 n* o4 o% E( T+ \( M
(setq *error* OLDERR) ; Restore old *error* handler) m9 Q. x+ r6 X
(PRINC)9 `% G8 ]6 L. R
)
2 E$ T6 v- [1 e1 u
; f/ _# }5 i' n! Z- A
(DEFUN C:BD (/ CMD SS LTH DEM PT DS KDL N70 GOCX GOCY PT13 PT14 PTI) A) x& z1 Y6 l/ |3 H% `
PT10 PT10I PT10N O10 N10 PT11 PT11N O11 N11 KC OSM OLDERR)4 u5 P) m+ `* H0 s0 W* \
(SETQ CMD (GETVAR "CMDECHO"))' H9 A2 G( R# y7 D, N3 ]! I" u
(SETQ OSM (GETVAR "OSMODE"))
1 s* K2 {* R" ?! l! E" x {
(SETQ OLDERR *error*, F0 T W. V# t
*error* myerror)
- c# l5 E2 ^4 r, T' p3 p
(PRINC "Please select dimension object!"). m$ o9 {# [! E* ?$ m2 H, |8 {2 [& U
(SETQ SS (SSGET))9 D& y/ L4 p! f) J
(SETVAR "CMDECHO" 0)
6 z+ R+ v& p: {7 C# V0 t: l
(SETQ PT (GETPOINT "Point to trim or extend:"))
a6 f" b- h& G# r1 y$ x
(SETQ PT (TRANS PT 1 0))
- {/ B% {* q3 t3 H- `
(COMMAND "UCS" "W")
3 L, e0 _' E) ^8 b- U: b7 W. y
(SETQ LTH (SSLENGTH SS)). K% P. k4 U; ~4 _) t9 r# p
(SETQ DEM 0)+ b" S6 E& u8 p4 o2 j. `4 N3 C2 g5 h! c
(WHILE (< DEM LTH)
/ O- s! C! |8 ]
(PROGN2 r+ x$ | I# o
(SETQ DS (ENTGET (SSNAME SS DEM)))
, J! V. d1 } t {( N* ~6 H! s
(SETQ KDL (CDR (ASSOC 0 DS)))
& Y9 O y6 x" A1 q: J
(IF (= "DIMENSION" KDL)
% z' `. e3 p8 G6 T, |
(PROGN
3 k8 y( y" o) \
(SETQ PT13 (CDR (ASSOC 13 DS)))
8 C& Y& F1 Y. M
(SETQ PT14 (CDR (ASSOC 14 DS))), R. u! P( q( I5 n
(SETQ PT10 (CDR (ASSOC 10 DS)))
. ?! y l. u7 N1 U6 m( s. z
(SETQ PT11 (CDR (ASSOC 11 DS)))& g$ }% m, |( o# R7 ?& }
(SETQ N70 (CDR (ASSOC 70 DS)))& g( t7 _ i) w
(IF (OR (= N70 32) (= N70 33) (= N70 160) (= N70 161))/ u- Q0 ]$ o+ n3 z% O
(PROGN
L' l$ j+ g; @! W5 c ]
(SETQ GOCY (ANGLE PT10 PT14))
" a+ o$ \9 e# Y1 B( l7 n- e! q
(SETQ GOCX (+ GOCY (/ PI 2)))
* u4 J3 y8 D% x' L
)" B2 s! w7 t; o' N4 C
)/ G6 F9 G# ]* Q& ^" V, I C7 w
(SETVAR "OSMODE" 0)0 N& t) V$ v$ `9 N& x
(SETQ PTI (POLAR PT GOCX 2))
2 ^. [* N8 h; ^* M8 t& ?
(SETQ PT10I (POLAR PT10 GOCY 2))! f, v1 s! j! U4 N! N# @1 D _! t
(SETQ PT10N (INTERS PT PTI PT10 PT10I NIL))% R! ]! J% m+ p/ d' j& E
(SETQ KC (DISTANCE PT10 PT10N))
: H) D) }% ^( M) G$ r$ l
(SETQ O10 (ASSOC 10 DS))
; t. A1 r" P7 e$ `6 S
(SETQ N10 (CONS 10 PT10N))
o! ] N/ L. @) X" ~
(SETQ DS (SUBST N10 O10 DS))
0 d3 p$ H0 J: l' v/ r3 n3 K) ~
(SETQ PT11N (POLAR PT11 (ANGLE PT10 PT10N) KC))
4 S1 ?* A% V/ `1 u
(SETQ O11 (ASSOC 11 DS))
+ h K0 v9 y) ?" m, c; s- y7 f
(SETQ N11 (CONS 11 PT11N))
( l/ m6 \$ H* d4 T. `- x9 X
(SETQ DS (SUBST N11 O11 DS))
6 v0 Y# Q+ g; M1 d; f
(ENTMOD DS), h5 u( S$ Y/ J# C3 m2 j9 B( n
)( d/ m, e |; ]6 L
)3 g" Z8 D4 z5 _. ~7 V2 r
(SETQ DEM (+ DEM 1))8 Z2 _6 n+ e( S4 S7 ]% u
)
+ A. C4 h" \- @0 t! y! g+ ^ u
)
( ^9 P* i6 ?! [# ?: s4 q
(COMMAND "UCS" "P")2 K: U( j* T! s3 ~( b
(SETVAR "CMDECHO" CMD)
i, @/ ]. f; e; i& j
(SETVAR "OSMODE" OSM)+ l: b' D+ L) k6 z2 _( [" }
(setq *error* OLDERR)
- ?! } K& Z# }5 L; R; }
(PRINC)! I' ^3 h9 n# e" M7 I) H1 Q9 i
)- y2 f6 ]9 V. X$ A( T/ _, l
1 B9 E4 C$ I; _7 O
;;; ================ BAT - TAT CHE DO GACH CHAN TEXT (TU) =================
+ D7 h: n/ i8 F; o' x7 m0 y
3 O4 d3 a4 `2 f7 s* b) W8 x
(defun c:tu () (setvar "cmdecho" 0)(prompt "\nHay chon dong TEXT can gach chan ")' X7 W+ O [7 G/ y
(prompt "\nSelect objects: ")(command "select" "au" pause)(setq sstxt (ssget "p")
/ t8 \* K7 _9 J) v& t( }
sslen (sslength sstxt) ctr 0)(command ".undo" "mark")(while (< ctr sslen)(setq listxt
! i- S( {9 v0 D) E% ]8 ]
(entget (ssname sstxt ctr))txttxt (cdr (assoc 1 listxt))enttxt (cdr (assoc 0 listxt)))
- S W+ w" Y `/ h l' U6 f
(if (= enttxt "TEXT")(progn(setq testxt (substr txttxt 1 3))(if (or (= testxt "%%u")) I! C# ^9 ^! H( {6 ^( n: p
(= testxt "%%U"))(setq newtxt (substr txttxt 4))(setq newtxt (strcat "%%u" txttxt)))
9 S4 a$ ^0 h y5 c2 U
(setq listxt (subst (cons 1 newtxt) (assoc 1 listxt) listxt))(entmod listxt)))6 g4 l5 M0 ]! I9 ?8 g1 b9 }( L
(setq ctr (1+ ctr)) ) (setvar "cmdecho" 1) (princ))! g1 w1 U; b9 o5 E9 i" V
8 P4 o8 o2 n! O; e( N
;;; ================ CHEN COT (TUU) =================' U/ M- m5 g) D# r+ C
( G t* y& C$ m
(defun c:tuu () (setvar "cmdecho" 0)(prompt "\nHay chon dong TEXT can chen cot ")
5 B8 c4 ^/ A' W& q5 F" t
(prompt "\nSelect objects: ")(command "select" "au" pause)(setq sstxt (ssget "p")$ R* ~! K# r9 h6 E3 Q6 E
sslen (sslength sstxt) ctr 0)(command ".undo" "mark")(while (< ctr sslen)(setq listxt- b: g- X! T1 f; T1 v
(entget (ssname sstxt ctr))txttxt (cdr (assoc 1 listxt))enttxt (cdr (assoc 0 listxt)))
. o7 ] R' f& @6 V- {
(if (= enttxt "TEXT")(progn(setq testxt (substr txttxt 1 3))(if (or (= testxt "%%p 0,000")8 P- e* W+ ^9 b% Z: m4 G8 Q
(= testxt "%%P 0,000"))(setq newtxt (substr txttxt 4))(setq newtxt (strcat "%%P 0,000" txttxt)))
) j; P1 z, e- B* N; ]- ?8 |
(setq listxt (subst (cons 1 newtxt) (assoc 1 listxt) listxt))(entmod listxt))). u; H: L2 @0 G- }+ V
(setq ctr (1+ ctr)) ) (setvar "cmdecho" 1) (princ))2 C3 j$ v6 M9 s3 y- k) G0 D
, z1 P5 [+ c# o
;;; ================ CHEN KY HIEU THEP (TP) =================6 V; o+ B+ B; W4 R6 c
6 T e! f0 @) K" R
(defun c:tp () (setvar "cmdecho" 0)(prompt "\nHay chon dong TEXT can chen ky hieu thep ")' v: _1 c( G) C0 s2 [
(prompt "\nSelect objects: ")(command "select" "au" pause)(setq sstxt (ssget "p")
8 y! n* u9 i- z
sslen (sslength sstxt) ctr 0)(command ".undo" "mark")(while (< ctr sslen)(setq listxt
6 Q1 z" O3 i+ w6 _ s
(entget (ssname sstxt ctr))txttxt (cdr (assoc 1 listxt))enttxt (cdr (assoc 0 listxt)))$ A3 o8 [2 F$ [
(if (= enttxt "TEXT")(progn(setq testxt (substr txttxt 1 3))(if (or (= testxt "%%c")+ t5 p Z: w6 u3 n
(= testxt "%%C"))(setq newtxt (substr txttxt 4))(setq newtxt (strcat "%%c" txttxt)))1 M9 z4 v0 x3 H. o5 |
(setq listxt (subst (cons 1 newtxt) (assoc 1 listxt) listxt))(entmod listxt)))( g/ ?9 I& d- e) X9 K2 e
(setq ctr (1+ ctr)) ) (setvar "cmdecho" 1) (princ))
2 X% `1 D( P# T2 t. V! s
! ~0 S2 N G6 T3 `" G" \
;=========================== TAM TUONG (TAM) =================================, }! J) s; y; M
& e- z! g+ y1 Y/ J' C
(defun c:tam(/ data_m)- i- C9 N- e/ B9 Z. H0 L8 k
(defun import_data(/ i)(setq data_m (ssget))(if (= nil distan_m) (setq distan_m 110.0)). a8 d/ c6 w) J( { ^
(princ "Distance (")(princ distan_m)(princ "):")(setq i (getreal ))(if (not (= nil i))4 \, R0 m. X" D" I9 B4 L9 Q
(setq distan_m i)))(defun process(/ ent check)(defun p_check()(setq check 0)
4 q6 L6 N6 f2 h' ^6 T
(if (= "LINE" (cdr (assoc 0 ent))) (setq check 1))(princ))(defun p_d_offset5 R/ z F. J* B: z- v
(/ p1 p2 p3 p4)(defun makeline(/ e2 e5)(setq la (list (cons 0 "LINE")(cons 5 (cdr
U& L9 k# y2 e9 c1 f: {$ K
(assoc 5 ent)))(cons 8 (cdr (assoc 8 ent)))(cons 10 p3)(cons 11 p4)))(entmake la)(princ); S2 j0 U) ?" h- l" [5 k0 J3 d
)(setq p1 (cdr (assoc 10 ent)) p2 (cdr (assoc 11 ent)))(if (not (= p1 p2)) (progn (if
0 k! W, i, Q3 Q2 e; V5 l* O
(< (abs (- (nth 0 p1) (nth 0 p2))) 0.000001) (progn (setq p3 (list (+ (nth 0 p1)
. ^# s2 \% ~1 h+ P# q. L
distan_m) (nth 1 p1) (nth 2 p1)))(setq p4 (list (+ (nth 0 p2) distan_m)(nth 1 p2)1 @% M8 Z+ y; }0 p( Q; z2 ?9 K
(nth 2 p2))) (makeline) (setq p3 (list (- (nth 0 p1) distan_m) (nth 1 p1) (nth 2 p1)))
$ D- a! Q2 l. }# ]* C$ c: h+ ]
(setq p4 (list (- (nth 0 p2) distan_m) (nth 1 p2) (nth 2 p2))) (makeline)))(if (<( w% y- Z) ~8 K& [
(abs (- (nth 1 p1) (nth 1 p2))) 0.000001) (progn (setq p3 (list (nth 0 p1) (+ (nth 1 p1)
. S5 U- f ?6 r% E3 z3 y5 I0 H
distan_m) (nth 2 p1)))(setq p4 (list (nth 0 p2) (+ (nth 1 p2) distan_m) (nth 2 p2))); H0 p7 C4 `. I2 q
(makeline) (setq p3 (list (nth 0 p1) (- (nth 1 p1) distan_m) (nth 2 p1))) (setq p46 A2 u( y9 K( T6 E
(list (nth 0 p2) (- (nth 1 p2) distan_m) (nth 2 p2)))(makeline)))))(princ))(if (not8 l# F; n0 ?) j. _4 x& _
(= nil data_m)) (progn (setq i 0)(while (< i (sslength data_m)) (progn(setq ent (entget+ P9 |2 @% i, i0 \/ J9 }
(ssname data_m i)))(p_check)(if (= 1 check) (p_d_offset))(setq i (+ i 1))))))(princ))) g4 s0 x" t& i0 _
(import_data)(ai_undo_push)(process)(ai_undo_pop)(princ))
2 o# H7 T. G0 C4 O. v
3 x0 o; F( P8 s* I3 d: p/ F
;============ GHI CHU PHI (T1) ================
# X" X' c' A0 p8 ` S
(defun c:DuongDan ()(setq D1 (getpoint " Diem thu nhat: "))(setq D2 (getpoint "Diem thu hai: " D1))- H0 y" R& ?8 n/ s7 x" {+ U
(if (> (car D2) (car D1)) (setq D3 (polar D2 0 16)))(if (< (car D2) (car D1)) (setq D3
1 n$ Z8 t+ A! l8 ?
(polar D2 PI 16)))(if (= (car D2) (car D1)) (setq D3 (polar D2 0 16)))(if (> (car D2)& G, t5 ]0 h5 {; {' D$ [1 |
(car D1)) (setq D4 (polar D3 0 3.2)))(if (< (car D2)(car D1))(setq D4 (polar D3 PI 3.2)
/ @0 b Q; b, h2 Z3 h
))(if (= (car D2) (car D1)) (setq D4 (polar D3 0 3.2)))(if (> (car D2) (car D1))$ V& \! i. ]( l, {8 b8 E9 K/ {
(setq D5 (polar D2 (/ PI 9) 3)))(if (< (car D2) (car D1)) (setq D5 (polar D3 (/ PI 9)2 s3 [, h: f% I5 g4 M% L' @
3)))(if (= (car D2) (car D1)) (setq D5 (polar D2 (/ PI 9) 3)))(command "color" 1)4 ^; \4 p$ a; _' _
(command "line" D1 D2 D3 "")(command "circle" D4 "3.5")(command "color" 7 )
! [# R2 y3 P6 q" {9 }* Y
(command "text" "m" D4 2.5 0 "1")(command "text" D5 2.5 0 "%%c6a150")
' K+ v5 w. _, h7 l
(command "ddedit" pause))" u% M: Y# l( Q( D
& H/ y$ A* M4 E/ d# x. _
;;; ========================== Join (J) =================
' g. A, `7 R% z2 c6 I
& \. j7 r% ~; Q
(defun C:J () (Setvar "cmdecho" 0)(setq m:err *error* *error* *merrmsg*)(setq sset (ssget))) b/ x5 T' ~& h6 n' |
(if (null sset) (exit))(setq kt (getstring "\nJoin all (Y/N) <Y> ? "))
# _( T4 R$ R" @# G
(setq ssl (sslength sset))(setq temp (entget (ssname sset 0))etype (cdr (assoc 0 temp)
6 @0 K% D$ p; s( E8 r
))(cond((or (= kt "Y") (= kt "y") (= kt ""))(progn (cond((= etype "POLYLINE")! [3 b6 ? c D0 ^
(COMMAND "PEDIT" sset "J" "all" "" ""))(if (or (= etype "LINE") (= etype "ARC"))
3 S& A# t* D+ [4 Y2 U/ F
(COMMAND "PEDIT" sset "" "J" "all" "" "")))))((or (/= kt "Y") (/= kt "y") (/= kt ""))
4 \& A$ t/ k, R. y
(progn (cond((= etype "POLYLINE")(COMMAND "PEDIT" sset "J" sset "" "")) 0 G- [1 I3 h( r5 U* ]
(if (or (= etype "LINE") (= etype "ARC"))(COMMAND "PEDIT" sset "" "J" sset "" ""))))))# z, i9 J) R1 b$ b, F) b1 b
(setq *error* m:err m:err nil)(princ))
8 o* F( n u. s2 j- Q0 Q. ~
% V6 O) U" e2 T
;=====================================================================: G" N$ O- r) ?- k: D
;;; DOOR.LSP 1.0, Copyright (C) 1998 by CAD Department, HUCE.9 ?- K8 D0 q; F. d+ {( w# Y
;=====================================================================( T8 t" h. B, Q
" T6 F2 i+ Y4 _( `/ }# w
(defun C:D1 (/ p1 p2 p3 p4 side dis wid ang angsile old)( i; }/ k9 Z$ _: ?5 w) `; x
(setq old (getvar "OSMODE")) # W4 ]8 \2 p2 f
, D, f. r) p0 c8 m% {3 o' e; x
(setq p1 (getpoint "\nStart point:"))5 b9 h2 y6 w4 b
(setq p2 (getpoint p1 "\nEnd point:"))6 y, M0 S+ W3 q( \+ m- ?
(setq side (getpoint p2 "\nOpen side"))
5 b$ S1 [) F2 o/ I) ] k2 e
' N0 C3 i9 Z9 r w
(setq dis (distance p1 p2))
1 r+ g- D1 K( ~) p2 z
(setq ang (angle p1 p2))
+ o9 u. E( ] p3 t( B
(if (< ang (angle p1 side))
8 K, K8 X" G: [; P
(setq angside (/ pi 2) )
( {% I6 y) p( L9 j7 @
(setq angside (- (/ pi 2)))
7 b6 u* T- S; @& W/ ]
)
( ?, [! i& n6 w# D
(if (>= (- (angle p1 side) ang) pi)
1 d9 c: x/ u0 m
(setq angside (- (/ pi 2)))
, n8 M0 f* t g7 j, s
)
7 k/ c6 M9 `/ M6 H2 h' A# ?
(if (>= (- ANG (angle p1 side) ) pi) i6 j+ n8 ?: `: F) _
(setq angside (/ pi 2))' o6 g$ `; |$ @2 W/ g* \1 C/ s$ T' O
)
1 J& ^. s2 w- Y# i
0 c+ A7 X' a. }" e
(setq p3 (polar p2 (+ ang angside) dis) )+ w3 e; |; ^4 J& E
(setq p4 (polar p1 (+ ang angside) dis) )' f' C' ]5 y5 i3 O
(setq wid (/ dis 15))' W# t# \* z) p; C) m- k
, Z% R' A7 c+ \# l1 v1 W0 A, Z
(setvar "OSMODE" 0)
! G6 n( Q& h8 i
3 Y0 o& ^1 l- v3 Z% O* ` r
(command "PLINE" p1 "A" "D" p4 p3 "L" p2
9 r- o" z' a6 |" f
(polar p2 (+ ang pi) wid)
8 ?% m, A7 ~/ |% f' P' h" L; _3 ^
(polar p3 (+ ang pi) wid)
" ~ b4 B p' l' g6 T6 s1 S7 \
"")
9 b% X- ^" e+ V+ m# d9 G8 ], a
. M: n. a6 m/ R# g% w
(setvar "OSMODE" old); B& }0 w6 A3 T2 k2 J; r
(princ)
! ?& g1 |; o/ Z7 I! E( ?
)* L, M+ x3 i _5 ]% z
( g( `3 w. z8 ]# R* L
;=====================================================================
+ \% ]- ]6 ]3 m" X
3 o/ [: |9 q2 `, a: X. x: l& h; {
(defun C:D2 (/ p1 p2 p3 p4 side dis wid ang angsile old)
* @5 Q) p. ~ X3 g D
(defun cua1 (pt1 pt2)0 V# @- {4 r, C8 R1 ]
(setq p1 pt1% q1 q A e( q2 \8 Z- |
p2 pt2)
. f2 ]) T6 s$ o4 N _# ]/ y
) I& n+ { W$ W# W3 _$ X! i$ j' `, X+ I, E
(setq ang (angle p1 p2))
! o8 E/ I9 x4 y) ]. A
(if (< ang (angle p1 side))7 l6 }$ W. ^* J3 g$ q
(setq angside (/ pi 2) )% _' I# R7 x7 y4 d9 H
(setq angside (- (/ pi 2)))2 f9 v0 }4 ]. N4 b: l! C) Y. c
)1 C( ~2 S% L$ K% U8 e9 j7 s
(if (>= (- (angle p1 side) ang) pi)
5 o2 ?! }: D; \8 a: O2 ?( [
(setq angside (- (/ pi 2)))8 O+ L/ N5 T6 I6 F" s
): A) [8 e' Q d& ] b5 S
(if (>= (- ANG (angle p1 side) ) pi)% H+ z3 z+ g, _$ h# Z
(setq angside (/ pi 2))( y* J" x+ {% R4 Z
)" c2 Q7 L, g. s6 D5 t
% [3 [/ |" ~& S
(setq p3 (polar p2 (+ ang angside) dis) )+ `, m$ w& k2 ]: A
(setq p4 (polar p1 (+ ang angside) dis) )
+ O& P* t _- I$ L, {. M l2 h2 K
(setq wid (/ dis 15))" z& t- U+ S) ?) _6 s/ C$ j c
: s% {$ E) T$ L6 U% v
(command "PLINE" p1 "A" "D" p4 p3 "L" p2 # G: a) |) x( Y6 d
(polar p2 (+ ang pi) wid)
7 i% W; N; i# J5 L. Y7 z/ h
(polar p3 (+ ang pi) wid) : l* g0 r* m, w2 Z# l" F
"")$ o. ~, K0 ~8 i/ g
)
2 b8 O9 I2 X ]9 ^; L- ^5 H4 A6 H
;=====================================================================
, Z z. U! s7 @
(setq old (getvar "OSMODE"))
# D- e( @4 z- i# w ]5 o
# }5 o6 B' e! d: v8 j3 a; s( `
(setq p1 (getpoint "\nStart point:"))
5 E) F' Y; ?; I: _3 U
(setq p2 (getpoint p1 "\nEnd point:"))
0 O4 M3 y3 s3 [, [2 F
(setq side (getpoint p2 "\nOpen side"))
- }" k# r: \2 W7 x2 [
% c! L! n* r% O
(setq dis (distance p1 p2))
/ W2 }3 h; n* n- c- _
(setq dis (/ dis 2))# n- X8 f4 r) e/ u" o
; [; O0 d* U9 U6 M
(setvar "OSMODE" 0)/ e- W: h$ j) n
O# ~) a* Z, j
(setq p1 (polar p1 (angle p1 p2) dis))
5 x8 o k# D) G
(cua1 p1 p2) 1 \9 {, j6 h( U, Q- o3 _3 u
m- T" v# m+ c- y b' N ]1 b
(setq ang (+ ang pi)), q9 a( |9 ]" Q$ z* a+ y
(setq p2 (polar p1 ang dis))* U' i+ m$ ]! a* H9 H2 J0 t
; (setq side (polar p1 () dis)): f; p: R9 G" ^1 J- b" Q
(cua1 p1 p2)
, [1 x5 |: N$ }1 c( t. b$ d1 n% E
8 }, `, ]8 ]* p9 J' _% G& |: y
(setvar "OSMODE" old) w( N- o, w1 @5 W2 o0 @
(princ)
% j( ?. H, v3 O6 t) [# Q0 z6 O8 ^
)/ a( @9 r) |* W9 v( n) W
9 h# v; e! \5 N' S B, U& O2 L
;=====================================================================7 q8 r) B+ V. h2 }5 V4 U; a
;"Glue" text strings. All adopt first's properties.; ^& I8 ?- _1 E* ^$ N, X
; Author:& n3 ^) N# E* J
; Henry C. Francis
! J- \& C# z. }5 u8 V+ j
; 425 N. Ashe St.* l: Z: H3 v. ]2 i
; Southern Pines, NC 28387, L, F' k' [6 D: ~
; http://www.pinehurst.net/~pfrancis
/ L1 h( d8 X& b: p# G
; e-mail hfrancis@pinehurst.net
* a/ E! ^& g4 X' k
; All rights reserved.) o3 D" O3 |" G a8 \
(defun c:gst ( / ename ent1 ent2 old1 oldsl old10 old11 old40 old50 newstr newsl new1 new10 new11), J6 G$ `( u6 Z8 p$ I+ \- j
(while
1 U' F& F4 ^0 g4 C1 G- t; I. K6 J
(not
: w, k- b( r8 L$ ?/ {
(and* Y! T8 f& ?8 w" H/ ?1 H {4 G/ ~
(setq ename1 (car(entsel "\nSelect first text string to join: ")))
0 h0 ^5 b" F1 l* `2 T
(setq ent1 (entget ename1))# s5 `, K- z; t3 |& O9 B P
(eq(cdr(assoc 0 ent1))"TEXT")
. c, |+ W* i5 z0 L- k0 `0 H7 L
);and
! U5 {/ S3 A4 n7 u( `, o$ N: Q
);not" O4 y5 `$ w( s* r
);while, G! _* |( L; l v
(setq old1 (cdr(assoc 1 ent1)))
" t- z; n& G, t. |" o/ N
(while
\5 i* y! |2 ^8 D" o
(not/ g8 w2 g$ X* Z9 K6 p% u
(and
! x/ j Z! L5 z9 c& k4 ]# J B' l
(setq ename2 (car(entsel "\nSelect second text string to join: "))). n) }8 E8 T7 C- a
(setq ent2 (entget ename2))8 C+ I7 w/ `0 c" I- j
(eq(cdr(assoc 0 ent2))"TEXT") J! D5 n; V! T7 f8 L
(not(eq ename1 ename2))
: J- l3 ^' J# {
);and
' T) J) ^2 |2 C: {" K6 r/ m
);not6 O% D$ W0 h7 M6 ]1 o
);while" c- {+ g5 Y; ~5 n
(setq old2 (cdr(assoc 1 ent2)))
4 O, h7 q; Y$ ?1 x4 }- V
(setq new1 (strcat old1 " " old2)
& J" Q1 P2 k$ g+ N# o, v% f
ent1
& H- Y6 v/ ^. C7 \
(subst (cons 1 new1)0 \# A( l! |# p& q4 q
(assoc 1 ent1)
% Q2 d8 S" ~% R
ent1)
" t4 L3 d0 t& u) ^2 q, T
);setq
. U3 l+ `$ d; z5 [+ O* R7 \. T
(entmod ent1)
& p6 \6 u" }8 `, Q
(entdel ename2). H v* J+ y6 ]3 A# J3 X
(princ)* L! w7 q2 n( B, \5 l6 F
);defun
7 K1 ~5 o+ m- C; Y% _5 s
% z" r9 H% d1 R9 z1 ~6 `2 m
;=====================================================================
. Y- R! Z2 m6 {4 h( w( G+ H
# a6 m& U0 j( ?% Y* u5 A# f
(defun c:nt (/ g1 g2 ss1 olderr nterr l i temp e1 e2 new old dd dc)
! H9 p! W4 c G2 H
% t! j4 H4 j) @. d o ?
(defun nterr (s)9 U: j; `' e# K X
(command "_.UCS" "" "_.UNDO" "E")
' B7 J7 f" S/ J9 L- Z7 r4 y
(setvar "cmdecho" 1)
! |* m8 u: f' B: G8 c7 `+ j
(setvar "blipmode" 0)
+ v9 ?! ]/ V9 G
(setq *error* olderr). p+ E* i$ D: }& W4 t. q
(setq g1 nil g2 nil ss1 nil e1 nil e2 nil olderr nil 0 e, g ]+ ?/ E& Y" _- i7 d
nterr nil temp nil i nil l nil new nil old nil dd nil dc nil)! H. q0 F* f$ K( P
(princ)
: ~! Y; I" V) Z. r& r$ |& w
)7 x8 o/ g8 {. M+ o! N
! t+ D+ P/ u6 w. F6 B$ h/ ?
(defun tim_in (dt / p01 p02 ktra)' Y, g' v0 A9 b* T! X, L$ V
(setq p01 (cdr (assoc 10 (entget dt))))# P7 O6 J/ _, W
(setq p02 (cdr (assoc 11 (entget dt))))% L0 M% h/ a1 N" l% p1 q" x
(setq ktra T)
: _. r0 ^3 b( M" ^' x P: ^% b0 x
(if (and (> (car p01) (car g1)) (< (car p01) (car g2)) ' Z0 ?0 F: c% Q/ v! Z/ @
(> (cadr p01) (cadr g1)) (< (cadr p01) (cadr g2)))
. {6 @6 z0 z$ ?1 j4 L" ?
(setq ktra nil) P3 _4 T) v4 t0 a5 b* c
)& E9 y! G0 X* {$ i) E. ~! ]$ o
(if (and (> (car p02) (car g1)) (< (car p02) (car g2)) / p5 E ^5 U4 d
(> (cadr p02) (cadr g1)) (< (cadr p02) (cadr g2)))
p( [/ u" C3 v
(setq ktra nil)
9 U+ k* W! e' e y1 J0 `- D* s1 x
)
S8 U% s& m% ?5 R
ktra
& R# p& M: a c2 S
)0 C% w' ^6 L' v; ^ c
9 {. ~4 d! H7 ~$ n9 t
(defun timdt (dt1 dt2 / p01 p02)
- d% T" ^: Q0 h/ U7 s% L
(setq p01 (cdr (assoc 10 (entget dt2)))). D1 R5 L( D E* ^8 j2 X( g6 Z
(setq p02 (cdr (assoc 11 (entget dt2))))
# I- s5 P. i* S- e0 h* D" n0 J
(setvar "ucsicon" 0)7 s) n, t# }. R7 D, i
(command "_.UCS" "E" dt1)( |; Z$ i6 f8 S' L' e1 \
(setq p01 (trans p01 0 1))
& u9 |; R# g9 G7 `; I- G' F! y
(setq p02 (trans p02 0 1))
! S* q$ l8 v# D
(command "_.UCS" "")# n1 O" i, Y1 E
(setvar "ucsicon" 1)
( V- ~2 j! i* W+ C# Y9 B* O
(if (and (equal (cadr p01) 0 0.001) (equal (cadr p02) 0 0.001))
3 m8 M+ y N8 z) X, A
T
" L$ {" m: H3 f& \2 w7 G
nil! F! }2 N2 g2 _3 \( U; H
)1 d: x3 _& R" U |7 l3 `
)9 S0 e' a7 |+ M4 k; y; x6 J
" S- d7 V9 V7 o/ B6 f! U$ N
(defun tim_out (dt / p01 p02 kt); C: O: Z' y" K/ L% j8 ` Z. z
(setq p01 (cdr (assoc 10 (entget dt))))
) @5 L, b/ \# M/ A0 p: w- l5 L! Z
(setq p02 (cdr (assoc 11 (entget dt))))- K: n7 j3 K! b8 E, j5 `% k
(if (and (> (car p01) (car g1)) (< (car p01) (car g2)) 3 F8 P V- x+ L" t5 i% D
(> (cadr p01) (cadr g1)) (< (cadr p01) (cadr g2)))
0 Z" S/ l! B3 S' h+ Q; ^% }
(setq kt p02)# i& u/ k5 t# v
): d$ {. l) E# C5 E% V+ j: f. K
(if (and (> (car p02) (car g1)) (< (car p02) (car g2))
5 G% J2 u9 T7 |- M. A, s5 s
(> (cadr p02) (cadr g1)) (< (cadr p02) (cadr g2)))
( B! [: s* [! I2 m9 |7 k
(setq kt p01)4 b$ L; [" s1 v( i0 B2 u6 E/ q
)
7 X0 h& ]/ \* ]0 `( J
kt : \5 g# w3 W5 s) A p4 m! w, q
)
% t$ V2 [: z/ D+ r5 a0 ?
2 a4 d+ ?$ f) P0 H C0 {
(setvar "cmdecho" 0)
3 a3 X0 Z& M. I1 b8 l
(setq olderr *error* *error* nterr)
, \+ X* C- d. u
(command "_.UNDO" "G" "_.UCS" "")1 c6 e/ x& H- B- z% Y
(while (null ss1)! W. U |7 v9 B. k0 T: y
(princ "\nChon tuong muon noi...")0 w9 {6 _! k9 P
(initget 1)
, w) G! E' T9 F
(setq g1 (getpoint "\n>Goc thu nhat:")); [, f0 A% d7 d- [' }
(initget (+ 1 32))
, O/ T' l6 B' i$ P
(setq g2 (getcorner g1 "\n>Goc thu hai:"))
# S% D/ B" X5 I4 D! X7 l
(setq ss1 (ssget "c" g1 g2 '((0 . "LINE"))))
% f' A% h3 S$ W/ {: J/ b3 F
(if (null ss1) (princ "\nKhong tim thay doi tuong!")); H r6 Z& b" ^/ F' g; m% \
)
2 r' m' D- l6 M4 z; F2 K
, y: _9 W, A3 W3 ^: L! }# y6 E! w* E
(setq temp (list (min (car g1) (car g2)) (min (cadr g1) (cadr g2)))6 B- |/ L3 A. k& @$ z2 S! k
g2 (list (max (car g1) (car g2)) (max (cadr g1) (cadr g2)))
) Y! s- A2 Q! s7 D: g, Q. Y$ s
g1 temp)3 X0 ?" c) h. ]8 T! D: t
(setq ss1 (ssget "w" g1 g2))8 Y& x" q% _5 D
(if ss1 (command "_.ERASE" ss1 ""))( u$ U4 s/ h" D! q" ~
(setq ss1 (ssget "c" g1 g2 '((0 . "LINE"))))
6 j: F- y7 j. ~. A$ k0 Y
) J7 l7 r. _9 a! C
(setvar "blipmode" 0), ~* N7 a# M5 {0 ]- V# `
(setq i 0 l (sslength ss1))* U/ Q( f' l: w1 @0 T3 b
(while (< i l)
* @1 m* H6 K, L3 z+ ^
(if (tim_in (ssname ss1 i))% X; Y5 ?7 Z' M e
(progn
) \% ]; u1 p- i3 J
(ssdel (ssname ss1 i) ss1)
4 N% ^4 Q8 d# N/ f8 Z
(setq i 0 l (1- l))/ b- O) `! T. V! c
) 8 v8 q2 `' L) r/ D# L- g7 x- K
(setq i (1+ i))
: Q* @2 Z% O8 o2 Q/ m% R d" B
)
/ W( X9 P9 V7 T% |* l: m1 ]! |
)
, B& d7 A, F1 y. h4 F* L) T( k
(setq l (sslength ss1))2 _) j, h5 u3 L, L, I+ N) q' u) l
(while (>= l 2)
7 F. V# j# p8 z& `5 _& I A
(setq e1 (ssname ss1 0)) ^" _& ]8 u/ {6 ]5 ?
(ssdel e1 ss1)% t( Y1 a8 g6 ^( z7 Q
(setq e2 nil i 0 l (sslength ss1))6 |! L6 b; y; T; E9 E; e$ k+ h9 i
(while (< i l) ) Z# P' B4 H! K0 {" P% G9 n) u4 q
(if (timdt e1 (ssname ss1 i))2 B1 Q" H I" N! s* C% N$ y
(progn; Y: F2 s+ a$ T/ u
(setq e2 (ssname ss1 i))' F) W% @1 D& [6 q; L
(setq dd (tim_out e1))
" ], ]$ {0 L$ H& _: w
(setq dc (tim_out e2))
)% M5 H6 B- k/ u% U3 h
)# `, r! T2 E$ p: q& M; u7 ?
(setq i (1+ i))' s. c( G$ {4 ~( Z
)
. W# G; r" M- c+ C$ W" d% ~
(if e2 (progn; \7 w* B( e2 P- N# c
(ssdel e2 ss1)
3 e; b; Y- u" R+ R) H' s( u
(command "_.ERASE" e2 ""). ~: T. q8 d! \9 Y5 v- T
(setq temp (entget e1))
/ L: Q0 A6 t! f( E* c% E
(setq old (assoc 10 temp))
( P$ @1 t$ j9 V: \2 t
(setq new (cons 10 dd))
8 h1 @9 p8 z- }) p6 V4 t% ~# r
(setq temp (subst new old temp))
1 o4 o \6 p3 r) M6 q6 ~) a5 _
(entmod temp)+ d4 s& z; [' N
(setq temp (entget e1))
; o1 z: y- Z$ z. b
(setq old (assoc 11 temp))5 b9 t/ _( {1 Z5 g
(setq new (cons 11 dc)), _. }7 ]4 c1 j$ @' K
(setq temp (subst new old temp))% Z' m9 q2 t3 ?' Z' u" p% G6 A
(entmod temp), A3 X3 M+ c$ g* X4 A$ p7 S
(redraw e1)
5 }+ b3 u3 A& d! D
(setq l (sslength ss1))
- N8 B3 @- I& r# S% Q' G
)
) y! E A5 d4 v& \) i; ?
) E" L, a- V5 H% X9 _: M
)3 _. u) | @2 {. D( f7 Y
R$ a' F1 ~" M( h" _
(command "_.UCS" "" "_.UNDO" "E")
; B: R7 {% Z' s% Q. p
(setvar "cmdecho" 1)1 H) }% N5 @" R* O5 h6 m' c
(setvar "blipmode" 0), y( ~8 @- h) l* G9 ^) w
(setq *error* olderr)
- `9 X) s3 F4 O
(princ)! W$ t, v+ y& b0 f, G" i% b
). A3 I1 h! S% d. d \5 L- M! p
;*********************************************************************1 k5 E" w: G& x9 B5 V( Z6 G% Y d
(defun ketthuc ()
9 ]% y- T. T8 ^# b' D
(setvar "cmdecho" luuecho)
/ }3 N9 E$ m0 ~
(setq *error* luu
T$ p" s) e7 f
luu nil
' ^0 O; ]' i2 X! Z+ O8 d6 X/ l0 T
luuecho nil
* Z( r& l: D( r, z7 y% _
);setq; R6 \- k/ ^ h8 \; o' d9 u
(princ)$ F+ X8 j, \6 S% [
) ; d: I1 [- b+ d7 ]) d; j. y
;*********************************************************************
5 T0 c) |" V! a
(defun modau ()1 [0 ~9 D2 G$ k' R9 Q3 X3 a
(setq luu *error: o; k4 p+ l% i0 ?2 ~- K7 }2 G# H
luuecho (getvar "cmdecho")2 [8 Z4 X; y8 ]. Y. j. q( i
*error (ketthuc)
* Q0 ]+ N# d$ Q; \
)% q) V$ r7 T9 b, u& q9 _
)# a3 T$ d$ U$ l$ ^% h: d6 l. c
;*********************************************************************
% I& ^) | B! V5 r( Q
(defun xulytext (text / kytu ma sokt luusokt lui )
8 s0 C- c( e; x
(setq kytu (substr text (strlen text))$ r" g/ ^0 y8 t! P- q8 ^) J' \
ma (ascii kytu)
7 a# t {" [' C" |* v# ~3 {5 c; O( w
sokt (read kytu)
2 w/ v" @7 \* ^
lui 1
; B, e# ?# s$ w$ e
)' Y7 U5 R) ~% ]( F( P! y
(if (numberp sokt)3 z3 a( B/ |# U; b( p
(progn
0 u3 b' b8 m- x
(setq luusokt (1+ sokt))
) H& H; c9 V$ Q. }2 O' u
(if (and (numberp sokt)
5 q) f/ y3 g; I( E5 B S* L
(> (strlen text) 1)- d, N! Y, _' K' Y, `- Z* w
) ; p# Q' w" Z( G- A) T" Z# z
(progn0 u# G0 ?& _6 U$ X
(setq kytu (substr text (1- (strlen text)))% S/ `2 L% R5 {; n4 y. \
sokt (read kytu) 7 f7 O& k- V3 u+ e( M; |. f
)+ [; a# [8 P/ \* L
(if (numberp sokt) 0 e9 U3 B4 S% f& M
(setq luusokt (1+ sokt)
; N* C5 r. l! d3 X# A; R
lui 2
' p, T: K. E3 M( b9 M1 O
! k. E" ]* E$ f7 O$ Y# l: n K
)
+ V* X+ o3 V+ a7 g+ G; v
)! C2 m, \& @9 x6 I/ S
);progn
b+ S. D* R( _ x% P0 x# J" w
)% f7 u' y3 v4 }$ }1 ?( E
(if (= luusokt 100) (setq luusokt 0))
/ H5 [ G+ }2 D' Q! M" f3 c/ F
(setq kytu (rtos luusokt 2 0)- k) c9 E* ^7 Q" [( T
. W( R; I4 G( k% f. m
text (strcat (substr text 1 (- (strlen text) lui)) kytu)% @9 Z' L6 j. S o2 Z
). Y1 H5 J2 u# h9 E
);progn
# X z$ i- z( z* ]4 ]
(if (or (= kytu "z")
& I2 M2 ^' J* m& U
(= kytu "Z")( U0 @- ~' a. v6 R$ l9 f$ D
)
* Y8 h+ n) C" E7 `6 Q
(setq text (strcat text "0")
0 j' K( A3 x6 L/ C: q1 f3 P
textxl "0". c' J( h3 D E; X
)7 Q/ R |1 A5 ]* f
(setq ma (1+ ma)( d! p5 Y& @8 f: M+ @
text (strcat (substr text 1 (1- (strlen text))) (chr ma)): ]' c4 k1 Q/ C7 [% Q' t5 M
)! }6 ~ i g$ E( u* L
);if. p5 t* v% d) E0 U5 d% m- i
);if
' O2 n! t( |! B' c8 c5 G, C6 U4 o" [
)- R# v% p8 S" @ O( W- L
;*********************************************************************
, N! m4 \; r* f
(defun doitext(tendoituong / chuoi doituong thoat tam dsach kieu text vitri10 vitri11 dem canle)2 d' X- b5 O7 @( g
;Neu doi tuong la text thi tiep tuc
- d' ^& w" t" F( ]5 h7 f
(setq doituong (entget tendoituong)1 t/ D' R+ Q+ A, A
kieu (cdr (assoc 0 doituong))
" Z5 n& M; _6 I" |- {5 ?6 O2 s
canle (cdr (assoc 72 doituong))
. G3 ^- w" }+ Z
)
- S v3 Q' O2 J8 D0 A% u
(if (or (= kieu "TEXT")
$ ?. Y/ _0 r: p- C5 |. M: ~5 Z
(= kieu "MTEXT")
' Y, P! ]+ J" Z6 I: o! q, E3 d
) & m, q, [* r: A8 v8 B0 a
(progn
% P- _! }* I: p. N) d
(setq textxl (xulytext textxl)
# z( s" j2 q( n- L* D
text (cons 1 textxl)
) ?8 w% {& C: }: y7 w b# B
vitri10 (cdr (assoc 10 doituong))
5 E1 P6 a) f/ L% R R1 m9 [6 Q1 Z
vitri10 (list (+ (car vitri10) (car vitrilech)) (+ (nth 1 vitri10) (nth 1 vitrilech)))
* u- g, Q; X2 ?& B* g
vitri10 (cons 10 vitri10)
8 }! s) R- O1 b) w) m: J
vitri11 (cdr (assoc 11 doituong))
# W8 Z3 L0 i1 \7 P! @8 g
vitri11 (list (+ (car vitri11) (car vitrilech)) (+ (nth 1 vitri11) (nth 1 vitrilech)))
: I0 J, ]# t6 z0 D# u5 B) U2 X! u: ~
vitri11 (cons 11 vitri11)+ W2 Z c7 [2 l# N
dem 0
% R8 Z h: f% @% H: L+ q
dsach nil
, q8 p/ M" ] w9 U* U
)
- l4 x* K8 H+ V9 ]
(foreach tam doituong# i/ p& H2 J- }' D5 c, ]# ^8 C
(cond
' k9 v& i# i" r1 K
((= (car tam) 1) (setq dsach (append dsach (list text))))
* G( x9 J9 i& i2 V
((= (car tam) 10) (setq dsach (append dsach (list vitri10))))
; c6 L" H% n5 e+ B2 D
((= (car tam) 11) (setq dsach (append dsach (list vitri11))))% L$ F5 g; H, z
((setq dsach (append dsach (list tam))))
& d3 z: X# m$ ~% N
)
: U* d+ z, H; K6 `% J, l
)
! C) g! G- a4 A) L2 V2 W3 l% n
(entmake dsach)# O: x& z2 T9 d$ X
);progn. d( p2 h% H9 ~. Y3 E+ ^
);if
, f, y5 B" E$ m
);
/ K2 D; K" P; r- k) H. e
;********************************************************************* C! J: R8 Q+ z$ W z7 j
;sao doi tuong cu sang vi tri moi
9 I8 Q8 E: {; o$ K2 F- l: D# @! o
}1 o3 t( W9 D X
(defun copy_dt (tendoituong )
5 r7 Q! }( p$ T* A4 O0 u# ? w
(command "copy" tendoituong "" goc toi )
9 l4 { U& |+ t
);defun
$ a* W' K; E' l! t
: ?3 _4 L; V8 `4 N) a _" b
;*********************************************************************: {! j, D, _7 u6 z5 O0 V
! m5 v5 ~5 h% B: L
(defun c:ct ( / cumdt dodai thoat dem ten doituong textxl dem goc toi)7 E5 f" ^) Q( U/ o9 t% {
; Khoi dau cua chuong trinh
" k2 k, z& q; v( m2 u" }
(princ "\nCopy Inteligent...\n")4 X+ F1 u. Y) `! k) O1 W" N. [" b
(setq luuecho (getvar "cmdecho")
: T5 D, C" G6 j+ R' k
luu *error*
) E* _/ f l: F* h8 b) U$ W
*error* ketthuc- e" H5 |. | ` O4 Y4 N
cumdt (ssget)
{' e2 O- }2 F
dodai (sslength cumdt)
) @2 y' ]3 V8 D+ w7 I
goc (getpoint "\nSelect base point:")
, T: I2 T7 N7 C+ }# T
thoat nil' E4 Q% h, q+ e* R# p
dem 0
, i4 G. R! T& ^) D
textxl nil9 H# B" n# g A# G: I% C9 n
);
1 ]4 u3 Z4 v% o4 Z. \
(setvar "cmdecho" 0)) X2 K6 Q* n/ u
; Loc ra duoc ong text de xu ly4 ]+ ]! ?1 x( C, J3 X: T
(while (and (= thoat nil)
$ m$ w/ q8 b B8 n
(< dem dodai)
1 M' o4 h0 y; \( ?" `
): G1 c$ _& d" N9 p0 Y. v. X- { m/ E
(setq ten (ssname cumdt dem)
% `" A; H4 r* y; }
dem (1+ dem)
3 V e+ A1 r9 e
doituong (entget ten)
/ U) Q1 l9 @9 ?6 _; N
kieu (cdr (assoc 0 doituong)) . L' x7 Q% L4 ]/ J5 I4 h7 o1 T& {
)
$ p$ [4 l7 f) ?8 ~* J
) S2 W1 R; Z1 d- u( _
(if (or (= kieu "TEXT")' R- i) s K- p) O
(= kieu "MTEXT") 4 P6 _ G, ^. Y: r: }, d" \9 Z- P
)5 R& d' B5 B2 f9 h" H+ ]9 ]
(setq thoat T
& E% @5 X/ i- B1 u. y
textxl (cdr (assoc 1 doituong)) 4 q% |4 J8 L& `( G1 O& K
)% { D& U6 e# J, l. d2 `) I
)
6 J3 a% y s/ C* r: ~! P8 r
);4 k2 ]! r0 k O0 g
(while T
$ J/ Q4 [4 }% P
(setq toi (getpoint "\nSelect next point: " goc)
' [) S3 P9 E7 V; M7 w
vitrilech (list (- (car toi) (car goc)) (- (nth 1 toi) (nth 1 goc)))
5 v- @- P- N. \; B0 I# f1 Q( w
dem 00 c; z) R+ O8 i: {
)* x9 V* t% U3 R- ?
(while (< dem dodai); W$ _8 [0 @7 s6 f8 Y" i/ o( Z
(setq ten (ssname cumdt dem)
8 }0 t9 V2 H$ e0 v1 U* ^
dem (1+ dem)1 D; `3 H8 n* J0 C+ h. y
doituong (entget ten)
' \! {2 n' C7 z# q
kieu (cdr (assoc 0 doituong))
& ?+ e9 E+ g7 f' H! z; e G
)
6 F1 W, V$ Q3 q5 z( u
1 q: l, a% x, G' y$ H
(if (or (= kieu "TEXT")
' j! C9 H% ]: G3 u; X5 {; I
(= kieu "MTEXT") , b% `, f4 V) ~( |% V- q# {, u$ x$ c
)
% l8 n0 Y. ]$ @% f' h2 V- [
(doitext ten). h: U4 g. P+ o" Z; A* ?$ ~
(copy_dt ten)* V- q, e1 R' }3 {
3 L' y! S7 V: D% y$ i, n
);if
% {5 H; J% u0 s; [) t( z
)2 _ v6 A, F/ R$ u6 R' K
);while
; k9 x$ m; B- A, ^9 ~% Z. X8 r
(ketthuc)
# Z3 p3 T; S6 P) g: I; i
);defun
: G) V& _6 [" ?* @+ i3 L
(princ "Type \"DG\" to start")6 F+ x. O+ F7 u
;Note: bien toan cuc: textxl vitrilech
9 n. t; G4 f) _4 |+ ^% O0 ^; s; \
+ g7 Y6 g+ ?, h
;=====================================================================* Z! i, X& j0 k9 z% V% ?
;;; PLJOINFUZZ.LSP
- y( x, @" a. P7 L9 T
;;; Joins lines, arcs and polylines using a fuzz distance P9 r% c$ ~' Y& S( l+ n }
;;; If only one object is selected it tries to join to all objects that are possible- J% M7 _+ Y* B
;;; By Jimmy Bergmark% w/ r5 W) C$ W$ E1 w, D$ J5 Z
;;; Copyright (C) 2003-2004 JTB World, All Rights Reserved1 N( I8 S; h' G7 N
;;; Website: www.jtbworld.com
; B0 U! B# n: _+ b8 j* d
;;; E-mail: info@jtbworld.com+ _* d$ H! I9 f W/ \: K5 F* Y1 ~
;;; Tested on AutoCAD 2002,2004 and 2005, O( i0 i9 h. P" T6 L, x' O2 T' k8 X2 [
;;; Latest revision made 2004-11-119 [3 m/ v: v+ _1 ], c
;;; Minor code cosmetic change made 2004-11-13& m) l) H" N+ a* N p6 n9 @$ A1 A5 e
;;; Bug corrected 2004-12-238 u J& A: c6 n+ ]0 @% N' A* U6 {
/ ~5 E/ E; j# p4 u
(defun c:jf () (c:pljoinfuzz)) ; this line can be commented out if there is an existing command called jf/ C" n2 D9 r" L: w& \! g" M9 M
(defun c:pljoinfuzz (/ ss1 entLine objType oldcmdecho oldpeditaccept fuzz okObjects)4 o. O* d! q% L! {
(setq oldcmdecho (getvar "cmdecho"))0 H/ ?( N1 J5 g. w; U# \
(setq oldpeditaccept (getvar "PEDITACCEPT"))
9 O$ i7 B# O7 ?- y! U4 @
(setvar "cmdecho" 0)* f Q1 F( p0 [7 s$ I* u4 i
(setq A2k4 (>= (substr (getvar "ACADVER") 1 2) "16"))9 b% {/ H; X, x6 C1 G
(if A2k4 (setvar "PEDITACCEPT" 0))
! {. }7 a% M/ y! d) f
(setq okObjects '((0 . "LINE,ARC,POLYLINE,LWPOLYLINE")))
4 G+ X7 n; h- i, C& U
(princ "\nSelect object to join: ")
9 p9 L0 a6 H0 P6 f1 d8 c2 z
(setq ss1 (ssget okObjects)): m5 v! k$ v1 q; x: D
(setq fuzz (getdist "\nFuzz distance <0>: "))
8 W: \- t+ z% B$ T8 j R7 v; x
(if (= fuzz nil) (setq fuzz 0))# y/ ]& D* P. g) ^. X: g1 {
(if (/= ss1 nil)
0 y! ?; ^/ B9 l2 d5 i
(progn
& q5 T/ K+ A) |6 h; ^2 t% K
(setq objType (cdr (assoc 0 (entget (setq entLine (ssname ss1 0))))))& J8 |; s: ?" _% O6 a1 H9 ?
(if (= (sslength ss1) 1) (setq ss1 (ssget "X" okObjects)))
1 A) z# S/ F& w9 k
(if (member objType '("LINE" "ARC"))
6 B1 {9 u; \2 ]* T/ P1 t. {
(command "_.pedit" "_M" ss1 "" "_Y" "_J" "_J" "_B" fuzz "")0 U8 ~, n9 @; `" T3 A& b
(command "_.pedit" "_M" ss1 "" "_J" "_J" "_B" fuzz "")
3 |2 G# S/ ?, l- @* E. M7 h
)* q1 X6 x- O1 K" ~: D
)# p) U4 N& s7 G( Y7 u1 F7 f
)- m4 |# v7 \9 `9 t2 p3 {% H3 ^. F
(setvar "cmdecho" oldcmdecho)7 C# @& |" S$ c- Y/ c( }! M
(if A2k4 (setvar "PEDITACCEPT" oldpeditaccept))- v/ R; `, z w* e
(princ)
0 _' x0 o. ]+ R5 t1 G/ F
)
# Y0 x+ S* Q+ J+ H' d/ j2 l5 q4 i/ ?
7 k' Z9 o8 @6 f7 w1 F5 p7 L( r$ V
;===========================VE CAO TRINH===========================; ?" r7 d0 u& j1 x
, N# s9 n! x( |, e
(DEFUN C:Cotcao (/ CMD PT1 PT2 PT3 PT4 PT5 PT6 PT7 PT8 NPI TX DX DY TL OSM OLL8 {& V/ d: y6 G) T" @/ Z
CRST RSIZE TSIZE STR PRMT FCH NBC OLDERR)
8 q9 R- r5 g. O8 r
(SETQ OLDERR *error*/ s$ X, P- b1 F& N
*error* loisb)
; A2 Q2 ?0 j5 ^
(command "layer" "m" "dim" "c" "" """")
! v7 F- h7 `8 a8 U2 G1 I
(SETQ CMD (GETVAR "CMDECHO")), R5 ^9 h% c* m4 n! b1 X6 Z, r
(SETQ NBC (GETVAR "CLAYER"))
* b6 W& p W) e6 O2 R* u
(SETQ OSM (GETVAR "OSMODE"))
# o/ Z) g9 _6 [! `0 A
(SETVAR "CMDECHO" 0). J; k, k% K1 v. c+ o6 }
(SETQ PT1 (GETPOINT "\nDiem cao trinh:"))
; L* y8 {) m, p* I+ L
(SETQ TX (GETSTRING "\nCao trinh:"))" L/ Q# x& d* F$ R: i
(SETQ FCH (SUBSTR TX 1 1))
, T7 W* ^! @% {8 n# ? Y
(IF (= FCH "@") (SETQ TX (STRCAT "%%P" (SUBSTR TX 2 (- (STRLEN TX) 1)))))
8 C9 \& E! e6 L" s( a8 a2 K
(SETQ CRST (GETVAR "TEXTSTYLE")). g# |; N( G3 H' u- [$ @
(SETQ RSIZE (CDR (ASSOC 40 (TBLSEARCH "STYLE" CRST))))
2 H ^# s+ o" H F. L0 m" i
(SETQ TSIZE (GETVAR "TEXTSIZE"))" ~$ ]4 N& V& U/ u7 K; s
(SETQ STR (RTOS TSIZE 2))
0 M1 l% S7 b7 J$ R7 v' S
(SETQ PRMT (STRCAT "\nText height <" STR ">:")); Z) [0 o& a4 n# x9 ?
(IF (= RSIZE 0)& D1 b# ?) ?) F- z) R& M
(PROGN
8 L2 Z5 J. x( {! H. Y
(INITGET 4)- o, k5 A1 B& `/ Q8 v1 b
(SETQ TSIZE (GETREAL PRMT))
. o) I$ z. e1 D
(IF (= TSIZE NIL) (SETQ TSIZE (GETVAR "TEXTSIZE"))
- t* z. }: ~; K+ M3 L- F
(SETVAR "TEXTSIZE" TSIZE))# D/ B8 T/ }9 @3 t; r/ ]" G, @0 d
)
- n8 H3 z& C& b2 K3 m& K
)) C1 h2 k3 u' O; B
(PRINC), a3 J5 Q5 M- s! E5 j+ Y% O2 d
(SETQ TL (/ (GETVAR "TEXTSIZE") 2))" ^8 ~! q9 \* `0 _! q% e. v
(SETVAR "OSMODE" 0)
% V; F- B/ B8 l6 ]& z) c
(SETQ DX (CAAR (CDR (TEXTBOX (LIST (CONS 1 TX))))))
: q$ o1 ~) d" k. s% P, V0 p: `
(SETQ NPI (/ PI 2))% G; p" e \/ j6 n6 v
(SETQ PT4 (POLAR PT1 NPI (* 1 TL)))
" ]' `# V8 a; ^7 D4 ?; s: A
(SETQ PT2 (POLAR PT4 PI (* 2 TL)))5 B5 Z9 q) v: @8 t# \# v3 _
(SETQ PT3 (POLAR PT4 0 (* 2 TL)))
! s+ p% p$ Y) F% r& c
(SETQ PT5 (POLAR PT4 NPI (* 5 TL)))
% D: x* ?! ~5 p! V
(SETQ PT6 (POLAR PT2 NPI TL))
& ]% c/ D+ w: T. F* u0 o
(SETQ PT7 (POLAR PT6 0 (+ (* 3.7 TL) DX)))% x% q8 o: K _# s% X+ ?
(SETQ PT8 (POLAR PT6 NPI (* 1 TL)))+ a6 S, A0 O% o9 m* f- P
(SETQ PT8 (POLAR PT8 0 (* 2.5 TL)))4 g0 M" H2 D8 d; _! y; x5 d) L; i
(SETQ PT9 (POLAR PT1 pi (* 2 TL)))( W, F- j/ Z K# V
(SETQ PT10 (POLAR PT1 0 (* 2 TL)))
* r X* E+ z G2 L/ [* K+ w
(COMMAND "COLOR" "7" "")
! f* `9 m$ M, \8 E
(COMMAND "STYLE" "COTES" "Verdana" "" "" "" "" "")
) G3 K5 \0 h+ o2 s9 E! V
(IF (= RSIZE 0)(COMMAND "TEXT" PT8 TSIZE 0 tX) (COMMAND "TEXT" PT8 0 TX))# C1 ]/ O1 b. W" v
(COMMAND "COLOR" "BYLAYER" "")- n5 ?7 G8 U8 o/ I' W
(COMMAND "SOLID" PT1 PT2 PT4 "" "" "pLINE" PT1 pt3 pt2 "")
! a+ a6 Y# J& I" v1 n
(COMMAND "COLOR" "BYLAYER" "")
5 C) }3 K- _* N/ `2 i6 |
(COMMAND "pLINE" PT1 PT5 "" "pLINE" PT6 PT7 "" "pLINE" pt9 pt10"")
0 {! x$ k+ }' l% p
(SETVAR "CLAYER" "0")& I5 {8 ~( g$ ^' r- k+ g" [
(command "ddedit" pause)0 K& x$ D3 D, j8 w6 j9 m+ A
(COMMAND "COLOR" "BYLAYER" ""). H, v4 K* R" Z# Y
(SETVAR "CMDECHO" CMD)! J# Q' z1 B: U
(SETVAR "CLAYER" NBC)7 H. ^; i2 J" \
(SETVAR "OSMODE" OSM)5 d5 e ]9 a1 A8 X
(PRINC)
5 H% {0 m! {# A# M
)% h1 K. |1 r6 g& o3 m# a
: P8 F( F& V) J1 n9 `4 u
;;; =========================== VE NET CAT CHEO (GC) =============================
: Z9 Z; A( m: B! [6 p
0 M/ y8 F) ~6 ?: O( X# @& O' b# ~3 g
(Defun c:G1(/ p1 p2 p3 p4 p5 p6 p11 p12 l ang)$ ]: S7 G% J* H, ~3 |" ]1 {
(setq x (getvar "osmode"))3 F+ ] M: f3 {+ `/ j4 x
(setq p1 (getpoint "First point : ")
: C- y+ x: G$ s9 w3 l! e8 u7 D
p2 (getpoint p1 "Second point : "))
; ?$ C% D# W" N! ^0 Y
(setq l (distance p1 p2))7 ?, j7 e' I$ {7 H6 ?
(setq p11 (polar p1 (angle p2 p1) (/ l 5))7 {5 B+ G! a9 Q1 ?7 T1 c
p12 (polar p2 (angle p1 p2) (/ l 5)))6 p' K) X+ E1 d3 `3 T# `
(setq ang (angle p1 p2))
8 V# R6 _$ @6 t5 G% E$ M
(setq p3 (polar p1 ang (/ l 2.5))
2 l2 d* o: ?1 l% h, {
p4 (polar p3 (+ (/ pi 2) ang) (/ l 5)): [4 P I& j7 ^( [! [' l
p5 (polar p3 ang (/ l 5))
! M2 x" E' ]$ b
p6 (polar p5 (- ang (/ pi 2)) (/ l 5)))
" i; I* W+ q( g; s
(setvar "osmode" 0)
1 Q. Y& I. d8 x, o
(command "pline" p11 p3 p4 p6 p5 p12 "")4 T; U! Z6 x) K. d! J
(setvar "osmode" x). {3 U' X/ F! k% T% i X" g/ x
)8 e8 X8 l3 Q9 i/ n1 L. P- Q# Z
;----------------------------------------------------------------------------------" u4 o7 p0 E! s) ?
(Defun C:G2 (/ ps1 ps2 pf1 pf2 pf3 pf4 pf5 pf6
. j* B% B/ v' z
pf7 pf8 sb sh se ang old_osmode); (setq old_osmode (getvar "OSMODE"))+ b" w ?* \# ^# K' |
(setq ps1 (getpoint "\Chon diem thu nhat: "))0 i/ R; ?) Q6 \' Y9 u3 O
(setq ps2 (getpoint ps1 "\nChon diem tiep theo: "))
* Y7 f3 ~' _# P- k F$ _5 E8 s
(setq sb 50.0 sh 200.0 se 20.0)/ F3 |6 T- {# h! y
(setq ang (angle ps1 ps2))
7 E" E y/ Y' r( A' Y: ?
(setq pf1 (polar ps1 ang (- 0.0 se)))# s- B3 [: _ h; A1 `
(setq pf2 (polar ps1 ang (/ (- (distance ps1 ps2) sb) 2.0) ))& F9 P$ Y& z$ K7 z* `/ e! Z+ l1 q
(setq pf3 (polar pf2 (+ ang (/ pi 2)) (/ sh 2.0)))
, ]; _' e: Z! k1 @3 C( @* j
(setq pf5 (polar pf2 ang sb))
6 m9 N$ Q6 @' Z+ A
(setq pf4 (polar pf5 (- ang (/ pi 2)) (/ sh 2.0)))
4 }/ c0 J* e2 }
(setq pf6 (polar ps2 ang se))4 ~; G" Z; S2 t
(setvar "OSMODE" 0)
' b1 P0 m( q5 D9 o- o" d
(setvar "BLIPMODE" 0)# c& K4 c4 L* U" N3 ]
(command "PLINE" pf1 pf2 pf3 pf4 pf5 pf6 "")
; }& r6 O4 \/ |* S$ I/ \7 q8 h- ~; S
(setvar "OSMODE" 703)
8 V2 j+ e" o: ]0 j) s
(princ) )( J* t1 a' \( `# O8 ?
;----------------------------------------------------------------------------------9 g8 a3 ~6 @5 A: Y
(Defun C:G3 (/ ps1 ps2 pf1 pf2 pf3 pf4 pf5 pf6, B' a$ ]+ J9 x" Q
pf7 pf8 sb sh se ang old_osmode); (setq old_osmode (getvar "OSMODE")) {6 N" \, @ p- v% A
(setq ps1 (getpoint "\Chon diem thu nhat: "))8 a# S O) O: w: V3 ?$ M
(setq ps2 (getpoint ps1 "\nChon diem tiep theo: "))
1 U/ ^8 t, w3 g8 t
(setq sb 100.0 sh 150.0 se 20.0)
+ E( ^7 s# ?* \1 ]
(setq ang (angle ps1 ps2))
$ f U' q8 L( ?4 [6 W* Y& G e
(setq pf1 (polar ps1 ang (- 0.0 se))), P* Q- t# z/ Y1 T. L4 W7 \8 J
(setq pf2 (polar ps1 ang (/ (- (distance ps1 ps2) sb) 2.0) ))# g1 `% \. c% G, V
(setq pf3 (polar pf2 (+ ang (/ pi 2)) (/ sh 2.0)))" F# l+ m3 b1 @% f& q$ L9 K ]
(setq pf5 (polar pf2 ang sb)); q) h2 L/ Z. g) ~6 ]# i
(setq pf4 (polar pf5 (- ang (/ pi 2)) (/ sh 2.0)))
4 n, z0 [* P1 z# ^0 [% w l2 }
(setq pf6 (polar ps2 ang se))
% n3 B; `# I4 @/ ?" k. z8 q
(setvar "OSMODE" 0)
& ?9 y' i2 L4 z) f0 n) R5 _" w
(setvar "BLIPMODE" 0)4 t0 J3 Q3 @5 ~9 C# c% x
(command "PLINE" pf1 pf2 pf3 pf4 pf5 pf6 "")1 {% E" _2 P+ L8 k* x# ^1 ~: U( G
(setvar "OSMODE" 703)
: {$ M) j. O$ O2 |$ I \
(princ) )
9 F; D0 Y4 v: T; m9 p
;----------------------------------------------------------------------------------8 I. r# O, K; U
(Defun C:G4 (/ ps1 ps2 pf1 pf2 pf3 pf4 pf5 pf6
- k ]4 M; X, O: T: @
pf7 pf8 sb sh se ang old_osmode); (setq old_osmode (getvar "OSMODE"))& K, ?9 H: ^6 S j4 O: {; K
(setq ps1 (getpoint "\Chon diem thu nhat: "))4 e3 ?2 R* m6 Y! i
(setq ps2 (getpoint ps1 "\nChon diem tiep theo: "))' `0 X' |4 I5 i2 z2 o( ?1 h
(setq sb 100.0 sh 250.0 se 20.0)
3 @; ~% `- Q R4 Y) ^
(setq ang (angle ps1 ps2))
3 w* Y6 C& n& T s+ h2 `/ s
(setq pf1 (polar ps1 ang (- 0.0 se)))
/ l% h; \; B" ?, ?3 E: ?
(setq pf2 (polar ps1 ang (/ (- (distance ps1 ps2) sb) 2.0) ))1 ^' W& a) n) F5 u
(setq pf3 (polar pf2 (+ ang (/ pi 2)) (/ sh 2.0)))
, e- o, O: Q4 M, R! V/ U3 g+ D0 Z1 @
(setq pf5 (polar pf2 ang sb))7 U- @# T6 d9 s) k9 P: ]2 ?# k
(setq pf4 (polar pf5 (- ang (/ pi 2)) (/ sh 2.0)))
) y& z2 w: A" c8 a# l
(setq pf6 (polar ps2 ang se))
* Y q5 `+ l6 b: F/ U; U/ Q3 X
(setvar "OSMODE" 0)
# z F& }2 D4 N: I
(setvar "BLIPMODE" 0)
2 f' A. `0 l+ \
(command "PLINE" pf1 pf2 pf3 pf4 pf5 pf6 "")
3 P' M7 ~3 V* u* }
(setvar "OSMODE" 703)' v" L4 }" b, Z+ ~& T1 x
(princ) )
: X/ t8 k+ f) ^' x
5 A* y Q6 g) f
;==================================================================================2 d# {5 N% k6 g* X" A d! b8 U
(defun c:ang (/ ent pt1 pt2 ang)
2 `3 s$ p" t* v! F' k
(setq cmd (getvar "cmdecho"))
# c- \( s" e& t
(setvar "cmdecho" 1)
8 @, I1 m/ m) x/ Z, ?" Q" R: J& p
(prompt (strcat"\nThay doi truc toa do theo duong thang chon truoc"))! X) m9 ^1 D! M( A& m
(setq ent (entsel "\nChon duong thang:"))( l' X' l9 n' k( | A, g3 _8 T% ^
(if ent 4 V) C: K4 L u; {. V* e* A1 i
(progn% \4 V7 d4 q$ @4 C8 Z, P
(setq ent (entget (car ent)))' ^2 r9 l* q* `" H0 M* I
(setq pt1 (cdr (assoc 10 ent)))
, |: N: `5 M* |, h) O; r8 Q$ L9 j
(setq pt2 (cdr (assoc 11 ent)))" ~1 m" h8 d0 P( U& M
(setq ang (angle pt1 pt2))7 B' C" ~4 Z2 ]/ }4 S
(setq ang (/ (* ang 180.0) pi))
& ?9 L7 @7 d" l. S6 [. x
(setvar "cmdecho" 0)$ f5 u6 ~% A8 @. _" w3 [/ ]# W# J
(command "setvar" "snapang" ang)! [# x" e& w& P1 n
(princ "\nGoc cua truc toa do moi : ")
9 U$ Z: A% X- Q+ X
(princ ang)
1 c: K1 D: v; M5 b4 ^+ _
)- y' l2 D' W2 |! G$ V
)
3 q. L% h5 w8 B! M
(setvar "cmdecho" cmd)
9 G8 x* E% h1 ^
(princ): v4 S: b$ z% |. O& M* I. M
)7 g! F7 A- h/ O+ r! E5 |6 p
;==================================================================================
5 T8 z) _; G# J4 V( C
;============================== KY HIEU DOI XUNG ==============================7 P7 U$ f, j3 ~/ H; Z+ W. ? U
;==================================================================================
$ ?7 F+ i$ q" o2 C( W! h
. q J3 r& f5 e2 ^9 Y$ |
(DEFUN C:DX (/ CMD OSM OLDERR PT1 PT2 PT3 PT4 PT5 PT6 PT7 PT8 PT9; z/ c" R4 P* ?; Y) Y$ E
SZ G45 G135 G90 G180 SS loi)
3 S$ p( B" L" n; d5 ]4 m
(defun loi (s)9 m9 m4 e: u; j. F6 K$ }5 ]
(if (= s "Function cancelled")
9 z$ ]2 K& k+ L+ G
(princ)
0 z) X, J7 W7 I8 [ S1 W
(princ (strcat "Error:" s))
* {2 }4 k* q$ \1 \, |6 Z
): V/ T5 m8 U- X' t
(SETVAR "CMDECHO" CMD)
) f/ h+ |: C/ H, y! Y4 i9 \) F6 N
(SETVAR "OSMODE" OSM)0 \8 c/ k# R1 _ [/ Y; x
(SETQ *error* OLDERR)
# z1 Q$ L# Y1 i& y- k
(PRINC)
4 n6 Q- Y6 S' j$ Z
)1 p3 @; _' V' n& F- R
(SETQ CMD (GETVAR "CMDECHO"))
; r+ v& n( k9 q. p! F5 N6 S
(SETQ OSM (GETVAR "OSMODE")) n: G4 K' |4 X0 J2 i" l$ q
(SETVAR "CMDECHO" 0)
8 I; Y8 k; U. D! D
(SETQ OLDERR *error* r9 l( V) p7 P$ `2 [9 p8 U6 R
*error* loi)3 O( p9 \1 t- `5 o6 o
(SETQ SZ (GETREAL "Size <1>:"))
8 b+ K5 Q7 t2 j! ~
(IF (= SZ nil) (SETQ SZ 100))
4 A* T, ]2 R2 i! T. p% d. ^+ G
(SETQ G45 (/ PI 4))7 W @* ~$ i7 b% g4 x
(SETQ G135 (* 3 (/ PI 4)))
7 a- b8 e( q% H. t; p
(SETQ G90 (- G45 (/ PI 2)))6 H" {: Z$ o! F, c7 M0 e
(SETQ G180 (+ G135 (/ PI 2)))4 S- {, D% }+ p |
(SETQ PT1 (GETPOINT "\nDiem doi xung:"))2 A1 {# b) m! b: x$ a4 I
(SETVAR "OSMODE" 0)" ]2 j4 w/ n0 b0 W" G- p
(SETQ PT2 (POLAR PT1 G45 (* 2 SZ)))" h4 u1 f7 @# B4 Q" n; h# h
(SETQ PT3 (POLAR PT2 G90 (* 2 SZ)))$ i. O' Q: z U8 \. v* I5 s
(SETQ PT4 (POLAR PT1 G45 (* 1 SZ)))
' d2 s5 B: E5 U9 f) ~! L: g7 `2 u
(SETQ PT5 (POLAR PT1 G135 (* 2 SZ)))
' w( W5 c( v: E! G/ a
(SETQ PT6 (POLAR PT5 G180 (* 2 SZ)))) S( K: h# H) _4 _8 k( V- |+ N
(SETQ PT7 (POLAR PT1 G135 (* 1 SZ)))
: ?& |, p$ y8 g) w8 w' Q [
(SETQ PT8 (POLAR PT1 G45 (* -0.7 SZ)))
) Z7 s$ x8 O0 E9 |: Z* y5 i
(SETQ PT9 (POLAR PT1 G135 (* -0.7 SZ))) V8 H0 u' u9 r, s) g
(PRINC "\nGoc quay:")
" B2 D# I Q: Y* f# g* ^: F
(SETQ SS (SSADD))
{. d# L) G% o4 a$ u
(command "layer" "m" "Dim" "c" "" """")/ R, ^' `3 _1 W' m/ p |1 ]
(COMMAND "COLOR" "1" "")3 v7 F8 ]2 W; e _6 K# M; j2 c5 `
(COMMAND "LINE" PT8 PT2 "")
0 I# N( g: l: T. `. K( J' w( S+ n
(SETQ SS (SSADD (ENTLAST) SS)), o s' X% ?- a: a& ^
(COMMAND "LINE" PT9 PT5 "")
0 |& j% E: m$ \0 j" `/ i9 ~* _
(SETQ SS (SSADD (ENTLAST) SS))& }. ]7 L& L0 z6 q! W+ R
(COMMAND "COLOR" "1" "")
6 E/ b7 o9 H+ O) g8 p
(COMMAND "SOLID" PT2 PT3 PT4 "" "")4 V0 U* b7 k/ ~: D4 R! \& b n
(SETQ SS (SSADD (ENTLAST) SS))+ @" p' G. H/ L7 ^
(COMMAND "SOLID" PT5 PT6 PT7 "" "")
2 @; G7 t& `1 {
(SETQ SS (SSADD (ENTLAST) SS))
7 j4 W T( e" f( G" ]3 A, A& o: u
(COMMAND "ROTATE" SS "" PT1 PAUSE)3 q* B2 N, h% X: _0 M
(COMMAND "COLOR" "BYLAYER" "")! U; ]/ z; G# @& @
(SETVAR "CMDECHO" CMD)2 E& q; k5 i \' D! R- M4 F
(SETVAR "OSMODE" OSM)
" q6 e" s5 c% x4 y+ {6 s
(SETQ *error* OLDERR)6 w* ^) V" L0 T3 q/ N! u8 Y- I. U) K
(PRINC)
5 u% ~( y) z# Y& |) H; x" @/ Z
)3 m7 G# G! a5 X0 N
, V9 ^+ E9 ~8 v( \* F
;==================================================================================
5 U/ ^- e* v: p+ o1 r* A3 N! j
;================================= KY HIEU TRUC ===============================
- V$ ?8 U8 ]5 j
;==================================================================================
}, t7 d2 O* V4 b# h2 W
, b% R6 M) [% t3 n8 c; m
(defun C:vetruc ()
% G3 O0 z- {3 \
(setq bk (getvar "USERR3"))
6 _: H m- i; Q" b
(if (= bk 0)
# s- Y* X/ a4 D @
(progn
; p2 r6 J+ a7 F$ Z! l5 B0 s- s
(setq cont "1")9 h9 O. w0 J- o2 s( E
(setvar "USERR3" 1)
5 v5 R1 U1 Y4 Q' Y+ [4 U" _
)
* v2 V" U9 m0 o; _
(setq cont (rtos bk)) q6 Q4 R2 R6 e6 r+ @! Q# T
)
- G; j/ |( U# _( a) R+ i/ h
(setq pt1 (getpoint "\n Nhap diem dat:"))
6 e+ T& _) r" ?( Q7 w
(command "layer" "m" "Dim" "c" "" """")
9 s) l" v/ @: r1 n5 }8 p3 E
(command "osnap" "")4 i4 I' K) Z/ V" h# J, q5 {9 j) C
(COMMAND "COLOR" "7" "")
( C E* ?, s, N$ B. w0 T5 K% S
(command "circle" pt1 150 "")" j8 H/ L. ^5 q8 Y( |. U
(setq pt2 (polar pt1 0 150))( ]" z& o' S" @$ Z4 @
(setq pt3 (polar pt1 (/ pi 1) 150))
, A' z7 p- i. i: @$ S0 k( t
(setq pt4 (polar pt1 0 300))
' J1 E! ?* r: k% d
(setq pt5 (polar pt1 (/ pi 1) 300))- G: G& N! J9 w5 M0 j
(setq pt6 (polar pt1 (- 0 (/ pi 2)) 150))
4 B% k' Q5 q- Z3 F% E
(setq pt7 (polar pt1 (- 0 (/ pi 2)) 300))6 u, U S3 C! h4 Q5 Q
(setq pt8 (polar pt1 (/ pi 2) 150)). k) D. H/ t7 B
(setq pt9 (polar pt1 (/ pi 2) 300))9 ~/ u1 p" _# U& r5 O
(setq pt10 (polar pt1 0 150))1 {5 Q; ]( V' _) t" O. u
(setq pt11 (polar pt1 (/ pi 4) 150))
8 q3 m% K+ I: c" I) B
(COMMAND "COLOR" "BYLAYER" "")
( Y) g" u+ I" Z3 f4 \. ?# C$ o: R/ x
(command "line" pt2 pt4 "")
/ u5 x' X% }. L" `4 y4 |8 p3 J
(command "line" pt6 pt7 "")
& q9 F+ J: ~1 B! c$ n; J8 i
(command "line" pt3 pt5 "")9 v |0 C/ \7 V8 J4 L7 U* j
(command "line" pt8 pt9 "")( Z- f# u9 ]1 F9 ?* W/ e
(setq dk (strcat "\n Size:<"cont">"))
8 C9 C) }, D* e5 z3 q& r8 b
(setq bk (getreal dk))
& Y6 x. S+ F) J- S! R4 i
(if (= bk nil)3 B& w* N* W" V+ a5 k
(progn
7 X4 K( f, \ b0 W
(setq bk (getvar "USERR3"))% E' i3 {$ n: |7 x. l: X
)
) q( X( a1 j7 D7 f- v' r9 H0 s x8 C
(setvar "USERR3" bk)
* ^9 F$ {( I/ v& w1 ?
)
$ x4 x$ H# ~8 N1 H. C& V _
(command "scale" pt4 pt5 pt7 pt9 pt11"" pt1 bk"")
/ R3 J& J! C2 O( Q
(COMMAND "COLOR" "7" "")
. v {# O5 f' e
(COMMAND "STYLE" "Truc" "impact" "" "" "" "" "")
S. p6 `: E& I2 y# y- y
(command "text" "j" "mc" pt1 (* 150 bk) pt10 "A" "") 4 u$ D& z* A/ W) V8 ?' Q
(COMMAND "COLOR" "BYLAYER" "")* F4 Z: Q+ {+ G/ p* ^
)0 b7 W1 B }( Q: H( t) R3 m
: v. f' M2 c: {7 s7 r
;=====================================================================* V9 h; G) v' W6 R
;CA - Reverses the case of text. (Upper to Lower and Lower to Upper.)8 A$ u. ]! G5 R" r1 z# }8 I
;5 N" {- l( h2 p+ x/ ?' O
;Jeffery P Sanders7 d2 h* Y' p/ V' q! r
;
* C* K% q0 C ~$ G. V x
(defun C:CA(/ en enlist tx newtx cnt tp asc note)
6 I3 S: Q9 W0 t" ^! o! o
(setvar "cmdecho" 0)5 R0 P0 s. G. [" E; _# K1 e
(if(setq en(entsel))# E4 a1 E* {. X+ ]# Z% P
(progn
1 F; { d! o* j, C. H! \- t
(setq enlist(entget(car en)))+ O' j0 {6 A9 I+ o* H8 E3 e
(if(= "TEXT"(cdr(assoc 0 enlist)))5 w, y& d. `% g* v; y9 C7 |
(progn7 E! \7 |7 S" I3 E- E/ H: G
(setq tx(cdr(assoc 1 enlist))8 N' |- J1 }* w( x. Z" R
newtx "" cnt(strlen tx); w2 c' J0 J. ?/ a# l0 Z% I
note "\n...CASE Reversed. \n "
$ S6 C$ L; E1 @/ l u, g! J
)
' F5 ` ?# \8 j& k! U0 X* f) o
(while (> cnt 0)
, r- ]! H' I3 j7 P7 h
(setq tp(substr tx cnt 1))1 U" B! ?& N, q! c: J( x
(setq asc(ascii tp))
" Y# B' Q% K( n, D
(if (> asc 96)7 c! E4 t9 K" g8 V: w5 M7 i
(setq tp(strcase tp))
, Z1 h3 L% \! d# \3 l l; k
(setq tp(strcase tp T))/ e5 T: Z* n' c6 ?6 [6 S0 t1 M6 b' N
)
9 P; l1 E0 p$ ~) r7 m N' X
(setq newtx(strcat tp newtx))5 K1 N t* U2 L- K
(setq cnt(- cnt 1))/ E" G6 e* D r* L+ n/ z
)3 L) s7 y7 A- b+ M, n+ P3 B9 a" D9 E( m
(setq enlist(subst(cons 1 newtx)(assoc 1 enlist)enlist))
1 S' P! v/ x3 r1 R- k
(entmod enlist)
y7 W; e' F# Z
): @# j0 c! w4 I& s
(setq note "\n....Text Only Please. \n ")" u6 b J% z1 P9 ]3 J3 J
)0 M) ^% k- y6 a0 Q- Y9 Z. L
)
+ A1 L- z+ }7 ^4 X2 k
(setq note "\n....Nothing Selected. \n ")
! Z9 a; h9 P$ @( h. R9 E+ D
)' r% |" W4 s7 Y: M* I
(setvar "cmdecho" 1): }4 v5 @1 m0 Y3 @, z* D
(princ note)
, n$ V- L) J# \$ E& t, C- j v+ V" x
(princ)
) t: K) @7 K! q! A
)
; b3 U# w" Z6 \$ W6 q% K
; Y( a, S) u3 ?& c: }, R0 h
;=====================================================================, G! o& B( U+ K* }$ |
;==================== NEW TEXT STYLE UPDATE ==========================! Z, y. @0 }+ T5 I3 |3 ~! Q
;=====================================================================' s& k) A$ c) F
- R! i5 V- @7 J1 F! r$ B
(defun c:nS (/ tdt ssdt sodt index)5 Y, K# u9 b; z, p9 J
(defun ObjName (ssdt /)
+ C: Q2 |3 D9 u8 s- ^4 Y
(cdr (assoc '0 (entget ssdt)))5 d* l6 o4 D+ n9 `. K
)
+ Z2 [* L/ U8 O/ X
(defun MoPL (ssdt /)
}! X1 i' j/ g. u) B
(= (cdr (assoc '70 (entget ssdt))) 0)& T) `2 `) m" O5 y& o
)
) g" \! Y+ g0 S- Y0 N2 ^
(defun NoiPL (ssdt /)
( N+ R- n# f1 G7 o
(if (MoPL ssdt); |7 W! W& d( k
(command ".PEDIT" ssdt "J" "All" "" "X"). k4 j: T+ [6 [9 S2 Z" }% n
)( O+ c) T1 N( s. |6 S1 O
)
6 E6 ~ d* X4 X/ u: K" _
(defun NoiLC (ssdt /)
( x4 P. G$ X: ^. \2 O- k
(command ".PEDIT" ssdt "Y" "J" "All" "" "X")
3 j6 E7 |& v& M- y
)
* `, E& T3 ?. R2 i8 @; f ^. L
(setq
+ x; X2 C* I3 ]# k) z. O% J
tdt (ssget)
6 Z- a9 W0 d: m
sodt (sslength tdt)& A {9 { d; ]- \& v
index 0) r& Q2 x1 }6 h+ r5 y5 d
)
& f, M+ d1 S& B0 v
(repeat sodt! y& m% e: z0 g+ M! T O: @
(setq" E$ C$ ^ F. W/ L- i; ?
ssdt (ssname tdt index)
4 X; H$ n9 L5 n0 L& b% U& i3 P
index (1+ index)
5 k8 d) V p/ ~: \( ]
)
/ ? S' L7 r N/ u' k0 x" p
(if (or (= (Objname ssdt) "LWPOLYLINE")
0 D- w; d6 z2 c8 a4 Z* q1 c
(= (Objname ssdt) "POLYLINE")
% j$ n) h9 t; x1 G. [# h8 |8 s! c
): e( n# ]& R+ }- l
(NoiPL ssdt)5 M2 u" P1 D. Z7 K4 K6 a" @* Y- q7 P
)/ l& y, |5 ^1 @9 U
(if (or (= (Objname ssdt) "LINE") (= (Objname ssdt) "ARC"))' u i* e% x- Y) C5 ^ l
(NoiLC ssdt)2 o2 {+ P* M4 J' Y
)* Y8 k$ }& G2 ? v
)% m2 d+ {1 I: J* N1 @# F
(princ)7 h6 c v: E5 W7 o$ X
)& D9 p0 |9 ^6 s9 U. o! K
u& g" z" j: }' H! o0 c
;=====================================================================
& {4 ` F; `- e1 S+ o$ a7 o8 `
;;; AREAM.LSP
. T4 l. i" U& N5 ?3 D( ~
;;; Function: Calculates the total area of selected objects
, W0 f1 V$ \* I! o& `% ^9 p
;;; By Jimmy Bergmark7 C2 Z8 b) \8 ?2 }
;;; Copyright (C) 1997-2006 JTB World, All Rights Reserved9 A4 B, x6 G9 K' \; n5 K
;;; Tested on AutoCAD 2000
f; Q4 _6 W( }) ?
6 B' p1 c6 T6 b r/ j
(defun c:ea (/ olderr oldcmdecho errexit undox restore ss1 nr en tot_area)
. h) a; ^" N D/ j& F
(defun errexit (s)
6 Q4 B# w3 l6 E H; ~9 |& f/ P4 H. h
(restore)
5 f$ G. s( j0 _0 @+ T8 b5 V
)6 C7 n/ X! M2 ]" x" |. s
3 o2 l: h2 o) V
(defun undox ()7 o. Z' G' y, _
(command "._undo" "_E")
/ k- i% Q0 P" m& y
(setvar "cmdecho" oldcmdecho)
; P: b. z( ]9 f+ G# y
(setq *error* olderr)
4 L$ S( M/ x4 }
(princ)
y) [4 |4 d" k" b& R
)
7 o9 e( D. s& R# j3 F1 J5 b
0 e6 j' w |- i5 ^2 Q- v
(setq olderr *error*
% V9 _" @$ B& K0 ?2 W. }1 \9 U
restore undox
# }4 I7 o* l, I* q
*error* errexit
% H# h) _5 B. D z
)3 v& I; i9 y% l! E8 @% E* C" n
(setq oldcmdecho (getvar "cmdecho"))0 k9 D6 W) u% i2 }' E, M
(setvar "cmdecho" 0)1 w- F! O# X1 e+ `4 W; o
(command "._UNDO" "_BE"), _( V6 N( T. T$ |" [, O
(if (setq ss1 (ssget '((-4 . "<OR")
) R8 L( V @9 K, X& X! X
(0 . "POLYLINE")
9 I: N1 }& E& b8 J X" X: e- ?
(0 . "LWPOLYLINE")
: k, d; R7 n4 F1 h8 A' A6 U
(0 . "CIRCLE")
. ^! B; ^: w. C7 }& W% E- D/ n) V
(0 . "ELLIPSE")
0 y$ y; ~4 b v F0 I1 S
(0 . "SPLINE")+ R( e- K7 `8 K" B& n+ x
(0 . "REGION")
3 S8 ]4 p: l8 `; @, Q5 [( \& n, I }
(-4 . "OR>")
. k) M7 T5 U4 z" v# j. W ~
)
d8 E: y+ ?# p; {$ J s
). J8 C+ A/ [; s$ P2 R+ J
)8 t; q7 n2 ^9 L, f( m8 B' h/ K! c
(progn
) v J' j E% w
(setq nr 0)( t. W; [: K+ k: z u( p/ h
(setq tot_area 0.0) P# F1 n) w4 n/ _5 v' i. \- n
(setq en (ssname ss1 nr))
2 Y( E" }# j9 x3 a% l4 }
(while en( n8 C1 s* V& p" S* F
(command "._area" "_O" en)7 g2 @$ j P7 B5 g+ K: K
(setq tot_area (+ tot_area (getvar "area"))) i+ l. C% H7 T9 D$ ?
(setq nr (1+ nr))1 j+ W4 I- g, k! }7 O& s' m& d
(setq en (ssname ss1 nr))3 N2 c. S- f. I; i$ ~4 c9 H2 N" H
)
9 y4 s% G& o% X, w* \
(princ "\nTotal Area = ")
4 \% U+ q3 B# [4 G
(princ tot_area)
& s# k' X3 ]5 r7 @8 t& S6 _/ c
)3 \% q1 G& }& i
)/ S8 V6 ?: u- x' p+ U
(restore)( P! D, X- f% R
)$ Z8 |/ ^ |' ^% o
# ?8 Z8 S% o) L; m
;=====================================================================
3 O: C8 z0 s5 ^0 J2 S
;;; By Jimmy Bergmark
;;; Copyright (C) 2008 JTB World, All Rights Reserved4 t3 t5 k( v" a8 V
;;;; R6 j+ F7 w7 o% w2 ^* H
;;; Created: 2008-03-31/ \2 H, N, p% s/ ^
;;;" F& o2 T' S X2 p" s
;;; Convert Attribute definitions to mtext% Q' w+ J+ U7 o7 d/ H% m
;;;8 N- @9 ]7 k! D2 |3 H, L% K$ _ [
) P6 `* _% D# W
(defun c:ATB (/ eset1 blkcnt en enlist tag1 ht pnt vl space)6 ]5 |! n8 j' g3 E; ~* q
(setq eset1 (ssget (list (cons 0 "ATTDEF")))/ O8 \% N1 @$ x* S. r! o. \
blkcnt 0
3 N3 m1 t7 @& J* Q- r- M$ @0 A
)
* ?* M# X) Q) q& _8 J. z
) v8 q: r# O/ `( \
(if eset1% Y. |% r4 ^( a0 v# P5 T( Q" Z3 X
(while (<= blkcnt (- (sslength eset1) 1))3 E& U3 G* D/ w$ b2 t; L M
(setq en (ssname eset1 blkcnt)
- d. }7 B" @! Y0 L4 P
enlist (entget en)
6 H; ?3 i, V x
ht (cdr (assoc 40 enlist))- x" T% [: h6 m. s( y" n
pnt (assoc 10 enlist)! i0 O i* w, t. ~( S5 w, H _* Y! Z/ g
pnt (subst (+ ht (caddr pnt)) (caddr pnt) pnt)
& N" B- g5 k' M1 l$ Z3 {2 y0 m
space (cdr (assoc 67 enlist))
1 ?+ C) Q6 p s% L+ W. s7 ?
)
2 c4 i& ]6 q, b8 X
(setq vl (list/ u, P A3 V; v0 z0 Q
(cons 0 "MTEXT")
1 v _1 z* S4 s" d* o2 T
(cons 100 "AcDbEntity")3 I; T* W/ F1 t k
(cons 100 "AcDbMText") \# F0 |' C3 Z s3 R" H/ N( V, p- \
(assoc 7 enlist)
+ V. I0 K G- \! O, S0 K- n' p
(assoc 8 enlist)
) d l4 \+ X3 r8 R' t; P. J
pnt
; B: C9 u9 Z! ~ W) ]
(assoc 40 enlist)
; F3 G4 c1 S6 g! S3 J
(cond ((assoc 62 enlist))" O9 Y d. G! h& \9 O
((cons 62 256))
/ C" N1 `% x. i( @( v) {
)
7 p. O/ V u* s) O+ g) x5 s j- Z
(cons 1 (cdr (assoc 2 enlist)))$ @7 M% L5 E" m& ~
(if (= space nil)5 S& B- ?( h {) B
(cons 67 0)* I) {1 c4 A0 t* I
(cons 67 space)
7 D. c" x" P9 ~( O8 n7 E
)! l7 B0 j) Y3 i! @; r
) E* ^* A* e; u; l) b& Q- ^
)
6 b- a( G- K" O/ J, v
(entdel en)
7 b. U% ~0 L' j" o
(entmake vl)% n% _% o" P& B z- }7 P0 [7 o
(setq blkcnt (1+ blkcnt))
% S2 p2 D3 x( R. d" L# S
)
5 R9 E1 T2 i% A# J$ X
)
. R6 \9 T, | L% [- d
)
$ `7 m% u* }; }$ A/ [+ N
% u4 l. t, F8 j0 m
;=====================================================================6 Z% }+ e: Z: ]( b
, ~) s) \5 v$ p. p) O2 _
(defun c:xxx ( / cumdt dodai thoat dem ten doituong textxl dem goc toi)
! [0 }; ]8 _) A/ y( c
; Khoi dau cua chuong trinh8 f2 ?! K8 t6 n" y
(princ "\nCopy Inteligent...\n")3 e$ w7 p- D9 M" G' E! o+ q
(setq luuecho (getvar "cmdecho")
3 S# z# T6 x: t( G3 J/ R" g" v
luu *error*
0 A/ @7 I3 |7 q# e9 l
*error* ketthuc
3 t% P4 |* j+ c5 c
cumdt (ssget)
, J2 S2 K3 N6 J1 r _% e2 \
dodai (sslength cumdt)# z& M7 j- k' _& v4 m: [" m
goc (getpoint "\nSelect base point:")
9 {) X# p8 f2 ?
thoat nil \) O- H$ L/ e' R5 H
dem 0! X, e4 {: z: J1 E
textxl nil% @! d) R1 O; R1 z5 V2 y& e
);
6 @8 n7 I# O9 Q4 B6 w+ G0 r8 l' h
(setvar "cmdecho" 0)
# Y7 I- ~8 m1 U d
; Loc ra duoc ong text de xu ly
6 O- {7 R3 C! U0 g* i! {' o- m
(while (and (= thoat nil)
! `9 d( _- Z% @5 i
(< dem dodai)
. L4 j" O; g6 C7 v0 }& B4 [5 C
)
8 N8 u0 F6 W1 E* b( V/ r. c) G
(setq ten (ssname cumdt dem)7 T( d) V7 A% v8 v# _, d
dem (1+ dem)* r" k0 u5 s1 A7 A. |
doituong (entget ten)
5 M- }2 \( c5 p# e1 ]" e$ A
kieu (cdr (assoc 0 doituong)) ( v/ I: e( ]! K) c6 b1 Z, [
)+ y7 [9 n3 `7 K3 b5 p" _
- j. D1 D6 b! u& X* t
(if (or (= kieu "TEXT")
! q5 P- `5 H, T; H3 j& R( U
(= kieu "MTEXT")
i* F) g9 W3 P
)
1 Y9 w- F% S# I; z6 G1 {
(setq thoat T
0 a& p Z! d1 m6 w
textxl (cdr (assoc 1 doituong))
4 h, p& W* A# e: T5 O" t* Y6 A
); ?" Q: E" D7 I7 o2 Z+ e7 Y
), ]) W" o8 }+ q+ V' `/ }3 F! T: w
);
( S3 {+ h+ Y' K+ ^$ e
(while T
4 v& B2 J% `" B
(setq toi (getpoint "\nSelect next point: " goc). [2 T/ ^2 K" }- B
vitrilech (list (- (car toi) (car goc)) (- (nth 1 toi) (nth 1 goc)))
+ f: N) N a% Y+ E
dem 0
( Y. i% H/ R, q( l" N& k
)9 v8 B& k; M+ N0 a, }
(while (< dem dodai)
. a' V0 |& w2 u7 ?
(setq ten (ssname cumdt dem)! l! J! e4 e' A& S7 \; _/ `
dem (1+ dem)
) o' r: K; A7 u# f/ v, \* m* d
doituong (entget ten)
. }1 F, J) F: d \5 w- r0 T1 d
kieu (cdr (assoc 0 doituong))
. x" Q8 z. p* C' @, ?3 ?" S( B5 W
)
0 S; o% r ]9 o8 T! o3 j
3 N+ X1 m) }! _" J% _
(if (or (= kieu "TEXT")% Z" h" {: \' S `8 Q1 W) c
(= kieu "MTEXT") + z9 g8 \) ]/ j8 m" D$ r" V
)9 p# L6 t+ U+ `' I
(doitext ten)
$ u; Q2 l: O) x& T; |- G9 y
(copy_dt ten)
I2 w6 `; v, Q3 s2 y6 }, }+ |
+ I. @7 y' z6 Z7 C
);if
, h0 t; _" f a
)/ t9 N5 v6 K( {/ d
);while4 m" _' Z' F; m" w# f# ^
(ketthuc), q" X7 N; q' n0 n( J
);defun
2 T8 B/ ~. a$ I/ l* y# U( A
(princ)8 @9 T W% i1 |
. D, H' t6 a& t- @
;=====================================================================9 ~" O, e n& |3 [+ E2 ^
;;; By Jimmy Bergmark4 e5 ? l3 U) P% t* Z8 r4 q' F# O
;;; Copyright (C) 2008 JTB World, All Rights Reserved/ l4 z" C+ m9 h4 M
;;;8 C# {# X+ V/ p8 d4 `; S# @
;;; Created: 2008-03-313 d6 X; T" s, _9 P' k
;;;
. w; A; j& M4 N' ~+ [5 l3 t
;;; Convert Attribute definitions to text2 r; Z% j4 F- w
;;;
) p5 _1 M T( \7 g3 M. F$ M
# E7 ?4 m; m9 u& A
(defun c:ATT (/ eset1 blkcnt en enlist vl space). t# j8 A, K: U. \
(setq eset1 (ssget (list (cons 0 "ATTDEF")))4 q% v+ } g: Z7 C/ j! i
blkcnt 0
Q6 `* }4 r7 l0 Z9 s2 T
)% Y: i: V g! x' w% u7 N
0 ^! r0 t2 ~# E% q2 Z+ _
(if eset1$ |" x7 @7 Y' P% j7 W# f
(while (<= blkcnt (- (sslength eset1) 1))5 M1 @; R+ M1 u
(setq en (ssname eset1 blkcnt), s6 U; f0 M% S+ R& W/ O" h
enlist (entget en)
' W7 Y4 B5 k' ^
space (cdr (assoc 67 enlist))8 z7 U. |9 R; a+ n a
)2 R1 Y% Y9 |$ G. i3 e0 B* E" ]
(setq vl (list$ a( l. W; r2 G1 k8 j
(cons 0 "TEXT")/ _: ?) s5 d8 }/ X5 [ [0 f* R
(cons 100 "AcDbEntity")
9 {8 D% N( Q4 e/ F+ \
(cons 100 "AcDbText")
1 t0 z6 M) p: @$ G
(assoc 7 enlist)
. N1 ?# \, a1 ?& n8 C
(assoc 8 enlist)# O; u1 q- W: F. D. ?( H
(assoc 10 enlist)
+ P+ e7 C2 V, p% Y8 Z
(assoc 40 enlist)6 S5 f/ P& K3 Q0 N( X) @9 ?
(cond ((assoc 62 enlist))2 ^+ a$ A8 z9 s8 e! i
((cons 62 256))+ o5 X. o$ o* Y8 t9 M) Y* D2 J
)0 b/ z- J% U; p7 l/ J* v [) c% }
(cons 1 (cdr (assoc 2 enlist)))7 Q2 v: R1 R4 M; N; x" q
(if (= space nil)+ W& H/ }0 `* T- b+ s! e) M0 @
(cons 67 0)# g! a; T3 K2 x. f$ o, U7 q
(cons 67 space)
6 [6 V* F5 X) q- H7 ~
)
" r7 D% J. t, Q$ ^2 Y
)
) u5 H! c$ U) ^$ h$ G
)
( B) v! x0 i( S' t
(entdel en)
7 H0 {; [* I2 Y; g
(entmake vl)
" h! P5 Z# O. r% v
(setq blkcnt (1+ blkcnt))
) h- A7 G3 w( y2 E# J: N- X6 b
)0 _: y# Q( J+ a/ N8 _6 i
)
/ B& w j2 }, G Q* i2 Z
)
4 W) R* R2 V/ t" T
;=====================================================================) V1 I+ I" s) `% J: Q' d- f
;============================ Doi Truc ===============================
2 v6 F1 y* }$ v
;=====================================================================* T$ m& b8 t, W& y! Y$ \- d
% T) P6 g; Y9 q# o. }/ j0 m* s! j
;=====================================================================
$ U! |: y, Z% X' K
;=============== FUNCTIONS GA 1+3+5+7+9+11+13+15+17+19 ===============
: F; N/ X1 T, G. \) s3 L* J0 P
;=====================================================================
) q* u8 K9 i# S
(defun c:ga1 ()" F2 Z. g( o5 g x: b4 ]2 U
(setq a (getpoint "\nChon diem: "))
0 g* O0 G& l5 D$ [3 R6 R
(setq b (getpoint a"\nChon diem: "))' [1 z/ a! T3 R* ]
(setq c (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2)))
; f" L% Z2 p* H& E& K, S
(command ".circle" c a)
0 u/ n; x" Q# F% e
(command ".line" a c "")+ O) B) p9 l- g+ P' S* ~0 F3 _
(command ".array" "last" "" "p" c "1" "" ""); O7 e2 P+ _$ h, H" y
(princ))% X, f; U9 h; [4 I( x, A: T9 a
' S' D: E; P0 \, e9 u
(defun c:ga3 ()
* i# P; `! [ d9 T
(setq a (getpoint "\nChon diem: "))
6 o* p9 @; A- _
(setq b (getpoint a"\nChon diem: "))( z) E4 ]) b4 Q" [1 x+ x
(setq c (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2)))
, Y9 O/ F5 E5 t: F. `. R5 Q2 w! }9 m* F
(command ".circle" c a). o$ o! f* D1 v9 L
(command ".line" a c "")) @! P+ L- l% L7 ?$ A
(command ".array" "last" "" "p" c "3" "" "")- {* c. N- j3 a# h# ]% \- O( B
(princ))2 P8 r5 a& `0 ~: q2 f4 C' W
' i) a( z& G+ g: o
(defun c:ga5 ()0 ?( G4 K, p3 ^9 G) [2 f& @
(setq a (getpoint "\nChon diem: "))+ S5 {/ g( R% g" X' n2 ?( R
(setq b (getpoint a"\nChon diem: "))
2 r- e) v8 ~" i9 l4 {% d7 E: I
(setq c (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2)))
& } \+ W% J9 d. b8 ^
(command ".circle" c a)
' G$ y9 s. u+ o' Q1 M1 q" S" b
(command ".line" a c "")$ S9 x4 K7 A/ b& ] ], g, j3 D
(command ".array" "last" "" "p" c "5" "" "")
4 E1 q+ T% E4 c$ ` E, F1 R
(princ))0 u3 ?3 E3 i( |- w( z0 T4 B
' a/ n1 E2 N" t# E
(defun c:ga7 ()
5 R3 g/ v- X2 E" }/ N" c+ O9 C# H/ o3 G
(setq a (getpoint "\nChon diem: "))
3 F2 ?$ k/ S2 s* z
(setq b (getpoint a"\nChon diem: "))! h4 V$ P/ Y# G7 |2 f5 {
(setq c (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2)))
" M( f2 h) l6 T# T L
(command ".circle" c a)2 z# @% r1 A# u* y% J+ G/ R
(command ".line" a c "")" h0 r% i# ~+ c6 r5 B$ [
(command ".array" "last" "" "p" c "7" "" "")
! G5 z9 b C9 l& h" c
(princ))# V# b1 W/ _% m1 B
3 f4 _! I* \. W. @5 g# I& {
(defun c:ga9 ()
5 J% h8 k9 \7 j j j1 T8 z
(setq a (getpoint "\nChon diem: "))$ D* u4 L, }7 @. K( b
(setq b (getpoint a"\nChon diem: "))8 a6 h* w5 b2 s5 ?7 g/ y
(setq c (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2))) R; ~9 U3 F0 K3 r7 w
(command ".circle" c a)5 ^3 e {* W* n; d
(command ".line" a c ""); O; l$ V8 \% w }* F5 _
(command ".array" "last" "" "p" c "9" "" "")
5 V- a. E7 h, I: i6 M) n: D7 {# h
(princ))
& C9 b: n) G l6 j, [2 y
! j. a. q) j! D4 K' \' e. {
(defun c:ga11 ()( E9 {& n5 p2 E% A# v- b" O) D
(setq a (getpoint "\nChon diem: "))
+ m8 C+ N/ w! {
(setq b (getpoint a"\nChon diem: "))
2 o2 g, e3 l- P* v, O
(setq c (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2)))
" G" P( t- c! [
(command ".circle" c a)
/ Q% P6 M+ Q8 ?( J/ o4 e6 A& w
(command ".line" a c "")
6 e; Z! [9 \" P" b: o- G
(command ".array" "last" "" "p" c "11" "" "")* m& Y2 I# m& T4 Q. _
(princ))% X4 o: p9 M! c4 V5 I. _
/ r. U% h8 \5 A' y4 ~2 ~- ?$ U8 D
(defun c:ga13 () l9 u5 y+ J: y7 a. I
(setq a (getpoint "\nChon diem: ")) J9 E: ]6 X. T- l# h7 V" x+ A
(setq b (getpoint a"\nChon diem: "))/ O2 C9 | y/ H6 r7 v
(setq c (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2))). C' l) G* K: ^7 b. R
(command ".circle" c a)
8 I) g& G. a9 N: F
(command ".line" a c "")
: c6 x2 @, K# h" ^9 E# `" S
(command ".array" "last" "" "p" c "13" "" "")
$ r. ]+ V5 o6 d7 U1 O, e' H! L
(princ))" V3 f% j/ O }9 i
" n# w' |. x; q b
(defun c:ga15 ()" H# ^3 i9 B5 n% \7 n9 j3 L( O
(setq a (getpoint "\nChon diem: "))
# [& [* t7 L9 X3 V, U# v3 }
(setq b (getpoint a"\nChon diem: "))' C! _; W6 N: y9 ^7 C2 W- W
(setq c (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2)))
5 E; n& A( b6 T- H) C# Q1 }9 |
(command ".circle" c a)
0 o; n1 S6 O/ C. ~2 ] Q8 m
(command ".line" a c "")5 Q& A1 u& `" [; k9 r1 @, h
(command ".array" "last" "" "p" c "15" "" ""): a7 R6 j2 P3 X+ w# @7 j$ m
(princ))
" }; d1 {# y6 } U* Z, Q
7 K* b+ S+ V# X N: Z: E8 c
(defun c:ga17 ()
" L2 d/ L/ r6 l+ `7 Y& h, W) F
(setq a (getpoint "\nChon diem: "))" Y; j; p/ I' b7 o
(setq b (getpoint a"\nChon diem: ")). K4 [5 w) {3 t! I% T, X' w
(setq c (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2)))7 m8 r( d; S' W4 R$ J
(command ".circle" c a)
4 h1 I* }, J/ T; k* y7 z4 W1 {5 @
(command ".line" a c "")
9 O% f. d* K. i" q/ F( Q7 ?& _9 i
(command ".array" "last" "" "p" c "17" "" "")
3 f9 `4 O* A$ |9 p2 ?0 p, m
(princ))
3 e; d7 Y3 [$ Q) H2 l1 D% m
7 R4 J& L' c! j2 |) ]+ }* m( D8 R
(defun c:ga19 ()
% n# Y: p* u, A5 d6 j; k5 }. Q6 ]
(setq a (getpoint "\nChon diem: ")): h. a5 f0 O% I9 g
(setq b (getpoint a"\nChon diem: ")). c0 ?8 O" E& F. b" N; }
(setq c (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2)))
8 [6 ~- p% E0 I: m# ?9 y% a9 ^, h/ S
(command ".circle" c a)/ ?- P4 {* t2 `3 t9 I
(command ".line" a c "")' C" N8 n- q- W( U# }* k K
(command ".array" "last" "" "p" c "19" "" "")8 M6 }9 n& ~$ u, R
(princ))& W8 m& n( n5 R' b0 A& L' J3 D9 \% Z
, i" g: V7 F2 C0 X, g$ x) ]
;=====================================================================
& v7 o+ ]$ ]* N4 D* _! F2 @( b8 Z
;============== FUNCTIONS GA 2+4+6+8+10+12+14+16+18+20 ===============0 T: `0 y8 K2 A2 j& J! w
;=====================================================================& z* t( i' v8 w s( ^
(defun c:ga2 ()' I" q4 p. w; J
(setq a (getpoint "\nChon diem: "))
! X& y/ G' W0 S& C
(setq b (getpoint a"\nChon diem: "))
5 O0 M* {& r4 I# Z0 w2 z' ^
(setq c (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2)))
9 j8 ^, j2 G& A4 x
(command ".line" a c "")# _9 d6 S. d O2 _, o' b
(command ".array" "last" "" "p" c "2" "" "")
( K2 N% A+ u$ a" B) r
(command ".circle" c a)
7 n5 `" m( x( I! U
(princ))! `$ ^$ z2 x" ]8 ]: P" r: R
- a x" @0 ]3 n' z
(defun c:ga4 ()
+ s1 G1 a) P* h( Q' h; k0 h
(setq a (getpoint "\nChon diem: "))/ Z- s# ^) {6 \& W3 i6 ~
(setq b (getpoint a"\nChon diem: "))
. m' h! j8 j6 X+ v+ D6 t j+ f
(setq c (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2)))
2 E" w" y- v `
(command ".line" a c ""); l% \1 z( A& d" T2 t# _
(command ".array" "last" "" "p" c "4" "" "")
- R, |1 i9 j1 N
(command ".circle" c a)
, R, J( }; s5 F) J. P8 _
(princ))% n9 W, l3 |! _5 q: v- x, q
2 C) [ Z& w2 U0 C$ ~* ]: u4 u
(defun c:ga6 ()) ]1 ]( ~; B9 f6 E) W b! n
(setq a (getpoint "\nChon diem: "))3 l9 |5 ^; @( y( A5 g+ e; Y: y$ }
(setq b (getpoint a"\nChon diem: "))+ B# a9 _ L9 z5 f+ Z6 \; s( D2 b
(setq c (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2)))3 _: T6 K9 ~1 q- ?: J; P# f V
(command ".line" a c "")
, w9 T# Z/ }3 _5 F# T: m1 \* u
(command ".array" "last" "" "p" c "6" "" "")
5 w, x3 I: W. a
(command ".circle" c a)
# Z! p: o5 p# p) C
(princ)). p9 M4 f. m7 G9 |+ e5 R
0 v5 w2 \$ b4 E* N* {
(defun c:ga8 ()
- A3 ^. ?8 C2 f, s1 s& v- {
(setq a (getpoint "\nChon diem: "))7 U6 s- x! m1 u+ H
(setq b (getpoint a"\nChon diem: "))$ _* K. V+ d( @% L
(setq c (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2)))
0 }( \2 Y; C# r9 Z) m
(command ".line" a c "")
( p" [8 @5 j( a. }6 H
(command ".array" "last" "" "p" c "8" "" "")
+ F0 X" k: G- _- w2 e
(command ".circle" c a)& a5 w5 ?2 X$ K; a% j2 r
(princ)); \/ s2 T# b% M* @9 c
: n/ g; R# }0 F2 y' M
(defun c:ga10 ()
3 ^" P9 ~. p' A) Q
(setq a (getpoint "\nChon diem: "))
2 g1 ~. W6 K0 E' E
(setq b (getpoint a"\nChon diem: "))
! Q" }3 n0 Z4 D3 \$ Y1 }
(setq c (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2)))* n% a/ O. u$ _0 n* J
(command ".line" a c "")
- m* M; G2 a$ l6 Q! |/ U
(command ".array" "last" "" "p" c "10" "" "")
1 m$ P6 _& ~% r6 w R
(command ".circle" c a)
; k5 n# L9 a( }5 `& r
(princ)), Q# ^" A! o) ]
, `- l6 w9 h. K3 e
(defun c:ga12 ()
9 ?7 D9 o( w' f+ y& }2 Y Y
(setq a (getpoint "\nChon diem: "))4 J9 g% N+ B5 M/ [' I
(setq b (getpoint a"\nChon diem: "))' N2 @$ U x# _6 i0 m. q* v
(setq c (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2)))
$ D0 F3 u; G9 s4 C
(command ".line" a c ""), c; N5 a0 ]4 W" w0 u
(command ".array" "last" "" "p" c "12" "" "")
2 h# k( f% k$ o+ u9 ?4 Q
(command ".circle" c a)
3 L! P" x& k+ L# X& G( h" z( M
(princ))1 d0 K1 w" M, n- u* [, l. Y) G
0 _7 w/ M3 m t/ i
(defun c:ga14 ()
" `* D% k9 |. K. l
(setq a (getpoint "\nChon diem: "))4 Y% s& d* I* e9 N$ R4 p% z+ r* v4 y
(setq b (getpoint a"\nChon diem: ")): q0 M" b. l6 u
(setq c (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2)))
/ L8 h! q* {$ |+ J5 _
(command ".line" a c "")
0 B( h$ D; U4 P( E$ E- o4 h
(command ".array" "last" "" "p" c "14" "" "")
d- h: c& Y$ i H( B" \) g8 e: a
(command ".circle" c a)
, E8 t0 F* z& @
(princ))' Q6 @; u# v9 O' f7 h4 s
; w( l Z) d' a5 M/ u
(defun c:ga16 ()
+ O: E7 Y! n3 a: y N) }7 ^+ ^
(setq a (getpoint "\nChon diem: "))" _* @) B3 {+ z$ C5 `: F
(setq b (getpoint a"\nChon diem: "))6 S, C! H+ P5 j6 z* F5 [
(setq c (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2))). d' `2 P- h# T4 v* h
(command ".line" a c "")& }$ x$ H, w3 A2 L6 X% O
(command ".array" "last" "" "p" c "16" "" "")
9 l* v2 q. A/ H# r
(command ".circle" c a)
- ?' @' y4 s h/ _0 v
(princ))
, l/ I, G/ `% z$ L8 V4 C
( i; _8 {( L! A, c, w2 Z$ t0 j4 R
(defun c:ga18 ()
- X: l7 {1 z/ [) U5 Z; ]
(setq a (getpoint "\nChon diem: "))
) L3 n3 @" |/ n* k6 D
(setq b (getpoint a"\nChon diem: "))
z2 o$ s5 r1 X' z: Y
(setq c (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2)))
0 W a1 s* }7 i
(command ".line" a c "")
7 \ I4 k7 v4 j
(command ".array" "last" "" "p" c "18" "" "")1 @9 l+ D9 _- ~" p8 v, ^) Y
(command ".circle" c a)/ @, j. R) r8 u: R" _
(princ))0 b. O' P; J( W, r) W/ A6 p
! y( G) @) y0 h& K+ x
(defun c:ga20 ()& X2 A7 |/ _# O
(setq a (getpoint "\nChon diem: "))9 R' X" U" x' r) L/ T8 h4 ^
(setq b (getpoint a"\nChon diem: "))% Z$ z4 R4 A2 g' l& F% X6 D
(setq c (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2)))
" `- T6 {5 O Z4 X) H1 O/ \
(command ".line" a c "")- C* G7 ?' o9 U* Z9 Z/ e/ X5 A
(command ".array" "last" "" "p" c "20" "" "")
! p8 y' ^$ a* J. s3 O' e1 o7 v
(command ".circle" c a)
- e$ x* |0 @9 e/ W
(princ))
6 m# W1 ?7 Y8 S* d* g
0 w3 V& h" G2 j+ n
;=====================================================================* W2 u. R4 q* Y4 m& H
;============== FUNCTIONS GA TUY THICH : EVERYTHING IF ===============$ `3 s7 j0 Q8 r6 c+ [- Q0 k
;========================== 06-11-2016 ~ 18h00 =======================
$ x/ c" t V6 n! Z/ Q
;=====================================================================8 I; V3 U- m: i( ^) }
(defun c:ga ()+ [/ Q- F8 C* N4 J
(setq a (getpoint "\nChon diem: "))
( l/ e7 r7 g9 x6 E$ t7 K8 E3 ?
(setq b (getpoint a"\nChon diem: "))
* f' | \ ^4 M1 }' r
(setq c (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2)))7 A+ x, w$ w2 H7 V' I
(command ".circle" c a)
7 e* h# f( f+ w/ Q+ t1 E
(command ".line" a c "")
( N6 F) `! q* x/ ?7 Y
(command ".array" "last" "" "p" c "NUM" "" "")
5 u$ M* r$ f" M" V, H: b
(princ))& m8 e7 W7 v; s* h- e( q& Z( W, r
% V6 Z, w9 n) M* L' f) K, v( m2 p
;=====================================================================9 f- N# Y; a! O9 d+ w$ q
;=========== FUNCTIONS HOA THI TUY THICH : EVERYTHING IF =============4 Z' M9 r* p% [7 h, o0 p3 u2 X& E
;========================== 06-11-2016 ~ 18h40 =======================2 b+ k! F$ D% i0 s" h( x6 R
;=====================================================================+ W$ N" ?6 C% V# S
8 h8 \" g3 v7 d( A6 M& Q9 V
(defun c:hoathi ()2 |( ^$ B+ l( H9 k* N
(setq a (getpoint "\nChon diem: "))
2 M" n* ~1 ]8 i' O5 j! \
(setq b (getpoint a"\nChon diem: "))% Q* L) b( n% r
(setq c (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2)))% G/ ~8 G @9 \" N
(command ".line" a c "")
1 }# c% n' p. o! P& V I3 P
(command ".array" "last" "" "p" c "NUM" "" "")
! x2 x! m6 m* L+ i
(princ))* Y" _. T9 R) W2 B3 J7 [
4 l+ g3 p* \+ x. ^/ }/ u
;=====================================================================3 R( ?9 A4 A2 L" M, j" D& f6 W% W
;============= FUNCTIONS CUNG TUY THICH : EVERYTHING IF ==============3 P2 s1 t# b6 {. C1 B
;========================== 03-11-2024 ~ 19h33 =======================
& f' _) a& _9 I6 y
;=====================================================================1 L: N( O# _% d7 Z6 `7 x
R8 W4 B* q3 p2 ~- `
(defun c:cung ()
" s! r; A! Y, S$ m! K1 j4 G
(setq a (getpoint "\nChon diem: "))
- h+ T; ^7 ]3 A1 z8 ^
(setq b (getpoint a"\nChon diem: "))$ e, n. o* w/ q/ \( Q t
(setq c (getpoint a"\nChon diem: ")); {1 g! E0 b& e- F9 z
(setq d (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2))): K* O% U2 m9 n0 X: A( {
(command ".arc" a b c "")2 Q- J# W; S; A
(command ".array" "last" "" "p" c "NUM" "" ""): I, j! T& d+ Q% E
(princ))
. i3 `- @5 f; C, e9 }* q! U3 ^, l* R
' V/ j& }$ C ^8 J8 {* H
;=====================================================================- v) m* e, c! J" p; H! V" X
;============ FUNCTIONS HECLOIC TUY THICH : EVERYTHING IF ============
/ ^ ]' }/ o4 F3 ^4 B. }. e
;========================== 03-11-2024 ~ 20h02 =======================
, Z& {- e0 d' q; _- X: B
;=====================================================================7 A8 k0 x# v& x% M7 j9 T" D+ c" A
q9 k/ z! m5 Q/ v/ N
(defun c:hecloic ()
# r2 `$ a& t/ u# s$ u
(setq a (getpoint "\nChon diem: ")) }3 |% n% o: @. _9 f- |
(setq b (getpoint a"\nChon diem: multi "))- g) ?3 i* ?! M z4 W$ |8 M
(setq c (getpoint a"\nChon diem: "))(princ)
! t, D- O, P2 K5 t2 U
(setq d (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2)))
4 N4 X3 z4 T- U. A: |
(command ".arc" a b c "")
3 S3 H7 L; I- e. l% e
(command ".array" "last" "" "p" c "NUM" "" "")9 Q4 O& D3 [+ ?9 D* D9 X" @
(princ))
& a e0 w* g i
0 Y1 [0 f7 Q( ~. }$ E# R4 F
;=====================================================================
; ^" N' F( z$ q, ?! j2 H
;============== FUNCTIONS GAY TUY THICH : EVERYTHING IF ==============
, h; a4 N- H: f# [3 D4 _( J, V1 ?
;========================== 03-11-2024 ~ 19h38 =======================6 ~! v2 w$ Z$ u7 M4 w. J
;=====================================================================
) Z4 b7 N* d6 l. a% Q
7 b* l3 W! {3 [" r/ s7 [6 Y5 X; N6 e7 M
(defun c:gay ()
5 Y: N' m2 d* t7 t5 W
(setq a (getpoint "\nChon diem: "))
$ U4 T' l9 x$ X6 X
(setq b (getpoint a"\nChon diem: "))+ a1 `; l+ I1 p. \* U' Z; ~
(setq c (getpoint a"\nChon diem: "))(princ)
$ G$ v3 Z; g* p9 o% H
(setq d (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2)))
7 K2 D6 R, s8 B) {3 W; j
(command ".pline" a b c "")9 n2 i* S7 J, o0 K2 C( N) J7 l' j
(command ".array" "last" "" "p" c "NUM" "" "")
9 c4 e. c/ v3 |0 L, I- L2 B
(princ))
1 `* w" V& m" l- }- z
3 O" A) h* B. @+ S; h9 w6 C
;=====================================================================
$ J' f( Q+ A7 |3 f8 |1 G
;============ FUNCTIONS HECLOIT TUY THICH : EVERYTHING IF ============% \# F3 h' Q# B( ^7 j
;========================== 03-11-2024 ~ 20h02 =======================
0 B7 D& S- [& E+ P6 Z
;=====================================================================2 I2 g0 v" F& E+ w
* V. f3 P% H% k7 D; \& s
(defun c:hecloit ()
1 d, n) W+ i$ e
(setq a (getpoint "\nChon diem: "))- {+ c1 t( m& N( g
(setq b (getpoint a"\nChon diem: multi "))
( }5 x4 Q& B: r! B% @$ M+ S
(setq c (getpoint a"\nChon diem: "))(princ)
0 n5 v. @8 F- w4 K4 p: }, J
(setq d (list (/ (+ (car a) (car b)) 2) (/ (+ (cadr a) (cadr b)) 2)))
* k0 X( q* U( O6 R% v4 O
(command ".pline" a b c "")1 A, _! F# j2 V' u8 F* V$ p
(command ".array" "last" "" "p" c "NUM" "" "")- L; t" j5 h8 b8 ~ W1 c& }
(princ)) |9 i: H# U, H; q6 J4 d8 N
) N9 [+ M, O5 Q, X g. }2 d
( f }/ Q: k4 y5 r
;;; ============================ Merge Hatch =============================6 x- s* Q# d0 W' Z5 ?' k
0 d2 n" s7 K- b L8 d
(defun c:mh (/ ss entht sl i dt dtht)
6 x2 ^- @ p: X, r7 }
! C7 h* `/ Z, ^2 L% o; o3 R
(princ "\nMerge Hatch - free lisp from CADViet.com")/ T6 Y1 a4 Y. a% s; {' F1 H
) E! B' f: p5 J: E
(setq' Q2 G4 {% \+ F; {$ f. l7 H
ss (ssget '((0 . "HATCH")))) H7 x4 w3 Q4 H; A! x
sl (if ss+ q* {: `7 B) r0 n
(sslength ss)
4 C) V! w, c6 y5 \2 {% x
00 |+ g4 `- J$ P9 u
)0 \+ ~! T- j1 \5 O( f. e0 {" z
i 0+ a# n' L( _6 q/ S/ E- ?0 X
l 0
5 y) v/ k. }$ i/ _* ]2 h) o1 c! ?
)
% Z; B( K* D/ w, G, r
) Z# h! m0 v) k. g( c _5 r* j
(repeat sl
4 i8 K0 \- a, W8 w9 p6 G- D
(setq
0 m6 S/ [9 ]( P) M5 b/ Q L/ h5 W
entht (ssname ss i)
& H ?5 [2 ~1 {: ~- W: w1 m/ Y
dtht (getbdata entht)
; H/ [! G3 t6 v
dt (append dt dtht)) i* v9 w6 O; n' y+ u H$ ]+ @
l (+ l (cdr (assoc 91 (entget entht))))# M- t# y* R C# t6 r; m( a; ]! w
i (1+ i)0 Z/ g0 T6 A# \: M
)
7 l1 n# O+ ?- f; W# p; _
)$ O) z; v9 s2 \! Z4 Q) i
9 u: F! J( r/ |4 R( d# S$ g: m; J/ l
(setq ent (ssname ss 0), y+ I& L$ M( ?" m8 C9 I
ss (ssdel ent ss)% N7 T8 C5 c4 n
tt (entget ent)! }8 V. ?1 T9 [( h$ ?7 I; p/ R
duoi (member (assoc 75 tt) tt)
! Q6 e' \, U9 Q9 g" \- c0 k
dau (reverse (member (assoc 91 tt) (reverse tt)))
; d- r+ S# w$ C, J
tt (append dau dt duoi)% n9 y2 A( u; [: W0 O" f
tt (subst (cons 91 l) (assoc 91 tt) tt)
! Y- U! T: S) }: Y
)
8 s T) `9 `6 o' @; v3 b
(entmod tt)5 V( I" N: L$ P6 M, F
, H ]1 I& X+ V* ]
(command ".erase" ss "") R& [; |, @3 h4 ]- x% j- U
(princ)+ N9 [8 q2 C/ P: u' e
)
R' N/ H2 P% M
+ i3 O7 m( W m- ~0 A
(defun getbdata (ent)
; R1 A( t/ _8 g8 ~
(setq tt (entget ent)
) X# G' q* B# O1 D
tt (cdr (member (assoc 75 tt) (reverse tt)))3 N4 [$ i# {% S$ F! |8 Q# s
tt (cdr (member (assoc 91 tt) (reverse tt)))
% g7 }; K9 t3 h% s) Y
)/ a8 r" t+ k. s. L
)
6 [2 X& P2 f. D5 ^* x: g% O
5 T( e& M& o* W) ^4 B) }
% g! q; o" X0 d( z; E7 l- p/ _
(princ): c1 R- a. M/ k+ H8 i
8 c" M3 w. c+ |* Q
;;; =========================== CAC LENH LAYER ==============================
& A1 i) O8 U7 `
;;; =========================== Layer hien hanh =============================8 V& T- F. {% r# T' V. o/ F6 z
: h9 e: ~4 r7 }/ z) i# \
(defun layset (/ LAY) (setvar "cmdecho" 0)
H$ J) ?1 F ?" [% {& r5 Z
(setq LAY (entsel "\nPick vao doi tuong muon Layer hien hanh la Layer cua doi tuong do : "))
1 }& D, I$ ~4 E
(if LAY (progn
) ^/ r6 c9 A4 i v Y# a/ f
(setq LAY (cdr (assoc 8 (entget (car LAY)))))
& m) @2 ~. P/ ~3 F
(command "_.layer" "set" LAY "") (princ (strcat "\nLayer : " LAY " da la hien hanh.")) )- }6 |0 ]: c: \& T4 L9 v* l
(progn4 |& i6 p! z, F% f9 U& D
(if (not ddlop) (load "ddlop")) (if (setq LAY (ddlop))
3 b5 A' U/ V- m6 I9 C z
(progn
5 r& v. q+ Q1 C5 w% O0 D. _( [
(command "_.LAYER" "ON" LAY "THAW" LAY "SET" LAY "") (princ (strcat "\nLayer : " LAY " da la hien hanh.")) ) ) ) )(princ) )$ \; {) K! a' m/ i/ o' {
(defun c:LLL () (layset))(defun c:LAYSET () (layset)); d- x( M: Z8 K* ?! C# e& a
) M) I8 r1 x! |& u! c% p
;;; ================== Cap nhat doi tuong vao layer hien hanh ==================
7 G$ \1 h, m* q" ^+ C* J, B3 E
/ T- y2 b- s# _% O+ n
(Defun LAYCUR (/ SS CNT LAY) (setvar "cmdecho" 0): D8 u& v- T$ |
(if (not (setq SS (ssget "i"))); H+ U7 }/ V9 s. u0 ^$ ?
(progn (prompt "\nChon doi tuong cap nhat vao layer hien hanh: ")4 t, |8 x/ O" [3 Z& D9 T3 Y2 l! F
(setq SS (ssget)) ) )3 A3 a. x0 p" y3 V
(if SS (progn
" b) j4 d" h8 A, l% l& a
(setq CNT (sslength SS)) (princ (strcat "\n" (itoa CNT) " doi tuong tim thay.")) (command "_.move" SS "") # C1 e9 `7 \: S4 P; j% a/ \
(if (> (getvar "cmdactive") 0)
8 M2 k0 v7 d; |: v4 x& O! B8 k
(progn6 r6 [) y+ d" i1 T0 E# t) f
(command "0,0" "0,0") (setq SS (ssget "p") CNT (- CNT (sslength SS)) ) )4 N8 k: h1 N2 I Z$ a2 l
(setq SS nil) ) (if (> CNT 0) E. q, R& ~- V! p2 b4 k7 U
(princ (strcat "\n" (itoa CNT) " doi tuong tren layer LOCK.")) ) ) )( b- _6 S# P7 k% {
(if SS (progn9 F+ m, M: B; b; M k( r3 w6 s1 W
(setq LAY (getvar "CLAYER")) (command "_.chprop" SS "" "_la" LAY "")! d- e. {1 {2 R
(if (= (sslength SS) 1)
F( M ^& ^, Q- n
(prompt (strcat "\n1 doi tuong da cap nhat vao layer : " LAY " (layer hien hanh)."))
# |1 e/ o- g- t0 e1 |; o
(prompt (strcat "\n" (itoa (sslength SS)) " doi tuong da cap nhat vao layer : " LAY " (layer hien hanh).")) ) )) (princ) );end- ]* D/ \/ P+ k& X( O( R
(defun c:LAYCUR () (laycur)) (defun c:LHH () (laycur))& W$ v! N A' x; e8 V
( Q6 h6 W& ?, W1 I# ?) n6 R' S
;;; =========================== Layer Iso ===================================
& \4 H+ y6 |1 e% E
Q s/ P% p6 S; ]5 q( T
(Defun LAYISO (/ SS CNT LAY LAYLST VAL) (setvar "cmdecho" 0)* T& S# X. f: J
(if (not (setq SS (ssget "i"))) (progn \; S% F! K. d% v
(prompt "\nChon doi tuong tren layer(s) muon lam viec doc lap: ")/ V& l* q& x: A
(setq SS (ssget)) ) )
1 h4 f1 b6 p5 z5 i! i
(if SS (progn (setq CNT 0)
3 L/ R" p1 U0 u* a# m" Z9 u4 ^
(while (setq LAY (ssname SS CNT))$ Q* ]: ?2 i) {0 P6 Y( J# y0 V5 w
(setq LAY (cdr (assoc 8 (entget LAY))))
; u! ^; Z, G2 x
(if (not (member LAY LAYLST))! H7 s: N2 d7 z; x
(setq LAYLST (cons LAY LAYLST)) )0 f% u1 {6 F2 n- P
(setq CNT (1+ CNT)) )
+ M9 l/ j7 N* [3 s+ b, g! v+ [
(if (member (getvar "CLAYER") LAYLST)" }/ \5 H* s0 T7 F9 [9 U8 l
(setq LAY (getvar "CLAYER"))8 k- }( \% \8 d' y& [! C9 D
(setvar "CLAYER" (setq LAY (last LAYLST))) )
" L B- `# Q+ z$ d9 z
(command "_.LAYER" "_OFF" "*" "_Y")0 r# F' b( B8 l. H6 }- p4 \
(foreach VAL LAYLST (command "_ON" VAL))7 f Q2 u8 }4 G$ S
(command "") (if (= (length LAYLST) 1)
5 G2 O7 t4 e% H9 e
(prompt (strcat "\nLayer " (car LAYLST) " da tach ra."))
3 J+ q( Y- t0 K. s+ I
(prompt (strcat "\n" (itoa (length LAYLST)) " layers da tach ra. "
, }3 F5 r8 [ j2 ]1 K8 z
"Layer " LAY " la hien hanh." ) ) ) ) ) (princ) )
$ `+ O' @' d' C6 U) W, w( L
(defun c:LAYISO () (layiso)) (defun c:LI () (layiso))
0 b( d( U6 s8 ]* @, l
6 q4 ?- _8 N" n/ l& S5 y
;;; ========================= Layer Match ==================================
) I* |6 I) D; |8 i. _$ U
/ J: E7 }+ _! N' k9 h- X
(Defun LAYMCH (/ SS CNT LOOP LAY ANS)# e" S; T- k- J* J/ @2 T- m
(setvar "cmdecho" 0)
n8 p" A4 Q4 q" Y7 B8 }
(if (not (setq SS (ssget "i"))) (progn, Y' r7 A1 i8 B( k2 D3 X
(prompt "\nChon doi tuong muon thay doi Layer : ")
1 e/ A5 T3 `6 D
(setq SS (ssget)) ) ), @# {+ {8 q$ y
(if SS (progn. y+ Z% [$ _# T H9 L
(setq CNT (sslength SS))" K8 \6 S) h& ?* h
(princ (strcat "\n" (itoa CNT) " found.")) (command "_.move" SS "") 2 c9 {, N) W. f5 I- H- C% d
(if (> (getvar "cmdactive") 0) (progn
8 k* ~& L4 j. ~1 [7 Q! w- c
(command "0,0" "0,0") (setq SS (ssget "p")
7 v; D: D E. d
CNT (- CNT (sslength SS)) ) )* v* y8 D' w! }: U
(setq SS nil) ) (if (> CNT 0) . f* b9 x' K& [9 Q6 K9 t; n0 w
(princ (strcat "\n" (itoa CNT) " tren layer LOCK.")) ) ) )9 b& ], b% J( Q- V, }$ k
(if SS (progn+ Q7 Q: @0 }+ }2 |; ^
(initget "Ten") (setq LAY (entsel "\nTen layer/<Pick doi tuong>: ") LOOP T )
# q; }* S. K' c' W
(while LOOP (cond
) t+ i$ r% m5 X0 U4 h+ m7 f
((not LAY). j- C" y# p4 W, \9 E6 E
(prompt "\nKhong chon doi tuong.")
+ A; E. h! h3 E$ [7 C
(prompt "\nSu dung layer hien hanh? <Y> ")0 E3 c0 o6 r/ T) l* ^6 Y* j6 ~
(setq ANS (strcase (getstring)))- @3 u6 Q4 k1 {
(if (or (= ANS "") (= ANS "Y") (= ANS "YES"))
- `: N3 k. L5 W( w7 w/ z! A% _& L
(setq LAY (getvar "clayer") LOOP nil ) ) )$ u2 b& u2 l6 C9 g
((listp LAY) (setq LOOP nil) )
% w% X5 ^3 }. S0 m$ a- S
((= LAY "Ten")3 i4 Q, X* v0 M ^
(setq LAY (getstring "\n>Nhap ten layer: "))
! g$ {( p0 l3 C# Q3 d
(cond
# E& h! [( u" X* e' G2 P3 W
((tblsearch "LAYER" LAY) (setq LOOP nil) )2 D: A6 t: h) x0 F& O5 \; F G
((/= LAY "")
6 o. Y# i+ r/ x
(prompt "\nLayer chua co trong ban ve. Tao layer moi? <Y>: ")6 s$ M, b7 @/ R' c
(setq ANS (strcase (getstring)))7 g; |( i2 T4 m. Y9 m" x) D2 i
(if (or (= ANS "") (= ANS "Y") (= ANS "YES"))
+ n% Y0 }9 n( s/ S9 x
(progn
$ ?4 D1 V* Y( h3 P
(command "_.LAYER" "NEW" LAY "")
9 ~; @+ X5 t' d. L
(setq LOOP nil) )
/ O B8 J! I5 I
(prompt "\nLoi ten layer.") ) ) ) ) )
3 @; c/ C, v' [5 V) ]
(if LOOP (progn (initget "Ten")- q0 K0 z, @- ^8 Y: I; }1 ?2 m
(setq LAY (entsel "\nTen layer/<Pick doi tuong>: ")) ) ) ); while LOOP1 b/ k4 p- P( P; g x7 f" c
(if (listp LAY)3 D6 Y+ p; ^9 b! m, D% `* ~5 E% ]4 h- P
(setq LAY (cdr (assoc 8 (entget (car LAY))))) )
# ~ ]+ A& o% ^; }4 q
(command "_.chprop" SS "" "_la" LAY "")
+ G* Q6 o) r* z2 Q$ J+ _3 W
(if SS (prompt (strcat "\n" (itoa (sslength SS)) " doi tuong thay doi toi layer " LAY )) ): q0 v( R# x/ c) g$ X- m
(if (= LAY (getvar "clayer"))
/ Z% G! F( D" _% O7 ~3 {5 ~
(prompt " (layer hien hanh).") (prompt ".") ) ) ) (princ) ); Z" B, ?" y! w6 w7 G' F/ O
(defun c:LAYMCH () (laymch)) (defun c:CLL () (laymch))
" O0 Q5 m5 j# v; F7 t& j, ]
8 o% e- O2 O" A+ |' L
;;; ============================ Layer OFF =================================
& T3 k7 @. L/ U8 }
- @3 y& p7 h- R, i0 L
(DEFUN C:LJ (/ SSET SSL ENT LAY I MODE)
3 Q3 X( v* T' f/ L, W
(SETQ SSET (SSGET))
; I% N% ^% Q7 e& _
(IF (/= NIL SSET) & T( `' p/ Y6 J# X
(PROGN1 @/ N8 o8 R6 H6 u; b
(SETQ SSL (SSLENGTH SSET))9 T& Z9 X: Q/ I
(SETQ LAY "")
3 }$ [# k4 n$ o% X
(SETQ I 0)
& q* f7 T, s& |* U2 G
(SETQ MODE 0) 8 F4 i6 u) g+ [
(WHILE (< I SSL)
3 W$ |- K2 i u! b" n: e% C8 V8 m
(SETQ ENT (ENTGET (SSNAME SSET I)))1 z' b4 M+ B5 j! d. j3 m" ]( t9 J. ~
(IF (= (CDR (ASSOC '8 ENT)) (GETVAR "CLAYER")) (SETQ MODE 1) )
6 i* N7 [4 f) u L( l6 E
(SETQ LAY (STRCAT LAY "," (CDR (ASSOC '8 ENT)) )): I' t+ e" w" `7 T9 [
(SETQ I (+ I 1))+ a2 o! h0 v( @
)
( `5 K4 n+ A0 d* w2 {+ }% g
(COMMAND "LAYER" "OFF" LAY "")+ v7 m2 r0 [! O5 J0 d
(IF (= MODE 1) (COMMAND "") )( b d2 W% b) m+ G
)
: a5 c2 J; ?" F1 d/ b9 @
)
; o" d& C! W' T9 a4 A0 T7 H S# S8 D
(PRINC)
+ B& c0 I v" Q! }5 q6 ]5 o0 u8 l
)% @/ n) K4 ]" ]8 I3 z3 _- _
& U' o, H2 a* R3 J4 v
;;; ================================ Layer ON ==============================" b u: [2 p; t3 s: A4 y t& h
: l9 }2 _ \4 p2 y
(Defun LAYON () (setvar "cmdecho" 0)
$ H! K8 x/ H+ l+ _) D% i* m! \1 V
(setq Lay loff1) (setq Loff1 Loff2) (setq Loff2 Loff3) (setq Loff3 Loff4) (setq Loff4 Loff5) (setq Loff5 Loff6) (setq Loff6 "0")
8 Q5 f( v% v0 ~* h
(Command "LAYER" "ON" Lay "") (princ (strcat "\n Layer : " LAY " da ON.")) (princ))6 v f- a; l a: t
(defun c:LAYON () (layon)) (defun c:LOO () (layon))3 c9 s( h# g0 j9 {% B0 t3 X
(Defun C:LO () (setvar "cmdecho" 0) (Command "_.LAYER" "_ON" "*" "") (princ "\nDa ON toan bo cac Layer !") (princ))
9 X- t1 H$ ]. s& n) G( b5 J
9 X7 j9 Y) T M$ S8 Q
;;; ============================== Layer Freeze ===========================
* B8 l% Q& y+ A' h* [
. I) B. A5 a5 C4 h% {9 J6 r
(Defun LAYFRZ (/ LAY TEMP)(setvar "cmdecho" 0) 8 ]( E/ g/ k% I' j
(prompt "\nChon doi tuong tren layer(s) muon FREEZE: ") (SETQ SSET (SSGET))) G& E% z+ b# m/ H
(IF (/= NIL SSET) (PROGN2 {) V1 P6 z+ K. L
(SETQ SSL (SSLENGTH SSET)) (SETQ LAY "") (SETQ I 0) (SETQ MODE 0) % z1 m& j2 [% `, ^
(WHILE (< I SSL)
+ P/ f, ?/ M4 T' V5 P$ d7 B( C
(SETQ ENT (ENTGET (SSNAME SSET I)))
, k- T/ Y. \6 j; z" P
(IF (= (CDR (ASSOC '8 ENT)) (GETVAR "CLAYER")) (SETQ MODE 1) )
# M6 g- a; N0 `* |% r) U
(SETQ LAY (STRCAT LAY "," (CDR (ASSOC '8 ENT)) )) (SETQ I (+ I 1)))
, k8 K6 D* O. t8 U2 s$ f& @
(COMMAND "LAYER" "FREEZE" LAY "")
# c! n Q0 T' H
(IF (= MODE 1) (COMMAND ""))))
1 R5 U4 `+ p4 ?" U7 b h3 T) _
(setq Lff6 Lff5) (setq Lff5 Lff4) (setq Lff4 Lff3) (setq Lff3 Lff2) (setq Lff2 Lff1) (setq Lff1 LAY)% w; X! G! N( z0 ^9 ], j
(princ (strcat "\n Layer " LAY " da FREEZE."))(setvar "cmdecho" 1) (princ) )
^; Q+ C3 n# ~2 m! \0 w' @
(defun c:LAYFRZ () (layfrz)) (defun c:LF () (layfrz))9 ^1 B- |" B$ e! Z4 ^4 [
: Y6 M% }' F( {( {- f( d
;;; ============================== Layer Thaw ===============================
4 y" f% k) Y& Q$ Z* [
9 ]3 ?. X, \& u8 t
(Defun LAYTHW ()
& {8 ^; X4 u% ?+ h r0 L
(setvar "cmdecho" 0)
# Y4 Z2 N/ N q/ Y
(setq Lay lff1) (setq Lff1 Lff2) (setq Lff2 Lff3) (setq Lff3 Lff4) (setq Lff4 Lff5) (setq Lff5 Lff6) (setq Lff6 "0")
: k' m; \4 I' q1 p/ L; L8 k- s+ {
(Command "_.LAYER" "_THAW" LAY "")
. @1 j/ G- f9 G
(princ (strcat "\n Layer : " LAY " da THAW."))
% v' R# A p: Y* t" w. _
(princ) )
, l9 Q: ~' Z+ t) P N+ I; D0 @
(defun c:LAYTHW () (laythw)) (defun c:LW () (laythw)). \3 Y, K4 E8 Q; h+ u
0 F$ W( h* \! p, R
;;; ============================== Layer Lock ==============================/ [2 C9 |: G0 J: D' m
" G* p u+ h/ N' d' j( @6 i
(Defun LAYLCK (/ LAY)) x) `# V# a, g/ p4 l" `
(setvar "cmdecho" 0)9 v5 o6 ^% }, A3 {+ z
(setq LAY (entsel "\n>Pick doi tuong tren layer muon LOCK: ")). f% T# ~0 q) U4 Z
(if LAY& X5 C1 H8 f5 T G; G y4 N- q
(progn
. x U$ `! f) Y# ^4 X) o- Z6 S
(setq LAY (cdr (assoc 8 (entget (car LAY)))))
3 K$ f# l" x9 ]8 d/ d* M w
(Command "_.LAYER" "_LOCK" LAY "")
4 l" ]8 A9 x* Q- _, V! q$ o) ^' C
(princ (strcat "\nLayer " LAY " da LOCK.")) ) ) (princ) ); F. P1 i! x% Y: K; T
(defun c:LAYLCK () (laylck)) (defun c:LK () (laylck))
7 s9 o2 c6 D- p
; l1 _1 J& w. N- R; o" t5 V" F4 s
;;; ============================== Layer UnLock ==============================
! e# d. i: D" G, y: z2 B( c6 k! ^
& r- v6 j8 n4 A$ k4 \/ a
(Defun LAYULK (/ LAY)4 K& w) q, k" B* ~5 a% m
(setvar "cmdecho" 0)
5 y3 V! e, `. f. F6 }/ i1 w
(setq LAY (entsel "\n>Pick doi tuong tren layer muon UNLOCK: "))
1 s2 d/ M, |, B: u M4 l
(if LAY/ I$ @; c( `" Q
(progn
5 H8 y5 n% |# T( D( D
(setq LAY (cdr (assoc 8 (entget (car LAY))))): T% S) H0 P, h# Z3 v3 c# f
(Command "_.LAYER" "_UNLOCK" LAY ""), I& c8 {8 i" d) |$ k5 Y+ y( \
(princ (strcat "\nLayer " LAY " da UNLOCK.")) ) ) (princ) )
+ ~( V: ]7 a2 I0 a" p4 Z: k
(defun c:LAYULK () (layulk)) (defun c:LU () (layulk))$ E4 {: I4 Z9 ]4 x
3 O: q9 q" [2 Z
;;;===================== Delete all objects of Layer ======================== Z2 N4 A% v0 J$ b% J8 M
, r! O4 ^ w4 u! v7 f4 G9 |! i2 ^" O
(defun DELAYER (/ ocmd L S) . v8 M/ U/ w4 s4 q6 w( Y
(setq ocmd (getvar "CMDECHO"))
. t9 \# @$ I" I2 w: d
(setvar "CMDECHO" 0)7 R+ ?/ [7 q2 S, \3 P
(setq L (strcase (getstring "\nLayer(s) to delete: ")))
+ E6 s: I- C- q' E7 w( u- l! ~
(setq S (ssget "X" (list (cons 8 L)))) 4 R; O6 j' n/ @9 U
(if S
% L# \8 E# G1 g1 T# R0 |6 t
(command "ERASE" S "") / H3 R4 G* |- L( x
(princ "Layer empty or not a valid layer name.") )
( S% \, ]8 o4 V1 t8 e
(setq S nil)
+ N2 m3 _/ v- F
(setvar "CMDECHO" ocmd) 6 _7 N" k% d8 l
(princ) ) % u% |0 y! o, Y
(defun c:DELAYER () (delayer)) (defun c:DELLAYER () (delayer)) (defun c:DEL () (delayer))
' B' Y1 K! ?) H/ V. ? P
. O+ g; `+ f4 d, |
;;; ========================= HET CAC LENH LAYER ===========================
$ y6 i" m# X7 u. S) j
: U3 {; t/ c2 L6 F& v: V+ P
;;;====================== EXTEND NHIEU DOI TUONG ===========================
2 [4 e$ q, h0 a: I
* ?; ^: W* |, b
(Defun C:EET ()
3 g+ v7 F% V( ~% p
(Setq CVAR (Getvar "CMDECHO")) (Setvar "CMDECHO" 0)
# e! l \! e# G# P$ ]
(Prompt "Chon doi tuong dich cua EXTEND :") (Setq CUTEDG (Ssget))7 p, c+ c5 t$ a# [7 ]; ?& u7 E
(Prompt "Chon doi tuong de Extend :") (Setq SS (SSget)) (Setq LEN (SSlength SS))
3 f: S; S2 w& B- j6 `
(Setq I -1)
, O: g, r; `8 g% q. e
(Setq SIDE (getpoint"Chon phia de EXTEND")) (Command "EXTEND" CUTEDG "")- @5 X Y. n |+ t% l( \, \
(Repeat LEN
: ~+ |$ e7 U- ]6 y0 X. b0 d2 h
(Setq I (1+ I))
( t2 V _. f; S5 g6 |1 B7 U
(Command (List(SSname SS I) SIDE)) ) (Command "")
; o4 E8 |: [/ l* D
(Setvar "CMDECHO" CVAR) (Princ "Da Extend xong moi ban lam tiep") (Princ) )8 o/ a6 l* K+ D c* q' x; @
# M k1 `/ P5 }# Q. G9 J
;;; =============== EXTEND 1 DOI TUONG THEO KHOANG CACH ===============9 V! G( X0 ^: _ O5 S7 v- X% k
# Z/ B7 J" Z8 H2 D0 s
(defun c:ETT () (setq os (getvar "osmode")) (setvar "osmode" 512)
3 F: r4 _# I) v$ i3 P
(setq pt1 (getpoint "\nKich vao 1 dau doan thang can EXTEND "))% s2 r7 p6 {! @- w
(setvar "osmode" os)
8 C$ @2 ^3 O! S& x- n' W* M9 Q8 d
(setq dis (getdist pt1 "\nKhoang cach can EXTEND :"))! z6 E6 X5 |; `9 E! L5 q. B- \" Z
(command "circle" "endpoint" pt1 dis) (command "extend" "last" "" pt1 "") (command "erase" "last" "") (princ))
" p4 `4 \6 ] |% |0 q
8 F% q. j* R9 U
;; ================ Change width of polylines =========================, m$ M1 B/ M* k/ c
' N% e2 r* Q* S" `* h& o
(DEFUN wp (/ a b sophantu sodem list1 ha:wid)
$ Y6 u$ v& N: f% F/ u
(PRINC "\n Chon doi tuong can thay doi do day (Width) !")
+ B9 t& L8 x7 r, N p- A& V
(setq b (ssget))
3 B9 a$ @7 X1 p
(setq sophantu (sslength b))
6 u0 p# W1 E% T/ ^4 ]# k
(if (null ha:wid) (setq ha:wid (getvar "tracewid")))
" \9 e+ x, L) q* c7 B+ l
(princ "\nDo rong polyline <")$ P& F) x" B7 u% ^
(princ ha:wid)# A' p0 u& B y! e$ [/ ~
(princ ">: ")
1 E& F# x" \# Z& @- M9 S
(initget 4)
3 X9 C& K8 o8 K6 B% t/ G6 V. Q9 G
(setq ha:wid (getdist))
4 c1 m0 w; x* D9 K
(if (null ha:wid) (setq ha:wid (getvar "tracewid")))4 @1 ^7 N( K W! s0 U$ m8 f5 [
(setvar "tracewid" ha:wid)' H7 J9 S* K- o3 E# y
(setvar "cmdecho" 0)5 A- {7 J' |; X+ f, {/ o: w
(setq sodem 0) 7 O7 r, `2 b- g+ p3 r5 ]
(repeat sophantu
3 p$ V8 ]2 L2 g8 a3 u7 e
(setq a (ssname b sodem)), S& I* B: ^5 J
(setq list1 (assoc 0 (entget a)))# k+ n' L' P# C% d9 q
(cond8 w. G; e2 H* X& G8 w) W
((= (cdr list1) "POLYLINE") (command "_Pedit" a "w" ha:wid ""))
/ K2 x7 p$ ~7 a- W
(PROGN (command "_Pedit" a "" "w" ha:wid "")) )
1 R) l8 s) L; h+ H9 _
(setq sodem (1+ sodem)) )(SETVAR "cmdecho" 1)(princ))3 J0 b) ?& r6 ^( a8 [( ]. V
(defun c:wp () (wp)) (defun c:pw () (wp))0 p* g* k( O8 N4 }& Y/ U8 M! I
0 m6 w v, N! t0 x, B+ t2 u
;; ================ Change radius of circles ==========================
+ d* t9 m3 d1 A ^
' R5 X% n @) d
(DEFUN C:CHR (/ SSET SSL M RD I) (PRINC "\nSelect Circles :") (SETQ SSET (SSGET))
' I% j, W. _+ w' V6 h
(IF (/= NIL SSET) (PROGN (SETQ SSL (SSLENGTH SSET)) (INITGET 4 "") (SETQ RD (GETDIST "\nNew radius : "))
! ?& j( {& Z- ~- j# k* D$ e$ o
(IF (/= RD NIL) (PROGN (SETQ I 0)
5 e- y/ U# g9 ?3 W& t: F. H
(WHILE (< I SSL) (SETQ M (ENTGET (SSNAME SSET I) ) )
2 a9 F! C& I! P$ n) ], ~9 d6 K
(IF (= (CDR (ASSOC '0 M)) "CIRCLE") (PROGN
; o- a7 C. ~, t/ k. A: F. L) X: X
(SETQ M (SUBST (CONS 40 RD) (ASSOC 40 M) M)) (ENTMOD M) ) ) (SETQ I (+ I 1)) ) ) ))) (PRINC) )
" a" H5 ?! j# T% v) g
: r+ o! @, q5 U6 Y' N5 R8 G9 d
;;; ============================== TEXT Hight ===============================
" I* ?, a9 A6 `' W" |2 P
# e: q: x7 L% x) a. }
(defun texthght (/ ent hght)
1 |9 k; K3 n" ^6 |
(setvar "cmdecho" 1)
" O; y( V' H* X7 J Z; G
(prompt (strcat"\nSelect text entity with required text height"))' a: j! I' c# L/ [* X; b
(prompt (strcat"\n."))
" ~# X8 k1 o6 K5 p( N. Z
(setq ent (entget (car (entsel))))6 C2 V- f% R$ y+ Z" N
(setq hght (cdr (assoc 40 ent)))
. D; P3 O+ [- u+ X) I" W8 |
(prompt (strcat"\nText height now set at "))(prin1 hght)* {% G+ a8 _# T! t j$ I- ~
(prompt (strcat"\n.")) 4 w$ w4 f9 i' x* O- n
(setvar "cmdecho" 1)/ ?( r" z5 I& F7 u) u
(command "DTEXT" PAUSE hght "") ) a) l1 z' ?. E) c
(defun c:teh () (texthght)) (defun c:texthght () (texthght))7 J7 Z1 A: A; G3 y k
" Y1 l8 m3 J# l2 f. J4 B, k
;;; ================ BAT -TAT CHE DO GACH CHAN TEXT =================
- \6 h- s5 {3 A9 V, K
9 x2 _) Z$ S& ^+ B* o' ?7 ]
(defun c:tuu () (setvar "cmdecho" 0)
" [5 W; D3 _- N% C- l1 B7 @' {7 l
(prompt "\nHay chon dong TEXT can gach chan ")& B+ Q: t' y2 y' ^
(prompt "\nSelect objects: ")
. Y3 R3 Y4 ^1 H9 N9 J
(command "select" "au" pause)
8 a- Q, P% o; {* h8 `
(setq sstxt (ssget "p")
4 J" D( `& R6 S
sslen (sslength sstxt)# N8 W! Z# @' G% _% n2 G9 m
ctr 0 )
+ t* O4 E6 s/ o0 e5 B, w/ g
(command ".undo" "mark")% o9 z8 P% ]7 O8 t$ M; R
(while (< ctr sslen)
9 x" r2 Q# v$ {4 R
(setq listxt (entget (ssname sstxt ctr))
4 P- | t5 O. f8 b/ m0 N" ^. c
txttxt (cdr (assoc 1 listxt))
$ ^3 w6 _0 x9 x+ i
enttxt (cdr (assoc 0 listxt)) )1 ^% a# y: d# X
(if (= enttxt "TEXT")# L) Y8 K3 b! m! q1 u: }& {
(progn
/ C$ W- L1 S+ F2 V! E
(setq testxt (substr txttxt 1 3))
/ M# G7 F7 ]6 k; [. I X
(if (or (= testxt "%%u") (= testxt "%%U"))9 H. b1 n) D- }, C0 a
(setq newtxt (substr txttxt 4))+ _4 k0 P! W+ j# b) o
(setq newtxt (strcat "%%u" txttxt)) )- [9 A) C0 z9 d1 Y' ~' e1 V4 A
(setq listxt (subst (cons 1 newtxt) (assoc 1 listxt) listxt))8 t& v8 w4 e' ?# Z0 x9 Q7 M+ D) A
(entmod listxt) ) )
' f# Y0 L+ m1 L3 b& w0 x8 d
(setq ctr (1+ ctr)) ) (setvar "cmdecho" 1) (princ)); b; e/ B9 c+ R4 E5 \2 |, T5 ^6 d# \
& D: l* v n: N) H, Y& \
;;; ================ BAT -TAT CHE DO GACH CHAN TEXT =================# G) [5 Q2 f, v: p' g) a
8 X- X" j, h" l2 G$ D
(defun c:tob () (setvar "cmdecho" 0)1 M$ Z2 }% g3 J7 _- c
(prompt "\nHay chon dong TEXT can gach tren dau ")
; H9 M5 b( ?( X, g9 x
(prompt "\nSelect objects: ")/ J3 e) i) A: G3 v
(command "select" "au" pause)
5 P: r# J9 S9 c3 i5 Y3 F
(setq sstxt (ssget "p")0 M* T! ?* |9 K/ a5 p2 N
sslen (sslength sstxt)
H! B; K+ @4 z0 h: X% z
ctr 0 )
9 f2 H" a z/ J1 ^5 M
(command ".undo" "mark")
8 E- V- f% Z V
(while (< ctr sslen)
3 D% _3 Z3 O4 N- d8 ]% ~
(setq listxt (entget (ssname sstxt ctr)); z, ]# _7 z* i: { S- J9 t
txttxt (cdr (assoc 1 listxt))
# s4 e( J1 b0 r2 r/ y6 S# }
enttxt (cdr (assoc 0 listxt)) )
, E% o( c; k# s8 E+ P0 ~" k
(if (= enttxt "TEXT")/ j# J8 x. a1 A: q
(progn/ ?: p' m$ e' o) a' V* g
(setq testxt (substr txttxt 1 3)), n. O5 n# j0 a
(if (or (= testxt "%%o") (= testxt "%%o"))
; m5 ]6 Q6 g, J3 B. i. s# Q
(setq newtxt (substr txttxt 4))+ }) G+ ?0 S" y, y4 P
(setq newtxt (strcat "%%o" txttxt)) )1 N% p% B& g3 g2 q
(setq listxt (subst (cons 1 newtxt) (assoc 1 listxt) listxt))
: p: ?$ b% m* g+ h
(entmod listxt) ) )
+ [# ]" Z/ o& S+ q% O
(setq ctr (1+ ctr)) ) (setvar "cmdecho" 1) (princ))
& U# W; {/ G, N, R7 a
9 [2 Y# H& |2 L# b2 k
;;; ========================== Tim & thay the TEXT ==========================
* @9 r k$ N" Y5 A# | W) B `1 `
- E$ ]1 ^8 Y. j7 @- Q( j
(defun frstring (str search replace / str1 str2 index find)5 D$ N1 P. P7 n/ |, P6 w
(setq index 0) (while (<= index (- (strlen str) (strlen search))) (setq index (1+ index))5 Z# m: m1 X( g% T
(setq find (substr str index (strlen search))) (if (= find search) (progn (setq str1 (substr str 1 (1- index))); y! @, W7 T+ o. }
(setq str2 (substr str (+ index (strlen search)))) (setq str (strcat str1 replace str2)) ) ) ) (setq str str))7 H2 n! F; V- N8 Z% W3 O
(defun hai (/ dial)( X" K2 C+ g8 G" B
(setq dial (load_dialog "hai.dcl")) ;;goi dialog W% r+ y. ~' \1 T" V
(if (not (new_dialog "find" Dial)) (exit)) ;;
; W6 Q$ G: A2 W; b
(mode_tile "find" 2); Tao dau nhac tai hop thoai
4 ^) e. e( l: t
(action_tile "find" "(hai1)")
, O8 G1 F) ?; X+ ?0 z/ K+ g
(action_tile "replace" "(hai2)")
! a& g" y- |" V' K
(action_tile "cancel" "(done_dialog) (exit)")( R. o7 k3 w" T2 }' G- E1 [, |/ [& C1 K! j
(start_dialog) 0 Q$ P r& |6 y, ~0 k! y: ?
(unload_dialog dial))
1 u4 g) P N! c% x, m, M9 A8 R5 S
(defun hai1 () (SETQ str1 (get_tile "find"))); p5 e9 w/ Q8 @
(defun hai2 () (SETQ str2 (get_tile "replace"))). H: i( p1 d/ M) ^* @
T- @% d3 N! [ o& g) w7 h
(defun c:TTT (/ a str str1 str2 newstr taphop sodem)
" k E8 d. T9 h ^7 h( S
(hai)4 p" a& Q, [8 V1 R
(if (or (null str1) (null str2)) (princ "\nDu lieu khong hop le")
Z8 Y4 V% Q; f. ` k8 n* @
(progn9 u q! G6 K5 x; Z# p5 G8 u( Y
(setq taphop (ssget '((0 . "TEXT"))))
' B3 J$ }. K- }
(setq sodem 0)5 c7 ` O: \. C. ?7 O U
(if taphop, b6 ~# o$ Z% J; ~8 c" l
(progn0 Y! s( e/ U# |+ S* i: g. W% E7 N6 T
(Repeat (sslength taphop)
) a. E6 e# e, G6 O4 D# z6 C+ ^$ J
(setq a (entget (ssname taphop sodem)))" P) T5 p: ^1 S/ Y! ?
(setq str (cdr (assoc 1 a))) r0 _ M5 T8 ]/ C
(setq newstr (frstring str str1 str2))+ b9 \& Z, a; s# i1 U% J' R x
(setq a (subst (cons 1 newstr) (assoc 1 a) a))# I5 _5 N: ~- A7 P
(entmod a)
( w1 t' f& M6 \5 H( _4 w% d( [
(setq sodem (1+ sodem)) ) )
) h% R' H3 g) a5 q: B
(princ "\nNone "TEXT" selected") ) ) ) (setq *error* olderr) (princ))/ c- g, A: \( e# P' c: f
3 }. E) J; I% b# z/ R4 R
;;;============================= CHTEXSTY.LSP =============================- M1 e- g' L1 m1 |
* a+ t9 y( z ]. e
(Defun C:TXS () (Setvar "Cmdecho" 0) (Initget 1 "SE ST ")
' A/ w- y: [2 ?! T. K( ^: ]
(Setq G (Strcase (Substr (Getkword "STyle/<SElection>:")1 2)))
2 g. a% ]2 c/ T9 ~' O# ^
(Cond ((= G "SE") (Setq A (Ssget)) (Setq B (Sslength A))4 v, S# l; d- q! A8 u D4 A
(Initget 1) (Setq C (Getstring "\nEnter new text style: "))
3 B- d F ~! x7 O2 P
(Extang C) (While (> B 0) (Setq B (1- B)) (Setq D (Ssname A B))
3 y% [6 Z/ g: A) a2 T2 |' Y
(Setq D (Entget D)) (Setq E (Assoc 7 D)) (Setq F (Cons 7 C))* o2 ` Q7 {/ v0 H
(Setq D (Subst F E D)) (Setq H (Assoc 51 D)) (Setq I (Cons 51 J))
2 u& M- {( O; V# U6 }$ S3 |# P
(Entmod (Subst I H D))) (Setq A nil)) ((Or (= G "ST") (= G "")), B' J. ~0 [ ]# [, K) d
(Initget 1) (Setq A (Strcase (Getstring
: K* t! D- ~+ L3 @1 A$ i
"\nEnter text style to change: "))) (Initget 1)
1 G7 t x- H- B0 w/ E$ k o
(Setq C (Getstring "\nEnter new text style: "))(Setq D (Entnext))+ v& R: ]( a2 U0 H, `" i
(Extang C) (While D (Princ ".") (Setq E (Entget D)) (If
& r1 t) c6 D1 k
(And (= "TEXT" (Cdr (Assoc 0 E))) (= A (Cdr (Assoc 7 E))))
5 @0 n; Z5 R4 t+ V3 r6 L0 ^
(Progn (Setq F (Assoc 7 E)) (Setq G (Cons 7 C))4 z; @+ U9 s" n6 `; G) f8 M
(Setq E (Subst G F E)) (Setq H (Assoc 51 E)) (Setq I (Cons 51 J))4 F0 d- W3 f$ t9 F
(Entmod (Subst I H E)))) (Setq D (Entnext D))))) (Princ)); _( \' U; J: K6 s% B. V
R6 B9 ? n% {- z4 H v
(Defun Extang (A) (Setq A (Tblsearch "STYLE" A))9 T+ J# A+ n* I/ H1 i
(Setq J (Cdr (Assoc 50 A))))
" ]' P. K5 i7 u3 J
# o0 S* n K. ^/ X; t
;;; ============================ DRAW CLOUD =============================. m& L" c; I( ~* U, l U# J* l
. K+ a# z& ~% X1 q! u( q
(defun CLOUD (/ pt1 pt2 arc1 cnt ss la) (setvar "cmdecho" 0)
1 k3 r: t( u6 v% E( @$ d
(prompt "\nVe cloud (may) khong khep kin - Tu khep kin ve diem dau!")4 }' e2 L8 p) F
(setq la (getvar "clayer"))
/ \# o2 I. p0 z
(command "layer" "m" "cloud" "c" "5" "" "")
0 P. _, c O( l5 J
(setq pt1 (getpoint "\nEnter first point of Cloud: "))5 b/ a. {# P. Q0 ~" y/ s e
(if pt1 (prompt "\nProceed in a COUNTER-CLOCKWISE direction..."))- |0 [: m' V: ^9 Q$ F( ?2 [
(setq cnt 1 ss (ssadd))
8 z3 D( T" W$ a4 j# @8 \
(while pt1 (setq pt2 (getpoint "\nEnter next point - and close: "))/ x' }% Z% `1 ?! Q, v
(if pt2 (progn (command "arc" pt1 "e" pt2 "r" (/ (distance pt1 pt2) 1.75))
. s8 t: G- g3 _! K6 q: f3 o
(if (= cnt 1) (setq arc1 (entlast) cnt 2) (ssadd (entlast) ss)) ))
9 f, n9 I+ f1 X2 P8 a; ?) v
(setq pt1 pt2) ) (setvar "highlight" 0) (if (> (sslength ss) 0)
" t- A5 {. D) g K: R% v) x3 |+ A
(command "pedit" arc1 "y" "j" ss "" "x") G5 ~- V; Q; \: a' ~# c
(if arc1 (command "pedit" arc1 "y" "x")) ) (setvar "highlight" 1)6 c7 c0 e$ m# r' D# R# P1 e. n5 N( ~
(command "layer" "s" la "") (setvar "cmdecho" 1) (princ)) 2 O, @+ L" w1 S7 D
(DEFUN C:CLOUD () (CLOUD)) (DEFUN C:CLO () (CLOUD))
. @( h+ d+ b: T: {
8 n/ J7 v- v; d& C2 E
;;; ================================ Funtion-Dulieu ========================
0 n5 `! |9 a/ x& M8 ?
;;; ================================ Funtion-Dulieu ========================# M1 M( R1 X! p* D# y
;;; ================================ Funtion-Dulieu ========================
p9 u# T/ U! k
5 s8 P) t$ c/ C M
(defun ha:nhap (kytu thamso) (princ kytu) (princ thamso) (princ ">: ") (setq key (getint)) (if key (setq thamso key)) (princ thamso) ) J, ?. ~2 Z* m/ |
(defun ha:thoat () (reinit) (setq Temp "Da thoat khoi chuong trinh"))) m1 K9 w& C R* _& F o
(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))
$ y; O; \ j8 I- C
(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) )( J0 i, z; j. K
(defun hauon (hauon1 hauon2) (command "fillet" hauon1 hauon2))
/ D3 N% {" W/ b+ x# W- v+ R/ I
(defun init () (setvar "blipmode" 0) (setvar "cmdecho" 0) (setvar "angbase" 0))6 Y l) I7 a, z7 x
(defun reinit () (setvar "cmdecho" 1) (setvar "osmode" 0))7 M) c! G* j. T5 {
(defun tichvecto (vecto1 vecto2) (apply '+ (mapcar '* vecto1 vecto2)))2 S' \4 A* T- U3 i# z% n2 {* Z3 h8 I
(defun vectophap (v01 v02 / vectochiphuong) (setq vectochiphuong (mapcar '- v01 v02)) (list (cadr vectochiphuong) (* -1 (car vectochiphuong)))) [5 j4 ]! h7 B; y! C/ a
(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)))
9 |" R! F# I& |
(defun dtr (dtr) (* pi (/ dtr 180.0)))2 x% P1 t/ {7 y
(defun rtd (rtd) (* 180.0 (/ rtd pi)))
" O- y5 B, U8 \; [8 O
5 H5 N, r, w: T' l
;;;==============================PROGRAME===============================7 n, E. L: p- ^" b) m
;;;=====================EditDiM Hien Hop Thoai Dep======================, U2 q4 l# o0 A) }( F
;;;==============================PROGRAME===============================
, q! F0 s$ J; n) P
( p0 C$ p6 b7 q% l; d
;;Dth Edit Text, Dimtex & Attributes(Chu Co Thuoc Tinh)
8 C+ N- f* |7 A: O, ]
;;Chay Cung Du Lieu.Lsp & Hai.Dcl K& g+ j; @& i9 v* A
(Defun Hai_Edim (Chon / Dial State Str Oldlis Dimdefault Pt10 Pt13 Pt14 St Ang Dis Pt Hc)
1 { V, j. i$ V6 M+ e
(Setq Oldlis (Entget (Car Chon))
9 p' a. ?% y3 j) D& U/ u8 s# k
Pt10 (Cdr (Assoc 10 Oldlis))4 V& k- o/ {5 q: a5 }+ R* d
Pt13 (Cdr (Assoc 13 Oldlis)). |0 A7 g8 K7 }( a$ }( u1 I8 y
Pt14 (Cdr (Assoc 14 Oldlis))7 ?, O4 v8 j. o' c9 }
St (Cdr (Assoc 70 Oldlis)): k- g+ g% z i( O9 M8 k ^! v4 C
Dimdefault (Cdr (Assoc 1 Oldlis))" r+ g! e- j$ Q2 Z" a
)2 d& J% K" O) ~3 B8 E
(Cond4 E! R0 _6 M! T7 @& p
((Or (= 32 St)(= 0 St)(= 160 St))
8 Z# h* V8 A) L0 f0 x' k3 X
(Progn9 d8 f; |) ^! p+ R Z! P9 }& S9 B
(Setq Ang (Cdr (Assoc 50 Oldlis))
0 V* ?7 S7 V& ^( Y) t
Pt (Polar Pt13 Ang 500)
0 `) ^' i0 Y+ \
Hc (Lay_Hinh_Chieu Pt10 Pt13 Pt)
+ ^, N, e8 J9 Q! T0 ^5 J
Dis (Rtos (Distance Pt13 Hc))
) a& W* [) ^2 M N/ h; c7 I) S. h
): S) u9 N/ [5 W# f4 ^! g- R
) L" s' H: ]: q# V. S F
)
: I; S% e3 O8 {8 c" h& w) `# n4 F
((Or (= 33 St)(= 1 St))1 l7 ^1 D4 @& a, q/ y
(Progn(Setq Dis (Rtos (Distance Pt13 Pt14)))))3 H7 Z1 i/ u2 }$ F& z6 D
);;End Cond
2 e5 e+ D" }" Y2 Z
(If (= Dimdefault "") (Setq Dimdefault "<>")). \0 M" t9 R- B6 x7 d! Y
(Setq Dial (Load_Dialog "Hai.Dcl"))- ]6 |- S; k7 J. ~) r4 {. T& }
(If (Not (New_Dialog "eddim" Dial)) (Exit))
5 Z# M1 R+ D/ ?7 R
(If (Or (= 32 St)(= 0 St)(= 160 St)(= 33 St)(= 1 St))$ |: V" Y2 j l' y2 J$ _, Z2 L
(Set_Tile "text" Dis))9 }, r3 d. i, l( M4 Z i0 {9 m; a
(Set_Tile "ha:edim" Dimdefault)( U8 C6 E6 }% x7 U1 P4 X3 X7 i2 ?
(Mode_Tile "ha:edim" 2); Tao Dau Nhac Tai Hop Thoai, x* x# s0 p2 m# k, u3 C X
(Action_Tile "ha:edim" "(Setq Str (Get_Tile \"ha:edim\"))(Done_Dialog 3)")
|- v6 a! C {* Z9 a7 f
(Setq State (Start_Dialog))(Unload_Dialog Dial)
1 x, W& s/ h, T* k' X! V
(If (And Str (= 3 State))3 x. B% l5 {7 V: M( }. e& W
(Progn
# \" d" N2 K8 b$ {% W
(Setq Oldlis (Subst (Cons 1 Str) (Assoc 1 Oldlis) Oldlis))(Entmod Oldlis)))
" i6 w' X: H0 q$ _& { G
)! z& B) ^4 e8 C6 u
(Defun C:EH (/ Chon Name )
" ], ]- @. g* d0 q5 ]3 c6 E: L: f
(Defun *Error* (Msg)+ A: g+ W( X6 a) h9 r% D
(Princ "\nerror: ")(Princ Msg)(Princ " ")
1 P5 b5 u! V3 e# t' j% I4 `0 t
(Start_Dialog)(Unload_Dialog Dial)8 b! n S d; T' t
(Setq *Error* Olderr)(Princ)
' }# d: W9 {3 L, ?. e2 P+ D3 T
)
4 T$ M& r0 E8 ]& w+ y- a
(Setq Olderr *Error*)
3 O1 k1 W. R6 f, L" J: P
(Setq Chon T). `( G. `9 h8 W* X
(While Chon6 ]3 \% s! V+ d9 Z' U- q. @3 t
(Setq Chon (Entsel "\n\n\nSelect Text, Dimtext Or Attributes To Edit..."))
! F+ B% a) B) S( ?
(If Chon
0 z9 _2 b0 h$ G" b, y' d
(Progn2 T3 @5 \; T. s+ }
(Setq Name (Cdr (Assoc 0 (Entget (Car Chon)))))7 G" b# l* J/ `1 j0 L" l
(Cond
: R# o( C9 A5 u8 t7 `; Y3 [1 x
((= Name "INSERT")(Command "Ddatte" Chon)); R) D% o0 ]1 C [. ^* Y- n9 G# _
((Or (= Name "TEXT") (= Name "ATTDEF") (= Name "TOLERANCE") (= Name "MTEXT"))(Command "Ddedit" Chon ""))1 D% X" H3 G8 H; `
((= Name "DIMENSION") (Hai_Edim Chon))
9 G0 n9 B) d" F$ r8 W- ]
)! \2 O+ _ d, }; p* K3 g
);End Cond" w( W; ~5 ^$ ]. t2 f+ x1 R9 m
);End Progn, w! k: l' O/ y5 ?/ w3 n9 c+ B# N
);End While& s/ M- ^! a- {( h, L
(Setq Olderr *Error*)(Princ)' V/ \- s0 n% e7 |
);End Program8 X) \9 k" a1 L- s+ W! i" \
0 C" X. C* O( X- ?% M5 `0 A" r
;;;====================DDeditDim=====================8 J' n* h6 `2 q9 D( v) a' J+ w1 a2 Z
;;;=====================Hai.DCL======================9 d5 |+ D+ T7 T: }+ P& e
;;;====================DDeditDim=====================5 b" }! k5 m+ r. o5 P0 r% e
0 H% |4 h- E9 x/ U
;;Dth Edit Text, Dimtex & Attributes(Chu Co Thuoc Tinh)5 _ i" ?6 T+ t9 M- ?- a9 l* _7 {
;;Chay Cung Du Lieu.Lsp & Hai.Dcl
$ F' g& Y9 H/ l) M! ?4 J9 e, l
(Defun Hai_Edim (Chon / Dial State Str Oldlis Dimdefault Pt10 Pt13 Pt14 St Ang Dis Pt Hc)! F5 r/ Y5 `# V
(Setq Oldlis (Entget (Car Chon))' J, D2 q* Q* |$ C
Pt10 (Cdr (Assoc 10 Oldlis))
& B( _3 v+ f) h1 w; y! v
Pt13 (Cdr (Assoc 13 Oldlis))# [. L& X' F8 p7 p: V* g3 ^
Pt14 (Cdr (Assoc 14 Oldlis))5 E+ d- l- u' Y7 }4 r3 j
St (Cdr (Assoc 70 Oldlis)) n8 O- S4 |- D! u8 u) @! G! J
Dimdefault (Cdr (Assoc 1 Oldlis))
' u0 a2 a \# b( A. W5 c& `
)
6 T- n. J4 H$ q, [; ~
(Cond, @6 |' h/ {3 D$ T4 c6 A
((Or (= 32 St)(= 0 St)(= 160 St))* H* d; x( J: Y7 G. D! b6 a
(Progn) u8 P8 |0 \* ?; y% C- J
(Setq Ang (Cdr (Assoc 50 Oldlis))
5 v) u; z8 c. l6 q7 N
Pt (Polar Pt13 Ang 500)3 x( C# n. r; v. S0 {
Hc (Lay_Hinh_Chieu Pt10 Pt13 Pt)" |- K2 _* E* t( y7 l; D4 n6 ^
Dis (Rtos (Distance Pt13 Hc))6 S: k% r+ e$ X: J. R8 `
)
& V. b- s% J+ M! l6 C+ A% Z% q
)
+ _7 |" w2 Q, i+ L, H" Q1 c! p; W
): _' j$ V9 G& j9 K% e( R
((Or (= 33 St)(= 1 St))
+ ~# h$ i8 |! I" Q5 W
(Progn(Setq Dis (Rtos (Distance Pt13 Pt14)))))2 k3 ~( g0 B' r8 W
);;End Cond4 t' [5 Q1 w! ?" A( M# n. b& @* S
(If (= Dimdefault "") (Setq Dimdefault "<>"))4 L. ?; }+ }* `: l5 N9 e
(Setq Dial (Load_Dialog "Hai.Dcl"))
; U8 Z6 |( d' @& C# Q9 @* P
(If (Not (New_Dialog "eddim" Dial)) (Exit))
2 r4 [1 I' l! G0 X: }+ x; P7 B, g
(If (Or (= 32 St)(= 0 St)(= 160 St)(= 33 St)(= 1 St))- h! S1 X8 G1 L& @
(Set_Tile "text" Dis))
$ L" x$ ^! s# G! V
(Set_Tile "ha:edim" Dimdefault)
+ }3 D$ z6 o. L. T- h
(Mode_Tile "ha:edim" 2); Tao Dau Nhac Tai Hop Thoai, x5 j8 ^/ @ w2 Z& H! v
(Action_Tile "ha:edim" "(Setq Str (Get_Tile \"ha:edim\"))(Done_Dialog 3)")+ d+ |$ y; R( n* o$ R' p
(Setq State (Start_Dialog))(Unload_Dialog Dial)
, ~7 S. N0 E% r
(If (And Str (= 3 State))
$ j- d9 z+ N" I, o: r5 y
(Progn
$ U/ a2 M7 }- h
(Setq Oldlis (Subst (Cons 1 Str) (Assoc 1 Oldlis) Oldlis))(Entmod Oldlis))). o X( m ^. \- Y) y3 n+ u
)5 B3 b. c( A- |( L3 H- Y* `& w0 _
(Defun C:EH (/ Chon Name )
' J9 ^2 ?( { I" C/ ?! v) u5 a- ?
9 u1 m$ L8 |4 R4 [% ~" \, d
;;;********************Du Lieu********************! {+ \' t* M4 c( G! L! N' H
9 G' y: a' e7 P, n1 x& c
(Defun Ha:Thoat () (Reinit) (Setq Temp "Da Thoat Khoi Chuong Trinh"))
# ^6 t: U9 p" f: m6 Y# z3 Z
(Defun Hacat (Hacat1 Hacat2 / Hacat3 Chon), u% J9 b% C1 B
(If (And (/= Hacat1 Nil) (/= Hacat2 Nil)). J- V( A& E: P/ f2 S; _" ^
(Progn# ?$ ^1 T" F5 N' n a/ d& }1 U
(Setq Hacat3 (Polar Hacat1 (Angle Hacat1 Hacat2) (/ (Distance Hacat1 Hacat2) 2)))
4 E- K+ Y8 O4 E/ L: N2 g
(Setq Chon (Ssget Hacat3))
5 W8 K: F; `' l) }
(Command "Break" Chon Hacat1 Hacat2)+ w- h: ^- i1 Y9 V0 ]
)3 L% G C& V2 u+ b' g2 {6 t
)
7 v* N+ o3 T1 r( j. G5 p' j8 M
(Princ)3 }5 {0 [4 k w7 `
)1 g9 Z$ `$ b3 z! C4 {3 ?# @
;; t, A3 J9 R- O- e$ l+ ~7 Q
(Defun Hauon (Hauon1 Hauon2)(Command "Fillet" Hauon1 Hauon2)) N. |: N: J4 N: e2 {
;;
. L, F+ A9 O! I) I/ h; H- c) F
(Defun Taolop (Mau Lop / A)(Setq A(Tblsearch "Layer" Lop))(If (Null A)(Command "Layer" "_N" Lop "_C" Mau Lop "")) (Setvar "Clayer" Lop))
( R8 k7 G5 [3 H& n+ o/ J+ d7 H
;;
+ i& n# [0 K3 c; g+ L5 A
(Defun Init ()(Setvar "Blipmode" 0)(Setvar "Cmdecho" 0)(Setvar "Angbase" 0))
7 Q7 Q: X# ]2 M$ m9 A V
;;7 k2 q X, o4 D! m9 n# s) v" i& o
(Defun Reinit ()(Setvar "Cmdecho" 1))
s y! z5 |5 F+ Y9 J5 l
;;1 |8 R% C! m4 h+ [( D) Z8 \' X5 `
(Defun Tichvecto (Vecto1 Vecto2)(Apply '+ (Mapcar '* Vecto1 Vecto2)))
0 `0 ~+ h; ~: S3 \$ o$ ~3 o! C
;;
" X7 D4 Z( g8 k' K2 Y% W
;;Cho 2 Diem Tinh Ra Vec To Phap! r) [( {* f1 N" z' `
(Defun Vectophap (V01 V02 / Vectochiphuong)(Setq Vectochiphuong(Mapcar '- V01 V02)) (List (Cadr Vectochiphuong) (* -1 (Car Vectochiphuong))))
7 B. R% }3 c2 N, l: M
;;Xac Dinh Vi Tri Hinh Chieu 1 Diem Len 1 Duong Thang6 b- u% I- p9 y% C: d
;;Da Biet 2 Diem Thuoc Duong Thang! M! w; ^) a5 Y7 ?# F
(Defun Lay_Hinh_Chieu (Dc1 P1 P2 / Hc Dc2) s1 U5 H# Y. X+ J d) e8 n" {3 g
(Setq Dc2 (Polar Dc1 (+ (/ Pi 2) (Angle P1 P2)) 100)
! A( c3 g" N. m! C
Hc (Inters P1 P2 Dc1 Dc2 Nil)))
2 ^( v% R# ^) c- d( E. y' d! n
;;Xac Dinh Khoang Cach Tu 1 Diem Len 1 Duong Thang
% n! }# x% c% `. t+ g7 n
;;Da Biet 2 Diem Thuoc Duong Thang
0 g$ Q% {& Z- m# d
(Defun Khoangcach (Dc1 P1 P2 / Dc2 Hc) ?% g6 K8 K, W
(Setq Dc2 (Polar Dc1 (+ (/ Pi 2) (Angle P1 P2)) 100)
/ K& e8 F" l/ C1 Q: C
Hc (Inters P1 P2 Dc1 Dc2 Nil))9 _2 }& b l0 Z' l: |5 ]! \
(Distance Dc1 Hc)
. d$ R/ g4 S! h' x8 l
)
1 r$ {2 K3 X# V6 y* q/ a* I
(load "nhapcua.lsp")% g" \/ W# f' z' n+ b
(Defun *Error* (Msg)
( t4 M& {' E9 C/ z; e# F4 g# B
(Princ "\nerror: ")(Princ Msg)(Princ " ")
2 G* i+ d' r8 J1 E/ H, n$ N3 q
(Start_Dialog)(Unload_Dialog Dial)0 E0 J6 s2 p( A! E
(Setq *Error* Olderr)(Princ)
) i2 z! C5 H9 L
)
. e) t* a9 t6 ~3 [3 U9 H8 e
(Setq Olderr *Error*)5 _4 }( Y' e5 X& a+ @! c
(Setq Chon T)
9 p7 S, G3 ?9 M. s0 o M. \
(While Chon
; N) o, C4 I: I( l* ~
(Setq Chon (Entsel "\n\n\nSelect Text, Dimtext Or Attributes To Edit..."))
! k0 C3 U4 T; h; d* v
(If Chon) x4 S# T6 F; `' V
(Progn
/ U3 |: _6 M+ g* k
(Setq Name (Cdr (Assoc 0 (Entget (Car Chon))))) F1 }# e0 }, t X8 \' }+ x
(Cond
) H1 _3 e5 L- n' B/ R
((= Name "INSERT")(Command "Ddatte" Chon))
- C1 E' O$ `. i* \0 w9 K, Z
((Or (= Name "TEXT") (= Name "ATTDEF") (= Name "TOLERANCE") (= Name "MTEXT"))(Command "Ddedit" Chon "")): ?& x7 C6 k9 F2 u
((= Name "DIMENSION") (Hai_Edim Chon)), O9 w0 d2 p# s0 E1 G
)
8 g2 e% ^9 u& A% b6 e7 ]/ j
);End Cond
6 s0 n3 R. B1 j) `# R0 t+ |; v8 k
);End Progn
6 j0 }1 }2 g+ l/ W5 Z, ` v
);End While
7 {9 _2 v: _5 o A2 P3 Z
(Setq Olderr *Error*)(Princ) `9 u5 F7 g! F/ v7 @6 ]: B" x
);End Program
- t. `7 `7 D/ N& p5 t6 J7 j
7 r6 S$ ^5 i. t4 I0 L
;===================HAI DCL Nhapcua.LSP De chay Hop Thoai EditDiM===================
$ M# r) a% r9 f3 T- L
;====================================Nhapcua.LSP====================================
" b/ O2 T# i5 H' G; T' o5 K. ~
;===================HAI DCL Nhapcua.LSP De chay Hop Thoai EditDiM===================
2 }! c0 g/ k2 z8 u
3 ?' `, p* a3 b
- o, C+ m! o9 r* k4 w
* h& ?. E5 Q2 ]( t! S5 x8 Q s" d; ~
;*******************;*******************;*******************;*******************
4 Q* g. W) Z# O* t' U# l
;****K E T C A U****;****K E T C A U****;****K E T C A U****;****K E T C A U****' q4 s6 D6 w' |; C" [
;*******************;*******************;*******************;*******************
1 V* @2 x% ^" J3 T0 v
- e8 `9 R: p. G& k
;VE HINH BINH HANH
+ ]3 V" q' z; \+ Q3 \
" ?2 s% l* W, R% p. v" g
(defun c:binhhanh (/ p1 p2 p3)5 N, A6 j4 |4 W8 R* q3 @
(setq p1 (getpoint "\n Nhap diem thu nhat:"))
! k2 R9 f3 }5 i1 O4 ~
(setq p2 (getpoint p1 "\n Nhap diem thu hai:"))
; `: K8 b! X/ Y7 d. i
(setq om (getvar "osmode"))$ }; x3 z% C* K( Y( y7 D
(setvar "osmode" 0)7 B/ ^, O2 a! y
(command "line" p1 p2 "")
- o/ |3 s# z! H8 R" k( s
(setvar "osmode" om)$ {! s" V! G4 w* Y* t5 D H6 ~
(setq p3 (getpoint p2 "\n Nhap diem thu ba:"))# c$ X4 k- O/ `9 K7 K/ B, ~1 j
(setq a (angle p2 p1))
& H1 U2 B! u; B
(setq d (distance p1 p2))( b# J3 \& Y4 a- z- I# I6 w" X4 ?
(setq p4 (polar p3 a d))
7 G4 R9 W% y0 `* X7 X. f
(command "OSNAP" "none")
: x0 A% w( E- B( n+ e4 z' t6 l
(command "erase" "l" "")6 L% k N9 d, {! q( o; R7 x4 p, K
(command "pline" p1 p2 p3 p4 p1 "")
4 x6 ]4 A, Q# I2 {6 V+ |
(setvar "osmode" om). _+ H; {- D5 F# ]2 M' F
)
/ J& |7 A$ @& Y7 X- y5 v4 G$ Q
6 `9 r; e5 ~# z
;VE LUOI COT- C5 ~5 v9 m: w
s. J, t2 b, r+ A- K
(defun c:LuoiCot ()
* r; }8 Z; u! @5 R7 v
(setq om (getvar "osmode"))! O/ \: K. @4 b2 d
(setvar "osmode" 0)
, t2 q P$ [. Z' i) S* N
(setq tile (getreal "\nCho biet Ti Le ve 1/x, x="))+ l+ Q! \( k7 |- ^9 R) @
(setq p0 (getpoint "\n Chon Basic Point:")); Y' H8 b! w3 Z
(setq nc (getreal "\n Nhap chieu ngang cua cot : "))2 h/ \) S( q9 F' A; K" D; N7 Q
(setq dc (getreal "\n Nhap chieu doc cua cot : "))
& J J9 O. S1 a; N, k% ^
(setq p1 (polar (polar p0 pi (/ (* nc hstl) 2 tile) ) (* pi 1.5) (/ (* dc hstl) 2 tile) ) )
: w2 {6 {) B3 f3 U- b- i" y. t4 T
(setq p2 (polar (polar p0 0 (/ (* nc hstl) 2 tile) ) (* pi 0.5) (/ (* dc hstl) 2 tile) ) )
7 R6 A: v! j- \0 [+ K
(command "rectang" p1 p2)
1 e* N( h) _& n6 |" F& @" H
(command "hatch" "solid" "l" "")
4 D! V: r b3 k3 t2 P
(setq bcn (getreal "\n Buoc cot theo phuong ngang : "))
$ y/ ~. R3 a. P1 q9 B
(setq nn (getint "\n So buoc cot phuong ngang : "))* j& F. L- s ?0 D% H2 H
(setq w1 (polar (polar p1 pi (/ (* nc hstl) 2 tile) ) (* pi 1.5) (/ (* dc hstl) 2 tile) ) )( G* x Y" J& o, a1 ]6 f
(setq w2 (polar (polar p2 0 (/ (* nc hstl) 2 tile) ) (* pi 0.5) (/ (* dc hstl) 2 tile) ) )1 Y6 \: A3 G* F& S: y
(command "select" "w" w1 w2 "")- }: y& E- D8 N
(command "array" "p" "" "r" "1" (+ nn 1) (/ (* bcn hstl) tile) )
2 z1 y9 k- T( I; A$ i# i
(command "line" (polar p0 pi (/ (* 1000 hstl) tile)) (polar p0 0 (/ (* (+ (* bcn nn) 1000) hstl) tile) ) "")$ N& `0 n3 t" O: {' W5 ~$ k! Q
(setq w1 (polar (polar p0 pi (/ (* hstl 2000) tile)) (* pi 1.5) (/ (* hstl 2000) tile) ))
" p" z1 G' g# h0 M! x
(setq w2 (polar (polar p0 0 (/ (* (+ (* bcn nn) 2000) hstl) tile) ) (* pi 0.5) (/ (* hstl 2000) tile) ))8 z( f2 q- i1 [6 ?
(command "zoom" "w" w1 w2)/ c3 Y- ?% Z) A0 _; Y
(command "select" "w" w1 w2 "")
' L+ x2 i0 o% r. ]5 X
(setq bcd (getreal "\n Buoc cot theo phuong doc : "))
3 B) U& m" e/ G* a3 F# U/ d2 O
(setq nd (getint "\n So buoc cot phuong doc : "))
7 o0 d; F: q8 e' Q1 ^
(command "array" "p" "" "r" (+ nd 1) "1" (/ (* hstl bcd) tile) )6 F2 [% Z, J1 m. a5 z- `" S2 I5 u" d* v
(command "line" (polar p0 (* pi 1.5) (/ (* hstl 1000) tile)) (polar p0 (* pi 0.5) (/ (* (+ (* bcd nd) 1000) hstl) tile)) "")
2 P2 _ j9 D0 P2 M- |
(command "array" "l" "" "r" "1" (+ nn 1) (/ (* hstl bcn) tile) )6 r9 F4 {. M7 a- j
(setq w2 (polar w2 (* pi 0.5) (/ (* (+ (* bcd nd) 2000) hstl) tile)) )
* i ?8 d o# H
(command "zoom" "w" w1 w2)
+ `, I3 [: H* e0 f( v! w/ k6 T
(setvar "osmode" om)
1 g! D2 x6 ~0 H) s6 U
)
- I" X; K1 J! g$ ?, u- ]( Q6 p
3 C/ E9 G4 E, Y* D1 {$ Q1 D5 ?; R4 b
;VE CUA DI2 B, a0 O0 X' b: F) s' z' Q! U& m
) B; N' b2 }' V) u3 ?& o4 g! `7 I
(defun c:cuadi (), n7 y9 @3 {$ N6 I
(setq om (getvar "osmode")); b/ {) t8 Q- z
(setvar "osmode" 0)
# ]3 F; Y5 Z2 t; Q8 P, g4 F: h
* I# x$ r1 m6 s; K
(setq tile (getreal "\nCho biet Ti Le ve 1/x, x="))
0 v Q$ d2 [2 u P$ h
(setq b (getreal "\n Nhap be rong cua : "))
2 F+ U/ ~7 S p% P" E* ]
(setvar "osmode" om): ^* j7 G7 `: x' t X5 k
(while (< 0 1)& \* w: B( Q" T X g
(progn) d$ ` Z- f" j7 G* Z
(setq p0 (getpoint "\n Chon Basic Point:"))
# R, [6 G5 N7 A8 f
(setq p1 (getpoint p0 "\n Chon diem de xac dinh huong cua cua:"))
, V% Z6 n+ V+ T: I& f8 k) a3 i. M# m
(command "osnap" "none")
: _ W5 U& r* m8 g& \+ m* G
(setq p2 (getpoint p0 "\n Chon diem de xac dinh huong mo cua:"))7 ~- K& [( ]; u3 ] u5 G* K! F2 ] X8 q
(setq a1 (angle p0 p1))
! v. \2 k" K1 U. ~) Q
(setq p1 (polar p0 a1 (/ (* hstl b) tile)))
# {7 B5 T+ F3 W0 }- a. [
(setq a2 (angle p0 p2))
$ N& ?# }+ q2 U$ s$ I o3 i+ [# c
(if (< (- a2 a1) pi) (setq a3 (+ (/ pi 2) a1)) (setq a3 (- a1 (/ pi 2))) )4 F2 u2 \+ ~) u. M. @( P% M
(command "pline" p0 "w" "0" "0" p1 (polar p1 a3 (/ (* hstl 40) tile)) (polar p0 a3 (/ (* hstl 40) tile)) p0 "")
' j2 L) t! s: `6 L1 e
(command "rotate" "l" "" p0 (/ (* (- a3 a1) 180) pi))
5 P5 \1 ?/ y$ a# f5 [; V
(command "arc" "ce" p0 p1 "a" (/ (* (- a3 a1) 180) pi))
; `1 v) ]" [6 g) B* ?4 z
(setvar "osmode" om)
( n& M5 `& \+ y- W8 U2 `8 C
))
; S" ^1 R1 i0 Z& m& ?% M9 K
)
- X* C4 ~* ?! l5 R+ c
) e3 z. \! E% L: j1 s- I
;VE CUA SO
3 Z2 {( J k+ \5 Y/ O
. _) z9 [& u% b2 ^9 E b9 K
(defun c:cuaso ()9 c+ W; ~' \7 f) F7 i! i1 p) t
(setq om (getvar "osmode"))
* D/ v7 r% w% ~+ j0 j$ d8 K* i! [
(setvar "osmode" 0)% ]" A% E6 x# G: G
3 o3 t" V- h5 p9 O/ ~. f' l- h
(setq tile (getreal "\nCho biet Ti Le ve 1/x, x="))" H1 e/ z; d9 O$ ]) L1 M
(setvar "osmode" om): f6 |0 Q; P3 v/ g! q
(while (< 0 1) U7 V& S9 K# H! O4 H
(progn
9 d( f! O& h2 y9 ^# Q
(setq p0 (getpoint "\n Chon Basic Point:"))
5 Q H" q0 ] }# R4 ^; k5 {2 A
(setq p1 (getpoint p0 "\n Chon diem de xac dinh be rong cua:"))4 Y5 c1 c; T2 l) [! q+ M
(command "osnap" "none")/ c: k& K/ y& C
(setq p2 (getpoint p1 "\n Chon 1 diem o trong nha de xac dinh huong cua so:"))
3 q Q7 h+ t& }
(setq b (distance p0 p1))# s3 N( j' i5 U8 g# o$ Q8 @( ?
(if (< b (/ (* hstl 600) tile)) (setq du 50))
( N) v' X6 Y q
(if (> b (/ (* hstl 600) tile)) (setq du 150))$ D. Y! Q; G+ H# A% R: m; K8 h- W
(if (> b (/ (* hstl 1800) tile)) (setq du 200))
- R; U' g/ j% E3 c H7 o6 z$ Y
(setq a1 (angle p0 p1))
; I0 m/ z# [/ C
(setq a2 (angle p0 p2)) d- J& ]% Y0 c* g: R7 ^: u
(if (> a2 pi) (setq a2 (- a2 (* pi 2)) ) )
$ f) b9 h+ ?$ C- M& T! `
(if (> (- a2 a1) 0) (setq a3 (+ (/ pi 2) a1)) )+ G5 v4 Z2 q# }, O
(if (> (- a1 a2) 0) (setq a3 (- a1 (/ pi 2))) )
+ Z" e# Y/ |9 n* s. n, {$ T( X
(command "pline" p0 "w" "0" "0" p1 "")
/ g }+ H* a. w0 D I/ r" s% q
(command "pline" (polar p0 a3 (/ (* hstl 50) tile)) (polar p1 a3 (/ (* hstl 50) tile)) "")
" V2 J* S2 n; _) ~
(command "pline" (polar p0 a3 (/ (* hstl 100) tile)) (polar p1 a3 (/ (* hstl 100) tile)) ""), H2 r/ U7 D$ \% w2 U
(command "pline" (polar p0 a1 (* (- du) (/ hstl tile))) (polar (polar p0 a1 (* (- du) (/ hstl tile))) a3 (* -100 (/ hstl tile)))
: w V9 x$ ~; e9 y% k
(polar (polar p1 a1 (* du (/ hstl tile))) a3 (* -100 (/ hstl tile))) (polar p1 a1 (* du (/ hstl tile))) "")
$ v/ f( b6 k8 K/ s
(setvar "osmode" om)) R+ E; @7 Y$ f# A3 r# D& n1 @
))
& ^ v2 a; y2 ?2 ^8 D& h0 q7 F
)3 M8 Y# ^- h" t6 F; ]9 o4 E% H
" S6 @& l0 @9 q
;;;=== General Utility Functions ===; r3 ^& I9 ^7 I. x# Y- C; v
; |9 i/ q! W m
; R12 compatibility - In R12 (acad_helpdlg) was an externally-defined . d9 q# b% m6 h
; ADS function. Now it's a simple AutoLISP function that calls the
$ [* J) b( s5 p- E
; built-in function (help). It's only purpose is R12 compatibility.
0 c8 o) s& z( ]3 m- H
; If you are calling it for anything else, you should almost certainly
1 j) d) G( I6 m
; be calling (help) instead. 0 p z/ W" p+ J9 |# F
1 h5 H& u3 p0 z1 W6 K3 Y) |# Z# ?, n
(defun acad_helpdlg (helpfile topic)" e2 t% ?" W8 {$ j7 u" m' v& v G
(help helpfile topic) [9 y5 f7 o$ `( E9 }, q/ A; [: _
) M% w0 A+ q2 j* l- K
* n2 B0 U8 D* K" O
1 \. q: S' ^. ^0 Y
(defun *merr* (msg)" s6 t: H0 H' C" P
(setq *error* m:err m:err nil)
) U9 c& _! h3 d! W `
(princ)
' ]/ b. Z- k( C. P* B* I6 k
)' J5 t2 i+ x& Y4 l' C
1 [" H: O# O# s
(defun *merrmsg* (msg)6 O& z) L6 ^: b/ l
(princ msg)% d" I1 ^. E" ?0 y C% K! ^2 ?1 |
(setq *error* m:err m:err nil)
" g" u2 u0 t n
(princ)( G2 B/ D; ~1 P6 ?# j, Q! X" Q. P" Y r
)
' I/ }' k; [* A" s. Y
' g! j% x; @5 B* E% t
;; Loads the indicated ARX app if it isn't already loaded
( L" q3 L6 z ?: S# N
;; returns nil if no load was necessary, else returns the
+ H0 Z3 \, G* L( u& V; l; ?2 O) M
;; app name if a load occurred.
9 M2 _7 {9 y s
(defun verify_arxapp_loaded (app) 3 w2 U4 q4 T1 z6 w, T
(if (not (loadedp app (arx)))- Q! X/ m6 `% w# Q
(arxload app f)4 Y9 X" } E% ~1 w( _2 w6 l) U
)
0 [/ W3 e" @: ~0 {
)
$ @: S; i9 v- H0 {+ s
/ n5 U" @8 C* o2 h, V
;; determines if a given application is loaded...% `" T% w& h; r E& u
;; general purpose: can ostensibly be used for appsets (arx) or (ads) or....
* S: \5 ~. W7 K8 r i' ^; ~
;;& t& q2 S* W; ~$ r) Y
;; app is the filename of the application to check (extension is required)
& {9 s1 S. |/ r7 ~' |, W( B
;; appset is a list of applications, (such as (arx) or (ads)' |8 `/ j* ~! j* ^) F8 v7 l. }9 M
;;
1 t* P( q( z: a4 {$ {) Y
;; returns T or nil, depending on whether app is present in the appset) Y+ C" x0 H4 y) h+ M' n% Q
;; indicated. Case is ignored in comparison, so "foo.arx" matches "FOO.ARX"
. B6 Q* u G4 N, y `
;; Also, if appset contains members that contain paths, app will right-match
% W J8 v& r6 j9 e6 B
;; against these members, so "bar.arx" matches "c:\\path\\bar.arx"; note that y& \, L: P% ~. C$ h
;; "bar.arx" will *not* match "c:\\path\\foobar.arx."! T( k: [: k- A( \6 y
(defun loadedp (app appset)
I0 Z- L( x) V( T7 q
(cond (appset (or
# u/ s2 W7 ?# U4 _8 p/ h/ n8 n
;; exactly equal? (ignoring case)% J3 E. b6 Q- a: l z! ?
(= (strcase (car appset))( _/ _ L4 \4 x1 g' n6 x. o
(strcase app))
8 S, O. ~! ~# k7 z* N! H a% U" C% I
;; right-matching? (ignoring case, but assuming that
" h6 C0 y- e: v! L
;; it's a complete filename (with a backslash before it)
4 W- h! ]5 M, }2 \
(and / M" f& y& c( c/ U
(> (strlen (car appset)) (strlen app))5 r) r7 Z c" i5 e; P# Q
(= (strcase (substr (car appset)
3 R( a u* ~' R; `! m
(- (strlen (car appset))
! t! ~8 l; y, h- T
(strlen app) 6 p$ T: w2 X3 ~& r
) - j# g* {/ A3 i7 J
)8 \# F4 d! Z# W: X2 t" ^
) ( X8 p, m. F& {
(strcase (strcat "\\" app))
" `/ Y+ e/ O J
)
9 C' M! ?) ]0 w O% K: y1 x
)' u x) Y' o7 O- f7 o
;; no match for this entry in appset, try next one....
2 D- `( I& Z4 e
(loadedp app (cdr appset)) )))
2 A, y* \- P4 l6 n$ o9 s
)
* C/ z2 ]6 @+ M0 W' e
( t5 `, }2 C& d- s* ?- P
" I* ?! c; ^1 j. r( h; r
;;; ===== Single-line MText editor =====
8 ?* x7 m# [7 H* T
(defun LispEd (contents / fname dcl state)
7 T5 r. F* h5 ?8 L2 _6 W
(if (not (setq fname (getvar "program")))
! e% |) H+ {5 N u8 \3 g3 p/ X
(setq fname "acad")3 N( e; j4 v+ a1 C/ g( t
)
/ e) l/ p2 l2 j+ e' j
(strcat fname ".dcl")' q' o% s# a* w- c' s
(setq dcl (load_dialog fname))
/ y1 I5 L! k' p2 L
(if (not (new_dialog "LispEd" dcl)) (exit))4 [1 |6 N$ k' p3 E, z2 z% a Z% _. I
(set_tile "contents" contents)
& g4 ]9 z7 o+ n
(mode_tile "contents" 2)
. c% u5 E* y W9 O8 i5 ]! n
(action_tile "contents" "(setq contents $value)")! E. o( {) F& }* X8 W! k, |, O
(action_tile "accept" "(done_dialog 1)")
8 f- p/ C, S1 \, |% O) S( \+ }; `
(action_tile "mtexted" "(done_dialog 2)" )6 M5 g/ P5 |' D
(setq state (start_dialog))2 C! E* p( ^+ z- o5 ^
(unload_dialog dcl)
5 ]6 U0 Y5 E4 s# X3 |, t5 [. V
(cond
; p' u+ D$ C! O0 `) B
((= state 1) contents)
! C$ M% T; g* D. r2 I0 D
((= state 2) -1)
: h: D9 u; X, K# b& t" R
(t 0)/ P6 v6 h+ [, f; M8 D+ B8 `4 O
)
7 q) K( o" w6 ?+ _& e( n
)& ^* B. d3 Y" b$ l9 f
2 e+ m4 J9 W- t" ~6 o; L
;;; ===== Discontinued commands =====
2 c; M z2 F6 ^5 t, M& N" @% k$ r
(defun c:ddselect(/ cmdecho-save)! r3 Y' N1 s* _7 K0 x& a$ v/ e
(setq cmdecho-save (getvar "CMDECHO"))# Q9 o4 W. b' |, E7 w
(setvar "CMDECHO" 0)! T- O2 F% {3 {4 o& k
(command "._+options" 7)
; a9 l8 P' R; P3 k9 F6 G
(setvar "CMDECHO" cmdecho-save)$ d. n" H7 d1 i* Q( k
(princ)
) X: @$ i0 @+ e& q# J& i
)
9 ?" z# d7 F& F! L; o4 G
2 R. Y% p( A- D" u
(defun c:ddgrips(/ cmdecho-save)
6 A! ^- } M2 r: f+ k- k
(setq cmdecho-save (getvar "CMDECHO"))3 l7 z# |1 x! s0 ^' y
(setvar "CMDECHO" 0)! r- I q) h- i& y0 `* c: {2 i4 H8 @
(command "._+options" 7)
# `; _- c4 Y1 o1 V* Q6 h3 \2 z
(setvar "CMDECHO" cmdecho-save)
' C* {$ x5 D7 I
(princ)4 k; ^ s8 H1 d6 N% k$ z4 o0 u
)! t/ Q8 B2 ` z0 ]. X
6 s: T1 Z' `8 w+ t6 o' {
(defun c:gifin ()
8 f; ~* r/ L! h4 g( i" X
(alert "\nThe GIFIN command is no longer supported.\nUse the IMAGE command to attach raster image files.\n")
! K% d3 T# [ e2 I' {
(princ)
2 v6 ]1 S0 J; Q; c! h
)
( c6 t+ e0 l$ `- G& p
$ m: p" B: C7 E- D
(defun c:pcxin ()
+ O% e* t5 q8 J9 x. O" r; ?, \
(alert "\nThe PCXIN command is no longer supported.\nUse the IMAGE command to attach raster image files.\n")
: p5 G) ^/ [& w6 n" z7 C
(princ)! ?! J0 |: T. [% U$ i0 t0 C
)% ]5 W8 e4 m- N% p4 Q" f1 `9 y7 p: h9 j
' z6 G$ K/ [. L* H J
(defun c:tiffin ()
0 ^" m" Y! `# x8 B' V1 k
(alert "\nThe TIFFIN command is no longer supported.\nUse the IMAGE command to attach raster image files.\n")
% Z0 N6 h4 g( M3 N
(princ)8 E1 [! I+ r2 N
)
) l( S& T& Y; E( C7 e8 ?, b) O
7 m0 E* x( w1 J, U' ?
(defun c:ddemodes()
# q0 Z- f! U7 N/ w
(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.")
/ ~* n5 Q0 P: Z$ Z7 u3 r
(princ). C- D, m2 Q( H: k* W% K: C. U
)
. t& S7 i+ q3 H
! _0 v( O& E( `8 N
(defun c:ddrmodes(/ cmdecho-save)* l' y i- Z8 I1 u0 N
(setq cmdecho-save (getvar "CMDECHO"))+ L+ J, F4 i( p* _. v
(setvar "CMDECHO" 0). g, ^% P* R6 t/ P4 a
(command "._+dsettings" 0)
( r7 Q( M1 M2 W% P
(setvar "CMDECHO" cmdecho-save)
3 W0 `5 w- g, w7 P+ b3 d$ P2 ^6 s% {
(princ)- Q$ [0 B5 M3 \5 s+ R9 ]# q6 b
)
6 R) G! E, ^$ ~
- m% X7 c+ C9 b3 g2 @5 d
;; HPCONFIG
! T1 h: ]" ^* [
(defun c:hpconfig (/ hlppath)* K- ]! r8 e' s* `, ^, @
(if (not (setq hlppath (findfile "acad.hlp")))
7 p& N, ?6 m+ d1 f1 p
(setq hlppath ""))
3 ]; |$ ?9 h1 P3 P2 ^: j( h* S
(help hlppath "hpconfig") c3 U: B% z c2 S+ [) V
(princ)
! R3 K0 {2 Z. I4 y* X
)
9 L) T7 s8 h; l! P& d4 F
" e* W7 o: D( f8 y) ^+ P) q
;; OCECONFIG
& {% X- E" V4 |- B
(defun c:oceconfig (/ hlppath)
$ ?- G6 V* {4 N; A2 d. \0 \( P
(if (not (setq hlppath (findfile "acad.hlp")))5 d* w3 Q0 T; i( G I7 R8 [$ y
(setq hlppath ""))
- c1 S, s J: S: |
(help hlppath "oceconfig"), Y# J: Z+ x: L" _1 K g
(princ)
# Q9 B. j7 j( G$ D$ e# e- ^" m
)4 P- ~9 k i" z' }9 L, _) q; E
* Q/ o# f) O ]. O1 `5 ?$ o" w
;; CCONFIG
2 Z4 s7 f& {3 p' l0 s7 J7 \
(defun c:cconfig (/ hlppath)
4 l" m* A5 b1 g
(if (not (setq hlppath (findfile "acad.hlp")))
' I9 y8 E" a1 G- G, S0 F: E3 m
(setq hlppath ""))
! [" n, ^; e5 e6 H% m) J8 O+ {
(help hlppath "cconfig")3 G6 h& f3 `9 Q. t; h
(princ)4 d1 U5 l+ |# M& n: e1 B' X% S
)! g4 [! M) `) a
7 R! f- z. e# u: D1 ^5 }$ i
;;; ===== AutoLoad =====/ H& @; l0 @: O8 \
9 d; _8 Q4 f8 z# ]
;;; Check list of loaded <apptype> applications ("ads" or "arx")
; B7 u9 c/ v4 T5 m( [ @
;;; for the name of a certain appplication <appname>.3 R \, m0 H% b% V! G! |
;;; Returns T if <appname> is loaded.
" {1 m: L) u9 G7 g
0 y0 [. s+ M! P% V+ I
(defun ai_AppLoaded (appname apptype): ^& H/ m: H S
(apply 'or
! h7 p3 Z8 b% Y( I
(mapcar - g. R9 E& m6 i7 F0 J4 N4 F s9 d
'(lambda (j)
# q& ]% J+ d; _2 q3 h
(wcmatch
9 i' M% I* }+ v) D* N8 B
(strcase j T)
3 y) y# s- D! O" n0 C- w3 C
(strcase (strcat "*" appname "*") T)* M2 n7 Z2 `5 {; ^$ N' s' E! o, `3 t0 c
)
5 o8 ^4 v7 ?" R9 f* M' d2 i6 J$ }
)
8 L% J9 V# y0 {
(eval (list (read apptype))); w. K+ H n4 c4 D G8 n% a7 a0 `
)
' Y# a3 @1 m) j {: K
)
+ y; e t P/ W- ^# s
)
/ r' G0 x ?- d( l
( ~; c, L% j+ p5 V+ \+ C. ^
;; 1 l8 u i a, F6 T
;; Native Rx commands cannot be called with the "C:" syntax. They must
* P, Q9 W4 e" N) h: t. `# }" b
;; be called via (command). Therefore they require their own autoload
* l3 c5 T4 Y) A) ?! A
;; command.
* b2 {' d* y. e, @
7 y: i; W+ K9 x8 h
(defun autonativeload (app cmdliste / qapp)" @4 s! p; m% \3 @( r. }3 C! z
(setq qapp (strcat "\"" app "\""))" g6 |6 @: Y; f
(setq initstring "\nInitializing...")
' p0 w" m* g% o) b, K6 p9 N
(mapcar7 f. j4 P3 o0 Z# A$ ]* m
'(lambda (cmd / nom_cmd native_cmd)5 X; `) F( y2 k
(progn
2 a" w( G- t h9 Z
(setq nom_cmd (strcat "C:" cmd))
3 E* c1 n" P" ?# q
(setq native_cmd (strcat "\"_" cmd "\""))
. L. t/ A9 X+ K! Z
(if (not (eval (read nom_cmd)))% N3 X' v1 s0 B* f: [' k; \) F
(eval ?4 ]+ U5 f) v4 _
(read (strcat0 a$ @* G3 ~8 b$ S# [; |$ s
"(defun " nom_cmd "()"# r' H1 A3 I9 b- ], w
"(setq m:err *error* *error* *merrmsg*)"9 _+ \1 N' F N' s- _
"(if (ai_ffile " qapp ")"
0 h W9 p' ^. R+ l' j$ v, j! z
"(progn (princ initstring)" j9 c0 k& l6 q; L) H) D
"(_autoarxload " qapp ") (command " native_cmd "))"
1 g; t+ G q9 ?( m# \
"(ai_nofile " qapp "))"% _0 [( g" u. ^) g9 h8 b9 U
"(setq *error* m:err m:err nil))"! B# ?+ p; X; Z3 j- W( ]& o
))))))
- e# z+ X; l( a' v& o2 W8 ^0 N
cmdliste)
9 I8 G: C2 }) [) A% R
nil
8 i; }$ L1 a' U( Y2 B! S/ s
)- I+ O( J4 @& `: a+ y
. V: Q. g* \* ~1 c% ^* @0 `
(defun _autoqload (quoi app cmdliste / qapp symnam) y) X8 C; h" Y
(setq qapp (strcat "\"" app "\""))2 R1 U5 p8 ^9 A3 d
(setq initstring "\nInitializing...")
1 ?# g. s7 [! b" S& y4 @" p
(mapcar/ t1 c# M! x( T" p; A% v
'(lambda (cmd / nom_cmd)8 _0 ?% U L5 a: E
(progn
( b7 C# N. i8 c2 J" e
(setq nom_cmd (strcat "C:" cmd))) x5 ~# x& g. n" @
(if (not (eval (read nom_cmd)))
$ P5 i1 X5 P: L8 S9 K8 d
(eval
! W$ Q! f% S- t
(read (strcat! F# v1 r2 m0 Z! C% y1 I: V
"(defun " nom_cmd "( / rtn)"
) Y+ |/ y! t4 q. p6 X
"(setq m:err *error* *error* *merrmsg*)"
; F0 ~! W; k* `! u- E
"(if (ai_ffile " qapp ")"
' _* U# s5 E+ Y6 d! \( Y
"(progn (princ initstring)"8 |; u T e6 F5 P. U
"(_auto" quoi "load " qapp ") (setq rtn (" nom_cmd ")))") c0 d! M- p' k( \7 v
"(ai_nofile " qapp "))": |1 k( Z# z! w4 l; K
"(setq *error* m:err m:err nil)"8 b& {- z: f5 o! C- B- p
"rtn)"( L ]4 v0 H- e; }: D4 X# ^& K' O) `
)))))). G4 t* E+ {, w) G. y+ C- _
cmdliste)& E2 z+ }7 F8 y5 E) f* Q" _/ B
nil3 l6 ~" a2 W; h! }' R, J
)
4 F; S! i( c+ [* r/ B0 Y) Y. w
# o3 p) b; i! Z2 m1 n& _7 c4 u" i3 {
(defun autoload (app cmdliste)
. ~! Q8 f& j+ ~6 v. J! o
(_autoqload "" app cmdliste)
/ _+ b7 _% m$ e: U" a# D; F' l% x( X
)7 a0 }7 ?* N0 q
% w0 W) L! |; z
(defun autoarxload (app cmdliste)
/ g* L6 F- E( o7 w5 G9 e
(_autoqload "arx" app cmdliste)- \! g3 l1 a' `6 F% Y! [
)& n) |! Q5 k7 O* X; N
* Y5 P% y5 g# U; p% O' u3 ^' c
(defun autoarxacedload (app cmdliste / qapp symnam)
9 X- B6 n/ R8 ?7 _; Z9 h
(setq qapp (strcat "\"" app "\""))
9 v# O7 v: J* S, o
(setq initstring "\nInitializing...")+ X. V1 d! }5 t1 R( p" L1 g
(mapcar
" e' O* T+ U! N$ ]" z$ k; f3 l
'(lambda (cmd / nom_cmd)
0 v' J8 H4 r5 R& r" r. Z
(progn9 w& T l1 s6 q) b
(setq nom_cmd (strcat "C:" cmd))
& b8 w1 ~) o1 h' o
(if (not (eval (read nom_cmd)))5 a. N! \( W5 l. t: b
(eval) c) I8 z! ?1 k! d
(read (strcat
$ Y4 p+ l/ Y6 h( B" `
"(defun " nom_cmd "( / oldcmdecho)"
) D- J* o, p+ q2 y) Y7 k
"(setq m:err *error* *error* *merrmsg*)"
8 i7 t- ]" S' E2 u6 c1 M4 A
"(if (ai_ffile " qapp ")"4 w. T8 M, |! k
"(progn (princ initstring)"
( G6 v9 C. p1 S4 q! p& X
"(_autoarxload " qapp ")"
0 g$ ~) Z3 U. w$ }& Q7 M
"(setq oldcmdecho (getvar \"CMDECHO\"))"* B7 C& z5 {. o' ^( k4 F$ X
"(setvar \"CMDECHO\" 0)"
5 R/ M% |3 u6 u3 N, N
"(command " "\"_" cmd "\"" ")"
: N0 ~2 m4 E0 f# u ~
"(setvar \"CMDECHO\" oldcmdecho))"
/ {( U7 F) z# K1 m
"(ai_nofile " qapp "))"+ e! M l$ T( r# z; o1 C
"(setq *error* m:err m:err nil)"
' E4 G) b# h( P! f9 N
"(princ))"
& L9 \) o' C, A
))))))1 y, P7 {- P- ~) W$ g3 T1 O
cmdliste)9 r2 n& v9 O& P! O8 K% Q
nil
9 {2 y- ]* V4 F
)
$ | G K9 ~- y- z6 _8 D; Z; D
# W/ M) f2 t7 J N2 p+ J j! }/ X
(defun _autoload (app), ~+ ^5 l3 O4 g! t3 y3 @! e
; (princ "Auto:(load ") (princ app) (princ ")") (terpri)7 o1 O$ C: T K: Y
(load app)
9 G' R( \% `' }1 C0 j# G% y
)1 s3 B- O! f- V* p6 b! C+ H
/ k* [1 V" B. G+ i
(defun _autoarxload (app)
5 I' \+ {/ _, p
; (princ "Auto:(arxload ") (princ app) (princ ")") (terpri)2 }' R. Z$ [) R* F
(arxload app)
5 d* s! e8 i7 D9 H# o. h" Y3 T& P
)5 }5 z" ?2 {/ v: N
0 j) r1 v \+ r1 a( c
(defun ai_ffile (app)
0 y& E8 P/ d, V6 b! }/ q
(or (findfile (strcat app ".lsp")); b0 T) _) e W$ C: @5 {* N7 F" h
(findfile (strcat app ".exp"))
t% e. d6 @/ a7 V
(findfile (strcat app ".exe")), ^' u% d' X+ m, [, t4 O
(findfile (strcat app ".arx"))+ e% s8 g7 f. E1 y
(findfile app)( K7 L) Z# I% S" A9 m ^/ [ G
)
" g4 y& ]/ [- Q5 }8 s
)
, }9 W. w$ K+ \' u
3 K* o+ {. D! r& K1 L; U: ` D
(defun ai_nofile (filename)8 Q# J8 e7 j7 r' {# K8 E0 O( P+ g
(princ
. B+ |( z8 H$ S' g% ]+ E0 Z. w
(strcat "\nThe file "" c$ D8 I1 q4 j- G* }# P! X
filename
& [: O% q7 Z! m) `
"(.lsp/.exe/.arx) was not found in your search path folders."+ j+ i+ U% V- I" @# S6 U
)
/ q: S, S! [) ? y6 F
)
. T* f. K8 ~7 S' O4 z
(princ "\nCheck the installation of the support files and try again.")
% {' V0 B7 k& l+ Y: a$ R
(princ)4 J c" [6 N- U9 _
)
/ O, U; Q! i. y) {7 h* c
1 w. M+ l; w+ ~2 X3 h% f
$ O. h& n/ P' ^& l0 D: e6 t" H6 |
;;;===== AutoLoad LISP Applications =====
6 }9 q L9 N) [- @* l/ E2 g8 E- T
; Set help for those apps with a command line interface
2 d! Z4 H: [$ x
) |* u" t' G9 `. D9 T' {
(autoload "edge" '("edge"))8 x& n1 p2 _' {9 v, q
(setfunhelp "C:edge" "" "edge")
5 d- M3 N x( o' f3 z1 t
3 q, ~% D- @' L4 y8 H% q0 ]' {
(autoload "filter" '("filter " "filter")); N8 u& ^7 Q/ B2 e' g( q- M7 s" c
% ?0 x) ?% M2 H) f
(autoload "3d" '("3d" "3d" "ai_box" "ai_pyramid" "ai_wedge" "ai_dome"
$ A/ A% n! Q0 D$ B8 O: W
"ai_mesh" "ai_sphere" "ai_cone" "ai_torus" "ai_dish")( X1 B! w" o: {" v: |9 @
)
' h, M. f& }# [( X7 h4 @7 K
(setfunhelp "C:3d" "" "3d")
) [ Z! Z6 n$ U5 D: {
(setfunhelp "C:ai_box" "" "3d_box")
4 M3 O { I9 w$ i
(setfunhelp "C:ai_pyramid" "" "3d_pyramid")6 f; z& Q: y3 d5 q2 c9 f
(setfunhelp "C:ai__wedge" "" "3d_wedge")
6 g [. q1 @- Z$ N
(setfunhelp "C:ai_dome" "" "3d_dome")
) R0 s1 K4 N4 V# g* L
(setfunhelp "C:ai_mesh" "" "3d_mesh")1 M, g: X$ s9 ]% h' R3 n& `2 V4 R
(setfunhelp "C:ai_sphere" "" "3d_sphere")
' A# j! O. B, ^ }
(setfunhelp "C:ai_cone" "" "3d_cone")3 t/ k6 Q9 N& r
(setfunhelp "C:ai_torus" "" "3d_torus")/ F6 P* y1 v" G8 j4 A5 T* U9 z% u2 a
(setfunhelp "C:ai_dish" "" "3d_dish")
7 z6 C- Y; {/ b# ^/ Z
6 z/ P U, B8 T, |
(autoload "3darray" '("3darray"))( @! ?+ L- d5 ^* z+ @
(setfunhelp "C:3darray" "" "3darray")
. t4 ]/ O; K/ v! w/ G5 ~7 _
# d+ L4 t; m( }
(autoload "ddvpoint" '("ddvpoint"))6 ]; J# L) S+ f& `
/ \( q1 e% s- i; h
(autoload "mvsetup" '("mvsetup"))
+ S c1 V8 i! X. f C
(setfunhelp "C:mvsetup" "" "mvsetup")% y! ?# g1 a& j1 ]6 v% L) |
* D" T: `' N% l2 u( }4 |
(autoload "ddptype" '("ddptype"))
! N3 H& o! [/ }* v0 Y6 I
- E' S$ }7 N5 ?
(autoload "attredef" '("attredef"))$ N( S4 H" P E8 D
(setfunhelp "C:attredef" "" "attredef")
. Y% m- x" {( ~4 r; U4 h2 w
1 R' N$ U9 y1 g1 ~
(autoload "xplode" '("xp" "xplode"))
, D2 o. }1 t( M: L4 }
(setfunhelp "C:xplode" "" "xplode")3 ?( u m% G# W& J1 A5 K; W
4 K6 [! [6 t. |6 a. R# b$ D# c
(autoload "tutorial" '("tutdemo" "tutclear"
@/ Z' C; c1 [9 [3 _( U
"tutdemo"
7 Z# N+ b% Z- q6 I. ?4 n
"tutclear"))
1 R( d F; _* L' h' n
; F7 l) x/ W$ @5 |- X9 S
;;;===== AutoArxLoad Arx Applications =====1 H3 i- ?3 l& F& E- Z9 F5 a
a0 T3 I9 m- q
(autoarxload "geomcal" '("cal" "cal"))2 H# G0 p+ W6 x; G* c. Z
) n, g) L2 |* A, I
(autoarxload "geom3d" '("mirror3d" "rotate3d" "align"
9 ]2 d& I ?& r, ]
"mirror3d" "rotate3d"
7 F& h* P! \6 d4 y$ m
"align")). B' O8 {# P& U8 Y4 H, R b/ R
3 d. b+ b+ Z$ l: p7 k; N
* u8 D* v% N# A
;;; ===== Double byte character handling functions =====" |$ Q( I1 o3 [/ U) `1 X
6 _6 b7 F8 r) `, F1 Y
(defun is_lead_byte(code)
5 z; `# k1 K9 i/ x: Y. ]
(setq asia_cd (getvar "dwgcodepage"))
6 P5 q% z& n+ h& z1 X
(cond, [2 F, @! F1 h9 [" b: G1 H" {
( (or (= asia_cd "dos932")7 @/ F0 @/ {. O0 A/ A0 ~8 Q, s5 ~/ a
(= asia_cd "ANSI_932")( j! j: x$ a# H h' W7 c- d# p
)2 X0 W) R3 z2 U1 w" \' N! N5 X
(or (and (<= 129 code) (<= code 159))
! ^8 Q) S3 o v5 H; m5 r3 E( q
(and (<= 224 code) (<= code 252))
9 J4 a9 p* m* X' J
); x; ?4 V2 ~8 }& ~- |
)+ f m6 i" L) R4 S' a
( (or (= asia_cd "big5")9 Q( E8 ?9 @& T, Y
(= asia_cd "ANSI_950")1 K" l% u3 R/ I4 M5 V( v J# Z! W+ u
)
9 J0 { M4 ` j* J1 G: A
(and (<= 129 code) (<= code 254))
* ?" C/ M$ n$ l" V- i5 G5 s8 w
)
: B3 ^( g+ h2 X# E, W! ?3 ]; b
( (or (= asia_cd "gb2312")* `5 i" \9 J& N6 |, S
(= asia_cd "ANSI_936")
/ {1 r' z; A8 V# `% T1 M4 q; N0 f
)3 }5 j4 G: |& P- ]" g; j
(and (<= 161 code) (<= code 254))% ^ e- z' j; ~, V+ h. b
)
* ]/ T1 k, g- B
( (or (= asia_cd "johab")
# O* ~' {: K6 x
(= asia_cd "ANSI_1361")
$ x+ w& p: y7 p! g4 N5 n3 w
)
) z% l6 s8 n/ x" `/ l5 h
(and (<= 132 code) (<= code 211))3 b5 t, `8 t( n" ^$ o5 w( y
)
% D9 p, ^4 ?9 {
( (or (= asia_cd "ksc5601")
5 b z/ K# I" x9 b1 a! |$ w
(= asia_cd "ANSI_949")& E% H# b/ b% K6 E- s4 S; Q
); W. V, y$ y0 |1 E+ Q
(and (<= 129 code) (<= code 254))
9 K d0 F( R3 i: D, e
)
, H! P# r$ e( }; h' h! L5 C
)- K7 K ~, m2 V, D( H
)* D/ B1 }6 i$ r) \# F: ?
5 S3 o8 _* l4 n( c
;;; ====================================================
- c( \3 g, t0 |; h* F/ Z
! ]# X# m1 S1 A F- S
: ?3 H' |5 z5 G9 b6 `. w
;;;- N; e) m0 c5 L& P/ X/ E
;;; FITSTR2LEN3 I g8 w7 M* `; R+ |5 G
;;;
8 K0 D& }: m6 u& W: U! {
;;; Truncates the given string to the given length. " h( b0 V5 Y! Y7 u
;;; This function should be used to fit symbol table names, that; a6 ^8 D; j& s3 V
;;; may turn into \U+ sequences into a given size to be displayed
' a! L: j1 H* r* \
;;; inside a dialog box.
2 j0 ]3 n+ ]; u9 g2 V2 E) ?% q# ~
;;;
; Z5 j4 m3 F$ {
;;; Ex: the following string:
- u6 [* |2 [6 q6 B5 y' G
;;;
. e( |+ s( _* `' G6 B9 D
;;; "This is a long string that will not fit into a 32 character static text box."
( o$ W4 i1 F3 }; i* i+ e
;;;! y; w0 r+ A- \3 v9 q
;;; would display as a 32 character long string as follows:
" S/ H3 C2 D2 f2 q
;;;; i$ K3 k8 L, a2 b
;;; "This is a long...tatic text box.") S# Q! c' O2 \0 Z
;;;7 i! d5 q& q% I# E, F# B. V/ ?3 a: D
, v( j$ s- j* N/ H" u6 e. q3 x9 O5 a
(defun fitstr2len (str1 maxlen) u1 T# \: e4 Y. u" H' l
7 ?: e7 ]" x k: `+ Q: l: \
;;; initialize internals
* t- ?. ~. r7 o- m4 Q# \+ K# W
(setq tmpstr str1)
! e7 R6 [& H* [ ^1 ^. h( ^
(setq len (strlen tmpstr))
* R4 m0 R J. t1 w
) s8 ^. r) C0 ^( }! l6 q" Z
(if (> len maxlen)
, O! d0 x5 D1 z( _4 W- h
(progn# S* B5 d- U+ |. w# }0 I5 P
(setq maxlen2 (/ maxlen 2))
+ [$ Q$ {: m# y+ c9 l. }- ]$ F
(if (> maxlen (* maxlen2 2))
* U. w8 g5 z ^, E9 D
(setq maxlen2 (- maxlen2 1))2 |) b- S2 Y) A8 B; I
)
) y9 m8 A, m# o$ F# g1 l
(if (is_lead_byte (substr tmpstr (- maxlen2 2) 1))9 Y& @8 C s: r% h
(setq tmpstr1 (substr tmpstr 1 (- maxlen2 3)))+ D( A: u, ^) `) n- P' O. O
(setq tmpstr1 (substr tmpstr 1 (- maxlen2 2)))/ ~( F6 N- s3 f* k h: I! b- g
)
' w8 c! _! O! H# i5 C5 g: w
(if (is_lead_byte (substr tmpstr (- len (- maxlen2 1)) 1))
8 t7 d! m$ f% Q: z$ {
(setq tmpstr2 (substr tmpstr (- len (- maxlen2 3)))): L& L$ v+ g' q* G6 ?' e
(setq tmpstr2 (substr tmpstr (- len (- maxlen2 2))))
; ~4 r: F' w# T8 ]+ F" Z/ g
)$ t; w7 S* f9 m8 O$ o! l
(setq str2 (strcat tmpstr1 "..." tmpstr2))8 t0 {7 \( h2 K) c2 U$ `7 _
) ;;; progn; N( f/ b. x6 k! S+ G; Y
(setq str2 (strcat tmpstr))& k1 H. k! G3 ~! ]! i$ h: ?
) ;;; if8 c7 Z) T% J$ [ k! D
) ;;; defun
% e. g3 R3 G |3 G$ H: }! ?' `: H
: P( J2 N: K$ `" F
- q6 E; n& G* c0 G
;;;
. W* a" E2 @6 u
;;; If the first object in a selection set has an attached URL
6 D1 F( U' `% v7 V; [8 [
;;; Then launch browser and point to the URL.
* f, N& |% x- X0 r/ a. s/ X; q1 f! G
;;; Called by the Grips Cursor Menu
( L8 X+ k/ Q9 ^8 _" p& Y* ?
;;;4 `; N9 N$ D& a- G$ V0 t( N
% `! O1 q" H6 T
(defun C:gotourl ( / ssurl url i)
5 E& m6 M5 t' V4 y
(setq m:err *error* *error* *merrmsg* i 0)
4 f6 {! }" k; j8 h9 N2 K
. i1 ]) l4 _% N/ Z S/ o3 d |' v
; if some objects are not already pickfirst selected,
( Z" E! J( {0 h; A, n4 Y& `
; then allow objects to be selected
0 m# F. y8 a, x9 o5 P; x
/ v8 U0 H" R, q3 N! C% e' ~
(if (not (setq ssurl (ssget "_I")))
. F8 G5 z/ D4 Y* {8 A0 H
(setq ssurl (ssget))/ G. ?* Q; o7 D
)6 k8 K% [% H$ s& Z
3 ]) V: v9 Y, ^5 }3 Z8 H
; if geturl LISP command not found then load arx application
& i1 Q- c+ H: X0 y5 ^$ ?
- [) F* P. K8 f0 q# B' D
(if (/= (type geturl) 'EXRXSUBR)
7 o; e- c( m& X( `
(arxload "dwfout")
1 |. J- M# _& H/ y# o
)) R7 q# V- n" E! t9 E
! \, z' t4 {8 s) k+ k( Z6 O0 t
; Search list for first object with an URL
& |" n* ~9 {7 M
(while (and (= url nil) (< i (sslength ssurl))), R3 ~# o! P3 d( k/ K
(setq url (geturl (ssname ssurl i))
1 O# g4 Y) l4 {, {; A: ~7 I8 k
i (1+ i))
( ~( v: H5 ?1 q5 K5 m
)8 @' B" p5 [1 b* B; E: W
8 m6 m) N3 s# C v
; If an URL has be found, open browser and point to URL
, D- a* Y+ l6 ?. Y/ u; K$ [2 s- z
(if (= url nil)! V: \ e& s# _& E
(alert "No Universal Resource Locator associated with the object.")
: ? l' o5 f% e( X/ N# |' Y
(command "_.browser" url) O3 L4 D9 \+ t! E: x- ^: I
)( g3 z% R3 K ?5 |7 ~8 d% O
0 m: q" o9 p" p' m6 i+ B
(setq *error* m:err m:err nil)" r: R) o9 J0 q D
(princ)
L3 b$ A' Q) u; V( U( e
* d4 [8 y) X" L; j# j
)5 J$ X& h6 u( |6 J7 b) t0 G- `( c
' z4 Q6 P2 n% ~: }) |
;; Used by the import dialog to silently load a 3ds file
8 e7 [! _8 Q' B5 x2 T! j
(defun import3ds (filename / filedia_old render)
- \: L% f0 M( K8 A" W7 p X
;; Load Render if not loaded6 t$ a0 z" D) e: Z
(setq render (findfile "acRender.arx"))- a u0 C8 M# i: V& R6 ?
(if render, J8 F$ q, N: M+ I( i& r. W
(verify_arxapp_loaded render) 1 o0 Z+ H; J' N( B+ }2 q6 N
(quit)- U8 X8 y0 i4 ]$ A6 C
)
' F0 p- j. w5 l7 A1 h
4 l/ S! o, O* K- ?0 I; _( ?
;; Save current filedia & cmdecho setting.
/ R9 [8 \' K: v& M1 u, s! Z5 I
(setq filedia-save (getvar "FILEDIA")); D( c9 c8 v* v' L/ _
(setq cmdecho-save (getvar "CMDECHO"))& ?, G! V: i4 i
(setvar "FILEDIA" 0)
! `3 q- _4 e( p0 d) c" F ^
(setvar "CMDECHO" 0)
2 v# {& H* e1 O* G9 I: f" j
# Y2 @# t0 c/ `0 U' R1 {
;; Call 3DSIN and pass in filename.
5 A5 _6 S. O/ p5 t
(c:3dsin 1 filename)
0 ^* L! c0 h6 G
" t: o* P; x1 G) D/ D
;; Reset filedia & cmdecho; \2 T; q- m! l
(setvar "FILEDIA" filedia-save)4 l& W2 X' \! S
(setvar "CMDECHO" cmdecho-save)
) w1 \9 {; F' F) A. Q& c+ o
(princ)
0 y, `% K* I3 c' ], N3 X, Z k. s
)) Y1 N; f+ G8 R, Y( E- A; q; ]
5 w, q! m: }5 A ]' I" v0 }
+ z+ g- T; P& `# X& u
;;;=== Menu Functions ======================================
, M0 i% s! J5 V+ C" a
) Y3 c4 r) ~ n
(defun ai_rootmenus ()
9 b7 E! v4 i, ~& A) Y! H
(setq T_MENU 0)
: k+ h* ~4 O/ P; h
(menucmd "S=S"): S3 ^! L& G, [
(menucmd "S=ACAD.S")
7 H$ o$ `' n! T; o& Y1 b
(princ)8 W8 }) j$ N2 [4 J$ H$ `- X
)' Z/ f# n$ u: W4 n4 V
9 M' N7 d$ G) S6 k f; z& ~
(defun c:ai_fms ( / fmsa fmsb), T8 J' Q5 m( j/ a4 n- D1 Y
(setq m:err *error* *error* *merr*)
1 v7 f9 {, j( |: s6 L7 ^" j& J: E( L
(ai_undo_push)
% N2 j1 b$ p8 j
(if (getvar "TILEMODE") (setvar "TILEMODE" 0))
' ~; O- x! M0 o
(setq fmsa (vports) fmsb (nth 0 fmsa))
' K3 J$ H9 E& S' ]
(if (member 1 fmsb): i1 V3 E2 s* m- _. |) {; |
(if (> (length fmsa) 1)( E- n3 U) ?) n0 Q2 S- z
(command "_.mspace")5 X% l7 i) Y4 U- K8 c8 P" U, k/ a/ U3 W
(progn) O, Y; d$ m: P) D% t
(ai_sysvar '("cmdecho" . 1))
- G( C5 a7 w# y3 d5 @! X
(command "_.mview")
7 o: a2 R+ l* c ^ s# Y) w, ?
(while (eq 1 (logand 1 (getvar "CMDACTIVE")))! e! B+ H( B1 z; `
(command pause)
5 z, L, q I, Q( n% S
)4 F1 N1 s4 K% m6 ^& M5 }( i
(ai_sysvar NIL)
1 T) N. c4 L4 M# _9 w1 F' w; q1 h
(command "_.mspace")& J; ~9 n p" r& a6 d
)2 B' D% M9 P: {0 ~2 E6 [3 P, Z
)# e0 @+ s+ N ?8 R% x& m" J
)
- K) t; _$ O4 `# j! n% b* N4 g
(ai_undo_pop)
4 m& @0 P* i' Z# J4 P, \) ^
(setq *error* m:err m:err nil)% X. u) h- I% K
(princ). y# J/ n- h, G: t8 R
)
( p; v* }: R9 Q& a1 [. \0 q0 H
, J. L" j5 k& @# I, B9 U: k
(defun ai_onoff (var)& o& }2 T4 d7 h6 ~# l8 \+ v
(setvar var (abs (1- (getvar var))))9 u4 |2 U7 A. p; w( k. g
(princ)
+ g/ M/ W1 P4 v' @
)
- ?9 U7 f7 y& k" X) W3 J) g; a9 H
% E7 ^; I! I. O* Q0 L3 x
;;; go to paper space ^: ~" F2 V+ s/ \
(defun c:ai_pspace ()
7 s8 `2 g3 ~: F p; Q2 {
(ai_undo_push)3 Q7 y7 i" |* Q* M9 |+ N1 d9 y
(if (/= 0 (getvar "tilemode"))
+ k* e: H' r5 w3 p4 i3 j
(command "_.tilemode" 0)& d" }9 ?) I$ R C; W0 X8 G
)
9 J0 N% ~# D+ \! ^6 p2 M
(if (/= 1 (getvar "cvport"))( j) e' e2 r& m4 {
(command "_.pspace")
! n# {9 k6 ]$ N& i+ B
), h% p1 y: D- X8 \
(ai_undo_pop)
& l+ R+ a6 V$ b; e- i1 z0 w
(princ)1 E% R( a8 S; Y- r
)! i% A- V/ x0 d n: }# M
6 T$ W2 a' [% [
;;; go to tilemode 1
4 p4 a$ R/ ]! ^+ @' A' R5 U z
(defun c:ai_tilemode1 ()
2 Y' B) h+ `' ~0 L- p& {
(ai_undo_push)
. t: S# s! _8 [
(if (/= 1 (getvar "tilemode")): J, }: w) \- A! F
(command "_.tilemode" 1)- h4 p+ W4 q* L# s3 C4 a
)
( f( Q7 z9 A+ c$ _- @
(ai_undo_pop)8 Y7 O) i* x7 `3 s9 U% v e" O
(princ)
+ T; ?+ g, e+ m; n+ S6 o
)' b3 G1 }8 K* `0 R
/ i$ W3 J8 M. ~
;;; Pop menu Draw/ Dim/ Align Text/ Centered$ k! T4 u3 c) F! U I$ n
;;; Toolbar Dimensions/ Align Text/ Centered
' L5 ~- b% X0 [' V# G ~, a
1 ~, p2 ?$ t7 e% E* Y6 o* q) m
(defun ai_dim_cen (/ ai_sysvar ai_dim_ss)8 o: S" c4 b9 x |3 }7 N2 x
(setq ai_sysvar (getvar "cmdecho"))
) O: }$ p. a) t( X* U2 h( v
(setvar "cmdecho" 0)' H- @8 t* A% c/ {% A! O
(cond) ~4 { v% n- z8 c; J6 x
((setq ai_dim_ss (ssget "_P" '((0 . "DIMENSION"))))- R$ \8 {' z3 \, p% X% u
(command "_.dimoverride" "_dimjust" 0 "" ai_dim_ss "" - B1 {5 q- @4 W; L
"_.dimtedit" ai_dim_ss "_h")
; b' K7 f$ R- M5 u9 v/ C/ r; S
)
( P( r) Z# u3 [$ F: a2 s! ?
(T nil)
/ C/ p: T& n1 v( o$ o4 C
)) l- J- g. F( s4 K; D' i
(setvar "cmdecho" ai_sysvar)- T; V7 X( t& r+ k' J
(princ)$ m f8 A5 ?# u* W9 n5 m1 N
)
. W( M2 d. x& e' ~1 i8 R- W" q
7 G' L2 r: ^0 n# m3 U* k
;;; Shortcut menu for Dimension Text Above
5 P1 k4 G7 K, I* H6 n+ u
7 w% J* m+ P: e; P$ |
(defun c:ai_dim_textabove (/ ss)! @6 V! L/ R7 b" |2 O/ ^
(ai_sysvar '("cmdecho" . 0))
8 M$ p: z# f/ ^; C/ \5 C% j1 Y
(if (setq ss (ssget "_I")), w% s; R& b2 B" ~, `( L
(command "_.dimoverride" "_dimtad" 3 "" ss "")
- g+ q n2 O4 q# ^5 Q0 R
(if (setq ss (ssget))3 w) h/ P' u- g1 g" B/ v3 z
(command "_.dimoverride" "_dimtad" 3 "" ss "") " j! H! Y* M1 z, S: Y
)
- b: s9 \0 c$ j+ m2 a B6 \3 Q2 X
)
( M; v' S9 G' I( V2 P
(ai_sysvar NIL)' n4 x$ N6 G/ [/ G9 }
(princ)
, w( @* L# {- ]" k& _9 l1 \
)2 ^; G. ?0 ?9 V6 W
]$ a' y3 L, k e# @
;;; Shortcut menu for Dimension Text Center 2 z+ n8 H: Y% x% o$ q: P1 `
8 [5 c; G3 x' f% u
(defun c:ai_dim_textcenter (/ ss)
& n1 w2 W0 Y, ~5 ^
(ai_sysvar '("cmdecho" . 0))0 _5 x, F, E! K
(if (setq ss (ssget "_I"))
/ A+ g* M2 U( n3 H# J/ t- c! V
(command "_.dimoverride" "_dimtad" 0 "" ss "")* l1 F3 T. F9 p
(if (setq ss (ssget)) Z" a4 l# f+ u0 y
(command "_.dimoverride" "_dimtad" 0 "" ss "")
: N. j/ O# e& P% v
); b* `3 E- H- y. ?& n
)
/ s b) \6 v$ s5 D6 @* W
(ai_sysvar NIL)
2 c/ y( F. \- r" S8 Q2 H* c
(princ)
1 _# @; f. W5 x* T4 J
)
" V. v: H& r/ s: N( r6 a
- R# ^$ G& j. @5 R) @4 `+ q
;;; Shortcut menu for Dimension Text Home
3 V1 s" j Y. f, `" r/ c
1 w7 ^' B* v( K1 I4 R
(defun c:ai_dim_texthome (/ ss)
' n' O3 D, i; e! W( F- f/ B( J! @
(ai_sysvar '("cmdecho" . 0))
, v. {$ \7 M4 T$ m# Q3 F
(if (setq ss (ssget "_I"))5 }% w$ I( I# |* p
(command "_.dimedit" "_h")
1 [* ?) Q/ ]: S/ t6 m1 n: R& H e
(if (setq ss (ssget))
7 S2 U* A' \+ F6 d8 M! Q" K
(command "_.dimedit" "_h" ss)4 O+ t6 ^& O. L! s$ K* t I5 V
); D) d: c" T/ e" {6 ~8 X
)
5 X7 u: O( P) n- a. @1 i$ B
(ai_sysvar NIL)4 z! A. [2 ?' Z5 n
(princ)
3 y, h% `: ]/ D: C$ H# |: c
)! Y/ ~( G$ u2 t1 w$ C
* Y$ _( M4 g' A" m* y) A. C5 r
]& r) d* X# r {: R f
;;; Screen menu item for CIRCLE TaTaTan option.
. O6 }* B/ {4 z# R6 B$ Z1 A
;;; first, get points on entities
( P" o* ]' m% J2 d. |9 K
(defun ai_circtanstart()
/ N: M6 @8 g& p& x1 V+ E0 d
(setq m:err *error* *error* *merr*)+ f1 u3 _5 b. V* x5 z' i$ l
(ai_sysvar
. o8 ?8 V! V- x* G, i3 I
(list '("cmdecho" . 0)% W9 x; u1 X6 u
;; make sure _tan pick for CIRCLE gets same entity. Z7 A" |# H( k
(cons "aperture" (getvar "pickbox"))
% U [( o" v: ^) A
)
& R. s& e/ d, F
)+ |5 [( B: w) S+ q+ _3 ?) W
;; prompts are the same as CIRCLE/TTR command option4 v3 J- e5 I& B$ C
(setq pt1 (ai_entsnap "\nEnter Tangent spec: " nil))
6 B) Z7 d$ U: P* e6 C+ g
(setq pt2 (ai_entsnap "\nEnter second Tangent spec: " nil))$ \% u6 q; Q) z' E' G
(setq pt3 (ai_entsnap "\nEnter third Tangent spec: " nil))
% ]% A* s3 d1 |0 ^ C
)
, z& k9 a0 q! B# { E: ]4 T
;;; Command-line version0 j- p- C) C. t. G1 M A2 d+ x1 _, B
(defun c:ai_circtan (/ pt1 pt2 pt3)
& Z) ^5 n) }3 |, D+ y
(ai_circtanstart)
& {$ t2 A, f. M
: ]0 d2 H( t& E3 u _8 I4 T
(ai_sysvar '("osmode" . 256))3 T: g; ?- ^: `
(command "_.circle" "_3p" "_tan" pt1 "_tan" pt2 "_tan" pt3)3 t0 I, d2 X3 k+ |8 _' V
$ p/ y3 i, j7 ^% {" j
(ai_sysvar nil)% N. K! i' y; V0 R" m+ s4 \
(setq *error* m:err m:err nil)
" d7 ^% {+ o* S, _ P
(princ)% [% c3 K" Y( W. |7 V0 ~% B
)
( l7 B* `( h F6 I$ l& E; B0 [
;;; Use this if CMDNAMES == CIRCLE7 Q' O: `$ N7 `3 @7 k
(defun ai_circtan (/ pt1 pt2 pt3)
" r0 w3 }. h, B$ Q2 Z
(ai_circtanstart)% |3 `4 `# s$ N3 F" a8 ]3 T9 L+ L
3 c: P# r5 P" \7 i# B
(ai_sysvar '("osmode" . 256)): G% a$ P& |; e' ]- h5 R9 V
(command "_3p" pt1 pt2 pt3)
* q3 r, I5 K! R: w5 G3 y% ^
& q) X$ |0 X5 _; O
(ai_sysvar nil)
4 x/ `% A# m0 D' _
(setq *error* m:err m:err nil)$ a, D: T0 ]* ^% x
(princ)
]1 N7 z1 e4 x% ^ Y( o# A
)
7 I9 w3 @' o. f: L' H, q
, r" T. g" a# q
/ c, Z: R$ G% Q" @
" r( ?, u7 E0 t0 u1 \1 m( u
;;; Shortcut menu Deselect All item.8 p. ]- j4 Q- e5 Q7 x
; w1 S' T0 K R8 r" a& ?0 w! l
(defun ai_deselect ()
4 u; r7 ?6 A$ {; B0 {+ b3 y
(if (= (getvar "cmdecho") 0) ;start if# ]+ b2 K8 l+ H
(command "_.select" "_r" "_all" "")+ E+ M5 J' {' r6 d4 ~+ v
(progn ;start progn for cmdecho 1* D% o4 ~8 `7 N/ }4 A0 m
(setvar "cmdecho" 0)
3 N9 s+ B1 |. S9 Q- J- `) S
(command "_.select" "_r" "_all" "")/ X4 _' \4 i U+ k
(setvar "cmdecho" 1)* Y4 V' B: m) f. w, L& i
) ;end progn for cmdecho 1& \4 B# O1 h; |: Q
) ;end if( D( v2 f) }( n( W1 C4 F" [, k
(terpri)
; E( ~1 V/ d6 {' r1 `
(prompt "Everything has been deselected")
4 t# I9 @6 M( V( B- c+ _$ u
(princ): l( l& \0 X$ n9 {
)
; i1 c5 v. p5 l4 o
8 q1 R0 ~: L. d
;;; Command version of ai_deselect to be called from the CUI
( v# T" p5 Y/ W8 Y1 {3 c [9 n
;;; so it gets properly recorded by the Action Recorder
. [3 F" Q4 J: f3 k& X
;;;% M7 ? }! J |5 C+ F
(defun c:ai_deselect ()8 d0 j3 d P" |
(ai_deselect)' l6 I* w v3 T+ r% `- x1 K
(princ)
) \5 m5 w; [6 C! r% @4 {3 u8 T
)4 w* Q# P! Z/ y3 D/ p
: H3 H$ o* Z) Z3 f# p: i! P& u
;;;) B5 ]1 T' t, l: H
;;; Enable Draworder to be called from a menu' F4 `- j: [' o, ?3 {) f4 ^
;;; Checks for Pickfirst selected objects
. I! M( ]! Q: E% |) j% i
;;;
/ M9 ?/ K' O1 v9 T: a$ k. T! Q
( D! L/ L5 ?5 @; d. I5 t8 X+ u
(defun ai_draworder (option / ss )* x) f; p4 ]" B/ ]; M" J3 z
9 A: B, }7 D6 f v ]
(setq m:err *error* *error* *merr*)9 g+ d3 r, G8 a$ W$ y4 F2 J# b. O
(ai_sysvar '("cmdecho" . 0))* ?" z: T+ d% Y8 ^+ q- g; m
/ p3 B3 ^6 k, m' V" E, C
(if (setq ss (ssget "_I"))7 \) Y7 u8 b* y2 T- o2 D
(command "_.draworder" option)
* u3 Y$ K2 E" l+ g& y$ q5 ~
(if (setq ss (ssget)); E, f( Y0 p1 k/ x
(command "_.draworder" ss "" option)9 [- \) [; \" S& X! `9 s7 O
)
: j0 x- L1 @4 @: ]# E8 c
)5 Y- d' ?( F# G- b" W5 o
(ai_sysvar NIL)
. ^2 ?$ B3 j. T5 V
(setq *error* m:err m:err nil)$ X9 q/ B: V7 \1 l d6 _& J( o& u
/ _' j* D+ p: |! G; m
(princ)
. {+ B7 C* n$ p- y
)% h0 {5 ]; W! f2 h- p( y' k6 f
( d5 q5 V' E5 }) X$ F
;;; Command version of ai_draworder to be called from the CUI$ u$ f0 }$ {# L8 u1 k1 T* b
;;; so it gets properly recorded by the Action Recorder
) F, Y7 h2 Z @; _" J4 j! H
;;;* d6 c' k5 i5 R5 u" l
(defun c:ai_draworder ()
& n* G% B0 }0 N4 q# d4 q8 `8 U
(initget "Above Under Front Back")
% l' D* L- i1 A. j) T# N% U
(ai_draworder (strcat "_" (getkword)))- q; M! @" v! N6 {2 t
(princ)
. h7 l3 j4 j. K$ t, S- X
), k1 ?7 f& Q. ^8 R, e/ e' o1 K
8 T* U, U* G+ Z
(defun c:vlisp ()
' B f/ O( u4 L
(if (/= nil c:vlide) (c:vlide))% f, }- \$ d# ]1 K c/ ]9 {
), L: P( Y J) U* [7 q; d0 z
9 D) I# X, r$ R m: P1 ^& f
(princ "loaded.")3 w: z! a6 C# T* S$ S Y$ u+ D* G. N
B( C2 k: ~ f) Z* ?. V7 j
;; Silent load.( }0 ^: E$ R! s& G5 X# g
(princ)
, t+ a! W$ u1 T% `" Z0 D
$ B9 j+ U- s, [* V$ w% L$ T
;;;----------------------------------------------------------------------------& K" I1 m+ {, d# c
;;;" C& ^5 D9 `- w; c
;;; DDCHPROP.LSP Version 0.5/ M+ i, t9 I0 F
;;;: k! j# O3 o. B6 C0 V
;;; Copyright (C) 1991-1993 by Autodesk, Inc.' [' o- H5 Y: A6 D/ q8 j
;;;
9 N9 G1 C( |3 d7 f/ p+ u1 ]: H
;;; Permission to use, copy, modify, and distribute this software
+ l. S p9 m' U
;;; for any purpose and without fee is hereby granted, provided
# k5 v4 r* l0 w7 l
;;; that the above copyright notice appears in all copies and that
7 d3 s" S+ i2 z7 M
;;; both that copyright notice and this permission notice appear in
6 {1 X; j& i1 l& O& q: ?) ]- @/ f
;;; all supporting documentation.) r2 u4 a! O% B# ?2 a
;;;$ f$ {* b, C: E" `
;;; THIS SOFTWARE IS PROVIDED "AS IS" WITHOUT EXPRESS OR IMPLIED
$ ^4 p7 ]' [6 Y( L1 r! r4 [5 q
;;; WARRANTY. ALL IMPLIED WARRANTIES OF FITNESS FOR ANY PARTICULAR2 U9 \( ?; N: h2 I6 F% h
;;; PURPOSE AND OF MERCHANTABILITY ARE HEREBY DISCLAIMED.
6 S* s3 @% I; l& ^
;;;
3 t" s5 b2 B/ J# O4 D \
;;; 2 February 1992
* \5 I2 c1 S7 n8 ^" E
;;; : Y+ `' x; V0 R& |
;;;----------------------------------------------------------------------------& [3 R3 `# b% ]; L6 m) [" p
;;; DESCRIPTION9 K6 b9 e4 ~' p7 ^
;;;----------------------------------------------------------------------------
6 m7 B) J# X& e! X& G+ z
;;; C:DDCHPROP is a dialogue interface for the CHPROP command.
% i( ?1 @. ^$ s# @
;;;
$ l7 @" w w3 G% L0 j
;;; The command looks similar to DDEMODES. The main dialogue has an image
4 w; R) q% ~9 K( Y g
;;; tile, 3 buttons (layer, color, linetype), and an editbox (thickness). & p9 w h0 E8 z% j* Q
;;; The 3 buttons each launch a sub-dialogue containing a list and edit box. : \# J* E: T/ v5 W
;;; The dialogues are all defined in the DDCHPROP.DCL file.- U( E D' _" `7 a( }1 c* H
;;;
" p3 W, B% y9 C2 m7 M9 `
;;;
$ ~5 U- H5 n; U
;;;----------------------------------------------------------------------------3 |$ H$ ? j$ S" t
;;;----------------------------------------------------------------------------
, x0 o1 M( {0 g
;;; Prefixes in command and keyword strings:
4 ^" r0 P3 K1 E% Z
;;; "." specifies the built-in AutoCAD command in case it has been % Q/ F5 Q- T5 @
;;; redefined.! a1 W h/ G/ g9 x; r" o9 v0 s
;;; "_" denotes an AutoCAD command or keyword in the native language2 Y; K' B3 r; ?9 I* S
;;; version, English.
% t6 @; m& Q4 p2 E0 B" Z
;;;----------------------------------------------------------------------------
/ w! e/ t e H1 D
;;;
5 _) d9 v4 e5 Z: g' }+ Z9 c
;;;6 e( N- @; S: ?6 f
;;; ===========================================================================$ B0 b0 G; B& f9 H
;;; ===================== load-time error checking ============================
+ a+ w! y+ p6 G3 r' c# l8 {$ X" j
;;;
8 U5 [# v$ Q6 {- R
: t" k' H9 S# K
(defun ai_abort (app msg)
5 t; h5 `# \* y% p! K9 n! d& \
(defun *error* (s)
6 u, I/ ~, Q; I' S' b' {
(if old_error (setq *error* old_error))7 Z) k; j# u$ Z/ V+ X
(princ)5 q( }( U5 W* T( n# J$ G9 X
)) w6 V: j9 {+ d4 R. j& |7 k' _6 e- @
(if msg
5 G6 A9 ^5 a; W' o$ \
(alert (strcat " Application error: "' w) y6 C4 {+ E; A m: c1 ]
app
+ r1 o. b, n& L& d% x
" \n\n "! e/ S5 p% m) O( n Z$ {/ U+ t$ H
msg
: C% F# U6 @" X' K9 ^- T1 P$ \
" \n"
. v; h; z! e. w( ]: l
)* O4 c/ H3 `% b, J2 }6 b5 R% f
)
3 {3 Y' K ?7 a. \# U; r
)
' a: H6 B! n, L
(exit)5 u' }6 A: i. o2 C1 [ r
)
# |2 h3 [' O- t* `3 @
- I# h4 X4 t7 X
;;; Check to see if AI_UTILS is loaded, If not, try to find it,
& P5 Z( _3 Y" f1 C' o. |, t
;;; and then try to load it.& H* z! o4 s; p* c6 Y2 [
;;;' A; J% t% W& Q) X: v% F- y5 ?; I+ _
;;; If it can't be found or it can't be loaded, then abort the
; V; o! Q* W/ K. a+ B
;;; loading of this file immediately, preserving the (autoload)& Z" K- g1 J- D( x; A% s
;;; stub function.
( k+ d; Q+ i! I ^+ u
2 p& P: }9 H* _
(cond0 I% B M% ?: q$ {2 u
( (and ai_dcl (listp ai_dcl))) ; it's already loaded.
: { \- ~+ u2 e& S
5 o" x; U. E1 V% l
( (not (findfile "ai_utils.lsp")) ; find it
5 n7 }9 t& g1 r- b! G' Z' r
(ai_abort "DDCHPROP"
$ h' Y p$ n9 | e* S( W
(strcat "Can't locate file AI_UTILS.LSP."9 {% k0 \$ F) [ o y% s# B
"\n Check support directory.")))2 \- X4 ^1 s$ \2 T, [! u" N; \
4 u: ~1 {4 @/ h( u3 c/ B5 i
( (eq "failed" (load "ai_utils" "failed")) ; load it$ k- K% ]- z" |& ?
(ai_abort "DDCHPROP" "Can't load file AI_UTILS.LSP"))/ f2 _: J+ Y) c" K y$ b/ J& v
)
' |: K4 V$ W( J- k p5 z+ C
/ \1 ~# ~7 g" H" c3 ~" q
(if (not (ai_acadapp)) ; defined in AI_UTILS.LSP
) M! G4 `; B# j
(ai_abort "DDCHPROP" nil) ; a Nil <msg> supresses
8 ?7 R+ K% N/ y7 D1 }
) ; ai_abort's alert box dialog., Y1 O) {( P7 f3 f6 w; q
& d- s$ w) h. ~4 g
;;; ==================== end load-time operations ===========================
! r1 k. s; }- V2 L7 N
6 S1 w( {) r1 Z6 U# d3 f1 P
;;; Initialize program subroutines and variables.) z# d4 U2 G3 r- B8 c+ D0 M
# \) X3 M g( [6 s3 [
(defun ddchprop_init ()
N, S+ ?4 o/ m1 L% m
! b$ u1 H3 Z) t5 ~- \1 \7 W
;;; E$ \2 t3 C$ v- {( |5 T
;; Define buttons and set values in CHPROP dialogue box
' M. E' B; L1 H) h. S
;;8 \, r- Z; t- k0 H
(defun call_chp ()2 ]( w6 }! J- V u4 {
(if (not (new_dialog "ch_prop" dcl_id)) (exit))
2 w e$ P }3 Q7 g
(set_tile "error" "")
* ~3 Y. W6 e. r6 [
;; Set initial dialogue tile values* O- u" b, K7 D" L# E* s
(set_col_tile)
! r1 ?$ ]4 M+ j; L4 [8 Y
(if (= lay-idx nil) i; h# F, C: r+ n, a6 w- p
(set_tile "t_layer" "Varies")% W0 m( G) H/ I+ o; O$ l
(set_tile "t_layer" (nth lay-idx laynmlst))- l: a3 P8 }. D' `" r' \6 P
)- z6 d( ^1 W( I0 _5 v! u% I
(cond
1 A- a; A/ d( }2 }$ }1 ?* {
((= lt-idx nil)
! d2 i6 m* G# F. X2 ^
(set_tile "t_ltype" "Varies")/ s: o+ Y8 T" \6 ^
)& f k& l8 [% \" R
((= lt-idx 0) ; set tile "By layer & layer linetype"
- r$ k. I8 f" v: f, f
(set_tile "t_ltype" (bylayer_lt))+ q9 A$ D2 d5 `2 a% s
)' ]6 H" `! F- i. C
(T 1 B n6 ^: o! T% e; { [" J: p
(set_tile "t_ltype" (nth lt-idx ltnmlst))
2 m) v& _+ S0 b5 u
)5 A' A, n* h& r6 R
)
+ p0 n' w; m9 s& S( D
(if (or (= ethickness nil) (= ethickness "Varies"))
" ~; v# W q s+ f) l- @ A
(set_tile "eb_thickness" "Varies") t* M* \4 {0 d0 I" x
(set_tile "eb_thickness" (rtos ethickness))) s+ `$ f z: i/ }
)
- }( P) x# Y: E$ u" r
;; Define action for tiles
( E6 ^' A3 J2 l2 ~3 G8 a5 h2 k; g
(action_tile "b_color" "(setq ecolor (getcolor))")
* L' {2 Y# D3 m4 u8 ?! y2 ~& e6 w4 ?* C
(action_tile "show_image" "(setq ecolor (getcolor))")
( i: V" H+ G4 @; `2 M) t) m
(action_tile "b_name" "(setq elayer (getlayer))")
# e8 `' _+ W1 K- k: }4 k+ q
(action_tile "b_line" "(setq eltype (getltype))")& T& `8 R6 R5 T" Z( H
(action_tile "eb_thickness" "(getthickness $value)")$ T0 C9 J! \! L n- e3 s* w
(action_tile "help" "(acad_helpdlg \"acad.hlp\" \"ddchprop\")")" \- l9 N3 S/ z, V
(action_tile "accept" "(test-ok)")
( z1 X1 y* w9 P. P2 ?+ G# R" s
(if (= (start_dialog) 1)6 B, i/ c4 J4 `( Y1 x" g
(progn# z) O) |5 Z6 x- C9 l! j0 @. |% T
(command "_.chprop" ss "")% c& i9 J& T9 l. w
(if ecolor
- O7 D) r8 M7 |5 P
(progn& }+ ~+ H+ X5 ]4 Q( J& V B
(if (= 0 ecolor ) (setq ecolor "BYBLOCK"))
# s" E/ _& @* Z1 h" D
(if (= 256 ecolor ) (setq ecolor "BYLAYER"))
- k7 R9 L2 R8 O* o
(command "_c" ecolor)5 A0 d2 m( g* I* ?
)
7 n& Y8 Q2 r% Y8 Q* [3 V3 O
)
8 H( f7 ` t( o# S/ x
(if (and (/= eltype "Varies") lt-idx)
" _5 c! V0 [3 J$ _
(command "_lt" eltype)
; z- ^$ K9 J$ y4 O- e
)% k- w* ?$ c3 p7 M$ F0 l6 Q5 m
(if (and (/= elayer "Varies") lay-idx)
8 k( |1 a# K' U7 |5 n2 H
(command "_la" elayer)4 C# A! `2 r; W1 e0 A+ N
)+ Q0 i y+ q- P' m! D# g
(if (and (/= ethickness "Varies") ethickness)$ N4 C4 l: t+ w) g# c$ | d2 `/ b
(command "_t" ethickness)4 A5 @5 ~" }9 w n; k
)
. r; G( l' F" o2 p5 F3 G& i
(command "")4 b1 P7 t3 a1 M+ l2 F! r( U0 ~" i6 `
)% o# {* j$ e# Z4 _! E! o
(princ "\nProperties unchanged")" w0 Y* O# @) c
)
" n: [8 C T2 @% T( W
(princ), u. [( ]/ A! |% J- P2 [, a6 F9 `
), c2 a& o- N0 T. `4 w g
;;5 M9 M8 P# O+ R7 f. }( U
;; Function to set the Color text tile and swab to the current color value.6 R% l g I/ g! F
;;
4 s, Z4 v. _+ w6 I* N2 `0 {1 E
(defun set_col_tile()3 l, ?' h# m3 [0 j& F" ]3 s
(cond - A1 V5 q: s; @# b' u
((= ecolor nil)
" r. a1 \/ \: T6 t5 t0 k6 Y
(set_tile "t_color" "Varies")
7 `( ?1 @2 g! _ }6 [& ~; u* U
(col_tile "show_image" 0 nil)2 ]: Y9 ?, H/ C
)
3 V; Y, E' ^$ l
((= ecolor 0)3 f+ ^' y9 V4 Q) U4 m
(set_tile "t_color" "BYBLOCK")
6 j8 s( V4 g, D6 E: i0 J. q) G
(col_tile "show_image" 0 nil)' \3 }4 L8 H& O2 `; k* k
). Z4 ~5 [* h( v0 T
((= ecolor 1)
1 O' L; V' T% l, t9 X2 D
(set_tile "t_color" "1 red")
- ~( K s% i1 a# n' G, O
(col_tile "show_image" 1 nil)3 C* c9 {' u' D' _( \
)
$ M0 W) ^ L4 z4 m
((= ecolor 2)
1 |7 ~1 M+ l* |5 P. H$ K' V
(set_tile "t_color" "2 yellow")
# B p* u* Q2 N3 G7 R" T
(col_tile "show_image" 2 nil)1 d1 `# Q3 w" d7 U% h
)
. v& a9 w" r2 ?1 W4 J" X% _
((= ecolor 3)
# f7 b1 u. i5 ^& u y
(set_tile "t_color" "3 green")
$ K$ \# c( ?( o, B
(col_tile "show_image" 3 nil), o: {( J$ s, i. w
)2 |8 s7 @/ Y* R6 O6 e
((= ecolor 4)/ @, v4 f6 X: }5 ~: y! T3 [. f
(set_tile "t_color" "4 cyan")
% B2 b+ Z0 O+ b& U
(col_tile "show_image" 4 nil)
- V/ ^# s) e$ a
)
% X1 m$ n" \2 K1 E" _+ k* d
((= ecolor 5)! a& v E* ?$ ^* I, Q- L p
(set_tile "t_color" "5 blue")3 f/ x, C5 L9 l! m% R! P' R& _# \) V
(col_tile "show_image" 5 nil)' I+ z0 q; }9 P* Y- E/ D- O n
)& O! p: a3 i+ a5 X4 j: L. z
((= ecolor 6)
* M5 k/ F: K: D* c
(set_tile "t_color" "6 magenta")2 R2 z! |. e" ~# h3 Y
(col_tile "show_image" 6 nil)3 w4 U6 u1 ?; t: q0 @
)# k( @$ h/ {. v1 t. v
((= ecolor 7)
& Q9 }5 U" c. Z: b3 v
(set_tile "t_color" "7 white")# V# Z+ @5 }! [$ P
(col_tile "show_image" 7 nil)' Y* ~3 d: Q0 q6 B- a, j" `
); u1 q9 \3 o3 w/ r* L$ W
;; If the color is "BYLAYER", then set the tile to
; h$ P- t* u3 D
;; show it's set By layer, but also indicate the
4 T1 S) W0 v$ [2 ]" o
;; color of the layer - i.e. By layer (red)9 P" l7 v8 G' q' V8 U! v4 _! S
((= ecolor 256). e/ d3 V7 I# N% f. f) q+ [3 y
(set_tile "t_color" (bylayer_col))4 y# ~2 N- E l6 E
(col_tile "show_image" cn nil)
4 c# p* z* I" c
)$ @, V- |8 K) z# }6 D
(T
4 k* X' t) u) e6 D% b
(set_tile "t_color" (itoa ecolor))
+ b; W( B; \; g7 w
(col_tile "show_image" ecolor nil)$ m9 I0 ~/ a0 B1 q$ h* L4 K E7 I
)
0 e) W1 C+ Z$ M: y4 t+ @
)# l, w* |. {8 N! L+ e% A
)
1 w* L* O0 F4 O/ m% l7 ?1 k
;;* j/ n: e0 ?* t$ z4 r
;; Function to put up the standard color dialogue.; y5 ^5 r+ c1 V" |
;;8 W& J1 h, B$ l2 ]5 t0 t
(defun getcolor(/ col_def lay_clr temp_color)
: x" o6 w, ^ r X n' n
;; col_def is the default color used when rq_color is called. If ecolor
: j- y7 E9 k4 g( }: ^
;; is nil (varies) then set it to 1, else use the value of ecolor.( ~4 B( I- |. W4 E
(if ecolor, z% R+ X& H* P1 Z1 I
(setq col_def ecolor)2 M: a9 B& w( W: j. |2 X6 M
(setq col_def 1)
# l k; m1 e, O) b. }/ Q3 o3 |' o
) z, K6 |3 O# a3 F3 o" L" g
! E2 y6 s$ z/ K) F6 G
;; If we're working with a single layer, get its color
' r& z" |2 B0 I6 E
;; for use in the color swatch if the user selects color BYLAYER." Z1 T; r4 f% ^/ z# }9 A- n3 K/ p4 @: e
(if (/= elayer "Varies")( t/ e9 g5 J& m- v9 }2 W7 A& @4 s
(setq lay_clr (cdr (assoc 62 (tblsearch "layer" elayer))))/ j% i4 w6 E7 H [( h+ u* Z0 ?& P
(setq lay_clr 0)/ |8 S2 Y; p8 I( z* a; f7 O# i
)
1 ~ y3 B5 ^/ @
(if (numberp (setq temp_color (acad_colordlg col_def T lay_clr)))
" c4 H( Q7 p C f7 u
(progn
4 V! B- [$ S( p% t1 \
(setq ecolor temp_color)
" p' p. |* R1 p# r
(set_col_tile)& [1 w, y Y V6 d+ ~. z/ N+ B
ecolor4 B/ V& l" t0 J- h/ E. Q: Q- C
)
: I2 F, Y% T* N. ^
ecolor
% u! P. g4 m* F
) " o+ Z N: t5 V- z. Z$ t. o
)
* i# O n7 k# ]* A2 d) V& q
;;
8 N% U. N( E& P* x
;; This function pops a dialogue box consisting of a list box, image tile, % _1 [9 ~$ B: }" }$ @/ U
;; and edit box to allow the user to select or type a linetype. It returns 5 v; O* U1 B, f2 x7 n0 ]" M& X" Z! _
;; the linetype selected.2 W( s6 A G6 s2 o! p) m
;;
! e+ a: [" U6 x+ e3 P( A5 H7 w
(defun getltype (/ old-idx ltname)2 p0 Y. x0 \ \( _
;; Initialize a dialogue from dialogue file
4 G j( \6 ~1 I; c& `: d8 ?5 H1 w
(if (not (new_dialog "setltype" dcl_id)) (exit))
, t3 B Z, \& c! G0 @- z7 V
(start_list "list_lt")
! s9 `" `1 u! J8 q
(mapcar 'add_list ltnmlst) ; initialize list box
1 a, q% b' n4 q" z: a v: V9 q
(end_list)" M4 q+ }5 o. k& x9 r
(setq old-idx lt-idx)
5 ]5 f: E6 N: `4 ?0 ]) N
;; Show initial ltype in image tile, list box, and edit box' }& w( P5 O8 t& u5 Y7 P
(if (/= lt-idx nil)
* k1 s. t+ M; `0 ~3 a# ^5 T* q D* W
(ltlist_act (itoa lt-idx))
4 E, `4 A/ E. N2 w( @- p
(progn2 S" |5 `# F& u
(set_tile "edit_lt" "Varies")' z1 o8 q$ s2 {) A$ ^4 l
(col_tile "show_image" 0 nil)
1 p9 f2 @6 [8 S
)
. X; L1 p% Y' @4 \1 R- K
)
. _3 n* H7 E! W; [& D9 J# ]" \& Q, p2 j
(action_tile "list_lt" "(ltlist_act $value)")
! T7 i. R; V" H; j
(action_tile "edit_lt" "(ltedit_act $value)")
}4 S3 n9 ~6 t: ~% ?" ]8 i
(action_tile "accept" "(test-ok)")
- Q* e0 s9 K: |7 Z* y2 P V. G
(action_tile "cancel" "(reset-lt)")
F: j! }& m7 b1 X' ]: W2 V" G
(if (= (start_dialog) 1) ; User pressed OK/ B! D8 U2 u$ g
(cond
% b8 a9 J, G- h4 r" N. z) P
((= lt-idx nil)& A2 d7 N: Y& d# f
(set_tile "t_ltype" "Varies")
# `, c2 ], P5 V K$ |
"Varies", w, F3 C: f3 U( j2 B& X
)
9 ~9 }6 r8 M( V
((= lt-idx 0)
& [% Y: M/ X# a- U
(set_tile "t_ltype" (bylayer_lt))
3 N( I+ a. x% s" c6 C5 {6 l
"BYLAYER"
4 [' j7 x+ U5 \& _2 t+ J8 r
)* u+ ]% T- V! H: J" w
((= lt-idx 1) }- n4 g" p4 N( w4 N9 `
(set_tile "t_ltype" "BYBLOCK")* U+ L0 d s0 X- |
"BYBLOCK"
' X; T- o! l" I6 b7 u8 U
)! T7 W F$ [$ [* i0 O$ B8 w7 v( i
(T
; u' i( j7 J' H0 n
(set_tile "t_ltype" ltname)
' [: a/ D: ]/ d) j0 @4 T. |/ J% l" V4 S
ltname& B; D% y! B/ }' z) i; i
)
- V9 j3 f! j8 \" W% d9 y3 t. O
)5 i- _* S/ ^0 w' j: E5 r: u( R% g/ O
eltype
% k" E3 I h( a8 |
)' Y$ ^' c# ~& U7 [. A/ f1 e" q
)5 Z0 G6 T a0 \* f; J" j
;;. Y9 m3 y8 m8 k: {8 w
;; Edit box entries end up here! c7 S: |; m' n8 V8 U2 X' m
;;* V1 z+ X- z Y1 S; j0 {
(defun ltedit_act (ltvalue)
! Q. N2 x7 p7 W) s+ i( N: C$ M/ X
;; If linetype name,is valid, then clear error string, 1 N6 o2 G3 X$ M/ |; Z/ ]
;; call ltlist_act function, and change focus to list box.8 z) r8 {! G9 \) P
;; Else print error message.
' w% `1 `4 L% d$ _
(setq ltvalue (strcase ltvalue))
/ k, ?$ r6 O8 s% D! l, s0 n3 J; w
(if (or (= ltvalue "BYLAYER") (= ltvalue "BY LAYER")); K$ Y4 w: A: ]" t' Q
(setq ltvalue "BYLAYER")
% h; A3 y* }0 X8 ?; F# \. t
)- W: G4 p) m) I+ s- G
(if (or (= ltvalue "BYBLOCK") (= ltvalue "BY BLOCK"))
" ^" V" }9 \$ [) r0 @, u) p
(setq ltvalue "BYBLOCK")
: S% t: P9 M ?
): B6 ^' C& N, v! A; ~
(if (setq lt-idx (getindex ltvalue ltnmlst))
6 S% P- c L: |' w0 I, x
(progn% k: {2 R' w$ d/ H2 P3 M
(set_tile "error" "")
/ n% }, x; d7 L+ `
(ltlist_act (itoa lt-idx))- V# |' B5 ]0 |2 T$ t5 ?
(mode_tile "list_lt" 2)
# y% U3 s0 W6 B8 X
). p' S* g" e, `/ l2 D' P# v$ r# o
(progn* B4 V, b' U/ A: r
(if (/= ltvalue "VARIES")
! u5 p! O! V5 B4 j J5 H- v
(set_tile "error" "Invalid linetype.")4 J- S' `! c8 X
)! A L0 ~1 O) B1 i# ?
(setq lt-idx old-idx)& p" \& Z v1 N9 i& m" F3 N
)
4 t8 W3 l8 M; z* O
) _% P% n; Z, E- `7 |
)% V, u& W/ v$ {( Q w5 P9 |! R
;;0 N) r0 l6 T( w& l, i: e) u
;; List selections end up here! M4 u9 f3 C8 [* B
;;- x( g. |) g$ e, }
(defun ltlist_act (index / dashdata)! Q' @& V! C: G
;; Update the list box, edit box, and color tile
7 j2 d# ^! p* f9 M" H
(set_tile "error" ""), Z7 h; [. O: q
(setq lt-idx (atoi index))
' e' r5 K7 U7 D$ P) B1 e U
(setq ltname (nth lt-idx ltnmlst))- [, ^- U( }* e! F6 j- g/ u; T' r
(setq dashdata (nth lt-idx mdashlist))5 L: r* q+ g8 D4 e/ I; k7 ?5 I( T
(col_tile "show_image" 0 dashdata)
. k/ U7 U. P# I4 s
(set_tile "list_lt" (itoa lt-idx))) _; E$ u% S) I8 u3 `
(set_tile "edit_lt" ltname)7 ~8 X" w3 F) ?' y5 C4 @) M( q6 p6 {
)
, q: f& z8 n0 B e
;;, X/ Z: k9 Z( C2 l/ d2 W
;; Reset to original linetype when cancel it selected& N" e( X( C! M/ Z1 f6 {* w( ?
;;) z; d3 y0 [7 s* E% W9 O9 U
(defun reset-lt ()
# i( [8 d& N8 ?6 n2 b# K
(setq lt-idx old-idx)
* J% P; v* k' a& K) W) O3 W. i) ~
(done_dialog 0)8 r8 b7 m0 B" d! G- x
)6 t9 E' m; M, J$ k4 c0 n! l
;;
" A1 }) ~5 b* T$ `; C; n
;; This function pops a dialogue box consisting of a list box and edit box to - m- E* C" e4 w- n
;; allow the user to select or type a layer name. It returns the layer name
! {9 ^* y+ h3 i! U3 ?
;; selected. It also the status (On, Off, Frozen, etc.) of all layer in the ' U6 ]! t# F1 w# M
;; drawing.
- v! v/ @; @; b8 s" e/ |' S
;;
. p5 G b# F4 G9 g' J
(defun getlayer (/ old-idx layname on off frozth linetype colname)
5 v; D; G5 Y- Q* p% A2 c% X9 l3 m5 h
;; Load a dialogue from dialogue file
7 r0 P' A2 `7 k9 m! I
(if (not (new_dialog "setlayer" dcl_id)) (exit))
( V* ~0 Y1 q3 X7 X& d) s/ y7 R. W$ m
(start_list "list_lay")
9 C& s4 z- S1 [! j$ G% ^1 a2 H
(mapcar 'add_list longlist) ; initialize list box
X+ h. W# p- f. ?# H
(end_list)
6 w7 }* E* O C. b5 y
;; Display current layer, show initial layer name in edit
* W6 n: j" z; Z: |- N
;; box, and highlight list box./ i" @# S5 q- t3 e8 {# Z7 M* S: o
(setq old-idx lay-idx)
3 c# ^/ ]1 x& H( V* X: J
(if (/= lay-idx nil) (laylist_act (itoa lay-idx)))3 k0 V' n, h% D8 W! ^$ J& a. l/ |
(set_tile "cur_layer" (getvar "clayer"))* `" o. T: [6 x8 E. R2 X3 X
(action_tile "list_lay" "(laylist_act $value)")
- v4 I1 L2 t1 {0 N. I- K, b
(action_tile "edit_lay" "(layedit_act $value)")9 [, k$ ^# t9 [$ S
(action_tile "accept" "(test-ok)")
# G6 w5 G4 }1 [9 D
(action_tile "cancel" "(reset-lay)")/ j' A2 E) o7 \, E1 V! ]
(if (= (start_dialog) 1) ; User pressed OK
) k& q* q7 }8 Z7 K- E( R+ L" A
(progn
! r* d9 n- p4 J0 X
(if (= lay-idx nil) (setq layname "Varies"))
, O' U5 N8 {+ W& F9 l
(set_tile "t_layer" layname)
8 ^( C2 t4 G. w1 e
; If layer or ltype equals bylayer reset their tiles
, y5 V' E5 O/ h7 s! u" M
(if (= lt-idx 0)' X5 F- v9 [% u, L: i4 j5 p& a
(set_tile "t_ltype" (bylayer_lt)), k0 n% S- ]7 G0 f
)
' Z5 ]1 L+ a* J' N$ c4 f8 @
(if (= ecolor 256)
& Z; D; s( B% z% \0 q
(progn) Y1 t/ D3 |" c. @
(set_tile "t_color" (bylayer_col))$ W/ B+ Q( }4 h9 i4 t2 c! C
(col_tile "show_image" cn nil)& a2 Y& P9 @+ @9 R @- D
)- d) j( A, a! H- }/ a
)
% b' c6 a9 t+ _6 I' w" H# y
layname4 E s. ~& W4 J5 v0 F3 q
)
2 ]- G) O, g% ~
elayer- I& X# M" h! c& h/ {
)+ d. D5 r) C: y; o
)
4 D0 X" u f1 O. O) `
;;: W- |7 s( C. l% Q* F. i: V
;; Edit box selections end up here. `, ]! b, d$ T- Y; A
;;
4 }" v0 [' d3 U5 \" q9 `
(defun layedit_act (layvalue)& s9 y3 f3 m4 h1 T( \. x$ Z! ^
;; Convert layer entry to upper case. If layer name is
5 J* Q# E( v& |* d# `, k
;; valid, clear error string, call (laylist_act) function,
+ k: y* I# j: L2 C/ e; W7 t J
;; and change focus to list box. Else print error message.1 F) N2 O- f/ K9 A: @
(setq layvalue (strcase layvalue))% |: y1 V6 B: p3 ]: ]
(if (setq lay-idx (getindex layvalue laynmlst))
/ m& k+ f/ X7 m
(progn
, c5 m; v; |; ~$ Q1 P, ^# ~
(set_tile "error" "")
3 P2 m7 Q* m5 K3 A8 t1 Q. J
(laylist_act (itoa lay-idx))
$ v# Z" f* E/ O2 D) l7 H. C: w3 ~. `
)
- i" [& N. K/ ]# n# k8 A
(progn
" ]( p' w$ Z1 ?3 O: J7 a
(set_tile "error" "Invalid layer name.")
2 b! U! a/ H3 e3 Z
(setq lay-idx old-idx)5 y g. i% Y$ U$ O8 F" e- z5 z
)
% b' j1 W" P3 U6 G* c C. ~4 N6 J! P
)
. |- W4 s' y) W
)( Y. n* i2 ]* ]5 O1 R) J( H5 K
;; ^1 ^2 @3 {. V+ x( L8 a' n8 `
;; List entry selections end up here
4 S" B/ q' n+ X% U3 ]1 o
;;
4 d/ D2 T$ r2 [8 M* N# y
(defun laylist_act (index / layinfo color dashdata)
; j/ G* d6 ~! N* `" A2 H/ D: ]
;; Update the list box, edit box, and color tile' k, U# W; y9 H6 i9 x1 C4 `
(set_tile "error" "")
( O" \6 f+ C# o2 A* R
(setq lay-idx (atoi index))6 k0 |. w- ^! q" N& y9 Z
(setq layname (nth lay-idx laynmlst))
& f" H7 E j j2 e
(setq layinfo (tblsearch "layer" layname))
. K9 s8 N8 O( G; Y
(if (= (logand (cdr (assoc 70 layinfo)) 4) 4)
, U Y3 S o' s' Y& m
(set_tile "error" "Cannot change entity to locked layer."); E# B6 K+ n v& q, [9 D, V
(progn7 ^: u( V! G; b# [ F% E3 m
(setq color (cdr (assoc 62 layinfo)))
) a0 ?/ ~- j2 _# I- l( Y: k0 \
(setq color (abs color))
4 Y% g- o0 S A' i, q. [0 f& Y
(setq colname (colorname color))
- z+ ?5 k1 ^1 V" `' }1 F
(set_tile "list_lay" (itoa lay-idx))
/ X5 i& p6 X' y3 C o3 o
(set_tile "edit_lay" layname)
7 S$ }; O( k1 m% i" e2 d6 {* y
(mode_tile "list_lay" 2)# P& s" O% g6 |: ^, V# z
)6 o* O% O' R% C' N
)/ Z+ h5 i, E# p/ x+ i) d7 ^
)
2 n. D( V, u* z; U2 \; g# y* [. l! ^
;;
9 T4 t8 |; l+ L4 P" e
;; Reset to original layer when cancel is selected/ Q+ X5 ]3 h- {, j4 u+ j
;;$ p. f, i6 v: l" n
(defun reset-lay ()* M* p$ Z1 B) T# `
(setq lay-idx old-idx)
! d% a4 O+ K" y) z: g* Z
(done_dialog 0)$ Q: \# i* a+ A' P! z, C# J
)# ^, t$ W6 {" W1 ?/ D! {
;;4 F/ W! I4 A }- c; d4 h
;; Checks validity of thickness from edit box. Since (atof) returns 0 when a ; D. ~' b: f0 K! {9 H% J% p) \& I
;; string can't be converted to a real, this routine checks if the first 8 [' E/ L& L4 G; a; t
;; character is "0". It also checks to see if the value equals "Varies".
1 |8 U A5 t7 }) [+ V
;;
7 u' Y5 p/ B9 w( W
(defun getthickness (value); L/ J0 y+ K9 A2 A9 d: a
(setq value (strcase value))0 j8 J' y. M" @7 L. D G
(if (or (= value "VARIES")+ f3 B s% i0 i' S9 G
(distof value)
( x! Y9 ~$ S P+ [
)# q% G7 R0 ?9 v- a
(progn( z" T8 [5 ~* n+ N) N
(set_tile "error" "")7 ^2 L- q4 ]& s! f7 y( D
(if (= value "VARIES")5 O( `! k9 p$ i# A! G, f) A
(progn( P: ]6 y+ X+ B* P; j: F: ?
(set_tile "eb_thickness" "Varies")
8 T) x- c7 Q4 w5 J: ?3 W2 F
(setq ethickness nil)* M# Z9 B5 b! j- h
). R$ G& X/ [1 `7 X y% k7 K, i! B
(progn0 i. B7 j4 l5 z% }" d
(setq ethickness (distof value))' Z% E' D& M5 K0 G2 @
(set_tile "eb_thickness" (rtos ethickness))
' a0 o0 F4 r& H; [8 K: A+ R
ethickness& h* u2 a3 u+ ?& C
)
$ B5 z* ?( Z$ h4 Z5 W
)
/ l7 c% v$ `7 b7 M: Q5 }5 L
)
; w4 }& H6 `8 g9 Q% Z1 D$ B
(progn
* S( U) n- H! r; a5 O
(set_tile "error" "Invalid thickness.")
4 m3 U" [. `1 `. C2 z! C/ O$ w+ ]
nil6 n9 q! H0 g3 e' L0 c% ?
)6 D6 s' B' g" W
)
0 Z% G: X- q4 o
)8 h3 A& M( Z6 u0 m
;;
I+ l! a( X5 x1 F Q, J
;; This function make a list called laynmlst which consists of all the layer
2 n X2 E+ F, V; X0 |8 P5 ]
;; names in the drawing. It also creates a list called longlist which : a5 j; G% }. y9 Q* f2 k& w
;; consists of strings which contain the layer name, color, linetype, etc. " e4 N9 o7 ` v L' s8 g5 T3 ~0 S
;; Longlist is later mapped into the layer listbox. Both are ordered the + U9 Q l7 k6 c' K- ^" x
;; same.
/ L9 a6 B& o+ K" H& l4 J8 d; M
;;
4 f9 ?0 V0 w0 p6 T8 F% ?3 E
(defun makelaylists (/ layname onoff frozth color linetype vpf vpn ss cvpname
8 ]4 ?+ ?# F. b, S$ w' [
xdlist vpldata sortlist name templist bit-706 w2 {( ?6 {5 I/ O, v2 Q/ P1 m
)$ s, [! e' A3 B) e8 q
(if (= (setq tilemode (getvar "tilemode")) 0)2 X" B Y: [! Z
(progn
8 n$ F) Z1 z+ K
(setq ss (ssget "x" (list (cons 0 "VIEWPORT"), A* F& f* \5 O0 O8 {. g* L- c
(cons 69 (getvar "CVPORT"))' r/ ` M V* u j: ?7 } \
)" Y8 n/ Y8 e5 { F) N0 E
)
/ Q( c4 _" m2 g2 C9 J, H9 T2 G5 t
) / |$ r" @6 c. ]. w+ H, u
(setq cvpname (ssname ss 0))6 ]& c" P8 [3 O3 b% @- S. v: w# E
(setq xdlist (assoc -3 (entget cvpname '("acad"))))- w1 |6 `3 j3 S4 M$ W9 W
(setq vpldata (cdadr xdlist)): R) i }2 x' {: ]
)$ B, i% e( n) h' u% ]! p# {' S5 l
)- q2 ?, n8 b+ k8 H- h4 u5 t* n
(setq sortlist nil)& @- }/ U$ [& \9 n8 Q
(setq templist (tblnext "LAYER" T))9 R4 s. p; V1 C0 f- E: ]
(while templist8 v, C3 H: ~& M2 ~1 F
(setq name (cdr (assoc 2 templist)))3 k" Q+ F/ P& P, n' u3 d
(setq sortlist (cons name sortlist))+ P9 N- m* I. L: g
(setq templist (tblnext "LAYER"))8 z/ y6 V) ~ S3 c0 W4 c
) 8 h# v& g+ @% N& T
(if (>= (getvar "maxsort") (length sortlist))0 K3 y9 U8 ~% l7 W& N' n4 D
(setq sortlist (acad_strlsort sortlist))6 ?# ^9 L# a+ J; H4 t( f
(setq sortlist (reverse sortlist))6 {( R, r. }' z0 A! x$ W
)
, d" y' [* z! U! u5 q
(setq laynmlst sortlist)
5 d$ Z$ Q2 A/ t7 o( _" O
(setq longlist nil)
0 @8 J7 f% a6 u ~
(setq layname (car sortlist))
; Y" G1 q3 e4 k9 e1 ]) @
(while layname; h" Y$ t/ j* i% D, B" ?
(setq laylist (tblsearch "LAYER" layname))" X" _+ r& g' l q7 J
(setq color (cdr (assoc 62 laylist)))
6 Z0 O4 G- l9 w) t# [0 g% o8 `/ p8 R# P
(if (minusp color)
7 X }0 I7 A7 ^/ `. o
(setq onoff ".")
% i: r5 {3 y# d& K
(setq onoff "On")3 Z# N, H" a5 X
)
" E5 W- W' ^3 Y9 C/ C& S! v
(setq color (abs color))9 z2 V! E Y" }% B5 o; b, ?- D
(setq colname (colorname color))4 t8 w0 f, M( `
(setq bit-70 (cdr (assoc 70 laylist)))+ l: [, E' _4 M D: D8 Q$ P
(if (= (logand bit-70 1) 1)
. {- f6 `$ l2 w7 `8 p9 J
(setq frozth "F" fchk laylist)
/ \6 u. C, {* E' a6 A; w3 P
(setq frozth ".")
)
2 V- V+ e3 S+ p
(if (= (logand bit-70 2) 2)2 H" O+ Z: W' b4 L) T! {1 m1 P
(setq vpn "N")( s4 z" K' h4 B9 U# D* Q
(setq vpn "."); i; T& ^, Y/ E+ [8 |/ Y
)
0 a. ~+ O% I5 Z% D; H# v
(if (= (logand bit-70 4) 4)
* X# k6 X; @* Z l. l0 _( b
(setq lock "L")- \# w1 Q! A$ |# R1 Y2 ~
(setq lock ".")
3 _' |; ]( E1 c, ]: o% v
)# B6 K8 i- ]* I
(setq linetype (cdr (assoc 6 laylist)))( h) H: c D( h4 O" Q' b4 ~
(setq layname (substr layname 1 31))! x2 E. S2 W+ _- P) x" H: L( _
(if (= tilemode 0)
( k! }* e! n$ \/ y8 N
(progn7 X6 @3 H$ V& D$ V9 q7 |/ V: c& V
(if (member (cons 1003 layname) vpldata)# D( m* V+ m- H7 ^& x
(setq vpf "C")
- M5 d$ i+ s/ j4 o+ N* A
(setq vpf ".")
: u& _, ^5 ^2 K+ m6 u1 ?# G
)1 e8 l! t$ N" i4 t! v$ M
)! H @0 f' \% T9 u$ ~
(setq vpf ".")% h* R* p, V6 E; s
)! X" |2 n) q$ i' }8 y
(setq ltabstr (strcat layname "\t"
8 V# ~$ t5 s( |6 k/ l
onoff "\t"2 |6 E: s; K" |1 @" f; M3 H+ p
frozth "\t") F. s5 L5 j+ O% Z
lock "\t": q9 k8 j$ m U m& @2 Y2 _
vpf "\t"
$ ]1 b) l- }; R
vpn "\t"# Z. q1 x' p/ s8 V- A
colname "\t") O; K+ a, ~3 I5 V4 v) `
linetype3 c; S) v+ d/ c B3 [
)! r' C# R9 Z4 [/ H' C
)
$ q+ ?! O4 a. ?5 e& p! Q
(setq longlist (append longlist (list ltabstr)))6 k8 C" O' L& b5 \- k
(setq sortlist (cdr sortlist))3 F, \$ a7 v0 ]7 g/ P
(setq layname (car sortlist))& y4 E( L6 G! ]+ |) W: V) A, X
)
9 v# d# L! Y8 }3 v8 _0 D5 r# g
)
$ v% A9 o- i# X/ _: T
;;; F2 S7 S: C6 k$ ~$ Z$ p8 b. N
;; This function makes 2 lists - ltnmlst & mdashlist. Ltnmlst is a list of
+ y3 D1 |0 R) m8 _( n) v
;; linetype names read from the symbol table. Mdashlist is list consisting 4 d5 m; c! ~7 q7 [- q
;; of lists which define the linetype pattern - numbers that indicate dots, ! m( G; a' i+ k) s- n1 B" o
;; dashes, and spaces taken from group code 49. The list corresponds to the
; O! N1 m$ r& s8 N5 O3 N
;; order of names in ltnmlst.7 l4 w* ?9 H5 n+ r8 I6 w
;;8 N' b7 v8 C, x* C1 B% d1 g
(defun makeltlists (/ ltlist ltname)* E3 @+ H' Z4 U1 t! w; Q5 `
(setq mdashlist nil)
% e7 M; q' Q- V6 F, K- M8 U
(setq ltlist (tblnext "LTYPE" T))
; L4 X: w, [9 U. @
(setq ltname (cdr (assoc 2 ltlist)))
: A6 c+ A5 t2 K- Q, |2 u6 j) W
(setq ltnmlst (list ltname))- U! v" L( }- ?9 d
* q, v% d, N7 [) ~4 d/ k" p% w" ]
(if (= ltname "CONTINUOUS")
! r5 n ]8 Y0 B4 W! o
(setq mdashlist (list "CONT"))
1 c8 Z2 y3 g* N; W7 u5 M' `( B. P
(setq mdashlist 0 \& z# Z1 D2 G$ m
(append mdashlist (list (add-mdash ltlist))). }5 `: E, A7 m- ` W
)
9 |, r" l; f0 i0 T6 l
)& ^% B8 m3 [1 S) v5 x2 V1 p
(while (setq ltlist (tblnext "LTYPE"))
/ t5 g" G3 U5 [7 J0 S: ^+ X1 E
(setq ltname (cdr (assoc 2 ltlist)))
* M; k- n3 D3 b5 a$ {" u& x; _
(setq ltnmlst (append ltnmlst (list ltname)))$ b$ L( A8 U7 o. b
(setq mdashlist . Q& {% y, h( z7 `# C0 Y. n
(append mdashlist (list (add-mdash ltlist)))! X) d9 N1 e1 q7 D
)0 s. U! M, `& V, n5 m1 v
)! a7 s1 R' P# J# J! u9 U) i$ @% @% z) P" O
(setq ltnmlst (cons "BYBLOCK" ltnmlst))- p( }. u$ ?- p9 i( X2 R
(setq mdashlist (cons nil mdashlist))- A4 n! I R2 l: Y; B* i. c D4 q
(setq ltnmlst (cons "BYLAYER" ltnmlst))9 V! C) b G( @* a! ]
(setq mdashlist (cons nil mdashlist))
7 B* j4 Y" g# o" v
)
3 U# t# `! m8 t. W
;;9 M0 e! Y5 z5 @5 X$ O6 E8 ~3 U
;; Get all the group code 49 values for a linetype and put them in a list
, T. \* L. z/ C4 }3 m
;; (pen-up, pen-down info)" w5 E2 G* x) R5 l* q: j3 ~
;;2 O7 D# o, y' h+ T2 e
(defun add-mdash (ltlist1 / dashlist assoclist dashsize), t9 _2 s2 s1 x& c
(setq dashlist nil)% ~! p0 p$ u9 p1 B# }) @- Y8 j6 a
(while (setq assoclist (car ltlist1))* _0 P* ^1 [$ _3 x) d" E
(if (= (car assoclist) 49)0 f# n. w. }: f; w6 T4 c
(progn/ T- L7 g: W4 b$ F M
(setq dashsize (cdr assoclist))
8 \" s y# ]. u. B9 @" L' o" z
(setq dashlist (cons dashsize dashlist))' M" E" i9 T3 ^( e% b* w
)
3 P5 T- \8 G# L0 J
)4 l/ m" y) j7 R( s
(setq ltlist1 (cdr ltlist1))
' r! V6 d: k. A! R
)* e' Q2 x8 U! d3 u& |, f2 k( D
(setq dashlist (reverse dashlist))
/ L: h/ Q7 p. Q; v! h+ T1 l
)
7 \! {. ]( A% Z, \6 @% }
;;
% }. o4 b, z; Z6 F8 z
;; Color a tile, draw linetype, and draw a border around it
$ [8 G0 j1 J! I+ h1 p/ V) x! [8 b
;;
: t+ q/ n" ^* _0 y
(defun col_tile (tile color patlist / x y)- D; o$ M, S5 f7 {: w6 P
(setq x (dimx_tile tile))
9 j7 O9 v4 r" ^% Q) j
(setq y (dimy_tile tile))5 I* T# b! g" }
(start_image tile)! q: R( i* D( c y
(fill_image 0 0 x y color)
7 }9 A! F8 ?7 Q3 I; U( Z
(if (= color 7)
$ Z1 p4 a6 u2 L: t4 C- W+ v
(progn' {. u" G4 Y4 ?( t: F4 M3 d
(if patlist (drawpattern x (/ y 2) patlist 0))
- }) j g" x+ W, U
(tile_rect 0 0 x y 0)
8 h1 C3 j& A- V# E% L: R
): Q9 u' X; s4 u2 L1 G. U
(progn" D) S+ t& E0 o
(if patlist (drawpattern x (/ y 2) patlist 7)); z( L8 w: r5 l) N
(tile_rect 0 0 x y 7)* `- y2 Z* V: _5 T( W6 m/ g( l7 k
)! U: T. z* r% |5 G. Y
)
& S& W7 S3 R6 J. v
(end_image). G' p2 ]$ Z; |# W* P1 K1 _0 P
)
. V. J% c1 \2 e! ^7 c/ @# f* U' Q
;;0 i: a" T' ?' U' H8 d
;; Draw a border around a tile4 |3 z1 R9 R6 b4 }1 }
;; ^7 q, k% s' Z* j' G
(defun tile_rect (x1 y1 x2 y2 color)
5 K, S5 i. }7 z: s- [
(setq x2 (- x2 1))6 s+ G$ s. ~ w8 Z, c5 K- N
(setq y2 (- y2 1)) K+ T% r P8 y2 x( A. w0 E
(vector_image x1 y1 x2 y1 color)
+ s' c4 ~( B3 s) e6 P L8 P( f) I3 z
(vector_image x2 y1 x2 y2 color)5 @4 Z5 A+ _3 T' e# ^ V( f. G
(vector_image x2 y2 x1 y2 color)
/ l) b. i7 ~" q$ w& }
(vector_image x1 y2 x1 y1 color)5 s8 ` P. P- K" S$ m* l6 Y/ O
)1 A" u/ c4 X! F& c! S
;;8 z- a. T9 u) j: [) `
;; Draw the linetype pattern in a tile. Boxlength is the length of the image * w2 J9 C9 d; |8 N$ J# L( r H
;; tile, y2 is the midpoint of the height of the image tile, pattern is a
8 S9 I( |$ u$ i7 I1 x
;; list of numbers that define the linetype, and color is the color of the & r4 T& U# I, Q- H8 e( e0 ~
;; tile.
, ]/ A- B0 V* S8 ~3 Z3 a* w% ^
;;# F+ }+ F% o7 L, X# o, @/ _
(defun drawpattern (boxlength y2 pattern color / x1 x2
; h1 c; `5 N3 t, v. O/ A0 U
patlist dash)3 g9 X9 s, o/ n
(setq x1 0 x2 0)9 Y1 }$ d; y. V' k& C4 x5 O
(setq patlist pattern); {1 O" o9 ^0 L( y1 G6 q- }
(if (= patlist "CONT")& p* V9 f) B# i
(progn
; Q! r" _- {7 K, y X
(setq dash boxlength)
9 W' S- v6 F3 i8 t$ ]- O- t' z
(vi)
0 | D# ]- }9 u" l8 N% s
(setq x1 boxlength)7 N0 M5 D" U+ M
), B# e2 B+ B6 v6 m4 @- v3 o
) o4 | a9 v% |* k
(while (< x1 boxlength)
7 u$ V! ^, A9 O. }; F0 T
(if (setq dash (car patlist))' v) l' N* j* d. ]4 g8 S; D. s
(progn* j1 [4 F% X8 f- G4 x. |
(setq dash (fix (* 30 dash)))4 f5 U) b: V- k O# s
(cond - B- y/ E5 S3 h( ?8 ^) [6 G5 e- j
((= dash 0) 8 y0 Z1 P# }4 l9 T9 X7 R
(setq dash 1) 6 ~+ o. j6 t P
(vi)
/ k0 g# z _- w" U( D, b
)
- Q2 y7 _5 K, Y% q( F
((> dash 0) # Z/ d. F/ S% y1 R/ @
(vi)7 y& k- u0 X# G. Z* a1 U6 Z* y
)( X- B$ T3 z0 a1 b
(T
3 O+ c- c. }% h3 v% X/ `7 q" \
(if (< (abs dash) 2) (setq dash 2))# O9 y9 E/ m+ S( L* J, E# d
(setq x2 (+ x2 (abs dash)))1 X8 W/ w4 X- v/ c
)0 Q1 r j4 {2 N
)
5 M! m, B% J$ h9 x, m0 a, e$ B
(setq patlist (cdr patlist))3 b0 m% [. V4 T) ~
(setq x1 x2)1 y6 b& T1 v3 M9 @1 w* ?. d7 ?
)1 X {" B8 ~: i4 a3 X, c
(setq patlist pattern)/ Q0 F4 C- G2 }/ J: d
)
5 M* Y0 V8 R. z
)4 h: t% ?# M. U" ~1 j1 I
)$ g, j, z. L c7 F
;;
8 |2 D! f: Q/ e8 U( k! f: L
;; Draw a dash or dot in image tile2 W* |' S4 o, b r- ~6 r Z% ]6 \) ^
;;$ F% P @+ Q8 u" k
(defun vi ()" P T( V8 D$ A: |. J. E3 A
(setq x2 (+ x2 dash))
# n' @. Q: I, R5 \
(vector_image x1 y2 x2 y2 color)
: H# {, O" f9 l/ ^, e% T
)
, r. |6 g/ ?4 N6 A
;;
G" E: l* |; C4 B
;; This function takes a selection and returns a list of the color, linetype, 0 s& b) c' e4 `+ F8 m
;; layer, and thickness properties that are common to every entities in the
6 w7 o5 V* b" N. O
;; selection set - (color linetype layer thickness). If all entities do not 4 f' b S1 C1 ], _4 h$ u8 J
;; share the same property value it returns "Varies" in place of the
. B9 t5 u. Y! _ f: R
;; property value. i.e. ("BYLAYER" "DASHED" "Varies" 0)
& `4 g( o- }9 T# D
;;
0 ~, T d; G! ` U" B$ T( p
(defun getprops (selset / sslen elist color ltype layer
! \3 j9 n# i w
thickness go chk-col chk-lt chk-lay chk-th ctr)
$ k s2 R& l7 N* D( ^
(setq sslen (sslength selset))2 h4 k- W, |0 d
(setq elist (entget (ssname selset 0)))
% T& ]0 I8 u& p4 w" X: k
(setq color (cdr (assoc 62 elist)))
3 G8 g. h/ b' W, D
(if (not color) (setq color 256))
; F; r" F$ k5 L" f& E( _
(setq ltype (cdr (assoc 6 elist)))! I$ f& o! _( g
(if (not ltype) (setq ltype "BYLAYER"))
. a; e9 e+ p: ^
(setq layer (cdr (assoc 8 elist))), s. K7 {4 M3 U. e
(setq thickness (cdr (assoc 39 elist))): D+ G" D6 u2 c$ ~: v
(if (not thickness) (setq thickness 0))3 A! W& Z- q" y# n. n
(setq go T chk-col T chk-lt T chk-lay T chk-th T ctr 1)
8 c( x" d, F3 C/ \# K
# {; s7 X; b! s5 q! M
;; Page through the selection set. When a property
2 o% _5 q# W+ P( y
;; does not match, stop checking for that property.4 u- V4 O: t3 _/ N6 r6 s0 m
;; If all properties vary, stop paging.
. b5 s4 s7 ?. l* j- M- H/ L1 j- M
9 S q' r' F: D4 Y
(while (and (> sslen ctr) go)
& f) `' G! C5 N k$ E4 K |
(setq elist (entget (setq en (ssname selset ctr))))
1 T Y3 ]" {* y- J& `
(if chk-col (match-col))
) @* A" Z% i3 `) d8 |5 |
(if chk-lt (match-lt))
( V; j u' X. E5 |" x9 S
(if chk-lay (match-lay))
' {9 l! x. _1 C0 a/ r" Y
(if chk-th (match-th))* i6 A' X, h' ?" Z D L
(setq ctr (1+ ctr))
! X g; k' O J5 B8 d2 ]
(if (and (not chk-col) (not chk-lt) (not chk-lay) (not chk-th))1 O7 k. G; ~) K' O* o4 i+ n3 Y
(setq go nil)
4 Y! \9 B, l4 K9 |- X' l b
)3 }3 a. r _( K2 f/ ~( u/ k
) i6 N& F9 f" `: N- f. Z) M
(list color ltype layer thickness). }0 q4 ?0 b0 d) h
)- ]+ b4 D1 @+ N% h; b/ h9 d9 b
% c! A! I/ \ Y. s6 ~+ J: i3 a
(defun match-col (/ ncolor)
" Z" w3 e& J/ N! }. Q
(setq ncolor (cdr (assoc 62 elist)))
* Z; }* ]9 O+ p3 u4 J8 V# b
(if (not ncolor) (setq ncolor 256))
# v' q. A7 Q( L. @2 |) j( N
(if (/= color ncolor) v! ]4 A: E3 f
(progn
0 ^4 ^ e% u. [1 ^( \" [2 W
(setq chk-col nil)% a0 d2 w2 }* D7 j) A
(setq color nil)
* s7 i+ o5 w/ s+ ^: [2 P
)$ M1 G( A: |' n* r9 i/ i. m' G7 N
)
" P, K+ a# j3 G: `( L% e* H3 ]- }
)
4 o; A) u. C. Z* d( [
' V% @6 A5 [% H; P1 r7 }; ]' J
(defun match-lt (/ nltype)
; y' |9 D B& s* D3 p% f) D; a) @
(setq nltype (cdr (assoc 6 elist)))1 |6 [ m$ N! \
(if (not nltype) (setq nltype "BYLAYER"))2 k% C B3 s R5 } h Q f
(if (/= ltype nltype)" S# D2 y6 a9 z% z; w% g1 d( {
(progn& F' `- P9 w5 b$ f5 q+ _: q
(setq chk-lt nil); \# \4 W) |5 k8 Y/ e8 P9 m
(setq ltype "Varies")1 c0 n( h% f; u
)6 G0 d u9 S; o( p* ?
)" P& d9 `5 b! \9 F( \
)" {, ]( D1 |' W( u
3 X- ?! _4 }3 |, q; S2 x% I
(defun match-lay (/ nlayer)# Z5 y8 r) }0 F) J0 J% A$ b" a# }
(setq nlayer (cdr (assoc 8 elist)))4 L' |* K, I$ B% ?% Q3 q# Z: U& E
(if (/= layer nlayer)8 Z) u, B @; L7 D! w! b3 R0 s
(progn
/ t( H8 n$ N5 n2 x9 O& [$ c
(setq chk-lay nil)
; a' g- Z5 O2 k7 Y1 I( [
(setq layer "Varies")
2 ]5 S) q: ]6 M! Y* {8 A: j
)$ m% q% t+ [" c6 X& v
)" R4 h! H, M! j
)
! z& A( s% Z' Z: T
2 |" s& p ^9 h# F8 S
(defun match-th (/ nthickness)6 V7 m& I5 G& F) o/ B& R: H& s
(setq nthickness (cdr (assoc 39 elist)))
, W; ?) a" N& G
(if (not nthickness) (setq nthickness 0))/ G8 x. z. r' L" M0 S4 [" j4 D
(if (/= thickness nthickness)$ B% O p" e7 E, W( c
(progn
$ S! K9 E$ d* w) O; n
(setq chk-th nil)( {$ g2 q9 M% o$ e" @2 r
(setq thickness "Varies")
* _% k. ^, x8 x% d* d" G* r* v0 W
)
: N L3 O2 G( r3 p9 f/ I
)- k2 z5 O4 a, K4 j+ K) Z
)
( e- I1 B& c4 m+ u. `4 Z
! c- A3 x# t7 ?; R
;;5 I' t5 x! p5 \/ O l4 T4 E' W
;; If an item is a member of the list, then return its index number, else
2 n/ K" Z# Y2 ~
;; return nil.
: b! j& d) p! m' m9 a- R0 x! D
;;
% G/ ~/ _- F M$ s1 i8 _
(defun getindex (item itemlist / m n); u0 e: q: {; n% u0 I: L
(setq n (length itemlist))
( }% S5 z) r* T7 @9 @% C/ ?
(if (> (setq m (length (member item itemlist))) 0)
% s3 ?1 y% K9 x) w) `
(- n m)5 k, v6 G9 }, r0 |8 W. s
nil9 k4 l- R8 u; u( @) V
)1 b& M- ]4 g" e# L/ C
)/ a2 L ?2 P7 j: d2 @
;;
5 u& g5 m" I$ l: |
;; This function is called if the linetype is set "BYLAYER". It finds the
7 z+ _% y" v; Z; A" Y" W; n X
;; ltype of the layer so it can be displayed beside the linetype button.
1 n& `2 B/ D' E9 h: U2 s9 c
;;
3 {8 F- S; s- G, z
(defun bylayer_lt (/ layname layinfo ltype)
: M( i0 @7 R" x7 _
(if lay-idx
/ Z! w" H! K- G% E& o# ]6 A+ }
(progn
, z/ i8 N M' _ ]) ? L
(setq layname (nth lay-idx laynmlst)) ~* b* S+ e) K0 K1 r
(setq layinfo (tblsearch "layer" layname))& p8 `' x0 |. K% O) Y
(setq ltype (cdr (assoc 6 layinfo)))+ D) Z2 B, z, V: V+ ~
(strcat "BYLAYER (" ltype ")")
$ Q4 ]6 E Y4 F d
)
0 y0 O+ P: N. R% ]7 E8 h
"BYLAYER"& }+ n% A2 m3 \9 v9 x
)
7 i2 `' P) q' J( @* L7 ?. l) c
)
/ l+ U6 x: v2 S6 Q
;;5 @ @- u1 R3 h, F4 i
;; This function is called if the color is set "BYLAYER". It finds the 0 j$ m' s4 q5 H [; k) E8 h2 S
;; color of the layer so it can be displayed beside the color button.9 B' N! d2 ^/ _0 y& \% p
;;( V2 S# m( v+ v1 E
(defun bylayer_col (/ layname layinfo color)
1 ^1 n& t: A* X: T/ \
(if lay-idx2 h6 P: B ?( O- @6 u" t
(progn5 ?# h: D+ p. c3 }" }7 g8 l
(setq layname (nth lay-idx laynmlst))2 O1 a: k& l2 a2 c, g
(setq layinfo (tblsearch "layer" layname))& w/ f" p% L! b. U6 ?
(setq color (abs (cdr (assoc 62 layinfo))))
+ k3 L; y; ^8 c5 J: j
(setq cn color)
! p; h3 v7 ~- l5 p) Z. p' ?& i
(strcat "BYLAYER (" (colorname color) ")")
5 f* b( I! r4 y6 O
)% _- V. q1 E5 o" y2 N/ u# K
(progn+ |; g" t6 E3 I* V
(setq cn 0)1 n: o5 B1 T4 d0 n7 D% a
"BYLAYER"
( `* C) O. o) M
)/ L; ~: A0 p1 S. f0 f9 w: |& t/ C
)
/ ~1 F7 Z) n' B, M7 H+ G' E
)
* T+ \* T, i; s/ j& e2 r
;;
/ b! e2 j- E0 H, [ j& \
;; If there is no error message, then close the dialogue
1 a- a8 m; m0 `( O
;;
- D9 j2 Q" q. h; @: P
;; If there is an error message, then set focus to the tile
7 ~, k3 I* E* p0 s' N* \
;; that's associated with the error message.; k+ ~( e. \0 G+ y6 \) n
;; @* X5 z, m! O
(defun test-ok ( / errtile)$ q" d+ G0 G' w$ N
(setq errtile (get_tile "error"))
. U* F% ]+ u+ B4 ~
(cond' K* m+ j3 }$ V! Y1 J+ l
( (= errtile "")9 X6 \: M8 A5 A; m8 u+ P# S; l9 L6 m
(done_dialog 1))
: b0 M! W" P- }
( (= errtile "Invalid thickness.")( r. Y K: w, a* V4 e/ R: V; p
(mode_tile "eb_thickness" 2))
/ q+ T6 L, j1 D( c) v! D( J6 m+ @) ^
)+ l/ x* A. p6 Y2 q
)3 e% c2 d! K! A" X( m4 X
;;) x0 T+ {4 i& @" A! X; ^0 Q
;; A color function used by getlayer.
L+ ^% l) |: {# k1 v" o5 W" F7 Z
;;& c$ M& H8 R8 s) t9 u. {
(defun colorname (colnum)
" h8 p; C0 K; O
(setq cn (abs colnum))/ v* {" z. l- n
(cond ((= cn 1) "red")8 ?; q" G( p. o3 J: C8 c
((= cn 2) "yellow")
# G7 `8 [4 |! d- X( }9 _5 [& {
((= cn 3) "green")
7 r3 {+ U% g8 v0 W7 Z3 \, U
((= cn 4) "cyan")9 l- X/ F6 y$ K
((= cn 5) "blue")* l! E, T8 b8 m/ H: m" F& X# J: o, X
((= cn 6) "magenta")
9 e+ F9 N3 w' ^
((= cn 7) "white")8 t' X+ k( h1 R$ L
(T (itoa cn))
/ c! @$ v* V9 d( H
)2 c, A3 z$ z7 q) {" k% V
)' ^! @5 Q) x4 ?8 O5 Q. V& J
0 d9 \, [) Z2 R) P" u, d
;;; Construct layer and ltype lists and initialize all
. R3 h$ q8 ]# a* g2 l
;;; program variables:
4 N4 Z; n; ?3 i" P. \; H8 s
7 m3 o/ N( a2 |
(makelaylists) ; layer list - laynmlst# A V1 e" n5 ]3 T" Q9 V
(makeltlists) ; linetype lists - ltnmlst, mdashlist
: J2 ]9 \- Q* _) ?- ~/ E a
;; Find the property values of the selection set.
, ]/ `. {8 K2 u. h6 ^9 R
;; (getprops ss) returns a list of properties from- ~# `1 _& K2 n. I O: `
;; a selection set - (color ltype layer thickness).
3 O& t- A, B" i3 W1 ]; t& [$ k
(setq proplist (getprops ss))$ `! h3 m6 P) P4 C; V0 ~
(setq ecolor (car proplist))
& m3 E' h. t8 F: k: h }
(setq eltype (cadr proplist))
# o6 Z3 p6 a) `3 z, T
(setq elayer (caddr proplist))* ~( d4 p7 @; S" ?% o
(setq ethickness (cadddr proplist))# i( n) {2 U5 s+ [1 f
;; Find index of linetype, and layer lists
8 C6 B" N! N7 n% h g7 [/ k: m
(cond
" H# q4 T. m. n3 D2 N0 P0 g
((= eltype "Varies") (setq lt-idx nil))
% `9 t1 A# M7 ?, U7 u# `2 N$ g
; ((= eltype "BYLAYER") (setq lt-idx (getindex "BYLAYER" ltnmlst)))1 _2 R+ |0 Q4 ]' d! K$ G
; ((= eltype "BYBLOCK") (setq lt-idx (getindex "BYBLOCK" ltnmlst)))
% f3 V9 H& D. H$ Q$ s) Q5 ]2 A6 Z
(T (setq lt-idx (getindex eltype ltnmlst)))
; T: s" J3 L/ G% W9 E8 z$ |3 S' m0 t
)
7 k+ j7 C; O. p/ u
(if (= elayer "Varies")8 s- ?# _( U' S3 w- J6 F4 H! o3 `
(setq lay-idx nil). o2 h1 }" c9 L) ]4 Q
(setq lay-idx (getindex elayer laynmlst))) L7 q0 B/ P$ z! f7 P; g
)
% p! x/ d+ G+ ~. B0 m
(if (= ethickness "Varies"). S* s3 L9 y+ V! z H
(setq ethickness nil)0 s) n) g7 Z: j% X
)
4 e; N5 ^7 _8 [( m, {$ t1 l/ `
0 ?5 u- v @ x2 S3 ~
) ; end (ddchprop_init)
* M' F+ X# n8 W. G. W; }( J
# h7 x: O" |1 R4 {4 Q
;;; (ddchprop_select)
% c! ~3 S: W. b0 J6 b* T
;;;
4 F1 p0 N3 `4 t* J& Q: v
;;; Aquires selection set for DDCHPROP, in one of three ways:
. @6 F0 h+ c* Y* r7 f7 V
;;;
: _( N& u8 A, a7 M3 o! s
;;; 1 - Autoselected.
+ p! J8 n9 ?6 P- W. T
;;; 2 - Prompted for.
; W) ?! P/ R5 {, \; `) O5 `
;;; 3 - Passed as an argument in a call to (ddchprop <ss> )1 n3 t7 c: C# R
;;;
. x2 Z6 V# V) Z
;;; The (ddchprop_select) function also sets the value of the) W# h0 S3 w) J
;;; global symbol AI_SELTYPE to one of the above three values to% t3 S/ A; v) P% c1 \7 e9 M
;;; indicate the method thru which the entity was aquired.
6 U' D% `/ x! ]
0 C& }& W4 P: n# l( |6 y2 w
1 I1 B4 M( ]5 M- }# W' B" J/ x
(defun ddchprop_select ()8 {' ?1 w1 t0 i, G$ q: J/ j5 }! |
(cond
0 u6 M9 T% u2 g, N' s* p: j
( (and ss (eq (type ss) 'pickset)) ; selection set passed to
. d' t! W& o3 t5 |- Q
(cond ; (ddchprop) as argument" t/ C- y. |$ @: T6 @
( (not (zerop (sslength ss))) ; If not empty, then7 A! z7 I5 O6 f& U$ N
(setq ai_seltype 3) ; then return pickset.2 M* b, \4 l# d3 |. a2 ~2 L
(ai_return ss)))), o R8 S( K) m* r- P [
G3 Z5 B7 z/ t: ]) ?" W
( (ai_aselect)) ; Use current selection' v; z+ _) y5 u4 j0 N6 S# H& w- Q
; set or prompt for objects
1 t) W& B) p! z# S
' K5 {2 Q7 X. i# Q. o( `9 g
(t (princ "\nNothing selected.")! u( q+ F2 y4 s2 G0 ]! z, H
(ai_return nil))
9 D* G4 A5 I1 y3 `0 y% s# H
)
: C! a+ ?$ f. ^4 u
)9 C9 P* l/ x) {! \
! x4 `2 S2 ^( H) ^% ?# p
;;; Define command function.9 {5 [1 I. O9 |) p
. F5 } K7 d' F1 ]0 Y
(defun C:CH ()
) a# { A& F$ T
(ddchprop nil)
* G: i5 L4 m, d: i9 \, t0 e8 V
(princ)5 v J* ^: ~! w
)* E) ~& Y& K: H' `" T. D4 A( K& J
& E/ D, }! z- e0 ~
7 V L& R4 v) D% P2 l: `4 g0 r
;;; Main program function - callable as a subroutine.
8 L g; a, z7 l# p" e
;;;: _, N! }7 E4 h+ b- w9 }# K
;;; (ddchprop <pickset> )
0 @3 ]4 O5 u Q$ f6 E
;;;
4 F4 L' |2 |' F8 |5 P) A: U
;;; <pickset> is the selection set of objects to be changed.: Z6 N3 L! F0 a4 a3 y d. s: i
;;;
4 W5 \2 {+ M% B6 }; A! [
;;; If <pickset> is nil, then the current selection set is! p" l5 \8 F$ m0 H
;;; aquired, if one exists. Otherwise, the user is prompted$ }, i" Z2 a* P2 c: N. n
;;; to select the objects to be changed.
) d9 i6 x! N) T9 Y7 j# F
;;;6 R& J; _4 l" i6 T' |/ Q' Y4 r
;;; Before (ddchprop) can be called as a subroutine, it must
/ {- W" g% Z: \5 x% e9 w4 \
;;; be loaded first. It is up to the calling application to1 ]% ^* I K: M; L
;;; first determine this, and load it if necessary.
/ w& l# o& q' d4 w5 ^
/ R* t2 r" r6 h0 ~: m$ L1 D8 K
(defun ddchprop (ss /) z) N8 C2 [$ ]! {' [! S7 Y" x$ o
y6 f/ V' K$ c H. U
add-mdash ecolor ltedit_act s$ S$ v' p& y9 ?% G2 b& \1 i
assoclist elayer ltidx selset; t$ D/ C1 Z; b, C. ~& B' o, ~
bit-70 elist ltlist set_col_tile
' k! {$ L+ v* }8 k2 g3 q
boxlength eltype ltlist1
6 s0 ]6 I0 t$ A' O. r9 R/ {4 w( l
bylayer-lt en ltlist_act sortlist
# S( b' d- Z0 @, ^
bylayer_col ethickness ltname
8 T9 t8 ?. x! o2 \
bylayer_lt fchk ltnmlst sslen5 G# ^4 Y) j% C6 s D# r0 A* e
call_chp frozth ltvalue templist
7 M& U5 t A1 z+ Z- E* r
chk-col getcolor ltype temp_color
7 A4 H* A6 r. n' T# ~
chk-lay getindex m test-ok9 Z; {: n: h! z' S( K; a/ D( i
chk-lt getlayer makelaylists testidx
0 n4 R% D& k4 f' v& L
chk-th getltype makeltlists testlay
: p2 Y D; O) _+ f
cmd getprops match-col th-value" W/ U9 c `9 b6 E- Z
cmdecho getthickness match-in thickness
- ?) E, ~+ }% \7 j4 f) R$ }
cn globals match-lay tile
1 \# a6 h [5 {: w o8 F8 v
cnum go match-lt tilemode
. N7 j+ u# {6 [4 X1 ~7 Q( R3 K
col-idx index match-th tile_rect
1 r w# C6 w4 @# V% Q2 p# T" d
colname item match_col vi2 H" E: v! l; a$ J* k; v
colnum item1 mdashlist vpf9 }6 F9 U/ d r" n* W
color item2 n vpldata
4 A/ q5 o! @+ h1 ~4 V6 P0 o
colorname itemlist name vpn
n6 |1 g" ?' X: J+ k7 x* N! R
col_def lay-idx ncolor x4 s" t$ @1 c4 e$ ^/ M7 k' n" I
col_tile layedit_act nlayer x18 u" S! s! m$ s: _8 Y( b
ctr layer nltype x2: c4 Q, M4 k5 F [- Y% z
cvpname layinfo nthickness xdlist
, \8 @& c. T. n( q: v
dash laylist off y
9 l' |' F) q9 J% I
dashdata laylist_act old-idx y1
* c( e( b) ~6 r
dashlist layname olderr y2
& x; y* ?; S, Q8 i4 c' z a
dashsize laynmlst on undo_init4 Z& A2 ]- f! c' B5 Z
dcl_id layvalue onoff- ]7 m# k0 k: p8 E9 v: @+ d4 n
linetype patlist
# c2 H1 g, Q) v7 ^& Q( Q
ddchprop-err list1 pattern0 K- _# d8 P$ I) t, L. x
longlist proplist
; J7 Q, Q0 b5 a# J0 B" S
lt-idx reset-lay% L5 i" B6 d. M2 M5 x& D5 Y
drawpattern ltabstr reset-lt- |0 Y$ j' w: |0 E W' F# t
)6 n) ]: o2 t X" E# S! |
6 S3 P% o4 y, y% F2 Q% D
(setq old_cmd (getvar "cmdecho") ; save current setting of cmdecho
& Q; o- I1 p ]3 Q
old_error *error* ; save current error function* |6 Z, x9 _% ]- Y7 B
*error* ai_error ; new error function4 O& t& g3 p! N) ^# o/ n
)
: e( C# W, \1 y- Z; L
4 W9 y; p) ~* t7 K6 r" K
(setvar "cmdecho" 0)
5 O( _* g, K G; g# @( y; k* o
: ~' k1 m- F6 }9 ^+ {* F7 n
(cond
( k6 U8 I; P; Y
( (not (ai_notrans))) ; Not transparent?* D- P K2 _1 `+ E! B4 z3 I% o
( (not (ai_acadapp))) ; ACADAPP.EXP xloaded?) @# R- ~6 i _( v4 G5 g! B; e8 e
( (not (setq dcl_id (ai_dcl "ddchprop")))) ; is .DCL file loaded?
2 \5 x# i4 [) K% G J5 z( V& N
( (not (setq ss (ddchprop_select)))) ; objects to modify?
/ ?6 Z( {4 ]2 j+ |% p) Y
8 i6 ^. R! K. i0 N$ D) g
(t (ai_undo_push)
- `$ `5 X q+ t- n
(ddchprop_init) ; Everything's cool,: C$ g! a) T" e, N/ g! N
(call_chp) ; so proceed!
8 f4 ]1 R9 \8 z/ o9 c9 i
(ai_undo_pop). g M- E4 e, M1 r, h
)5 {3 R0 ~" w( M* o+ b* x
)
) o; O+ M5 E3 Z% F; l5 M
1 g( U* Q- {2 B6 z+ n. \) z! Z
(setq *error* old_error) 1 ^ M+ W, C f8 s
(setvar "cmdecho" old_cmd)( o& B$ S# Z1 Z8 y! L
(princ)+ t0 o9 B0 h4 B/ k, C, w/ \& R; l
)
w- f' i, g3 U: z
9 k3 v, h' `2 h- l& g% m& O3 [. _" W
;;;----------------------------------------------------------------------------. u! x$ i& W/ A& O5 |
: T9 ~! t8 S$ y% ^
(princ " DDCHPROP loaded."). @* ~- R) T0 i" e
(princ)
0 p0 {# X" m3 r1 C) B. B% k
) l5 o2 y. c* J& U& T; M: R
;;;----------------------------------------------------------------------------
6 @9 k, u- r; w) _- M7 w
! z1 z1 A- X8 _7 F# ?5 ?: r
;--------------------------------ddmodify.lsp----------------------------------! M$ t- b* y$ x9 r8 e: Z
; Next available MSG number is 111
) z- L3 U- |" V
; MODULE_ID DDMODIFY_LSP_. w2 |- I! n% r$ S+ Y
;;;----------------------------------------------------------------------------
( _- X7 q( t6 f7 z) U4 l5 f0 i" {
;;; DDMODIFY.LSP; w& Y" J h8 T
;;;* u$ y# Z8 ?) {5 r/ q6 u9 i0 c+ H
;;; Copyright 1997 by Autodesk, Inc.0 `' U( z7 W3 {+ G) _5 s
;;;2 o" s5 M, A0 }2 @) s
;;; Permission to use, copy, modify, and distribute this software) c _( m% x s9 s
;;; for any purpose and without fee is hereby granted, provided! t3 v, s3 p7 Y" j8 N3 n7 T
;;; that the above copyright notice appears in all copies and
4 a5 T( I: m- ?' l) _5 {
;;; that both that copyright notice and the limited warranty and
5 U! a3 K7 ~2 u& e) d% c
;;; restricted rights notice below appear in all supporting
* O- T+ w) U9 {( F' \% H3 M3 @, n
;;; documentation.4 z9 Y/ ?/ P$ b5 f3 Z
;;;& f* b9 W7 K! z1 l I* @
;;; AUTODESK PROVIDES THIS PROGRAM "AS IS" AND WITH ALL FAULTS.
2 C; H. n0 B- n7 t% F
;;; AUTODESK SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTY OF
" J8 S) ^$ p# c2 h6 V' Q& P
;;; MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE. AUTODESK, INC.- q+ p4 s+ M) N0 U8 c
;;; DOES NOT WARRANT THAT THE OPERATION OF THE PROGRAM WILL BE
- _9 v# r. ^ r+ V
;;; UNINTERRUPTED OR ERROR FREE.$ U' E U9 y6 ]0 m) N2 J2 ]
;;;
% p# q- v9 Q+ t7 d3 E) l: ^; t
;;; Use, duplication, or disclosure by the U.S. Government is subject to
/ M7 [/ z: T G' d/ q
;;; restrictions set forth in FAR 52.227-19 (Commercial Computer- P0 g v$ e0 s& s5 E. Q8 u
;;; Software - Restricted Rights) and DFAR 252.227-7013(c)(1)(ii)
;;; (Rights in Technical Data and Computer Software), as applicable.; }9 v5 t T6 v# W9 z; y
;;;
7 \! q" {- w. n! B' z+ b4 H
;;;.* l, i; g) \. {8 Z3 y& f% U+ ?
;;;1 l) k# b& \1 h/ `6 r/ C; a6 Q& R5 G, a
;;;----------------------------------------------------------------------------
1 t+ C' E: }% a4 A. J
;;; DESCRIPTION- T) e7 ?8 q6 K- b# k
;;;
2 m0 I7 o% [/ z6 n
;;; This function allows the user to get a listing comparable to the LIST: D# t$ l! m# M7 M4 S, l, i
;;; command for most objects. In addition, most object fields in the( z* m1 h s& X2 C- G
;;; dialogue box are editable. Points can be specified dynamically by
3 e. {8 \2 M+ B1 V' Z
;;; temporarily dismissing the dialogue box. Each object has a unique
2 z8 Q; F6 |1 o; |, X+ M
;;; dialogue.
( |6 s' n6 B/ l! k% N5 F) m4 _
;;;
4 X1 W! T5 ]3 r
;;; Naming conventions, B+ ?6 I% c' c _
;;; Long function and widget names may use an underscore "_"
- g; n9 S* o) c' }
;;; in their names to make them easier to read, long variable. l$ R' {% \" C7 B/ g
;;; names use a dash "-".
& S( p1 ~( r) B& B; \3 T6 o
;;;----------------------------------------------------------------------------
1 d& g1 h3 R5 j9 W
;;;----------------------------------------------------------------------------9 _" W3 f. t F1 ]0 p3 e+ K
;;; Prefixes in command and keyword strings:
2 d. |1 S: \. f N6 r6 o9 {
;;; "." specifies the built-in AutoCAD command in case it has been: z0 r6 j# V* s- Z
;;; redefined.# F, u! {3 A, K6 D5 K/ Y
;;; "_" denotes an AutoCAD command or keyword in the native language
# e( Z' s& h8 N) T
;;; version, English.
* q% c8 v. ?# h! Q3 j# V
;;;----------------------------------------------------------------------------
E6 t# V. F' i& }% I1 ]
;;;
( K1 {4 B/ p% F1 E
;;; Avoid (gc)s on load to improve load time.
6 z" K$ C g4 a) m3 F8 C/ [
;;;( ]+ t0 Y& i9 F9 d& R! A
(defun do_alloc (/ old_allod new_alloc)
8 @. b5 O1 w5 K5 C9 H
(setq old_alloc (alloc 2000) new_alloc (alloc 2000))0 h) `1 Y( U) K/ X
(expand (1+ (/ 17000 new_alloc)))9 X4 l8 z6 g4 w. B2 a* h4 K
(alloc old_alloc)
$ g5 b. X; D) B- _3 Y7 O" h
)
1 R3 P' M0 y8 j D, Q) p
(do_alloc)
; d+ s. X& v9 H- c: n: W6 h
(setq do_alloc nil)
0 ~2 @7 @* k! a% U1 r' A
" ]& r. ?0 O1 `* P! U" Z3 i/ N
;;;
3 L1 w( _! B- f- a+ d v
;;;8 }) { a) O$ `) ~; V. ?. m
;;; ===========================================================================- `* u+ B. _! m( |
;;; ===================== load-time error checking ============================2 F" `7 Q: y: c
7 V5 X% }& \4 v, P5 T! a' w& c
(defun ai_abort (app msg)" T4 Y! B J& K5 s, v* j3 G W
(defun *error* (s). A$ ]0 F/ j4 \7 q
(if old_error (setq *error* old_error))
2 F3 W; W* R, R5 m. [
(princ) @3 f: ]+ t3 R9 f* K
)7 b }6 A4 u/ t$ _: R0 e
(if msg
* n" e9 ^7 c1 i: g7 j: D3 A2 X
(alert (strcat " Application error: "& a3 ?1 I/ e4 i
app8 S# @5 S8 x! J; d l3 E1 O
" \n\n "" W5 S7 ^% k2 v+ c. P7 c
msg1 l8 v0 d9 ~' ^5 z( C4 V
" \n"5 d' e4 L$ Y! }( Q: B e; C* G
)
4 @9 R8 c+ i$ E k8 s4 ]
)7 M1 v. Y2 g9 U
)
% N8 c8 `6 s& `) p
(exit)
- Y, V( M% g; U9 q
)# {( ^4 O+ v& c4 O8 x1 O
3 Q+ m; z. Q5 L4 M# [
;;; Check to see if AI_UTILS is loaded, If not, try to find it,) I! a6 s1 O1 l& ^) h1 i
;;; and then try to load it. If it can't be found or can't be2 L! ^2 ], R) } H
;;; loaded, then abort the loading of this file immediately.
4 i& J4 W" P5 k1 }; `
: a- b; c3 V9 z* A, \4 m5 S
(cond
9 M7 i, {- q: h Y: M
( (and ai_dcl (listp ai_dcl))) ; it's already loaded.# c- D" }7 s9 u; B8 |# V2 `
4 E7 L7 E2 Q9 i; d @2 d9 W
( (not (findfile "ai_utils.lsp")) ; find it
& [6 F; r8 d. y; ]' H3 g
(ai_abort "DDMODIFY"
. t- M/ ?; h1 V# E) L
(strcat "Can't locate file AI_UTILS.LSP."
" U: g9 w! a% R+ X
"\n Check support directory.")))& I3 y0 d5 k4 O$ w+ x- c5 M5 E
0 d) n1 g! Z3 `, c. N
( (eq "failed" (load "ai_utils" "failed")) ; load it
( W+ _. a. T8 D4 Z1 U
(ai_abort "DDMODIFY" "Can't load file AI_UTILS.LSP")): _: Y" W, {' l) w$ W
)
) T7 ^' {; W/ k+ p2 v' [ p2 d7 P
+ ]. p6 h2 ~* M) n+ G( j. ^' V
;;; If we get this far, then AI_UTILS.LSP is loaded and it can
* z$ r- s' F; J5 K: C
;;; be assumed that all functions defined therein are available.
! i: J0 C! H5 T9 a" |5 L5 h
' _$ K( ?, w- i
;;; Next, check to see if ACADAPP.EXP has been xloaded, and abort5 j* X% Y) L3 }! y6 k& T* H; l
;;; if the file can't be found or xloaded. Note that AI_ACADAPP
. q. ^, b9 Z4 u& A, B+ p
;;; does not abort the running application itself (so that it can, i4 C0 R8 [" g! j- L/ u7 o
;;; also be called from within the command without also stopping
% X Z, w4 f! I& E
;;; an AutoCAD command currently in progress).' n) h0 M! B* h
$ ^, y1 @. M3 D9 i& B+ U+ j5 k
(if (not (ai_acadapp)) ; defined in AI_UTILS.LSP
) `* K2 x2 w3 h. q5 X$ a. k+ m& z& Y( ^
(ai_abort "DDMODIFY" nil) ; a Nil <msg> supresses3 O3 R. T$ O% u! e
) ; ai_abort's alert box dialog.
) r) x9 H) L) C0 q4 m! j
4 W( Y5 z; m3 W$ [9 C
;;; ==================== end load-time operations ===========================
1 M3 R7 g1 t1 \7 R B# B
; Z* \1 U/ s% ?3 C
;;; global variables# H- l1 M3 \' r, `( E
% h+ V9 z" U: G" a
(setq hatch-elist nil)
: M8 R9 n3 A5 o0 K$ L+ H5 j5 I
2 `% q; q- | c: W$ \4 k
;;; If we get this far, both ai_utils.lsp and acadapp.exp are
! A) U/ ~$ T Q) X; }! p t" I
;;; assumed to be available.
& g/ @( L, D% P B' T+ l6 r
+ Q; h8 t2 u- n" A. y1 |
;;; Define and encapsulate all subroutines that are declared: L, p$ B2 d+ E; n8 R- q! E
;;; locals of the (ddmodify) function.
, {; e! j0 J6 c
8 u6 y" Z. _5 l" @; C7 y
(defun ddmodify_init ()* E; n- T$ ?! p1 u
;;6 r1 A& f% R& h$ D% ~2 l& _
;; These three functions modify the enitity list for common properties. Since7 n; a0 p! W- @
;; color, ltype, and thickness are absent from the object list when they are
8 j+ L0 C, h) l2 R% H: \
;; set to their defaults (i.e. color = bylayer), a simple substitution using
: t" j- c. t2 ~
;; SUBST is not possible.
4 z: N' P' t* Y7 }/ r8 k" Q% V
;;" A& u4 M3 q. N4 i, |
(defun modify_properties ()
. z) P8 M. ~: w& y
(emod ecolor 62)
* W! I: V( j( p! k X
(emod eltype 6), `1 |) }; m! D3 l* T5 `1 `
(emod ethickness 39)
9 O9 F; e* K* e4 z) g) M9 n: ?/ S
(emod eltscale 48). B* z3 W/ Z; E, c
(tempmod elayer 8 nil)0 L6 C J$ |9 [6 t. |
)& z, J4 T- C+ l. P
;;
; c G- O3 `; y8 [
;; This function is used for modifying common properties of the ACIS# o1 f* M( o8 ^& R" ~4 y
;; based geometry objects. Thickness is not valid for these objects6 [8 p, o+ ]6 N: d
;; so it is left out.& F; Q% _3 y7 R% y* x
;;
: |8 l5 P9 H# J- z/ e; m
(defun modify_prop_geom ()
; h% s# s* l& V+ c9 p' l/ u
(emod ecolor 62)% [ Q5 Z; B/ H7 u! {3 U* A
(emod eltype 6)0 n( _+ V, h: A
(emod eltscale 48)" \) L7 ]8 ~8 c7 I
(tempmod elayer 8 nil)% O$ x; _: |$ L% D) A+ d6 w6 X% O
)
8 R4 G" b# o+ }( x6 I
' Z8 D* r; _" H
(defun emod (value bit)
4 ~) K" o4 t6 K
(if (= bit 62)- h1 E0 C$ |; X" I* F% i, t4 h9 l- X
(progn
; `7 \7 ~" J+ P% d1 n! u
(if (or (= value "BYLAYER")
8 u4 N/ O3 [$ L( j8 v9 L) a* ^
(= value "BYLAYER")) (setq value 256))7 O0 X) X9 a; q e# m, I2 r+ g
(if (or (= value "BYBLOCK")6 [2 X& b4 s* |& D
(= value "BYBLOCK")) (setq value 0))
! u+ d" t" A4 B
)
, L3 {: i: H' \/ E, G9 [* c# i
)' T w8 h r' z$ ~. S
(if (setq oldlist (cdr (assoc bit elist)))
. P( }, |+ l$ U2 U6 ]3 P
(tempmod value bit nil)
' `' n2 k1 ?; r1 G6 r
(setq elist (append elist (list (cons bit value))))3 g* R; `6 r2 c B0 _
)
; }+ V0 w) J) N: s/ \) L. T i9 b! y
)
6 J! C) W7 @: Q2 y9 u8 L" @
;;
) d9 u+ {3 C( E- m: v& t
;; Resets object list to original values. Called when the dialogue or4 y6 Y* a- Z2 W1 ~5 [4 U
;; function is cancelled.8 X+ x* K: R8 k% p3 O% J' [8 K# \
;;
! z* K+ n: \; \- a/ J
(defun reset ()
5 S+ o" ~8 W* {& Y) X: h R8 R
(setq elist old-elist
1 D0 @1 v7 z& p
ecolor (cdr (assoc 62 old-elist))
$ L$ U% P; i+ q! w
ethickness (cdr (assoc 39 old-elist))5 T5 f- i9 k& H5 S3 {
eltype (cdr (assoc 6 old-elist))
# B& O }* X3 j4 o
elayer (cdr (assoc 8 old-elist)): K9 o" E& p- d( t
eltscale (cdr (assoc 48 old-elist))9 C' V& n+ B. t( c, b3 ?+ ~
)
5 e: e4 X9 ^4 T
(if (not ecolor) (setq ecolor "BYLAYER"))7 j- c/ s. F/ O: [2 i
(if (not eltype) (setq eltype "BYLAYER"))
4 z3 \! p$ f) g9 U+ _
(if (not ethickness) (setq ethickness 0))
# s; d4 @ ? @3 N
(if (not eltscale) (setq eltscale 1))4 g1 T) U& V" s/ H( w& g
(modify_properties)! q. b: W% ]* P, Y7 i- O0 Q; }
(setq reset_flag t)/ V+ t- H. b; {; E
(entmod elist)7 J5 j: M0 h1 Q3 k% Q e
)
# ^6 p& d% X4 ^8 Y9 \6 }* ~. O) K
;;
3 a1 Z& W5 ]1 p7 [- |5 R. W
;; Modify object when dialogue is temporarily dismissed to reflect latest
; q# V! h0 @# E" d
;; settings of dialogue. It converts the point from current UCS coordinates to( [5 J0 @; S: i2 v/ i8 @: b# ]
;; the proper object coordinates (world or object).) n$ U& X4 P7 k4 d! f
;;
8 A- ` [" y. L6 ] y' }+ d y4 z
;; Arguments: value - in current UCS coordinates
2 v5 D: E3 b" L- L
;; bit - object code (i.e. 10 for start point)0 }2 t! N" S: O9 C( K# { Q: `) ~
;; ptype - point type 0=world 1=planar+ t7 x! d8 g6 b+ [2 k3 t: L, d+ {
;;
; _# M' p- _4 T/ Z6 [1 N( z3 F
(defun tempmod (value bit ptype / newpoint)
4 B" d6 J$ @. W: w9 X0 C& J
(cond+ A$ C2 F6 S5 S; b
((= ptype 1) (setq value (trans value 1 ename)))
7 z7 ]+ x* Z' A5 f
((= ptype 0) (setq value (trans value 1 0)))0 B1 ?* d( H/ r! b7 G! ~+ z: n" O+ s
)+ P! T& n$ s! J0 O9 e7 Z
(setq elist (subst (cons bit value)" k' E, I- ]( n$ X
(assoc bit elist)
( b% ?6 L8 |" m- |/ [' D
elist; E+ m0 h: v" e' X9 q
)$ {/ O9 [" ^8 O6 J0 ?/ ]# w0 u
)
N3 q+ [* |0 U; W# F
)/ D& R7 g9 n. A$ u
;;9 t! f9 ?! O, S7 s5 \! c3 S
;; The following functions are called after a dialogue has been temporarily- f8 Q) E- u7 t3 n# a
;; dismissed and the user is selecting a point. If a point is selected the$ m! I7 v. ~: Q" I6 |, `4 k6 R
;; object list is modified and new X,Y,Z values set. If no point is selected1 t: ]1 a4 P* e# ?: F0 L8 |
;; (null response), then the point is reset back to its previous values. A1 z( W- h) E6 |! q+ k( J B" S
;;
' u5 g- }% v7 [8 |7 T/ ~2 t
(defun ver_pt1 (ptype)
" J8 f$ ~9 u2 ^7 Z5 Q. L
(if pt1
9 l6 ~+ W8 P \, u; |% Y, @
(progn
I) h) `/ p4 }( l
(tempmod pt1 10 ptype)# G3 l6 `) u' `
(entmod elist)
( Y* l' D, A) G' c0 j( I* v& `2 W
)
9 J% G5 D# }. K* O) A
(setq pt1 (list x1 y1 z1)); K. l" Z5 {( {- I: J
)
$ h* J1 Q6 _" ^- ^
)
1 _: Q: h7 f! u) L
# g' G, A% I: o+ U# e
; (move_pt1 <ptype> )
& m- R! l' N' [* i" P. q4 ^7 h
; @9 j/ \" O) |/ P( ]( U
; Called in liew of (ver_pt1) to translate block insertions which4 p8 x2 ?& D3 z, r; V3 G" v+ ~2 Y
; might have variable attributes attached to them. If the distance/ l0 z+ l: f5 k6 X
; the block is to be moved is < 1e-6, the move is deferred.
2 f/ t6 b7 S+ [- z
8 C- |8 L! r$ z% u4 m
(defun move_pt1 (ptype / basept hi)
5 K! H8 \8 i3 {/ d9 m' g8 A
(setq basept (trans (cdr (assoc 10 (entget ename))) ename 1))$ A% b6 F3 A6 P# A1 E8 Q& P
(cond
. e/ `) x0 J; l2 W n/ h& s
( (not pt1): M" {1 S/ x0 `6 D5 T
(setq pt1 (list x1 y1 z1)))
( l2 _' A, L4 M. p" n6 J
9 v4 ]5 p0 M8 v) W; J: m
( (> 1e-6 (distance pt1 basept)))9 z; k) f/ h$ B6 O; P5 ?; O# a% P
+ D0 e$ y. j1 X" ]. H$ `$ U
(t (tempmod pt1 10 ptype)
3 V0 d2 z# y, {: ~
(setq hi (getvar "highlight"))
4 z1 L: W$ D/ t o9 V
(setvar "highlight" 0)9 x! ^1 z+ U( R H+ G, C0 Q1 \
(command "._move" ename "" basept pt1)
, m f: j9 t. z: I7 { V+ V
(setvar "highlight" hi)). z; c% X {$ k
)
- q s, G% c' S( h) p) q) A
)
7 l: s: r1 d# I4 _. C" @2 d/ K8 v
5 x# u6 R1 }& p. r1 p; n' T" T
(defun ver_pt2 (ptype)
6 W7 D1 ]% w! C/ |. I- ]0 c/ i9 }6 p
(if pt2
k9 X$ z6 k! a( G# h3 E
(progn( w3 _. t/ n4 V4 a, Q3 w
(tempmod pt2 11 ptype)
% R& Y/ B! b& u5 P: U3 b; r
(entmod elist)
& c& _" w s1 L* |
)
6 u/ |" _. B% v
(setq pt2 (list x2 y2 z2))" c: Q/ `4 n0 K4 P+ \
)/ o2 r4 h0 p8 ]/ y( s" A
)- k7 V+ y2 Q2 I. e* p6 T8 r
2 x# J" _% @6 Z& b& l
(defun ver_pt3 (ptype)
4 Y1 ?" K9 O9 u6 ?. \9 W+ i' F
(if pt3- N* p3 { X2 N; {
(progn
z& l5 _4 _$ T+ A' |) E* i" Q
(tempmod pt3 12 ptype)( W0 C6 H/ {5 z! ]9 i4 B3 @- I8 \
(entmod elist)# y) ?" m8 m' {/ n. O& r2 b
)- x5 T9 e4 b) L( e, e& t% J% B/ f2 I
(setq pt3 (list x3 y3 z3))- f5 f" _2 K( U1 s# b* e
)* K6 O. P2 b: B( ?5 c% n
)
/ O$ j" K& h6 F0 l
F. O; _ S5 K! ?, V& x
(defun ver_pt4 (ptype)
! N: K% N+ y4 s
(if pt4
( Q3 \7 _0 P6 n( h. f: W$ r9 v) P
(progn7 h) _- W( {( R5 B$ r
(tempmod pt4 13 ptype), s. ?0 _' \% g
(entmod elist)
% O7 L, h- v1 j6 E4 r( B
)
% R. \, H" t1 X7 _3 ]
(setq pt4 (list x4 y4 z4))9 [9 U' r" L% l g$ t7 Y0 @9 y% g d
)+ O7 }/ U3 s; {" O
)* s2 }# M c; B C/ g* U: y
;; Xline/Ray0 r t8 l3 U+ A% S* q: J
(defun ver_xline_pt1()
6 f" t2 O) p7 Y# O0 P4 v6 }
(if xline_pt13 x: l9 ^- p7 i# R% P; c6 L; c
(progn
: [- D6 @0 A) |* s2 ]6 K
;; convert to WCS.; \0 @. p1 q, x! P
(setq value (trans xline_pt1 1 0))6 z3 m$ H9 n4 w/ J0 ]: n% K/ Q1 p
(setq elist (subst (cons 10 value)0 Y3 x8 A9 r* @- K! L" z
(assoc 10 elist)
% @( @, } k" W ?/ P
elist8 m8 n/ C4 F6 I V
)% H! K, ~/ k! s& v4 ?4 t+ s
)4 t) J. ?& [8 y( v
)( B# [0 X' N* @+ u: h) {
(setq xline_pt1 (list xline_x1 xline_y1 xline_z1))2 V3 Y) C' ]5 R3 Z4 x7 P' |8 E- K
)$ |3 F. y' b0 I/ A3 F* d7 l
): n5 \+ S O8 r4 p
0 F8 _9 Z/ F/ _ E" N8 A2 ~
(defun ver_xline_pt2()+ ~* m# z& B- ^7 q: j' @
(if xline_pt2/ G0 s6 w" v9 g% X' l
(progn0 \) B0 u4 p& D* `! A1 Q
;;
s. u: a" u8 j
;; Calculate new Direction Vector WCS
( m3 f! g5 E% m# @% r
;; x / (sqrt ( (x**2) + (y**2) + (z**2) ))) u& }& M' h# X+ H5 Q
(setq temp_dir (trans xline_pt2 1 0)) }) z$ O' i) s
(setq temp_dir_x (car temp_dir))
( r+ x; G, f2 B+ Q, L
(setq temp_dir_y (cadr temp_dir))1 w# d! \$ ]$ k- E. B* Y8 U
(setq temp_dir_z (caddr temp_dir))
+ i! b- L+ j- @9 Z2 D
8 V6 m% J3 N2 m! O& A# C
(setq temp_xline_pt1 (trans xline_pt1 1 0))0 r% a8 c8 U5 O$ ?3 I5 a
(setq temp_xline_x1 (car temp_xline_pt1)): U0 p* J' j; [, G# z5 ]5 O# l
(setq temp_xline_y1 (cadr temp_xline_pt1))
& F1 J9 i) _% z# p& I% l7 U/ P( H
(setq temp_xline_z1 (caddr temp_xline_pt1))
3 G) |, j% @; H9 [/ ]% P4 p
6 H9 R) | s, G7 J4 N
(setq denom (sqrt (+ (expt (- temp_dir_x temp_xline_x1) 2)
' [. \/ h7 m# O3 A8 `7 i! a# I
(expt (- temp_dir_y temp_xline_y1) 2)
( y2 m9 S1 G1 T# q
(expt (- temp_dir_z temp_xline_z1) 2)$ z3 R: i" ?0 J! h
)))
+ ?% a, Y0 `8 ~& h$ Q
(setq temp_dir_x (/ (- temp_dir_x temp_xline_x1) denom))& C9 q1 E8 o8 K5 c/ z' `
(setq temp_dir_y (/ (- temp_dir_y temp_xline_y1) denom))2 F# C4 f" G8 c; O% i) b0 K* u \# L0 N! x
(setq temp_dir_z (/ (- temp_dir_z temp_xline_z1) denom))6 U' W7 r& u c% {! y0 T) ]
(setq elist (subst (cons 11 (list temp_dir_x temp_dir_y temp_dir_z))
8 W M% n8 w. x) i7 m+ c7 m
(assoc 11 elist)4 o0 c5 a& }! V# Y- u6 ]" w
elist
0 Z8 H) G$ v8 p6 z; z
)
: r" n/ o2 K3 |: Q* N
)
5 q7 T0 I# v6 ~6 \6 ~
(entmod elist): H8 _3 O' F) `% h. p6 R' K$ }
(setq xline_x2 (car xline_pt2))1 ^- @4 b/ M) M7 a$ z
(setq xline_y2 (cadr xline_pt2))
5 y5 J) [9 B8 d6 g$ a
(setq xline_z2 (caddr xline_pt2))! r5 F5 a9 N- ] P7 s3 {) }
+ W. M+ h0 S5 y( [
8 f: n* u0 t( z6 p% I9 T
)3 ~3 U2 x8 S. q( Y
(setq xline_pt2 (list xline_x2 xline_y2 xline_z2))+ U4 z: @: i0 O3 H$ H) ]
)" d6 A3 A" n& l6 j* h
)
. J! S. M! x- Y) o5 \; w
& H8 _$ ?4 G: b( n7 P
;;
2 \8 D( `" C1 q( L# j$ h
;; Common properties for all objects" s, H/ Z+ f3 A$ O1 d" `
;;! X" p" _, _) c2 T
(defun set_tile_props ()7 z! J# _) F( g
(set_tile "error" "")+ G$ \9 m) e/ D3 s9 Q7 g. y
(setcolor)
, Z1 q) W8 k7 Y) i
(cond' m- p: a( k. c: t, d9 R
((= eltype "BYLAYER")
8 Z5 Y4 l( ~: g# Z
(set_tile "t_ltype" (bylayer_lt)))
# g$ q( T) R( M% _0 a/ k5 v6 Y
((= eltype "BYBLOCK")
Z8 R3 I1 ^% H5 |3 t
(set_tile "t_ltype" "BYBLOCK"))+ O2 i0 j! y; x: `- X \
(T (set_tile "t_ltype" eltype))
6 S M- N* {9 J; h: W
)
* J6 U# a6 h" n% p/ ~
(set_tile "t_layer" elayer)
; t7 c5 {( c6 ?) a9 _: `' m" |( U
(set_tile "eb_thickness" (ai_rtos ethickness))
: l# Y3 O% j2 d, P* O( J) d
(set_tile "eb_ltscale" (ai_rtos eltscale))
1 b5 C; Q9 B+ M
(setq which_tiles (ai_common_state etype))
/ s6 o( V' L2 ~' x, F
;; Disable tiles if need be... ], G$ A- b8 G# C* H
; \$ o- H |* W& P
;; Layer Button and Text Field
0 F3 k( k" g' G b( n5 G& I
(if (/= 1 (logand 1 which_tiles))
^# Q; D/ [6 X5 h% y8 ]
(progn
8 s1 d! z& C* s' a
(mode_tile "t_layer" 1); U2 k8 Y E* i; o
(mode_tile "b_name" 1)
9 p9 D( i: B9 w5 Z3 t8 M
)( t7 w/ n& u) \, J# {/ |% a
); t7 l8 v1 z/ V$ y- ]
;; Color Button and Text Field
5 }; Y+ j) f, o9 {! r2 s
(if (/= 2 (logand 2 which_tiles))- Q8 B. j8 F- e5 B) `; ?
(progn
( K; v5 _1 D+ y$ R$ N1 ~
(mode_tile "t_color" 1)
4 F% N [/ }5 y$ s" G0 L6 _1 @
(mode_tile "b_color" 1), F6 f1 A5 m6 V6 j/ c) r( c4 u
(mode_tile "show_image" 1)6 @( S# ?7 m5 d5 M' O' y7 ~0 j9 W
)$ C' _8 Q4 u5 ^3 D4 `* Z% C
); s( j5 x; I- a- @+ {' W' O. O% s
;; Linetype Button and Text Field1 c" N5 T2 |1 N2 V
(if (/= 4 (logand 4 which_tiles)). J4 C' I% X5 p5 e
(progn) P, d, B4 N3 K q1 {* b( f+ s# B
(mode_tile "t_ltype" 1)
/ i- b) @2 |' m
(mode_tile "b_line" 1)
8 ?2 i2 C" {& d1 U- r
)
& L( l! P) t) I+ @$ F! R
)
: ?! I* t) y8 J2 O
;; Linetype Scale Edit Field
, j0 ?- o& U, N# i
(if (/= 8 (logand 8 which_tiles))5 j7 A* H; N5 D# ]$ Z! Q/ A
(progn$ n1 M8 |; X. l, e
(mode_tile "eb_ltscale" 1) R8 X" R4 A# L$ K2 V/ p1 X" a4 f
)
/ `( X$ X1 _% j
), g% ^/ T- ?9 n$ C& E4 T
;; Thickness Edit Field.! B$ ~% `! R" ~% @+ F# ?. s, k
(if (/= 16 (logand 16 which_tiles))
5 u/ o3 C$ D% P& L( Z1 m
(progn
' J/ [! E3 ]: m* U$ N. i
(mode_tile "eb_thickness" 1)# b1 A, G; ^ R" \! P! R! |
)
1 l& B, A8 z( B2 A
)" s! J+ f5 e" X
)6 i d* e5 S$ x# [
;;
: Q' m, `: {3 Y
;; XYZ Point values for all enitites
6 P* f+ v- [% P+ P( ^
;;; `/ s2 D/ f8 j9 F$ A! ^/ t- L# \
(defun set_tile_pt1 (ptype)0 y+ Y9 j+ Q% c; V8 }. }
(if (= ptype 0)
) g" _/ K* A7 [8 G8 p+ J8 B& D# C' e
(setq pt1 (trans (cdr (assoc 10 elist)) 0 1))$ N% {) ` U6 g4 T& B1 [& D7 }
(setq pt1 (trans (cdr (assoc 10 elist)) ename 1))
8 [# \: k5 Q' u6 o% V) |
); W7 L4 }0 G$ C/ R: _) |9 M
(set_tile "x1_pt" (ai_rtos (setq x1 (car pt1))))
" A" C4 \& m; P. V' B
(set_tile "y1_pt" (ai_rtos (setq y1 (cadr pt1))))5 d7 I. T8 C6 _& \% [; V+ N
(set_tile "z1_pt" (ai_rtos (setq z1 (caddr pt1))))$ q/ x$ i, S8 }" t
)
5 K' A, k5 W6 R v! @% y% g! Z
(defun set_tile_pt2 (ptype), d! a+ i# U* H5 t1 i
(if (= ptype 0)
& s) Q+ ?; W. c B, y* i4 N* Q
(setq pt2 (trans (cdr (assoc 11 elist)) 0 1))
' A3 w- K0 `, y
(setq pt2 (trans (cdr (assoc 11 elist)) ename 1))
; l/ c5 B) k# X1 [- w
)
/ Q4 r' p; @% H! q
(set_tile "x2_pt" (ai_rtos (setq x2 (car pt2)))). q6 d9 I% w f3 f q
(set_tile "y2_pt" (ai_rtos (setq y2 (cadr pt2))))
6 O- T# R, Z. F* {5 [; T- {
(set_tile "z2_pt" (ai_rtos (setq z2 (caddr pt2))))
3 K* `* b# A0 i- \, Y
)0 U( d% t( O4 |1 g0 U) M# E
(defun set_tile_pt3 (ptype)
$ r& C ?" [: @/ |/ r* M4 w
(if (= ptype 0)8 S% |* X4 i6 A6 E: Z' P, ?9 r9 z
(setq pt3 (trans (cdr (assoc 12 elist)) 0 1))
, ~; }' x/ s4 s0 n4 c
(setq pt3 (trans (cdr (assoc 12 elist)) ename 1))4 }9 G5 F- X/ f# J7 j6 d% b9 a
)6 E% A7 D) ?( b' h
(set_tile "x3_pt" (ai_rtos (setq x3 (car pt3)))) Q, `$ x) _$ ^" r
(set_tile "y3_pt" (ai_rtos (setq y3 (cadr pt3))))3 B& @! R1 w! Z0 n4 e5 T; l
(set_tile "z3_pt" (ai_rtos (setq z3 (caddr pt3))))5 F) ]5 o9 ~2 y9 v- ]- n
)
9 Y' x+ A) m* F& S& T. o
(defun set_tile_pt4 (ptype)
+ A h/ K9 {# J6 o* a
(if (= ptype 0)
6 k# n* o4 |/ ?1 z
(setq pt4 (trans (cdr (assoc 13 elist)) 0 1))5 e4 W( R6 G: {) Q
(setq pt4 (trans (cdr (assoc 13 elist)) ename 1))
, G4 [' k" w6 O9 g4 O
)
8 z% k6 f, ]# ^7 U* e% R* C
(set_tile "x4_pt" (ai_rtos (setq x4 (car pt4))))% @5 e, D: }2 z e X
(set_tile "y4_pt" (ai_rtos (setq y4 (cadr pt4))))- I* j+ S: f6 w" r( i" |' r6 Q
(set_tile "z4_pt" (ai_rtos (setq z4 (caddr pt4))))2 }* I7 b6 S7 d
)
0 u8 a* S( z+ s) ~' C
;;0 a6 \% ^- {1 P+ U) }
;; Xline/Ray4 y$ L! w6 E0 u9 _+ ^
;;% U, ]% _3 n S& C5 D& @
(defun set_tile_xline_pt1 ()& h9 F) e+ a2 S4 E
% B* o X8 m z3 L
(setq xline_pt1 (trans (cdr (assoc 10 elist)) 0 1))' p) D. Q4 Y& b3 z# t' E9 r
H. k X5 i6 ^& p
(set_tile "xline_x1" (ai_rtos (setq xline_x1 (car xline_pt1))))
+ E! p' N+ K/ m! M& H2 D% _9 [2 w
(set_tile "xline_y1" (ai_rtos (setq xline_y1 (cadr xline_pt1)))): r ^/ T: X3 M8 v5 o
(set_tile "xline_z1" (ai_rtos (setq xline_z1 (caddr xline_pt1))))
4 f& C" J3 B- h
)
4 [4 L) b7 y9 S ?
(defun set_tile_dirv ()
' I* _5 G/ i/ ?) }9 Y8 a
;; Convert 11 group to local UCS (displacement)1 m" {$ ]" S: `% ?
(setq dir_pt (trans (cdr (assoc 11 elist)) 0 1 1))
2 x! r, t6 ]! G
! G" ?; s( X" n& K+ Q% b2 T
(set_tile "dir_x" (rtos (setq dir_ptx (car dir_pt))))
3 r- |% Y; p5 s
(set_tile "dir_y" (rtos (setq dir_pty (cadr dir_pt))))) ?- w" L$ O3 n- ?
(set_tile "dir_z" (rtos (setq dir_ptz (caddr dir_pt))))' }8 |; p) I3 |0 }
)# e# T1 N6 v1 P
(defun set_tile_xline_pt2 ()# M7 `. V W3 O2 k/ e
(if (not xline_pt2)
. Y- y4 e2 M' h1 V
;; Initial second point is Root Point + Direction Vector: U) K2 Z& z3 z% {% U2 f1 _
(setq xline_pt2 (mapcar '+ xline_pt1 dir_pt))* T; B F: T3 R" T! a
)
/ f! g% a+ F3 g# ^( w5 n
(set_tile "xline_x2" (ai_rtos (setq xline_x2 (car xline_pt2))))) R* k& W" P( t; ]' ]
(set_tile "xline_y2" (ai_rtos (setq xline_y2 (cadr xline_pt2))))* g5 D+ r" i( G& k8 u- B' ^( K
(set_tile "xline_z2" (ai_rtos (setq xline_z2 (caddr xline_pt2)))). |$ h* A, T$ c) G
)! [( @3 G0 @% o5 X/ n$ B
6 F9 M; t) Z% W# i1 G* z
;;
3 U* i9 W# I8 Y
;; Handle for all objects- Q5 d* B: ?7 ~" z) C0 P
;;" E1 U- k. } k( b
(defun set_tile_handle (): H( X! l% V& E, @, n9 X
(if (setq hand (cdr (assoc 5 elist)))
6 y' r" j) v! S, }! N
(set_tile "Handle" hand)
5 i& b+ s! Q8 [6 a$ ^
(set_tile "Handle" "None")
: W4 O8 S$ x/ L' p: J U
)& v7 T5 |% X9 U
)
) G1 Z2 l1 ]1 j6 v G ~
;;* y2 t! M/ g1 O C9 ? \7 J
;; Radius for ARC and CIRCLE
7 V1 D* w/ f& h/ ]" V
;;
# c9 E8 [6 Y. m& B; }$ K& s
(defun set_tile_rad ()
" x6 i: L1 G* y2 L8 y2 J
(setq radius (cdr (assoc 40 elist)))9 R' q+ P! b# p8 S0 t6 J
(set_tile "radius" (ai_rtos radius))7 T! R+ Y, N( z% S% s$ Q
)
3 J. m2 q) ^- l4 h& K8 d' F. j; a! P
;;; n, y! m1 K, G
;; Start angle for ARC
/ C! W; k3 B0 ?$ x- k! ~- d
;;% ?' w3 K7 J! {2 M
(defun set_tile_stang ()
9 A/ c' A* o X3 G1 W' P& N
(setq st_ang (cdr (assoc 50 elist)))' } a/ \ k" g" ^2 l
(set_tile "st_ang" (ai_angtos st_ang))8 z: Q! G0 F. l( j. f* K2 s/ d) s4 a
)
J! g/ ?& F7 W0 T
;;
* G4 d7 j! ]7 k, g: `; k1 q& A
;; End angle for ARC( k) j$ F. n% K8 i
;;, X# h; X1 s" A$ }. w: {) E
(defun set_tile_endang ()
) w8 r/ J+ h3 N a
(setq end_ang (cdr (assoc 51 elist)))
- G: y( A( K, i- p
(set_tile "end_ang" (ai_angtos end_ang))6 h2 O3 `; Q: b5 p4 t
)
! Z: b! D( w+ @; N+ X) W
;;
;; Rotation Angle - Text, Attributes, Block insertions and Shapes4 V8 m( ?; Z4 v
;;; v+ V' E: q; N6 K
(defun set_tile_rot ()
. d/ P8 u- }$ L6 e2 h6 e
(setq rot (cdr (assoc 50 elist)))' c3 ~3 M+ `5 @8 t Q+ r1 `
(set_tile "rot" (ai_angtos rot))7 \; [: N8 H5 u3 l! a
)$ L; Q, y+ f: A5 | I
;;
* H9 J9 l' c6 _% T: m( W# h
;; Height - Text, Attributes and Shapes* S" F7 G% h% ?1 H
;;! A9 s, _5 S4 s6 l( ]
(defun set_tile_hght ()6 M; k4 w! ^6 e* i3 I" @
(setq hght (cdr (assoc 40 elist)))7 ?; h! g$ l1 L' F- [
(set_tile "hght" (ai_rtos hght))
- [- Z; d4 o+ V6 z# i# K' @
)
5 }$ q5 G! U' y8 |
;;$ B4 @) o. E; ]# U2 `' {. ?" M
;; Width Factor - Text, Attributes and Shapes
7 ~8 J: D4 o5 J
;;
, H! K5 F2 n* ?' K8 K
(defun set_tile_wid ()+ |/ L1 O) `. z- ]
(setq wid (cdr (assoc 41 elist)))
3 S$ z4 D7 g8 Y9 w1 [
(set_tile "wid" (ai_rtos wid))* P8 C: g7 i& m
)1 |! n* C! M& \
;;
8 B; l% a% o2 J* p9 ^8 D
;; Obliquing Angle - Text, Attributes and Shapes! f8 h2 Y3 \% @4 c% w0 J; E
;;' Y2 j# D$ f6 @! [2 a
(defun set_tile_obl ()
* d# g/ U6 @6 q8 e. V2 g
(setq obl (cdr (assoc 51 elist)))
. {% Q% s# H+ V* S2 h9 E
(set_tile "obl" (ai_angtos obl))9 U: e- I- n% q3 @( i0 i( N2 k
)7 q2 S$ s! ^& H3 Y$ U, J
;;
" V% u, S) \2 i& T1 I! M
;; Text string
" w( L# H7 o: M$ M
;;+ Y& t7 C1 H, Z" r, `5 S5 ]
(defun set_tile_text ()
; a$ i2 a7 g6 M" w2 u
(setq text (cdr (assoc 1 elist)))
. z( D! Q# o# f+ O5 W7 [4 N& q5 N* O
(set_tile "t_string" text)5 f6 T6 i# I0 a
)) E0 z( ?$ j _
;;5 L2 F" o, y7 }7 w5 c% m
;; Attribute Tag% x; g5 w& B N2 l7 O
;;$ `" V P# V9 Z* l
(defun set_tile_tag ()0 }% n/ O$ J; m
(if (= etype "ATTDEF")" w0 g' R" e9 @: [! ? ?
(progn
% e/ W$ f( r/ T( C ]
(setq attag (cdr (assoc 2 elist)))
7 H/ P. r% Z9 s: F
(set_tile "tag" attag)/ S' i1 x4 q; I
)' f0 C$ h+ v6 }/ |0 k& @
)
2 L" p! Y4 P4 o" m$ Z. e6 _
)1 M# l' U9 k. j7 a. l* P" ?9 K
;;/ v! b0 A9 B2 ^2 S" d5 G' `
;; Attribute Definition
; v: k6 T' x I1 Q8 Q( ?! m* D
;;5 c( j1 q: s" I
(defun set_tile_prompt ()
( O6 Z; _$ Z+ p1 W2 f' ?- {. L
(if (= etype "ATTDEF")0 @% h( E- {* U- j1 w# H
(progn
7 A! q. {5 Z ^' m1 ?
(setq atprompt (cdr (assoc 3 elist)))% w: I" v$ _; |+ J* q6 R: I
(set_tile "prompt" atprompt)
0 x3 l& c- U, Y+ `6 g7 s3 C: D
)* M: W0 L$ z4 `( l2 Q1 u7 W
)
m6 M2 l0 \0 g5 f& |* Q7 {7 D
)
8 W" g0 n3 x% m$ V: o! p
;;
" t' s6 w9 ?0 @: s
;; Justification setting for Attributes and Text. Initializes8 Y8 ?) O* L& \6 O6 c( W
;; popup list box
+ L+ @9 s, K( o* v
;;
' l' W5 u% z" f1 i V
(defun set_tile_just ()5 D6 ^$ S2 T1 {3 I% f" o; Z
(setq ha (cdr (assoc 72 elist))) ; horizontal alignment; ?- f2 {* s) M" g5 a
(setq va (cdr (assoc 73 elist))) ; vertical alignment
2 N- i# S1 ^. Z9 W, e
(setq ha-prev ha): v R( c$ I: d
(if (= etype "ATTDEF")! @4 C' L1 V5 Q' ?& L! z7 _
(setq va (cdr (assoc 74 elist))) ; vertical alignment$ n* {7 A1 _ h, \
)
( o- _3 E& E3 X2 e9 _0 K4 N* [: U
(setq jlist+ H- K) [1 H0 r! K+ c/ h4 a
(list "Left" "Center" "Right"
7 F1 q7 O: j6 u, n Y0 [
"Aligned" "Middle" "Fit"
8 n& k2 l0 i! R- p4 i0 }6 }
"Top left" "Top center" "Top right"
, ~* T( R4 P, i% E! L9 M- ^5 p
"Middle left" "Middle center" "Middle right"
! _- x( [8 }7 V7 L
"Bottom left" "Bottom center" "Bottom right"
' E3 c4 e, B6 T5 F
)
! k: Y% p: p9 f0 S6 Z5 s
)4 z0 \: B' E8 [) Z$ c. H- }# ~
(start_list "popup_just")& p5 B2 P5 a! I6 c
(mapcar 'add_list jlist)
1 @8 g* P3 Z) E) v8 v) U
(end_list)- W0 W1 [ _) S3 O) K- v
(set_just_idx)+ k8 K+ b* ]- C8 x% B3 q% |
(set_tile "popup_just" (jlist_act just-idx))" m5 _) l- A* H0 x3 I R! ~
)
" B7 ~3 P+ L o5 t
;;- \& ?8 k: \2 o- P/ B) U
;; Style setting for Attributes and Text. Reads symbol table for popup list. X M0 f8 e) ~6 X }5 o c
;; box.
; T2 r6 y, c, M4 d
;;
$ g; D9 ?. q" v# Q
(defun set_tile_style (/ sname style-idx tlist)+ V- X: W# J. |+ `6 \/ m. L
(setq tlist (tblnext "STYLE" T)
6 j3 q& f: g$ f' S' Y; B0 c, Z: {$ S
slist nil)" y4 [: S" ]( }" e
(while tlist
. Z# F" q+ s' P9 i
(setq sname (cdr (assoc 2 tlist)))9 x$ f3 t: V, a9 c- B8 Z j
(if (and (/= sname "")' d4 a/ y8 h& a, M8 E/ \
(/= (logand 16 (cdr (assoc 70 tlist))) 16))
+ h) j& }$ c- D, c2 Y+ V
(setq slist (cons sname slist)))
. G6 C, ^, U2 B" x2 `9 l
(setq tlist (tblnext "STYLE")))
0 t2 P/ b2 `* K5 K: c5 G
(if (>= (getvar "maxsort") (length slist))/ j6 [9 B. G8 A! V7 V
(setq slist (acad_strlsort slist)) ; alphabetize style list+ K6 Y+ L {* H+ t9 Z; V5 v2 i
(setq slist (reverse slist))) ; or reverse it to put it in DB order
8 L4 w- `& S1 l# k8 L1 L* B1 n/ w4 ^! F
9 e7 q& L7 ]( I1 ^9 _; i+ ~
(start_list "style")' @% }/ U0 |+ y' B6 L
(mapcar 'add_list slist)
9 P( s) W; T9 N3 b
(end_list)
* x% ^: J/ ~4 x% P5 H. r9 _
(setq tstyle (cdr (assoc 7 elist)))
: c4 V7 Z9 ^0 R+ a' _
(setq style-idx (getindex tstyle slist))
% }7 X9 i9 h3 `! g y
(set_tile "style" (itoa style-idx))6 A) _" V( h5 [1 f S5 ^0 O
)6 |7 S$ V- v' m. L3 R7 V
;;
8 s/ b1 X8 s9 R8 b3 ]; ?
;; Text and Attribute setting - upside-down, backwards* z$ S. \/ [0 i8 |
;;
& k# r, H! p0 O0 C
(defun set_tile_bk-up ()% r1 ~; C% G, F6 N" q0 N% J
(setq bk-up (cdr (assoc 71 elist)))1 X4 O& Z3 ?0 s3 e+ k, u
(if (= (logand bk-up 2) 2)
6 O5 Q2 }5 e4 w X% F& C, ]
(set_tile "bkwd" (itoa (setq bkwd 1)))
9 v, M: {3 r) \
(set_tile "bkwd" (itoa (setq bkwd 0)))) t) G0 ~. Q* L4 I
)$ R8 z& e2 Z$ q- {+ ?" H
(if (= (logand bk-up 4) 4)
) p5 t' T5 H7 f) {2 l: D0 ?- [
(set_tile "upsd" (itoa (setq upsd 1)))
/ U$ u$ _7 M6 Y" a; s2 B
(set_tile "upsd" (itoa (setq upsd 0)))
7 c, S! K! w2 V2 K0 r
)
7 P. x& g! D% ?% U1 d- b4 Q
)- [8 n) I% [6 ~% p; z* O" D: c9 P% U
;;
! b( ] h) a: R
;; Attribute setting - invisible, constant, verify, preset
. z y" B3 k: i) Y+ D6 x
;;
1 X! N8 v/ x& @$ a# T/ I {* e! g
(defun set_tile_icvp ()
6 {/ i2 T0 g5 E( C' N
(if (not (setq icvp (cdr (assoc 70 elist)))), g+ M3 _5 w& t( X. o
(setq icvp 0)0 d3 Z) v7 t" G) ~
) T4 _6 T9 _) r5 ]- [
(if (= (logand icvp 1) 1)
. h$ x$ D7 A; U Q
(set_tile "inv" (itoa (setq inv 1)))* t6 i$ F# p% @+ ?: l, h$ s/ x4 f; |$ X; e
(set_tile "inv" (itoa (setq inv 0)))6 Q. [1 X) s; y) Y+ P
)
8 R# m$ O) o5 |
(if (= (logand icvp 2) 2)6 X5 {% `3 M* t4 I" B. D+ S) U- ?) C
(set_tile "con" (itoa (setq con 1)))
; ?- X% N. V4 z9 E. R& t- w' c
(set_tile "con" (itoa (setq con 0)))
9 p3 ?5 W% z/ q4 l0 |0 A
)) \! Z) Q7 y7 ~) g; |- Q
(if (= (logand icvp 4) 4)
$ D: D8 g5 R# ?
(set_tile "ver" (itoa (setq vfy 1)))* ]8 v! ?1 c4 O) X
(set_tile "ver" (itoa (setq vfy 0)))
) G) q! r/ l. o! F
)1 v5 H; R( ~7 ]4 b4 Q Q
(if (= (logand icvp 8) 8): n0 J+ N" z4 s' d0 d" g
(set_tile "pre" (itoa (setq pre 1)))+ l9 _( m2 w) V" @+ K0 u# {6 t. p
(set_tile "pre" (itoa (setq pre 0)))
: L y$ S7 Y2 ^# f% j% D( J
)& x* L5 E0 I) J+ W
)
5 N2 p7 V9 W% A0 J
;;
2 W! j. i- H. ^" t" ~& j. j
;; Scale factors for block insertions
- p; g. n# {6 w4 k7 W: T# L
;;2 U2 @9 O+ I* i& }( G
(defun set_tile_scale (/ temp)' I1 P$ v0 Q* O. A7 P; J
(setq temp (getvar "LUNITS"))4 A5 ~! Q$ n: X: q
(setvar "LUNITS" 2)) p: z( d# Q% Y0 f
(setq xscale (cdr (assoc 41 elist)))
2 A3 ^) X$ s# y% M
(set_tile "xscale" (ai_rtos xscale))
! ~9 ~. S$ g* H/ P$ Q/ L5 ^* o
(setq yscale (cdr (assoc 42 elist)))
# o2 k& ?) z* L6 W1 {' a$ {
(set_tile "yscale" (ai_rtos yscale))
/ ^" C; O8 Z. J) w M0 }7 j" X
(setq zscale (cdr (assoc 43 elist)))+ Y2 b# x. |+ Y8 @8 r+ B
(set_tile "zscale" (ai_rtos zscale))6 c6 z$ n% d' H( @) l5 Q5 ]
(setvar "LUNITS" temp)
% I( |1 s5 n- S
)
: D4 }9 p, h2 q9 k; H
;;' y' E9 A* F8 C( O
;; Rows and columns for block insertions' P& n+ p0 B$ `+ U& W
;;6 S, U; g4 n! V1 G
(defun set_tile_rc ()
. t$ j$ M2 d W @
(setq columns (cdr (assoc 70 elist)))
: y: I/ d: y% m- t, O
(set_tile "columns" (itoa columns ))- B8 T4 n; b8 D0 o
(setq rows (cdr (assoc 71 elist)))
# A4 q( C9 ]$ j2 a
(set_tile "rows" (itoa rows))- z' O. ?/ W8 T
(setq col-sp (cdr (assoc 44 elist)))
- z( z% H1 j1 v1 g: k' y
(set_tile "col_sp" (ai_rtos col-sp))+ k6 s0 M5 O3 V9 S3 Y5 f; ]' I- e
(setq row-sp (cdr (assoc 45 elist)))
7 T8 A s8 K) e T( I
(set_tile "row_sp" (ai_rtos row-sp))* h8 T+ D, E8 O
(if (/= hasclip T)! {6 X8 ~, l/ a( F+ H8 @- C6 w
(mode_tile "xcliponoff" 1); t2 e# c2 i) L* c2 l
(set_tile "xcliponoff" (itoa xcliponoff))
( I) T2 `& D1 S
)
# H% d, g( l! R, l
)* G- i/ {2 b- A7 G$ U2 @6 H
;;( s/ B5 {( y `5 e: l s) {
;; Invisible edges for 3DFACE
0 ]2 r# l( [7 m( B/ F
;;* l! J3 @( V3 `, l( {
(defun set_tile_edges ()9 ~. t0 |8 u0 c( k
(setq f-vis (cdr (assoc 70 elist)))
9 e1 D" c1 @% x& Q2 W
(if (= (logand f-vis 1) 1). J v) m% x h# {* \- X
(set_tile "edge_1" (setq edge1 "0"))
7 ~! z) N( X3 U& t0 ~& N
(set_tile "edge_1" (setq edge1 "1"))7 T6 R" Q# s, l- m3 p8 j
)5 s8 L: d$ ?9 I. H$ {. Y
(if (= (logand f-vis 2) 2)
+ M. q- s& e9 M! R
(set_tile "edge_2" (setq edge2 "0"))
% w5 d3 p. Z# j/ L6 e( e
(set_tile "edge_2" (setq edge2 "1"))
5 O" L7 J! g; z8 e9 Y% w
)) `4 j- H: u6 K4 E( P
(if (= (logand f-vis 4) 4)
8 O+ g6 F& U# z7 q& H& N
(set_tile "edge_3" (setq edge3 "0"))& @" n! H- [9 Q. s
(set_tile "edge_3" (setq edge3 "1"))
: U7 Y6 z$ C1 f, Q' q
)
/ f0 a6 C v! h" ~
(if (= (logand f-vis 8) 8)! j. C& ]& P6 R6 ]; r- H, b" {6 A
(set_tile "edge_4" (setq edge4 "0"))
1 k3 B/ {- B+ M8 a% u
(set_tile "edge_4" (setq edge4 "1"))/ w* l9 p t( |
)! q9 x% H; M- g# L( O1 Z% c
)
1 P. H6 n7 o! Q6 _( X2 n
;;3 T& }, S" d1 U! `* L( z
;; XYZ Point values for polyline vertex, P0 u, L( U6 n' N, p' s% H
;;
( B& Q* H1 W# H7 \+ X: y
(defun set_tile_vpt (ptype)6 E6 Z! r7 c$ e" O
(if (= (cdr (assoc 0 vlist)) "LWPOLYLINE")0 |; D; i( d- X% V3 E1 \
(progn
K( d1 O4 Z, y
;; ctr is 1 based, vertices are zero based.
r u/ T I4 b1 f
(setq vpt (cdr (getLwVert (- ctr 1))))
_0 O: ?9 g9 D! n* n
(set_tile "xtext" (rtos (setq x1 (car vpt))))
9 W9 a/ P8 Z$ |
(set_tile "ytext" (rtos (setq y1 (cadr vpt))))
2 G+ d. X$ H( O4 y! F; P
(set_tile "ztext" (rtos (setq z1 (caddr vpt))))
4 {7 F( ?* t' c# T
)
2 R$ B8 ], u4 j# Z$ D
(progn; d) Q9 m# N, J- [
(if (= ptype 0)! l% y8 X$ A! K8 U
(setq vpt (trans (cdr (assoc 10 vlist)) 0 1)), J, Q( W/ R" C, H, O
(setq vpt (trans (cdr (assoc 10 vlist)) ename 1))6 G" r8 h8 b1 }$ [5 F. R5 H. X, q
)
! e, u# u8 w7 f9 w
; [: i. o3 |, g3 W
(set_tile "xtext" (rtos (setq x1 (car vpt)))), Z" B5 G( T3 N
(set_tile "ytext" (rtos (setq y1 (cadr vpt))))0 [7 E/ j% |5 O l+ ]8 d$ J
(set_tile "ztext" (rtos (setq z1 (caddr vpt))))& W! w4 {: J: g3 `1 i
)- m$ Y; \" }+ n6 f
)( v# A q" ~2 l
4 b2 H5 Y6 }7 E# Z
)3 n+ a: Z# a6 F) o5 `% ^
;; This is the equivalent to doing an entnext on the heavy weight, M; J% X1 @; S- B
;; polylines. The hard coded '4' below allow stepping over the+ B& j1 c& Y4 y; Y; h5 E, G) I
;; 40 41 and 42 group code information. The while loop finds the$ {/ J7 ]- Z% R! F/ K
;; first vertex which will be used as the starting assoc in the
( W- h o, A' O% ]% E
;; call to nth.
. B1 q8 H0 M2 Z2 Q1 p
;;
9 Q- V+ w% i8 G; k
(defun getLwVert (tmpctr / count tmp); e6 c* q8 `4 a
(setq count 0) s1 _( y; q' H7 }) g
(while (/= (car (nth count vlist)) 10)% D2 n" d8 f. O5 M4 ~0 q
(setq count (+ count 1)) ^& n# |( S& H
)
! B/ ^0 k; y/ M* d& v
;; If the counter reaches the number of vertices,
5 [& @2 c9 ]5 l% K
;; reset ctr and tmpctr to zero again.5 P% K' l/ F9 g- a ~% ~8 Y3 D5 P; [
(if (= tmpctr (cdr (assoc 90 vlist)))
o5 N& Q2 H5 m x7 n0 U6 J
(progn
1 k+ }6 g2 j9 r1 [9 O: ?/ |
(setq ctr 0)
$ L3 H1 |) j& _
(setq tmpctr 0)
M$ J: ?: a! n8 y
)3 B {* D6 E+ L+ ^0 b! [" \" M
)8 Q R9 T5 i4 b
(setq tmp (nth (+ count (* tmpctr 4)) vlist))
h0 |; T# V- K6 ]% [
(setq tmp (append tmp (list(cdr (assoc 38 vlist)))))7 O" Z2 R/ g) a4 G9 o
(setq pt1 (trans (cdr tmp) (cdr (assoc -1 vlist)) 1))" U4 [2 s; O) H, S9 I0 V1 R3 m
(setq tmp (cons 10 pt1))
1 B: A5 |* ? `' X& d5 R. y
(setq tmp tmp). C6 ~9 I) t8 i/ Z/ x
)
+ s& l- |& U U, S3 G4 C
;;
( O" r& d0 k( @$ q, o& X! O5 J& v
;; Set tiles for Spline properties. If the spline is rational then we
3 f) `6 N; S1 F5 C O8 M" [* r
;; need to display the weight values of the control points, so set
6 \- I* Z) s) V( N
;; flag to 1.
& ]# k: b6 q" [) w6 R+ G
;; 1 = rational spline0 | T) u- r8 \# x( j# S6 k% Y
;; 0 = non-rational spline* N. Y! l8 m" k/ X
;;
0 A$ B3 M `2 Q m1 z/ C; h
(defun set_tile_spline_props ()
/ |) ?8 Z" F. t9 ^. j. u
(setq rational_spl_flag 0) ;; initialize rational spline flag
0 ]1 l; c' r* b% p7 ~: _6 h
(set_tile "Degree" (itoa (cdr (assoc 71 elist))))
" ~ C1 f8 T% ^
(setq bit70 (cdr (assoc 70 elist)))
( T# M) A' s, G" ?
(if (= (logand bit70 1) 1)
7 h+ B1 n4 ~2 x. v- g7 H
(set_tile "SpProp4" "Closed")( R9 d' |+ W4 D
(set_tile "SpProp4" " ")
- F# M* }/ @7 D* V6 L
)
1 U2 [- o6 h7 C3 u' P: j5 w h
(if (= (logand bit70 2) 2)1 L, U! J7 c' n+ l
(set_tile "SpProp3" "Periodic")
! l |" G2 T5 T5 h% n' @' R& y7 y
(set_tile "SpProp3" "Non-Periodic")( I3 v+ n" ]# m; V5 U
)' [# u/ `: k# n& p: S' H p( a' z9 p
(if (= (logand bit70 4) 4)& O: r z' F* z) E
(progn
3 q3 J+ N" A% t0 v
(set_tile "SpProp2" "Rational")+ `* J# A2 \/ B E
(setq rational_spl_flag 1) ;; this is a rational spline$ r3 X. r; `) R; Q/ m
)
/ y5 o" u; U4 r& ~ ~
(set_tile "SpProp2" "Non-Rational")
+ Z, N& C, s7 |( [% Q1 Y8 M. t
)
2 [- u+ A" J9 S1 {) k: h
(if (= (logand bit70 8) 8), B5 D9 P [3 T, _! [! Y
(set_tile "SpProp1" "Planar"): G5 {) S x- d" O2 t! ^
(set_tile "SpProp1" "Non-Planar")3 I- y8 u% [+ b4 z- I4 }3 w
)4 f3 H7 b' R0 m5 B
(if (= (logand bit70 16) 16)( u" r0 u; E, y+ l$ C4 D9 ]
(set_tile "SpProp5" "Linear")
F! c' p& B! w) a5 v5 V0 _
(set_tile "SpProp5" " ")
, @8 K- O% j I% X: r$ ~
)6 [1 e/ |9 U7 b9 ^9 t) J
)
* @. w1 n0 M' v4 ?( A
;;
! N3 K0 w$ s2 K3 W9 e; R
;; XYZ Point values for spline points- L" ?- t' W6 N3 K5 U7 K
;; Need to account for WCS/UCS
. M: }; m, e* Z$ q3 U
;;- ~7 j& s* l) k1 k" ^2 s
(defun set_tile_cntl_pt ()
_+ p2 T, u9 n: m; [
(setq cntl-pt (cdr (assoc 10 elist)))9 M8 m! `2 _1 p( Y+ b
(set_tile "xtext" (rtos (setq x1 (car cntl-pt))))
: H, @5 E" V& o7 d. b' O
(set_tile "ytext" (rtos (setq y1 (cadr cntl-pt))))
9 ^: r, a" z6 b9 @0 i
(set_tile "ztext" (rtos (setq z1 (caddr cntl-pt))))
+ t* h) w: G& L% ^, _
(if (= rational_spl_flag 1) ;; if rational spline. k% `. _0 B3 G3 ~: L# j- l
(progn ;; show weight0 u9 ^0 p( X6 w" a
(setq weight (cdr (assoc 41 elist)))
! R8 V+ m$ O* K5 z9 G! K
(set_tile "weight" (rtos weight))
# E$ S: ~9 ^( H$ m' F( l2 P
) ;; else
0 @7 x& H1 {1 f
(mode_tile "weight_text" 1) ;; disable weight field$ r3 M# X; J2 E% l3 u0 Y
)6 W5 c" P( l }- y7 `- H
)$ D. j+ h% x( @" g" U; F, I3 y3 p2 I
;;
! V. T3 r/ ~6 l6 ~5 O, }) Y
;; XYZ Point values for spline points' w/ a3 \/ P" k
;; Need to account for WCS/UCS
7 d) {; h" v+ r+ W7 }: M
;;4 x6 D! S5 ^* e0 r, _# Y
(defun set_tile_data_pt ()+ \) N" Y% u# C+ {5 H( Y! K5 k
(if (not (assoc 11 elist)): S, N7 A9 T# H4 c% l/ h6 h; f
(mode_tile "data_pts" 1)3 }' o7 E9 A$ Y5 o% O; i _
(progn
$ }( @9 K; h& ^' y" I9 A
(setq data-pt (cdr (assoc 11 elist)))
$ ]% e; `) N0 Y* s2 r
;; display points with current precision.: _% a( i. Q9 d& t# t
(set_tile "dxtext" (rtos (setq x1 (car data-pt))))
(set_tile "dytext" (rtos (setq y1 (cadr data-pt))))
) C1 T2 p( B# _. Z7 v/ B
(set_tile "dztext" (rtos (setq z1 (caddr data-pt))))$ K5 i0 ~+ D1 M1 p# m
)+ ~! m6 H/ ]1 p: D8 m" z& p$ v
)
4 x4 r- k0 @ u# }
); u. Y! U8 u% w7 X* x# ~; y& Z
;;
" b( K. `+ C- U. f8 X
;; Fit curve, fit spline, or smooth spline surface setting- p& e% Z: B, g2 g
;;$ r5 J1 V: S; H/ T4 g
(defun set_tile_fitsmooth ()
t J( S n6 K8 K/ p& z6 i' \
(cond8 K/ {0 @5 B: p( C x% k7 k
((= (cdr (assoc 0 elist)) "LWPOLYLINE")
+ U4 y& E$ \5 |+ Z+ C9 q5 Q; q
(set_tile "none" "1")4 l6 d4 c9 y L
)
5 T+ @/ q! j e
((= (logand bit70 4) 4)4 E: L% X- h$ p( @6 I
(cond
& M* }' E' {" Q. Y$ `
((= bit75 0)0 l5 v) v( n& P9 P7 a& y$ @6 T
(set_tile "none" "1")) S) E: i G: u, \/ P
(setq spltype 0)3 R Z8 j% S% g* O* N; P1 O1 W
): N1 Y* V; |. \( q' h+ G0 V% t2 ^
((= bit75 5)
4 d2 ^, ]5 L( B6 W% E o
(set_tile "quad" "1")
. {9 G L8 `- Z: Q, d
(setq spltype 5)
) |) g3 d% T) J& k
)! [: k% H8 @7 C
((= bit75 6)
& q2 K) G* a9 D2 |- @; A) J
(set_tile "cubic" "1")
6 W9 n/ H! ]9 b
(setq spltype 6)$ `; W& ^* l7 q7 p1 \3 T4 I
)
$ P1 @, m1 K* ~8 x; e" F& q
((= bit75 8)1 R+ V4 S+ Z( L" C/ e' k$ n
(set_tile "bezier" "1"): ^. i- b2 q8 o6 ]
(setq spltype 8)
8 O' R) c! h% q6 f I# @& w+ }; N. u
)' a. g# d( k# [! A& |/ H
)4 o, p/ A( R8 u& D+ Z: Y( X
)- i# W9 h3 O' A0 T9 L: @
((= (logand bit70 2) 2)
# w# _1 G. F- }5 B) t: J: V
(set_tile "fit" "1")
/ g8 j. {+ L& J- y$ N) Y" h
(setq spltype 1)
5 Z; B! z( ^% |4 |
)
' t6 [( }4 Z) k
(T (set_tile "none" "1"))
! ]7 `' M% w# {7 d
)6 e( H, z3 E0 E& i
)/ F: d; U" j$ u
;;! Z: t( r# ^" B" h! x3 [7 S
;; Closed or Open mesh and polyline setting6 ?. S. A2 ~( _
;;
( a t* T5 k+ J7 X, x
(defun set_tile_closed ()
* a# O5 r9 D) v- q) G
(if (= pltype "3D mesh")
- q. h7 _' w' y$ I9 m( {' t$ i" H
(progn0 y2 J1 d; ~: E; n- }
(if (= (logand bit70 32) 32)0 Q$ t2 C7 S2 W. T6 h0 M& B
(set_tile "closedn" (setq closedn "1"))
* ]0 g5 J7 x' |3 u/ r0 @ K
(set_tile "closedn" (setq closedn "0"))
6 R" Q9 u5 @7 F4 q* [( r
)
( F% [8 ~0 v- N0 J
(if (= (logand bit70 1) 1): E7 w3 [3 w( Z
(set_tile "closedm" (setq closed "1"))
$ f5 X. _8 ]# ~3 h* D5 u) K8 q/ X0 T
(set_tile "closedm" (setq closed "0"))
- |7 B! X8 m9 @5 T4 I" [
)7 I4 n8 t3 I% W5 L
(setq old-closedm closedm old-closedn closedn)0 d& Q5 J3 h/ B- A9 D; X
)
8 Y5 p9 T7 K+ J( g% c) l
)
1 d8 A' [4 A( \4 ~- [* s
(if (or (= pltype "2D polyline")
9 K1 @! Y& }, }
(= pltype "3D polyline")* J7 Q/ p* R/ ~& i2 p: B
)5 y7 W0 r0 B* W, ?3 O1 i. }; k
(progn
/ q2 J1 l6 R' k" {- W
(if (= (logand bit70 1) 1)
0 N* D4 l! [8 u+ K8 m u
(set_tile "closed" (setq closed "1")) w r& ], }3 l
(set_tile "closed" (setq closed "0"))
$ S. ~9 w4 g- Y2 @
): P( s& ^% n0 j/ R. h& o
(setq old-closed closed): D3 f, {! V& [" U, n7 r6 l
)
- @8 ~" ?0 G. n; A7 M2 S0 k4 U
)1 I) r) S- ~8 A9 Y
)$ O0 r. E0 P# M( h
;; Set common action tiles7 j4 a) V3 c# H% D# l
;;
% Y) X* ? H, I p, W' r
;; Defines action to be taken when pressing various widgets. It is called4 \! z% E: L4 D4 V" G( Z
;; for every object dialogue. Not all widgets exist for each object dialogue,/ D9 W! t+ ~& d8 Q: q7 r' {7 U
;; but defining an action for a non-existent widget does no harm.
$ F% |- b$ E( m+ p+ q
(defun set_action_tiles ()
% ?! `" R5 u9 o
(action_tile "cancel" "(dismiss_dialog 0)")
+ K, S+ {) H3 e6 j4 r
(action_tile "accept" "(dismiss_dialog 1)")
* s3 `9 h: i q( n% i3 U0 y4 |0 R# \
(action_tile "help" "(help \"\" help_entry)")/ F; W$ K! _1 P8 `( K
(action_tile "b_color" "(getcolor)")- F, c- W) {* W2 I5 `& @
(action_tile "show_image" "(getcolor)")' X3 q M5 F1 n( b" }
(action_tile "b_name" "(setq elayer (getlayer))")& i# K# O% b% P5 E; v0 D% a5 {
(action_tile "b_line" "(setq eltype (getltype))"): D, h) V# z3 T: |' b$ D3 s6 P h5 J1 K
(action_tile "eb_thickness" "(getthickness $value)")- q$ A0 v& v1 J3 ~
(action_tile "eb_ltscale" "(getltscale $value)")" ]+ \ C4 E$ |) z1 t2 N0 T+ q
5 m; I G" |& v5 |% M
(action_tile "pick_1" "(dismiss_dialog 3)")
( J5 @$ T- X+ o4 V/ S0 w% y
(action_tile "pick_2" "(dismiss_dialog 4)")
7 p: v( m' g; o8 g& E3 z8 x
(action_tile "pick_3" "(dismiss_dialog 5)")
* q) S! t4 C5 f f' {6 e" |
(action_tile "pick_4" "(dismiss_dialog 6)")0 c1 i6 W" M6 v* s5 D+ T
(action_tile "x1_pt" "(ver_x1 $value)")
! a; O0 \4 t2 ^" E5 T+ j8 l3 A/ A, U, R
(action_tile "y1_pt" "(ver_y1 $value)")
& |# b0 }6 H& v& x; f7 z6 n& g
(action_tile "z1_pt" "(ver_z1 $value)")
. X q- Q+ V, N |5 ^7 r0 `
(action_tile "x2_pt" "(ver_x2 $value)")$ h# m; E8 x; G$ ^5 ~2 h/ ~4 k
(action_tile "y2_pt" "(ver_y2 $value)")' M5 l, L" B( X6 ]- u
(action_tile "z2_pt" "(ver_z2 $value)")8 I& D, S. y l. U( X# Z' } t
(action_tile "x3_pt" "(ver_x3 $value)")! C$ d0 Q! h+ @
(action_tile "y3_pt" "(ver_y3 $value)")
2 U# S3 J: C" y4 I2 U7 I/ C1 j# C
(action_tile "z3_pt" "(ver_z3 $value)")
7 m" d v: c1 e% B2 a1 A7 r% C
(action_tile "x4_pt" "(ver_x4 $value)")
' `- U1 z" a5 {4 ? T
(action_tile "y4_pt" "(ver_y4 $value)")
9 O4 T0 |2 Z3 D8 A3 [2 C! k' n& T6 u6 o
(action_tile "z4_pt" "(ver_4 $value)")
8 F8 ~4 Y+ D- J7 U& G- r3 X+ m
7 P" n( D: g; k7 t* T) F
;; Action tiles for Xline & Ray4 i3 q7 M; ^# ^. T8 _6 E2 L
(action_tile "xline_x1" "(ver_xline_x1 $value)")
9 v% [$ M; `8 U+ C2 g$ v$ y& E
(action_tile "xline_y1" "(ver_xline_y1 $value)")
% X6 V& Y: l" \! v! d% E- v
(action_tile "xline_z1" "(ver_xline_z1 $value)")
& ~# \3 v2 n) _% c/ Q
(action_tile "xline_x2" "(ver_xline_x2 $value)")
" _4 P7 f9 O5 u& p n" e
(action_tile "xline_y2" "(ver_xline_y2 $value)")3 E) @! v2 k. b& ?( I
(action_tile "xline_z2" "(ver_xline_z2 $value)")0 n# R D3 U6 N* A. Z- Z
6 N) c% _5 V+ u
(action_tile "edge_1" "(setq edge1 $value)")& ~* S7 T) C" I M; j8 I7 [$ k! y; v
(action_tile "edge_2" "(setq edge2 $value)")1 W# e8 s$ W7 C# N( ?, S
(action_tile "edge_3" "(setq edge3 $value)")
$ }* ?( Y; _& G# T0 g [2 O2 S
(action_tile "edge_4" "(setq edge4 $value)")
0 U/ D; j& O( g$ O- `% F
( c% h# h A {0 `/ I% C
(action_tile "radius" "(ver_rad $value)")
3 W% B0 | Y6 [ O ~8 ?
(action_tile "st_ang" "(ver_ang1 $value)")
8 |6 q9 c% l7 v$ R- A# {* R/ _
(action_tile "end_ang" "(ver_ang2 $value)")( P2 t9 f" v3 }
(action_tile "end_eang" "(ver_eang $value)"). f5 l) g- G2 g4 Q2 `: b
(action_tile "minrad" "(ver_minrad $value)")& q1 X- K5 O5 @' ]
(action_tile "majrad" "(ver_majrad $value)")
" o8 e9 D3 o# B2 T; A
+ v& F7 f3 J/ T! h. I
(action_tile "xscale" "(ver_xscl $value)")
2 j9 R2 B7 {. i& Q. {
(action_tile "yscale" "(ver_yscl $value)")
( y5 \) @) e l+ n
(action_tile "zscale" "(ver_zscl $value)")) @2 C2 f7 ~! X p
(action_tile "rot" "(ver_rot $value)")- F I3 [8 i6 W0 I- g1 v1 Q
(action_tile "columns" "(ver_col $value)")
* P+ E v6 C- f
(action_tile "rows" "(ver_row $value)")- T$ g% M7 }/ Y/ w( S; k# J, v
(action_tile "col_sp" "(ver_colsp $value)")1 O! y) ^: d5 [( J3 {0 Q
(action_tile "row_sp" "(ver_rowsp $value)")0 w/ T+ p1 W# l8 O
9 i- m; R4 p* Y, X9 Y5 z
(action_tile "hght" "(ver_hght $value)"). N7 ^7 R, D2 `
(action_tile "wid" "(ver_wid $value)")4 h: h+ e _; A/ D8 K$ t
(action_tile "obl" "(ver_obl $value)")& F* W8 d' n3 g, ?0 e6 Q6 t# d
(action_tile "style" "(style_act $value)")
; T$ M+ ~" x5 z
) p6 n7 I. G; t/ s* X! I
(action_tile "t_string" "(ddgettext)")
$ K; h& C" I# o9 c4 ~* w* t" z
(action_tile "tag" "(ver_tag)")% Z: H& V9 D( W1 W5 Z/ e# O: w
(action_tile "prompt" "(ddgetprompt)")" l: o% Z1 c! V: G/ v* N
(action_tile "bkwd" "(setq bkwd (atoi $value))")( l2 V" n. a; Q& l/ E2 F
(action_tile "upsd" "(setq upsd (atoi $value))") s! l. F! c( d" G
(action_tile "inv" "(setq inv (atoi $value))")5 e. Q3 Z+ R7 x9 p4 p0 A8 R
(action_tile "con" "(setq con (atoi $value))")
! T. `* M- G; d- `
(action_tile "ver" "(setq vfy (atoi $value))")
8 j/ i) z4 C+ _' }4 c" Q
(action_tile "pre" "(setq pre (atoi $value))")+ _: x& r! y: I2 H( r" b
(action_tile "popup_just" "(jlist_act $value)")+ a! O7 P( n# x0 x# B
/ s3 G. W$ s9 f5 W( L
(action_tile "closed" "(setq closed $value)")
- Q( E4 k5 x) ~5 ~, F% ]8 z
(action_tile "ltgen" "(setq ltgen $value)"). N4 _0 D# M Y
(action_tile "closedm" "(setq closedm $value)")% |" v8 g$ d$ J# m8 h& |
(action_tile "closedn" "(setq closedn $value)")5 y5 k. X8 \3 e& A4 w
(action_tile "next_v" "(next_vertex)")6 v" T, J- U0 b6 {4 b |- c6 w
(action_tile "xcliponoff" "(setq xcliponoff $value)")3 A- ~" `$ R7 L8 P2 _! S: s
, i, s/ H3 w- {5 H
(action_tile "next_cntlpt" "(next_cntl_pt)")! ^9 M/ y5 b) L
(action_tile "next_datapt" "(next_data_pt)")
- K, U* O1 K; C) e( n( X. w
$ B1 k* g e+ a3 W
(action_tile "none" "(if (radio_gaga \"none\")(set_uv 0))")# S; H ?- t; c" ^9 s' V! p
(action_tile "fit" "(if (radio_gaga \"fit\")(set_uv 1))")
9 \6 T2 k; W& P) r+ o5 A8 M
(action_tile "quad" "(if (radio_gaga \"quad\")(set_uv 5))")
8 q' S2 H/ h$ t/ `8 n8 v
(action_tile "cubic" "(if (radio_gaga \"cubic\")(set_uv 6))")/ \$ n8 ]* R2 w( O& y) A7 [# b
(action_tile "bezier" "(if (radio_gaga \"bezier\")(set_uv 8))"): C6 z9 w; p9 d% ^7 ?
* W2 ?3 x% U8 Q# D m7 W0 U# }1 e
(action_tile "u" "(ver_u $value)")
# r- x+ l! |6 o; s& S9 N* o" U
(action_tile "v" "(ver_v $value)")
; J7 B7 N' g9 A" `) V( J
)
+ d1 Q1 q( O" R) C# l% I! Z
9 S& n1 \- f J( r6 X
(defun ddgettext()
5 K3 h w/ o( \: C& b
(setq text (get_tile "t_string"))1 C2 v$ e) x2 V0 @
)0 ^. P; n5 |! Y9 p ]4 t3 Y+ G
/ q- H1 S; `8 n# {* c
(defun ddgetprompt()
0 p" K! K- {- j( L" m/ |
(setq atprompt (get_tile "prompt"))/ R7 i, e6 i! Y+ A3 M0 C! h: I
)( X2 s* l$ e; u5 n- {1 f7 X0 ^
) ?; x0 N+ `& Y/ X
;; As OW doesn't support disabling of individual radio buttons within6 o. \- [+ ^- X: U0 n: m
;; clusters, a check must be performed as to the legitimacy of the
/ C6 O5 O+ Z$ ^+ A
;; button pushed and reset if necessary.
! f4 C9 L. [7 p8 g2 S1 I$ O
(defun radio_gaga (pushed)6 G" H' |; C$ n, D1 J8 E' b
(cond
2 a& c$ D- d; }
((and (= pltype "3D polyline")
' Q, h" K; |7 s, o
(or (= pushed "fit"): b, @# Z5 m0 Z2 R% W* h6 `* E
(= pushed "bezier")8 c) S- M6 P9 G+ b1 O
)
! @6 S1 n* T+ h# B$ j* x
); V' G8 A( l3 j
(set_tile "none" "1")
9 p. Q8 A( X+ M D K
nil
) K! z% s3 E: L0 Q- d
)
6 i/ o( Z2 b- R' W$ J3 b
((and (= pltype "3D mesh")
$ s$ I; W6 ]- F$ O- I
(= "fit" pushed)& e2 M" M9 I7 c; G1 H* w& J# y
)
) y; t/ _; i; r% }0 l
(set_tile "none" "1"); P% j9 C: h4 A1 O l
nil% D1 n) n+ t0 y/ v) U! ?7 p) K
)5 b+ C# Q ^2 e/ {
((= pltype "Polyface mesh")' T- ^$ Y# t9 } E
(set_tile "none" "1"). N( M7 A. [* v* w% I
nil7 R% l8 S! ~3 ^5 K) h% {
)
4 z0 j, E, Y9 e
((and (= pltype "2D polyline")7 z, |7 Y! {7 I1 L. m5 i
(= "bezier" pushed)7 r C5 C$ m0 S6 S
)2 N# R$ Y- x9 F4 s# O
(set_tile "none" "1")
8 a, `( R. p: T
nil3 r. m! W1 f4 h1 ~3 y' x4 _/ ^8 G
); _3 ~# J- t- P7 R, E; R
(T)/ _ j. P: `/ e4 T
)
t- T; t2 v+ P2 F! D' d
)
# z, j i a' g z
;;" i5 ?4 S2 L+ J9 E) }" [& E
(defun set_uv (type_n)
) _- i! W2 g2 J1 @/ K
(setq spltype type_n)
$ ^6 z% q* w ^6 S! Z! u9 ?! h7 ?
(if (= pltype "3D mesh")
/ x9 S' F: F0 T; B7 g
(if (= spltype 0)# g, X4 k' @: |! \+ a; q
(progn9 C! ^# z; t# K( X8 u% ^
(set_tile "u" (itoa (setq u 0)))
5 L5 `& Y) V! U+ z' W
(set_tile "v" (itoa (setq v 0)))
D7 I+ ^3 i p
)4 \5 k, Y9 t2 f7 ^ S; @
(progn. N6 X( y3 ~5 r
(if (= u 0)
9 G: g! Q& e& l! g
(set_tile "u" (itoa (setq u (getvar "surfu"))))
) _# A# F5 ?" r. J; j
)
" n4 T1 a" t9 t$ B1 y0 K
(if (= v 0)% z& R* {5 x w3 t
(set_tile "v" (itoa (setq v (getvar "surfv")))) g7 B3 n6 O( T4 I# R' v3 c9 d
)% |- Z6 r7 t' K# @5 _
). {2 z' P/ N$ W' w& F/ P5 M$ d
)
# D& V4 n% t+ C5 p: T9 @5 D! J
); p( x6 T$ ^$ k3 }
)
+ A/ e! O5 C3 _$ X4 Z7 o
4 z1 Y) w6 D& b) T5 U7 d
M) [- \, m0 m) I" h. u3 E# Z
;;
) [. z, @/ g7 w# L
;; Verification functions
9 m) g& k5 b! r" W ]1 u# R
;;: y2 o1 k" m3 P$ Q) R }" b% s+ S
;; Verify distance function. This takes a new X, Y, or Z coordinate or
: W/ E! O5 u1 @0 ^; C _/ u- w/ M
;; distance value, the tile name, and the previous value as arguments.
% ~% ?/ `. [3 v' E' b, B% N& v5 c' y
;; If the distance is valid, it returns the distance and resets the tile.' u E6 ]& ~! `; J1 a8 E4 G
;; Otherwise, it returns the previous value, sets the error tile and keeps# P6 G" y. O) s7 |
;; focus on the tile. Shifting focus to the tile with invalid value can( _ C6 \9 O+ j( f2 \! Z* p
;; trigger a callback from another tile whose value is valid. In order
0 _8 V9 J0 b- V# J
;; to keep the error message from being cleared by this secondary callback,
5 d* l- I* U5 z/ b% Y/ _" T
;; the variable errchk is set and checked. The last-tile variable is set
3 d5 v& { d D% u0 L
;; and checked to ensure the error message is properly cleared when the5 z& Z# v A& r# b& ^$ r+ v
;; user corrects the value and hits return.
4 r4 U5 a5 Z7 U( h6 D9 d4 a
;;3 u# E4 d7 }/ p; s) ^% X2 z
(defun verify_d (tile value old-value / coord valid errmsg)
) t$ X" a7 m; [4 Y6 n1 u
(setq valid nil errmsg "Invalid input value.")
. y( {4 @( M/ g7 W+ x- ^
(if (setq coord (distof value))
* v/ i/ o/ w- j! D/ o1 N. j
(progn
3 O# @! e3 Q# J% L
(cond7 {1 \% v4 g/ t+ a
((or (= tile "radius") v* c* j6 H5 q$ m% ]
(= tile "hght")% o) j* y: m3 K: s& Z
(= tile "wid")
+ y7 S( q5 H- z6 n: m9 Y
(= tile "majrad")
" x. [1 y" T( y6 z
(= tile "minrad"); I1 [4 K: u1 K9 q2 W2 O0 v6 Q
(= tile "eb_ltscale")# O3 |1 }# V7 [% N# r
)
- O. ?! c8 D* m$ c& ]1 z
(if (> coord 0)
# Y# ^9 X4 m& K& R& ?( Z! R
(setq valid T)
% y$ q8 S: I/ \8 ` P9 i* s5 n i
(setq errmsg "Value must be positive and nonzero.")
# n1 X$ r% @6 [, H$ P! Q4 r
)
' B- z. b' K& t9 C
)
2 k2 a! n) M/ C, m8 o6 c- M
((or (= tile "xscale") H( M% L: r! q' l# o5 o! ?
(= tile "yscale")
8 [* B5 h' w! H- q
(= tile "zscale")! \) _0 u4 q: V! g8 y+ E* [! t
)
6 n" Y' c, J" C n
(if (/= coord 0)
8 s, |: K- J4 J8 q/ L# H. H
(setq valid T)
8 v/ L6 O: n C& l9 a
(setq errmsg "Value must be nonzero.")
3 m1 U4 j, t$ q" |+ y
)
/ M; J, @4 p6 `& d D
)7 X7 B, ~/ M8 ~. I. ^- o. C4 M$ d
(T (setq valid T)), j9 r( O3 _" z2 l: o2 F v
)
7 e1 _0 P3 x0 a' C" V1 W' K
)
# N6 Y: n. _- {1 ?
(setq valid nil); |5 U6 c- b6 i5 @/ _
)
9 B; S: z X: A- g! V% K
(if valid
( t7 c4 A* w& c( A- c" _$ _4 f4 c
(progn
& |0 P9 y5 b( T6 |1 B
(if (or (= errchk 0) (= tile last-tile))( ]' B4 a2 g5 V" v& i! n, q1 b
(set_tile "error" ""): {# _5 A# e0 J
)3 I: A4 `7 x& ]: R
(set_tile tile (ai_rtos coord))
" W; }' m1 T, ?9 t, ^; b
(setq errchk 0)
( X' W' H, g- O: {3 l/ W8 B1 N: ]
(setq last-tile tile)1 v/ h% @# H3 d0 e7 K2 d1 V- Q: y
coord+ z: r' _; M$ r/ Q0 {6 J( C
)
* x' B) ]4 @; e& f! v* X: V
(progn
; G0 D; @& e& D: y; P" f
(mode_tile tile 2) ; Move focus to offending field
) m0 _. h6 k- k% G/ p# L
(mode_tile tile 3) ; Select offending text. F6 e- A" q( l2 J- E. W/ f# l1 y
(set_tile "error" errmsg)
(setq errchk 1)
4 S/ o' D0 G0 L3 v' b: }+ F
(setq last-tile tile)5 y; \% Q+ I5 @/ Y
old-value
/ V+ o, @. [7 [' i8 n" f* A' l/ L
)" s: [+ L) }$ u5 P3 D4 ]
)
( Y9 [3 ?/ V; N
)
- {) p) E- }4 q, N
;; Function for Xline coord edit box checking.! D: f/ k; ?: l3 @, p
(defun verify_xline (tile value old-value / coord valid errmsg)
. Y+ O' F& B% L" F1 A2 J3 s
(setq valid nil errmsg "Invalid input value.")
) }7 t2 w; @- Q
(if (setq coord (distof value))
0 \$ R1 i# |/ | `" L3 ]
(setq valid T)
3 U0 `- |2 b% \
(setq valid nil)
. ?! I" ~, A! I
)
. l' @# D4 _& G/ C" E8 \2 i
(if (and coord( _9 E5 u8 p2 E% |
(and (= (atof (get_tile "xline_x1")) (atof (get_tile "xline_x2")) ). J: q2 b$ J6 y6 c' `3 S
(= (atof (get_tile "xline_y1")) (atof (get_tile "xline_y2")) )
6 {8 @+ R2 t L+ \
(= (atof (get_tile "xline_z1")) (atof (get_tile "xline_z2")) )
2 `& R$ `/ d% q
)
: W# y) P R- B
)
7 _- e/ m1 y. e/ H- ]
(progn
5 ]* _/ I- g5 r* M0 j) \' X7 w1 Z
(setq errmsg
1 k8 P" G! X! S" y) [0 r
"The Root point and the Second point cannot be equal.")" G) Q2 g+ J5 y: T
(setq valid nil)
1 t4 V3 _1 _9 i
)
$ d3 O# e$ c& K! z
)
7 B/ W$ G2 o9 v( N4 i0 R2 e
(if valid% G# C% b$ F( f$ {* ?. ~8 i
(progn
. T e& L- K# j9 R# v3 J. }
(if (or (= errchk 0) (= tile last-tile))
" e9 o$ ~- e6 t& Z: ^8 C
(set_tile "error" "")
8 P) e4 F+ j. l# @
)" R7 P# g0 O( y6 r! L8 o
(set_tile tile (ai_rtos coord))
, A' S% u# t6 t5 G
(setq errchk 0)
4 u, X; L: L) C; b$ o; h+ y, ?
(setq last-tile tile)
7 Z7 g) o; m4 C% ~, R" T8 u& b/ R
coord: K( t, `4 e, n5 d/ }6 ]9 w, k
)
3 e1 M9 j) e1 Y
(progn
# S0 x8 d, ^1 l
(mode_tile tile 2) ; Move focus to offending field. G6 h' W% z" i7 v
(mode_tile tile 3) ; Select offending text
& ~+ c4 w$ ]: r' T/ B% M) X2 d$ y
(set_tile "error" errmsg)1 N( h$ p1 `8 |# [+ y2 l
(setq errchk 1)! P6 k" V& N7 F8 ^
(setq last-tile tile)% ?( v7 o. ` @+ @4 _: G
old-value
9 f. D1 A9 _" w+ C
)
6 c* g( l b4 h
)
, \% R8 l& X, E# z2 {& n$ V" m
)$ |- K( s! g% m: I
) S$ [. e. h) D1 X& Q2 Q* c
;;
& h a, B2 I8 [3 c7 |
;; Verify angle function. This takes an angle and a tile name as arguments.
/ w) m( r: {$ C0 |& T/ v* O7 J! t( ~+ g
;; If the angle is valid, it returns the angle and resets the tile.* D! D, E( H' @8 r' o
;; Otherwise, it sets the error tile and keeps focus on the tile.
; ]7 _4 T: v! g
;;, k3 z) @4 O; G4 a* l/ D
(defun verify_a (tile value old-value / ang valid errmsg oblqmax)) ^" Q1 k8 J: `9 E' Q8 A) B
(setq valid nil
( d3 M; j. V% O9 h/ h5 }
errmsg "Illegal input value."
8 m( y c3 a: \* o |
)
% O2 w! m+ K4 A+ `% b: |) g
(if (setq ang (angtof value))
4 ?1 A0 J' c/ q) m( H
(cond
3 d) c& j8 k+ t4 b0 d
((= tile "obl") ; Restrict obliquing angle5 X: q2 w# w: ~) H% a- z3 C7 @
(setq oblqmax (+ (* (/ PI 2.0) (/ 85.0 90.0)) 0.000001)); Z2 O3 A5 l3 j* j1 D
(if (or (<= ang oblqmax)
" c# n, s! w- w
(>= ang (- (* 2.0 PI) oblqmax))% q, a% x) ^# H+ q2 X
)
- a- h2 X" O, Z N5 k9 U
(setq valid T)
2 }/ q& |8 Y4 E7 ~, A
(setq errmsg
8 D3 @& o/ V$ R" H
"Value must be between -85 and +85 degrees."), j9 x; Y3 d0 `% R1 q8 r
)
/ `) O a4 J- n4 o
)
# s9 j, }8 p' {& y: d, \
(T (setq valid T)) ; Other angles not restricted
- u9 t1 {+ Z$ w$ U1 d( Z
)
: Z$ y/ u, N) s5 \
(setq valid nil) ; Invalid angle input
- Q- s0 L( R' {/ Q3 V: S# v% ^; w5 {
)7 m9 t- n) G7 w" Y+ o% F
(if valid0 u7 J& q( i5 Y' T' H8 v
(progn
3 M2 x5 {0 j2 u3 v
(if (or (= errchk 0) (= tile last-tile))( c) H' j) c7 N8 D+ p
(set_tile "error" "") u$ u( a5 M" X, M: Q
)' U& I* b2 o- J4 }$ H
(set_tile tile (ai_angtos ang))
0 b S. R4 T$ u; v7 R
(setq errchk 0)& o8 n2 q1 {! W& J
(setq last-tile tile)
3 _! J2 D g, ^8 J
ang0 t. N2 Y2 o' R$ Q3 @* q" K- F
)1 v/ L% Y2 H' V: Q/ H& V: J
(progn
$ g( t4 X- U1 O) P/ V7 O- Q
(mode_tile tile 2) ; Move focus to offending field6 O# N/ n; n' Z5 m$ o" P9 [
(mode_tile tile 3) ; Select offending text- M [# n) ^) _4 f
(setq last-tile tile)7 r% }( D0 x1 t* K" Q
(setq errchk 1). x- k* E) P$ q, u2 c) n5 \8 g1 ]
(set_tile "error" errmsg)
0 H5 O8 V7 Y. ], z
old-value
. i1 W9 z0 B: s6 X
)
8 W* r6 m1 K! P! g- P# k* t% E$ u
). x4 h' s) |+ ^# U. t
)
" i1 }3 p: A0 |
;;
/ O+ g- [# q0 V2 E; R( x
;; Verify angle function. This takes an angle and a tile name as arguments.9 C6 s% ] f l/ t( R f
;; If the angle is valid, it returns the angle and resets the tile.* H( L) j. e# m5 C O* E0 R9 {+ L
;; Otherwise, it sets the error tile and keeps focus on the tile.
& t. P/ J1 H! `1 }. R4 A
;; This function is specifically for the end angle of the ellipse object. If) o" ^+ `; A8 v [& j
;; the end angle resolves to zero then we want to display it as 360.: c7 l2 \5 M% t! L( X$ R/ U6 P
;;
1 T* A1 ]' [6 U" q4 n y$ I
(defun verify_ae (tile value old-value / ang tempend)
& A7 I" W+ Z6 u C
(if (setq ang (angtof value))4 _- }" v8 a' u7 D; H
(progn
, r* b* \' H n# ~6 X7 ~
(if (or (= errchk 0) (= tile last-tile))6 Z" g/ P9 y, T7 N+ `% q+ w1 F5 P
(set_tile "error" "")
z- S6 r4 k& M
)
0 b1 Y& U6 Y8 y! M* T8 R
(setq tempend (ai_angtos ang))
6 H+ }+ o [& _" h1 c' l. ^, R4 b: ^
(if (= tempend "0")& w$ g& i: G5 e& ]5 B/ z7 O. o6 U
(set_tile tile "360")/ Q7 C& K) W; |5 \; I, u- v( t4 D
(set_tile tile tempend)' X) g" X' j3 F. F a: L
)
, d [" [6 V: F7 O; r
(setq errchk 0). _6 X: y5 \; X3 s, A0 b( f) w/ Z8 E8 g
(setq last-tile tile)
; y& J* X$ {- D
ang
+ R8 i; E- b4 M* `/ A# e o
)/ n" @$ t: ?# z0 W
(progn
1 L( x) d7 `9 Q
(mode_tile tile 2) ; Move focus to offending field/ {9 X: @) \/ l+ n% L: B
(mode_tile tile 3) ; Select offending text
& T6 B) Q% e9 R+ g( p
(setq last-tile tile)6 C- D( j I) _; G9 Z0 O
(setq errchk 1)% v; {$ G+ z' A& p. w/ K1 t. w$ z) C0 f
(set_tile "error" "Illegal input value.")
; a [! x% l" d% [
old-value
. d& i3 ]/ x" B+ q1 g
), L; }6 E. @9 O4 E
): b1 x- l4 H2 _& [; U6 W
)
9 @' J/ Z# h- m2 q% t' n
;;
/ s1 V5 e. e1 `1 c4 U
;; Verify integer function. This takes an integer and a tile name as5 f# @4 Y0 h8 W1 B. c* w
;; arguments. If the integer is valid, it returns the integer and resets the1 A/ y! H4 x2 ]/ Q* ^
;; tile. Otherwise, it sets the error tile and keeps focus on the tile.; p. B* d1 s3 q' ?0 s/ Z
;;: @/ ^7 T: I' W; S9 Z
(defun verify_i (tile value old-value / int valid errmsg)
% J# A5 B! r1 y! n2 L
(setq valid nil)4 I* S3 K6 L* |0 P k& ~6 |# h
(setq errmsg "Value must be an integer.")" H- n. j& ~& [) ?4 ^: D: U
(setq int (atoi value))
2 j" j- V+ J' P+ R
(if (setq intchk (distof value))
6 z0 {! w7 B M$ B
(cond
3 A; [. w, E8 g( i( P2 u; I
((or (= tile "columns") (= tile "rows"))
& L5 T8 p4 x5 c6 a
(if (and (= int intchk)8 e3 T! ^ y* }8 L$ l
(>= int 0)
5 _: e! r" E8 ^
(<= int 32767)
$ n: P/ i' o' \5 g L- g
)
# A* X: ?4 A( S3 g* x1 y8 j9 s
(setq valid T)2 A5 Z9 o: t9 X- a! ^; ^/ V J
(setq errmsg "Value must be an integer between 0 and 32767.")* F/ z' v5 X) S
)
) l) }: I, o H9 K
)
* e& Y6 O/ l% \& Z
((and (or (= tile "u") (= tile "v")))
& d0 I( \3 D# P7 }; n7 x5 a+ e
(if (and (= int intchk)
$ M. Q0 L3 ?1 i' Y6 ?. g' _
(>= int 0)
7 ?6 d4 H$ g/ U7 m9 r. L6 v
(< int 201)! w ?, z: j# c# t' O+ J
)
9 e" K4 a9 \0 O
(setq valid T)
( F( B! u. r0 d: s
(setq errmsg "Value must be an integer between 0 and 200.")
Y+ e4 a: H: v8 f8 e% c
)
0 X' P0 P& t9 k( ~
)1 q* m! e3 E# ]1 s7 s0 A
)2 u+ R9 E1 \+ G, b- r) e% z$ o1 p
)
p1 R8 t, J5 l8 U6 V* V
(if valid
& ^1 D) l' V0 Z# M
(progn" @* y4 O6 X! v ^
(if (or (= errchk 0) (= tile last-tile))$ f- H" D3 ~2 g9 o" I. S) x3 f
(set_tile "error" "")
" a5 ?; N9 l6 a/ U+ f5 G/ J( x' k( u
)
& p/ l* K1 [. A; X4 p
(set_tile tile (itoa int))% n" |* |* r9 T+ Y0 M& A$ F: E9 N
(setq errchk 0)+ k$ P4 n, z; t6 P; u4 I
(setq last-tile tile)
; t% d; K2 P4 y7 _( J* q
int
7 l# L& o% v/ V6 J6 `
)) y& A, P# j8 G, n" m( f7 K
(progn
( [( F- \2 n# [
(mode_tile tile 2) ; Move focus to offending field
: R5 |- H/ n8 h, Z
(mode_tile tile 3) ; Select offending text
: X4 m% b# p( J
(set_tile "error" errmsg)
7 p; h1 A) Q4 ^. r) X
(setq errchk 1)
/ ~2 b/ Y0 h7 n: o
(setq last-tile tile)
/ \/ n9 l2 ^3 M8 p7 w) r* B9 N
old-value p1 F) V/ v- l. l7 G; H% C7 G
); T1 O! e" o% p, M( I
)
~9 f/ K! |! I7 \
) d& U/ G. J J4 t% n4 ]
;;
) k& g$ X$ O; c/ Q: f6 ~6 s. H3 s- X
;; Functions that verify tile values for integers8 G5 @6 |3 G8 @2 p: I& w1 d
;;
# v& a/ O: W% ?, l! n
(defun ver_col (value) F# {3 a+ H1 R: b' p" |7 |/ @, L- h
(setq columns (verify_i "columns" value columns))) o4 z* w; T' k) {1 }0 k( r
)
* g, y8 j' O) z0 s9 m$ Z
(defun ver_row (value)
8 q" g' d, x, e3 W* [5 X) N! M
(setq rows (verify_i "rows" value rows))" S) i/ O% Y. {- g) K/ [
)
: Y3 S# X& G3 Q' Q5 s
(defun ver_u (value)
% P5 x+ c7 O+ [1 G! |) h4 f
(setq u (verify_i "u" value u))1 w* }5 r$ E0 n4 U: t
). U4 t3 [6 q7 V, \* G
(defun ver_v (value)
! y0 c- h% U2 _# t8 `
(setq v (verify_i "v" value v))
7 K0 Y1 o% A z: U% c; `
)4 h6 q, ^" B/ x
;;
6 ~+ w' Q3 y+ W7 c$ X- q7 C2 L4 M
;; Functions that verify tile values for reals
: Y! U2 M r5 C0 D
;; V M% a& E- {0 O5 p4 A
(defun ver_x1 (value)
2 x% [, z: Y! \. D
(if (setq x1 (verify_d "x1_pt" value x1)) (calc))
* ~6 Z% G. f: C0 E
)
" m/ ~/ z+ z" A
(defun ver_y1 (value)$ e7 \% ^9 r$ _2 c
(if (setq y1 (verify_d "y1_pt" value y1)) (calc))
)' W1 h1 F l1 O6 t
(defun ver_z1 (value)* m( }* n6 m, o1 P
(if (setq z1 (verify_d "z1_pt" value z1)) (calc))
- q' e9 N1 K+ K4 r! n* w
)! _( K' t. H$ s. X+ O
(defun ver_x2 (value)! Z7 O7 |6 b& ~/ G4 D
(if (setq x2 (verify_d "x2_pt" value x2)) (calc))
# G' Y- R* A1 A7 U2 F8 j
)0 C& Q$ P' [$ `- W2 r6 {" n; F/ L
(defun ver_y2 (value)7 h2 z1 ^2 H0 }5 Q' l: E
(if (setq y2 (verify_d "y2_pt" value y2)) (calc)): V% g9 p- j% Q1 }
)8 Y) M: K4 U8 K* P" A5 t5 f
(defun ver_z2 (value)$ S( ]; z% }3 @. K" b
(if (setq z2 (verify_d "z2_pt" value z2)) (calc))" ?% o$ s3 F4 m
)
( L+ t6 i3 l6 F; [, t/ i0 g
(defun ver_x3 (value)
* O$ {* [# L2 N' C
(setq x3 (verify_d "x3_pt" value x3))
: A0 W! M1 k7 x: @* [
)* d& N, a! R) S6 Y4 p
(defun ver_y3 (value)
4 O) s& }+ u' J. M9 s
(setq y3 (verify_d "y3_pt" value y3))/ E$ T; a/ x$ V
)
3 C" W) I7 F& H7 W3 j% Y
(defun ver_z3 (value)+ ^! z5 |/ \$ g) m* G
(setq z3 (verify_d "z3_pt" value z3))* C. N0 E" x, W0 N% u
)
9 x: _6 U/ e$ l0 \
(defun ver_x4 (value) N4 a! M! Z2 q/ {
(setq x4 (verify_d "x4_pt" value x4)) D9 N$ `& W$ h' Y, l
)
2 n; K3 q) d, o: S1 r8 D4 |
(defun ver_y4 (value)
0 c1 U: |4 o9 E% h" Y3 \. E
(setq y4 (verify_d "y4_pt" value y4))8 A/ A7 i J# t* i4 k$ s* y( P
)
" h5 x, @! t1 c8 {% D$ ], d" G$ v7 f
(defun ver_4 (value)' J2 ?1 H: j: O- M' j
(setq z4 (verify_d "z4_pt" value z4))& T8 m- ^7 U: s7 |+ B2 D' L
)
5 h0 I2 O' X) E8 B" m. ?1 E
(defun ver_xscl (value)
+ n4 k5 n. Z$ _+ N4 T. ~' l
(setq xscale (verify_d "xscale" value xscale))
+ A; L* k: g) k
)! Y) w6 p# m, A8 ]/ U V9 [7 v, u
(defun ver_yscl (value)
6 ?8 e6 n! r( ?2 t' S! N
(setq yscale (verify_d "yscale" value yscale))
; M1 f/ e7 W. z1 X0 C6 a
)5 W( r# k0 `( q2 l# ?( u
(defun ver_zscl (value)
0 t7 V3 @5 {; T% |; S# U
(setq zscale (verify_d "zscale" value zscale))
% ]7 y$ L& O. _: V& d# r% R) C
)
" d( y: M$ C# K" Y6 d$ ?
(defun ver_colsp (value)
8 }0 h( B8 ?( N- N& K/ z T; G
(setq col-sp (verify_d "col_sp" value col-sp))) M7 H( {. E0 `5 I
)
- R6 d( l* K# S. G8 ?
(defun ver_rowsp (value)" f, r6 S. W# c
(setq row-sp (verify_d "row_sp" value row-sp))0 R) {. S: E; @0 N
)$ g- U; Q) k+ E- i. F+ C8 _
(defun xclip ()
3 }1 i: w; o/ q
(setq xclipmode t)5 o/ k% z) I$ R( e
(if (= xcliponoff "1")
& I0 B$ \# y* u' b o8 |* ~, @
(command "_.xclip" (cdr(assoc -1 elist)) "" "_on")
, G$ p3 U' w) H _; j1 S, [: O
(command "_.xclip" (cdr(assoc -1 elist)) "" "_off")
Y: I; N. Y. m3 Y2 f
)2 Q3 }( d3 Y9 Q+ x" ?
)
- h& ~ v8 e( l# l5 n
(defun ver_rad (value)
7 g( k; k4 t% U: T2 g1 A; A" z
(if (setq radius (verify_d "radius" value radius))+ f. ~+ O4 R, b
(calc)0 N0 J( l, v0 i1 n
)
; L5 d1 K; {2 E# D1 _ s! T7 @
)
6 |+ x# X3 u/ m* }
(defun ver_majrad (value)8 Q) s! b L5 G' J
(if (setq majrad (verify_d "majrad" value majrad)): U% s2 Q: p& ?% A: [
(ell_calc_newval "majrad")
4 w# s. v( \) @$ f& Q% P9 F# B3 Z
)
9 Q3 r8 ?7 ~+ I7 g5 E" G
)
7 o3 v8 w# S3 V7 \% A3 Z
(defun ver_minrad (value) R9 z- ]' ?- d. z) }- C1 f; u* g
(if (setq minrad (verify_d "minrad" value minrad))
| `6 {9 b3 L; `( r% q
(ell_calc_newval "minrad")
4 c% G [& m% Q
)
) C. a/ X- x; p) A4 l- _6 ^
), E! b" J4 N6 h
(defun ver_hght (value)0 r$ }5 k% B( h
(setq hght (verify_d "hght" value hght))9 a! D! _ L$ G( ~3 t
)
5 F4 ]7 {% Q# t, S
(defun ver_wid (value)3 i. W0 {$ ?$ I9 f( f1 k, N5 U7 C v
(setq wid (verify_d "wid" value wid))
I6 B' R1 J* g6 {0 g
)
" h# _' D' R0 C0 B3 y
(defun ver_xline_x1 (value / temp)
5 q l6 I% v5 w9 o9 ?2 g2 u7 P
(setq temp xline_x1), n- l" b4 F; _ M, J# m5 p2 R
(setq xline_x1 (verify_xline "xline_x1" value xline_x1))1 P$ t; J0 }$ d* J" i
(if (/= temp xline_x1)
1 @7 ^$ s7 o: P9 N2 @7 ?
(progn (modify_xline 0) (set_tile_dirv) ) Z. Y i: P `0 b# c
)& U1 [ M! G: t) E( c2 ^# t
); D7 q. h9 Y" @& n+ K* J6 |/ q. x/ K
(defun ver_xline_y1 (value / temp)" j- o5 X3 b8 Q8 A& w) x0 |" a
(setq temp xline_y1)$ N% p/ Y$ [5 u" r* {) x5 x" F
(setq xline_y1 (verify_xline "xline_y1" value xline_y1))5 H7 {- `5 U' J% g9 S
(if (/= temp xline_y1)4 ?5 H( N1 H: V1 ^. v
(progn (modify_xline 0) (set_tile_dirv) )
; Y+ i/ s l6 Y7 F* |$ P+ d
)
# v U! m7 w9 n d/ F5 q
)
0 V- k# y9 C' q
(defun ver_xline_z1 (value / temp), \% d1 o D7 o
(setq temp xline_z1)
# v' _: |% Z! |6 {! ]
(setq xline_z1 (verify_xline "xline_z1" value xline_z1))" r2 [- {$ f/ o5 h4 d: A
(if (/= temp xline_z1)
C% {8 L0 M' O
(progn (modify_xline 0) (set_tile_dirv) )
- j% v# g4 n d0 n9 L
)9 n4 G+ m$ x! h
)
" ~5 [0 [. N' [9 a
(defun ver_xline_x2 (value / temp)- t. ~$ O! g9 R3 Y
(setq temp xline_x2)9 o. b4 o9 ^4 z& g
(setq xline_x2 (verify_xline "xline_x2" value xline_x2))9 T/ d. [! k+ y: L# U& z
(if (/= temp xline_x2)
' i% T& z( s- s+ e2 Z
(progn (modify_xline 0) (set_tile_dirv))* O/ W! w* u: i
) l2 S% ]' x% h9 r; x9 p/ x, v
)2 \# ~8 I3 M- {- S8 \& C& t7 L7 E# }& q! Y
(defun ver_xline_y2 (value / temp)0 u/ _/ o. i; ]" N5 w0 O$ `, l; L
(setq temp xline_y2)3 A% _. h, Y' I
(setq xline_y2 (verify_xline "xline_y2" value xline_y2))# j* y. s a% M; a7 `% l Y
(if (/= temp xline_y2)
0 e* G3 i8 K( m
(progn (modify_xline 0) (set_tile_dirv) )
8 v+ ^% e8 A. x, x( J
)7 S& J+ G% B+ A' V1 ]; }5 M
). ` V. ~7 K- p& V0 p
(defun ver_xline_z2 (value / temp)- M' c- A* `9 R N$ H
(setq temp xline_z2)
0 Z w' q* t; e% `# W: H
(setq xline_z2 (verify_xline "xline_z2" value xline_z2))0 ~8 t# Q# t& k! `4 }6 V: t1 F
(if (/= temp xline_z2)# u9 z+ Q- F" ~2 Y% l
(progn (modify_xline 0) (set_tile_dirv) ): W# l1 P6 i+ D
)
! p I' l. V' a. ^
), @6 {6 Z) O5 O/ U( y
;;% t9 s2 c" A2 k& S3 v O* m) J
;; Functions that verify tile values for angles
, f6 f% b( }+ @" z5 x
;;
) n) R2 T' ^; ]
(defun ver_ang1 (value)
8 Q- Q( F; j# D1 ~- v: g
(if (setq st_ang (verify_a "st_ang" value st_ang))# {/ F3 ~3 W$ a* x
(calc), [" C ~% b9 H
) r6 Z& W! O' G: P. o
)2 {. [$ N6 r' K5 K
(defun ver_ang2 (value)
: _- T1 [; g p S2 _3 Q0 j# n
(if (setq end_ang (verify_a "end_ang" value end_ang)); e0 L' O9 ?% _5 W0 e
(calc)3 }( E ?% D; B( Y
)
& g( K) A. z4 l. i0 r j6 e7 `2 N
)
7 Q0 Y! B) v8 l& M; K7 j J. u" O
;;7 n0 c3 \$ L4 R
;; Verify tile value for ellipse end angle. Handled slightly
( H* o. C5 ^ e2 t( i
;; differently than the other angles.
5 _1 K1 R! _' ^; u
;;
3 p' s9 }: e2 z
(defun ver_eang (value), U1 ^8 V+ ]1 S; e" s" m; j+ t
(setq end_eang (verify_ae "end_eang" value end_eang))
% Z8 }8 A' M }% |3 Q6 P" u; G
)2 @5 g) `* N* i: y5 \
(defun ver_rot (value)* M* A' b1 u0 l: G4 g1 h
(setq rot (verify_a "rot" value rot))
, R, o0 `: S6 [9 H' n4 w( B
)
. {3 M. }) D6 C; S2 F7 w b( |
(defun ver_obl (value)
3 R" P# M! `4 ^- S) i6 h5 P) h- T
(setq obl (verify_a "obl" value obl))
. \8 g) V' x# p K1 R: u8 D
), v4 Y+ G& ]4 j) O( w/ H- T
;;# k, h6 v8 [7 m- K/ v' v
;; Function that verifies attribute tag field for null string,
: l& K; j6 E8 X% s [7 y
;; or a string that contains one or more spaces. Tile value
" E9 h9 ?) Q! F9 m. q4 V8 s2 C
;; is also converted to upper-case as well.$ W, g0 `; M+ b3 X
;;
/ q4 E# @" s* s# p1 @* R" u4 M3 d) R
;;
# `; j8 [( v3 L3 S0 i- _
(defun ver_tag ( / tval)8 {2 d% K) n2 \1 \; T9 y* G
(setq tagval (get_tile "tag")) q' t5 y# N6 R) d3 H* m+ ^
(set_tile "error" "")
( O0 S% g3 X% B) V
(cond' g1 B( \' h! R, p
( (or (eq "" (setq tval (strcase (ai_strtrim tagval))))7 m, w2 n+ A! `8 z0 y6 d
(wcmatch tval "* *"))
) ~: V& [& ]3 D G- d" `9 \' C
(set_tile "error" "Invalid attribute tag.")
% O" q/ j |' h8 Q" o
(mode_tile "tag" 2)
( E. P0 y9 F( i) j( n1 Z
(mode_tile "tag" 3))
) y& F% C9 `; e- d) p
(t (set_tile "error" ""), S& a7 k; R9 b7 X% P6 v
(set_tile "tag" tval)4 G' N* r: s: }2 h0 _$ l
(setq attag tval)))
1 i4 g$ i; o% a# f3 m
)
5 E# ?% B& k# J- N4 B+ g
;;
; ]/ m8 i E2 v/ U, U% O( ?. W
;; Calculation functions
5 J3 q3 A4 y' i5 t3 j
;;9 d; N, \: H3 i5 L8 j3 A; d: `/ Q
(defun calc ()
: {- e- B5 D& h4 T2 q- p
(if (= etype "LINE") (line_calc))! p1 P; ]# y+ Q4 \7 A4 [2 \% U
(if (= etype "ARC") (arc_calc))2 k- K& s1 V1 \$ F
(if (= etype "CIRCLE") (cir_calc))
# C0 m: }- m' Y' ?0 k
)0 h2 D# J9 C0 P3 V+ K
;;
7 C+ n* D: J* a5 o, `- l3 I
;; Calculation functions for lines, arcs, and circles
& b! ~/ B: Q+ Y+ Q: F! Q; G$ `
;;
- B! X8 u' ]& ]: Y8 P, R7 Q x8 {
(defun line_calc ()8 z# n! N( ^# h! w( r' A) d
(setq stpt (list x1 y1 z1)): ?* f; x- \! u; y& @: o: G
(setq endpt (list x2 y2 z2))" A1 _5 f% c2 t; C
(set_tile "delta_x" (rtos (- x2 x1)))1 h# B) X/ `7 @$ J
(set_tile "delta_y" (rtos (- y2 y1)))0 Y( S1 W9 ?/ B* l X5 R
(set_tile "delta_z" (rtos (- z2 z1)))
, X7 |5 Z4 g$ {# G* d
(set_tile "l_length" (rtos (distance stpt endpt))), x6 w3 ^* j' u& l' C
(set_tile "l_angle" (angtos (angle stpt endpt)))1 s& A3 K% y$ a! _% Y% A/ |
): n# Y6 k/ m0 r. d" I# f9 v
" W& @6 t* e u6 ^4 t
(defun cir_calc ( / area units)% N; `$ ]% d6 O6 f: c" u0 ~
(setq radtest radius)3 b9 R. x2 v. _) `
(set_tile "Dia" (rtos (* 2 radius)))
) K2 [9 }5 d, e) A+ O+ [
(set_tile "Circum" (rtos (* 2 pi radius)))! X( d [+ H; n
(setq area (* pi (* radius radius)))
z, V/ s1 ]) V- P3 m
(setq units (getvar "LUNITS"))' I" T, z1 R6 {5 X* e7 F& B$ W
(if (or (= units 3) (= units 4))
; m) b$ c6 k0 p0 X) A; E
(progn
F1 ?; J+ e* l1 A% d
(setq area (/ area 144.0))
/ U( ^* H) z, m
(set_tile "Area" (strcat (rtos area 2) " square ft"))
`, A1 T& y# [# `- E: z
)3 H' B1 ~9 _. ~; [" g3 r
(set_tile "Area" (rtos area))
% K( ~4 N. \# {( E: n
)( V) j( V4 z4 D" M2 ?" k. }2 Z
)
9 D+ t2 u$ M4 ^9 l$ Q& W* }7 k5 X$ j' N
: Y$ l8 U5 T7 E. G* Y2 \+ m
(defun arc_calc ()9 I4 k* G! e |; j3 \
(setq totang (- end_ang st_ang))
/ f' d2 B, ^! H J
(while (< totang 0)" |/ D0 G" o; g V6 m- |
(setq totang (+ totang (* 2 pi)))
1 [$ w J; e& P+ V: u' S
)
9 l) D$ [1 v7 E5 A7 J- M
(while (> totang (* 2 pi))
5 h: F9 W* T7 Y+ M
(setq totang (- totang (* 2 pi)))
7 o, F6 Q7 z% j$ L2 `
)" i5 C, x) ~' J4 Q$ i
(set_tile "tot_angle" (angtos totang))
0 q. X8 [( F1 ]& O _
(setq arclen (* (* 2 pi radius) (/ totang (* 2 pi))))
- O3 _( f2 q2 K
(set_tile "arclen" (rtos arclen))
7 i* m( J; M' [+ ~- ^9 n9 {$ V
)0 J }# X2 V/ f0 G* P7 n ?
;;4 O; Y4 {$ e8 ?! r9 M/ z
;; Calculate the major radius, minor radius, major axis direction.
# e( a8 a9 Y% [
;; Get radius ratio. Convert Start, end parameters to start and end, [& U$ F5 a j- C
;; angles. Save Major Radius value in "old_majrad" in case the user; g6 @2 P+ H2 `
;; chooses to input a new Major Radius value later. It's needed to+ O# h& ]; j# t4 \
;; calculate a new Major Axis Vector value.
: D, q9 f5 {9 f& @& z
;;3 j( i9 @8 Q- k1 i
(defun ell_calc ()
# |" i7 j) C5 q) Z
;; Get major radius from the major axis vector.
3 X7 w0 ~" r! n1 k7 F
(setq majaxis (cdr (assoc 11 elist)))' j" L" o; B) [' {* o" h
(setq xx (car majaxis))
1 h; D. V3 x: Q" d5 ]
(setq yy (cadr majaxis))1 q' n+ V" T9 r5 {9 T' t, @- R
(setq zz (caddr majaxis))
/ o# Z4 p1 s: _$ |) o( S
(setq majrad (sqrt (+ (* xx xx) (* yy yy) (* zz zz) )))
. g8 O; J% H+ e/ Z
(set_tile "majrad" (ai_rtos majrad))4 @/ y& s2 S' f7 V" Z) G
(setq old_majrad majrad)5 k) ~8 u' v _
;; Get radius ratio4 l3 Q0 W. v, ?0 R! N+ o
(setq rrat (cdr (assoc 40 elist)))
( L1 L Y+ T3 b3 t6 w @
(set_tile "rratio" (rtos rrat))- } @3 |4 g# a, T, {5 M4 S
;; Calculate minor radius" w r8 f" o" ~7 j
(setq minrad (* majrad rrat))
4 B. L- E$ ~+ u# e6 O& f
(set_tile "minrad" (ai_rtos minrad))
* G- ^3 l2 |7 b9 m: A# S
;; display major axis vector
+ |. l2 D @3 }* m" w0 T# z
(set_tile "Majraddirx" (rtos xx))" L' e: i) p3 P" S: q) `
(set_tile "Majraddiry" (rtos yy))4 _8 o" w" p$ B& c/ o0 Y
(set_tile "Majraddirz" (rtos zz)); t; `7 B5 `6 g$ s8 }( T
, g0 c4 I, m, J, t7 j9 S& p# P
;; Convert start parm to start angle) p3 m! m6 [( x4 U o) Z; Q- Q
(setq stparm (cdr (assoc 41 elist)))1 d4 a; G/ s7 t+ o7 M5 Y1 g
(setq vecx (cos stparm))
8 p; h& \" X5 d2 n( a8 h
(setq vecy (sin stparm))
! n* L6 Y8 w1 i) t' } T: \/ n
(setq st_ang (atan (* rrat vecy) vecx))2 m Y- f; @ C: N
(setq tempst_ang (ai_angtos st_ang))
" i8 i( c; z- S* A% u. R
(set_tile "st_ang" tempst_ang)2 \7 I. d$ g2 v4 i, j( r, _5 u: ?4 h
;; Convert end parm to end angle. If end angle evaluates to 02 I0 z5 D! n! n7 k) |0 x S+ p
;; degrees then display it as 360 degrees.
* ]& O9 U" R& ^+ b+ r. R/ }
(setq endparm (cdr (assoc 42 elist)))6 Z* H( x+ V2 C6 g9 B \( g1 n
(setq evecx (cos endparm))% w+ `0 w9 W) |' H8 u( }0 d5 E
(setq evecy (sin endparm))- F) G* I! T m0 ]) q: o
(setq end_eang (atan (* rrat evecy) evecx))- }3 A3 h7 [& K8 I+ J
(setq tempend_eang (ai_angtos end_eang)), Z/ q3 D E- o4 w6 o
(if (= tempend_eang "0")- ^1 x" q+ R( z' c2 x7 z
(set_tile "end_eang" "360")
$ b3 Q7 N4 A0 S: W1 O+ A0 Y+ Y e& y
(set_tile "end_eang" tempend_eang): V$ _$ |& k. H6 k% y6 _
)
% C8 H3 M: O* C# i* t4 h
;; Get area of the ellipse.+ r) ]+ E S2 F$ ^' q! u" G
(ell_calc_area)! Y4 b# y' j$ F" O: G7 _4 u6 {
)
0 C0 [ [5 v# r+ ^* s
;; Calculate area of ellipse. If it is an arc then
% ^' f N* a1 u4 |# w# Y
;; grey out area display.
. G- |6 y" _# z1 H( [) t
;;
6 e! {( |. v$ y$ P* k
(defun ell_calc_area ( / area units)
. K) @ v) Q# ]; r. Q( W
(if (and (= tempst_ang "0") (= tempend_eang "0"))
( C3 P( w* ^" P
(progn
$ e, J. g: y+ j: _& i
(setq area (* pi majrad minrad))2 L" x, R* N& n) Q8 j- q4 d4 z
(setq units (getvar "LUNITS"))
9 {$ C0 J: a4 D. m9 Y0 S! O3 {4 `, A
(if (or (= units 3) (= units 4))+ Y9 o: ?9 D4 g
(progn
, y% E3 s% |3 e6 x8 d
(setq area (/ area 144.0))
. {- u$ ^& _2 F& i( L
(set_tile "Area" (strcat (rtos area 2)" square ft"))
9 p7 _# ]) |; ^3 D( C6 W# [
)7 t' c3 a& ~4 O6 [. a8 } ^4 ^5 {
(set_tile "Area" (rtos area))
. C6 O; s# B# r3 ^2 ?1 b2 O+ R
)
8 t! o$ }" g3 w4 ~- \9 Y7 c$ J6 ?: c
)
R" Z- `% D$ Z: w0 Q
(mode_tile "Area_text" 1)9 P$ [& a, p& |5 F" {1 ]* K
)0 r. x9 f: W( Y( x6 Y) m& u( _
): }7 t+ q6 {+ ?- B( \
;;: ]% R' X! b1 g' O
;; Calculate new values for ELLIPSE, x9 ^- V+ {; Z; C4 ~5 o
;; Minor Radius, Area
( a3 D0 ^/ Z$ P: Y
;;
! }# @$ C ?& j
(defun ell_calc_newval (ell_tile); O6 Q# E3 S2 g- O u: V+ T2 K
(if (= ell_tile "majrad")
. w( i& ]9 y( }* Z) ~
(progn- T) O K9 [0 W
(setq rrat (/ minrad majrad))
) ^6 H' K" H6 i2 J. L8 F) e
(set_tile "rratio" (rtos rrat))
- N! E3 ?5 i0 `5 D" l7 c! @
(ell_calc_area)
3 p C& i- Z3 Z' W
)5 h' Z8 I: h% ~6 h! t; ?+ v; s( Z
); t0 p1 N, e! O4 k
(if (= ell_tile "minrad")" {8 ?) R0 N* J9 [( W
(progn4 P9 _& k6 k8 Y% b' H- f% X4 [
(setq rrat (/ minrad majrad))
# O5 G5 D! R0 r' S+ _8 P0 Y
(set_tile "rratio" (rtos rrat))1 I& o" R2 w" D( `( ^3 b: \
(ell_calc_area)& A3 @) }/ O7 c
)
7 p' C: D* p, z5 ]3 J' a. C
)
; V+ T# e* V* b' ?: ]4 A) V8 a
)# H+ {4 o0 P9 z( ~6 w8 i7 T
* B# ^! R2 l! k y
(defun set_dimen_props (/ loop a stl txstyname)
7 w! I$ [* J' @0 \ [/ l
- G y5 c3 a0 N$ ` @# E
(setq stname (cdr (assoc 3 elist)) ; get style name; j& o0 {: M/ K# a, B/ m- ?0 r
stl (tblnext "DIMSTYLE" T)7 E5 j* {2 d6 L3 |+ h
stlist nil)
' n3 o; a9 W k
;; Get all style names and list them in alphabetical order
U7 M1 H) @- ^% N; L6 D' k. G
(while stl
! ^* R0 M- ^& p9 U3 t, y5 d
(setq sname (cdr (assoc 2 stl)))
9 w8 Q) r: u. b" {1 |9 n* j! N
(if (/= (logand 16 (cdr (assoc 70 stl))) 16)+ F- X( E* l3 G2 P2 w
(setq stlist (cons sname stlist)))
- [$ Y9 C$ \! L) h# i/ {: e
(setq stl (tblnext "DIMSTYLE"))). G; i n; j% V8 Y: z5 T
- O6 i6 D4 N- J* \
(setq len (length stlist)( \/ D: {/ _7 s1 G+ I! D
loop 0
$ C% @8 }! M, f" u+ l$ X, N e
dimsty stname
. ?! a' {3 e$ K0 d
)
2 H' R6 e: a* x6 T1 ^" p/ ~
3 {6 e) n, }+ @) ^9 w2 }5 b
;; alphabetize style list, depending on maxsort2 t# Y( I9 |9 @
(if (>= (getvar "maxsort") len)
) m! c0 l) i% G' o& m* Q
(setq stlist (acad_strlsort stlist))
" k" e& f; w+ U/ }8 M
(setq stlist (reverse stlist)))
2 _1 ^( t" D4 N: R6 T
) U( `8 e* ]7 I" R e1 ?; r: b
; *UNNAMED style (dimsty = nil at this point) is replaced with9 Q5 v7 D, b- r; a
; the current style. After R13, we require dimensiosn to have a
5 c4 ~9 s: F' m& z
; dimstyle, so we plug any holes where we find them.
/ r, [! O/ e$ p* T
(if (null dimsty)
! W; Y* X$ m! r, ?7 J1 U
(setq dimsty (getvar "dimstyle"))' v/ m1 V x! e8 ^) L" C! B. p3 k, Q
)
$ K7 z( p0 r9 G( Q. q7 W: V, {. ?
; Show the styles in combo box3 {4 X; F$ ]! R( F* J6 T( u! ^0 K
(start_list "mod_style" 2)0 p6 d; Z6 y* z, E# M" X7 z
(while (< loop len)
u9 t8 X7 @ F; o9 R: r0 F! ]
(add_list (nth loop stlist))
; l$ a ?; }, E7 B0 x# C
(setq loop (1+ loop))
0 q% [! g+ v7 v7 t% y0 Z
)
3 ^! z" G X1 l4 f# n) F5 \
% N2 k$ i$ T B# j
(end_list)2 w6 T) U: G$ i; ]* y
5 K* D+ h8 i v( K, O
; Hilight the style name of the selected entity
5 g2 [ U% `$ v+ c: ?
(while (and (< 0 loop) (/= dimsty (nth loop stlist)))
" B& I1 b( M: n0 R b5 o8 W7 A; M
(setq loop (1- loop))& W. d& m& b9 Z. B% e! u1 A. S! x6 h/ Z. h
)1 B2 q0 ^; H) \& T: }9 }* k6 i
(set_tile "mod_style" (itoa loop))
" b# z% Q6 r! k5 @8 @
) A2 N) m9 x" C; ~, L4 O
; The following is the list dimvars. It must be sorted in the same6 y" i3 \% u7 n% t, Z. s y
; order as the resfub returned from DDIM (ADS module).# ]3 K4 F+ p' K% b( e2 N
8 G5 t( c; d* A
(setq dimtbl (list "DIMSTYLE" "Style name" "Standard flag values"0 L3 K) ]4 p6 W% U
"dimpost" "dimapost" "dimblk" "dimblk1" "dimblk2"( }) M( t. p6 m W: _! O
"dimscale" "dimasz" "dimexo" "dimdli" "dimexe"
/ V: E( U( {8 A3 \( }2 c
"dimrnd" "dimdle" "dimtp" "dimtm" "dimtxt"
$ D8 b' k* S( J _! h
"dimcen" "dimtsz" "dimaltf" "dimlfac" "dimtvp") ~0 n, F' g: I, f6 t
"dimtfac" "dimgap" "dimtol" "dimlim" "dimtih"+ E: ?. L, ?2 i
"dimtoh" "dimse1" "dimse2" "dimtad" "dimzin"% ^; o' d3 \: ?5 S* O$ s( X0 m
"dimalt" "dimaltd" "dimtofl" "dimsah" "dimtix"
[4 j: F( g( E. }! p. w
"dimsoxd" "dimclrd" "dimclre" "dimclrt" "dimunit"2 j5 x% o4 B0 f5 Y5 A
"dimdec" "dimtdec" "dimaltu" "dimalttd"
+ L0 B9 k1 R1 r! X! O
"dimaunit" "dimjust" "dimsd1" "dimsd2" "dimtolj"
7 h5 U0 A/ [% k' X7 P3 v0 k
"dimtzin" "dimaltz" "dimalttz" "dimfit" "dimupt"5 {8 T- a6 Z5 ?: p
"dimtxsty"( Q+ c; i% \( t& [) B7 O
))
^- I2 f3 J" l7 r
(progn
9 F* J1 D+ j* q
(setq sv_dvlist (ddimen_getostate dimsty)
5 Y' ^; g, m9 ]& l% v
txstyname (assoc 340 sv_dvlist)
4 ?; ]: p2 k* @* K0 M9 i
sv_dvlist (subst (cons 340 (tblobjname "STYLE" (cdr txstyname)))( o1 J6 m1 `) v( @& l
txstyname sv_dvlist)
9 R5 r* x3 T2 \+ ~# h
dimlist sv_dvlist
1 Q+ h5 W- F6 d; e7 Y, A
)
7 ^. z# }" |' p7 x
)( v4 w m$ U& q, E, j1 r1 ~2 }8 e
(if (= dimtype "DDLEADER")
" c1 a$ T' x# {# I) n
(mode_tile "mod_format" 1)" W" r K( W1 w% K* E0 `. C4 x
)
# N9 E+ J7 r/ W' e' q
(action_tile "mod_style" "(setq dimsty (ddimen_style))")4 `+ {( g$ a+ h* a' }
(action_tile "mod_text" "(done_dialog 4)")1 @1 s: q5 e/ K# k9 ~# @/ s& b
(action_tile "mod_geom" "(setq dimlist (ddimen_dlg dimtype 11 dimsty dimlist))")
/ O3 u6 n$ t: s0 C8 Y5 a$ z# W
(action_tile "mod_format" "(setq dimlist (ddimen_dlg dimtype 12 dimsty dimlist))")
; a: X( H0 L |$ {% x8 w' u
(action_tile "mod_annot" "(setq dimlist (ddimen_dlg dimtype 13 dimsty dimlist))")
, L. a* R# ~% Z3 ^4 S- i
(action_tile "accept" "(done_dialog 1)")
" p N9 G/ C% o% B% q4 C# Z6 @
)4 L: G2 p* E- m7 v" j+ F0 @
;; |5 e" F5 B8 U% N; V( f6 N
;; Get dimvars that have been restored." O2 d6 o% v& d+ K4 Q) t( C) N9 e
;;
+ ^' z {7 H: N+ F" H% K+ q" b
(defun ddimen_getvars (/ elm dvlist dv i)" @7 }# D9 @- u9 ~
(setq i 38 i- v; ^" E( d
dvlist (list (cons 0 "DIMSTYLE")
+ {4 G+ }4 \+ r# v, l0 k
(cons 2 (getvar "dimstyle")) (cons 70 0))1 @ E% ~4 w7 ]5 \& ~2 K8 l" `
)# c# _5 V2 @/ Z3 {; j3 g( j
(while (setq dv (nth i dimtbl))) P( n5 c6 s& _8 I6 C( `% u
(setq elm (getvar dv)- W0 S; s" w" K% Z" a6 T" I
dvlist (append dvlist (list (cons dv elm)))
" Z$ y1 V. p0 C! W' L4 J
i (1+ i)! w% V% Y; C# g% H. d2 ]
)
: j+ V$ ^; n2 F" @3 O
)2 U" p* d2 q9 I8 \, B# M) g4 q
dvlist9 K( Z" ?* z) ^( m ]
)
2 D% M5 ^ b! w4 F
; V9 I D& I& w4 G; v
;;" L/ q' N" @2 _) ^; ?6 ~' C
;; Get the original states of dimvars. This is for DIMENSION entities.- a b6 `% e4 D3 C+ y+ Q" @* [
;;, q/ r8 b9 a! Q) G
(defun ddimen_getostate (dimsty / dvlist elm i dvvars)8 G. Q. ~2 e9 i; t! `
(setq dvlist (tblnext "dimstyle" T) ; Get a skelton list
/ p/ s9 o- A8 m6 U( N
dvvars (ddimen_getvars) ; Get dimvars for that entity
( l9 P J/ c/ m1 Y, V$ {- E
i 1. B$ v2 m3 ]7 n( G7 C( h( G' L& q9 r
)
& Q/ O: b& Z- x4 U5 }5 B! e
2 e3 n2 s6 u; h5 Q# z
; Create a list that contains values of the selected entity.8 I- I" m7 S6 \ f4 F. Q5 c$ R2 D
2 r$ s$ _' |! r$ B) V7 W5 f
(while (setq elm (nth i dvlist))
/ C- d- M1 J. N) f0 J9 Z4 r2 e
(setq dvlist (subst (cons (car elm) (cdr (nth i dvvars))) elm dvlist)
V$ t5 X: x8 C @: a
i (1+ i)0 W" x3 ~$ m" I
)
3 U' }2 B- @( V
)
3 i& c' q( K* a/ u0 J0 b6 `8 e
dvlist0 n* J/ G4 A, o6 K T7 m+ h7 J
)
8 J, g2 c7 |: ?" N3 n; G) }
" _$ f& N8 c& \, r6 s
;;
& R! P% l/ @$ g7 c- I$ X; m2 b! u4 `, F
;; Restores dimvars of the selected enity.! R1 d* s3 L0 t' i6 ]
;;
) @# B/ B! x3 v. z' ^$ r& ]1 O
(defun ddimen_dimsty_restore(/ dimtbl dimsvcurset en)
0 L8 M" o3 y* V6 {$ K7 T
(setq dimtbl (list "DIMSTYLE" "Style name" "Standard flag values" w5 |- a7 ~% [1 V1 i' D0 J. u
"dimpost" "dimapost" "dimblk" "dimblk1" "dimblk2"5 O1 u9 j- O2 r; V. ]
"dimscale" "dimasz" "dimexo" "dimdli" "dimexe"
/ P2 p* t) z! {; b
"dimrnd" "dimdle" "dimtp" "dimtm" "dimtxt"+ n/ d7 Z( V _8 E% b
"dimcen" "dimtsz" "dimaltf" "dimlfac" "dimtvp"
1 B& ?5 ^# K! e. v
"dimtfac" "dimgap" "dimtol" "dimlim" "dimtih"
1 [+ z5 I$ Z7 |+ A
"dimtoh" "dimse1" "dimse2" "dimtad" "dimzin"
! u6 q0 E5 Z# u" n
"dimalt" "dimaltd" "dimtofl" "dimsah" "dimtix"0 C, J: K7 |5 e& ^3 A! n6 \" M3 m
"dimsoxd" "dimclrd" "dimclre" "dimclrt" "dimunit"
( W' l: Z' e- }
"dimdec" "dimtdec" "dimaltu" "dimalttd"& {% K7 d+ x3 ~" R3 ~% C
"dimaunit" "dimjust" "dimsd1" "dimsd2" "dimtolj"8 j" ]0 l P1 t2 H. c3 p, u
"dimtzin" "dimaltz" "dimalttz" "dimfit" "dimupt"
) [2 \% Z* a: }$ O
"dimtxsty"
0 c4 I. Y0 Q' m& v. K8 u
))
" a6 i5 c2 c5 V H- s9 v- m( d
(setq dimsvcurset (ddimen_getvars)) ; Save current variable settings$ U& E! R: ~4 `7 \3 P. k
(progn
. q: G6 l! ]5 N1 s; _( g, p6 w
(setq en (cdr (assoc -1 elist)))) d$ A' x6 x+ A7 j
(command "_.dimstyle" "" "" en)* I' @; S. R* P0 S) ?% L5 o4 N
): u- T* Y* G4 D1 a% ]
dimsvcurset
- n8 ]) Z' c1 {% o: K% K
)2 u6 B6 U7 t: ]& o- R* k/ [4 {
;;2 f5 S: e, u [5 T- c& Y) N4 K$ f
;; Modify Leader+ f) W: k+ H0 X; f& p: w2 d/ E0 ^
;;
/ ^2 I% l- d4 d0 c9 g
(defun ddleader (/ dtypebit blkname bename sublist a stname n dimtbl+ l5 v/ V+ P2 l1 d5 A- a
dimsty dimlist dimtext svtext dimovr sv_dvlist stlist
2 ^! ?; p/ L8 w4 K& A. ` e+ U
dimtype dimsvcurset)5 p( }" A+ C7 b1 V5 N1 G
(setq dimtype "DDLEADER"
' d. q; E5 `+ v; k
dimsvcurset (ddimen_dimsty_restore)
% n; k7 M k* i) P
). C, x" R5 L3 e! k4 {0 ~; l& d3 g+ p
(if (not (new_dialog "ddleader" dcl_id)) (exit))
, M: O$ @/ z3 O% b1 e* Y( W: X
;; Set initial tile values& u/ [3 |9 H/ z2 k
(set_tile_props) [+ o) [* a2 W& A
(set_dimen_props)7 K6 c2 T/ o' B6 i4 t
(set_tile_handle)- L, S0 o6 [$ c- ]: e
;; Define action for tiles
9 @( o( ?$ i. i
(set_action_tiles)' I! O: b% B8 J! U9 F: C9 w; W3 a
(mode_tile "mod_text" 1)
/ A% S/ k! g$ G' g! x% U
- C2 ]% j8 o7 ^, y: j' ?/ Y) z1 j
(action_tile "mod_style" "(setq dimsty (ddimen_style))")
0 ]( \9 ^) q' ]. ?: Y& o
(action_tile "accept" "(setq leadtype (get_tile \"s-s\"))(setq arrow (get_tile \"arrow\"))(done_dialog 1)")3 W" X: Q4 J7 [# k/ n/ [7 [" U
;; Get ARROW and TYPE.* A6 z/ d7 a3 B- e! `
(if (= 1 (logand (cdr (assoc '71 elist)))) (set_tile "arrow" "1")); j8 d" [7 ^3 P' I1 m0 z
(if (= 1 (logand (cdr (assoc '72 elist))))
* x% U; W9 k( W1 P+ Y% E ~$ x
(set_tile "s-s" "spline") o: _) x' n' o4 g7 ~2 `5 U
(set_tile "s-s" "straight")
: M1 B+ p, M/ h$ V
)
, k& _, [( M. E- ?- ^. r
;; Start the dialogue.' ~1 ^" G2 k1 Y4 a7 T
(setq dialog-state (start_dialog))
: A5 e; Y1 J5 ~8 D; J9 G. ^
(if (= dialog-state 1). p9 u! Z0 M' t7 C w
(progn
# [/ @/ v$ Z3 ]' ~% a6 ]$ q: R
;; update the style
3 X, s j; B8 r5 w2 Z
(if (/= dimsty stname). r9 ^, `3 z2 z- v4 J) C. v
(progn
% N$ F/ R: L. F/ f/ S' m5 h
; Be sure to add (3 . dimstylename) element. R12 *UNNAMED case
+ p- E7 C* K5 v6 U3 a1 n2 |+ E$ `
; doesn't have it." @. h; r- y O$ `1 p; S* U
(if (null (assoc 3 elist))' f. \6 Y+ B1 b; s
(setq elist (append elist (list (cons 3 dimsty))))
) g. d. O+ V) \* ^* Y: [1 t* j
; else just replace it.
5 x8 r; @/ S2 m0 y1 a3 Q
(setq elist (subst (cons 3 dimsty) (assoc 3 elist) elist))5 r: y* R( M1 X. _ [7 [
)6 F( }8 @4 T! m( d
; refresh sv_dvlist with new dimstyle.
$ M) h7 |" z: v9 Y# |
(setq sv_dvlist (tblsearch "dimstyle" dimsty))( S% n4 y6 P2 G' e) o5 L2 H/ _
)9 ]* c$ r' s& s. M; P; v2 L# w
)/ T; L' Y4 z4 v' V: l- ]
(if (not (null dimlist)) ; attempted to change dimvars
4 q& G; N6 K# D; ^5 F9 o+ m8 R
(ddimen_complist sv_dvlist dimlist dimtbl)8 M. V4 P! v. p, I3 r/ E
)
2 R; h+ j/ ?. d
;; update for ARROW.1 G8 c8 y+ c P' B5 y0 }
(if (= "1" arrow)$ r3 r8 Y q( W) L" D5 A# D8 X4 T
(setq elist (subst (cons 71 (logior 1 (cdr (assoc 71 elist)))) (assoc 71 elist) elist)) g/ ^8 t/ `5 e( y
(setq elist (subst (cons 71 (logand (~ 1) (cdr (assoc 71 elist)))) (assoc 71 elist) elist))
7 X5 f7 a2 u; D- \( k9 |
)6 B2 Y% Y1 d: j) O E& O$ o$ s! P
;; update the TYPE. g( a- c3 I4 _- Q& x, ~6 V0 N! E
(if (= "spline" leadtype)
& M& V0 T+ X0 `+ H4 c Z
(setq elist (subst (cons 72 (logior 1 (cdr (assoc 72 elist)))) (assoc 72 elist) elist))
0 g" X: j# [6 i) e' c. G! F; m2 g" e
(setq elist (subst (cons 72 (logand (~ 1) (cdr (assoc 72 elist)))) (assoc 72 elist) elist))8 @1 g, B m/ Q Q6 _
)
/ Z! F3 ~) x+ o" D: N' X8 Q* U
(modify_prop_geom)
/ [7 t8 w$ t. N! ?( O
;; update the Color H O; \0 I0 j# ^' s
(setq elist (subst (cons 77 ecolor) (assoc 77 elist) elist))
% e. v0 W b5 l) ]/ b; e0 M
(entmod elist)
2 R7 Q) ]9 K% |0 b% A/ ^
), J, G9 L+ Q8 b; V/ q+ H4 ?/ k
)
* h* T; m1 \2 I8 }! S: l* \7 }6 A
(ddimen_setvars dimsvcurset) ; Prepare to exit; [1 J/ N! t8 s4 X7 e7 F
)+ ?4 x- s) T( e" x6 a
2 ^5 p6 g+ \/ ~9 ^7 b; i) `
;;
/ N- w9 }+ v1 \
;; Get dimvars of a dimstyle with overrides.6 ~6 M$ f3 s1 F! S) ~3 Y2 u
;;7 A& }$ X- R8 y" D4 n7 G
1 ?0 m! D; J% L9 a" C
(defun ddimen_getdimvars (dimsty / dimovr dvlist elm i)! [: n* M! y7 r. |& @$ b
4 ]7 G8 J' e" `, `; v* X6 Z
;; Get override information for the specified entity.$ Y6 N/ @$ Y5 R! `
;; Leader/Tolerance cannot be restored by DIMSTYLE command, so we
5 b# F" @& b9 [ h8 P3 ?
;; must obtain override information through this tedious operation.$ u: t; g5 Y( a P# D/ j( K/ R. B5 u
(setq dimovr (car (cdr (assoc -3 (entget (cdr (assoc -1 elist)) (list "*"))))) o) v- S4 |! ]) a/ R" D
dvlist (tblsearch "dimstyle" dimsty)4 ^# _! g2 Z6 L1 e5 `
i 2
' B9 {& Q# E! a4 l8 Q- _+ R, c
)' A! C5 ^2 m6 U, O! H& q) f9 X
1 ?1 ~' @7 L- ?7 Y3 B
; Update the list with overrides if overrides exist.- k- _. o: ?8 B8 p( ^
' f1 y0 n7 B, i2 o6 e. Z
(if (and dimovr (= "DSTYLE" (cdr (nth 1 dimovr))))
& `3 B9 E" M$ a+ T# z
(progn: j, J+ C& p5 _: Z2 A; V4 h3 B
(while (setq elm (cdr (nth i dimovr))), ~2 s5 [: _; D2 Y
(progn4 t; `: j; n1 [. S- X
(if (or (= elm "{") (= elm "}")), w- a9 G) k+ u' S1 v7 v+ A$ Y
(setq i (1+ i))
& q: X1 J3 a1 [
(progn* e0 N$ }+ g6 A+ o* b6 `
(if (or (and (< 180 elm)# y) a. K) [% q
(< elm 190)/ l+ V, |9 D5 ]; k' S
)
* L: v* ^5 u* q5 ~# s2 c/ }. Z D/ x
(and (< 80 elm)
) j+ P, |3 T" v5 b* e4 J: Z
(< elm 90)
1 `; Y/ D' k' d) ?5 b8 W: Y# O
)' |, }1 q9 o+ h6 k- ~
)7 s7 v6 }3 e+ a9 k9 u/ |
(setq elm (- elm 10))! F* G' {+ h: @( ^3 w
)
" Y: t* w- T0 ~! \ k( I- n
(setq i (1+ i) i H" Q. ^7 Z1 L4 Q
elm (cons elm (cdr (nth i dimovr)))
" J0 a! I* N' ]. x
dvlist (subst elm (assoc (car elm) dvlist) dvlist)
) ^. Y; ^. L# @8 y7 ]4 [6 ?
i (1+ i)7 S3 N% i D! _) s, [3 z3 \
)
& H; A1 \, L1 h5 M7 J. h
)3 Q; i/ I- @& H9 S7 N( r6 N2 L
)
( @5 t% }) Y& Q v% `
)
' {0 p; Q# J# ^$ a
)
" C7 p9 `0 T3 j2 Y9 o# j
)' P- ^6 _1 D0 k8 c
)
V) Z3 A' g7 B/ S) n6 l+ Z
dvlist+ l7 S/ k' g) w! O2 u
)
0 r( N: b6 }/ ?0 X
& t/ b" G; J, ]& z
;;
, C; x4 k3 p* h) q; R N3 I
;; Modify POINT+ x- l, \% o+ _4 n9 Q w& y, I
;;4 n1 \- ` H: \: U/ E+ Y
(defun modify_point ()
4 ^2 I, Z+ T8 U! x
(modify_properties)
5 r8 X4 i& S9 [
(setq pt1 (list x1 y1 z1)) @. Z% ^6 \3 t0 I7 L! j
(tempmod pt1 10 0)) |% S! B/ `9 B q
(entmod elist): i3 F: c& q% b. J) C( G
)! a* C1 T; x. \: \2 W. ~
) ]/ v) j, ]$ y; c% a
(defun ddpoint ()
5 P7 F) z7 F5 U' v: c9 L
(if (not (new_dialog "ddpoint" dcl_id)) (exit))
* N2 q9 Q7 K, C' Y! _% U
;; Set initial tile values
0 A. L% j8 B; o# i+ F
(set_tile_props)
* U, ^) O8 f7 O) ? P
(set_tile_handle)3 R/ g8 h# S u1 o- X
(set_tile_pt1 0)
4 c2 R" F! v, r
;; Define action for tiles% \! l4 b; V( F9 }5 O e
(set_action_tiles)$ v. D \# V. z; a8 t9 E
(setq dialog-state (start_dialog))& J( {) d& J r* j
(if (= dialog-state 0)2 o. c* i2 z) d& Q4 o2 M; A: |2 ^; w+ k
(reset)0 D9 W/ T7 V5 l- q7 V( h1 C
)
. l3 f# E& Y9 H) e) i$ j6 n
(if (= dialog-state 3)/ T" [0 |1 K# K+ S3 C
(progn. P' H& Q: k7 e: P# r
(modify_point)! H' w/ d. ^+ w# b$ Z4 u
(setq pt1 (getpoint (list x1 y1 z1) "\nPoint: "))" U; K; w- {, k, X
(ver_pt1 0)3 l2 M9 f1 s& i2 \8 L/ Y7 u
(ddpoint)
* J6 z+ B% x# ^ S
)
: i2 o0 X" Z/ h1 G* S' h
)
I" |1 w( |. K8 r: N# t/ G* c
(if (= dialog-state 1)$ a+ N D& F' X: p
(modify_point)) ~. }0 m1 R! T; [) K, Z& A
)
1 {' Z p% d) c' b6 j
), Q! y9 q9 e/ t6 {8 M: X. _
;;, p. S9 P8 j8 w8 w, m
;; Modify LINE7 F" r: N1 X7 B, Q
;;
, f+ X7 n1 X& O+ y6 j2 U% L! r
(defun modify_line ()
# c" c2 B; m8 H9 v" d. L
(modify_properties)/ E8 B& s4 ~# H. i2 g! U
(setq pt1 (list x1 y1 z1))
0 V- H, u1 c& f+ @7 E$ w4 l. L; r- L
(setq pt2 (list x2 y2 z2))( a M: H. [! @9 c
(tempmod pt1 10 0)+ Y$ S0 r1 R1 y t6 z
(tempmod pt2 11 0)5 r, O; E8 H, Q- F& \
(entmod elist)8 R: t5 n9 i7 _% z; _( I1 Y3 A
)
8 p5 ^9 h$ S: W- S- I
(defun ddline ()
' w i0 j ^- ~1 s- ~; X
(if (not (new_dialog "ddline" dcl_id)) (exit))( ^' p+ b# g8 f% t# B
;; Set initial tile values
6 N5 w9 k+ j, t O L0 x
(set_tile_props)
; q& n' d* O% p! _( h; I7 L6 ^6 z) l
(set_tile_handle)
9 j+ b5 {# f2 q* b% Y7 N
(set_tile_pt1 0)8 F9 v# a+ N9 z
(set_tile_pt2 0)
1 |& S) x m- |1 G! t, \
(line_calc)( b# v2 [9 M0 S
;; Define action for tiles
0 e- Q2 q7 d; ~0 [
(set_action_tiles)% b: j+ _( w8 E0 d$ h
(setq dialog-state (start_dialog)): W, H1 l& ^: y4 y1 L
(if (= dialog-state 0)
" U+ i: }' }# N H' Q
(reset)
h o: K6 @5 W. A# [3 p! A" i( b
)
; @8 t7 t% A3 L. A% ]
(if (= dialog-state 3)
" \. W: `) E7 G) T) Q
(progn* i' J) Q& K9 {
(modify_line)
% A: e( W9 a8 u; U0 V$ M$ O9 O
(setq pt1 (getpoint (list x2 y2 z2) "\nFrom point: "))
- d9 y, v5 X4 [: @5 g$ |
(ver_pt1 0)
) C. _% y x) p7 ^, a3 l
(ddline)0 Y6 A/ H |# n' L
)
2 F) c2 D7 v. w+ n9 k" j5 A
)
1 s7 _( ^2 B& \" q8 A) R
(if (= dialog-state 4)0 `" d5 }3 E$ x4 z: t2 o
(progn
# `/ y) U3 v; w2 ^
(modify_line)
( K9 \0 s1 n$ A5 s& }, i, c
(setq pt2 (getpoint (list x1 y1 z1) "\nTo point: "))
; e# p6 p. C9 s* [1 {: w7 b' }
(ver_pt2 0)
' u/ n5 U% h- v0 j
(ddline)
6 M, d6 N B5 H% D- }
)! w5 K$ ? s& a+ B3 s! f
)
1 @9 f1 n* V" v/ H2 d
(if (= dialog-state 1)0 [! f# m' v. {
(modify_line)3 Z& n) ~+ x/ ^; r
)
1 N! {: H7 T! I
)2 Q: Z1 }6 ?3 {0 j
;;3 w' {! D6 a8 O( @0 J
;; Modify MLine; a% A$ n, I! u8 M: P
;;
# k! E C. k- e% W# A# F
(defun modify_mline ()
' d2 u# o9 m" f X4 k( Q! R; m( J
(modify_properties)
; |! h$ Z2 e2 r- L8 H
(entmod elist)8 ?2 g0 m4 X) b2 i
)0 L6 U, j( O2 K2 x
(defun ddmline ()6 w2 T! u% T& w8 C
(if (not (new_dialog "ddmline" dcl_id)) (exit))
( ?+ u# {) F n5 F; t: \, p5 ?- F
;; Set initial tile values8 `. U# W. T1 U) A' ~; o
(set_tile_props)
3 p7 ]' a, C5 P2 z8 V- l
(set_tile_handle)
8 X7 y/ I' m* a. ^, P
;; Set mline style text field., |4 ?2 o. @. e% N. d" b) n) M
(set_tile "ml_style" (cdr (assoc '2 elist)))$ s- [7 a# r; c/ _6 @; a" z0 T+ X H
5 j: b, B. r5 z/ y7 `. J, n
;; Define action for tiles
$ H6 F$ _) k3 p' e/ N7 x( O1 f+ k
(set_action_tiles)2 [8 D: V" s" q$ J
(action_tile "ml_edit" "(done_dialog 3)")
: p4 D% q% Q U$ G9 f, o3 n0 j
(setq dialog-state (start_dialog))# @( h- ^4 Y1 y# o. L* E" C2 \
;; Dialog cancelled, reset to original values.
2 \: G2 x( t5 v7 y; I2 b$ U
(if (= dialog-state 0)
1 q: o7 U1 L) i7 g+ _
(reset)
. }9 `8 F+ A6 O
)6 g( o' z; r& a( m9 A! s# s
;; Dialog OKed, update the mline.
. Z, C' \" _0 ?
(if (= dialog-state 1)7 K G0 _9 ~0 d
(modify_mline)
4 L4 Z9 j8 C- @
)$ p& ~" ^2 ?) W, _1 R8 m
;; Edit Mline, call MLEDIT.
! O. V' ^2 |" k$ v; C& n: d; X3 Y
(if (= dialog-state 3)' L) _) ] q k) n. _
(progn
7 Q9 |' Z& E- g6 E
(modify_mline)
$ g0 T! [2 T% G( ]2 K. q
(command "_mledit")
) @: u3 K- p3 V( _+ D7 T
(ddmline)+ m" i$ B/ B& u# n
)
' t: f% n b6 b: e
): a, s0 D; k/ q; e
)
, W4 B5 C! Z+ @- j! _4 H
;;
) F8 [* {8 A m, S
;; Modify Xline+ o6 c8 w. |3 j g
;;5 _; z% I4 j0 F! s" ]4 I0 \
(defun modify_xline (flag). ~2 H0 o: K. W
(modify_prop_geom)2 h. H: ]1 i/ d
(setq xline_pt1 (list xline_x1 xline_y1 xline_z1))1 b! l9 c: \) R7 n0 y* T# c
(setq xline_pt2 (list xline_x2 xline_y2 xline_z2))
1 H# z$ e# v1 T3 c* Z
;; Update the Root point.
; I) v& X5 {0 u3 O) {
(setq elist (subst (cons 10 (trans xline_pt1 1 0))
) e! I) A) {4 ?" Y! V+ k8 S
(assoc 10 elist)
+ p" ]) K5 V. u1 r0 ~
elist+ M6 _/ o8 V* _1 \
)& b) h1 C7 O. E" n, e
)5 a c7 E# ]0 s+ v+ i; X+ S6 w
;;
8 T# n Q% ]) \' M9 I! s4 R
;; Calculate new Direction Vector WCS5 Z- C: _; R+ D" C2 M9 q# b, K i0 G
;; x / (sqrt ( (x**2) + (y**2) + (z**2) ))1 [% n; [# C) l7 y: n2 z" t
1 B- g+ o1 E& n: }& V4 }( Z
(setq temp_dir (trans xline_pt2 1 0))
c1 L9 s0 ]0 d/ ?8 G% d0 e9 W7 K
(setq temp_dir_x (car temp_dir))
/ v% x+ m2 j( c% e' x6 \
(setq temp_dir_y (cadr temp_dir))
) L4 M M7 U# j2 b$ I. {% ]
(setq temp_dir_z (caddr temp_dir))" H0 Q6 H" P/ x' `) w% d6 s- O1 O4 [
* [5 ^2 M1 U) a
(setq temp_xline_pt1 (trans xline_pt1 1 0)). ~, f* o J1 u0 Z9 R' L9 H
(setq temp_xline_x1 (car temp_xline_pt1))
4 P, v; a4 B3 C0 d. @4 i! V. R
(setq temp_xline_y1 (cadr temp_xline_pt1))- }# C/ U% h7 v) x" u- ?
(setq temp_xline_z1 (caddr temp_xline_pt1))- x7 V3 B' u Z `6 l# Y0 Z: u' x) F
. [5 r' c+ g% V* x5 x; v0 I' H: a
(setq denom (sqrt (+ (expt (- temp_dir_x temp_xline_x1) 2)
5 q, G2 e, U! g7 D" c8 n4 O5 x
(expt (- temp_dir_y temp_xline_y1) 2)
2 n" Z# G' i7 [9 o4 e5 ]5 B
(expt (- temp_dir_z temp_xline_z1) 2)
( \5 S) ?5 T6 S/ B2 z' \
)))5 e u6 Q4 y3 u6 }; r$ ?
(setq temp_dir_x (/ (- temp_dir_x temp_xline_x1) denom))
* ?: U1 J; z: p0 f4 t4 q) O
(setq temp_dir_y (/ (- temp_dir_y temp_xline_y1) denom))
+ {* j X- | j" z3 A( K" N
(setq temp_dir_z (/ (- temp_dir_z temp_xline_z1) denom))
. S* n( o I1 [+ X- d, Y1 R/ z
(setq elist (subst (cons 11 (list temp_dir_x temp_dir_y temp_dir_z)) f& P& w) Q1 Q% C- {* u' f$ |
(assoc 11 elist)
0 Q% j9 v8 L, y* l' K; S! L G) C- Y
elist
0 b5 r% C$ t) B5 N1 I
), M) ^9 \2 ?' P# I/ ^6 p! K
)
6 Z8 J( V8 h- C* R7 K
(if (= 1 flag)
" R* T$ W+ M! q" }, P# c! |3 ~
(entmod elist)
" w. h& d! t# V# W S$ L
)/ z! Q. L! o5 [; Z& @5 @
)
+ u2 v( s; W; h& _$ N; M
5 M6 {* F3 U* c5 D% u% U
(defun ddxline ()( e! a% O# U/ f% d3 Z$ f% [
(if (= etype "XLINE")! U% \% ^& K) J' e# Z! _
(if (not (new_dialog "ddxline" dcl_id)) (exit))' l8 O9 K3 f$ u0 L% P4 M
(if (not (new_dialog "ddray" dcl_id)) (exit))9 t' N* s8 b9 J8 F
)
\& l8 j9 J. v. c& D% L1 X
;; Set initial tile values; o! }; ^8 l% m8 e" r
(set_tile_props): L" U0 ]" p/ t# u
(set_tile_handle)& @, U& v. k% E8 B
(set_tile_xline_pt1)6 b3 J1 I8 |$ v; x6 e
;; Convert to UCS and post Direction vector." r$ j t. r+ V- g" e( P
(set_tile_dirv)' f* n/ W7 f7 y% V6 }8 I. R/ C
;; Calculate second point by adding Root Point + Direction Vector.
/ K- q! j9 c# B3 o
(set_tile_xline_pt2)
- X; F( S4 G+ V. m
;; Define action for tiles
, O* a( B5 w( ]. Z
(set_action_tiles)" G# Z" Y, I: {# |
(setq dialog-state (start_dialog))9 J( \- W- Z L# r/ ^
(if (= dialog-state 0)
, g4 X: L% o- E1 c5 s* N9 t
(reset)' H, k- h% |4 }4 X
)9 \; n+ E5 |* C1 O3 A' v- ^+ ]
(if (= dialog-state 3)
5 L/ ^, u" h3 p
(progn
+ }$ M# t' h$ i
(modify_xline 1)
2 f+ Q8 N; [/ z( t
(while (equal xline_pt2- w6 \# x1 W, V
(setq xline_pt1 (getpoint xline_pt2 "\nRoot point: ")) 0.000001)$ E# d8 i/ f' O6 q
(princ "The Root point cannot equal the Second point.")" o% \9 o! u# e; I) Y& i
)
) t7 ?8 ?: y! T8 i! ^+ ^
(ver_xline_pt1), v5 ^5 U" M* u
(ver_xline_pt2)3 X6 O7 a [$ D6 I6 R0 s( L2 n1 l
(princ)
' B$ F6 ^6 x$ ?" y7 H
(ddxline)5 \& k( f; S% e+ c* r% r. E
)
, _- ~7 q- _5 F
)
, [/ m+ o) {, S& ^$ V: @
(if (= dialog-state 4)
1 b0 f/ g$ v( u% C
(progn- X* [* \6 `( B8 j9 q( o
(modify_xline 1)
3 t1 U" d) B; z# U# O3 H) s1 ~4 V
(while (equal xline_pt1
$ _% E0 r, G3 D! t$ L4 s6 z
(setq xline_pt2 (getpoint xline_pt1 "\nSecond point: ")) 0.000001)
& _$ {4 y) f2 H5 E5 j
(princ "The Second point cannot equal the Root point.")- m& }8 T- g* f7 m+ H0 d
)
1 p* v- |8 g- p
(ver_xline_pt2)
) Z- u; A' @, d2 c! x. S* P; v( S$ c
(princ)
- V, ~; B" a0 C& D* t, p p8 t
(ddxline)* g7 B- d8 {7 Q* w5 a
)2 ` f" U; w$ R& C5 P8 z! [4 u
)
2 T9 F8 T0 O' l$ i9 _
(if (= dialog-state 1)
* }+ r+ [2 P8 b1 Q2 `
(modify_xline 1)
5 ?# A7 O) _& z( _- b9 s
)
9 n' y( y( D) R, t5 F
)+ U, X% j- U0 H1 D4 E9 b K
;;6 J% N" o, N5 e# M$ l) o9 r6 t0 G- }
;; Modify ELLIPSE
! l) f0 y! D6 n G- k
;;
& Y' W D3 f3 p" G0 k2 y9 I9 @1 o
(defun modify_ellipse ()
3 d' b9 h& O' |5 i
(modify_prop_geom)6 |4 a8 W' ]+ w$ J) R& C3 d1 p; @- x
;; Update Ellipse Center Point value.
6 b- U8 K- r# v/ ^' y2 ~5 C' R
(setq pt1 (list x1 y1 z1))& I3 B' {0 o6 ^; ?2 u
(tempmod pt1 10 1), e% }# K- f+ Y1 w( U& K
;; Update Start Parameter value.
: E6 a- }+ J6 s3 q7 u- a) m2 l
(setq y_val (sin st_ang))0 I6 l8 c$ V( {, ^9 q$ H; z
(setq x_val (* rrat (cos st_ang)))
2 j" v+ d' N" V" z# o5 k2 x
(setq stparm (atan y_val x_val))
% v& i% X0 X$ [3 x: R
(setq elist (subst (cons 41 stparm) (assoc 41 elist) elist )): l# `6 l9 G4 {' {/ A- w
;; Update End Parameter value. Normalize it, if it's less than# y' G; J' O: G% o ]
;; the start parameter.2 a/ f) [9 T& h! c- ]8 _ m8 Z7 l
(setq y_eval (sin end_eang))
' h9 Y# c. W' l
(setq x_eval (* rrat (cos end_eang)))
) C5 N. z; I R1 z
(setq endparm (atan y_eval x_eval))
" H7 f$ ?6 q% I+ p
(setq diffparm (- endparm stparm))% z# {# L) [- U$ G
;; Epsilon of 1.0e-6 radians for checking a zero length arc., r. U& P4 Z/ ]% w
;; Since zero length arcs are not allowed - construct the full: Z! R) I( i) I9 d1 x
;; ellipse in this case.# f0 ?! p5 r, a, n) z0 {) d5 r
(if (<= (* diffparm diffparm) 1.0e-12)' z% l" p& w" ^' s4 H
(setq endparm (+ stparm (* 2 pi)))6 V$ a- `9 X8 H* G7 I+ `! C/ U
); g% d" {5 W1 W$ {. \$ d" M
(if (<= endparm stparm)8 q6 L2 Y3 v2 u, U* t3 j
(setq endparm (+ endparm (* 2 pi)))
+ T0 h7 j: K$ ~: s
)( S- g$ ?# z' i) _5 J. E
(setq elist (subst (cons 42 endparm) (assoc 42 elist) elist ))) ~2 }# ?& t; G1 r! V/ N/ A
;; Calculate the Major Axis Vector by first calculating
8 v) U( }, ?; r" Q1 ]
;; a unit vector using the old Major Radius value. Then
6 [" w7 n" ^! X5 h0 _, D4 d- W
;; Multiplying that by the (possibly) new Major Radius0 F' h+ n8 s R$ M0 L$ Z2 Q
;; value to get the new Major Axis Vector value.
: n5 Z: z/ P5 a" G8 s# C
(setq unitxx (/ xx old_majrad))7 [) \2 @5 N9 @6 E8 s' g4 Z% T
(setq unityy (/ yy old_majrad))7 _ M2 i8 n x9 V
(setq unitzz (/ zz old_majrad))! `. C+ j" A# {6 }& r9 Z0 P
(setq newvecxx (* unitxx majrad))
3 N2 ]5 _7 ?" V9 F+ ~
(setq newvecyy (* unityy majrad)), ] M' n- w4 J. B6 h# A
(setq newveczz (* unitzz majrad))3 t3 I3 ^: o7 K! U% K# p1 q3 B' A1 Q
(setq newmajaxis (list newvecxx newvecyy newveczz))( S, b5 r! C6 L, ], f/ s! b# K1 E
;; Update Major Axis Vector value
& Z3 D! E5 u6 N a7 W2 z
(setq elist (subst (cons 11 newmajaxis) (assoc 11 elist) elist ))9 H1 [( z P6 J! ~4 n' u& U
;; Update Radius Ratio value# a# _1 M/ H0 @1 C" ~1 z
(setq elist (subst (cons 40 rrat) (assoc 40 elist) elist ))% q: T5 ?! h! q. {% M4 J
(entmod elist) `4 v- _4 e( }' f1 n. h+ n3 N
)
/ q7 m0 I6 b3 C& I7 ^: z+ f) K* O
J3 {; r" _1 `. N2 D5 ~+ z
(defun ddellipse ()
1 G9 O5 s: l7 y" ]! @6 A
(if (not (new_dialog "ddellipse" dcl_id)) (exit))
: t& a1 _ k: J0 Y G1 M
;; Set initial tile values0 t: C8 l- h. J" ]+ H) d" _
(set_tile_props)
1 `5 [, D2 T# u1 c( P3 c
(set_tile_handle)) ?7 b3 B# H& C) S+ o0 p& R
(set_tile_pt1 1)
$ ^ v# C4 y# m5 p$ L) J$ j
(ell_calc), u" h/ R! z2 K( M$ ^4 Q
;; Define action for tiles& G# a# {" T1 ?. w, C8 f4 G9 y
(set_action_tiles)
! U m& x @3 b
(setq dialog-state (start_dialog))
2 i W. v z* w& Q* n
(if (= dialog-state 0)8 ~$ D- Q4 l4 ^5 _3 w; }% G
(reset)
1 S1 V/ J& E- C: I
)
. Z( p8 x, I/ P! h( I# V6 |
(if (= dialog-state 1)
$ s2 D' q9 d' Y, n$ a
(modify_ellipse)
8 D& M$ l1 t+ H4 b# ^, w4 J
)
' w% U' n9 ^* R# `
(if (= dialog-state 3)+ T P8 ?2 d8 o0 a8 Y, J) Y# X& e
(progn/ L# ]8 ~+ P* B: M/ ]
(modify_ellipse)
# O% E" K' k8 h; l
(setq pt1 (getpoint (list x1 y1 z1) "\nCenter point: "))
5 g6 Y6 [; K3 J/ L! T8 c
(ver_pt1 1)# u- |6 e( S( y$ R2 Z1 L- Z7 z
(ddellipse)4 `7 w- V, f( M7 N2 v; @
)
. L) S! x5 r/ V
)
$ b" y) i) m. D/ r" t% q6 L* W3 t
)7 z- q3 P3 X5 O
;;: E, B: j) V( P# ? Z; M1 l
;; Modify REGION" L% Q: Z+ T8 F4 B) r) z
;;& G8 X+ W0 x* A3 e' v2 D& A
(defun modify_region ()- u0 i. {3 w {. P
(modify_prop_geom)
0 Z! v3 G0 p/ p* p
(entmod elist)
9 K; `& D7 n5 ?$ n
)
8 E m2 L" J: k) H
# T! b( P/ G; G( u) }+ U, f# N; {
(defun ddregion ()
$ E0 `& Y7 q p( l7 @+ J
(if (not (new_dialog "ddregion" dcl_id)) (exit))7 G) p# q$ {) b x0 ]2 j% r3 D
;; Set initial tile values
* m7 y4 d8 V3 G3 Y
(set_tile_props). u H4 u& r8 H# t
(set_tile_handle)$ a! P4 I2 j. O7 W F2 j1 L: T
;; Define action for tiles( I: n' x6 u; [9 `9 Z2 Z
(set_action_tiles)+ [+ c: B/ f! i1 {
(setq dialog-state (start_dialog))
' Q0 Y9 b' ?& P0 ]. i; S0 n; V& o0 }
(if (= dialog-state 0)
5 r5 G4 A+ F6 W9 W7 f
(reset)
8 f! p6 U' R. e4 u
)
1 b: A; m8 V6 X F& d
(if (= dialog-state 1)2 T$ h! i/ v! Z( _
(modify_region)! \* [+ g, T7 Y$ U* g
)* i$ g M; I: R1 g# x
)+ H) k# ?3 v9 n p; G
;;8 K4 ^! C% _8 f9 `
;; Modify 3DSOLID# O9 U7 n: z* u1 v# s
;;
7 j2 D$ T0 o" d$ ~, i
(defun modify_3dsolid ()2 s% T8 f9 e% U/ J; W% T& R
(modify_prop_geom)
4 N/ s! w( s. ~2 o' ^' P
(entmod elist)
! r/ W* L/ L' |6 M. n) f
)
. P. D" m! q$ E4 m/ ?; A- \/ W
( y! B& L$ {+ @( J8 S
(defun dd3dsolid ()3 j' ?4 A) ] `+ t5 t
(if (not (new_dialog "dd3dsolid" dcl_id)) (exit))8 b8 g- o# Y1 i) A: q# j' M
;; Set initial tile values1 |. B3 }" w+ v, F1 }, k
(set_tile_props)
- g3 }8 M; S3 P
(set_tile_handle)2 o5 _1 P2 l; P( }
;; Define action for tiles9 d( W0 A6 m4 k0 E/ ]
(set_action_tiles). U$ V# |: ^& m, ~; l* x/ F
(setq dialog-state (start_dialog))
& v! r/ J; M* M6 ?1 p
(if (= dialog-state 0)
n y! H5 ?+ Y3 e x
(reset)& }9 l3 ^8 u+ Z) D2 p
), m8 a* H1 `2 z( a
(if (= dialog-state 1)7 d" K! A+ B" D& B, @% P& p/ s
(modify_3dsolid)
4 L9 ]4 D, m8 s+ {
)
* v, w# e9 f5 F+ M# I: I: Y* J
)) J* }: F$ m& D+ H% v6 Q5 d" o
;;, J" M' S. |' I8 d! \. M
;; Modify AcDbHatch0 J5 D# h, T; m
;;
3 W5 [( m2 m- ^9 H- ~ X
(defun modify_hatch ()% V2 o9 r4 N5 k. f# i5 E! h0 W
(modify_prop_geom)9 m; m8 P# Y1 c# N, S
(entmod elist)
1 Q# e) E1 p9 F
)7 M$ m( a/ N& O7 k( `
% s( N. s8 d9 i) d. i0 y
(defun ddnewhatch ()
7 q8 X. v: z% u) \! L) n6 \3 u
(if (equal hatch-elist nil)
! e0 T9 `1 [4 a
(setq hatch-elist old-elist)1 ^ ~6 G& S/ H8 A P
)6 E: |% h6 C& y- |
3 ^4 d/ k0 A. a- y& R3 I
(if (not (new_dialog "ddnewhatch" dcl_id)) (exit))& B: M, \; I6 [1 u w4 g
# D, e& s' H [0 e
;; disable the thickness tile
; Q9 n% ^: L0 P7 f
(mode_tile "eb_thickness" 1)
2 _( N# U4 Z+ @0 Q
(mode_tile "e_thickness" 1)8 _5 T; v8 z9 ]6 }9 [
, A# I& a- Y+ ]& g$ m
(setq help_entry "modify_associative_hatch_dialog")6 T# A- s: k1 {) w
(set_tile_props)
% V/ L; t) h5 E- y* s3 m- K7 P4 @
(set_tile_handle)$ k0 m, ~$ O" K% c6 m* m2 C6 \) [
" Z5 C& }6 m5 S1 N
;; Define action for tiles
% X/ r3 d! i4 j/ Y: p% O
(set_action_tiles)
( Z2 z% {+ b, P6 E# B
(action_tile "b_hatch" "(done_dialog 2)")
/ {8 z, x/ Y( O+ A; g% V0 J
(setq dialog-state (start_dialog))
$ U( G2 Q& ]% i$ `* j' K
(cond" X% P, x/ e7 N6 J+ c$ @
( (eq dialog-state 0)) d' G) @/ _0 a
(setq old-elist hatch-elist)
7 O& I7 T+ |! N2 b
(setq hatch-elist nil)" G7 c9 w, ]. T: h1 X
(if (= (checkforlockedlayer ename) nil)9 u( p5 y0 Q# W; ? J/ X* x# g) U4 Y
(reset)5 _, {: H2 ?1 N# J7 J8 {
(progn ;;; special handling for locked layer reset
( S# M. T3 C2 l* n6 M0 l
;; unlock the layer9 x+ x- i& f% m! h- U% R+ T( y
(setq layername (cdr (assoc 8 (cdr (entget ename)))))
7 i2 t1 a; ?% |7 Q7 q& D! ^5 m0 [7 d
(command "_.-LAYER" "_Unlock" layername "")
4 `/ D% J+ v7 N( J, r, e+ x/ G) Y
;; reset modifiction+ d( O: _, \0 z2 x
(reset)- p( Z( j! c2 T0 F# ~
;; lock the layer again# p. w' u( z# m3 E4 V+ d
(command "_.-LAYER" "_Lock" layername "")
% K% W* a0 c; I" m( ]9 M$ g1 Y' T. k
)
& y6 W+ x6 d3 `, p6 `( r$ K
)$ \- [- h' l8 p& P8 g6 I& [
nil ;;; makes (ddnewhatch) return nil for Cancel% b( \" r% Y5 G
)
' W7 F$ V( U7 Z& D
( (eq dialog-state 1)
( ~# y. U% l5 Q. y# i4 H
(setq hatch-elist nil)& m0 j1 v, R( o5 U
(modify_hatch)
; Q, W6 A& S4 N
T ;;; makes (ddnewhatch) return T for Ok' h1 s7 C! i+ }5 W8 |' s
)6 I; H# H( Z. Q+ ^7 d
( (eq dialog-state 2)
4 Z! \2 a; [$ d$ ]7 i
6 V* J# C4 Y/ I. x' v
(if (= (cdr (assoc 70 (tblsearch "LAYER" elayer)))! V) ^& y/ |! Y2 Y* j& c2 s: f
42 T; f+ ^9 Y0 K4 p7 r5 g! h
)
0 [- W: m8 y, g! a) B! W
;;; new selected layer is on a locked layer+ |! z' O% n1 K. S
;;; we can simply modify the hatch properties
, A( z+ g0 U1 { V# `9 e) e; [9 h- m
(modify_hatch)
+ C. s, ?1 N2 l* }/ z% i: W
(progn) M9 e* i2 N( U8 i4 c# f
(if (= (cdr (assoc 70 (tblsearch "LAYER" (cdr (assoc 8 (cdr elist))))))
$ l# ~+ R% T9 B
4: f3 r$ \( z# c( @" r" d
)
% Q% F; p. E0 @- Z9 I9 c5 X; }) ^
;;; We changed the layer previously and now the hatch lies on a locked layer.
8 G7 {) [; e, H" j. F: ]
;;; We have to unlock the layer forethat we can update the hatch properties.( C& p& Z! m+ `( U. b
;;; If we don't do that (entmod) fails to update to the new layer.$ X& W$ f( l. q4 h1 w3 X: @/ B- V
(progn1 G& H4 S, Y2 P) n" g
(setq layername (cdr (assoc 8 (cdr elist))))6 \# ]! J& E% v
(command "_.-LAYER" "_Unlock" layername "") ;;; unlock the layer
& b; Z% J% N9 k& W9 H3 a
(modify_hatch) ;;; update the properties
; t1 s$ r! b: ^+ Z+ q
(command "_.-LAYER" "_Lock" layername "") ;;; lock the layer again! F6 s6 R8 k7 y' x; W9 g. W9 B
). H8 O7 g! n$ h+ @7 e3 ~3 I9 X
;;; All other cases we simply update the properties
: P. B$ P/ E* V* e
(modify_hatch)% }& P/ k# K6 g* V+ Z4 S' M6 V
); W, z' J6 I- N
)
' C. |" v; D+ j: B* n4 W
)
1 q/ d9 D- j: q# C
(if (= (checkforlockedlayer ename) nil)
0 b6 Z4 O& x' ^# y1 e
(command "_hatchedit" ename)0 f: Q% m0 H* Q
(alert ;|MSG111|;"The hatch object is on a locked layer.")
7 f4 n4 {% T, l. @3 @( r4 k
)
+ `7 h3 `& M! U: A5 D9 r
(ddmodify ename) H/ C( Z/ n3 f
), ^6 `& S# ^) u8 S5 D
)' a5 o+ P- Y3 J) ]. Y+ W
)
: _; T) z& O3 [9 M- j* q
;;7 O+ y" a) a- P
;; Modify BODY* ^( y; G- |0 D: n7 o
;;* T% k! g5 ?+ X8 Y9 w) b' f" M! m" J% c' d
(defun modify_body ()
. y( B2 Q( W. N" u- ]
(modify_prop_geom)
! d3 F. I4 @- G. q4 H" K- |3 ^
(entmod elist)
. i( ?3 K; D3 f: F6 r* n
)! g5 L- f3 S5 B, h" N* m0 L
# ~2 O3 [; w, ~+ p. Y" e
(defun ddbody ()4 E( l7 t0 o) t$ Q l' w
(if (not (new_dialog "ddbody" dcl_id)) (exit))2 t' _8 y# c b% B `" B) `
;; Set initial tile values, p" c4 M. l% r- _
(set_tile_props)- I, X' X7 T9 M& ]
(set_tile_handle)( z2 b0 ?+ z, ^7 V
;; Define action for tiles
' K+ S, N a! Z- K0 V7 x
(set_action_tiles)3 w8 V8 ^* Z0 }0 o9 m/ s$ m
(setq dialog-state (start_dialog))
; R% E v0 C! E
(if (= dialog-state 0)0 i A! i) ^0 P) Q) _
(reset), J# B! l/ p" o: Z, X0 L1 l
)- Y8 x0 N8 e' g) b3 {$ Z; O0 L
(if (= dialog-state 1): c6 {' w0 [: A P
(modify_body). R/ j: |0 o1 M0 d
): Q v% u2 e; B5 V' c
)7 i3 |; F& U5 y
;;( U/ y% w& J6 R ~
;; Modify CIRCLE* S) J8 i, h- j6 x5 D, S3 Y
;;
% t" S' q9 V5 a! K5 H
(defun modify_circle ()
# l& n) l2 c. Z; r2 j3 p) {
(modify_properties)
& I) h0 _0 D+ t1 M& g7 z
(setq pt1 (list x1 y1 z1))
4 N. m+ ]9 g& g$ W
(tempmod pt1 10 1)
c, E. v" N/ Z. r# Q$ ^' \: y& F
(tempmod radius 40 nil)7 r' o5 _- K1 T( |' Z; F2 K# l/ i9 k
(entmod elist)
; u; B2 v9 T. D) R) I" Q
)
4 }* I6 ?) x4 r! M5 L4 I( [
6 Y& b" m8 w; h J
(defun ddcircle ()
; A& g/ W$ l3 ]4 F2 I
(if (not (new_dialog "ddcircle" dcl_id)) (exit)), m$ ~, H# H' q/ J
;; Set initial tile values
4 B; L5 k- ^3 O
(set_tile_props)
: |1 ^9 Y* b0 A0 D) n
(set_tile_handle)3 h% z7 x" v# a# _
(set_tile_pt1 1)
8 q* G3 G6 m4 @
(set_tile_rad)
! a9 ]# w, _# {7 c# r) G
(cir_calc)2 F& C) _+ C& a; d6 c+ _
;; Define action for tiles/ `# }8 e# n' O+ R* q3 G( [
(set_action_tiles)7 K3 p& c% j% q( B% a8 Y
(set_tile_pt1 1)
5 z, t5 A- U& n3 A t5 A' k7 J
(setq dialog-state (start_dialog))8 Y- P7 n9 T6 Q% R
(if (= dialog-state 0): P# f$ Q" H7 K" w& {% d# {) j# Q
(reset)
" R, N7 }* S* M# S% g9 g' m# W
)1 k. Y* W" s0 ~$ Q6 {- B* W
(if (= dialog-state 1)6 n) ~/ b9 w. u8 u. P
(modify_circle)
. l; ]9 \6 E2 ^) o) p, o/ u
)# l! K {1 l( T8 U0 X
(if (= dialog-state 3)+ T4 F* H9 T* f m4 n6 T$ G0 Q1 f
(progn0 m. P; k' \' j$ q: P" C) X6 Y9 d% Z4 d. _
(modify_circle)
2 D) G N5 ]- q- L& x( {
(setq pt1 (getpoint (list x1 y1 z1) "\nCenter point: ")): p8 u7 R/ @- y0 v5 x- v
(ver_pt1 1): k0 R" d; C' W H5 B6 s! \
(ddcircle)
- p4 N3 v$ @7 q8 f/ c; l+ _6 q
)
5 O9 N" F9 D. n# h9 K5 u
)* [0 j1 n- }* g; h( b& V' l, i
)5 R9 G! |, F9 J9 |. N
;;
+ s8 |% w; N' c2 |% Q3 i
;; Modify ARC1 v0 q2 `+ Q( l6 x
;;
0 ~, m* z; _' w6 Y2 ?/ H2 D0 D! ] y
(defun modify_arc ()
% `) v5 [% m. ]: q" Y: m
(modify_properties)
; o4 r' m l5 k, r, g) @
(setq pt1 (list x1 y1 z1))
) g( w9 Q; `8 r" \
(tempmod pt1 10 1)
% t4 a* L2 M7 z6 B
(tempmod radius 40 nil)7 r$ n# L4 [$ V. C; o) W( C& ^
(tempmod st_ang 50 nil)' X& f4 q; `9 d
(tempmod end_ang 51 nil)
+ \6 ~) ]4 R: |/ w9 R/ r; P. E
(entmod elist)
( u) L5 E# C/ F( F
)
9 j* C; U3 o, x3 ~& e. V/ i
(defun ddarc ()/ m) S! v) c: b) d3 t# U
(if (not (new_dialog "ddarc" dcl_id)) (exit))3 C) j) o6 ~) n& G, C% Q
;; Set initial tile values! ]6 E% D2 k5 P5 l- M4 n
(set_tile_props)
, I2 P/ g! h; z" K6 w [! \
(set_tile_handle)6 X( G* v/ e* J3 s8 j3 a6 g
(set_tile_pt1 1)9 _9 j% |& M/ C7 M! W8 \
(set_tile_rad)6 ^) A7 r. n- r" G9 c" D8 g
(set_tile_stang) I/ A' `. G, F) g/ R
(set_tile_endang)+ J3 ^* n0 }# h4 @, E' O
(arc_calc); O! E, N7 F T
;; Define action for tiles
, R+ A) `" M: h) F: Q. T) s* @( E
(set_action_tiles)9 f `% H" I7 G# ^7 N! n
(setq dialog-state (start_dialog))
9 v0 W) M& V4 M
(if (= dialog-state 0)
4 Q$ r( d$ l3 {: h2 N4 P& q
(reset)
?% H7 T( y' Q
). Y% Q6 f6 a( z( ?* [
(if (= dialog-state 1)/ z, F) `2 R! `4 q1 k7 q+ o5 Z2 O
(modify_arc)
4 y% U8 |( E0 {6 X9 c- A% F; C2 A
)
0 z& [& _+ @% u c! q
(if (= dialog-state 3)
, W2 J8 b1 K N, o9 N; z L
(progn4 u8 d! o5 i4 M; A
(modify_arc)
) n3 K3 u. D% `
(setq pt1 (getpoint (list x1 y1 z1) "\nCenter point: "))+ H# F: K; N/ w& w5 V* k5 Z
(ver_pt1 1)& F8 ]! ?4 u4 F2 I8 l! o
(ddarc)
# [3 g3 |' Q# @) P5 F, s8 U
)
" F4 l$ D" [3 s
)
/ ]! }$ M* _" {0 n% H
)- z$ f0 \: \& S/ ~" I) m
;; g7 L! q9 g& O1 D, h
;; Modify SOLID or TRACE7 t* P- u; W+ _# C4 A, ^
;; Note the Z value of the object is determined by the Z value of the fourth
8 w$ F( {; i8 e
;; point - code 13. Changing the point values of a solid or trace from a UCS) m2 B) t$ N% n& m# V
;; that is nonplanar to the UCS the object was created may confuse the user.
( m/ z* E5 A" s: o
(defun modify_solid ()
- |8 Y9 }% K5 P
(modify_properties)' ~* y% q1 a L4 O9 T" u4 p* Q7 I
(setq pt1 (list x1 y1 z4)), s* b; r8 `4 {9 v" V2 R9 Z
(setq pt2 (list x2 y2 z4)) i B& }# O& @* C/ V+ [) h' @& h/ h
(setq pt3 (list x3 y3 z4))
( B2 ~1 H) S% _7 q* S
(setq pt4 (list x4 y4 z4))& I L% F+ @4 \6 A; {
(tempmod pt1 10 1)
6 B7 m6 y) `* N: _/ c6 x
(tempmod pt2 11 1)% f4 h" n# [+ A+ r
(tempmod pt3 12 1)
, s: o3 F% ]% L
(tempmod pt4 13 1) [7 T9 g" |9 g* W1 Y6 r+ c5 \% K; I+ t
(entmod elist)1 Z) C$ g& ^# V: j! ?
)
* e9 k& s1 N% v- E% {6 t
(defun ddsolid ()
8 K0 f1 e* E, u
(if (= etype "SOLID")5 [! h% F- F8 z& j
(if (not (new_dialog "ddsolid" dcl_id)) (exit))
' |+ p* ]! m& c; c" e. A# |
(if (not (new_dialog "ddtrace" dcl_id)) (exit))! u! R# J( {4 p# u+ z K- `
)4 K. P. g) N7 J$ f3 U2 \
;; Set initial tile values
, Q2 R* j* {0 e; `' l1 _
(set_tile_props)
2 M/ d3 f* O' q( c7 {# A
(set_tile_handle)
m* s! [, u% L* ^. D; M
(set_tile_pt1 1)* ^8 T* N5 _( b" v8 x
(set_tile_pt2 1)
0 J" k7 Y. o" ]4 u
(set_tile_pt3 1)5 h# b- H$ [$ v2 o. C6 X
(set_tile_pt4 1)
0 F% _# a: C/ W+ z) C s. X
;; Define action for tiles
1 X |4 T- c/ [$ H6 G
(set_action_tiles)
+ b2 s) q% l1 ?9 C7 q& q$ H9 v
(setq dialog-state (start_dialog))
9 j( p7 M. y! L3 A& R: F
(if (= dialog-state 0)
0 g) p- Y! {+ {) M( e# S* x. ^
(reset)
4 u* _* @# \; {
)
* s! y% {4 m5 O% i4 K# ]& J
(if (= dialog-state 1)8 x6 {% A9 ]2 I) h/ t
(modify_solid)5 l3 v6 V" ~) _$ X3 F- ?
)
* Q# ~ x3 T, L' |4 n
(if (= dialog-state 3)
' [5 K, ]& i6 g" K# G
(progn
1 y$ Z1 n1 s) }3 N* X& ?
(modify_solid)
/ l4 v! B g( @1 R" x* o) X2 X0 y
(setq pt1 (getpoint (list x1 y1 z1) "\nFirst point: "))- V% \' u% v' M4 C& Q
(ver_pt1 1)
/ z8 N4 z* e( y
(ddsolid)
$ d- T" v/ S3 o! F9 Q! L
)6 z! U) E) B! G+ X9 b
)5 S2 R7 {3 u) O7 D; |/ j& n
(if (= dialog-state 4)
4 B( a9 x: w& o, m: ?4 B% R
(progn
9 m% Y, u) F8 J- X) ^7 S5 e
(modify_solid)3 t* f0 R; }6 j6 r( ?
(entmod elist)5 \' u+ v+ v. O6 C
(setq pt2 (getpoint (list x2 y2 z2) "\nSecond point: "))
; [- m2 I$ }7 `. S0 v* ? j
(ver_pt2 1)
4 \0 _5 }, Z8 g& k$ Y
(ddsolid)5 X1 M2 ]; P/ w
)
- f5 h6 @9 H3 h: J, b* ]* x$ L
); r: ?' r, B( e
(if (= dialog-state 5)7 H: [, b9 k1 S1 X5 ^3 t
(progn" G/ ~% `: g+ E
(modify_solid)4 d9 y1 L8 ?2 g' j
(setq pt3 (getpoint (list x3 y3 z3) "\nThird point: "))* a1 f5 _+ q: P; |* K1 E
(ver_pt3 1)
3 e) N; T7 }& `' n- q6 U' Z0 W- {% X
(ddsolid)
0 D9 m5 ?! z+ W7 t5 G
)
$ V/ z2 e% f2 U" M
)4 s( B# V! r+ a6 w; v2 }
(if (= dialog-state 6)
F# {0 s7 r# h3 g2 I" c
(progn9 D" O& N' b" A2 a: H
(modify_solid)
: J5 {) a# Q) u! u4 j
(setq pt4 (getpoint (list x4 y4 z4) "\nFourth point: "))9 R B3 p/ L) @2 C! \3 ]: Z
(ver_pt4 1); d; l2 s. m4 B- R/ W# ]
(ddsolid)+ d; r+ F* k6 D$ W( I* m2 X
)" g$ V3 Q/ ~9 N
)9 ]2 a; J6 K7 K) z
)# H: O$ ]3 A# |: W- C3 u( C
;;, M7 {2 H9 p. j/ `8 B* Z
;; Modify 3DFACE& n4 [( h( {- A/ u3 a0 }8 Z
;;
U/ H* ]; F2 Y3 d9 Z7 A
;; Check visibility of edges
* B+ H* Z, ^3 q
;;
! U& {! c$ K) ~5 [0 w
(defun edgetest (/ bit1 bit2 bit3 bit4)
( r- _& U: C/ M% h
(if (= edge1 "1") (setq bit1 0) (setq bit1 1))
- a( p$ Z2 `: p$ k, j4 z0 E9 \
(if (= edge2 "1") (setq bit2 0) (setq bit2 2))
& b, j# f% j7 m5 l' O
(if (= edge3 "1") (setq bit3 0) (setq bit3 4))2 }9 v4 D8 X [) r- q
(if (= edge4 "1") (setq bit4 0) (setq bit4 8))' V- K0 B) Q( \' T M* u
(+ bit1 bit2 bit3 bit4)
8 _ v: K1 W E0 y& @* I& r$ K
)
3 e: B6 x8 ~* n' p3 c# @' R0 M
) ]0 i. V3 I9 v; ~7 E: `/ \7 N
(defun modify_3dface () A; v: \% x6 |- ~
(modify_properties)
0 J: ^ `0 F) p) U9 x" d4 k
(setq pt1 (list x1 y1 z1))! ^% ^4 f; t9 E2 p8 c! H
(setq pt2 (list x2 y2 z2))7 H% R4 `: }7 _
(setq pt3 (list x3 y3 z3)): q, d8 f/ ~' s) N
(setq pt4 (list x4 y4 z4))& M R: z9 [. ^* g# e0 b8 C, l2 H
(tempmod pt1 10 0)$ \4 G7 \/ I% t. {+ L
(tempmod pt2 11 0)
+ y6 K. }+ v) _3 S- p
(tempmod pt3 12 0)3 \8 V6 r+ a% l$ a @( h4 T+ H
(tempmod pt4 13 0)1 X; K2 O* d! W, @; U
(tempmod (edgetest) 70 nil)
" {' ]: \" L$ z; K9 n# U
(entmod elist)6 p6 ]0 x: a V; L. l+ y
). H& \; A; u$ `5 U% H, X
4 o1 Y u5 \3 O$ ?) l4 M0 P
(defun dd3dface ()
/ X9 ?* ^, c, J0 q
(if (not (new_dialog "dd3dface" dcl_id)) (exit))
* b) |: @ }) }1 H/ `: L
(set_tile_props)
/ {. g1 G1 {* f
(set_tile_handle)
5 n! B4 c6 {5 q$ F1 d3 E9 K# L
(set_tile_pt1 0)
' x( p5 T4 w" O2 f& W
(set_tile_pt2 0) w! ]' T; Y% r9 K: c8 i# n2 E
(set_tile_pt3 0)
/ D* s! w( `+ @; \& O" H+ G
(set_tile_pt4 0)
. @* L3 @% h$ q5 {, h( D# Y! e2 V
(set_tile_edges)( L, t% s, @; G" `
;; Define action for tiles4 r) s4 H5 Y4 l+ }+ N: x
(set_action_tiles)
5 S$ a6 `4 Q5 v/ T4 M( r1 V8 k+ y# x
(setq dialog-state (start_dialog))
' T- [$ N6 p( U# R d* j' \9 H! o4 Y
(if (= dialog-state 0)
9 D* ~" j( E% C+ z
(reset)
. V0 D$ J) M5 P, `, a
)
. [; i4 D" s1 e1 |; d* N6 J' O
(if (= dialog-state 1)& s' X' R% k: C* Q; ]# x! }
(modify_3dface)
& E: ^+ I6 `- ^) ^0 D
)4 g J4 W! z% M# P, g! u* b' O
(if (= dialog-state 3)
: u, ]1 ~9 L. T7 n
(progn
3 y6 D1 d1 A0 v; V, a. E
(modify_3dface)1 r) q6 t+ q* H
(setq pt1 (getpoint (list x1 y1 z1) "\nFirst pt: "))
, d7 p3 y# o" W. T' w% f, ?
(ver_pt1 0)
9 g# C" i6 J3 ^5 k6 W" A
(dd3dface)
- T$ D, O e, t1 a7 e9 ?
)' j# a- ~4 _; u
)
, R" M% _; _: W* T4 n0 ^0 N6 u' l
(if (= dialog-state 4)2 d! X, q* p1 e9 c) l" q9 U
(progn
5 s" P/ d* j; I5 a: Z9 d6 p$ S
(modify_3dface)1 u: {$ z# J3 n2 r
(setq pt2 (getpoint (list x2 y2 z2) "\nSecond point: "))( r% m6 n- F/ Z& E
(ver_pt2 0)
3 O7 |' T! V' r% @; [( s9 K
(dd3dface). I0 T7 k3 r; @) d8 V3 _" q
)6 H' R6 J2 T) V" f* Y. J; ^+ P
)
( S% J6 T @# s+ Q3 V
(if (= dialog-state 5). }# {* T6 N" C' T
(progn; v$ g( O. q6 v
(modify_3dface)
! ? k0 c8 l- U
(setq pt3 (getpoint (list x3 y3 z3) "\nThird point: "))
% V/ R2 m4 W) G- h8 I
(ver_pt3 0)
1 S6 `! e$ U1 Z7 R
(dd3dface)
, c+ x6 d( O4 e7 f5 M9 ?: v
)
: w( O$ K& I" g$ T! n5 V/ ^
): T( m% Z; u! [. A* _, _) M* l& U
(if (= dialog-state 6)* |0 D# t1 o e. P: O
(progn% g+ [! g k$ Q/ w/ }; c
(modify_3dface)! v" a7 L3 i% l9 t9 y* i
(setq pt4 (getpoint (list x4 y4 z4) "\nFourth point: "))0 a4 N' H) ?' s. g) p
(ver_pt4 0)
& `9 z! y$ i; F/ r3 D' [ Y
(dd3dface)
# L4 l) ~' Z4 L; u( v, N
)8 `3 M$ G" e8 f# ~6 N D' {) Y
)8 |' ]6 l% A0 ?1 ^5 C
)# q! h. h# @4 O2 c# R: V# i; @' c/ D
+ \! v8 G1 _2 _3 L
;;
# C, m( r1 `& O) u( X) M+ a
;; Image functions/ @, }) I9 r0 K. L" P3 E3 A6 k
;;
* D3 }. X, H; B
(defun image_scale (/ upixel en n userscale temp)& K5 b- l2 V' z; N8 [2 I* v
;; Calculate the size of an image pixel in AutoCAD units6 E7 k# ?/ [ h6 F7 C& P2 `
(setq upixel (distance '(0 0 0) (cdr (assoc 11 elist))))5 H8 @% m5 p5 Q, U: O
8 k, Y8 R8 [) `9 G3 U* I' Y
;; Retrieve the user scale
1 m% v: S6 e7 i% R, P
(setq en (dictsearch (namedobjdict) "ACAD_IMAGE_VARS")); x! b9 S5 ]" Z1 U Z: T* x0 T+ g$ h
( _: }1 c5 [; n( Q8 s+ `
;; Next, extract the image units and pixel resolution" ^$ [9 R1 G7 U9 e) ^9 d+ K. k
(if (or (= 0 (cdr (assoc 281 image:olist))) (= 0 (cdr (assoc 72 en))))8 J Q* `/ e5 w$ u. L* O" |1 s
(setq image:scale (* (cadr (assoc 13 elist)) upixel))
8 x! Z; r D7 T6 E3 {8 S
(progn
, [. |4 h: W. o; d8 y
;; Convert the user scale to the proper word
$ d( L" [* i4 K' t b5 V/ f9 |: N
(setq n (cdr (assoc 72 en)))
/ e) K! s5 z" s/ T0 J' P( k# [& i( C
(setq temp (getvar "LUNITS"))
' L; v( @/ m# t% ?1 V
(if (and (/= n 0) (or (= temp 3) (= temp 4))) (setq n 5))/ K8 L: a; P* l
(if (= n 1) (setq userscale "Millimeter"))
# z7 w# ?7 p# b- N+ X
(if (= n 2) (setq userscale "Centimeter")) E6 h' |" d. _; K
(if (= n 3) (setq userscale "Meter"))% ^8 V& @9 F. }4 p7 P4 B, n
(if (= n 4) (setq userscale "Kilometer"))! z$ P' u7 C: }; q* X
(if (= n 5) (setq userscale "Inch"))- C" W u3 V. S/ N9 j
(if (= n 6) (setq userscale "Foot"))
6 N* b1 p0 J/ ?4 ~
(if (= n 7) (setq userscale "Yard"))
2 j4 L+ z7 [3 v0 n* E' `
(if (= n 8) (setq userscale "Mile"))
# F2 z! l9 g$ Z# M. c0 S& L
(setq image:scale (/ upixel (cvunit 1 "Millimeter" userscale) (cadr (assoc 11 image:olist))))
) K/ d- \5 T% s7 [# o2 i
)
* E( V' X' O4 U; H6 A- c8 W
)% w$ R8 h/ r+ u: r% B- c7 [
)/ c- c- T# l* q& M) {; i
2 |: G. F3 p1 t* j: w
;;1 H* `3 }8 I( U0 C: _
;; Scale factors for block insertions
! X4 x# K: f4 z; Z0 ?
;;! F$ m8 Y4 O0 B+ U! i* d$ d7 Y
(defun image_set_tile_scale (/ temp)
$ e% V2 k) D/ ]( X9 n
(setq temp (getvar "LUNITS"))
( v: d" W- S# I# A* V
(setvar "LUNITS" 2)& L- W- ~/ V U+ \7 z9 h
(set_tile "xscale" (ai_rtos (* image:scale image:mult)))# Q6 M4 j b' H4 ?8 O) \3 r* l6 y
(set_tile "wid" (ai_rtos (* image:width image:mult)))
' I+ e" C( W+ Z+ Q+ V3 [ x
(set_tile "hght" (ai_rtos (* image:height image:mult)))7 g- d4 s5 f8 I1 t B; l/ p' B w
(setvar "LUNITS" temp)9 {* C) L5 h0 i! P, n
)
, D- V8 o, @7 W5 Z
6 P* J# Q% q# ^% U8 A
;;/ V) q" E% g4 L- }& H1 j
;; Set the scale, width and height values appropriately.
( L, i- b: E; k, |: b. [2 f
;;
& f0 \6 R# u, A. P/ ? R
(defun image_update (field value / orig_value new_value mult)) b2 b/ V1 x* b( h& ]
(if (= field "xscale")
! R# N$ O3 t w9 v! g
(setq orig_value image:scale)4 P) H! f* @4 Y( M/ `
)
! X# S5 p5 h( q" E4 k
(if (= field "wid")6 x# r% S8 l% M9 O
(setq orig_value image:width)
: W% v' ^0 E* O) Y% a/ I. y
)0 f( ^4 ~4 v1 p& V; b
(if (= field "hght")
+ x0 ~# t$ \4 H/ `
(setq orig_value image:height)4 @8 r7 d) i; Y' m9 n
)
[+ m9 D8 Q8 Y! _
(setq new_value (verify_d field value (* image:mult orig_value)))
# ]+ A0 _3 D' \7 T8 _8 B+ b
(if (/= new_value old_value), q. q# n2 n4 d
;; Make sure the user has entered a sufficiently large value
; O9 F) S/ X) k! K! ?$ b
(if new_value6 o" X" k* F$ V N
(progn
; p8 m; ^- |+ u- o3 q( I; l
(if (< new_value 1e-8)3 A. g% d& F1 ~5 i$ C. L
(setq mult image:mult)( V5 R1 Y( x' m ] `8 C2 G6 _, x
(setq mult (/ new_value orig_value)) v+ Y, s7 \, V/ u
)8 C% \ b- g9 O' N8 g5 z
(setq image:mult mult)0 ~" f6 d- _$ N5 f0 p7 W0 ?$ s" D
(image_set_tile_scale)
8 B; T2 b) X( w
)+ C9 G" _& m: d4 k: n
)% X% R% Z" ?' }+ e( w4 J
): w2 g: [ [ m' p7 D7 g
)" ?; r. f- m+ e% j8 Q
) P4 Q! q) U) j* Q) _2 c3 _* b
(defun image_disp_opt (bit)
1 ` a7 P" a8 s
(setq image:options (Boole 6 image:options bit))
0 r& e9 T- U4 b+ C+ ~7 C
)" S7 \' y/ ?5 C! g1 h; w
7 y, b2 a6 `/ R$ J
(defun image_modify ()
" E; ^: r0 U' P+ f2 o x
(modify_properties)- b' }3 \, o: o: U C' |) x
(setq pt1 (list x1 y1 z1))
5 p) k) Z! o1 }( G; _. L
(tempmod pt1 10 0), n+ B. u$ B9 T: a% g# U3 k
(entmod elist)+ N: C8 L* W' q/ h2 Y- f. D" F
)
( s( y: g$ J. z
+ A& F6 U8 r+ I7 W7 |
(defun image_clean_variables ()
7 C5 L5 |/ Y. f3 A& K7 b
;; Clean up global variables used here
" |) y n( B7 ?1 ^; [
(setq image:scale nil)" |' @7 T; O, d# @( Q/ g
(setq image:angle nil)
7 D( @8 e6 A" u! L3 o# x: E( v. q0 n" t
(setq image:width nil)' v. m/ }" k7 r# N0 V
(setq image:height nil)# ^: V/ ?4 c0 ~ _
(setq image:options nil)' {: N% z) ?3 D+ \9 h
(setq image:oname nil)
' b, w- N8 J' J( b8 V, l& L
(setq image:olist nil)
; c- s8 u' K6 L; F6 J1 G0 p
(setq image:mult nil)' G. q0 }5 Y* f! T. F* U& Q U
(setq st_ang nil)
- |3 V: q4 Y; g, ~& l |' \
)
$ S% ]7 x% ~5 G! {; N- z
- i7 o% v+ D" [5 `$ \
(defun image_scale_vector (v1 value)
$ `8 a% l4 v1 r, X I) n, U
(list (* (car v1) value) (* (cadr v1) value) (* (last v1) value))3 v) z# W. g& F( l
)
( P$ Y4 T4 T' M$ P- y
/ Z6 @( G R& b' `4 h: E
(defun image_cross_product (v1 v2 / vx vy vz)
# K' [; O3 K% R/ ^. g& D
(setq vx (- (* (cadr v1) (last v2)) (* (cadr v2) (last v1)))). I6 ]: Q# e" Y
(setq vy (- (* (car v2) (last v1)) (* (car v1) (last v2))))$ M; {% Q# G2 X/ R) [5 Y) ?
(setq vz (- (* (car v1) (cadr v2)) (* (car v2) (cadr v1))))' n/ g' i9 p: a0 {1 Q4 H
(list vx vy vz)
! D1 m' n% i5 d) i Y- Y. Y! L
)0 g/ x4 s; y- O8 N
! [( ~( E2 y+ \9 R2 @" Y
(defun image_dot_product (v1 v2)
( x& B. g; }$ b: G# ]$ K
(+ (* (car v1) (car v2)) (* (cadr v1) (cadr v2)) (* (last v1) (last v2)))
. o" d$ K7 n% w2 g& R
)
: v& u3 @8 i2 _0 e$ k0 @' R
- e, W. ]4 ~% ?- }5 E
(defun image_add_vector (v1 v2)
$ u3 V( H# d+ F+ s" p
(list (+ (car v1) (car v2)) (+ (cadr v1) (cadr v2)) (+ (last v1) (last v2)))
3 \5 D: c8 \& b( v6 p& J" z
)
7 c# @! R& `) m) C
$ A* Y6 r; r% D% Y. ^
(defun image_subtract_vector (v1 v2)
. V' ^; O% T g5 s9 d, f) B5 x
(list (- (car v1) (car v2)) (- (cadr v1) (cadr v2)) (- (last v1) (last v2)))
I7 I7 P g& W2 Z9 T. U' B
)1 W% P( o- }2 O/ \
; y2 o4 g4 q7 a$ E" p. p
(defun image_normalize_vector (v1)1 K1 @3 d5 H3 v' `
(image_scale_vector v1 (/ 1. (sqrt (image_dot_product v1 v1))))# N1 U, t! W- L9 z. u
)
% Y, H0 d, w8 a: b8 R) `2 r
/ {; X2 M) v$ J& T4 ~% [
(defun image_rotate_vector (vector angle axis / along_axis axis_x_in_rot_plane axis_y_in_rot_plane in_rot_plane)' I3 I7 F9 \' @ I4 U
;; Normalize the axis
# k/ b0 {! c: p- A, o7 k
(setq axis (image_normalize_vector axis))
- V3 B- n2 E( [
(setq along_axis (image_scale_vector axis (image_dot_product vector axis)))* u- x$ n( `) h
(setq axis_x_in_rot_plane (image_subtract_vector vector along_axis))3 d" F$ U" d R
(setq axis_y_in_rot_plane (image_cross_product axis axis_x_in_rot_plane))8 J# V) @" T1 s# w0 G
(setq in_rot_plane
. j6 D! |" W. s
(image_add_vector& l4 [" w! L& q" e P
(image_scale_vector axis_x_in_rot_plane (cos angle))% c" |% T9 B4 J9 z$ c9 g
(image_scale_vector axis_y_in_rot_plane (sin angle))+ s& c4 x4 D( ` d2 X% v( b4 m
)" T1 G4 ^" ] Z, h& i, I) x, W8 k
)
(image_add_vector along_axis in_rot_plane)* U8 h& t2 b1 l) k% M* P6 X
)* Y) b7 l- {* F8 H* r3 y
0 \1 w' A+ W: E+ C* l
;;! o3 J3 } K5 H" M& Z
;; Calculate current rotation angle if appropriate.
, ~# t! u) w2 _* o3 \9 J3 j
;; If not, grey out the rotation field.
) n5 P* |! H4 I' ?6 O& v
;;, a) L2 l' J x# o6 k9 T- y3 z. [1 m
(defun image_rotation (/ normal rlength zlength sqrt_tolerance)
0 |/ t- j" @( \0 ~7 k
;; Determine if image normal is codirectional with
8 [ V- {3 Y; P
;; the current UCS Z-vector.* W7 r9 P. y% S% }; w; |
;;
+ Z% L- F2 F) J5 x/ e. p7 k* C
(setq normal (trans (image_normalize_vector (image_cross_product (cdr (assoc 11 elist)) (cdr (assoc 12 elist)))) 0 1 1))
" s8 y4 C* c5 g. j* l/ a. V6 v8 n! x
(setq rlength (+ (* (car normal) (car normal)) (* (cadr normal) (cadr normal))))" R$ L `; Q* v5 x" M: @
(setq zlength (* (last normal) (last normal)))
' ~: M) f1 Y2 [: r2 u( k( l1 Y
;; Note that the value .0001 in the radians is approximately 0.0057 degrees.
# \0 f; ^# c, z4 g" J8 M
;;
" G3 m( T' V2 f) P
;; cos(.0001)^2& d4 Q- K/ @' p
;; Tolerance = --------------
9 }/ \2 I; a4 i' h9 W0 V L5 v
;; sin(.0001)^2
) i; L5 g6 a" v7 {1 w/ f7 v
;;
& V5 P' N2 z u8 `( |0 ]( y
(setq sqrt_tolerance (/ (cos 0.0001) (sin 0.0001)))
9 h, F& t* b+ G6 G( k# w
(if (and (< (* rlength sqrt_tolerance sqrt_tolerance) zlength) (> (last normal) 0)); S* \8 L9 [. p# b* o0 W
(setq image:angle (angle '(0 0 0) (trans (cdr (assoc 11 elist)) 0 1 1)))! b- N/ E& W; E% g
(progn
! D6 S$ f) Z: H& P( \' u
(mode_tile "st_ang" 1)
8 d- T) g/ H: s6 v% l7 P, h
(setq image:angle 0). t" m6 Y Q4 ~" L
)
" T8 D$ b/ j n$ c
)
K+ D) s+ o; B3 i4 U1 _ {: M
) ]# m( t# t+ }8 q3 z0 z3 _1 O
; D8 E' |- U; X8 _/ R7 o
;;: J0 ?1 ?+ o( w. O9 B
;; Modify Image! ^4 q: e+ u6 j7 v" A: v
;;
) w! m$ o; v/ h4 c' O
(defun modify_image (/ u_vector v_vector z_vector)
, y5 {& j1 | [( X# O
(modify_properties)8 s& e: m% T! I- j, {
(setq pt1 (list x1 y1 z1))
6 [ M$ _1 Q$ f' o
(tempmod pt1 10 0)) U+ N- t9 O% j& m+ A
;; Make display option changes to image! e, Y9 D1 @8 ?
(emod image:options 70)
2 k' T7 t- t4 H8 F. y% a8 B
;; Get the u and v vectors
" w0 I5 P& O0 m
(setq u_vector (cdr (assoc 11 elist)))
- S* Y+ k5 b/ ~3 r' k+ ?8 S- \
(setq v_vector (cdr (assoc 12 elist))) b- E, h* g: w$ ~- E
& k I# C! j" h/ s- g! X
;; Make scale changes to the vectors5 N5 u& O$ q( q. F9 C
(if (/= image:mult 1)
# c% ]3 f! v# N4 \
(progn% o/ b1 F0 R8 r" p. h) a/ s
(setq u_vector (image_scale_vector u_vector image:mult))( v7 O- J1 t; K
(setq v_vector (image_scale_vector v_vector image:mult))
7 K0 o- a" @! g) q1 d& @
)) Q0 u7 I' J8 M, z" B7 j- Y
)# x+ P" A; J* ?$ D3 ]
;; Rotate the vectors& D/ Y8 o L7 P. Y
(setq st_ang (- st_ang image:angle))
! A' M5 E' C5 j/ J* X* f9 `
(if (/= st_ang 0)$ T# R* @# V3 c; i
(progn
% V! S! a ^; R' b6 ?6 \0 ~' Q
(setq z_vector
8 O& k5 V3 R4 A* g' t" I4 B4 h
(image_cross_product
( P7 v, R- j: ^6 k+ K8 [
(image_normalize_vector u_vector)# r0 w) x+ D. V' W0 `
(image_normalize_vector v_vector)+ N6 A5 g" J7 q9 m: C8 z1 l
)- H+ R) r! V9 i* E
)
* f: A; `1 c& z/ \+ q8 C+ m
(setq u_vector (image_rotate_vector u_vector st_ang z_vector))
/ C9 V5 f- K: f0 K, ^6 P0 p7 \
(setq v_vector (image_rotate_vector v_vector st_ang z_vector))
% s% [9 x7 x, O* ?2 s
)
, h9 S1 R( g b) G# A' P, n
)
" O8 k Z, g$ q! F& l9 `
(emod u_vector 11)# ~& L4 i e( H2 R1 {( d l/ B1 J/ c
(emod v_vector 12)
* w& [, t' w; d7 e* w
(entmod elist)0 q5 l7 z' `9 `2 t! e' D4 d
)& H. k) C+ S! H2 I) O" E8 C
- v( X- ?# M: |: n; O0 L
;;
! @- `4 L% K" d( D( s
;; Run imageadjust on given entity, working around possible7 X$ h: B, S7 R$ q, f- b
;; re-entrancy problems( v6 {. S" ]4 |2 B2 b" Y
;;1 ^: C# j. E4 {6 ~/ \
(defun image_adjust (ename)! T# l7 g' G$ f) O: S: i: `
(verify_arxapp_loaded "ism.arx") ;; make sure it's loaded...1 V* i& w% a; h: X0 D% q* @
(imageadjust ename)
2 x: R$ H# N$ ]. X, x$ k
)
% z/ J: c# j$ S& t, M+ e4 N% }
7 n: s/ H6 U; x% T- f5 V# I
(defun ddimage ()* a$ `6 h0 A" o; f6 v
(if (not (new_dialog "ddimage" dcl_id)) (exit))
; o' k4 t% s9 v
3 R$ ~+ V8 N3 h1 j) y8 y' }
;; Grey out the thickness field.
7 _+ h% j$ n$ F9 I/ G! [! [7 Q
(mode_tile "b_thickness" 1)2 B6 \) y0 j8 N9 M, I! I
(mode_tile "eb_thickness" 1)
, P7 x; X2 e5 ?+ e0 g
5 i$ N" Z/ H' _+ W7 ?7 d3 |
;; Get the associated def object.+ m2 |, J+ K5 m) w0 }
(setq image:oname (cdr (assoc 340 elist)))! K2 u1 c. h* [9 `) t
(setq image:olist (entget image:oname))
2 Z: ~4 l0 S/ O! s
: p, b6 i+ P9 D6 n9 v$ r0 W
;; Set initial tile values2 w9 {' n( m4 @' m: U/ Q; n8 f
(set_tile_props)
" v$ n( ^% o, q7 M& D# ^/ r
(set_tile_handle)3 X' X% \0 @4 z* ` j3 j
(set_tile_pt1 0)
/ p2 ^! D- J+ h" S
(setq image:scale (image_scale))
+ R9 A& T1 B- ~5 r) f$ s( S: p. C
(setq st_ang (image_rotation))/ _8 \4 }$ c: F/ P$ d2 o# S% r* i
(setq image:width (* (distance '(0 0 0) (cdr (assoc 11 elist))) (cadr (assoc 13 elist))))3 c0 e3 t2 x' q- x3 f, N6 c$ U8 g
(setq image:height (* (distance '(0 0 0) (cdr (assoc 12 elist))) (caddr (assoc 13 elist)))) o A) u5 v1 l. x% R* l
(setq image:options (cdr (assoc 70 elist)))+ Z p0 H/ f( b9 l0 }
7 @1 q+ { V. P4 I0 x
;; Record the last multiplier for use in image_update function' {4 a X( t' |8 w8 k
(setq image:mult 1)- W" i, F( ]# i' V
: v; q+ ^# {* [
;; Retrieve the image name4 }$ a; I# ]* ? Q7 B/ b4 ~& N
(setq fn (reverse (dictsearch (namedobjdict) "ACAD_IMAGE_DICT")))5 w$ x" L% x! Q8 s
(setq flag 0)
4 Q, r7 W: L( g/ B: \! S
(foreach n fn
% G* C" G* Y9 A) Z$ ~5 v& _
(if (= flag 1)
' c' Q5 Q! l$ C0 V
(progn! F8 {8 P/ ]9 U* w* a. C
;; Display the image name
$ F8 ?: {5 S7 I5 I: _
(set_tile "image_name" (cdr n))
# s0 M/ |5 \0 c9 i8 S, A' c
(setq flag 2)) J3 ~; J+ G) c+ y
)
- ?- q& n% ^0 \+ t* i
)0 B q9 a2 Z# v' N4 X" t
(if (= flag 0)
( H% X* p, h. P' {) V7 M& h
(if (equal (cdr n) image:oname) (setq flag 1))
4 e5 X [2 X x* A: Y
)& [( J4 x+ f9 {$ r0 J* ~' D
)' U* j2 q0 k2 F. X0 H. H* v
+ b! Q2 {: x* M" |4 \
(set_tile "image_path" (cdr (assoc 1 image:olist)))
# d, r5 M0 z" e7 m* u
(set_tile "st_ang" (ai_angtos image:angle))
, d. Q7 q* D {
(image_set_tile_scale)
2 x/ e# L( m6 q5 o0 t* o9 @
3 w/ x, E _- J2 ?$ O) v
;; Check the appropriate boxes
3 l$ B+ f! G! K& q7 [& ]; G. [
(if (/= (Boole 1 image:options 1) 0) (set_tile "image_show" "1"))
; h3 ]0 ?; U* @2 X: @% A
(if (/= (Boole 1 image:options 2) 0) (set_tile "image_non_ortho" "1"))7 t! g% \0 @- i$ C- u( O
(if (/= (Boole 1 image:options 4) 0) (set_tile "image_clipped" "1"))5 r2 `) f! ^ o: a N
(if (/= (Boole 1 image:options 8) 0) (set_tile "image_transparency" "1"))
, o' P# E9 A; G" U+ b
) [. ^5 A; \. i$ _5 O, v& z4 |
;; Define action for tiles
0 W" ?' ]3 O0 t( b% m8 A: }
(set_action_tiles). Y2 |6 n& i9 E9 A$ `: q2 A& M
(action_tile "xscale" "(image_update \"xscale\" $value)")5 Y b4 m& i9 s* N l7 \3 y
(action_tile "st_ang" "(ver_ang1 $value)")
) x+ K: ]. S h! T+ |' j
(action_tile "wid" "(image_update \"wid\" $value)")3 B- ^3 l0 a8 p% b: }
(action_tile "hght" "(image_update \"hght\" $value)")' Y: Y4 p. R5 x
(action_tile "image_show" "(image_disp_opt 1)"). a H( I% w, A+ e
(action_tile "image_non_ortho" "(image_disp_opt 2)")# u3 a8 y( B. [" k$ q/ W
(action_tile "image_clipped" "(image_disp_opt 4)")
; F) ?* w* `! N
(action_tile "image_transparency" "(image_disp_opt 8)")
7 s& Y% E' E6 W" `% I! g3 }# ]; t: [
(action_tile "image_adjust" "(done_dialog 4)")
$ e5 x# @7 }! r% f- F5 a% s
+ V4 D, m, ]. e
(setq dialog-state (start_dialog))
# F# [4 \6 |" t/ O
(if (= dialog-state 0)
5 p, J. G) K7 {8 e, h1 W! q
(progn
2 k4 j% h& g0 n* Z5 }+ Y
(reset)
; K% r/ y0 ]) B5 U
(image_clean_variables)
! z7 e2 `- u; a4 B4 w
)
8 _( J& m3 y& Q9 d- F5 ^3 k
)1 N$ c0 g" ~, R- \1 d
(if (= dialog-state 1)
, ~. ~/ V- o7 f5 X- N F
(progn
# C. x) z, S0 |* M# k" R
(modify_image)
) K; b) o' e+ S
(image_clean_variables)
' v/ j( W P& p" h* i2 T; y
)
( g8 Y$ O4 W: U6 c; \
) |7 C1 m+ a1 v7 ~; y0 K
(if (= dialog-state 3)8 {, [7 I$ T5 m0 w) [/ J2 P: m& p
(progn! ^* r" H; l7 m9 w, T" y& T" K8 O4 p
(modify_image)
1 [6 Z; @/ t% R' w1 `: d7 u
(image_clean_variables), r6 h: C) |& l4 K
(setq pt1 (getpoint (list x1 y1 z1) "\nNew Insertion Point: "))5 k! ]) E$ r4 t' d3 F z) H y* g0 M
(ver_pt1 0)
& O5 m3 W/ m: t
(ddimage)& `3 T( [- O5 p2 {+ x' _
): ~; O! V4 J) B6 V$ k
)6 r0 Y! F$ Z4 C) [ ]
(if (= dialog-state 4)5 l: @8 t5 v R u$ Z
(progn
' L. a. q; C- T$ c" y+ B7 w- b
(modify_image)2 R/ }" C \2 Q& Q& Z
(image_adjust ename)
: E) I9 S4 V* H5 o: e
(setq elist (entget ename))% J9 c; N; ~! _9 _7 n/ W# ~
(ddimage)" T1 [! E! {3 Q' J. U w
): B! X- a' T' A' a; t
)$ A+ Z9 }! f- N7 r9 c- }
), w" A+ M3 u, [# b# ?+ P( E8 r5 Q
$ e5 ]1 x+ _* i. Z1 L! q, s
;;4 r( J- t; \" v7 k( p* C' {
;; Modify BLOCK (and its Attributes, if any)1 B+ ^! G& }$ m0 x" z! n
;;8 n1 w! D- `' \! d, m4 h
(defun modify_block ( / el en2 p1 p2 oldp1 oldp2 new_hgt old_hgt attr9 f7 `% d! T' {: k2 K; w) Q; w
new_wid old_wid old_rot scaling old_scale) u0 e/ H9 c+ L- g$ w
xdelta ydelta zdelta xbase ybase zbase ipos)
( G5 V. g( x6 i0 c5 h0 d5 @
(modify_properties)
3 S3 R7 L: b0 u& H
) R2 |4 h7 Q K
;; First, translate and scale the Attributes, if there are any.
$ I3 z% c8 a; N8 H7 J0 q+ I+ Z: j
(setq old_rot (cdr (assoc 50 elist))! a! W$ M F8 L. |* y7 J- C1 v& k9 S! e* u
old_scale (list (cdr (assoc 41 elist))
6 Y' C+ [( ]6 Z- F% A$ h- S: u
(cdr (assoc 42 elist))
' F3 b5 B: b7 S. z* r* M
(cdr (assoc 43 elist))
% J" S- C$ @; E' ]" @
)
1 q+ N& D8 ]- |/ \' k Q
scaling (or (/= xscale (car old_scale))! P- h) x$ x4 ]. ^, b. e$ Y
(/= yscale (cadr old_scale))
) \ Q' G* G" p) [4 E2 t( K& z
(/= zscale (caddr old_scale))& ]( B$ F; o$ f1 f
). L0 J8 V0 V1 W
attr nil ; No Attributes modified yet4 ~3 I- s* _1 B- v o3 A; ^
)* P/ I2 {" T# ]+ P$ J2 R) `
(if scaling
2 o9 F9 m% ^4 ^+ Y! Y9 Z0 i' v
(progn2 t( ?& k" v5 L2 X3 q, w3 X
(setq xdelta (/ xscale (car old_scale)), x6 [4 t5 q! V3 k
ydelta (/ yscale (cadr old_scale))1 T4 [0 n) M0 v& ^, c2 J
zdelta (/ zscale (caddr old_scale))* v9 F& u, }6 j8 C1 U
ipos (cdr (assoc 10 elist))! U9 D% ~, z: r' a' q! m
xbase (car ipos)
' _3 |5 W8 y, B( x+ c
ybase (cadr ipos). b/ \: H" F7 N [
zbase (caddr ipos)
5 d! Y7 K) }" _6 F* N
en2 (entnext ename) ; First Attribute& \% T7 W0 o! R5 l0 X! z
)
2 W) S# F s9 k3 C
% }8 ]0 S- f/ M+ Q1 r% X" \
; If the Block is rotated, temporarily un-rotate it, along' a, l4 a/ H+ X d- F; x2 K
; with all its Attributes, so the scaling/translation of the. f) x0 A0 E* E4 e
; Attributes won't have to take the Block rotation into account., A6 i+ {2 e1 K
(if (/= old_rot 0.0)) r% F F( d- G( `' ^8 W& D+ a/ ]$ m6 A
(progn
3 d3 P! z, s. C4 N
(command "_rotate" ename "" pt1 (ai_angtos (- old_rot)))
5 ]* _+ G% b0 ^1 T) Y1 R
(setq old_rot 0.02 n2 I9 |4 I/ x* E8 ` U+ {
elist (subst (cons 50 0.0) (assoc 50 elist) elist)3 v1 W! V* a; N$ T, R1 T
)) x' k* j6 e" j9 J* c
)
. ~4 _8 M0 i# X' Z I& H
)8 G: W) q, G9 ]; e; x
, k# t+ A) l y Q/ m% F! h6 S5 M
(while en2* Q2 I- F/ T0 f* u
(setq el (entget en2))/ W* }5 ^" |% _4 A7 o& m
(if (= (cdr (assoc 0 el)) "ATTRIB"); ]0 H% b1 x9 j* l
(progn% w: C. C2 ]8 i
(setq old_hgt (cdr (assoc 40 el)) ; Height- g9 v3 I% T9 Y: z2 Y
old_wid (cdr (assoc 41 el)) ; Width-factor! f* I" N8 Z3 m) P' W. ? r
oldp1 (cdr (assoc 10 el)) ; Generation start point4 k d& Z) c- \. c. d$ t3 B
oldp2 (cdr (assoc 11 el)) ; Optional alignment pt6 N8 N! U( ?& v
ha (cdr (assoc 72 el)) ; Horizontal alignment
/ W6 ^2 N5 Y, b D T
va (cdr (assoc 74 el)) ; Vertical alignment
4 ?# |$ Y6 Z7 F0 C/ ?7 C% r. O
6 S; J$ S$ g/ o f, j7 q
; Translate gen. start point; _4 Z$ K ~* ]6 |: B
p1 (list (+ xbase (* xdelta (- (car oldp1) xbase)))
, O/ V* j- j" U$ b" G4 V
(+ ybase (* ydelta (- (cadr oldp1) ybase)))
9 W% y% j9 K2 v6 ^2 I5 A3 t
(+ zbase (* zdelta (- (caddr oldp1) zbase)))- K+ r V% O% d6 m; G& X/ ^* i0 J
)
1 Q) v! n0 c( j7 A; i4 u
el (subst (cons 10 p1) (assoc 10 el) el)0 A+ o; `8 s- N4 C7 m% T
)( V. b! L( e' a8 \, L( I$ A
! n1 h; w* ]: ~8 }& n6 a
; Translate alignment pt similarly, if present and applicable
4 ~% b7 }1 h3 w6 d6 @+ p8 M
(if (and oldp2 (or (/= ha 0)( E5 y$ _5 M+ f2 E' k
(/= va 0)
* U m/ z' |7 Y1 m5 @) w
)5 M. B& B' n- ]# F
)
, ^! z' B" |4 A7 J% e
(setq p2 (list (+ xbase (* xdelta (- (car oldp2) xbase)))2 f. G) @" v7 W. B6 V" c( G
(+ ybase (* ydelta (- (cadr oldp2) ybase)))
. P( ~, z6 m% c9 U, x9 p
(+ zbase (* zdelta (- (caddr oldp2) zbase)))
$ M- Z1 [9 V1 Q6 l
)
l- u& J% o! V/ \
el (subst (cons 11 p2) (assoc 11 el) el)
$ g7 d' W# Z6 b+ ^
)
* D8 C! w8 `: T- i; ^) v1 P
)
( c5 y" x' ?. k
: a I9 P; p' z% {- v4 S0 a
; Each Attribute's height and width-factor were computed/ q+ G) j) f3 m: J1 ~1 o7 b
; based on the Block's scale factors. Adjust them now,$ D: e9 K. s( i& T9 g, {# a+ l1 r, D
; by first reducing to values for 1x1 scale...5 u% K$ E; S( }# |* ^
(setq new_hgt (/ old_hgt (cadr old_scale))
" w' f8 ]- h' ]0 x; Q
new_wid (/ old_wid (/ (car old_scale) (cadr old_scale)))
2 w) F) M1 |) l: I# l9 `% F& i" P% }
)
! U% Y I0 {) Z8 n3 c/ x
; ...and then rescaling.
1 z2 |- D# ?7 _# A: M+ q
(setq new_hgt (* new_hgt yscale)
i, Z+ O/ c$ l! {6 A7 T* V
new_wid (* new_wid (/ xscale yscale)). C( a4 U( K# K3 k) v
)
: U S- ^2 V! ]6 s8 q Q. Z
(if (/= new_hgt old_hgt)3 g8 _4 X+ W4 a L5 O0 ]
(setq el (subst (cons 40 new_hgt) (assoc 40 el) el))
' e& M3 D" C6 F8 u& }1 |
)
9 x2 \3 K- N9 g5 }9 W o
(if (/= new_wid old_wid)& U4 x# z- S" p+ ^
(setq el (subst (cons 41 new_wid) (assoc 41 el) el))9 x6 u" t" F0 l" M7 P
)4 A1 e; n) S( \% E4 L2 B
(entmod el)$ N" }. s2 S8 B! V
(setq attr T ; At least one Attribute modified
1 S5 J5 l/ m0 m; e
en2 (entnext en2) ; Next Attribute
* y( |# g3 U; @
) p0 c0 H. Q, ], k
)
) J& p" d% R0 Z0 C5 H( @$ K
(setq en2 nil) ; No more attributes! ]1 D; X6 V. d
)
- E' ?4 D- q1 o3 i9 \) ]
); m: W& `. \2 E; ^' z8 ]
)
7 R7 F7 R* x& v$ Y6 |3 t
)
& z. ^2 P; A6 b
- ^( ?5 ^4 n6 Y1 \* H- c
(setq pt1 (list x1 y1 z1))
% o) ^0 q* ^5 ^& i4 ^4 J
(tempmod xscale 41 nil)9 I3 v. X0 x, E6 [5 C( b
(tempmod yscale 42 nil)- Y$ O, }( r) N; r" C- m* L
(tempmod zscale 43 nil)
$ k1 C/ a, N2 T
(tempmod col-sp 44 nil)
, [- x2 U& f. o1 K% V2 e9 K
(tempmod row-sp 45 nil)8 a! O- P' X4 m) `3 A( t* Q
(tempmod columns 70 nil)! e0 x0 m1 Z4 {5 z2 i, R4 M
(tempmod rows 71 nil)8 X( F% d- K+ p# B4 F% Y/ ^
(if (= xclipmode nil)+ Y( I; o& x2 Q, F: U- z
(entmod elist)
5 T8 k( g/ H! M6 ?
(setq xclipmode nil), w% a+ r3 i+ r. I2 l+ W
)$ A# Y1 M( `* ~% l% e4 q
(move_pt1 1)( C, d/ q5 [9 x
) Y$ r7 S/ a' g* i
;; Now do the rotation with the ROTATE command.
" t+ `# C/ n* V4 [; [$ C. D7 p# H
(if (/= old_rot rot)
" D, w# e& K/ y
(command "_rotate" ename "" pt1 (ai_angtos (- rot old_rot)))2 B7 u/ @8 Q; F* S( k
(if attr ; Else, if attributes were modified,* `; v' h {! g
(entupd ename) ; just regen to force attrib display3 v4 l, E4 X; {& H9 o
)
b& Q; r9 t# b/ W' o! w! N' {
)* D1 B" r! z$ c; k* z
(setq elist (entget ename)) J# q' O x9 f( ?. w9 m% |% `
)& |- V0 q, c) ~& B" D8 P8 V
(defun ddblock (/ temp temp_xclip newhatch blkname blklist blktype program xrefpath)
& s9 Y& ?' N" k8 F$ o! K
(setq newhatch 0)( ?$ y1 _6 i" G
(setq blkname (cdr (assoc 2 elist)))
7 I e0 r( u+ V4 R) }
(setq blklist (tblsearch "block" blkname))7 T( `* p* g7 U: p
(setq blktype (cdr (assoc 70 blklist)))) K/ Z) _8 h7 O+ [7 Z2 {, l0 F7 u
(setq xcliponoff 0)& V' Q( P6 B5 s8 o
(if (or (= blktype 0)(= blktype 36)): v7 f: [8 S4 D: N0 P( E- a3 u" X/ @5 v g
(progn3 ] g# [# |% A0 k, h! D3 d) t
(setq xcliponoff (xclipon elist))2 s# r- M1 c: f$ V
(setq temp_xclip xcliponoff)* q& A5 L2 s! @" a) z
)
3 q7 e( c! B% v
)
( K! }# e& {& {
(if (= (logand blktype 4) 4)
- u2 q# ~; v, K2 O" p- a
(progn- g2 Y9 C1 I# {6 c/ G% d( s1 a; ?$ d
(setq xrefpath (cdr (assoc 1 blklist)))2 t% Q2 p( I( O$ F4 j- [* ^' r
(setq help_entry "modify_External_Reference_dialog")+ J( ]. V; {% \9 R. h
(if (not (new_dialog "ddxref" dcl_id)) (exit))- t6 L( S( o* A* D
(set_tile "Bl_name" blkname)- Z$ q/ _* C# x; P6 M
(set_tile "path" xrefpath)
$ G; s, ~4 M |" b) i* P
)7 u1 O# J7 c6 y' S5 U
(progn4 i! a0 S- d) b' v) H/ x' {
;; Get program name for use as Xdata app name
0 r, E: D1 v1 R. y! H$ Y
(if (not (setq program (getvar "program")))
+ Q! V( C+ [$ w
(setq program "acad")- ?, Z! ]6 p/ C% Y
)+ t5 c M9 ^7 J* R. n8 M! R5 b
(if (and (setq temp (assoc -3 (entget ename (list program))))& R4 Y0 F7 Z- \# b. U( t" V
(= (cdr (assoc 1000 (cdadr temp))) "HATCH")
2 _' `+ Z3 o$ r& c; K
(assoc 1005 (cdadr temp))
+ m) c$ W3 b I- I1 O
)
\% R+ H G2 c# ?7 t6 _ C7 K
(progn
8 o/ P# q2 o. O+ |6 C7 l0 [
(setq newhatch 1)7 V6 ]0 L" L i0 u, J, v
(setq help_entry "modify_Hatch_dialog")
* J6 |3 F3 }2 X# [
;;; convert the object into a new hatch$ j" F( Y. x7 C4 d6 H; } M& M5 l
(ai_undo_on) ;; enable undo
9 m" t) S& x# b7 U+ r6 r- |# V n" X
(COMMAND "_.UNDO" "_Mark")
5 C0 F: h) E3 q2 p4 U& j! L
(COMMAND "_.CONVERT" "_Hatch" "_Select" (cdr (assoc -1 elist)) "")
. {; T% U$ t# w
;;; suppress nasty message from convert command$ w# ~8 l7 y* T) j, }. W" l
(princ "\r \r"), `3 H0 E/ g$ v- F5 H3 s! r! x
(setq elist (entget (setq ename (cdr (assoc -1 elist)))))$ X; y6 y* ~) P+ o1 n# S
(setq old-elist elist)4 O3 U0 h4 K8 Y& c
;;; If we have cancelled ddmodify) _6 x& J4 W/ b
(if (not (ddnewhatch)) ;;; (ddnewhatch) returns nil for Cancel or T for Ok2 {/ J4 J3 G6 W( z
(command "_.UNDO" "_Back")
9 _- K( B5 d6 j+ T- l+ y
)3 F) j1 D: p3 ]9 o4 i Y
(ai_undo_off) ;; restore undo state
) _) Z k- s) n' ]3 @
)
8 J$ d0 T9 u) k _
(progn
5 O" i; N4 S6 y+ S& C! c0 z9 {# l
(if (not (new_dialog "ddblock" dcl_id)) (exit))
4 q; F2 X4 p0 d
(if ( = "*" (substr blkname 1 1))0 P; h! M3 i3 B, d9 J5 T( R: k0 ]! Q
(set_tile "Bl_name" (strcat blkname " - Anonymous block"))5 L: t) Y4 d2 {& R4 M- \ X0 R
(set_tile "Bl_name" blkname)* q% ] w- l& B9 D. P8 `9 p' U; W8 t
)
9 n$ p' z! z: ~2 \' J
(setq help_entry "modify_Block_Insertion_dialog")+ i9 _$ c3 b3 F) U- L; `" |' ^
)
9 {' d/ }; ?; a! }" G$ a& c( `8 }) u
)
, j8 |: f) @2 _
)6 w# W; V3 k, A# X
)* a7 c5 {5 O+ P6 O6 x
(if (= newhatch 0)
9 k; ^7 k+ }5 J6 n* s: _' F" h
(progn6 e9 t& y5 `7 P- A5 [ a, k: e
(set_tile_props)) |, Y5 @* B; ?# R& g( Y( a) s
(set_tile_handle)
% Q& ]* @& n! U
(set_tile_pt1 1)
( [' {+ t M: x" v, m! M. g
(set_tile_rot)
, C9 x+ A. r: |9 `) C$ F
(set_tile_scale)3 {, R% e) [! o- J. j
(set_tile_rc)( b. s) B' ^4 ~) l1 j+ V% S# j* G
(if (= (logand blktype 1) 1)
4 E8 T1 o5 A9 }3 f; r* D
(progn
- K5 q7 v* [( _( x3 m& J
(mode_tile "xscale" 1)# g/ b4 F$ z8 |1 I1 P5 H7 `0 O, D
(mode_tile "yscale" 1)) x3 b- _8 K5 r; w
(mode_tile "zscale" 1)
( Y6 ?9 a. O! ^* D4 Z4 Q I
(mode_tile "rot" 1)
, q7 O, p% S0 y& Y1 v. v
(mode_tile "columns" 1)' ]! h: Y# |) ~" Q7 T+ P
(mode_tile "rows" 1)1 s+ ?/ J& _. f* ?0 {4 h/ t
(mode_tile "col_sp" 1)$ q( R2 E; t$ i2 }5 E! y. [ M
(mode_tile "row_sp" 1)
. T& Q/ t0 b) O! d! R' K4 m
)
$ y7 z; l- K) F7 {1 I; {
), d& p6 q! v+ {1 C, w
;; Define action for tiles: e0 R: W! `; g& m
(set_action_tiles). b/ e( i( { t8 U; Q& M
(setq dialog-state (start_dialog))
' E+ @7 L ~3 C$ z
(cond
" y5 o: t8 E! w7 U% G7 ]( E
( (eq dialog-state 0)
1 i; U. K' N" i1 x1 y
(setq pt1 (trans (cdr (assoc 10 old-elist)) ename 1))) v, ~' b$ n/ R0 ?$ }
(move_pt1 1)
! B1 [0 D, j( x3 v" g) R' p
(reset))& s" c) J$ H+ @. Q7 }
( (eq dialog-state 1)
% e& `7 k7 i$ a3 q) E6 d
(if (and (/= temp_xclip xcliponoff) (or (= blktype 0)(= blktype 36)))
+ [ W+ R5 f/ b) U* U
(xclip)5 j& @( t& P/ ^" \% u
). y9 p7 z7 L2 w1 T3 G2 V- M
(modify_block))
, @: d M7 f- r9 r! A
( (eq dialog-state 3)
% @% p. Q/ i1 n% g2 _4 t
(modify_block): O8 e, z: l9 s G. h. `
(setq pt1 (getpoint (list x1 y1 z1) "\nInsertion point: "))
7 q8 o9 i% ^4 T' Z1 [" i
(move_pt1 1)
+ U- ^& f' b' o8 W* n8 G$ Z T
(ddblock))0 b1 e* P' D" g4 q' ?; L
( (eq dialog-state 4)" O; Y, I7 M) w
(modify_block). a$ M! }1 z. x) n3 W( H
;; Get current handle.
& V) ~! p/ u r2 Z
(setq hand (cdr (assoc 5 elist))); A* l, b- F P+ R# M
(command "_hatchedit" ename)
$ u* C* B! H D* N
;; If OK in hatchedit, a *new* entity is created and the old one
, a: R: r$ m# [" e) W$ Y h2 X
;; is deleted. So if the old one exists, it must have been a% B6 B# q* M9 T+ i
;; so rest the entity.* y" g5 f/ O5 L2 g
(if (entget (handent hand)) (reset))
9 g' S2 L* E) I6 G* b3 K
). O. U; C1 _0 Q; b# |# a- {
)2 x" T. k: E# B$ Y% e
)* Q5 E4 z! ], I8 S
)8 z: S3 T/ s* H: m4 F+ ~
)$ D* ]2 O$ B" k/ K
;;
/ @; J* [- y3 q" V8 A" J6 t
;; Modify SHAPE( n# M# C* Q' Z0 p) _/ p
;;
3 X H" c' N( R1 j, O
(defun modify_shape ()9 w, a5 E+ W- U# e c0 p
(modify_properties)
, c( A1 U+ h1 | A
(setq pt1 (list x1 y1 z1)): Z6 o5 R% |' D" N
(tempmod pt1 10 1)
& Q. B+ {, Y. L
(tempmod hght 40 nil)) B) ~# {) N7 ^. H6 Z6 ~
(tempmod wid 41 nil)
2 b4 z+ ]' c3 [- {! r* Z
(tempmod rot 50 nil)2 Y! e) {5 M2 p/ Q" L5 U+ c
(tempmod obl 51 nil)
! ~* o' R" X+ {
(entmod elist)' Z2 v. m% m1 @/ x
)1 ^+ M5 e1 `& K% Y
, ]. h" J+ K: x. J- n9 T
(defun ddshape ()- A1 c" O+ d! ^* a( I: v
(if (not (new_dialog "ddshape" dcl_id)) (exit))4 s" G3 d. Q0 `! {
(set_tile_props)
/ i% k& y9 v- [! X9 G2 b. x0 l) _: h2 V
(set_tile_handle)
" q( Z) _$ w: O7 |' I: q9 [
(set_tile_pt1 1)
: O6 h% p7 x2 h6 g# J& m3 D
(set_tile_rot)+ U8 [3 r* Q% D Y! [. B/ E! B
(set_tile_hght)5 T0 y: ^; s- k) E
(set_tile_wid)
(set_tile_obl)+ d# Y4 i' j+ p8 s" Z
(set_tile "sh_name" (cdr (assoc 2 elist)))3 H' |! ~& K& D
;; Define action for tiles
: }# H- z; w6 m
(set_action_tiles)
6 e4 Y/ w1 |& i, }! I# ]5 ]. |
(setq dialog-state (start_dialog))
G% @- V/ T w, w
(if (= dialog-state 0)
/ D- g+ P* w% T# l8 L
(reset)
_4 ^. G5 S1 v
)
/ S* ]& e1 T! d: s6 F
(if (= dialog-state 1)
$ J5 K+ N) _+ E0 S( ~! S
(modify_shape)
8 n# `3 V7 v$ b- p& d3 G7 ]% F
)# Y6 k7 @, k: m1 |
(if (= dialog-state 3)$ y$ v! u- `# i& n4 x- A
(progn
# S7 O: Z, H+ U) ]3 |6 k, ?
(modify_shape)! o9 C3 S5 j3 i
(setq pt1 (getpoint (list x1 y1 z1) "\nInsertion point: "))
1 _' q# s- }! `4 B* j! ^7 e% l/ H
(ver_pt1 1)
: `( @2 u& T- h- N9 W; Y
(ddshape). s5 P; A' \+ ?: D: _+ L/ |" S
)) M2 M5 {, Q& }9 m! F
)
l4 G/ J" `( _+ u
) ]+ I6 D7 j" W! Y: @
;;5 |3 S3 [$ Q% Y& E
;; Modify TEXT or ATTDEF
0 O# Y( L1 C9 y) j F$ w1 M. K+ n
;;
5 `. Z2 b* A6 J, _) ~% F+ t
;; Set bit code for upside-down and backwards setting- w+ t& i5 ]. O- B4 V( E
;;
8 d. o% d; u/ b. z
(defun code_71 (). H9 ?; h2 O1 D4 d4 Z( U
(cond ((and (= bkwd "0") (= upsd "0")) 0)' {) ^. s$ n$ _
((and (= bkwd "1") (= upsd "0")) 2)
1 d5 k: [3 M v* K* ^
((and (= bkwd "0") (= upsd "1")) 4)4 g7 S% g* o4 j
((and (= bkwd "1") (= upsd "1")) 6)
8 X: O. M* F3 `( J6 i- J
)7 P0 K/ c# ?4 u3 x- p0 p5 X4 ]
)
, F' p; z0 s, }3 U" T
;;" _9 u+ \$ ?: y4 U. V6 V- ]& `4 v( J# L
;; Style action. Reset widget values to style defaults
" d( F9 d$ S' e5 |
;;
8 ~2 r, J* ? g1 h1 u) U
(defun style_act (index / style-list)" h: x& e, D9 s# k% `/ W5 T
(setq style-idx (atoi index))
6 {0 `) K0 u- P1 i
(setq tstyle (nth style-idx slist))
! H4 x/ D( y) i6 N2 y0 ]+ {) B7 Q
(setq style-idx (itoa style-idx))
# c+ _& l" A4 E/ g2 L
(set_tile "style" style-idx)' W# C7 ]* @' v( A2 N( ^3 e
(setq style-list (tblsearch "style" tstyle))6 l* P- S% x& t7 E% G
(setq shght (cdr (assoc 40 style-list)))
% J' n7 B) W6 A" J" [9 r8 k
(if (/= shght 0)
/ u" W" J8 A% w" Z# ]* i5 A
(progn1 l- K8 O5 T" L% }0 g% X
(setq hght shght)6 O* G9 M! {% B8 q5 J+ |
(set_tile "hght" (ai_rtos hght))# C8 k! B! {5 l# ?% l/ C( E
)+ R9 Z# @* {4 [: W; L3 B0 o' J0 d
)
2 I( K* |9 C3 j) j
(setq wid (cdr (assoc 41 style-list)))
: i, w7 Y0 h) u" q+ w, c! ~* ?
(set_tile "wid" (ai_rtos wid))4 Z1 ?) X N h* t5 ?4 Z
(setq obl (cdr (assoc 50 style-list)))
! f z8 Q6 @: B' G3 D t
(set_tile "obl" (ai_angtos obl))
7 t) Z1 _* G7 P/ |
(setq bk-up (cdr (assoc 71 style-list))): f5 e, Q$ Z, D9 l/ _5 T
(if (= (logand bk-up 2) 2)
2 c8 t& E) I5 |; z _. y; W( ]
(set_tile "bkwd" (itoa (setq bkwd 1)))
3 ]0 |3 [/ s4 s2 x( s% f) _6 Q+ C
(set_tile "bkwd" (itoa (setq bkwd 0)))
. }- P) R/ S# G
)0 c) R1 c+ y/ C! f4 p/ m
(if (= (logand bk-up 4) 4)
# w# R. v+ h1 m; m6 \2 ?) g
(set_tile "upsd" (itoa (setq upsd 1)))
7 s ]4 E1 m- r; A2 ^+ V* ~
(set_tile "upsd" (itoa (setq upsd 0)))
: R0 F- a" C9 s8 O( V
)8 H2 T. Y4 a- x6 k7 G
)
4 f9 u3 D# ~# }) f9 J3 f
;;! u$ }- o1 o2 q- S% C' Z2 J0 x2 \
;; Justification action. Set vertical and horizontal alignment variables,: `* d, i" W( [
;; grey out rotation and height if alignment = "aligned", grey out rotation
9 b0 a- S5 v" Y1 X {, Q% }" G
;; if alignment = "fit".5 z6 d3 K/ ]& [* a0 H- I: o
;;5 l% o' |! d& V
(defun jlist_act (index / templist)7 @+ ], J, a: d. Y* j
(setq just-idx (atoi index))
3 M" o& V6 v! J5 E, H& B
(cond9 d+ ?- V- @# Z8 P; j% P
((= just-idx 0) (setq va 0 ha 0))
. Y* R. F( U) S5 s# ~1 K+ z
((= just-idx 1) (setq va 0 ha 1))" c" u, e. a0 Z
((= just-idx 2) (setq va 0 ha 2))
. ^) F; }& z$ d- T O$ N7 z
((= just-idx 3) (setq va 0 ha 3))
* b* _+ E* E& I/ d+ f
((= just-idx 4) (setq va 0 ha 4))
3 o) u) S' v6 _* t( Q
((= just-idx 5) (setq va 0 ha 5))
% h! }2 A8 o6 O. m
((= just-idx 6) (setq va 3 ha 0))
2 K8 n* @" w# _6 l
((= just-idx 7) (setq va 3 ha 1))4 v: [: L" {: O8 s5 J5 S
((= just-idx 8) (setq va 3 ha 2))+ |3 w$ n- k! l" w! @% Y9 ]
((= just-idx 9) (setq va 2 ha 0))
t6 f- j. E$ H$ g% a. m
((= just-idx 10) (setq va 2 ha 1))
0 T2 X# g- l2 Q
((= just-idx 11) (setq va 2 ha 2))
0 ?5 k8 z" _+ z$ F3 |
((= just-idx 12) (setq va 1 ha 0))
r& u( j9 ?1 S! b
((= just-idx 13) (setq va 1 ha 1))5 @# b) d" `4 S: l
((= just-idx 14) (setq va 1 ha 2)); x3 y- g# U0 l, @
)6 A" f0 i# h! W
(if (or (= ha 3) (= ha 5)) ; If Aligned or Fit text
2 F1 p+ q1 Y. F* `- G1 g
(mode_tile "rot" 1)
+ g' x: z! Y0 Q; x/ g) H$ F
(mode_tile "rot" 0)
/ [" ]) Y0 E9 O+ q+ P h
)# a F0 s4 u! _/ S4 Y3 W$ A
(if (= ha 3) ; If Aligned text
9 j+ ]4 j" \: F7 J4 M6 T$ Y) B$ S
(mode_tile "hght" 1)# K& N M& [1 L# O8 V3 U
(mode_tile "hght" 0)" C& x' U( ?! G$ Z/ k* u
)* s8 i8 R8 R0 E! O1 x
(if (= ha 5) ; If Fit text
% o6 N$ W/ W" B2 v3 j
(mode_tile "wid" 1)6 K" Y5 l' H3 s8 w
(mode_tile "wid" 0)1 @5 ^4 t1 U# {* ]( A2 P
)
/ l' B3 K7 H k0 i( ~6 L6 y) T6 [
;; Reset rotation and height if changing from aligned.2 ~4 ]6 u5 x! Q
(if (and (= ha-prev 3) (/= ha 3))7 u" c3 j: ^+ e$ z, A
(progn
- v& M9 G. j |# {2 t. d
(set_tile "rot" (ai_angtos (setq rot 0.0)))8 V* E4 g; F& B# @" L/ c8 S
(set_tile "hght" (ai_rtos (setq hght 1.0)))
6 G1 b2 m9 p3 b
), ~/ Z! }3 s' {& M+ d
)
) ~$ v2 s: D) \4 W& `! x, b
- h- s% {4 v) ]7 u6 f! v
;; Reset rotation and width if changing from fit.
. e- @- e% R! m- e
(if (and (= ha-prev 5) (/= ha 5))
) i! g/ Y" G# O2 m& z: m
(progn* _+ r" s& q! o
(set_tile "rot" (ai_angtos (setq rot 0.0)))' f0 `3 ~0 |% Q0 Z
(set_tile "wid" (ai_rtos (setq wid 1.0))): k3 T! R& m' e0 x2 Z) Q
)
, k5 B; b$ f# C* k8 |! ^( p
)
. `1 r; l$ M" o& F% i
* D& w3 A& R5 M' B# e+ [7 A! a
(setq ha-prev ha) ; update ha-prev for next time( N& Z2 [2 W/ S2 x2 [5 p6 c( i
(setq just-idx (itoa just-idx))+ u) @; X8 k) P
)! }# H+ }2 b N4 Y( e
;;
# u3 h/ ^, J3 B; t
;; Set intitial alignment setting based on vertical and horizontal alignment m" v3 b6 E( @4 B: ~2 `, N
;; bit codes.: `) N+ U o4 t, r, b3 M
;;
) h3 K9 d. @1 { \; F8 {
(defun set_just_idx ()& r; f3 k# N9 H- O, o) i
(cond" |4 Z: Y+ c& z/ V# q
((= ha 0) ; Horiz alignment = Left
+ e* t# {. A) X1 w3 U1 I% O
(cond
) L, r# _2 a4 c2 v4 o* H
((= va 0) (setq just-idx "0"))- o) G- F) D: R4 C/ b6 Y& N' k8 D$ R
((= va 1) (setq just-idx "12")). t. o# z1 z, M* U* E9 b
((= va 2) (setq just-idx "9"))
* a# E/ f. t$ B: c# w1 l
((= va 3) (setq just-idx "6"))
" e9 R3 {! A% r* R/ ] u
)
$ ^/ D# m$ v! l
)
2 b: {. f t# |* O% n( z/ F
((= ha 1) ; Horiz alignment = Center
1 O; {; g; F& K6 s2 C
(cond* J" S. B0 [; Z' ~+ y9 r) K+ {
((= va 0) (setq just-idx "1")). [7 v1 y2 C" F: }
((= va 1) (setq just-idx "13"))! ?+ W3 P' V) D3 e/ p
((= va 2) (setq just-idx "10"))
5 Y) ?/ Y, q8 p5 W/ H
((= va 3) (setq just-idx "7"))3 ~0 |. Z) Q1 S/ n& G* B
)" j# W3 }+ i; r8 v) S7 M: P
)
) ~8 v- k1 r+ s" ?
((= ha 2) ; Horiz alignment = Right
4 x6 n% j$ J" M' @
(cond
4 F( g9 s: a% W# T! Q
((= va 0) (setq just-idx "2"))
$ w% y2 o, \3 C- g
((= va 1) (setq just-idx "14"))
2 r, w" q6 z8 \- f4 E* U5 L( {
((= va 2) (setq just-idx "11"))! I e9 y+ W) F9 a' {3 ^' ?
((= va 3) (setq just-idx "8"))
, E" e/ j8 `' p# g) l
)
O9 p8 z* O: T
)
* K. t- F" p& ^; Y- H
((= ha 3) (setq just-idx "3")) ; Aligned
. j2 f6 p# y/ a/ y- V9 ^
((= ha 4) (setq just-idx "4")) ; Middle
& o1 ?* L; B, y _
((= ha 5) (setq just-idx "5")) ; Fit: ]2 f% p6 J8 N$ ~7 W8 p
(T (setq just-idx "0"))5 J) X: R& U2 q' h+ |
)
/ ~0 t4 Y1 o. G: `
just-idx
4 L) g; U9 z0 n% {8 F
)
& E; a; S7 [" @* U
5 n1 U' @; _2 [
(defun modify_text ()
; \0 P( J+ ?5 [
;; insertion point) f# F/ {0 d8 X A9 Z( K4 ?
(setq showpt (list x1 y1 z1))
& r! K$ J% }$ M$ V8 l
(setq bit-10 (trans showpt 1 ename))( B, N8 y4 i% W) {0 v
;; alignment point
' {( p0 Z) J" W& J0 f) S# b+ `, \/ Q
;; for 'Aligned' or 'Fit', alignment point must be different
% W' E* u& N. J( b8 r9 x7 t5 H& s6 \
;; for all others, use insertion point/ K, Z1 o. m- J. I; ^
;; (ACAD will recompute insertion point)
" }7 p' r% b6 m+ U2 `" Y
(if (or (= ha 3) (= ha 5))
& n. y/ A" @" i( |; ^* o; f4 ^4 X
(progn8 u3 V0 V) G! z8 f& H+ k! y$ g
;; if no alignment point, fabricate one
2 s7 u/ ?4 A" ?) d
(if (not alipt)% K9 @0 f) B/ P* f4 [- @
;; add text width to insertion point- _' H, V! s% z: r
(setq alipt' B; g" k) y- ]2 A; Y! @& P7 G
(list (+ (car showpt) (car (cadr (textbox elist))))7 w- d% C, m. P1 {! l2 R$ [ h f4 b
(cadr showpt)
. u! Z4 q( G1 F6 m# \4 V
(caddr showpt)" F. c4 N6 O6 I1 c/ H; e. f
)# L2 i' ~5 Q6 t: V, u/ e
)
6 J: j8 D$ P$ }; U
)2 P; l, W5 A; q8 [% X) ~: ^
(setq bit-11 (trans alipt 1 ename))* v8 }3 x7 j6 B2 _
)# u# W' r8 ?' t" ?+ P3 }( n
(setq bit-11 bit-10)( f; ?; w9 y; Y: Y; |
)
( o; h0 \7 U- E) O3 L
(modify_properties)
4 g9 n. w! j1 v) Q. t
(tempmod tstyle 7 nil) d2 E: J$ q$ [ @% G* M
(tempmod bit-10 10 nil) E w. V+ M9 Z" u$ C l2 ]7 H
(tempmod bit-11 11 nil)
& c( |' v3 c5 |5 e+ D; W
(tempmod text 1 nil)! }7 \$ e) K! B4 o
(tempmod hght 40 nil)
! V5 N4 |% O6 }/ ?0 i, H9 z% f
(tempmod wid 41 nil)
9 y# N, O2 \3 ?; Y9 j1 _3 y
(tempmod rot 50 nil)4 ^1 t# y7 H6 w p: N5 j
(tempmod obl 51 nil)
# i5 H# r5 w6 _8 e/ v' ^/ ?
(setq bk-up (+ (* bkwd 2) (* upsd 4)))
4 ]+ |9 p+ P" Y
(tempmod bk-up 71 nil)
% k, \9 }3 k. n; B3 k9 W
(tempmod ha 72 nil); g4 w1 R4 Q0 d9 U0 _1 }
;; Attdefs use 74, text 73
$ \# d8 k; l+ q4 ~
(if (= etype "ATTDEF")
! ^! W- [) p, Y4 {% w& x- M
(progn& Q# U& J4 r; Z3 ]
(tempmod attag 2 nil)# M- `, z5 s1 Y& j( K" G
(tempmod atprompt 3 nil)0 |5 Q) X- v2 J3 ?
(setq icvp (+ inv (* 2 con) (* 4 vfy) (* 8 pre)))3 M; l1 V$ U. U" C7 v) C1 o/ I
(tempmod icvp 70 nil)% }! I8 ~4 z* n) X
(tempmod va 74 nil)
# S1 ?' y4 ?2 \+ B9 q% Z
)+ o$ Y, h7 R! a8 h% m! N
(tempmod va 73 nil)! n8 D/ m- P' t
)
) t( e) ~: D6 |2 Z7 f! n% z1 y
(entmod elist)% {& i. x' x# ^
)0 l- M+ F, B8 U) f7 |
3 y/ \+ N5 e x5 m8 t
(defun ddtext (/ 2ndpt slist i)
3 y8 I4 G& n( r4 B
(if (= etype "TEXT")6 p7 R' Q1 {4 h' l! s W! G) N
(if (not (new_dialog "ddtext" dcl_id)) (exit))
) o4 I+ `3 a& X. i! W, ?/ I
(if (not (new_dialog "ddattdef" dcl_id)) (exit))
- b# _* W# p- K1 v
)% { e+ J6 E* {8 D5 r0 f s
(set_tile_props)
3 k8 x: P% K/ H) P# q# M1 j
(set_tile_handle)/ d) _8 L$ o% i) b
(set_tile_text)
" G( G1 C% K# u! D
(set_tile_tag)
, l6 w/ g9 y# L# M& Y
(set_tile_prompt)7 E8 C2 u! a% A N6 s% \7 C
(set_tile_hght)- Q' f: l' ^- P0 L9 n
(set_tile_wid)
! V5 f) }" K7 k/ s H
(set_tile_rot), n) q+ k _4 u/ ^! s" c- E
(set_tile_obl). S% K# i# Y/ l! N8 e: t2 c. e; B
(set_tile_bk-up)
9 }6 C3 l$ U9 C! O+ N9 s
(set_tile_icvp)
, Y+ y- W/ u) R( ]
(set_tile_style)
: ^3 P# e' I5 c& P: \
(set_tile_just)! w( g, j, E5 Y8 M: e& ?
(setq pt1 (trans (cdr (assoc 10 elist)) ename 1))
: Q0 |( |* M6 G0 ^7 J8 u9 N# [% }
(if (not (assoc 11 elist))
1 Y% X5 n. m) S! f; y5 ~; d) g
(progn (setq pt2 pt1)$ J& ]2 x* f. I4 y- _, g# ~- Q9 W
(setq elist (cons (cons '11 (cdr (assoc 10 elist))) elist ))% N8 N* z) y- Z: }% W4 r
)# Y* c7 m& s* s8 C! I( g8 ~
;;(trans '(0.0 0.0 0.0) ename 1))7 U5 H& D# J' V4 |) z9 C
(setq pt2 (trans (cdr (assoc 11 elist)) ename 1))
' P8 E: e# I0 L, K/ s' ^$ G( z
)8 P. O/ y$ X% ?) j% p4 u
(if (or (and (= ha 0) (= va 0))% P8 K1 Q. q' F
(= ha 3)
7 u) q# ]* }0 {
(= ha 5)9 l( T+ T4 m7 z" E* Q
)
9 _) R G" G1 Z! M% {# g
(setq showpt pt1)
& g. |, ?7 m/ w8 r+ Z( z0 \7 \& k
(setq showpt pt2)# r4 F6 U/ A' S' a, {
)
8 _% j5 }+ [' R, s6 N! n
(if (or (= ha 3) (= ha 5))
2 p* V# m1 Y" c! E& u% Q+ B
(setq alipt pt2) I* o7 t/ h; j5 P6 A& n4 r
(setq alipt nil)
1 B8 z0 P4 ^# }, k+ L- F F+ ]
)! j4 q: {, K9 O! f9 w7 d: L( _
. u6 V; v: @, q' x
(set_tile "x1_pt" (ai_rtos (setq x1 (car showpt))))4 T6 s* \2 U$ U2 s3 A+ \$ Y
(set_tile "y1_pt" (ai_rtos (setq y1 (cadr showpt))))
5 \7 a# I9 ?3 P3 T
(set_tile "z1_pt" (ai_rtos (setq z1 (caddr showpt))))1 z. G8 R1 _8 p
, s$ L4 {) C2 t5 S0 b
;; Define action for tiles
: K- C- @0 ~% T# y+ z; Z' d
(set_action_tiles)
. `: B2 ?0 G, C! t h$ I
;; Set focus initially to the text edit box.
$ \8 e- ^6 c' v/ O6 H& x) P' b+ a
(if (not i) (progn (mode_tile "t_string" 2)(setq i 1)))- _+ p6 ^/ H, |" V# {3 C
(setq dialog-state (start_dialog))
, E8 p- ~% T% C; i% W
(if (= dialog-state 0)
* ^, O1 D2 D, s/ _2 a/ @
(reset)
) A5 }4 S- _* }0 `" z5 q
)8 D$ E8 K9 ` h) b3 Y
(if (= dialog-state 1): H$ a5 B+ |9 Y9 ]- J# @: M
(modify_text)* m) Y4 u) n) t2 a6 b1 |
)0 i7 |' G; q# h
(if (= dialog-state 3)" l. ~$ m3 Y Q5 Z, I- G% v
(progn
$ u. \7 l1 T5 n
(modify_text)5 e) p, ^) c; y# O3 Q
(if (or (= ha 3) (= ha 5))
K& O) |, t' c4 \" _7 `
(progn3 n7 ]( C1 F [/ W6 ] p
(setq showpt (getpoint (list x1 y1 z1) "\nFirst point: "))
. r) F" p. M! A* ^ M! C& I
(if (not showpt)
8 h8 G/ V7 ?$ v6 H8 A
(setq showpt (list x1 y1 z1))! f/ \& p6 W1 u# r3 D
)1 i# T- Q7 i* m- u% `0 O# ]
(setq 2ndpt (getpoint showpt "\nSecond point: "))' B K& _8 @1 |6 d# f
(if 2ndpt% Z& ]0 o& @' D) ]4 \2 D* s& k/ C
(progn
2 _! r" t* ]# g6 m+ R* j) X
(setq alipt 2ndpt)9 O; ]) j& K! D" |8 W5 D! k" }
(tempmod showpt 10 1)
, ]. v% U& D2 h/ H9 X
(tempmod alipt 11 1)( n; [0 W% o* A
(entmod elist)9 T1 n* C( N/ j6 [. A/ d
)* a0 Q1 d4 V: Z- X0 \$ i
)
]& V( ^+ I4 { m; J. S
(setq elist (entget ename))
6 n' H5 |* `( ~$ H- W
)
6 o* b# U( Z+ e2 {0 | @3 \
(progn( y/ {" s1 o2 q, b G5 r& W; O! l
(setq showpt (getpoint (list x1 y1 z1) "\nInsertion point: "))& t, I8 P: y2 x& ~0 k$ ]
(if showpt& C5 E7 w. _% U& f+ T3 m9 J
(progn
+ u0 H& o/ ^' R5 v
(if (and (= ha 0) (= va 0))
/ J& x- F& x' n4 M: t+ O3 g0 _
(tempmod showpt 10 1)4 X. d! u/ O, H# c- k* r, t
(tempmod showpt 11 1): t, m7 F! @# U9 a# b) O& J6 f# I+ J
)
: t" W/ V( \9 H s9 c
(entmod elist)
! @1 U7 O1 R: C0 y% Z+ g# m
)0 w& H q4 w1 \) S) ?/ @1 u, a
(setq showpt (list x1 y1 z1)) o8 K+ l" w$ B( q/ a% P
)
' G" p- B/ h0 T+ `$ Y
)* O' M; I% [$ |3 Q+ I. e. N$ c
)
5 s, z7 G7 s- i1 m
(ddtext)% ]) P( ~+ t/ V! {. @% u6 F9 ?
)
8 W! b; X( z- X2 ]/ z, q& C
)
$ F$ ~" L2 e. a- E) x
)
, v; L U& x6 f4 f* b
7 ]" K- O* Y7 G' T5 b4 O2 @
;;' T* k! p b* P
;; Modify MTEXT
1 ]4 i2 j) M3 F- X( q. f7 X
;;
" P# H% c9 d4 b' A* n6 ^
(defun modify_mtext ()
! ^# H9 a6 j. i; C J: g" l' N6 |
(modify_properties)
7 z" b, p- F+ K$ O
(setq pt1 (list x1 y1 z1))
9 H! F! W6 e8 I6 K% I5 [/ f
(tempmod pt1 10 0)
" k5 Y! Z7 C5 b" R
(tempmod text 1 nil)$ z! v! S3 a& j; q9 C* Z
(tempmod tstyle 7 nil)# Q( ~. P" F3 Y) i1 a
(tempmod just-idx 71 nil)
7 F& l* X1 c# s+ {5 g) f+ Q
(cond
: L; z8 B: ]$ {! ?: L" b; r% J
((= dir-idx 0) (setq dir-idx 1))5 Y5 ?- _: \& d" a: s
((= dir-idx 1) (setq dir-idx 3))
+ H% ~1 @) ~1 t- e
((= dir-idx 2) (setq dir-idx 5))
) I& H" b5 c6 N" l/ h* o
(T (setq dir-idx 1))
a$ O+ V& }4 V6 o' N$ `6 c
)2 T3 G/ @2 Q- ?0 G0 p" v$ m: f
(tempmod dir-idx 72 nil)" T* ^1 A! E# _2 Y
(tempmod hght 40 nil)
) z/ G, M2 Y8 J [* s5 m+ C5 {
(tempmod wid 41 nil)) H4 D3 L% w8 g/ e! z% m! g9 y
(tempmod rot 50 nil): z( T+ g" L2 a5 R* ^
(entmod elist)3 F- S0 O8 ^- z9 @) @# y P; g
)
4 `0 u2 A( M8 v: t- |3 |! t
! F7 Z- W, G8 h- {! X# n2 J" ^# L5 z
;; Set MText text style
N8 l O, \7 M! m! R8 \3 B
(defun MText_style (index / style-list); h$ n4 F+ y+ d+ c8 |5 ?
(setq style-idx (atoi index))
3 ^. W$ w, _/ Z) n& |) A' m9 M
(setq tstyle (nth style-idx slist))
. p! B% }7 C6 n
(setq style-idx (itoa style-idx))
" I. Z* `8 y* O! v: [) h- k4 S
(set_tile "style" style-idx), W/ ]8 i2 |6 d% D- w- M
(setq style-list (tblsearch "style" tstyle))
) H# Y" l+ B0 F+ C' ?
(setq shght (cdr (assoc 40 style-list)))
/ ]% [' L; Q8 x0 G- y g5 J
(if (/= shght 0)
! @- O2 E5 L& @7 I( n
(progn: ` c' u1 w6 y6 r/ a; ?
(setq hght shght)
% ]5 u6 i; C, {5 C
(set_tile "hght" (ai_rtos hght))
4 _' m* v. O- b, }. A4 T
)
0 q6 Z! u, q5 v8 u0 x. d
). @# h* A! f. h# p0 _
)
/ t! A) n* q2 t, m' c9 b! z7 i
# y K7 R0 o2 y0 f X) `/ ]
;; Run DDEDIT on given entity, working around possible re-entrancy/ ]2 `) J; f6 g# @1 d) d
;; problems with MTEXTED
1 N& j# o2 q: w+ y! K
(defun safe_ddedit (ename / orgMTextEd work)4 r' U; @3 G6 C7 k9 b
(setq orgMTextEd (getvar "MTEXTED"))
0 u9 }) ^# @, R, C3 j( c# j. h
(setq work orgMTextEd)
5 R* g: q4 }' P+ S( p( o
(if (= ":" (substr work 1 1))& K/ o$ h0 p7 Q& P
(progn
5 }+ j5 E, ~; J
(while (and (< 0 (strlen work)) (/= "#" (substr work 1 1)))2 [; Z: P8 p. k+ N! Q4 K: M
(setq work (substr work 2))
$ G, {' y1 ^5 R1 ]( B" K$ m
)
, Q* L3 M% t# p# j" ~) P1 x. _
(if (= "#" (substr work 1 1)) b" G$ Q% f. Q/ f# z6 a' s7 W
(setq work (substr work 2))( N) f' j1 l5 Q5 h. ^( y) Z; D
)8 \7 `' C H# _4 o m6 ~: ]! ~
(setvar "MTEXTED" work)* M8 N, r! Q) c6 i; ^
)
6 d+ e$ u' D" D. G
)
3 l" l( l* h& F$ {, F
(verify_arxapp_loaded "acmted.arx") ;; make sure it's loaded...
% ?, {5 c4 w" r! @3 E. V
(command "_DDEDIT" ename "")' C8 p U% J$ \# ]
(setvar "MTEXTED" orgMTextEd)
" |4 M1 _" b* e1 ]* S. x
)
$ I w$ j+ O9 Z5 [+ I' q
6 n9 n+ L6 X& |8 v; ^* p
;; Verify MText object width
( t, Z7 I' Q5 E0 V: f6 t
(defun ver_MtextWidth (value)
9 k2 a1 J/ _/ p: K3 v# o2 b+ b
(setq value (distof value))
( R) `5 E1 |3 P& ]) l! E# }" `
(set_tile "MTextWidth" (ai_rtos value))
- w; C, B1 E( L( O/ J: @! l9 A
(set_tile "error" "")6 L2 v5 e# \; }% a
(if (< value 0.0)+ q. s& x4 f# R: y3 d. y
(set_tile "error" "Value must be zero or positive.")
$ I" Y" Q+ |+ s- z" @- l
(setq wid value)4 J. l4 n9 u7 o2 S& G( p: j
)
/ w4 s2 A8 G8 b/ v$ |- d- g, i
)
$ B! z; g/ X, ]
" }0 @+ D- K* z0 C' V# J3 F7 K/ ^* a
(defun ddmtext ( / gc3)
M& l" k8 ?& M7 M; A% J8 A. A8 \
;; Get dialog
: x' D- y3 _( j. }# A
(if (not (new_dialog "ddmtext" dcl_id)) (exit))8 X2 o6 _9 V# W1 o4 |/ ]% T1 ?
& r$ q. v9 o2 j# |7 j J
;; Load list boxes
6 r* b! o) A# J) K2 K# G, p
(start_list "MTextJustify")
3 r$ t; _& w j+ D; [( f
(mapcar 'add_list '(
K: v4 K& h5 w5 N
"Top Left") I/ H0 m. x2 s; U+ t( g7 s0 p
"Top Center"
9 \) m) Y2 w4 z: z
"Top Right"
k. s: \: I4 W- G* r( w' ]$ g# p
"Middle Left"+ t; T8 O/ U0 M) L. A" v
"Middle Center"
" M- Z$ f' B. j; J- T( N' q
"Middle Right"
, N4 w. a J$ w6 R' l( ^
"Bottom Left": g' u+ x$ w5 x7 ~/ I
"Bottom Center"
5 _9 [1 s% K4 G2 ~' E/ @
"Bottom Right"
6 q# N2 X* H. V1 I
)
4 Y5 i/ d2 _: P5 O9 }& I7 q
)" c# m6 K! R! a0 _
(end_list)
2 I5 d7 G- R' w3 k. ~6 A& N
1 n; O) g/ {! u- J3 G, U! X
(start_list "MTextDirection")
' }! U3 u# R5 J) o+ ^# H3 g
(mapcar 'add_list '(
; h9 u* @, w- K* l
"Horizontal"
$ n' c; ?% x$ ]' f g U- K
"Vertical"7 |5 U& P% t' S2 [; X9 P n
"By Style"
0 {; w9 L% c$ m4 Z4 K
)
6 D& c! |0 s( i- {- d% B& q
)/ t* t3 i8 D( R$ ]; A$ M$ T2 u
(end_list)
$ _5 ]5 B9 a- o7 O" r
2 _ l' r# b5 m1 ]* u, u" |) B' O
;; Set initial tile values+ L6 ^( W4 H5 ? |$ g) O m
(set_tile_props)3 \- n/ i ^5 }
(set_tile_handle)4 C D1 t& M$ j }) e$ X: a
(set_tile_pt1 0)
/ d$ X5 J; z: U& [+ n
(set_tile_style)6 A6 _5 _" \" y) @# h2 K( P
(setq just-idx (cdr (assoc 71 elist)))
; G" p$ A$ O" Y. w. O( X* R- ^
(set_tile "MTextJustify" (itoa (1- just-idx))): r- f0 C M) X; |* L
(setq dir-idx (cdr (assoc 72 elist)))) \' R5 w& U0 d' E7 p
(cond- {+ c; l0 M4 C0 U7 W4 Y- w( c
((= dir-idx 1) (setq dir-idx 0))
4 k. s1 m, ^% J, t# ]
((= dir-idx 2) (setq dir-idx 0)). J/ \) x4 ^" L( }3 c" d
((= dir-idx 3) (setq dir-idx 1))3 A8 L' t; z7 i6 a$ f0 ?
((= dir-idx 4) (setq dir-idx 1)), p$ K1 V4 D6 A+ H" a
((= dir-idx 5) (setq dir-idx 2))
: Z' d/ D& D' T/ S
(T (setq dir-idx 0))0 l( `- ~9 F: X! y# F
); p1 T' ?# b* C, u( Q7 s4 R
(set_tile "MTextDirection" (itoa dir-idx))
6 P* b) K/ j% W7 h; @
(set_tile "MTextWidth" (ai_rtos (setq wid (cdr (assoc 41 elist)))))
( o- Z- t+ Y! p9 F* o4 p! T' K& w
(set_tile_hght)
& D G' I9 t% N/ O/ C, `
(set_tile_rot)& F j' N4 h. v+ z7 N7 k
" D& e, T" s3 [& s) `% l
;; Set edit box, disable if too long
5 E4 C& ?6 ^7 A
(setq gc3 (cdr (assoc 3 elist))$ P3 B, ~8 e& i, ^2 O$ X. k
text (cdr (assoc 1 elist))), O, O5 p9 a0 j: S" c
(if gc3
. G( T1 P5 [( `
(progn ;; Text is over 250 chars, disable edit tile
1 \4 i; V4 J* |8 F
(set_tile "t_string" (strcat (substr gc3 1 25) " ..."))! D q' T o9 c$ [: q: y
(mode_tile "t_string" 1)% N# h& x6 G+ L$ q. ]
)/ W J* f R& C! i+ J. a
(if (> (strlen text) 80)
# \' Y+ W( W5 g2 _9 T8 r# E
(progn ;; Still too big
# y, W4 j% ]( d8 u) `- ]$ k
(set_tile "t_string" (strcat (substr text 1 25) " ..."))* M) a2 n3 C9 _
(mode_tile "t_string" 1), g! |* Z# `/ p3 S1 T
), t# b/ z9 @5 M) _# I+ f
(set_tile "t_string" text)4 q9 v( s. Y' Y$ d! h _
)
/ L" F) v3 {5 X# x) W: ^
)
8 Z$ z! U( g- [7 j
3 w! r- T/ U) ^3 @: v, D: @
;; Define action for tiles
3 C Z8 X/ O5 |$ U5 H) u
(set_action_tiles)2 r% d# W! Z9 z$ t! z7 |
(action_tile "style" "(MText_style $value)")- ~% H8 L% {8 \' h' E4 S
(action_tile "MTextWidth" "(ver_MtextWidth $value)")- @1 k" \ s" {4 R. g/ C
(action_tile "MTextEdit" "(done_dialog 4)")& l1 u$ z# [0 k4 J! Y; |5 G/ d
(action_tile "MTextJustify" "(setq just-idx (1+ (atoi $value)))")
5 g" e! s( ]7 x* B
(action_tile "MTextDirection" "(setq dir-idx (atoi $value))")$ u+ o# D2 J/ ?9 \! a5 ]) Y
# L) g9 ^2 ~* f: v& k
;; Set initial focus to text edit box.+ Y o A" l, b* r+ D/ @) x p) ~
(mode_tile "t_string" 2)
, G h% B9 @+ p6 }. h7 `
5 p( C: `6 i; S
;; Run the dialog, M% P% ?9 l' v K8 G$ H
(setq dialog-state (start_dialog)). D( p* P$ p) O& m" N. @( @0 `/ D( \
(cond- E: _) I3 X b7 R
;; Cancelled - restore saved data6 O2 g7 n f3 w. P
((= dialog-state 0) (reset)), r! j+ ?$ y X% N0 S
;; OK - save new data
2 K( Q5 E/ Y% _3 B2 x
((= dialog-state 1) (modify_mtext)). P% M0 w' u Q7 X* a( b3 h
;; Pick new insertion point; B" Z! n- {- p( |+ `
((= dialog-state 3)
, P7 j' n! F! S' j% Z
(modify_mtext)9 O& h1 X+ H$ y" @0 x$ k5 F
(setq pt1 (getpoint (list x1 y1 z1) "\nNew Insertion Point: "))
2 o2 I! ?% x* b! s: B' h4 d
(ver_pt1 0)
8 \. G/ S& R6 T+ q. L' k$ u
(ddmtext)) z* V+ h* j7 ?; l
)) ?8 ?. c5 h' z2 Y: T$ P
;; Run full editor4 F4 a1 ~& R$ _8 a& `. e
((= dialog-state 4)
9 l! j5 k( o) u; i. c
(modify_mtext)
+ [$ d( ], j" i7 x. m! j# r: y' T
(safe_ddedit ename)/ [1 `4 u {0 M3 |1 M9 ~
(setq elist (entget ename))
& _$ ~4 |5 ^$ q$ D; z3 P/ a6 z0 Q
(ddmtext)
: W2 d+ j( k3 e6 v, z" e% e
)
0 o+ B% ~+ T3 y: J
(T nil)
9 I$ h& _7 a& T& I) u* ?3 ~( M* K
)
1 r* ?1 D' g# ? U9 W- R
)
" Y3 K) t+ @5 h9 C, Z; d8 s
1 ]2 ?+ U) e |( I
;;
; B' F+ J$ m6 a( @% }+ R: ]* h/ N
;; Modify VIEWPORT
$ b7 [( E- A6 k3 \. [
;;- r* R" p2 ]" f
* d. n4 o& ~9 ]3 |# ]
(defun ddvport ()
. x& p, o4 Q+ C, Y
(if (not (new_dialog "ddvport" dcl_id)) (exit))
; \0 {, {9 v! S% Y
(set_tile_props)
p, M' O, F8 T! o2 W4 A
(set_tile_handle)
3 ^& k4 Y6 B2 f
(setq vpt (cdr (assoc 10 elist)))) {$ M( l6 t; p$ G3 H! ?: m
(set_tile "xtext" (rtos (setq x1 (car vpt))))
) x- D* \" U2 v# i
(set_tile "ytext" (rtos (setq y1 (cadr vpt))))( n* }$ x# ]9 D/ D4 Q/ e. B
(set_tile "ztext" (rtos (setq z1 (caddr vpt))))
5 }% S4 P+ ]0 a; U0 N- _
(setq wid (cdr (assoc 40 elist)))
3 M* W; z! x7 m/ V: @6 G
(set_tile "wid" (rtos wid))
# O! L& @% ^$ `3 G- a9 j
(setq hght (cdr (assoc 41 elist)))8 v0 e6 Y9 ^* H0 ^
(set_tile "hght" (rtos hght))
+ ^8 Y6 a# @( l! p8 M D
(setq vpid (cdr (assoc 69 elist)))) b: u0 t E8 K6 d6 ?/ Z: p
(set_tile "vpid" (itoa vpid))( m3 m: d1 x" L3 K& Z- k0 H. f
(setq on-off (cdr (assoc 68 elist)))
4 H! f7 Z* h( p$ o6 i0 ]4 _/ R
(cond/ f& f% a" E* w+ P
((= on-off 0) (set_tile "on-off" "OFF"))
, y1 _, C7 g) T
((> on-off 0) (set_tile "on-off" "ON and Active"))
: ~1 ~1 Q# c, }3 a6 o
(T (set_tile "on-off" "ON and Inactive"))
+ o, h; d& f2 |' \
)& H D( z7 }# L3 b2 A
) y8 t$ W" Q+ ^
;; Define action for tiles/ I4 U, y/ ?8 C3 E9 s8 o. z
(set_action_tiles)& Q+ w; ]' ^# n B I6 v( t( R: v: L$ J
' z1 @7 W2 O# Y# Y( f' Z7 o) C: O
(setq dialog-state (start_dialog))
' s, U2 C, k7 T1 T
(if (= dialog-state 0)
: S& i: N, l* J5 T& u0 U H$ Q
(reset)# }; ]& a+ d! V! Z) s
)
# K6 T/ Q W& b3 [" Y. o
(if (= dialog-state 1)0 U; E" u5 G7 l& J4 P
(progn
| D& p- X) i1 C* @$ z0 W
(if (= ecolor 0) (setq ecolor "BYBLOCK"))
7 K% [1 i* N4 T; C3 r# ?
(if (= ecolor 256) (setq ecolor "BYLAYER"))
& p' l7 T1 Z# _
(command "_.chprop" ename "" l- \1 Q* L5 u9 |
"_la" elayer6 i: @9 f4 Z7 k7 n" e b. O4 o
"_c" ecolor ""
: G4 a2 I% N% \7 e" w! K9 Y/ \5 s
)) Q }3 z$ G6 r5 ^) e2 ^
)4 v0 x# V; ^3 k- D/ {; X
)
y4 a% [9 i& K$ I- I3 Q# ^
)
;;
/ [0 b& n, x1 b( s) F9 G1 R5 h0 O
;; Modify POLYLINE
* C9 Z+ h5 X7 }; k9 G# Z1 z
;;
) P+ [9 x9 F4 W$ X" M5 G% a
(defun modify_polyline ()
( i, q( I& ^$ @5 @
(modify_properties)
# S0 @& m" i+ c& J8 ?5 f" I
(if (= ltgen "1"). {. _1 Z) Z1 l' L( P2 X
(if (/= (logand bit70 128) 128)/ w! g4 k3 O& k# _
(setq bit70 (+ bit70 128))) W( ]! h9 b1 i k! f4 R! `# x) T
)
- h2 h# b1 i; N& h) f; I/ _
)# `) W, L6 U0 g6 M+ N
(if (= ltgen "0")
& B' h0 N8 K3 h& z, e- H
(if (= (logand bit70 128) 128)
4 U/ i; L, q, d8 T3 o9 [% y
(setq bit70 (- bit70 128))
0 k+ N1 H) F D$ D; Z
)
, ?! w. X2 {. w7 \$ Z- h' |
)
- e9 P, h1 x8 z- `( S
(setq elist (subst (cons 70 bit70) (assoc 70 elist) elist))
- T5 C& {& ~8 s) x9 k
(entmod elist)9 }5 P4 X4 m% ]& Y2 m9 B0 R, h. R
;; Added to take care of updating Vertex information for color
- T5 Q% j; H8 W$ x, |/ R
;; and linetype.
& l. m3 R2 _# K7 b4 ~. ] M0 Q
(setq save-ename ename save-elist elist)1 G: D8 Q& q. H+ ~; k
(if (= (cdr (assoc 0 elist)) "LWPOLYLINE") E: G# E) g1 ^' U b
(progn
4 u3 F8 X# E( Y3 V
(emod ecolor 62)8 x! z( a2 X8 Y( Y9 P! z" Q+ } i( }# h
(emod eltype 6)* R6 L% A) z0 K5 L! o
(emod eltscale 48)
5 q" {* S n& L
(entmod elist)
7 e" t7 ], d1 @7 e. j6 p- B( O
)& |1 t5 \; a% L
(progn2 r6 J. Q0 F$ ?
(setq ename (entnext save-ename))
& `3 v5 @/ y: K# I3 B
(setq elist (entget ename))
7 t2 |) [( w. H: t# }7 b0 h2 J/ C- B
$ c" d9 k& ~' W6 H* Q
(while (not (= (cdr (assoc 0 elist)) "SEQEND"))
- E4 S* j; y7 i/ N2 \; O& T0 c
(emod ecolor 62)
% v+ g8 W: ?8 d( |5 X- P* N8 t- f
(emod eltype 6)+ a K/ A' S! f% q! j8 l; t# \& ]
(emod eltscale 48)5 ^0 G8 k' G- T$ E5 w. l
(entmod elist)" L5 g; M6 a3 T5 v; y
(setq ename (entnext ename))
. Y! D$ u7 k* Z ^
(setq elist (entget ename))4 N) M5 t: H3 [* i& ?/ d
)
2 O. i9 d6 ]- G( d! h" [
)
' X4 {4 p/ L# v
)
8 z$ R O d$ J9 ~* @# {
;; Update the SEQEND
2 F1 Q) ~7 U" F5 P( ^
(if (= (cdr (assoc 0 elist)) "SEQEND")
9 p3 ^; J. W! `, O" }
(progn* o5 o6 i3 a5 ?6 d$ J+ ~
(emod ecolor 62)
5 G, g. K6 e4 H0 t" C9 j+ x% S0 [
(emod eltype 6)
8 W# d0 u. C) P9 x5 f9 d& o
(emod eltscale 48)0 z, J3 L8 w1 ^ D
(entmod elist)0 P5 k9 ?6 V9 h5 l* p* K' D
)
% c& o) r y; k
)
+ n5 i! L1 v" Y, L
;; Go back to header.
# ~* V" O: U0 h9 R& p: x; p( f) b
(setq ename save-ename elist save-elist)
3 W8 _3 n) W6 q* i2 e
% p+ a6 D B _( P8 V/ W) n
(entupd ename)/ i9 p1 O4 n8 r+ `# z
)8 N4 c7 X- i/ R; R
# d% u- R$ j. I! s
;; Increment vertex. Set tile values to next vertex
7 W' P! F- F, A3 G4 L( Z
;;
+ x6 O( O: ?! J" a. B
(defun next_vertex ()
% `9 b* K9 d6 B6 L' c! c% P
(if (= (cdr (assoc 0 vlist)) "LWPOLYLINE")4 r O5 S1 d1 e- r
(progn
/ j& L4 y5 P( P
;; If the counter reaches the number of vertices,' ^' L" @, h9 R8 f7 V( l
;; roll it over to zero again.( I" o2 N! Y! q& s, L. d p
(if (= ctr (cdr (assoc 90 vlist)))
, m* T$ T, c: k9 k' K# R1 ^
(setq ctr 0)
( G7 c! [( R" B' T
)
1 c/ o! ]' `$ h U0 h5 G- E u( I
(set_tile "ctr" (itoa (setq ctr (+ 1 ctr))))
3 ]. {* Z0 j9 e1 |6 f9 A7 T
(set_tile_vpt pointype)2 q& _" i& F" T! g: n4 T- T
)* G5 G8 n: X$ m8 A! A% Q8 c3 N' w! _
(progn- n Y( u4 w0 u# H0 z
(setq vname (entnext vname)); e3 A6 ]+ m9 ]: }) i
(setq vlist (entget vname))5 n: F) W: {, G2 i
(if (= (cdr (assoc 0 vlist)) "VERTEX"). S# F5 i8 |- R- _! m& e9 B2 l
(progn
+ v+ x M8 s9 W5 @2 W
(set_tile "ctr" (itoa (setq ctr (+ 1 ctr))))
7 [* `8 Z8 K2 z# y
(set_tile_vpt pointype)
! _2 n) S& ]4 b
)2 x4 G( ~+ n* O+ }9 F, y. e
(progn! P7 `! D8 A( u5 D6 p
(setq vname (entnext ename))" B' h& v3 l4 `
(setq vlist (entget vname))
. P2 n" @/ P0 b4 U1 i4 w4 E
(set_tile_vpt pointype)
! g1 D) |4 b& a* V( j
(set_tile "ctr" (itoa (setq ctr 1)))- H( f+ U7 H/ u" A
)8 c f+ l" }7 E# Q
)/ p" d1 }2 x0 j# k5 N' t" v
)
6 C" z2 ~% n' x4 ]" W$ Y
)
2 `& _% F" Q6 p* t& f
)
- v: w% s! f! A5 H$ c5 c5 m3 W
7 }; c. E7 F4 a
(defun ddpline (/ oldecho)
! ^% T+ e( E: j y
(if (not (new_dialog "ddpline" dcl_id)) (exit))
. O6 {& Q8 R$ ?: {
(set_tile_props)
: |; t% g' l, [1 x2 @6 t
(set_tile_handle), z- g* x o, M" N( T
(setq bit70 (cdr (assoc 70 elist)))% [$ `: d" ?! F
(setq bit75 (cdr (assoc 75 elist)))
9 ^0 x4 B7 n9 b9 c; b/ Z+ a
(cond5 p8 \$ e) f. G4 E4 N; W
((= (logand bit70 8) 8) ; 3DPOLY
& ^1 O- V. l( G
(set_tile "ptype" (setq pltype "3D polyline"))% }! i y3 d3 h- Q
(setq pointype 0) ; WCS or ECS point values" J' m$ a6 @3 s+ |
(mode_tile "fit" 1)# N1 U2 Y2 a9 V4 m
(mode_tile "mesh" 1)% Y7 r1 ^! m4 `
(mode_tile "bezier" 1)7 n" L U3 D' K( ^+ L
(mode_tile "ltgen" 1)
$ ~8 g. h2 l* M: B) v
(set_tile "none" "1")
& M F& M% \% W0 e+ @
(set_tile_closed)
! U- ~7 { \" m& \/ t& w+ w7 L
(set_tile_fitsmooth)$ x2 }0 g( d3 B' F2 M8 R
) z$ C. t# M9 G
((= (logand bit70 16) 16) ; 3DMESH
3 g' G* V, V8 J, n
(set_tile "ptype" (setq pltype "3D mesh"))) L# J+ v4 V: `5 z8 q) U) |( j9 f
(setq pointype 0): y" @' A t2 W
(mode_tile "pline" 1)' b Z# g! I5 R
(mode_tile "fit" 1)
! G8 S4 \+ D: V" U
(mode_tile "ltgen" 1)
$ Q4 _1 Z3 ^ h- T8 Q
(setq m (1- (cdr (assoc 71 elist))))
4 U9 o: c' J, c0 A' h+ @( Y. P) C4 q
(setq n (1-(cdr (assoc 72 elist)))) K' P& G, }- c) q/ b( K% }3 k
(setq u (1- (cdr (assoc 73 elist))))/ \( H9 a$ i5 h7 x
(if (< u 0) (setq u 0)). v, R# c* P* x4 Z! {3 r5 t! Y
(setq v (1- (cdr (assoc 74 elist))))/ w: b; v( u. z1 u
(if (< v 0) (setq v 0))9 X" s! P& V8 x& S, r
(set_tile "m" (itoa m))/ a& R8 y, _/ c# ?' q0 O! F. A
(set_tile "n" (itoa n))- ]6 z, p: u' `" S
(set_tile "u" (itoa u))' ^# i3 O. a L5 S. E
(set_tile "v" (itoa v))
3 O: E' c7 O3 @9 U' r* S2 D
(set_tile_closed)1 R6 P6 W- Y# B( ?! L$ A7 ?
(set_tile_fitsmooth): u) _3 o# J, \7 v
)
% `, a' @* p* z1 I( k. o) B+ y
((= (logand bit70 64) 64) ; POLYFACE MESH
2 |4 ], V% `: Z- o) j
(set_tile "ptype" (setq pltype "Polyface mesh"))
8 S0 B, \4 ~5 ~6 R6 F& ?
(setq pointype 0): u( `8 i# h5 `8 ]6 L+ C; Y
(mode_tile "f-s" 1)
) w( s, B+ j6 m) p, T8 `/ ^/ B
(mode_tile "mesh" 1)
" e$ z n7 R2 f W
(mode_tile "pline" 1)
( Y9 g9 f& I+ {1 ~, [, w5 e
) ^( {8 y2 C- W' N2 P4 o' C. K
(T ; 2D POLYLINE
! a; |- r9 o5 A1 `5 r, R
(set_tile "ptype" (setq pltype "2D polyline"))6 O, r2 e/ i- z9 q/ {, B
(setq pointype 1)
" p x: S' O/ @7 |+ ~2 F, Z' k
(mode_tile "bezier" 1)
! Q# C+ f; \6 R4 k
(mode_tile "mesh" 1)* J3 U: O$ v0 c% d
(if (= (logand bit70 128) 128)1 y/ g5 u% m8 ^9 ]
(set_tile "ltgen" (setq ltgen "1"))
; G9 W6 @3 R# m
)3 P" O9 H; y4 U J
(set_tile_closed): |& `" ?9 C5 W1 ~
(set_tile_fitsmooth)* r9 Z2 ?: b' a( d- g2 |
)
! E$ \3 B3 z; D4 a' W
): d6 M @9 m4 B! l6 j. ]
' o: ]' m E' A! I5 T' l2 G
(if (= (cdr (assoc 0 elist)) "LWPOLYLINE") U) M* q1 w, ?7 U7 U( T
(progn
" U9 J2 x. n/ y$ o, f9 @, g; b; s
(if (not next) (setq vname ename)) Y- j5 r2 }) E) ^
(setq next T) ~! l) q& S" ?! H: `; J
(set_tile "ctr" (itoa (setq ctr 1)))
3 ]7 [+ K# {3 X, Z# [8 o# ^; V
(setq vlist (entget ename))
. D6 q9 X# J d! v6 S& ?
)
6 j" K/ J0 z6 N( o& Z
(progn' R! N2 Z, @ R+ x# I" S2 `' {
(if (not next) (setq vname (entnext ename))); g* g0 F2 O' n
(setq next T)
! G+ W9 a6 _3 l+ _! Y) _ }) M
(set_tile "ctr" (itoa (setq ctr 1)))
: M" D9 S' s( W$ s" \8 t
(setq vlist (entget vname))
) E' j8 Q! b7 t( K/ z9 E
)
1 {9 M: M/ T5 p" N6 N) T: b Q, T
)$ C5 K' ]9 D7 x0 s$ o* Q$ A
(set_tile_vpt pointype)
/ H, V2 [6 R/ ~; x& H
;; Define action for tiles
% c/ @' F. s6 Y* E
(set_action_tiles)
! K" k. G# I7 C: Y2 b
(setq dialog-state (start_dialog))
4 _* ?4 B5 ~. g$ Q) j9 `3 X- \
4 e4 ^* }4 i, r7 y8 o1 M( O! U
(if (= dialog-state 0)3 d4 X( `4 {; q1 J
(reset)' Q: o) m" g i% A
), r( R6 L% X) G; T
(if (= dialog-state 1)
6 i m9 G3 q. t7 J
(progn; H5 f& B+ w1 a$ i% Q
(modify_polyline)
) x6 J t/ |8 |( h; X# e* w7 E; d
(if (or (= pltype "2D polyline")! F' d$ g- ~8 f
(= pltype "3D polyline")
; c* {( R" ^9 E' E# V
)
- D& q# n9 z B/ x* D
(progn
9 \9 T3 V6 ^/ D0 ]) S/ U( B
(command "_.pedit" ename)
( l' y/ Y0 J6 J' ?
(if (= spltype 0) (command "_d"))
: e) v3 B( d1 x0 T
(if (= spltype 1) (command "_f"))4 v5 ~( s9 J5 t$ R- `/ W: g
(if (or (= spltype 5)
' N- P% I# X9 R: E2 f7 `
(= spltype 6)0 j( w( A! l# V$ x9 p1 T
)# g' ]9 G7 p g1 X' K& K! U9 u
(progn
+ Z+ v3 O8 H8 V3 L0 {: W
(setvar "splinetype" spltype)
3 E, p% V. l, m. \. e0 d% G$ m
(command "_s")
( l. e4 ~1 s! z. h0 l1 }* @6 ~2 g
)9 ^$ b. j1 f M! a$ K
)+ h, O: A5 s. K" z" z
(if (= closed "0")
: k' p& c0 B1 {) w
(command "_o")
6 f: K, Q; s/ S2 D5 ]! `: b! k; q& Y
(command "_c")! R. T6 R+ b% R8 E! J' X
)8 `3 Q8 y( [8 r3 Y1 g
(command "")
& u4 B, _/ a+ I: B
, L( m# e3 n* U' D
(if (= spltype 0): g6 V; f7 A2 S& ^% e2 ~% i
(progn: N5 P+ r4 f7 J
(setq oldecho (getvar "cmdecho"))
# c; @3 \' J$ Z- c. o7 `
(command "_cmdecho" 0)
, N& J) `) B2 _& ?6 r
(command "_convertpoly" "_light" ename "")
6 z' `7 C9 ]) r, U: A
(command "_cmdecho" oldecho)2 a |0 J+ w' ]2 N" z. T% L& W% E' u+ b
)
* ?9 @( c+ ]. o) _
)
# U& N7 p J# i1 p1 b
)
% ^ k1 O; ]4 M! N" ^+ j) e
)3 Y# E; _) e& C( A- W# o+ Q
(if (= pltype "3D mesh")
- G% u! ^3 A6 U! ~4 P
(progn
]" h0 ^; `) t# U
(command "_.pedit" ename)
' f! U" G7 F- D* g3 V9 v
(if (= spltype 0) (command "_d"))" M( |" c4 }4 |/ m( O
(if (or (= spltype 5)( K E* t3 T- g' {- m0 ~! ~
(= spltype 6)% [- s; T4 P* F0 F3 _, @1 K: c. G. p
(= spltype 8)
7 n1 w0 x6 k) V) s
)7 [% E7 U% ^4 B( ]
(progn
8 P# E' m7 U& f- X/ j- U$ |
(setvar "surftype" spltype)
- l2 Z/ r) K7 W% H
(setvar "surfu" u)
/ U# ~# A: b! G1 }$ u
(setvar "surfv" v)5 Q" \0 [' l# X' J2 G
(command "_s")2 ~2 W: O1 A! S4 E* R
)
3 D8 H& N, I- J2 S" v5 o
)
1 g. M; M) x N/ g
(if (/= closedm old-closedm)
. `6 S4 q7 @6 y
(command "_m")
4 Z9 F$ I( _' }+ |) r
)3 z8 \% |6 P t9 p2 p2 N7 e/ J6 p
(if (/= closedn old-closedn)! f) q3 v# Z1 T4 H3 A- ^; q
(command "_n")/ v# R. _4 C3 t+ _/ h
)
; ]7 ~' z9 e4 C4 D
(command ""); w$ U1 F8 @. X, T, e
)# E: O1 w: R- T, }7 o
)
5 M) \. a7 u0 x# [) ^7 K9 B
)
) I% o, `5 ?5 t( O
)
# O" X' n6 ` S0 X! |7 m
)
% p2 W% V4 q8 ~% J' ]
;;+ v( a3 Q- A) X* ?* K
;; All the spline data is contained in a single elist. We must do some) U/ b9 t# e2 X+ y) @7 W) S
;; tricky list processing to loop through the elist in order to display# y3 f, E# L$ }6 I6 |7 A$ l
;; all of the control points.4 s e2 d0 E0 c" B# x9 m
;;
% Z: e* C, B3 V) e: K& |$ s f
;; The structure of the elist is different for rational and non-rational
( |4 t% R5 O9 I) c( q, h6 O; o
;; splines. Therefore, we check the rational spline flag.
# Q+ B. D+ X Y: H) E* ~
;;' @8 E/ a. y$ ^5 n" y s' s- n% o
(defun next_cntl_pt (): ]. J/ L. T$ h* s% B
(setq elem-no 0) ;; elem-no = element counter
2 T# T( {2 D% O- l0 [" l9 |1 I; d
(if (= first-10-time 1) ;; If first time, find location of first
9 J1 o) x; W7 }1 t2 d& C" @* W/ E0 s
(foreach list_item elist ;; cntl point element in elist
; b" [. o: H3 G0 v) b( w5 ~1 o
(progn& a' B1 z# f2 P
(setq elem-no (+ 1 elem-no))% y$ i7 `5 r$ ]6 X) |9 A
(if (= (car list_item) 10)
& a8 I2 V- S0 \$ V6 l3 l d; R
(progn+ C1 L/ w3 |6 P+ e' @
(if (= first-10-time 1)
. ~& J w, A# l6 Z" q' v) c
(progn
4 e) n/ _6 H% T0 a* D
(setq first-10-rec (- elem-no 1))! @% d: |: L8 I- z' h' ~+ P
(setq first-10-time 0)7 u+ M6 B0 X' E9 W1 \4 j0 l
(if (= rational_spl_flag 1) ;; if rational
8 N0 ?" g# \+ b9 F
(setq cur-10-rec (+ elem-no 1))
9 z" {5 H b9 _$ c; {' r! S; o. A! d
(setq cur-10-rec elem-no)4 I3 l2 I; L5 k" _3 t
)8 |/ c r! M. y; i7 e3 X1 ^
)+ t8 R( u; i3 N6 f. F! P7 U
)
0 I4 r3 C* n# \; b" a
)
6 D1 \1 g7 B+ u7 k# v. s5 W
)
3 H' p R3 w3 K8 d7 h% ]5 }
)
8 j/ s' F5 y* f6 P# e2 S
)
$ e; t* |4 k: E( W1 L. U
)
2 u5 u; A& Y1 T
;; Now we know the location of the first "10" record; it's stored
! S. t6 D' {% r: P7 J
;; in first-10-rec. The first 10 record was already displayed when( U. x* Q/ j( F/ o/ P8 @
;; the dialog first came up so let's display the second one when8 ]# x1 U' h; Q) [* J
;; the user presses the "next" button (the first time through).
* ?: w% u: J5 }
;;5 O" S* l' X! B1 p; N% w
(setq temprec (nth cur-10-rec elist))& O( `; n7 ~: Y1 p7 y7 ?
;;
# @% w/ x% _. K$ \1 o% g0 m- J
(if (= (car temprec) 10) ;; if 10 record
' C1 E8 L% u6 U' G8 v/ e
(progn
2 @$ M" b3 p. D+ G2 L/ Q# w: S
(if (= rational_spl_flag 1) ;; if rational spline7 n* P1 o. K, y! s! B6 d+ Q2 `
(progn$ T# L2 Z1 p- Y' @2 L- L* u% B
(setq tempweight (nth (+ cur-10-rec 1) elist))
3 O+ O0 B9 g- N- n3 o
(setq cur-10-rec (+ 2 cur-10-rec))
5 ~' Y7 `3 ?. V% t4 x2 u
)5 m4 e& e' z* B
(progn ;; else
. k1 w! I7 z0 s* O9 n
(setq cur-10-rec (+ 1 cur-10-rec))5 @ Z3 ]- F3 c) i
) \+ |% }+ e& h# ~5 X
)/ f h8 G v: y
) ;; end if rational spline# e A1 `% ^$ ^% t/ m2 M# R( d
(progn ;; else reset counters
1 v! q" a/ J1 h$ [
(setq temprec (nth first-10-rec elist)) ;; get 1st 10 rec; O0 p, e6 g1 {& X3 J2 G
(setq tempweight (nth (+ first-10-rec 1) elist)): w" e- R" `, z% B; \* Z
(setq cntl-pt-indicator 0)0 w+ }: a8 Y7 K2 W0 C
(if (= rational_spl_flag 1) ;; if rational
) f( _% B8 k8 H. r
(setq cur-10-rec (+ first-10-rec 2)) ;; point to 2nd 10 rec. |, U* l) ~; G/ x3 k) q
(setq cur-10-rec (+ first-10-rec 1)) ;; point to 2nd 10 rec
" p0 O; V+ o% @7 q
)
; c' T5 Z7 a& @8 k9 [6 L% c
)8 ^- ]6 {( h; q' Q
) ;; end if 10 record
8 t9 v7 _. T8 K, h5 X
5 c" C b4 D* f0 t4 ]# ]
;; Display cntl point, weight and ctr. Increment ctr.
: A7 s; D( `6 W' q5 s" S0 T
(setq cntl-pt (cdr temprec))- E+ U4 o/ t. J" x, ~
(set_tile "xtext" (rtos (setq x1 (car cntl-pt))))
/ H% [' [+ J) T t
(set_tile "ytext" (rtos (setq y1 (cadr cntl-pt))))
( Y5 A" g2 m6 w) w# u
(set_tile "ztext" (rtos (setq z1 (caddr cntl-pt))))* p! S$ T) X( V2 o$ Z( X4 M( [
(setq cntl-pt-indicator (+ 1 cntl-pt-indicator))
) @6 ]" j6 X! U, V' U# W/ @% g4 P
(set_tile "cntl_ctr" (itoa cntl-pt-indicator))+ F8 {: q& N; {( h9 V
(if (= rational_spl_flag 1) ;; if rational3 w) }! ^$ U6 x
(set_tile "weight" (rtos (cdr tempweight))) ;; disp wght# n+ i- d! }9 Z- j0 c/ U% a
(mode_tile "weight_text" 1) ;; disable wght
1 z$ e7 J5 L& p% J, j
)% ]' E3 N4 W! O2 L5 A- a) f/ {9 D- b
)
3 S( c: ^9 W# F: E
;;5 h" G) x, U5 y6 j6 C5 j
;; All the spline info is contained in a single elist. We must do some! Z+ v9 K4 p9 C/ T1 s
;; tricky list processing to loop through the elist in order to display
: Z" m6 @/ h/ [: G5 j
;; all of the user data points.
+ w6 E8 L8 p& D* `
;;
: X* u0 k+ h ]: X# B6 X
(defun next_data_pt ()
* {8 j: D, E+ ~- Y
(setq elem-no 0) ;; elem-no = element counter
" ^7 a( w: E& D/ R- o0 t; J; ~
(if (= first-11-time 1) ;; If first time, find location of first5 f! ~ A3 {; i" J- O
(foreach list_item elist ;; data point element in elist
! G4 C" A" ?8 u/ P' S7 w1 }) P7 U- H9 O
(progn4 |5 E" G" Q3 ~+ D
(setq elem-no (+ 1 elem-no))) E. f' X+ q" |* ~
(if (= (car list_item) 11)
+ g' z2 C( z% p. C3 u- a
(progn- f# D. [7 B! B+ U, Z, J
(if (= first-11-time 1)
: | ]; f0 R5 h& [* a
(progn
% j8 ^( d" K E% C5 U/ e4 B
(setq first-11-rec (- elem-no 1))* Z6 W7 K6 U/ I( b$ p- g# W5 _
(setq cur-11-rec elem-no)
; R- m9 O1 \1 F/ K: p; S: l' O
(setq first-11-time 0)
) } Q/ P- C% U
)( a+ y( W: L; }5 V2 U+ ^8 w
)8 l8 M* K; j7 [& t8 m* r
)
& ^% }* w; z8 |* J# _9 M
)
$ } x# i- z5 r) J, Y
), O8 ^6 S G, S3 f* ~& |( Y
)
& I' e$ o9 a& H3 W
)
9 j9 q$ h$ C. O# E3 I9 v9 N
(setq temprec (nth cur-11-rec elist))
i7 F# x K5 j) H9 e7 `
;; If it's not a DXF "11" element then we've gone past the last) {2 N" ^' s8 y( ]+ j; p ]
;; "11" element. Go back to first "11" element. Reset counters.# ^6 e: \" V+ v* r5 L7 S0 R
(if (= (car temprec) 11)3 O; \+ k& U1 `5 ^1 L& B2 Y
(setq data-pt (cdr temprec))
) z1 Z. p8 N& ^0 q2 x
(progn ;; else
- _8 b w A$ E& ^1 f( C
(setq data-pt (cdr (nth first-11-rec elist)))4 Y% a4 \9 \# M% H6 g/ A
(setq cur-11-rec first-11-rec)
9 m! I# g! ]6 z- Z! g0 r
(setq data-pt-indicator 0)& p& `! j) ^8 T/ W/ J3 `% ?
)8 {$ n/ N) f* A: b7 a* o
)
D0 j7 Y" X$ [2 G1 ?6 f2 \4 ]' Z
;; Display data point and ctr. Increment counters.7 L i$ j+ B4 l. T: E
(set_tile "dxtext" (rtos (setq x1 (car data-pt))))
, J! p: l* Y& L6 o! W0 [, Q
(set_tile "dytext" (rtos (setq y1 (cadr data-pt))))
$ I. V8 J' |0 q
(set_tile "dztext" (rtos (setq z1 (caddr data-pt))))
' \# b) a# P7 e( _
(setq data-pt-indicator (+ 1 data-pt-indicator))( _" n- C& ^6 _/ u9 o! W. |! O
(set_tile "data_ctr" (itoa data-pt-indicator))
- `% R2 i. [! G9 o
(setq cur-11-rec (+ 1 cur-11-rec)). ^- V0 {) A: H1 i- L7 D" Q
)6 a* Y& S( B9 A
;;
. g* V" T9 m6 f7 P! p, m% F8 D9 `9 G
;; Modify SPLINE
* _) E9 d- A. N/ B5 z+ R
;;: i! P/ r; f6 [* r! Q$ K
(defun modify_spline ()6 v2 s& a9 X( p& \/ B
(modify_prop_geom)* H7 O$ l- C4 y5 Q
(entmod elist), m2 h6 [! j8 Y4 B% i4 H
)
, M# B% M6 t" V; E) K* j
\6 _9 U) A% @( n- l+ b
(defun ddspline () J( z( o; P& M8 N! K8 N
(if (not (new_dialog "ddspline" dcl_id)) (exit))) q @- ~6 V6 h
(set_tile_props)
7 Q5 {4 L% K2 c" X8 h# M
(set_tile_handle)' |9 s4 m. q1 @7 Z' Z
(set_tile_spline_props)
2 P3 b, w- `. S9 i4 d' A! \
;; Display first control point
: t; g- U$ @; @$ Q
(set_tile_cntl_pt)
9 b3 U: a7 ]5 n
;; Display first data point
8 x9 R" L/ ^/ _2 ?$ S) x; v
(set_tile_data_pt)
( S" t f/ T/ j2 I9 E; Z/ g
0 L8 m& L; Y" I- F8 g# ~2 E3 c1 w
;; Initialize flags to indicate first time through the dialog. n7 j) Y' ~4 ]4 D5 g' I' _
;; For control points and user data points the "next" buttons0 \3 t9 @+ \. ~
;; in the dialog call the appropriate functions.& z6 I$ K/ z7 S9 D
(setq first-10-time 1)
" l0 ^6 R/ Z5 e$ u8 M
(setq first-11-time 1)3 [" }; b p% }- c) ]* z
;; initialize control point number counter) L& M5 T' z6 a, d, \$ I
(setq cntl-pt-indicator 1)5 W( @, R6 ?. S/ p, x9 N
(setq data-pt-indicator 1)1 \4 w* H! `7 d9 k. R1 x
(set_tile "cntl_ctr" (itoa cntl-pt-indicator))
; u4 H% p- N5 E0 A5 ~% ^
(set_tile "data_ctr" (itoa data-pt-indicator)); ?1 @7 G3 j" }0 v0 p
(set_action_tiles)& O! S2 r: t8 e
(setq dialog-state (start_dialog))6 Q( P6 y2 y0 m! Z9 R3 O
$ A3 l3 M; e4 z8 k+ k# s
(if (= dialog-state 0). L/ K9 j8 S3 m* r
(reset)8 B9 s: U7 Y: r% b) ~
)8 B3 d' y2 Q* D$ g# c
(if (= dialog-state 1)
3 w8 A7 f$ {* J* o
(modify_spline)1 W7 w) ?+ A: \4 p) U/ T; S8 H2 I7 Q, N* x
)
, J1 c6 g. a5 M
)0 E7 I# t) @' P0 I" B4 v
. M+ A/ C0 P, S
;;- R" p5 w9 Q* B3 l
;; Modify DIMENSION
$ a' G* f- b3 E& Q: A; L3 n/ s2 s- D
;;* W% j8 P( p q8 \! s! n
(defun ddimen (/ dtypebit blkname bename sublist a stname n dimtbl
% E9 P: u1 D% s$ d! X
dimsty dimlist dimtext svtext dimovr sv_dvlist stlist
+ F. p3 R! G8 B w' I4 D, W
dimtype dimsvcurset)6 w Z* w6 H! K
(setq dimtype "DDIMEN"
4 @# K7 [) x/ ]- y9 w4 C
dimsvcurset (ddimen_dimsty_restore)
- n( T/ d" R' J
)+ e% H* `0 z3 D3 `0 _
(if (not (new_dialog "ddimen" dcl_id)) (exit))
0 t! E1 { C* X- P+ n
(set_tile_props)
0 c" ^3 B3 b: ^
(set_dimen_props)
. @9 v; G- }+ z! `- C5 @ O, B
(setq dimtext (cdr (assoc 1 elist))), b G8 F6 o- q
(set_tile "t_string" (if (= "" dimtext) "<>" dimtext))7 i5 m7 p) M [. D" \
(set_tile_handle)
_4 R! N8 [% u& I, x+ [! [3 K
;; Define action for tiles
# | E- O3 L0 c, u, i
(set_action_tiles)! f# l. f5 w: F) l3 }
6 ]* s, B& j2 \- T: ^% V
;; Set initial focus to text edit box.* r: B' J X8 J. e' w
(mode_tile "t_string" 2)
l- Y. q3 I" N9 d- J: h2 ]
+ |$ h2 l+ d- n. I* m5 P, B; P
(setq dialog-state (start_dialog))7 v: E0 s) w% E0 C6 e! I
(if (= dialog-state 0)
. b* J0 i( J$ ` f% T* c
(if (= ddimmt 1)
, B: B5 {2 @, [
(reset)
8 ]1 N. k5 X0 D- x% m* a4 b, g
)( v; `. x' D2 W4 w3 l8 `7 N# X. l# m
)
) ]1 B2 }- W, p; S% Q M/ d
(if (= dialog-state 1)
) t r8 r, M% N, h8 @2 g" h) V
(progn3 `& p. Z- J! G% ]3 Y
(if (/= dimsty stname)
4 t! K8 F4 s3 q, o
(progn2 h' X9 a, y6 }1 G+ x; t7 Q
; Be sure to add (3 . dimstylename) element. R12 *UNNAMED case
2 L: _9 t: V; \0 _% ]4 B; ? D
; doesn't have it.
9 n# ?! j6 U0 l* n
(if (null (assoc 3 elist))
& m3 f' C# l; n9 D- u
(setq elist (append elist (list (cons 3 dimsty))))
7 ^5 Q: }. u; d9 {/ {
; else just replace it.- `" N; ?. W. h0 W3 E
(setq elist (subst (cons 3 dimsty) (assoc 3 elist) elist))- g4 c' S* D) ^1 N5 s" W# d
)
$ h" Z' c" `$ Y! {- x2 _
; refresh sv_dvlist with new dimstyle.
5 r# P" ?# G. a) I! l v
(setq sv_dvlist (tblsearch "dimstyle" dimsty))! @9 P( {2 B7 u
)- Y; I3 x B$ j2 d# q4 z+ j4 B
)
. {5 W" P; H! `1 I/ O* P
(if (not (null dimlist)) ; attempted to change dimvars
3 Z% @4 u# r( f* V& Y, o
(ddimen_complist sv_dvlist dimlist dimtbl)- V6 K' P) c5 s) G% Z$ D7 {
)
# W+ K8 n. m* q) R6 H
; Modify dimension text
T/ R$ K9 R1 u$ b
(if (/= dimtext text)9 p& ^& t b+ _2 {; p( z
(progn
6 h. u; o3 f/ k! m6 ~8 G- { k4 L
(setq dimtext (if (= text "<>") "" text))
, b" [' U+ V( X
(setq elist (subst (cons 1 dimtext) (assoc 1 elist) elist))
) `6 ]% `% R* W) @
)2 d9 p' u; m7 `" d9 q, W- B7 w( H% q
)
7 v; [, a' {& V
(modify_properties)
8 q* @9 j$ m7 K. f$ y
(entmod elist)
7 {$ B$ j* ^- `% z F }
)$ j- u! T) V9 z0 b
)
! @: e( x3 D- e% q! c8 b m" L
(if (= dialog-state 4)( w+ ?; P9 y- j7 O& I
(progn9 H7 M3 i7 e' p- Z8 X5 B/ h
(setq ddimmt 1)
5 M U0 n; T% }) z& ~: r
(if (/= dimsty stname)
$ G( q0 o. Z) X
(progn( G" d5 F9 L& L$ ~( l3 R1 L
; Be sure to add (3 . dimstylename) element. R12 *UNNAMED case" l( _! \" r9 j6 b3 A3 z+ I
; doesn't have it.! m1 n [5 K5 L4 W8 S' o* t: @3 H
(if (null (assoc 3 elist))
" G9 S0 g4 k+ l- {9 A/ {9 I
(setq elist (append elist (list (cons 3 dimsty))))
& Z1 e- J! ?8 j% I j8 W* R. l: T
; else just replace it.
( Z6 K$ c' T2 ]
(setq elist (subst (cons 3 dimsty) (assoc 3 elist) elist))" q9 ~% s( c( ]- w
)
. W$ [; l3 N+ `2 p+ V3 R; s6 J
; refresh sv_dvlist with new dimstyle. j, D! ]; i. _. d2 ^
(setq sv_dvlist (tblsearch "dimstyle" dimsty))/ I" f4 f, q8 I% i Q8 t- C
)
9 G3 E) V. C: _ p* d3 ^4 ~0 }
)8 {# T& ^, Y- Q
(if (not (null dimlist)) ; attempted to change dimvars' v9 _3 r7 D! b5 {+ d& \. U
(ddimen_complist sv_dvlist dimlist dimtbl)
# [' [7 [. Q3 L2 E' Y: ]: \+ `
)' ]* B7 v6 t3 R) L9 z
; Modify dimension text8 w6 L2 f/ n# b% v& t8 {4 f( G
(if (/= dimtext text)6 C+ ?+ b( i; e* u# v% J/ @8 N+ _
(progn
# v) ?4 L: i) o. u9 P. o+ i6 A
(setq dimtext (if (= text "<>") "" text))
' u0 ]- k) r2 o9 B& M7 p
(setq elist (subst (cons 1 dimtext) (assoc 1 elist) elist))) ?8 O/ r) x ~6 d
)6 a( N( i" J9 x
)
4 ^ q8 S; O& ]- q; K
(modify_properties)7 I9 a3 q4 R& C/ \ q9 G w
(entmod elist)6 u* p4 c( A: h- w4 W5 p' ]4 y
(safe_ddedit ename)- I* @. ?; W, N, ~0 f( ^8 |
(setq elist (entget ename))0 F- ~: y& y/ v& {* P) e! S+ \8 q
(ddimen)- t" C9 z' t- o- B, N# T$ I
)2 v; C- q, Z W- R$ E
)
' b. g2 e8 ?% L/ w: g
(ddimen_setvars dimsvcurset) ; Prepare to exit' d& `9 Z% u+ i; |
)/ T0 j; c$ Z* E' p# \
7 D2 t" L, R5 e
;;. J) ]! _6 Y$ G9 S% m7 W0 v
;; Modify TOLERANCE; W$ C2 i/ _3 g
;;% x. l' v* x# y
(defun ddtolerance (/ a stname n dimtbl4 \: h; T! v/ C% b% `8 n" a
dimsty dimlist dimovr sv_dvlist stlist dimtype4 x% v& e6 W! s/ s5 j
dimsvcurset)- M% g) `2 m! y0 x' E
(setq dimtype "DDTOLERANCE"0 ]0 G6 T3 \. ~/ v. j
dimsvcurset (ddimen_dimsty_restore)% h1 T+ W6 f# w% t
)
" O! q* Y! A9 ~5 _- W/ o
(if (not (new_dialog "ddtolerance" dcl_id)) (exit))
7 ^4 x0 h# U/ r) a" m
(set_tile_props)
5 f/ U/ n3 d8 `. U$ K8 A( L8 n: R
(set_dimen_props)
2 F4 }3 N% n$ `1 g/ d# y! m
(set_tile_handle)
, L" c/ A7 U9 y0 O0 O. q! I! c4 }
(set_action_tiles)4 s" c/ K9 ~( {" R( q
(setq dialog-state (start_dialog)), r7 t( B* x7 u( V+ H
(if (= dialog-state 0)
% O2 W- ^8 w' L! A b. X7 R
(if (= ddimmt 1)
" N7 D% |( _1 T5 I" I6 H% J
(reset)
8 G, p, ~. ~- ]6 y$ z! b
); k& L0 \5 \+ r; M# \" K: t
)- i/ Y) ]2 t0 M& Z% o2 \: N7 w
(if (= dialog-state 1)- v- J3 u8 x5 b" b
(progn: A. @; ]- i- G7 s
(if (/= dimsty stname)- \# Z7 z- k- \1 e5 p7 m
(progn6 g$ _* a, Q/ o' q; ^
; Be sure to add (3 . dimstylename) element. R12 *UNNAMED case
3 I6 {( {, [2 M% U
; doesn't have it.0 X+ K6 R& v3 E1 Q8 K2 U
(if (null (assoc 3 elist))
$ r) p# p3 e4 L/ W6 l
(setq elist (append elist (list (cons 3 dimsty))))
# E$ q/ ^, g/ r3 U
; else just replace it.0 A2 T$ I) t5 D3 V$ R) k
(setq elist (subst (cons 3 dimsty) (assoc 3 elist) elist))# Y4 }4 ~" u! ^$ p
)3 K, n( o! R% V1 S1 R- ^6 E
; refresh sv_dvlist with new dimstyle.
* B+ Y$ _* r+ e& s0 X8 D
(setq sv_dvlist (tblsearch "dimstyle" dimsty))! Y8 C5 }% m* e2 A( Z( @/ ?
)- _; i! ^, L$ M' W0 v2 ?2 g
)
- C, d# e4 {0 x. B% Y" l, ~' t
(if (not (null dimlist)) ; attempted to change dimvars5 Z; C3 _0 U b( s# d; C
(ddimen_complist sv_dvlist dimlist dimtbl)8 [) G3 a1 l0 P( ~2 n
)% ?2 l" ~! }) X2 T# U6 P5 {# z
(modify_prop_geom)
+ I- |# m/ K9 B! M$ j) t9 b
(entmod elist)8 b Y1 S# C) }# [, ~8 v6 {
); n, L5 Z$ W' i0 N/ i* U
)! _) z+ }- f0 O {/ y) r* l
(if (= dialog-state 4)
- n* C, n5 J4 t! a1 _
(progn8 a' W" X. B5 g, e
(setq ddimmt 1)$ r! b7 w' l$ W% p
(if (/= dimsty stname)1 C9 X- `, u! j6 O/ D
(progn
7 c9 X& v/ f& u6 G+ [; ]
; Be sure to add (3 . dimstylename) element. R12 *UNNAMED case
; P4 @8 h/ }% W7 r5 v) A
; doesn't have it., j! D* s/ M) Q% @0 J
(if (null (assoc 3 elist))
5 L) ~. o2 e3 c0 W- @
(setq elist (append elist (list (cons 3 dimsty))))
1 B" J w2 a5 d
; else just replace it.
: @) g! ]0 V5 c+ e4 h
(setq elist (subst (cons 3 dimsty) (assoc 3 elist) elist))
4 y5 q6 U& C" u( h) {
) {5 s: [8 b" f& x% b% J' r: w
; refresh sv_dvlist with new dimstyle.
( d9 C0 ?2 R4 w( A) Y9 e: A5 K' W, r' H
(setq sv_dvlist (tblsearch "dimstyle" dimsty))3 Q0 `7 X, j8 i, d
)
% Y7 K$ k7 o% ~% F0 ^0 ]
); s+ v8 Q& ?# n; o5 J, b9 J
(if (not (null dimlist)) ; attempted to change dimvars
% I7 E* i+ s J* Q, x
(ddimen_complist sv_dvlist dimlist dimtbl)0 i0 _/ d. h1 w- e* f& Q
)
. x0 o4 m/ p; A! `! D
(modify_properties); a; V% G5 u( F
(entmod elist)
6 x) s/ J( g4 t6 ~$ s5 y; t
(safe_ddedit ename)! x. y2 I. e1 I. D5 m. n
(setq elist (entget ename))
; h8 Q+ H; f0 ~
(ddtolerance)
8 Y# C4 C6 C; U, m4 T) G& x, y& `* ?
). t6 V# C5 S. F1 M$ }0 o
)
c6 N5 s% X8 c
(ddimen_setvars dimsvcurset) ; Prepare to exit* o# L9 ]' d ^% X0 Z0 E
)
6 t4 f8 w0 S! P; a# {* o/ Q' \
! H- C h1 b7 o* H, s1 D' t7 C
;;# M: L4 T5 q3 E, z' }; C$ Y
;; ddimen_dlg - jump to ADS ddim module
& }. x! j" X% b: G0 F# V/ v6 k: r
;;
9 |' M' s" l1 b! W6 q
E( @% k! t4 {. V. o5 C8 v+ ~& W
(defun ddimen_dlg (dimtype tile dimsty dvlist / dimlist)
8 R0 x# @3 b+ {" p9 X
6 D+ q8 [" d2 ^+ b4 D) ?
; Jump to DDIM with overrides if any.
/ }- Z: w9 `! n) g
(cond ((= tile 11) (setq dimlist (c:ddim "DDMODIFY" dimtype tile dimsty dvlist))) ; Geometry1 O. F! C2 h+ G. W6 t
((= tile 12) (setq dimlist (c:ddim "DDMODIFY" dimtype tile dimsty dvlist))) ; Format0 x i* y9 j7 b! {7 n; v8 s. z6 o
((= tile 13) (setq dimlist (c:ddim "DDMODIFY" dimtype tile dimsty dvlist))) ; Annotation
2 `( ^- Y _3 ]" X+ a" {* m
)
: q7 Y6 t3 a# u: `' m
)
, h+ t- u2 M$ g# j# M% f5 @
}8 ?4 |0 d2 p9 B# G o; J
;;! b' o H! K9 o9 U5 i: G" s# L
;; Dimension variables updated are stored as overrides.0 J5 q! g, H$ |3 v6 W8 r
;;' h3 s& v8 Q! Z$ J* P g ?- X
/ {2 N1 l4 x! t" s' O5 K0 f( x
(defun ddimen_complist (dimolist dimnlist dimtbl / i odvar ndvar
; ^; L4 c( D) t5 Q# W* l/ ?8 Z
dv dime commandIssued)
' C1 A! G. z% w, p3 i/ _, x [+ F
# ^# q% S- T) |
; Here we skip the following first three items:
- Q& m9 w+ m' b: E i* x
; (0 . "DIMSTYLE") (2 . sylename) (70 . 0)# ^8 `% U9 ^) l
;
) X: D( {% [# _# }7 V7 \
; The list comparison immediately begins with dimvar.0 Z0 G0 @) e2 Z# K. j6 u
;% H9 i1 x0 q. M4 A1 j. a# N `5 c8 s
; dimolist - original states of dimvars
. d% x6 [2 Z8 I2 s8 ]2 A& R
; dimnlist - new dimvar list which is of the resbuf's& w& X* e J% L3 v! g
; dime - entity name for the dimension- {/ O6 D4 t' Q5 q; T! m( H
; odvar - value of dimvar for the dimolist+ F5 x4 s- X5 q$ |2 o
; ndvar - value of dimvar for the dimnlist
' y2 i3 z' B3 w" M- Z8 t1 X
- @/ s6 t0 w% }/ x+ d/ O+ R" y; x
(setq i 31 `. P" T7 ~2 o- F" ~1 Q& @
dime (cdr (assoc -1 elist))
1 k2 t2 S( X& v/ h1 M7 b
)( Z( W. G7 ]+ ^! f2 k9 e2 y
(while (setq odvar (cdr (nth i dimolist))): C4 {4 l) v% e% G$ u
(progn3 _6 s" R8 O0 c3 u4 Z0 ?# N
(setq ndvar (cdr (nth i dimnlist)))
( D# H f) n. \
(setq dv (nth i dimtbl))
% \6 d# x6 K6 J7 d
(if (eq dv "dimtxsty")$ k8 \" B1 e' z/ l) F* l
(setq odvar (cdr (assoc 2 (entget odvar)))
) V2 w6 C% }, g0 C7 Z, g- f3 t
ndvar (cdr (assoc 2 (entget ndvar)))
3 S8 K5 [3 u, \% Y. ]) j& p8 A6 E
)
}6 w2 w6 ^: d) N5 l, R6 {7 |
): M9 _6 a P, M* G% \
! W6 R8 i6 s0 R6 N2 u% k
;
) a1 f; N% W; o; Q, r& R) d
; In order for DIMOVERRRIDE to operate correctly with string$ ?+ G% W6 U: m! w8 Z& o
; based dimvars, we must pass "." versus NULL strings.1 o5 w" i3 A7 y( u" R9 B
; In this case ndvar is the new dimvar value the user wishes
c# i7 b) v+ M# y& p9 K9 Y
; to update on selected dimensions./ c- ?- j8 t7 w8 n! L3 L/ x: V
;& J, k2 J2 V1 `9 D5 V& g
(if (/= ndvar odvar)
, `3 F3 V% N, T+ `4 d, X8 ^% N
(if (= 'STR (type ndvar))
; [) f$ v7 |* A3 w
(if (= ndvar "")
2 R4 W& y* G! }- N, u
(setq ndvar "."))))
5 i. q& S' z( e0 s& t( s7 x0 f4 _% K1 I
' T5 M: n7 g2 K! ~6 R
(if (/= ndvar odvar)0 F* e8 B8 M8 y4 t/ w& o
(progn# W( k; |, E* D
(setq dv (strcat "_" dv))6 K) P- ^6 D' |' [6 ?( R
;
/ ^8 [% l3 ~- e- d4 {3 p( j# a8 V
; Start the dimoverride command
7 q8 z4 c5 c/ x& E8 c& b
;
7 v! R. b: ^6 Q
(if (not commandIssued)$ l4 f1 t4 E1 d7 t% T
(progn
: J6 q$ J4 E: ?! h' v
(command "_.dimoverride")
- k& b& I4 N* r
(setq commandIssued "T")$ U& D% t" W1 {# J
)
% N+ J' L j( d- K% G+ }
)
( e: P2 k( w# N- @
;
7 d2 C2 T* V1 ~; y/ Z ~
; Issue dim overrides9 l' _# o4 ?+ y
;
& K8 H- q9 n# \3 O; j
(if (and (or (= dv "_dimclrd") (= dv "_dimclrt") (= dv "_dimclre"))+ R4 R4 w6 _. `! l) _
(or (= ndvar 0) (= ndvar 256))
8 Q# ^8 u! o# ~3 j* p
)
5 a. z) ~) `0 l) ^8 G
(progn+ r0 _: l7 H# E0 _( ~
(if (= 0 ndvar) (command dv "BYBLOCK"))8 N; _! s4 J1 h4 ]& y
(if (= 256 ndvar) (command dv "BYLAYER"))
( P# R4 S; L+ K) o, _
)0 d' i2 V) w9 j1 K! W( x4 R
(command dv ndvar)4 z# r8 y$ W$ _1 b* x0 H$ D U3 [
)
4 w e# J; g n+ f# L: T7 y6 I
)
2 ]; k. O, C/ e! I
)
: A0 E L7 A5 O) r* Q
(setq i (1+ i))2 `+ P" y# n! P; \) D& }% c
)
% d: J- E9 M* M
)
' ^8 P9 V: a' a" n4 a7 ` g# y2 A4 ]
;
6 j% {/ t3 I$ R2 ]7 B
; Select Entity and terminate command+ r: p1 @; s+ S* I. j6 j$ @: `5 }
;4 O' {% E* y: r5 c, @6 G0 S
(if commandIssued3 N' R/ d! k$ w, [% ?+ j0 B
(command "" dime "")
& G m8 I7 w0 E9 t! \* |
) k. I" W0 l2 C. @$ C1 U- i
)$ o* U/ P0 Y+ R
! R l. B. @- A8 y0 P$ L8 x$ j; n
;;
8 d" g" [- {( M
;; Get style name currently selected style name.
, g B8 f" c4 K0 w# l2 P
;;& q) c2 H6 O; E2 W, I9 s
k" @. K/ o& B2 F
(defun ddimen_style (/ dimsty)
7 |, [1 g5 z9 r
(setq dimsty (nth (atoi (get_tile "mod_style")) stlist)6 }4 Z3 ~+ g d. I9 u+ F
dimlist (ddimen_getdimvars dimsty)
/ I- X0 J, F' e
)
) o/ k- ?# F; m& s* Q2 I
dimsty
* G. D% T7 e* ]
); i1 L/ M1 W$ T; l# A& k6 r$ _$ x- L7 @
* s9 e, d" ^% D6 d
;;* _1 S& X; u" @/ y8 x, i9 t7 I* w1 a
;; Set dimvars
8 a4 m( L8 m. h' Y/ I; T+ k
;;' Q" \" W$ t+ K1 t
(defun ddimen_setvars (dimsvcurset / dv i)/ X, o# ^( M$ ~4 g, |& o$ Q$ ?4 |
(setq dv (cdr (nth 1 dimsvcurset)))4 P6 Y8 ~: m- E
(command "_.dimstyle" "" dv)
) @7 v; N$ p0 y7 R
(setq i 3)
- F! u2 n2 Y! Z: o0 a& O: L3 X
(while (setq dv (nth i dimsvcurset))9 B$ o: g0 t5 \8 h( i% Q
(progn
# U+ N2 D6 ^& q- H0 D0 ]
(setvar (car dv) (cdr dv))
- }! l% \. w& D
(setq i (1+ i))6 J9 l* H5 _* S) X% [# f2 @
)
& g% y% L! W, D. k+ C6 Q7 K* E
)+ y# ^8 J7 V% {3 Z
)$ m( E; p7 x" b3 K7 n8 q
;;
?5 M1 Y7 D0 q; p2 ?
;; End-of-dimension
. I+ ?- l2 x1 x$ ^
;; ==================
& ^. o* j! g- b# Z' F4 k
1 S6 F! a& w1 _! ?
;;
3 n, e. N6 I4 w% S% v, E8 Y
;; Sub-dialogues for properties. Common to all object dialogues, ~0 J$ q5 ^7 a5 }
;;! i2 P& p3 q- ?% P Q
;; This function pops a dialogue box consisting of a list box,image tile, and
, X6 Z- M% c& H4 C6 `
;; edit box to allow the user to select or type a color number. It returns% }. G2 o& [/ d9 x; g# l& h
;; the color number selected.- b; s8 S; j1 s6 O/ X( P- `
(defun getcolor (/ old-idx colorno cname lay_clr) e) M! K5 e/ l- r
(if (= (get_tile "error") "")/ h( F2 y6 f( U* S7 c2 h4 R( u
(progn! k+ b0 i. y. c( k
;; Get the color associated with this object's layer, for use
3 x$ Z% t" _: B
;; in the color swatch if the user selects color BYLAYER.
/ F5 |; w; c/ |% Q
(setq lay_clr (cdr (assoc 62 (tblsearch "layer" elayer))))
/ |3 r& \) ~, l# \" w
(if (numberp (setq temp_color (acad_colordlg ecolor T lay_clr)))
; [7 Z/ p J" G) O: g, w6 M0 c$ ?
(progn- m9 a+ r. x* ?- Y! r3 R4 F: h
(setq ecolor temp_color)
# @: o( ^5 i' E4 P' y' H
(setcolor)
9 ^" Z' h4 q- b3 \
)
0 x6 V& t6 M4 i c$ q8 r
(setq testcolor temp_color) T6 F# G( c$ _; k @& z' l4 m
); T9 m3 A F+ x- E6 d
)
: ~ Z# g. W9 ~4 E# h0 Y1 @' i
)) h$ q- u* k( @! Y- c- @$ `
ecolor
E8 L$ e$ q8 K- w
). K5 L' g, `3 `/ B7 K
;;
0 K. W1 ~) R' y
;; Function to set the color tiles.
2 _2 y2 ?6 q* \
(defun setcolor()
% E) q/ F+ }7 ~: u3 v5 p: A0 g7 K
(cond
" d3 ~+ g5 g, b. }
((= 0 ecolor)# u; Z" L, a# ]0 w
(set_tile "t_color" "BYBLOCK")0 J2 i+ L8 I5 x" D& q8 N
(col_tile "show_image" 7 nil) ; show BYBLOCK as white, Z9 c. }) Y/ a" U
)( P2 F$ v! p1 i9 |; i' X0 D& d
((= 1 ecolor)
8 \' `4 h, m6 `/ k; O8 z3 e
(set_tile "t_color" "1 red")3 w) G9 u. }/ I" }" J' H
(col_tile "show_image" 1 nil)3 j6 r X4 e1 i/ k. U+ F% x
)
) g+ Q- `8 D) n3 h* H, O9 E
((= 2 ecolor)
. d2 R' P; |" f$ V8 ^
(set_tile "t_color" "2 yellow")2 I4 `% F2 _, x, P& k7 g9 R! d7 e7 w
(col_tile "show_image" 2 nil)- [2 L: I8 \) E, x4 ~
)
/ ^; J/ p+ M$ L5 ]
((= 3 ecolor)
' o$ }$ I# g# {: K) o
(set_tile "t_color" "3 green")
( J4 j. P# x- }) F4 z/ u$ @; }% I
(col_tile "show_image" 3 nil)
& ~2 Q4 X: _9 ?
)
: C1 b6 C- ]. k8 Q+ L0 U
((= 4 ecolor)
% J. x: ^! } a3 u- h
(set_tile "t_color" "4 cyan")( v- k( @0 g# f7 Z, |- n+ }9 [! l
(col_tile "show_image" 4 nil)
9 x' `# s; q8 G8 v% q! V
)
3 B2 p9 v& ?4 a1 D8 Z5 p( S$ |$ ?3 w. L
((= 5 ecolor)' Z X. f* b1 j: Q
(set_tile "t_color" "5 blue"). ]+ J8 L5 g# G/ Z( ~* q) J
(col_tile "show_image" 5 nil)
5 d* ~- h$ l' F+ K o& \* j/ v
)- E! V% G. s. r1 g2 Y9 q
((= 6 ecolor)
& o% E) H6 t% V9 D+ R3 P5 ~( c
(set_tile "t_color" "6 magenta")( D, N! i n4 c7 f
(col_tile "show_image" 6 nil)
0 U% P y* s7 E; N
)
V5 i- x. x G2 l- w
((= 7 ecolor) ?+ |8 L( K0 h! |
(set_tile "t_color" "7 white")2 h) ^1 A6 W) M' w4 E0 M
(col_tile "show_image" 7 nil)
: I& Z# d7 s' Z# e
), S i# Q+ s5 @# T8 h! F* G; b, F
((= 256 ecolor)
( e; ?# |8 `6 ~
(set_tile "t_color" "BYLAYER")4 \$ Z0 A% h! ]7 W7 v. k
(col_tile "show_image" (bylayer_col) nil)
( j6 Z9 v# R1 |# { h4 w0 a# n
)3 Y+ I" ]4 |- Q' F o
(T A. y+ S8 {; f% }3 Q. x
(set_tile "t_color" (itoa ecolor))* a3 W2 `" [' k/ X$ t% T
(col_tile "show_image" ecolor nil)
$ s$ }3 ?+ k1 }& O" ^
)- r" p% Q+ f2 x, H
)) e$ I. b5 g+ @" H7 d
), G# B( d5 t% ]
;;9 G0 c: ^/ c9 `6 T( \( @0 G
;; This function pops a dialogue box consisting of a list box, image tile, and
& S9 P9 o; L) I- C7 d: s
;; edit box to allow the user to select or type a linetype. It returns the
/ I6 ~% c( B4 ^7 W* f
;; linetype selected.! e, t% ]6 K' a: q a
;;
7 U$ Z9 V! m9 ]; O5 `" [0 J
(defun getltype (/ old-idx ltname)
N0 t6 D5 h3 K* K- ]* l
(if (not lt-idx), J" x( D7 x* A! |, I! o
(progn
3 z# K! l$ J( m) z9 F- l
(make_lt_lists) ; linetype lists - ltnmlst, mdashlist* x* A6 N( @9 n- E5 g, Y' W% `$ D
(cond6 o% o$ w3 P B1 l2 I7 i4 H
((= eltype "BYLAYER"). T1 b4 Q* U+ |' |' r9 g7 K+ f1 R$ d5 \
(setq lt-idx (getindex "BYLAYER" ltnmlst)))
! ^+ _, ?4 b- \( N; z
((= eltype "BYBLOCK")
1 c2 O- A9 g2 \& L* W6 |7 [" B
(setq lt-idx (getindex "BYBLOCK" ltnmlst)))5 i6 t# \- W/ U, s- i; L
(T (setq lt-idx (getindex eltype ltnmlst)))
/ e" V: ]7 s& n4 ?5 J2 x% M+ [: K
)5 l- H, E+ |$ _5 C& j
) u7 D/ i' y' A- l: `$ {
)
: I) @2 g: ?7 b
8 |6 p4 y2 X+ o6 A0 i% T. m
(if (= (get_tile "error") "")4 Q& M/ c8 K/ ]* F5 M+ z+ }
(progn
2 `5 N7 k" P5 G; d
(if (not (new_dialog "setltype" dcl_id)) (exit))
0 k( `5 f3 m( c B
(start_list "list_lt")
% X' u# `$ K( g; e) R1 a% B
(mapcar 'add_list ltnmlst) ; initialize list box! T; H' x& u; X$ i
(end_list)
( _: Q$ M# F% A+ ^/ p
(setq old-idx lt-idx)- d0 p, b5 b6 R% w; Q. S" P" X
(ltlist_act (itoa lt-idx))* ]! x1 e6 X2 j; g4 b
" s* v. T7 T7 C ]9 X
(action_tile "list_lt" "(ltlist_act $value)")
6 j6 t* ~! B; n* v
(action_tile "edit_lt" "(ltedit_act $value)")/ F* [1 f3 S/ Z& b! ]
(action_tile "accept" "(test_ok)")9 x0 t! k+ y3 g/ W9 {0 d" _: M; W6 L
(action_tile "cancel" "(reset_lt)")1 _! n; ~& ]' g. ], F: |5 j- P
, n6 h4 T# |: Z
(if (= (start_dialog) 1) ; User pressed OK
. F% i' h! i4 w K$ G9 G9 r3 V
(cond
4 A+ E% A( F* {" o; `( f2 n
((= lt-idx 0)3 M, z; V+ I2 C3 U. {
(set_tile "t_ltype" (bylayer_lt)): E# Q+ t2 p& D' m* m. F
"BYLAYER"" F' `7 i0 e1 u* J- M8 u
)) |! E& X+ ?5 I; P, ]" K
((= lt-idx 1)! V0 p4 z! ]! f9 M( }# I' j
(set_tile "t_ltype" "BYBLOCK")
5 M7 R3 u) a6 Y: _: l
"BYBLOCK"/ r4 z' E: r3 O( i/ e
)
. e& a- p& R1 C5 g& u, ^
(T (set_tile "t_ltype" ltname) ltname)
- T( o, m& J2 V G
)
* B& B# @5 V; C* t u* c
eltype' Y( F3 w, I3 v1 D" A
)
( o6 R) i% y- B" X! h
)% r# P& y7 w3 u$ ^! j$ s
eltype
0 y( D- j. i0 {; w( V9 f
)8 m/ W, ^0 J/ p/ y) x0 z
) |% i: o! M/ I
;;
. E2 b! n! o2 u3 F# i* c
;; Edit box entries end up here9 n- Y/ g; h2 X# h" u
(defun ltedit_act (ltvalue)% R/ u0 S+ \: b* {
(setq ltvalue (xstrcase ltvalue))
4 B X0 ^. r- G+ s
(if (or (= ltvalue "BYLAYER")" j! D" {0 G8 C$ b: I! j
(= ltvalue "BY LAYER"))& i2 ~1 [4 N/ T3 N. @! _
(setq ltvalue "BYLAYER")
6 \1 `0 h/ S6 o2 t
)
/ a9 P4 t$ S( F% v4 S! T& a+ ?; g9 H
(if (or (= ltvalue "BYBLOCK"), h: @* s) S! g6 o6 O; P' V8 G0 u9 E
(= ltvalue "BY BLOCK"))3 R$ F) P4 C& G" u3 l
(setq ltvalue "BYBLOCK")
, T% E, E Z4 r! L& c6 x) B, l
), E& c( T9 o- d4 n4 k1 d" H
(if (setq lt-idx (getindex ltvalue ltnmlst)), }$ m. p6 w0 Y' J3 O' }3 A
(progn
d7 U* i0 T6 K; I4 Z
(set_tile "error" "")9 I' ]" y2 }! d6 b
(ltlist_act (itoa lt-idx))
( B+ J; p( `9 W8 s
)
- R1 h1 T) I/ d9 U3 d# a
(progn5 `0 N: [/ T8 N
(set_tile "error" "Invalid linetype.")
. l% v! p$ y+ \ p/ g
(setq lt-idx old-idx)
6 ^6 _4 J4 P7 d$ @# x7 F2 X2 ]" f" Z: Z
;; (mode_tile "edit_lt" 2)4 c. \: M8 I6 ]+ Q9 z- z! O9 A0 |
;; (mode_tile "edit_lt" 3)
$ y6 C0 {+ r4 E0 M* Z
)
, c( y; O" K% C9 j3 u0 D
)
9 b% L) E M8 t. P6 K/ R$ O) K
)* U$ ]6 c2 ?$ Q" \6 j5 A$ [% [5 y
;;- B8 V% i4 P2 t2 R7 _) q! o/ a* _6 {, w
;; List selections end up here. Update the list box, edit box, and color
% }, \8 t, g/ t
;; tile.) B$ d* _; r' O8 y4 X. C" K
;;
, k7 o b' F4 s9 z& Y( {& z
(defun ltlist_act (index / dashdata)1 n _& u; z6 l. a; |
(set_tile "error" "")
- K- @1 X6 H; x Z% G
(setq lt-idx (atoi index))
6 Z' }# J/ [% w' `7 q
(setq ltname (nth lt-idx ltnmlst))7 a; `1 k; `6 c* |9 P3 a
(setq dashdata (nth lt-idx mdashlist)) n) r: U+ z2 ^& Y- F$ d
(col_tile "show_image" 0 dashdata)( H. ]& }3 d9 W5 h- p" v& V8 ~
(set_tile "list_lt" (itoa lt-idx))
( [7 Z8 n# D( [6 c' N$ m
(set_tile "edit_lt" ltname)8 O. t8 t4 Q% J) q6 b. d% ^ Q
): r) P4 ?( ?5 b) M* B) Z9 A5 A
;;6 ~) R% }4 e- m2 \
;; Reset to original linetype when cancel it selected
* z, x" J" r9 z, i
;;7 f: P& V( L( m8 b
(defun reset_lt ()
$ V: T- f, r. G7 J
(setq lt-idx old-idx)
; ~6 t( r x( d b8 b4 G1 g
(done_dialog 0)% j8 B ~. Q8 i+ w( c. {
)
9 }( B% T$ W2 Z
;;% B$ x2 }: O8 K6 P# L
;; This function pops a dialogue box consisting of a list box,image tile, and
$ S5 J; C" G6 Z& E: E9 D+ K
;; edit box to allow the user to select or type a layer name. It returns the
" ?6 ^2 c, e$ E5 l
;; layer name selected. It also has a button to find the status (On, Off,# Q% T. [8 t0 B8 ^
;; Frozen, etc.) of any layer selected.( ^) ]+ G0 r% ]1 J/ k$ x( V
;;! J& Z# X/ q4 g" o2 \: s6 P
(defun getlayer (/ old-idx layname on off frozth linetype)
6 M5 p0 a7 Q; ?& T/ X8 M# R; O9 j
;; Create layer list the first time the layer
8 B& }6 P$ I1 k b" ]/ R/ f1 V0 i
;; dialogue is called.$ w' C- y7 x/ Z }' o# T
(if (not lay-idx)
# @% c Y# h% u. P, v7 h; b
(progn- u x2 A1 P& A! i# `
(make_lay_lists)
" X, X! U6 h2 w8 G6 O
(setq lay-idx (getindex elayer laynmlst))
+ a% {1 F8 v# @8 f- x
)" I3 d. S" U" g, l) g( f8 L1 U8 H Z
) J) r& l' c9 ?) G" O
5 g" S$ I+ u9 a
(if (= (get_tile "error") "")
, G8 z$ A5 r: ~
(progn
3 M$ F% M2 a0 h k, A* e8 K
(if (not (new_dialog "setlayer" dcl_id)) (exit))/ u! l" @/ Y4 r
(set_tile "cur_layer" (getvar "clayer"))
; d1 x2 a6 y3 o0 \+ W3 \# D V
(start_list "list_lay"), v9 y# t ?' I4 U" Q
(mapcar 'add_list laynmlst) ; initialize list box8 c3 `# G6 S; h1 N. F8 A& S
(end_list)
( Z2 g2 w! e1 l- p( J
(setq old-idx lay-idx)5 [/ T5 \) Q2 a1 ?3 s- i& V
(laylist_act (itoa lay-idx))
; e% {/ g9 c5 |# ^# ^
(action_tile "list_lay" "(laylist_act $value)")# a' k. h" s8 S# h
(action_tile "edit_lay" "(layedit_act $value)")
3 x$ D3 l4 u3 Y% |/ \
(action_tile "accept" "(test_ok)")
! I+ ?4 S. G* T" F7 |; G2 S; v
(action_tile "cancel" "(reset_lay)")
+ ~' ]2 K4 W8 [6 I, k5 i
(if (= (start_dialog) 1) ; User pressed OK. a0 I' k' a8 Q5 `/ `
(progn$ Y6 L5 [) O1 C# I6 I
(set_tile "t_layer" layname)
: l5 q- }. W2 M- \
(setq elayer layname)" c4 U8 ?" f1 M
;; If layer equals bylayer reset color tile" I$ E! p+ Z8 B6 S( X0 W
(if (= ecolor 256)( o: a, W" g: k) M0 Y6 R8 H: T
(col_tile "show_image" (bylayer_col) nil)9 r# ^2 g5 K2 ^! }( O
)6 @$ B$ P& ?) o5 w. p
layname& U* P2 p7 { @! p
)# l/ P; x& Q& M" v3 }( b
elayer
$ L8 t* m# C! n0 D0 s; G
)7 n8 t+ v. r: Z+ P
)
6 L' i" @# J$ ]% A8 G# n
elayer
4 {* [' e: r, B* z
)
* l5 g1 N7 ]+ s
)
$ b9 C8 D/ c7 h9 Q& w
;;) K' x" c) w' e
;; Edit box selections end up here. Convert layer entry to upper case. If' }! H0 y" U; u* d* Z1 Q
;; layer name is valid, clear error string, call (laylist_act) function.
; v1 p0 N6 N O, ~
;; Else print error message.
3 l; k9 n) s; Q$ S+ y- T% @
;;6 Y; e4 u3 j- w3 T( h
(defun layedit_act (layvalue)
# }, u5 r, h* f G$ y1 x3 h
(setq layvalue (xstrcase layvalue))
/ r. Y& \9 C2 k5 y. H/ [5 n
(if (setq lay-idx (getindex layvalue laynmlst))3 b& Q9 K" [2 D4 j9 @
(progn3 i3 m2 v( ~# }# j8 N7 N* n0 {
(set_tile "error" "")
9 z' D& D# ^2 h" }7 U; H
(laylist_act (itoa lay-idx))1 m4 X% u. I0 }0 z& j& ?2 m/ p! P
)
) [" ^/ v0 o1 Y4 |8 w
(progn- z$ M9 M4 y3 {9 ]5 c
(set_tile "error" "Invalid layer name.")8 _. N& w& P1 o+ `0 p+ R
;; (mode_tile "edit_lay" 2)
4 H5 D( E0 y: e2 j7 K4 y
;; (mode_tile "edit_lay" 3)/ q/ q9 V& R+ {2 f& d
(setq lay-idx old-idx)) t* Q0 l# A$ [
)
8 P, @2 s6 g" w
)
5 E1 q# U* P0 U" V* B3 \* J, [
)
" G- ~+ I/ O+ Q2 `% f, f2 v
;;
5 Q) y' \) d, {( ]. D7 B9 A
;; List entry selections end up here.
% R$ E' y9 u/ W# i& ^* v
;;* f: B I0 A+ M& q4 m
(defun laylist_act (index / layinfo color dashdata): w" j w j3 ?9 A# m
;; Update the list box, edit box, and color tile.
* O1 r3 {# U* O9 r+ D4 y1 [& O
(set_tile "error" "")
4 S' ~; k$ G/ T& J' E
(setq lay-idx (atoi index))( ?0 F* a* p9 P4 t5 g+ ^% J
(setq layname (nth lay-idx laynmlst))* t+ {, @5 n5 r: l* i4 [
(setq layinfo (tblsearch "layer" layname))
( U" J5 N: P: f% D! n* Q0 f1 @
(setq color (cdr (assoc 62 layinfo)))0 f T% }* l/ `3 H6 M# E1 }
(setq color (abs color))7 V$ F7 L; e m7 _/ ?" g
(setq colname (colorname color))+ U0 q, w/ W, I' }
(set_tile "list_lay" (itoa lay-idx))
# w, _& e$ X- [* u0 E
(set_tile "edit_lay" layname)
* K8 f' Q# M/ I% R
)6 I0 o, a! A3 p8 o9 m
;;
: p8 {) P9 ~% i) {* t6 p0 g$ F. S
;; Reset to original layer when cancel is selected.
) }# q2 Y: f# \0 w5 s. E
;;
, q9 ?4 W2 k* l
(defun reset_lay ()( q9 P1 J2 Q7 H8 V( A- o1 o* I! T
(setq lay-idx old-idx)
) L4 `' y+ a2 f8 C( v
(done_dialog 0), Q( e! ]6 k4 s9 `
)9 |: J& q! u2 |( j3 C: D! |
;;
# \( j- C' b: E9 s! x) F7 I& @
;; Checks validity of thickness from edit box.' N2 l" m8 Q8 p1 u6 l/ A: u" N
(defun getthickness (value)
' f: w+ y& D: e6 F) }
(setq ethickness (verify_d "eb_thickness" value ethickness))
) I! k( d7 R2 e
)0 O g: K$ N- A. `7 Q
;;; a- Q# w! S4 j# W& t: A6 ^2 u
;; Copy of (getthickness) for ltscale. If more, make this function
0 A& y% T+ {* Q! L) C: {
;; generic.5 A: X# e$ M9 m: G1 \$ Y
(defun getltscale (value)
- W: y) D, T8 b& ?1 D+ P
(setq eltscale (verify_d "eb_ltscale" value eltscale))! ~: `1 b, I$ _- a' [3 l( I D
)2 ~: ^8 Q: P& k) I% S
;;
' U% Q8 R; X2 b9 V, B/ N0 I& x1 W
;; This function makes a list called laynmlst which consists of all the layer
' `6 }! ~! `8 N
;; names in the drawing. It also creates a list called longlist which3 h! U. j+ V: h
;; consists of strings which contain the layer name, color, linetype, etc.
" x; f- n, Q. U3 k* t
;; Longlist is later mapped into the layer listbox. Both are ordered the
0 ]/ o) ]" P; h- A* Z
;; same.
2 V" f' c# Q! c J4 s
;;& c1 }) j# h$ E0 `) G
(defun make_lay_lists (/ layname sortlist name templist layer_number)
* [. B7 Z0 j j2 \* y' K# p
(setq sortlist nil)
! }4 C0 ]" l; y* }, J" z. ^
(setq templist (tblnext "LAYER" T))
, d& I' U' V% ]
(setq layer_number 1)
3 G* x: U+ B/ E' Y+ F% u, D' L
(while templist" i: V; i! m& [- z1 i# | {3 b
;; No xref dependent layers, please.; z5 B6 z7 L9 s7 D
(if (/= (logand 16 (cdr (assoc 70 templist))) 16)( `* M7 O& R# @; y% A' p# T) ?$ i! ?
(progn
* o p* x. P n" @# d
(setq name (cdr (assoc 2 templist))) h3 i' w$ y$ ]
(setq sortlist (cons name sortlist)): u( W: [. ]2 W( N
). t4 K. c5 }1 s* d+ N
) ^4 K4 b' s4 r' t
; Get the next layer.
2 w: t' {% A0 w
(setq templist (tblnext "LAYER"))+ q0 Y1 n; L" h; o! j6 y
;; Not dead message...: z7 ?' G/ I1 q/ `
(if (= (/ layer_number 50.0) (fix (/ layer_number 50.0)))7 y5 e+ R" C d) C: E
(set_tile "error" (strcat "Collecting..." (itoa layer_number)))
% s% D$ U U2 e4 Q3 m
)" k. q* v: }& n- j; W) L
(setq layer_number (1+ layer_number))
# k- N2 t0 b% k8 N" }& o
)9 {6 N9 I6 D* i0 o2 b. Z* `$ q6 ^1 H
(set_tile "error" ""), t, R8 h: U* I1 {8 P' T+ M: T; D
(if (>= (getvar "maxsort") (length sortlist))
) `; e" W d( }' b! ~) a8 S- L% F% q
(progn
" Q$ q( T3 e% Z" z: v* E
(if (> layer_number 50)
1 X* Q- K, R& ^ m2 Q# ~/ B
(set_tile "error" "Sorting...")8 H5 {. R8 a5 g; b; ~6 [9 b
)
# E9 C3 T) \! V, A
(setq sortlist (acad_strlsort sortlist))
$ g8 [6 g7 b' `( E! x% N* @! j1 U g
)
E# y& Y# _: f% @; u; a
(setq sortlist (reverse sortlist))
5 W0 _5 o. b4 p6 E
)
9 V4 D5 V( d: q2 c# `
(set_tile "error" "")$ C8 z8 Z; H' j0 T" `/ v8 h5 Z
(setq laynmlst sortlist)6 w# H4 M( h R- u1 o
)9 p: @9 f# q1 z% ?& t' i
;;5 {7 }8 D- m8 M1 Q
;; This function makes 2 list - ltnmlst & mdashlist.
, n9 f' u. ^6 N: i
;; Ltnmlst is a list of linetype names read from the symbol table. Mdashlist
; a: M p% Y) x" \
;; is list consisting of lists which define the linetype pattern - numbers/ w, N. l2 \3 X6 p
;; that indicate dots, dashes, and spaces taken from group code 49. The list
' L* Q n2 G% I4 d6 b
;; corresponds to the order of names in ltnmlst.
8 q$ A( c: U: l- `" x( H" a) m
;;% t9 W Y! u. B, R( t! G
(defun make_lt_lists (/ ltlist ltname)! |3 ]/ p" m8 b& _$ p, g' F$ O
(setq mdashlist nil)
L$ l- b' u/ V; z" z: Z
(setq sortlist nil)
/ J8 M! ]. E3 l$ {# A: X/ q- j
(setq ltype_number 1)
9 l& A- d+ f. y. ?5 k
(setq ltlist (tblnext "LTYPE" T))
9 x- O( R0 U5 R" G" _) t" W
;;(setq ltname (cdr (assoc 2 ltlist)))7 @: `$ o. B3 }- j: ]* t4 n+ D3 S' e" {2 z
;;(setq ltnmlst (list ltname))
- V. m/ u* c. a4 S d8 D
(while ltlist9 Z! E4 {5 g+ ^- n9 v
;; No xref dependent linetypes, please.+ s5 d3 j; F5 m/ r) _
(if (/= (logand 16 (cdr (assoc 70 ltlist))) 16)
7 K9 o5 y" F2 t
(progn
& M f8 Q S0 s& t0 v1 N3 R% _. ]
(setq ltname (cdr (assoc 2 ltlist)))
, I; v: r" T( K$ Z
(setq sortlist (cons ltname sortlist))
% `; q$ |* ~1 A; v- I
)
* J$ F0 |# @ @( R% j9 e
)& N8 T' b+ R5 r }: K
;; Get the next linetype.
- c) Z8 |7 E4 ?6 ~$ u7 w) i ^
(setq ltlist (tblnext "LTYPE"))' q2 P/ B+ a- r6 N' T K# M) z
2 J4 U- O. c5 M1 @4 b3 j
;; Not dead message...
1 O! ~% k0 _/ |' Q4 r1 S
(if (= (/ ltype_number 50.0) (fix (/ ltype_number 50.0)))
/ N6 P9 I1 M2 f- ], Q& p
(set_tile "error" (strcat "Collecting..." (itoa ltype_number)))
)
, r: C: a# \+ Z) D( z) I: q9 L g
(setq ltype_number (1+ ltype_number))' S0 t$ H2 o& @4 M" U% m- O9 P
1 D* N* d7 X A! w
)% i% {2 o5 L; t( q# i1 ]
+ v' @2 r" J. N: Y- ~
;; Remove Collecting message.
, |& z6 n% F& H5 Q: e, F: `4 i
(set_tile "error" "")
+ J5 U! t7 L0 [" {1 h
5 S* ~% O; R0 K9 _+ R
;; Sort based on maxsort.% [6 Z& C0 h; l, |$ G
(if (>= (getvar "maxsort") (length sortlist))
) k4 {9 }' S* T7 o8 j
(progn
5 K3 E% g& {5 C
(if (> ltype_number 50)2 K* D7 }; V0 p) {, r/ m' g# c
(set_tile "error" "Sorting...")/ z8 G6 C! P2 ~; ]: [; p
), S4 c& C% C! v4 a
(setq sortlist (acad_strlsort sortlist))
3 O* D* O# D+ M! G7 r3 g% |
)( K: e1 d g% t: s
(setq sortlist (reverse sortlist)). ^% e3 [$ I' Y% P+ Y& K5 @9 W
)
" n/ o& |7 M' I) y4 ^- \0 j1 p' V
(set_tile "error" ""), J8 _/ t# E, C% `1 x! s1 @
(setq ltnmlst sortlist)
/ g7 S* v9 q6 ^; S
+ w8 s' l& @5 r4 i
(foreach ltname ltnmlst- }: ^' T0 W/ f+ n# T
(setq ltlist (tblsearch "LTYPE" ltname))( [5 P1 ]% W$ E$ ~. A
(if (= ltname "CONTINUOUS")3 \, ], I5 ^0 p, j- w
(setq mdashlist (append mdashlist (list "CONT")))
% S! r8 N- o4 K4 g7 w) p
(setq mdashlist7 f7 U( a. Q7 J" m: d7 `, |* W Z
(append mdashlist (list (add_mdash ltlist)))3 e3 T2 ~6 r8 Z7 K- ]3 M% s7 e
)
2 Y- p, a: G _+ d: }
)7 }3 @1 u6 @/ [' s& d# g
)- q* {9 v4 x3 `3 v* j x2 M) a
(setq ltnmlst (cons "BYBLOCK" ltnmlst))
; z4 l# v4 d0 e$ c. g
(setq mdashlist (cons nil mdashlist))8 S3 p7 z4 h3 X! t5 r# m
(setq ltnmlst (cons "BYLAYER" ltnmlst))# l! p! ]* s+ }4 G& W4 _
(setq mdashlist (cons nil mdashlist))1 {: h7 S% l- j0 u- j; F4 W
)
% O2 }; y" Q; I8 K) P8 g
;;$ B( K7 Z1 f) m
;; Get all the group code 49 values for a linetype and put them in a list2 {* W0 k$ d& P2 H. z
;; (pen-up, pen-down info).7 `9 f! ?* h7 t" \, F5 ~4 S
;;
4 o7 F2 m0 m1 [4 H$ h
(defun add_mdash (ltlist1 / dashlist assoclist dashsize)
7 T) y" A: u x) T
(setq dashlist nil)
$ ~5 O& n3 `% x* d
(while (setq assoclist (car ltlist1))" U' l* V! A: {& K8 X$ F7 r
(if (= (car assoclist) 49)2 O! [ n9 s5 U( v3 R: P: R; ^0 v
(progn
3 J, X1 u+ ~# V8 I4 p
(setq dashsize (cdr assoclist))8 N% u/ H5 t w' a# v2 ~& h( p& x
(setq dashlist (cons dashsize dashlist))- }8 d* |. P0 G$ i6 a% g8 i
)
( |# J3 s0 m% F' h7 g
)' G2 n9 g2 R$ t q4 D
(setq ltlist1 (cdr ltlist1)); s6 C! a1 f& U0 @+ ^8 d
)
1 ^' G8 F" e. A3 C. N
(setq dashlist (reverse dashlist))
8 d$ x. t; r# I: e- C- l. g+ B6 F1 [
)
# a8 _$ v( @( n, E; h& P' \
;;) p6 b: I9 O' M( m3 E
;; Color a tile, draw linetype, and draw a border around it
4 _" m/ U$ T# O7 {2 t L* W/ b
;;
' F; J$ E, L$ x' Z }2 b
(defun col_tile (tile color patlist / x y)" `/ E4 y$ X; e9 [7 n) V* g
(setq x (dimx_tile tile))
1 D" I$ X8 B0 D+ e, U3 U* A7 c* v
(setq y (dimy_tile tile))7 C4 U/ g$ W3 Q2 V4 I T# ?; R4 g( z
(start_image tile)7 ?1 `7 W+ r: i! c2 m3 H1 h: ^+ D
(fill_image 0 0 x y color)
/ q; L& g) W: [
(if (= color 7)
/ D3 c" q* C; Y3 ~
(progn
2 r2 y# C) X e" b
(if patlist (drawpattern x (/ y 2) patlist 0))1 Y z9 A3 l9 C+ T. o3 c
(tile_rect 0 0 x y 0)
. K. U( V7 m/ M/ o
). b) ?6 A' ]* h5 H- J$ I Z
(progn) X* F5 R+ v1 G: k# V
(if patlist (drawpattern x (/ y 2) patlist 7))
' o* X; c: W+ ~
(tile_rect 0 0 x y 7)
' a" L- q3 Z! [; |5 |* t
)- S( W) d7 v3 Q! b4 J
)
) C, u3 r/ E2 P: p/ H' o3 Y
(end_image)
, _3 A4 K* n1 |4 f2 E4 a
)
+ r2 F3 Y% p; T8 ~4 q% M
;;1 O- F S* g. ~) l* g
;; Draw a border around a tile& `2 S2 N3 y/ E- C* _: j; x6 C
;;
* G( ^/ N" P5 r' U) Y
(defun tile_rect (x1 y1 x2 y2 color), B c, ?; U5 q8 M: k
(setq x2 (- x2 1))
* _) c/ U D# M; ~9 e9 ~& A
(setq y2 (- y2 1))# G2 L& r3 T+ ?% R. T
(vector_image x1 y1 x2 y1 color)
) y; W# ~& g# ?% x* o6 o0 t
(vector_image x2 y1 x2 y2 color) ~4 p8 Q) a5 }! S: o5 d4 y% p6 _3 o
(vector_image x2 y2 x1 y2 color)
, F. l1 u7 R3 [& J! F, H
(vector_image x1 y2 x1 y1 color)
' B% @4 f/ u: `0 m; _8 m- t! U
)4 {; N9 D6 h' {
;;+ P9 Q- K# M( y/ |/ g
;; Draw the linetype pattern in a tile. Boxlength is the length of the image
) p1 S' I7 @2 m1 |
;; tile, y2 is the midpoint of the height of the image tile, pattern is a: C4 l' g8 Y' U
;; list of numbers that define the linetype, and color is the color of the
9 O2 m; p8 j5 {
;; tile.
! J/ G9 [7 k$ y
;;
# S3 u. P* j- S0 U3 V* h
(defun drawpattern (boxlength y2 pattern color / x1 x2( x! {8 U0 t r7 O3 I( j/ a
patlist dash)
$ I, R! [8 j, \' c/ s$ H6 @
(setq x1 0 x2 0)7 v" ~' N$ j. m* n) o
(setq patlist pattern)& q( N: M! p S W' g" I: A0 M
(setq fx 30)) w' ^& [% D5 P* l/ o
(if (= patlist "CONT")4 U/ j" y+ F ~7 d
(progn (setq dash boxlength)
% B! j, f% y7 @2 z6 l8 r* ]8 F
(vi)
/ f7 t, g; k1 C2 R- L$ X, v
(setq x1 boxlength) F5 M+ ~& f4 F8 T1 `6 p! l6 x
)% D; d' B. Y! N2 W# }: S: M# y
(foreach dash patlist
$ r$ t. |4 V) {) s
(if (> (abs dash) 2.5)$ G% a! b. |/ s6 |% U9 E$ ]
(setq fx 2)0 n! v3 W, x# B
)' C0 o# l. ]+ I& ^. z! W9 ~" }2 z
)
( J9 }: T- h2 B4 F) ^6 e2 W
)4 r; i) m1 S9 Z! H$ l- ]; M
(while (< x1 boxlength)! H/ @" {, }9 J0 i! v! K
(if (setq dash (car patlist))3 w. x# i6 S) \) C
(progn, [9 {3 w& V! e, }& V; l& Z) J$ k
(setq dash (fix (* fx dash)))
p1 J# }1 O4 b
(cond
! a0 y6 H3 ]) ]7 t
((= dash 0) (setq dash 1) (vi))
+ F* d" f4 A4 @" i
((> dash 0) (vi))
( ]+ q! B1 e$ X- V6 E L8 S
(T
8 X v1 O- N1 l
(if (< (abs dash) 2)
6 |3 [) s" z7 V2 D3 J0 Z" ^; B
(setq dash 2)
0 T% ]: ~9 g L. b
)
* w2 B& E5 Q h
(setq x2 (+ x2 (abs dash)))5 F/ C. I. _$ U0 u8 U. W4 F
)/ l5 c3 y+ d: l6 E# D
)+ E. l7 l0 J6 q$ c# b' J
(setq patlist (cdr patlist))1 l+ x6 A2 Q$ Z% V1 j" N+ W" f1 C! j
(setq x1 x2)( v5 { M! L# m% R. W& v
)6 D5 F5 X% |* m
(setq patlist pattern)
% |* S+ e( o( V" d; g
)
" [( F1 o, F* B C
)5 [( F! M( T# p0 C
)' P* K6 N, h7 i6 t' R
;;: y3 L& u6 T4 r: L$ }8 L
;; Determain state of xclip
+ t. }- ?; d7 o, j+ k' F
;; Returns the group 71 value of the spacial filter dictionary.
" k2 |* o/ U9 {% Y& C
;; If the entity doesn't have a spacial filter dictionary, this
+ J) i5 i& [3 _" g% ~$ [: O
;; returns 0. If it does it will return 0 or 1 depending on the- B1 E2 q# `% b X( l1 E) S( R
;; current setting of the state of the clipping visibility.. G Z* t* q" O7 h
;;
" j9 W$ m/ Y: E0 C% A* m
(defun xclipon(elist)
& L- h6 ]) b- O4 l! j) i! p( ^- {
(setq hasclip T)1 K1 ^# s/ t0 J7 L! J# J
(if (/= (assoc 360 elist) nil)
8 t# ~7 u" I' @# c
(progn
; q9 b5 E1 n% h, c
(setq tmp (entget(cdr(assoc 360 elist))))4 [% x8 p: e/ h5 k
(if (/= nil (assoc 360 tmp))& @$ g, c* B" v- d1 E9 P* {
(progn5 g1 r4 r% V4 E% q# m+ u/ {
(setq tmp (entget(cdr(assoc 360 tmp))))
. q: Z9 `) q7 F% o( ]
(if (/= nil (assoc 360 tmp))
+ {! O" R/ @& i3 j
(progn# j w r% ~; j$ ?& j- H! u
(setq tmp (entget(cdr(assoc 360 tmp))))
7 t& G+ ]/ M( l' g
(if (/= nil (assoc 71 tmp))
! J' _( T% v* ?' }; z
(cdr(assoc 71 tmp))9 _; U6 e6 E9 [4 q8 O
(progn
' I# s' D* V# b1 \+ b: Q
(setq hasclip nil)
; x- N; G5 b) I! Y8 J
(eval 0)
( ^! N% V' P X0 N: m$ |) e
)4 C2 v9 [/ g/ y4 Q9 O" i
)( A7 S, a" @2 y' m" b& l" V" `, Y- u+ v
)7 @! X( b( }; d& N
(progn
: `9 o' n! k; s/ G
(setq hasclip nil)+ T' `/ W' g5 e( _; [
(eval 0)
+ o- ]5 }! d! k- ^! S
)% w' ^0 u W) u% y
)- \- Y, D7 c5 X: r3 L$ z! D5 f
)5 f9 c3 x" g, `8 m3 W- w( l" R
(progn 8 [$ J0 i5 V. x8 I
(setq hasclip nil)
$ d* Y2 |# }6 S% }, z! h
(eval 0)- m) T/ N0 {* p! o
): m2 Y; \$ i# h- j; W# M& W
)6 V+ u, {9 ?: N
)% k* R9 M* O7 X3 r I
(progn ! e2 e( |+ y+ u% F% S, Q
(setq hasclip nil)# p# z- Y3 M6 y, X. y4 v/ R% R# a8 i
(eval 0)+ [: ^: _9 L9 ]4 P4 q5 ]
)/ p' h3 D7 F9 A7 ^* p$ I" ]
)
+ L# ?' A& j, U9 h; y! U4 W
)
/ _! i( y+ s& p1 n! K
;;
. o S6 g' X, \$ |) v0 r
;; Draw a dash or dot in image tile
5 P9 _5 Z$ [# j6 y& o' C( s
;;/ i+ `4 X/ }- x# _/ \- n6 H
(defun vi ()
8 x4 b, ?( S5 j1 Q7 m8 Y' u
(setq x2 (+ x2 dash))+ ]/ G. T9 [% m1 @7 @# z
(vector_image x1 y2 x2 y2 color)5 C& G. C" x1 A, W2 B8 Y
)) v1 | [( q1 E- y. f
;;
1 ?3 i5 O. N/ C ~- ^
;; If an item is a member of the list, then return its index number, else
5 |/ U5 i! |* i% t' W
;; return nil.* x) s0 q6 b& I7 r4 \( u; w
;;( F$ M* W( j7 o! a; I! M, x
(defun getindex (item itemlist / m n)
/ \7 B+ o4 }6 C/ ^6 |3 Q7 m# r8 L9 O
(setq n (length itemlist))* N6 l4 d( J1 s. j9 y4 s
(if (> (setq m (length (member item itemlist))) 0)9 e. ~0 q& S5 {. ?) y0 u
(- n m)- k c0 b7 I$ _2 G4 V* Y$ x
nil. n* l8 k1 v+ a
)
) i7 v/ S$ T1 @1 x5 i0 M
)
" S4 r& I) }$ K( B3 E
;;" ]. E) g; ^- H
;; This function is called if the linetype is set "BYLAYER". It finds the
% C2 j5 p& Q; ]4 E1 E
;; ltype of the layer so it can be displayed beside the linetype button.3 p+ w$ s p+ D5 Z% I+ d
;;
3 E8 m" A0 P3 h8 ]% s. h1 n1 I
(defun bylayer_lt (/ layname layinfo ltype)
! C" Q/ ~ }, j' |4 B" o( H- i
(if lay-idx5 |8 s5 H$ O) g$ ^6 R
(progn' Z: }3 g d0 E& o! c. n
(setq layname (nth lay-idx laynmlst))
6 c: N! V) j4 |
(setq layinfo (tblsearch "layer" layname))
6 C1 R% C) N2 K) N* K$ o; U
(setq ltype (cdr (assoc 6 layinfo)))+ n8 s( m& j1 L% \! ?# j
"BYLAYER"- v3 W( e) W; ]) i; e
) E7 W6 `3 n$ T" Y
"BYLAYER"6 B* l# K2 ?; E& o% e
)* f* x0 ]# ~# x
)! F, S6 I% K4 T
;;/ W. _6 s, f9 Q5 ~7 C
;; This function is called if the color is set "BYLAYER". It finds the color
$ s1 M5 _! b2 v9 Z* a
;; of the layer so it can be displayed beside the color button.0 r! y: ]4 L) m" E/ l5 l, a I2 ]
;;( a* l. V. J8 ~% x2 `$ W
(defun bylayer_col (/ layname layinfo color)6 o; m( A5 c& \& @+ d D1 z
(setq layinfo (tblsearch "layer" elayer)): |) B5 W1 V3 h( |6 F
(setq color (abs (cdr (assoc 62 layinfo))))$ v: t/ J4 N) Z9 u
) I- z! }* n9 `' R9 X
;;
8 \- F7 s& }! j8 [# X6 d& j) Q0 l
;; Used to set the color name in layer subdialogue.. A) b; h( n5 T; E1 p5 q$ _. D
;;! P5 v- m+ H- q A
(defun colorname (colnum / cn)
, u* X4 O( I0 l" Y# | h! w# l
(setq cn (abs colnum))
# d4 ]% s0 ^% d3 P) }
(cond ((= cn 1) "red"); ~4 z4 g9 r/ Z7 [
((= cn 2) "yellow"): r9 N: b& y& q! G6 z& M, F; S
((= cn 3) "green"), E* Q9 r) e8 Y/ o5 D$ n2 U
((= cn 4) "cyan")' S+ C! N @( y
((= cn 5) "blue")% M- N9 S) Y3 e) I& H M( R6 T6 u( g+ y( K
((= cn 6) "magenta")
0 b! I) H; e& D% |9 S
((= cn 7) "white")% A7 e" X4 @# K
(T (itoa cn))
7 p" J3 N R5 C, \( U# w }
)$ |( P% j0 m1 j! M% e8 R
)% F8 ^. h, q% @3 b, k
;;
4 T* G, ~; f h) o: y5 V) g4 G$ Y
;; If their is no error message, then close the dialogue.
. D, l* U5 Z8 f( F
;;0 K$ V( P, R3 c; ?! {: H! l
(defun dismiss_dialog (action)
" ?- K+ \. m' N/ T
(if (= action 0): s" }! o* b7 I6 O T6 R
(done_dialog 0)
9 x% V4 ^( G0 `8 s6 C: @& @
(if (= (get_tile "error") "")
# T- a1 U0 V2 z
(done_dialog action)
$ }! |7 b3 B: Y. ?1 x- `- M
)
( R. Y1 }9 f! v& R2 I0 y
) c2 @7 p" w+ p+ \
)! i3 u# a8 v" C: R
2 ?6 B- ~( J' W/ H5 E
(defun test_ok ()- [/ Y: z K( O2 H7 t! U) E
(if (= (get_tile "error") "")
; s6 t& w: N7 \
(done_dialog 1)
d3 C4 T$ N: T( x
)8 I3 u7 y' A+ g/ B
)& I' g# ^8 J2 m, |$ m; A" Y
: h( l" A& i/ @1 g
(defun cancel ()
' @ G% p& V1 z9 j" m! a$ H
(done_dialog 0)* D f( y) s+ Y# m4 O: X
)2 v9 N" o% b. A" g' C3 [
4 N! Y0 P) o; F$ y0 g7 w
;;; =======================================================================
% A4 G' v% g7 O$ T6 d% T/ c1 x1 ^7 T
;;; SETUP layer and linetype lists for application, and initialize all
B" @" J) p, H, R T7 q
;;; program variables.
$ t. S# c1 y9 Z* }" o- d7 j
0 |5 o2 E1 ^5 z3 B
(setq elist (entget ename)5 e9 f1 O4 {% Y" O. x' x
old-elist elist6 ?) N# |7 q& Z- u
modlist elist% `% t3 A( E1 n/ m
etype (strcase (cdr (assoc 0 elist))); c: \' K8 ?$ ]' O9 I- I
ecolor (cdr (assoc 62 elist))
3 P) P4 C, e0 D, r
elayer (cdr (assoc 8 elist))! O/ m$ o) e1 d" y
eltscale (cdr (assoc 48 elist))
3 g2 a, W# r) M$ D
ethickness (cdr (assoc 39 elist))0 p4 `+ A1 ? v* s5 L
eltype (cdr (assoc 6 elist))
5 Q0 Y& e" }( ~, B, T% z
)7 ~7 K. N: b0 p1 {& ?" m$ u$ @
(if (= (assoc 210 elist) nil)
3 J! D1 X- A, Q
(setq extru (list 0.0 0.0 1.0))
# Y. n) a5 L* E) Z! L! X
(setq extru (cdr (assoc 210 elist)))9 p. y1 c& y( U" b0 [/ [' M' D
)
- \9 F- K6 ]* T2 w! |! g3 r6 z
' R' x6 _0 i4 b6 y
(if (not ecolor) (setq ecolor 256))! `) K: t4 E. D
(if (not eltype) (setq eltype "BYLAYER"))9 @) q% l* g) M3 a$ N- ~. c1 c
(if (not ethickness) (setq ethickness 0))
" Y6 O# m: k1 Z6 g/ Z" H0 b
(if (not eltscale) (setq eltscale 1)) f( I, m: R" Y8 E# A Y. h
) ; end ddmodify_init0 g8 F" q# t) H+ s
: K3 I5 t8 R: R, c; X
;;; --------------------------------------------------------------------------
4 b9 F6 Q! B- V: P
;;; Function: DDMODIFY_SELECT% B9 }" ^3 n* C6 K3 W% \
;;;
1 i9 ?0 L" K# s# F1 ]% z
;;; Object aquisition function.
% p- I A9 @: l5 g+ y5 @1 k" C
;;;' H8 S5 \& I; n+ T' f8 R1 s3 B
;;; (ddmodify_select)3 j! T2 L: G0 H# }0 E1 O) N
;;;
4 o2 s" F# t- l& Q6 K! o
;;; Obtains object to be modified, in one of three ways:
8 W2 e/ ^( I% e2 r
;;;* Q5 x. _, U( i/ c6 w2 _, T2 b+ y! q) _
;;; 1 - Autoselected.2 l) g- g' V4 L9 B( {' a) S+ T# {, O
;;; 2 - Prompted for.
) d7 v2 M2 T9 n. e1 x0 y- z4 \/ T5 i
;;; 3 - Passed as an argument in a call to (ddmodify <ename> )1 K1 b6 w, h( W$ ? Q
;;;
( _# S( \0 D) a9 R
;;; The (ddmodify_select) function also sets the value of the
% ^% k$ P8 N- [2 l$ c% w1 V
;;; global symbol AI_SELTYPE to one of the above three values to( w: _8 a1 a. O3 N3 U* r3 h: B
;;; indicate the method thru which the object was aquired.
% _2 U! `( Y/ m$ O6 }
;;;
8 j. G" p% |: c( j% P2 U0 `
;;; This value can be useful to applications that want to RESTORE
# D/ I. Z3 }7 P
;;; an object that was autoselected to its previous selected state. ?! r% ] q4 T1 N8 W- o, }
;;; when they terminate, although there doesn't appear to be any
7 h) B @5 ]6 n) w3 H
;;; way to do this right now.0 ^& l V) v$ l1 ]* d
4 e. _$ ^+ \" o% @7 r
(defun ddmodify_select ()
( L$ `5 I* M% c6 l
(cond
, d: B; u& v0 h7 P1 l6 C. X% p
( ename ; (ddmodify) was called! q0 i) `+ O! k9 O/ ]
(cond ; with an <ename> argument3 k ?. H1 Q1 i* J+ r
( (entget ename) ; If object is non-deleted
+ p" N' U% z# t$ ]
(setq ai_seltype 3) ; then return its ename.0 m$ j& R" |% v' I
(ai_return ename))))
2 \3 K7 ~9 o1 I/ ~7 Z
0 S& V' {( \+ ~0 j* _
;; return auto-selected , see ai_utils.lsp5 U! L- s# A$ R) b; L0 d
( (ai_autossget1 "\nSelect one object to modify: "))% k# {( W7 A% i2 }3 i" B
3 ^3 H8 T/ [. @* r8 s
(t (princ "\nNothing selected.")
. w" K7 V# Y2 X0 _3 {
(ai_return nil))
; S) _$ o# F4 @* C( e5 v1 o7 b
)
) Z) C5 G+ @- F* B2 s
)
' c! y* \- e* @ P) K$ J
+ r2 X% ~- t4 A1 _
;;; ============= Command line interface function =======================& u3 D" O+ `4 p1 Z0 P9 ?
5 `1 Z! ~4 _; @: N3 t" n$ O3 t
(defun C:MMO ()
& \+ I' j) M& K. J1 `, Y
(ddmodify nil)1 O3 O4 R3 x6 r7 J; ~3 Y9 F/ j) R
(princ)
3 M j% g* `* c4 L/ c, T# I
)
' I( F ^3 K! d1 L/ ^2 J
5 L* R4 t) l0 l) f# n
;;; ================== (ddmodify) - Main program ========================
" Z$ W c {& M$ T n. \: R! d; M
;;;5 w5 D/ p; ^& w% _* _
;;; (ddmodify <ename> )
8 S. P2 X, [1 e. q5 Z9 U! F: B
;;;
$ t: J' Z8 k G5 t" t
;;; Main program function, callable as a subroutine.& R; A, l8 j3 M6 {8 P b5 l9 d
;;;$ i- y. N1 d4 G3 U6 O) f( E
;;; <ename> = object name of the object to modify./ R" H; ^1 B3 B! Z* ]
;;;
& ?+ v5 L" V: A4 L' _$ ^
;;; If <ename> is nil, then user is prompted to select! @" i/ Q( m; Y7 @5 P
;;; the object interactively.
4 o) z; Y; N, F: @
;;;# x6 y7 z! }) [' n
;;; Before (ddmodify) can be called as a subroutine, it must
7 D" `; ^; J+ c6 C" H4 F" x. Z
;;; be loaded first. It is up to the calling application to
/ i4 k) @- l$ G+ V
;;; first determine this, and load it if necessary.. V! |4 B6 S" G
9 c6 \) A# a; n, Q' `
! t6 z7 e; d d# H' Z9 g
(defun ddmodify (ename /8 a$ Y: L4 I- T7 I. p# e9 F
2ndpt ell_calc_area move_pt1 templist- T. i$ O/ Y9 {% [) r. v
add_mdash ell_tile n tempmod& h8 c& w& x5 O1 q3 O+ i8 v2 q
alipt eltscale name tempst_ang8 C# x' i/ b- P, H# x. r7 V. A* q
ang eltype newpoint test_ok
0 j g& g( G' r( k# g
arc_calc emod next text
% U1 H+ `& q. X5 s$ x
arclen end_ang next_vertex th-value
3 o) E; K: b; Z5 q- g" x
assoclist endpt obl tile3 b3 j- Z& ]5 i$ b
atprompt errchk off tile_rect
/ m; H3 F8 `6 ]& k% _8 {
attag ethickness old_majrad tilemode
0 U; c* J9 P1 ~" {2 F
attprompt etype old-closed totang1 w! R! P6 q2 T
bit extru old-closedm tstyle
& {1 W1 M0 r! {" A7 Z" V
bit1 fchk old-closedn u
/ ?/ V k6 l; ]0 H6 o
bit-10 first-10-rec old-elist undo_init
; t# R! E5 A7 q/ S, z5 g+ m. m
bit-11 first-10-time olderr upsd8 ^, c7 R- t7 n+ S8 B5 A2 O& |
bit2 first-11-rec old-fit v
) [3 y# j' i+ z6 `/ S) ?. u
bit3 first-11-time old-idx va! R- R' J* \! i2 X. }' H4 M: `) M
bit4 fit oldlist value4 l0 _0 l' X9 c* D
bit70 frozth old-spltype ver_4% {6 t' n! d! ~
bit-70 f-vis old-u ver_ang13 u* P/ \/ c+ b3 H* d) x
bit75 fx old-v ver_ang25 {7 R7 _! g# E6 D
bk-up get_color on ver_col' V, F, Z# D" ~5 e+ R }+ ~
bkwd getcolor onoff ver_colsp
0 V: K. C0 R: |* ^. _' f: ?1 N
boxlength getindex on-off ver_eangle
7 _; }2 o, L! L, b
bylayer_col getlayer patlist ver_hght4 @- v( H8 Q6 i6 X3 I$ P
bylayer_lt getltype pattern ver_majrad; s5 |+ w) `1 U
calc getthickness pltype ver_obl: ~3 u* W' m' d( V# ]
cancel globals polytype ver_pt1% E2 Y: |1 Q; C$ U3 \& t
cir_calc ha pre ver_pt24 M h' y7 P {9 F6 _# q
closed ha-prev proplist ver_pt3
/ c) y6 f, u2 C+ P5 z4 ~
closedm help_entry pt ver_pt4
3 _+ j% ~1 s# k1 k2 Q; y# C
closedn hght pt1 ver_rad* {: i2 @% f# G# F, I" T. O# r
cmd icvp pt1_eq_pt2 ver_rot
^' y' L O# |" j+ Y! k
cn image_add_vector pt2 ver_row
) {5 _: o7 T/ @) Z
cname image_clean_variables pt3 ver_rowsp( H7 n4 G9 {! O7 w* v8 {; L5 \$ p
cntl-pt-indicator image_cross_product pt4 ver_tag( y1 |! h2 W$ E
code_71 image_disp_opt ptype ver_u0 l$ N% \/ e9 s; D
col_tile image_dot_product radius ver_v% t+ P+ R1 X4 j( q- E
col-idx image_normalize_vector rational_spl_flag ver_wid! |# o* g5 L1 P: c
colname image_rotate_vector reset ver_x1
( G; f D: m8 \! C1 d
colnmlst image_scale reset_flag ver_x2& g/ d" T: v7 T/ ?6 A; p
colnolst image_scale_vector reset_lay ver_x37 d' g# c6 S# K% f
colnum image_update reset_lt ver_x4
$ _" T3 e0 r- T! B, r# d
color index reset_uv ver_xline_pt12 c' i- K: ^ t# c3 Y4 v6 m9 a
colorname inv rot ver_xline_pt2
/ p' `; @/ P- {6 \" H
colorno item rows ver_xline_x1% ~5 \+ K0 [3 @# W, Y v$ R$ R
col-sp item1 row-sp ver_xline_x2
6 [1 k% p3 j2 J/ N
columns item2 rrat ver_xline_y1
/ D1 e- Q5 g6 M
con itemlist s ver_xline_y2; F) P; w' ?$ I3 }8 I
coord jlist set_action_tiles ver_xline_z1
. b+ G2 H0 }9 C- r* L$ K/ k2 j
ctr jlist_act set_just_idx ver_xline_z2
6 |2 J% c3 v) \
cur-10-rec just-idx set_tile_bk-up ver_xscl
}; J3 U6 m$ a2 o. d
cur-11-rec layedit_act set_tile_cntl_pt ver_y1
& ?$ }9 d" Z/ @& V+ R
cvpname lay-idx set_tile_data_pt ver_y2: A- r* I; { F" c+ [8 a( w: b
dash layinfo set_tile_dirv ver_y36 h3 r* z3 Q ~' G; H0 ^% K& T ~3 f
dashdata laylist set_tile_edges ver_y4
( B2 K. \/ H4 V+ F
dashlist laylist_act set_tile_endang ver_yscl
* T6 y% x% S- j8 E# l0 s/ `9 [* R
dashsize layname set_tile_hght ver_z1
! O% d3 o7 ?( J4 ~
data-pt-indicator laynmlst set_tile_icvp ver_z2
; Y1 D7 z3 M' f# `) `
dcl_id layvalue set_tile_just ver_z3# X( \8 Y W: m' }$ I H
dd3dface line_calc set_tile_obl ver_zscl
+ q& F3 u$ T9 n2 x
dd3dsolid linetype set_tile_prompt verify_a* p1 F) B- z6 S3 ^; X
ddarc list1 set_tile_props verify_d \# v& T. e4 \5 i. Z/ e
ddblock longlist set_tile_pt1 verify_i: ?3 J: w+ y0 K/ W
ddbody ltabstr set_tile_pt2 verify_xline
' h$ {- I7 U% a8 n- C% k
ddcircle ltedit_act set_tile_pt3 vfy
% m5 d$ k6 G9 ]
ddellipse ltidx set_tile_pt4 vi
& l3 J* W$ q3 i/ a) m* ~* \: o
ddgetprompt lt-idx set_tile_rad vlist7 e# I9 w( S# K! M
ddgettext ltlist set_tile_rc vname$ c+ q; a0 V: h! j8 V% n
ddimage ltlist_act set_tile_rot vpf: U/ q& H& ]- T3 G! X
ddimen ltlist1 set_tile_scale vpid
$ l( a8 |: u% R. i
ddleader ltname set_tile_spline_props vpldata6 i$ Z7 E1 S. y) D* n# K5 Q0 L( k
ddline ltnmlst set_tile_stang vpn0 ?; |( D3 H Z, m# c" X; G- i& a
ddlist ltvalue set_tile_style vpt. S, a) e+ e; ^! {: \
ddmline ltype set_tile_tag which_tiles/ C' i% C( q( b$ Y; g! j* z
ddmodify_err m set_tile_text wid# V7 A* m! s& G1 ]6 U* S
ddmtext majrad set_tile_vpt x
9 A0 f/ j) ]& q6 b5 X; X/ c
ddpline make_lay_lists set_tile_wid x1
]' `* x6 q5 j* \
ddpoint make_lt_lists set_tile_xline_pt1 x2
9 B' g2 |; P& C; j0 O
ddray mdashlist set_tile_xline_pt2 x3
7 E- p# d9 ^, S0 D
ddregion minrad setcolor x4, ]5 f X, F( ~. Y. w) B) @8 z
ddshape modify_3dface shght xdlist
+ t b s% d0 k2 }) E1 S
ddsolid modify_3dsolid showpt xline_pt1
' f5 p M8 U9 j; v- z
ddspline modify_arc size xline_pt2
, P3 T+ J* C+ r4 B& C7 S6 Q
ddtext modify_block slist xline_x1
/ i/ ]7 j7 A6 U
ddvport modify_body sname xline_x2
# q" p6 k/ y7 y: X9 O, C9 [7 q
ddxline modify_circle sortlist xline_y1
6 y2 F$ Z9 N% K$ G d; V) l6 {
denom modify_ellipse spltype xline_y2
. `! d: L5 |6 ?
dialog-state modify_image ss xline_z1; X8 A( r5 ]8 K
dir_pt modify_line st_ang xline_z2: r/ a. H% s7 b, B; o4 V
dir_ptx modify_mline stpt xscale
* u: x6 l' r( T& l* P* J2 G
dir_pty modify_mtext style_act xx) {, T+ O m: y) }
dir_ptz modify_point style-idx y& f( `6 B N7 q' F6 F9 {
dismiss_dialog modify_polyline style-list y1
8 j! I4 v. N8 \) q' V" @) Q
drawpattern modify_prop_geom tagval y2+ w y. o3 X3 v5 |
echo modify_properties temp y3
1 z0 s4 I7 }4 K4 O
ecolor modify_ray temp_color y4
6 @7 j6 V$ f5 E
edge1 modify_region temp_dir_x yscale5 b4 Y+ o. h% L4 b, i- K
edge2 modify_shape temp_dir_y yy- @# Z4 p) c( _5 [
edge3 modify_solid temp_dir_z z1
" _7 q% _( U& p4 U+ ]( |
edge4 modify_spline temp_xline_pt1 z2
( u6 H" N3 N8 z+ r5 N6 x1 @
edgetest modify_text temp_xline_x1 z3" I3 J/ O4 e1 C) o
elayer modify_vport temp_xline_y1 z4
3 N# T( ]" r' A
elist modify_xline temp_xline_z1 zscale
0 R4 N2 ?( Q9 f( Q3 s2 q
ell_calc modlist tempend_eang zz2 b; q O/ E! ~
dir-idx safe_ddedit ver_MtextWidth xcliponoff
4 j, E: n3 X+ j- `, q
MText_style. O! _, f8 L( m# o
)
& i# P8 u1 |9 L6 u! [+ c8 Q8 B: I
{- `& j9 ~9 Q% I5 T |# {
(setq old_cmd (getvar "cmdecho") ; save current setting of cmdecho
. S8 t; `# h6 j& G* r/ C
old_error *error* ; save current error function3 G. J9 ?) e; ~' U
*error* ai_error ; new error function
% A- p1 x8 e% V3 T
)' M0 [+ Z0 p6 P
3 r% G: z- `. H0 x
(setq old_pickstyle (getvar "PICKSTYLE")) ; save old pickstyle, I4 J$ D6 q- m$ | x; i
(setq new_pickstyle (logand old_pickstyle (~ 1))) ; turn off group selection9 b% ], h/ w& ]9 c
(setvar "pickstyle" new_pickstyle) ; bit and set to new value! ^: j7 M7 q2 H, s
' L; i* c7 a1 B
(setvar "cmdecho" (cond ( (or (not *debug*) (zerop *debug*)) 0)
% F4 r% a! B5 s3 i; i0 [/ H
(t 1))); Z l: C9 ~8 U1 B
(cond% D- s% u0 T! ]9 o3 y) n# D
( (not (ai_notrans))) ; Not transparent?
1 L4 Y+ d' W7 P8 F7 ~
( (not (ai_acadapp))) ; ACADAPP.EXP xloaded?' e p3 u; `0 D$ I
( (not (setq dcl_id (ai_dcl "ddmodify")))) ; is .DLG file loaded?* _5 l9 @* x- G. U1 i7 H- ?
( (not (setq ename (ddmodify_select)))) ; object to modify?
" {/ h; ]% ^+ `* E9 |# S
5 T$ r) X. Y- k! w6 |5 E* W
(t (ai_undo_push)
7 Y" p! X+ w& R! b
(ddmodify_init) ; everything okay, proceed.! a# _2 n+ f6 X5 H! f
(cond6 y7 R2 X2 v! Q
((= etype "LEADER")
3 r7 I/ o4 C' Q/ V$ P
(setq help_entry "modify_Leader_dialog")/ Q2 @2 k4 o, _/ k& I
(ddleader)" }& }& g( l" @6 w1 T- c# N* q4 u
)
/ c1 o; O9 n# n2 n6 K
((= etype "ARC")' i* Y* V. M& a, I
(setq help_entry "modify_Arc_dialog")7 w0 Q* P( _, W1 e& f5 F
(ddarc)4 u) _1 A' q# F" u
)
. {2 [7 m8 O! h, H
((= etype "ATTDEF")0 O2 j& W! G/ P
(setq help_entry "modify_Attribute_Definition_dialog")7 v7 u8 |' ^0 Q4 h ?; Y
(ddtext)' Y1 v4 Y0 }2 ]! K, a, n
); c7 q; O# C; B# ?5 ]( f
((= etype "CIRCLE")
f; W0 \1 V/ _! a' r6 g, T4 x
(setq help_entry "modify_Circle_dialog")
% C# p6 q$ a5 o; ?9 s. r
(ddcircle)9 U4 P) X+ D+ F$ b0 u- k* q- ?" [
)
$ ^* R/ O& H2 o5 z# o# c
((= etype "ELLIPSE")+ K W7 M# ~4 A5 u5 o# w( m; K2 b1 o
(setq help_entry "modify_Ellipse_dialog")
; C1 X1 c/ ?/ K1 _9 M
(ddellipse)4 t7 P! C5 t$ l! b# h
)3 s' }+ ~; {) b
((= etype "3DSOLID")0 o, e1 e$ K1 f6 V, X
(setq help_entry "modify_3d_Solid_dialog"): L, F1 E7 r S
(dd3dsolid)
2 m; s! V& i! G: F4 x' T# k
)( @ V- u8 R0 b" _, L
((= etype "BODY")
( i% k' p9 A- n( m$ e+ j/ A
(setq help_entry "modify_Body_dialog")
( e- @4 @# Z, J9 S; y5 n
(ddbody)
d1 D- _; K' k2 F7 a
)& w( h* q* @1 u; N N
((= etype "REGION")" h# s" @/ w: ~: ]
(setq help_entry "modify_Region_dialog")
, s7 n$ h3 e) K3 e( {( `, F2 Y; {
(ddregion)
! H" t% P1 d6 z) C' q! I
)
# v$ [9 E$ N) Q
((= etype "HATCH")# w0 n% x8 y1 y1 z3 \7 k
(setq help_entry "modify_Hatch_dialog")0 {. A4 Y# l" h+ |, O3 ^
(ddnewhatch)/ D* y7 T5 e8 h* z) [
)8 a6 j; g4 X6 |+ i, E
((= etype "SPLINE")0 S4 A7 D" D- i* C; ]8 Y2 K
(setq help_entry "modify_Spline_dialog")
* B& ~1 @( b* M" F K7 t
(ddspline)
' i$ V1 @- j9 ^& S) P
); f( m; M7 n. P" a @: q O; x( n7 S
((= etype "INSERT") ; see ddblock for help_entry
5 U" l1 \; f7 k. l
(ddblock)
7 u; g5 m) x" z" ?5 |( b# T) D. u
)) S. z" Y5 z9 c3 F; W- [
((= etype "LINE")6 f) R$ _6 H- b l ]
(setq help_entry "modify_Line_dialog"); u+ }8 |. I& c ~, y' ]
(ddline)1 l" E7 R& i6 T! Q6 J# T
)
5 W. I3 A6 K& f* G
((= etype "MLINE")3 ?7 S, J/ i6 P6 Q+ m( _
(setq help_entry "modify_multiLine_dialog")2 S# ^! u S$ U1 y
(ddmline): J3 K* {: s1 [8 u3 ]1 w
)4 U6 \' w9 F5 u5 v; i0 r o
((= etype "RAY")5 C2 _; A8 E: K
(setq help_entry "modify_Ray_dialog")3 U/ l) r, v* ^/ L
(ddxline)
& `3 E1 K' I' `" ^7 q
)% F- R8 N) n$ h: f; ?) ~
((= etype "XLINE")6 F% K0 K0 r' p5 E
(setq help_entry "modify_Xline_dialog")
' e4 N* p$ A- A( B: x1 X/ R$ X
(ddxline)
# B! g5 B1 q" ]* t! Q6 h9 u% ~
)8 ]# ]0 K0 U) w
((= etype "POINT")
% [ E$ a) c7 h
(setq help_entry "modify_Point_dialog")- [9 G1 W7 D9 W$ u$ |8 P5 U& x
(ddpoint)- P; n, w" d5 z X% u9 P2 g
) Y: q# f% X1 D
((or (= etype "POLYLINE") (= etype "LWPOLYLINE"))6 a& b2 g( C* ~+ Q- i
(setq help_entry "modify_Polyline_dialog")* o# [/ U: e3 J" f( f3 ?& H* V" @% w# N
;; If a 2D pline, check to see if it is planar to the current
8 W2 y% g% {4 L7 B5 @
;; UCS, reject if not. To see if the pline is parallel,7 a P* t6 S8 C( L* b
;; the 210 group (WCS) is added to the current UCS origin (WCS)
8 d! d! s7 |3 Q9 m( f8 d8 T, N
;; and then converted to the current UCS and checked to see if
# Z! [3 h" ]- T8 B+ X
;; it is equal to (0,0,1).) X4 Y7 g! M0 _# j% a+ x
) K; T, R) u1 g5 A
;; Incase the 210 is default and not in the dxf list.: U" V$ t' A5 U9 ~, M/ u% ~( E
(if (= (assoc 210 (entget ename)) nil)
6 g$ ?+ d% s$ W+ @
(ddpline)
, {/ ]. G8 r7 X
(progn
; S0 p9 K% t8 h/ e- B6 [( E
(if (and (zerop (logand 120 (cdr (assoc 70 (entget ename)))))
' l# t1 t9 n+ K: `, h
(not (equal '(0.0 0.0 1.0)4 U+ }# P4 V b- ^7 n8 S+ B9 q
(trans (mapcar '+- t6 q5 |8 U+ n3 k( L+ y0 F
(cdr (assoc 210 (entget ename)))+ a1 t7 u/ U7 C! K- v
(trans '(0.0 0.0 0.0) 1 0)
7 B3 M% q8 w# U+ e( O
)4 F! M: C4 p' F- @& B' s% h
0 1) o2 {& n0 L' v" S
)5 D n# g5 @: h
0.0000000001 ; fuzz6 m7 N. P f! W% y5 K) n4 j
)/ q- w9 y+ d3 h5 k U) P) H
)
+ }$ V8 u& R7 E
)
# r0 ~: n6 q; N! h+ a3 Q
(princ "\nThe 2D Polyline is not parallel to the current UCS.")
! U. d4 K6 l/ `" y3 j; Y
(ddpline)) y- @: @% M: J
)
. F& b# R2 q0 X L
)
9 P3 @0 n! D y: C3 S" B
)4 i& |( D0 S! }& R) m7 c5 ^
)
( B, ~ Q/ r; n% m; }6 \
' c& F- t# k. Y/ Q# U6 |
((= etype "SHAPE")
. |; {8 p; ~6 V" q5 p
(setq help_entry "modify_Shape_dialog")
2 G b+ Q3 D+ }
(ddshape)9 ?! `, h3 L; c( Z% m
)2 U8 D U" Y1 p) x
((= etype "SOLID")
3 G: f/ [: ~) R _( \
(setq help_entry "modify_Solid_dialog")1 l0 X/ R5 q% ~- P- g
(ddsolid)
4 z. p F' i, i9 c2 `
)
& A8 u- h& e2 F$ z+ a
((= etype "TEXT")5 o& q0 f s! ?. L. q9 J
(setq help_entry "modify_Text_dialog"). r$ E$ ]) Q# R' z0 Q
(ddtext)
: v8 E' T. ~) |3 }; x
)# ?$ l9 [5 S6 n2 Y! f; H g# B. r
((= etype "MTEXT"). \8 R q1 Y% b. a" `0 b
(setq help_entry "modify_MText_dialog")- t" }6 l( C$ I" \5 m' f, U
(ddmtext) {4 P4 M) S. _: U' ?! y
)' c8 p7 [& s. o1 h- W
((= etype "TRACE")
/ R4 q2 `* _ w, S" E7 i! n
(setq help_entry "modify_Trace_dialog")
# P8 }+ k) v1 ]
(ddsolid)
2 ]& a" W* [; Z# u3 c
)) e3 o D6 l# M, F3 C: D
((= etype "VIEWPORT")
" g( c7 y( ?/ r) o M& i! J* M
(setq help_entry "modify_Viewport_dialog")
4 O9 ~" g9 [) d x
(ddvport)) ^ F, r! \# b
)( A/ X! r/ T- Z2 [( N. b6 r
((= etype "IMAGE")- |. ?6 V+ s2 c- ~+ E
(setq help_entry "modify_Image_dialog")
8 e# N3 }9 [. \& B; Z# X- b
(ddimage)
8 e$ `$ {& u( k9 l
)
$ W9 i) i: V8 m
((= etype "3DFACE")
8 E+ {9 z6 l) o8 M; R
(setq help_entry "modify_3D_Face_dialog")) g h- A# {* H+ ^( T! {; P0 z
(dd3dface)
) H3 l' @+ U# }5 {" c* j* ]& i
)1 R1 P6 r2 l6 ^1 B9 i. s
((= etype "DIMENSION")
8 l& B3 o+ y; X
(setq help_entry "modify_Dimension_dialog")8 l; B* B- W0 H) W! _8 s9 H" c
(ddimen)0 H+ Y( L# w& q0 M% S) O5 J
)
: P9 \/ {0 M4 W# U' O
((= etype "TOLERANCE")
; a& a, a& k( o9 B y
(setq help_entry "modify_Tolerance_dialog"), x1 w. K. }2 o8 }
(ddtolerance) m$ d- [% b- ]; v
)* t1 [+ d" n5 A( m
;; Fall-through condition changed by MCAD for MDT 1.1 release.
, R5 h& H+ w7 P* K9 Q
;; This allows DDMODIFY to work on any custom object or any new object type( I! X, s7 _$ {$ n5 w: `
;; that isn't specifically handled above by calling the more generic DDCHPROP.* Z9 e* S1 P2 U, s. |
(t
8 n9 o) \8 C0 `5 r
(if (and (not ddchprop) (not (load "ddchprop" nil)))
. {9 v1 [9 ]$ A
(princ (strcat "No dialog support for object type: " etype ".")))
5 J2 e9 u5 O2 f& h5 m/ C
(progn$ J& T; V. L* X. }2 q
(setq tempss (ssadd ename))
# M# } P& c# g
(ddchprop tempss). o0 [' C1 l$ Y, W' f" j
(setq tempss nil)+ h& O9 A0 n9 |( I
)/ p" r5 I0 V# T! i/ t8 D1 j+ `
)6 f1 o q7 O" w
)
% A# J$ t+ e5 j, X5 P8 D9 W
;; Previous fall-through condition.
( e0 b8 s# u: W! w( U: O' l
;; (t (princ (strcat "No dialog support for object type: "% H* A7 I5 C, t4 \! F: Y
;; etype "."8 u2 q0 o6 i, u1 H7 c
;; )
' _. j: j( W! j4 B( K
;; )6 ^. M0 b8 ]3 @# l4 m f" Q
;; )2 D$ I, c9 L" O* E( ]$ W( q
;; )
' E; Y$ A" G2 Z0 ~* P( H
(ai_undo_pop)1 y _! r, |+ @8 @
)
% I5 {/ {( j+ x% ]6 J" B
)
+ H" a. P+ H3 ^
& [ s# v$ X/ k6 [5 W3 A
(if (eq new_pickstyle (getvar "PICKSTYLE")) ; if user didn't change pickstyle
- y: O% v! N: E
(setvar "PICKSTYLE" old_pickstyle) ; transparently then set it back
+ V. c* r) W; {
) ; to what we started with( a3 T5 r9 v) C- |
) C/ r" { ~9 s7 S, d
(setq *error* old_error)& \" T0 {2 [" Q) Z/ `3 @ n* [
(setvar "cmdecho" old_cmd)& D8 e& X+ @* a8 v% k% O
(if (not reset_flag) ; if object was modified, then
: b0 G ~5 k! h' b+ |
(ai_return ename) ; return it's ename to caller" p* g8 l8 Q7 C- y. V4 f8 i
)
% a: h- ]# F" E, R+ C6 ]
)5 @/ B* \9 G- P1 N$ _" Q
+ o5 j6 R ?; f% G( f
(defun checkForLockedLayer (ename)! {& F( X% q3 J5 L, d5 V
(setq layername (cdr (assoc 8 (cdr (entget ename))))) T8 v6 @( ~7 z) L. H- F
(setq layerflag (cdr (assoc 70 (tblsearch "LAYER" layername))))+ V8 S% d( O' U1 M6 z. W
(if (= layerflag 4)
9 }* k1 J: h- A, g4 H- C! j
T g: \ s' T L% s
nil% o( t2 b6 U' H9 o7 B0 t
): I+ V! Z: S) a+ Z
)( d/ @+ Z; t: J0 z
2 r+ O7 D3 N, E; A8 C
(princ " DDMODIFY loaded. ")3 Y6 W* {% m8 c+ _3 H+ L
(princ)
5 u# p; A6 t: F4 N, J& {& N( ^, ]) p
;;;???;;;---------------------------------------------------------------------------------------
' Q3 n! w& J _4 i' N3 S
9 P1 a) F9 ?5 U" L4 B# k( z
; Next available MSG number is 8
F4 g9 G; [6 y% c7 u( q/ _( C
; MODULE_ID DDUCSP_LSP_
, R$ ^4 f, r- k) ?
;;;$ e1 o4 U, u$ y
;;; dducsp.lsp
$ ^# w: c+ S0 P3 `4 W
;;;
% L. {3 y. z6 @8 {6 y8 K
;;; Copyright 1992, 1994, 1996 by Autodesk, Inc.
9 c& B7 P/ g: f
;;;
+ N8 K7 ^, |* R2 [' K* H9 @
;;; Permission to use, copy, modify, and distribute this software1 M( `; f- Y4 E2 ?3 u
;;; for any purpose and without fee is hereby granted, provided
) K* D$ ~: b6 O6 e) x
;;; that the above copyright notice appears in all copies and
+ o5 P& b+ y1 ~) g/ Q
;;; that both that copyright notice and the limited warranty and. L( j( R. {/ a3 T
;;; restricted rights notice below appear in all supporting
8 O2 x" Q3 T( L+ n* } o& S y
;;; documentation./ E( b1 B0 Y0 v% H R" `8 ` k0 n
;;;: b9 N1 ~) Z2 i9 K W/ u
;;; AUTODESK PROVIDES THIS PROGRAM "AS IS" AND WITH ALL FAULTS.1 M M# z3 L" Y8 A
;;; AUTODESK SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTY OF9 K$ F% V7 k! X
;;; MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE. AUTODESK, INC.
8 g* L1 }0 ^1 v1 j6 A& J. w
;;; DOES NOT WARRANT THAT THE OPERATION OF THE PROGRAM WILL BE
) }; ?* B" f: s% ]- S$ ~9 q
;;; UNINTERRUPTED OR ERROR FREE.
; l- ~# J; @* h. h; H* I8 @# c
;;;+ G0 Q3 q+ K% s) X& o7 P
;;; Use, duplication, or disclosure by the U.S. Government is subject to9 `# n* x+ V: x1 N% [0 H2 n
;;; restrictions set forth in FAR 52.227-19 (Commercial Computer* P/ i) z( Y( q4 ~4 h
;;; Software - Restricted Rights) and DFAR 252.227-7013(c)(1)(ii)
3 {( k: A, \/ H! }7 z3 U" d: I
;;; (Rights in Technical Data and Computer Software), as applicable.1 _, B* N; M) L' s
;;;
( k% M5 R, U/ a' s
;;;.
' l. U2 i1 q0 S2 C. L9 T, c; X
;;; C:DDUCSP - User Coordinate System presets dialogue.
7 Z' {8 L G8 S, O
;;;
! h% a) v( A% [6 E7 v u
;;; Uses DDUCSP.DCL for the dialogue definition. The# |4 x4 ]! i- c
;;; slide images are in ACAD.SLB.
3 L( U: A9 _9 Z$ X9 J
;;;6 H+ S" C- m9 C$ M- r# Z
;;; ===========================================================================
, S+ w. X( e$ S* H7 Q/ ^( _; P
;;; ===================== load-time error checking ============================
B% e! ?! E; S; ]6 D# `6 R* k
;;;. T, @$ z7 w5 |3 O" {
' @5 o( V* L; w! }4 ^- |' |5 c
(defun ai_abort (app msg)
. V" ~, l, N7 W$ N6 B @9 z
(defun *error* (s), ~# G9 l' j, x# A% Q
(if old_error (setq *error* old_error))2 V/ U/ L6 d7 t4 v4 R% [
(princ)
5 V9 R: |5 ~" D0 ?9 `& ], A1 v8 a3 z
)
, |9 E: d b5 F e9 ?1 R$ h4 g
(if msg
; s# f) a. f& _" @# E
(alert (strcat " Application error: "
, k" z; j [+ ^+ ^; N& r. l
app' g% Y0 S7 s3 U$ l( D
" \n\n "8 J$ W0 T. r# V2 z2 z: v0 i3 C1 n
msg
' m6 ?+ S9 P1 e9 M
" \n"' }0 A2 X" B8 c; S, j! {( r% d( L
)
0 z+ B' N8 u$ T6 J) b2 M
)
" N; D7 x6 b+ z/ Q; r7 L1 Z
) ~- ]1 E# `2 I/ x
(exit)4 ]1 [1 w2 K* Y, z |
)
* E4 b4 n" @$ [/ A/ E
3 x( x2 e! t, r0 b/ B# t4 ~+ i
;;; Check to see if AI_UTILS is loaded, If not, try to find it,; b' s5 ~' }8 ^
;;; and then try to load it.8 f# |% h/ ^9 a( E) M% `4 E2 p
;;;
6 Q+ y) r3 K; N* ^/ z4 O
;;; If it can't be found or it can't be loaded, then abort the
# n/ T' ] |# B6 j$ j9 d! A
;;; loading of this file immediately, preserving the (autoload)
: Y$ P/ V/ x3 @4 i+ H2 D
;;; stub function. e3 ~: J( a/ h. F8 y! O
; V8 @- }0 m3 o5 ?& R. o
(cond8 T$ h% l: [" F* _7 r, q
( (and ai_dcl (listp ai_dcl))) ; it's already loaded.! s! z( D% X% Y
4 N2 z) H9 @/ {3 s
( (not (findfile "ai_utils.lsp")) ; find it
2 U5 q) I% v$ E: F5 S
(ai_abort "DDUCSP"/ J) _( \: o3 d4 A
(strcat "Can't locate file AI_UTILS.LSP.", W9 [+ o) Q6 M# r$ Y- y# h# u
"\n Check support directory.")))
) e( G( {8 y8 M, A, r
3 n& o! q6 E4 G6 i1 C! C
( (eq "failed" (load "ai_utils" "failed")) ; load it
: o, T" b2 l/ k% W
(ai_abort "DDUCSP" "Can't load file AI_UTILS.LSP"))
( S# {9 X; N% |% F6 x6 ~/ x
)
0 X1 e/ W; c& R& ?( U; w
+ n6 u1 Z9 A8 R9 j" `
(if (not (ai_acadapp)) ; defined in AI_UTILS.LSP
% ~/ c$ v% D/ v# e- a
(ai_abort "DDUCSP" nil) ; a Nil <msg> supresses
; s" N8 D/ F0 [9 C t2 C
) ; ai_abort's alert box dialog.5 D! p6 {( o% ?3 ~% }
, g: [# Y) B& E
;;; ==================== end load-time operations ===========================$ H# p) L, X/ d7 r! L! r1 c
. M0 y3 @8 |) R
(defun ai_ucsp_start ( / program)' k6 w9 i+ Y/ O; e) M
;; Get program name
- w/ p( o9 r( k- T6 I8 a: T
(if (not (setq program (getvar "program")))
* f) u0 P; @% A% g3 y
(setq program "acad"): H! ?" |: d# ~$ a* o
)
9 x' z: ~9 X1 \* {* t
(foreach v0 '("world" "left" "cview" "top" "front" 2 f0 f' ]9 M! ]2 O, \
"bottom" "back" "right" "prev")
5 l7 j! E1 D8 j2 H; R+ B) x
(start_image (strcat "ucsp_" v0))
3 \& [8 q1 _! t
(slide_image
5 e( J e: s/ V+ q2 I$ ^
0 0
. S) K0 I+ X8 A
(- (dimx_tile (strcat "ucsp_" v0)) 1) (- (dimy_tile (strcat "ucsp_" v0)) 1)
+ ~$ T7 K; R# b G* ]
(strcat program "(u-" v0 ")") k8 V& F7 g. |/ \3 i4 ~9 Z
)# v4 g! G0 W) K, z8 N
(end_image)( R% C& y/ ^5 z. }
)( G( A0 y4 c( x: F) G" r. H
)
& R4 ^5 J0 i6 e; Q
3 [: t$ S# s' l8 P& a9 [
(defun ai_ucsp_set ()
8 g9 K- G* ~# }6 L: z3 D" r
(if ai_ucsp_sv
$ F6 J A1 E- F3 o
(command "_.UCS" "_V")9 G5 ?/ B& j( z; U$ L! j
(if ai_ucsp_prevs
! U, j* s( C% Q3 z
(command "_.UCS" "_P")
. ^3 C$ K) b( S
(if ai_ucsp_chg, h1 a& z3 q" S4 k* t5 S! q# V
(progn
- V! B5 X- q0 c J
(if (/= ai_ucsp_a "*")
7 S9 H8 `) j* n; q1 \$ l* ]
(setvar "LASTPOINT" (trans (getvar "UCSORG") 0 1))
6 I1 E0 s; K' c
)
6 c) ~: e, p! \, p. y. {) v7 ]/ t
(if (< ai_ucsp_pick 6)+ |0 H4 n3 N# |$ T
(setq ai_ucsp_set0 "@")
1 o/ u) A x9 j* H
(setq ai_ucsp_set0 "*0,0,0" ai_ucsp_a "*")1 Q% C# |( p1 m, K$ ^
)
3 Y; Z& ]- q& e! l- k' d( D0 K
(cond ((= ai_ucsp_pick 0) v- u5 p) a2 b
(setq ai_ucsp_set1 "0,-1,0"! N. \' F% Y& k8 \+ h6 t
ai_ucsp_set2 "0,0,1"! I* p: Z" g6 K' ?; U) a0 S1 P
). m# G: z) x% d/ G' O
)% p0 N2 S. B0 M9 \% ?* a/ M
((= ai_ucsp_pick 2)) x" ?& M$ F7 R
(setq ai_ucsp_set1 "1,0,0"2 Q& P$ |5 K& O2 I( f
ai_ucsp_set2 "0,0,1"
# V8 k: e- b% M9 d$ {. H
)5 ~7 f) y4 y1 k5 G
)* u" {: l9 n( ^0 S1 h; m9 f
((= ai_ucsp_pick 3); e8 V* p# s, Z3 ]
(setq ai_ucsp_set1 "1,0,0"& T. m: N* N" \7 Y5 }4 a
ai_ucsp_set2 "0,-1,0"0 }6 {* _( ]+ \( E* D( f3 c
)
) v8 s! V4 ^* T% @3 K- w
) H* d9 a5 e \$ N2 \0 E
((= ai_ucsp_pick 4) J% h2 j" U `) v
(setq ai_ucsp_set1 "-1,0,0"' ~( A+ W! t) c) ]
ai_ucsp_set2 "0,0,1"
W3 o* L; Z3 @! p
)2 e+ T! ^0 t( C. g
)
: M0 A) N2 ^( W) H( s+ n" }0 s# v
((= ai_ucsp_pick 5)6 }3 J+ h; A8 a4 `3 D5 n5 f
(setq ai_ucsp_set1 "0,1,0"/ x% u% v" E3 R
ai_ucsp_set2 "0,0,1"' P, E+ E$ a$ z+ ~
)3 z2 K' B6 L& Q
)
6 [3 J0 V O$ b
(T
3 n( a8 L8 ~6 a3 t \
(setq ai_ucsp_set1 "1,0,0"2 m5 `0 t# ~& B
ai_ucsp_set2 "0,1,0"% h: G% I7 ^$ F; Z; W
)
$ u0 [9 n& J" T- `
)
) z b P2 T, \- H2 n
)- C" J X) I6 }1 S) H
(command "_.UCS" "_3P" ai_ucsp_set0 3 R) I% W8 [" ~
(strcat ai_ucsp_a ai_ucsp_set1)
# e& H' ^1 H5 L- @7 a. s$ ?# u
(strcat ai_ucsp_a ai_ucsp_set2)0 @ ^# V; C3 H' Q
)
3 k0 Z0 E$ o. ^- {, q6 q" U3 N
)
9 I8 ]; d" K, ?% C
)
5 v9 E" l8 ^. y$ ?' Z
)
. F4 J' R- g7 s- s( ]" C
)
# j/ `8 l/ f3 `7 u) g" ]) x+ X
)
* q: W2 g+ m' \# x! j/ O/ @$ V
/ H k! T! v( C# ^
(defun ai_ucsp_p (val currtile)3 Z& U( u; D, {. B
(mode_tile ai_ucsp_currtile 4)
m, t6 R* g! p
(setq ai_ucsp_pick val4 n3 d5 C! o5 V7 |. _
ai_ucsp_sv nil! V; i, v' _/ {0 {* S1 ~0 V% q
ai_ucsp_currtile currtile
+ F; S* P4 ?* ^$ l
)* r9 H) n9 C9 i! ]9 P1 E
(if (/= val 1)
. k1 g- {0 j2 X3 `# H, e2 K S
(setq ai_ucsp_chg T)' N' j- r& e5 L. `3 U, b/ }" x
)9 V3 p3 d0 R1 x/ t
(mode_tile ai_ucsp_currtile 4)
" Q* z% R" O+ k: k* B% E2 ~
)
3 ?0 `4 c! {9 i9 q( p1 x- _4 t
6 y0 Q3 U, z, ~' m. u( I! t5 m3 n7 {
(defun ai_ucsp_swcs ()
! i7 n2 U# v. W3 X# N
(mode_tile ai_ucsp_currtile 4)
) T( Q; u$ F* O# [
(set_tile "ucsp_a_wcs" "1")# n0 F7 k6 K2 w
(setq ai_ucsp_pick 6
+ M1 \, a! h; K1 c
ai_ucsp_sv nil: m/ S' Z* w- G. w& [9 b) O( \5 `
ai_ucsp_currtile "ucsp_world"
/ g1 d* z$ `3 |. k* ~3 P6 K
)! y$ v/ L+ m/ e) r' {, u9 |: l! V
(if (/= 1 (getvar "WORLDUCS"))
* x% Z" o7 {3 A+ }" I4 M5 S: b3 s
(setq ai_ucsp_chg T)
# X) ^" b F4 b/ T, |, P
(setq ai_ucsp_chg nil)+ T" s, J. Z! Q; F
)
4 g h0 O6 y! C+ G' F. N2 l6 W
(mode_tile ai_ucsp_currtile 4)
& {/ g% f+ A# C; l; |2 ]
)
# S ^$ l3 Q, J( r9 z3 P
0 `; U! J5 U5 i ^; P
(defun ai_ucsp_cview ()
9 U h ~2 A1 E; R) q+ B, E N
(mode_tile ai_ucsp_currtile 4)
R. e$ T3 f4 A0 h$ k
(setq ai_ucsp_sv T * A1 _- g" E) z% p! d
ai_ucsp_chg nil
/ G5 H9 K4 t$ A$ S
ai_ucsp_currtile "ucsp_cview"* v, P' M' {: o" _6 K; I
)
! [9 ]2 m, n8 o: z( O7 p- v% z' v
(set_tile "ucsp_a_wcs" "1")
; j6 |4 B& B7 B- ]2 h
(mode_tile ai_ucsp_currtile 4); k9 E9 Z' n8 o. S
)
% W( \% G' y5 Y$ t
9 @0 H$ m) w {( B0 }) t
(defun ai_ucsp_rucs (typ)
$ f' ~* w" s* O' F' X
(setq ai_ucsp_a typ)
# D. l- _" t8 N2 x1 X) q5 h
(mode_tile ai_ucsp_currtile 2)2 `' {9 l6 G& R6 W: L3 A
)
* ^7 W# e' d5 u. }: ~
( H0 I, }: k( V
(defun ai_ucsp_prev ()
% G- m/ R: s+ W" I* C
(mode_tile ai_ucsp_currtile 4)3 ~% x. A8 l& T g" u
(setq ai_ucsp_prevs T
& ]! b/ {) a( E' n! o
ai_ucsp_currtile "ucsp_prev"# B" k! }5 ?8 [) G. m- T
)" L# n! P+ _0 [- q- F9 c: j
(mode_tile ai_ucsp_currtile 4)
( f! H; |! q/ S; e4 x
)) M* ^% R5 m. M" N, B7 j
5 V4 Q/ J: X7 g' |& v8 R
(defun ai_ucsp_main ( / ai_ucsp_pick ai_ucsp_sv globals)0 f/ o. z( z( n" U j
(if (not (new_dialog "dducsp" dcl_id))
) R: Y+ I j- B/ w3 ~
(exit)" X1 O& j' t% ?% V0 x3 F8 t
)
. i6 R5 G& b1 T- U) C2 _9 W- P
6 t! M+ F2 n {
(ai_ucsp_start)$ t; w1 A% W; _ E% j7 _
(setq ai_ucsp_a "@"
/ M. I R0 O: |3 F" Z9 z
ai_ucsp_pick 25 ], T2 O V. |4 W4 A9 Z9 t
ai_ucsp_currtile "ucsp_top"
4 c1 E, ?4 L, B% x; F5 ^
)) M7 t* e# h6 d, t
(if (= 1 (getvar "WORLDUCS"))
3 a3 L+ P& Y( P: S# D1 l! l
(progn- j; ?: P$ ?6 B3 E4 k
(set_tile "ucsp_a_wcs" "1")
+ X8 `& b8 \/ X/ f( R& q
(setq ai_ucsp_currtile "ucsp_world")3 n8 Z( \; L4 T( k
)# B' b. U! p. |, T; e) C
(set_tile "ucsp_r_ucs" "1")( B1 W t8 t# @* ?) P
)
0 f" P( p6 Y7 M8 c
(mode_tile ai_ucsp_currtile 2)
7 x0 D% t0 H" E( j
(mode_tile ai_ucsp_currtile 4)
. n- J0 y; B! N3 q( ~/ @
(action_tile "ucsp_world" "(ai_ucsp_swcs)")
2 u/ m4 l4 W+ ~2 [5 U1 K. T9 N+ R9 }
(action_tile "ucsp_cview" "(ai_ucsp_cview)")* a+ p8 A% f) i8 K# T" O5 i) J. Q
(action_tile "ucsp_left" "(ai_ucsp_p 0 $key)")3 o5 B: O/ ?; _* N$ D/ i. z
(action_tile "ucsp_top" "(ai_ucsp_p 1 $key)")
! [* k* {2 ^3 t$ n" I! B
(action_tile "ucsp_front" "(ai_ucsp_p 2 $key)")
$ V* z: [! [; C/ U0 b! @ u
(action_tile "ucsp_bottom" "(ai_ucsp_p 3 $key)")
1 ?8 d5 K2 t) \6 H4 D' e
(action_tile "ucsp_back" "(ai_ucsp_p 4 $key)")" j* \8 p6 K1 P; h% U
(action_tile "ucsp_right" "(ai_ucsp_p 5 $key)")
V' ?) \- n3 x, V1 Q" o8 t6 \
(action_tile "ucsp_prev" "(ai_ucsp_prev)")+ Y# H/ M- t% p+ I
(action_tile "ucsp_r_ucs" "(ai_ucsp_rucs \"@\")")
* F2 E1 Q+ \/ E2 s2 Q4 R3 x
(action_tile "ucsp_a_wcs" "(ai_ucsp_rucs \"*\")")
. b( r* E% u f1 t
(action_tile "accept" "(done_dialog 1)")! z& ` `" P9 u1 V! Z
(action_tile "cancel" "(done_dialog 0)")
7 ^3 U/ C8 [* W) x2 {
(action_tile "help" "(help \"\" \"DDUCSP\")")4 O; K) \6 F3 M: D- Y
(if (= (start_dialog) 1)
. b: _" n5 ~( z, b
(ai_ucsp_set)
2 b1 x9 H+ F" v2 x
)
$ R, Z4 |- q: T- h( t+ A
)8 }( T( M/ |# ^* I5 V
; o) D; ]6 m6 |: a7 u; [9 W; \
(defun c:UUS ( / app dcl_id old_cmd old_osmode ai_ucsp_prevs
' A" {( J, U% F" e" Y8 D1 v
ai_ucsp_sw undo_init)) c: A/ b6 _- j
9 h5 h, {0 W; ?& N
;; Set up error function.: t3 B- `9 D9 f7 _- c# s
(setq old_cmd (getvar "CMDECHO") ; save current setting of cmdecho R- Q9 ]/ H( h9 H2 @0 |5 L" _
old_error *error* ; save current error function
0 w- q. n5 Q; _+ {* U; [
*error* ai_error ; new error function
6 D9 @* L" R/ c" }/ H" V9 Z
old_osmode (getvar "OSMODE") ; disable OSNAP for duration/ N3 A) i3 I3 g5 P ~& w
)+ c2 f8 [) E" Y& b H2 A) r
' {: r6 C6 q* j
(setvar "CMDECHO" 0)2 E1 Q" ]- W9 Y6 ~. S
) F) U4 Q6 [3 }
(cond& t5 Z6 }3 L9 c
( (not (ai_notrans))) ; transparent not OK
5 j6 ~. W% w6 y5 }& t' h* }/ w6 w
( (not (ai_acadapp))) ; ACADAPP.EXP xloaded?
3 }! t/ v! b& _" \$ y/ W" p1 @
( (not (setq dcl_id (ai_dcl "dducsp")))) ; is .DCL file loaded?
( t( d; {7 d7 O" w- Z
(T (ai_undo_push)
3 B c: K8 j- w% ~6 O- _
(setvar "OSMODE" 0)( C1 R7 ~, j J7 v; A" ?$ e. a8 U
(ai_ucsp_main)
1 ?8 D( u3 {8 r; p
(setvar "OSMODE" old_osmode), b" D. P6 R% a; k( S
(ai_undo_pop)
/ H4 p" o4 |; t
)$ m6 W6 W% V& U9 h" @( n, @% X
)% |" o2 d. d4 r
- |4 h9 _; S# W Y
(setq *error* old_error)
5 M2 u- u. a! S% s) x0 R. h9 ?1 P) T
(setvar "cmdecho" old_cmd)
/ ^9 S5 O+ {$ J" W- Z& Q
( S; u0 U7 Q- h; l. z
(princ)
$ m; C5 A* Z1 C, g' Y7 S7 D* @
)
" q" Y" w) \; N5 D
/ D3 g+ [5 \7 t
(princ " DDUCSP loaded. "). h, l4 \5 I3 h8 P6 i Q, ]
(princ)
4 Z8 w) J; s+ _ a. J' _
& c! j* X, F5 f3 l( G9 |% L J
;;;???;;;---------------------------------------------------------------------------------------
2 H3 H; U3 S9 W7 ~0 l2 ], [6 f" I, G
( O% n. T3 F5 C% L
;;;----------------------------------------------------------------------------
- n x' @/ ^5 c/ |4 n, w: ?
;;;4 B$ |, K7 `% L5 O
;;; EXCHPROP.LSP # e: t+ D9 ?6 Y, T$ y' y/ W& P3 j/ C m
;;; Polyline and text modification capabilities added by % C3 a0 q9 A6 k1 K6 @
;;; Randy Kintzley
& r/ N ^- W# F5 y
;;; . K4 [0 {& m' @5 p" s
;;; Copyright (C) 1997 by Autodesk, Inc.& Q" E$ l* x5 @/ I: i |. ]
;;;
( }* \- u% F9 k+ u, j9 D) s
;;; Permission to use, copy, modify, and distribute this software
- c: P! W' I* A9 o" B% Z
;;; for any purpose and without fee is hereby granted, provided9 H* J* K/ K: j/ Y9 i O4 K: s
;;; that the above copyright notice appears in all copies and; b F5 e$ k6 ]3 J/ y6 }
;;; that both that copyright notice and the limited warranty and( i: o2 N2 T- B9 A
;;; restricted rights notice below appear in all supporting
& @ \! u. _& D" B$ T$ g
;;; documentation.
) H3 Q& \+ ]% X- l$ T1 U3 m
;;;
2 `- {1 M3 P, Q: L' A! z+ }7 M
;;; AUTODESK PROVIDES THIS PROGRAM "AS IS" AND WITH ALL FAULTS.
3 G c, p- A) q
;;; AUTODESK SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTY OF$ y- B+ E X J1 j/ F+ v- o
;;; MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE. AUTODESK, INC.
( M4 t( K5 ^4 T+ _& H. }% V6 L
;;; DOES NOT WARRANT THAT THE OPERATION OF THE PROGRAM WILL BE
, \9 g4 U2 d5 U d+ O- {- S2 N( w
;;; UNINTERRUPTED OR ERROR FREE.
" l' e: [0 L3 I- W) [; v" S. |. q
;;;# A5 P3 w0 L$ g Z( [0 d0 `
;;; Use, duplication, or disclosure by the U.S. Government is subject to ^1 I; y8 i; U# {/ B% g
;;; restrictions set forth in FAR 52.227-19 (Commercial Computer
5 O- m c0 V" h9 _
;;; Software - Restricted Rights) and DFAR 252.227-7013(c)(1)(ii)
;;; (Rights in Technical Data and Computer Software), as applicable." R4 ?5 v) T) n& K$ k
;;;4 d2 W+ V7 m) z% F+ O
;;;.
0 q1 {. P+ f' A3 N( ?
;;; 28 February 1997* K. i! ?% X! |' k/ p7 [( }( L
;;;
5 U1 f" a6 b7 k; o
;;;
: ]/ H: d' p g" V) C* K
;;;----------------------------------------------------------------------------5 F( Q) h: A6 g' z! Z1 y
;;; DESCRIPTION
$ c) R$ H: a; j, ]& T, }. o
;;;----------------------------------------------------------------------------& Q: v; E6 m1 i8 e6 q* x. s
;;; C:EXCHPROP is an extended or enhanced version of ddchprop. This
6 B( L3 E- G; X: }& E
;;; command gives the user the abilitie to change several characteristics . I% J8 j |1 y* J9 J* W% H# b: K
;;; of selected polyline and text objects. 2 p# K/ ^# b' W. i
;;; The style and height of selectected text objects can be modified
; ^' E6 ]4 h k t
;;; (including text, mtext and attribute definitions) as well as, width and + x! I \2 b, S& a) _
;;; elevation characteristics of selected polylines (includes lightweight and
2 h# q$ f$ A: N" i8 }' w/ q
;;; traditional polylines.)
& S) J/ b6 G5 o
;;;----------------------------------------------------------------------------, y$ @/ X: [7 q9 {. ^! G+ I! L) ]
;;;----------------------------------------------------------------------------
$ n- y q, B3 g6 _
;;; Prefixes in command and keyword strings:# _* |9 n& Z1 I! u3 H' @) |6 Y
;;; "." specifies the built-in AutoCAD command in case it has been3 H! M- q0 `' s0 Z+ g& I
;;; redefined.
& E! @2 y4 j8 I" \( S
;;; "_" denotes an AutoCAD command or keyword in the native language: w7 K! `- ^! b; d$ P8 s0 P( { z
;;; version, English.$ U8 D; |1 l* U& l
;;;----------------------------------------------------------------------------
% M6 r) ^6 ^. H; @+ n( ?8 c
;;;5 X" |8 _ z1 p, V8 Q1 v' s+ J6 [2 ?% Q
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
; t" J1 O0 w+ L4 V
;;;;;;;;;;;;;;;;;;;;;;;;;;;;GLOBAL INFO.;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
+ z. m: r! i: Z" F3 z9 a
;Functions created as result of loading file: exchprop.lsp* a5 N6 D5 I, `# F& Q# z
; DDCHPROP2, d# g9 }) e/ O2 a- o: a5 {4 S7 x
; DDCHPROP2_INIT
3 S# Q0 x. @) c6 {, s# d
; DDCHPROP2_SELECT
& ]. x. l2 q2 v( r
;- r& B% o; q- F m. x
;Variables created as result of loading file: exchprop.lsp
. q% K9 n( D9 x y4 F9 h1 u9 G
; OLD_ALLOC8 \, x+ d) }: A4 O |6 s' S5 r
;
6 D- Z4 @4 I' X% G' @
;Functions created as a result of executing the commands in: exchprop.lsp( X Z4 `0 Y# V
;
& k6 l. }/ N" E) x5 E
;Variables created as a result of executing the commands in: exchprop.lsp
G9 [2 o! i! v2 ]9 k% z! r! G
; AI_SELTYPE/ ]/ j2 p! n; x6 b
; BONUS_ALIVE
7 ]( M- }4 ^6 R; [7 P3 i, J, J0 Z
; BONUS_OLD_ERROR
( | m" i2 w( i7 H8 ]: b0 I
;;;;;;;;;;;;;;;;;;;;;;;;;;;;GLOBAL INFO.;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
8 w8 y9 t: j% _
;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
. o* x+ o' K( Y% g' E$ L- {
/ T5 {5 `. X! Z' l1 c
;;;" a, q& W$ i% X" V& g! A5 C5 c
;;; Avoid (gc)s on load to improve load time.
3 k' \. W7 C' i8 m7 D
;;;9 ]: K! j7 k: G
(defun do_alloc (/ old_allod new_alloc)
. r6 G5 E& Y& y. H4 u% C
(setq old_alloc (alloc 2000) new_alloc (alloc 2000)), B# A2 o( ^+ g; r' ]: c, w+ h. j
(expand (1+ (/ 4750 new_alloc)))2 p! }% }: R$ |6 R: a, n
(alloc old_alloc)
& |$ k$ ?' f! ~; L
);defun* f- t: {9 s6 r Y( E
4 K1 Z$ O& K T
;runs at load time - rk/ i, | {8 y% E% I$ m* K/ O
(do_alloc)* j3 Y* ?* H# F8 w# u
(setq do_alloc nil)
2 p2 O# O! m4 |: ~. C! d* v
;;;
0 x- c9 s2 @. z" v+ `
;;; ===========================================================================
6 F) |9 W U ^" u
;;; ===================== load-time error checking ============================
' L4 W) J& q2 T' A, J5 Y- z" k
;;;' h) B7 D* N8 z; P6 m
; ^+ z- D& m& W$ w& J
(defun ai_abort (app msg) 8 W6 Y/ ]* C g3 |; V, i: a
(defun *error* (s): C+ w+ E* x, d4 R' V1 L
(if old_error (setq *error* old_error))" G) `8 s, d1 f: j/ S* A2 v3 x; v
(princ); Y. p6 t7 o+ j( ~8 H0 {0 o, C
);defun
. i% z5 v5 u/ p0 C; p" e7 G$ m% K
(if msg$ S. _" Z j( {3 I8 m/ \( j
(alert (strcat " Application error: "
1 r+ }, M% G% T" Y8 V, k6 u
app
2 D6 M: M% b; V% a: {& {, o9 \
" \n\n "
; G2 Z t7 Z- O# E' x# h
msg( x. H3 T9 M7 f
" \n"& d& y$ H+ b2 W9 ?) h3 |, g. z$ S
)
4 E5 v& ?) m/ m) d% I8 f/ Y
);alert8 S+ d) f0 k& i
);if- h5 N, y; b# p% X8 u7 D' x
;(*error* msg)* Y% ^( m1 M9 @0 ?; I+ [$ z
(exit)4 D0 l% f' ?+ C
);defun ai_abort( d/ e& k5 c9 K+ |' m9 M* }
2 a" a7 G: ]- K: L& Y' j5 n) k5 R+ [9 x
;runs at load time - rk3 o5 J$ v( z5 s& [& w! V N/ H+ b; c* l6 l
;(if (and *error* ;added the if wrapper around this - rk.
5 v$ Q5 Y+ Y9 d3 g" v; }" R
; (not old_error)
# n" m7 m! R8 U9 {) U O
; );and $ r) T+ E" Q+ Z' t h
; (setq old_error *error*);setq, ?- a. C- W4 X; `7 Q+ M: P/ Y
;);if7 C4 h. R# L$ } a, K8 _
' z; H( U" y4 n) I: n
- T; p V6 w; a* j
;;; Check to see if AI_UTILS is loaded, If not, try to find it,( A" a: z; h) H% W. e: V6 v
;;; and then try to load it.
' Z2 S( W0 h) z( p; [9 {
;;;5 v& q D4 Y" F" P& z
;;; If it can't be found or it can't be loaded, then abort the
+ B. N, s2 F/ |4 n
;;; loading of this file immediately, preserving the (autoload)' w" ?6 ^' H: a( a9 @( M
;;; stub function.
! @. O( ?2 {2 F2 \ l
) L6 s+ ?( Z0 S1 O' |8 Q% b2 I+ ~
;runs at load time - rk.7 [: j! u2 @' t, i0 M
(cond# ]' H+ D. ~0 f3 l+ X
( (and ai_dcl (listp ai_dcl))) ; it's already loaded.4 _7 L7 A P6 ?6 u5 ~
( (not (findfile "ai_utils.lsp")) ; find it. ]5 \; i; w# c6 V1 f% y
(ai_abort "EXCHPROP"
; w- V( ]* n4 q1 _7 o& G" w; _
(strcat "Can't locate file AI_UTILS.LSP."
" ?' @7 p& S6 U
"\n Check support directory.")
$ Y }) x& _ F7 @- D3 n9 r$ g
);ai_abort: [* F/ N" g% D; p# E
)
$ z: b0 j" i, l, X$ b a S& [" N
( (eq "failed" (load "ai_utils" "failed")) ; load it
. [5 T! m: b4 v% I! S+ i
(ai_abort "EXCHPROP" "Can't load file AI_UTILS.LSP"). f# B3 o6 w8 c& h7 o& C' A- B
)- [: S4 {1 d# k( J* c
);cond close4 W% p4 l9 a, K8 |
: p. @6 l$ `. T. s5 w) G* ^! r% q* G
(if (not (ai_acadapp)) ; defined in AI_UTILS.LSP
' G" j* R# O2 R, p6 x/ p+ B
(ai_abort "EXCHPROP" nil) ; a Nil <msg> supresses: w# w9 b+ s. p# T* g7 o) {+ t
);if ; ai_abort's alert box dialog.
* @$ i& H" A4 x+ \7 \
" R( z# K/ A/ E9 T) v
;;; ==================== end load-time operations ===========================. ?" _5 t$ q! R8 m* E+ Y0 V
6 b& E0 _8 W7 k
;;; Initialize program subroutines and variables.# D% q9 d: `* A- a7 b. n' i
8 _0 B5 Z1 c$ Z* S
(defun ddchprop2_init()0 Y1 ?, ~& f% V' R
: P) D6 ?, X, O, q h+ g; ?
# h! ^7 L8 m/ L! T! D8 n6 g
3 K9 s- M" I4 a) t1 m+ l4 E: Z, y
;;
2 j. V6 q+ D' \
;; Define buttons and set values in CHPROP dialogue box3 { ]/ C O1 M/ i" s3 J7 c
;;
! J& l) E, Q+ a5 {, X* n( D
(defun call_chp2 (/ cmdact p1 p2)
/ f6 E* ^0 Q& l
9 e4 \+ P0 p% z/ w: [
(if (not (new_dialog "ch_prop" dcl_id))
7 O; y% U7 n |* _
(exit)
% Q1 P8 i: c4 w* A* t- y! ~
)& V( N! c1 p& j9 U+ N
1 `' Y7 ?/ J; C
(set_tile "error" "")
' q' G5 k" l' O' a
;; Set initial dialogue tile values
$ K+ d* q' _ F, J: h! I: }
(set_col_tile)$ I: }$ H9 T& K+ h) o1 I8 c5 M! k- K
(set_tile "t_layer" elayer)7 _/ S# H% ]1 ^9 [% h7 {
! @* I) o" W, E2 G6 F; O, i# d% E
(cond) j) ?% O- A/ K6 N5 q3 k6 z
((= lt-idx nil)* h7 G8 G7 U' T' k8 o+ X
(set_tile "t_ltype" "Varies")
- O( R( u+ _# q% g
)5 B5 S! Y7 T2 G1 }' s
((= lt-idx 0) ; set tile "By layer & layer linetype"& j+ x- [9 L k9 t
(set_tile "t_ltype" (bylayer_lt))$ e" ?2 e' Z. S4 L7 w. a
). Z2 [5 z+ \- l/ B8 W+ F$ \- ^
(T
9 G L- q7 D9 [* K* t
(set_tile "t_ltype" (nth lt-idx ltnmlst))
3 m$ A( v8 n0 j$ o
)6 W+ |5 I6 J" U! m: X& G
)
& E' b7 J" ~' v+ @
! Y0 I& p/ P" u' W4 g- |
(if (or (= ethickness nil)
1 e) h* x' t3 G+ a7 r3 q
(= ethickness "")
- d- B; H( K, o$ n
(= ethickness "Varies")
; q- u7 g3 I3 A( G3 `! }1 v: Z
);or
& O V7 A6 y2 C# E; G: E5 ?6 ?
(set_tile "eb_thickness" "")
5 _) K# ~( C( A6 z1 H
(set_tile "eb_thickness" (ai_rtos ethickness))
9 V* C! t7 i/ z
);if& j% u+ T: i8 _$ Q& Q/ u
(if (or (= eltscale nil)4 @0 o1 T0 G9 B; P
(= eltscale "")! _& J* V/ w8 p
(= eltscale "Varies")
0 [- L# {2 q" }, F
6 g, {1 E! z% A. q) L3 E& e
)
# u- T$ c; P4 [; A" G. e
(set_tile "eb_ltscale" "")9 \ {: s' D7 b9 F, Z/ R
(set_tile "eb_ltscale" (ai_rtos eltscale))
+ o8 n- w7 {% l* U1 [
)
! A% ~1 s# r" Z7 L, U
(if
, j( b# q/ |3 F" x, |# a7 U3 r
(numberp ewidth)- V e, k h' |2 d+ J' d
(set_tile "poly_wid" (ai_rtos ewidth))
) M8 X. O" a1 Z5 O1 n
(set_tile "poly_wid" ewidth)/ L2 U, f0 Q9 l
)
1 N' {" Z& M: x7 q p
(if
u) G. t' h; r4 U) K
(numberp eelevation)
5 d. z/ a+ a2 B, M! Z a |2 K7 g
(set_tile "poly_elev" (ai_rtos eelevation))) ~, D$ e- N" b- \0 H3 I8 j$ c
(set_tile "poly_elev" eelevation)& N1 a9 y+ |0 V. M2 S% L
)5 r. }) n9 }2 m" o Q
(if
: V; ], y5 C7 u! h7 O0 p( E9 J
(numberp eheight)
" a: D3 @# l C$ ]$ @
(set_tile "text_hgt" (ai_rtos eheight))
6 u9 b6 g9 v- k
(set_tile "text_hgt" eheight)8 s" F0 \) _$ k1 g4 a9 m
)
6 H/ B) p% C! X6 T0 b
(if (not estyle)
5 i& k! p4 J% @ b
(setq estyle "")
|" x8 k* u" f
);if
, ?# Z) g) w9 Y# i/ \
(setq hair_style_list (tnlist '("style" 16)));setq1 Q w- `2 f3 e, X
(if (not (member estyle hair_style_list))! o6 n4 Z) b. ~( `* O- x% K
(setq hair_style_list (append hair_style_list (list estyle)));setq; y0 K. M( `0 M- k
);if 3 }6 F9 [3 s2 Q5 b: R% N
, T( m3 l/ b! S8 k
(setq hair_style_list (acad_strlsort hair_style_list));setq
( k. C, ]0 g# W3 ~* U
(mpoplst "text_style" hair_style_list)2 V5 v6 c/ c( C4 f& k
(set_tile "text_style" 9 ]# L6 ~3 l4 e9 K% o2 Q
(itoa (position estyle hair_style_list))9 h% Z; \7 B/ J
);set_tile
. [, U& o. i# O. ?5 R
: S$ l* @& x! g+ x3 J
;; Disable tiles if need be... ;@RK( N# l* K9 |7 ~& H( b1 a% Q1 M' r
(setq a 0)# C9 \% w9 k" C# a
(while ( < a (sslength ss))& @ _. Z5 k7 `) x7 P- J
(setq which_tiles% k* z* F8 r! S8 }7 {
(ai_common_state (cdr (assoc '0 (entget (ssname ss a))))))
% {1 z1 ?2 A" t+ g2 h" |
4 s- Z% P# [+ Y2 \6 n
;; If all fields are enabled, don't bother checking anymore.% s, n8 f0 r1 n2 c
(if (/= which_tiles (logior 1 2 4 8 16))
, U& r' ]' I; b( }7 V
(setq a (1+ a))7 i6 i* J( ]6 J
(setq a (sslength ss)). I9 `6 P( R! B: v, V
)0 o; `- n' u/ C# |6 r
)
" R% O! O- _5 |" z
;; Layer Button and Text Field* C; o5 k6 z! n: t. _6 f
, H3 K; k2 L% b! q7 l' |1 s
(if (/= 1 (logand 1 which_tiles))
- v8 T/ l% d4 _$ [) c5 ?: ]. q
(progn
0 m; D% h* a8 | ~4 E) T) t
(mode_tile "t_layer" 1)" Y9 D/ z' r& k. ^
(mode_tile "b_name" 1)* ?7 b* w7 S/ k7 U! {
)# Y5 q$ E. D. N p
)
2 ]9 I: c0 x2 E, ]1 `( M+ C) X
4 V3 J9 p( Y U& a7 h
;; Color Button and Text Field
1 s$ n1 t) [( y& u+ N2 B x p
(if (/= 2 (logand 2 which_tiles))
1 L( v; Q; |0 I* J) r& u! C1 |# p2 B
(progn
$ U8 a. _. ^6 I5 j9 E0 k
(mode_tile "t_color" 1)6 p _. X$ A0 z" u. e
(mode_tile "b_color" 1)
# m9 Q/ J2 s, N# `6 P4 @
(mode_tile "show_image" 1)
" \ i- u0 v7 N: K: n: K* G
)* f; Y# E1 ?" b" \1 v8 x: n- U. a
)
5 i$ _8 l( B' Z6 o) O6 p
;; Linetype Button and Text Field
- Y9 r% T( `6 e% [1 u2 a; u
(if (/= 4 (logand 4 which_tiles))" p; E( F2 S$ Q! |( B
(progn
0 ^! {' R0 ?; y# ~% O. [: r
(mode_tile "t_ltype" 1)/ B5 e, `7 t2 H/ }
(mode_tile "b_line" 1)6 m8 ^& { _4 f9 w, ?! d
)
3 p0 \/ S0 k# f
)
8 V% ]* L9 N9 A% i
;; Linetype Scale Edit Field% y# H: f. k& D
(if (/= 8 (logand 8 which_tiles))
; A% z0 U7 z; C+ {4 x- Z6 [
(progn
, T1 S5 p, L7 e( m. g( O3 @
(mode_tile "eb_ltscale" 1)
* J8 A1 I' u( p6 R
)& d# n" N7 q6 F% Z7 d& u0 _1 {+ h# ~
)
1 Q1 _ R- A% R$ @# d0 G
;; Thickness Edit Field.
* X1 l/ ?+ i* i7 l2 a+ Z8 f
(if (/= 16 (logand 16 which_tiles))
" k0 n( i/ B6 |
(progn
' H: [- D7 P" c
(mode_tile "eb_thickness" 1)% ~. i: @# ?& D( ]# d% i; r1 i+ G
)$ D0 f( Q$ H$ O0 d* k
)' Y% V. s1 m# s0 u, M2 {6 q
( f8 i: V" N/ X5 I* d$ N
;; Polyline box and tiles @rk 10:05 AM 1/30/97# ?4 d. I1 p6 g! S, x
(if (not (= 2 (logand 2 eflag)))
2 y) [) m9 p( i3 m
(progn0 m5 J& _+ M# _" ]) S" l
(mode_tile "text_hgt" 1)
" @' n G+ C, x2 Z- G
(mode_tile "text_style" 1)
( ~9 r v' K4 x4 e; P
);progn% s" Y/ e& u3 }9 O2 l* B2 c6 U
);if
- z: Q; g4 U' a. R
(if (not (= 1 (logand 1 eflag)))8 w' l9 ~ ^* y7 L. ~5 m7 a
(progn
" X% @/ y- x( u3 l
(mode_tile "poly_wid" 1)
! F6 w2 I9 G/ T a% p% A
(mode_tile "poly_elev" 1)
4 S6 E$ a. d5 j, N2 ^# p7 _
);progn then disable polyline fields4 L# O+ N0 U3 a- F7 n/ ~+ R
);if
, J! F8 C8 `/ i& Z. S+ H" c
* O8 v9 n1 ]( \1 ]' ?9 r, v. i* b
;; Define action for tiles
' B; m/ g: V$ B7 y
(action_tile "b_color" "(setq ecolor (getcolor))"), Y. K8 w# h. A; x
(action_tile "show_image" "(setq ecolor (getcolor))")
7 h$ q6 k. C5 i( A- x8 X: h. [
(action_tile "b_name" "(setq elayer (getlayer))")" z' W+ A8 p' u M" r- K; j0 ` S _
(action_tile "b_line" "(setq eltype (getltype))")4 o( A: z& D; b. f) r3 r
(action_tile "eb_ltscale" "(getscale $value)")
, A4 B# [! A$ N3 h. H2 H) p5 g1 C8 ?' I
(action_tile "eb_thickness" "(getthickness $value)")# j4 K+ T) J# |
(action_tile "poly_wid" "(getwidth $value)")6 E4 J# B6 S% n& d @% X1 d7 A. K
(action_tile "poly_elev" "(getelevation $value)")
" y) a) q7 b. q' D0 v( H
(action_tile "text_hgt" "(getheight $value)")
" @9 _: \; ^7 x; A
(action_tile "text_style" "(getstyle $value hair_style_list)") 8 f: w' |6 z" M! D' U$ R
(action_tile "help" "(help \"AC_BONUS.HLP\" \"EXCHPROP\")")9 e$ o* \3 h% u0 c
(action_tile "accept" "(test-main-ok)")3 q: L5 k2 {& n
) ~. A/ \5 C G6 w, ~4 \+ Y
(if (= (start_dialog) 1)2 K: U9 h3 Z& A; r3 G7 L
(progn- x9 ]" f9 u6 d, p j) `* n' A- `
; Update special properties for polyline and text selection-sets.
6 a! O! F5 y' k* ~
% Z* G) p |4 g: V8 E
(if (and (= 1 (logand 1 eflag)) ; polylines rk chprop$ k6 o$ B$ ~! r" B
(or ewidth. V/ M, s: x) h& X4 G3 u+ a
eelevation
( { @# G' K% r- w, t0 b
);or8 D- e. m( R2 ?; u! ?
);and
8 j$ M7 {% z* _) r( L4 h
(progn, E1 _/ C( I0 X M5 P' j
(setq ss-index 0 % [& x5 I3 F* h5 u. b, s
ss-length (sslength poly_ss)
% k% v+ A: w4 @. l$ u9 P
);setq
5 b6 o$ [/ B3 h) `# {& f
(while (< ss-index ss-length)
9 f# I( v- C: s- M E
(setq ename (ssname poly_ss ss-index)
4 ?0 O2 ^0 k4 _/ L0 n
elist (entget ename)
0 |! [' x( Y) Y8 u4 j9 o2 z% _: V
);setq
& M6 [9 b" I7 I
(ucs_2_ent (cdr (assoc 210 elist)));this function lives in ac_bonus.lsp4 x' E8 l" `6 z) R# F$ ]6 a
(if ewidth
6 J; h- s9 f$ R0 K9 U5 W
(command "_.pedit" ename "_W" ewidth "_x")2 Y' X8 f6 V9 a' F
);if
# b7 {! I% q5 @' E& x+ v5 w
(if eelevation 8 G3 @0 P$ {% X
(progn' H0 ~' ^* L+ k" t/ u# S- d3 z
(setq p2 (list 0.0 0.0 eelevation));setq
% v3 X y9 X8 l
(if (equal (cdr (assoc 0 elist)) "POLYLINE")
' E( u, _* A S8 h9 M3 B* L) p
(setq p1 (list 0.0 0.03 [6 s* C& ^. a' ?- C
(caddr (cdr (assoc 10 elist)))
7 F2 e! r8 Z5 |4 l9 E: |& V
);list( |+ n. @2 J* ^0 K1 k, s
);setq, I8 b. E7 g2 P, ^8 c4 U
(progn7 J8 B; J1 j8 h' R' W7 M
(if (assoc 38 elist) `1 G2 N3 C; r' T. ?: s
(setq p1 (list 0.0 0.0( p, o4 n4 u, m
(cdr (assoc 38 elist))$ t2 A: M0 a) B1 k: |
);list
6 U- y7 x- v) X
);setq
7 ^+ `/ }0 Y9 f: n' {9 k
(setq p1 '(0.0 0.0 0.0))8 [- d: S, w9 N3 p
);if! N4 ~% q! N8 Z9 u
);progn
u. A, P6 m4 I# Y4 h
);if; [/ L) \3 N9 Q* M6 ^7 Q7 @$ Q, e
(command "_.move" ename "" p1 p2)9 j8 W) R% L( e: {$ q
);progn then change the elevation of the polyline# q% L( l2 f! Q+ E+ X( T
);if! G3 w7 W6 E" r; M& M% `5 K
(command "_.ucs" "_p")( m i2 D- s6 |+ ]9 i7 G' t! H+ c
(setq ss-index (1+ ss-index))! X; J2 k& ^9 I/ A) p
);while9 B' Q1 W( i+ S0 R$ W- S0 g: [2 k4 P" I
);progn then polylines are in the selset
( C+ U: q* N4 ?
);if
, c5 N% h* d6 Q9 Z
(if (and (= 2 (logand 2 eflag)) ; text. Z0 I% A9 f+ j1 v# v e3 n7 O
(or eheight
2 S. Q0 i. b9 a9 F
estyle
9 \" c! a. q4 [5 r
);or
( i- m9 v( I* D9 ^+ b
);and
' b8 A8 s/ l* @
(progn
L2 C1 O% U2 h
(setq ss-index 0 ss-length (sslength txt_ss))
- x8 P) G- e' F8 A
(while
. h& m" Z/ R1 b0 E P2 T
(< ss-index ss-length)
; B$ u7 \$ \& m' Y4 F
(setq elist (entget (setq ename (ssname txt_ss ss-index))))+ k$ x9 ?% ~/ z/ R
(if (numberp eheight)
4 O9 E2 T: W3 \1 |# \' u `
(setq elist (subst (cons 40 eheight)4 C- L& S. I" C
(assoc 40 elist)2 h. o, C- E8 W) A1 c5 L5 j: d
elist# |1 k3 U2 }; a$ g" U0 Q" }* [0 {: O
);subst( F* y9 S: U1 s K. i8 ^$ t% p
);setq
k! {# M, d5 T3 D5 `/ P
);if) S/ ]- c4 i( w' K' H# S
(if (and estyle ;(not (equal estyle ""))
- u3 K: l& m. E
(not (equal estyle (cdr (assoc 7 elist))))3 H5 B- ~/ d/ c1 y7 w. Q9 s( B {
);and% {6 h) U# x9 b7 L' D7 |( T
(progn
0 \. Q* x& K s" G
;rk. This needs to be implemented as per mtext font issue in ; ddchprop_notes.txt
Q' W& e9 M H- ?( _6 d3 @
;(if (equal "MTEXT" (cdr (assoc 0 elist)))
/ ^$ f/ T2 b4 |3 R% S/ Y5 c
; (setq elist (fix_mtext_fonts estyle ) s" c4 O: p# q. r; B
; elist4 ^' V8 L- x4 _% t8 a% @( i
; )' Y- }! D* A! c/ d" }5 z
; );setq then
# R$ [2 A9 k" S, G
(setq elist (subst (cons 7 estyle)4 w) _0 R, J% U. e; x' s+ @
(assoc 7 elist)9 Y# w% k/ q2 ?( x/ G) w' H( R
elist4 Q% U1 k7 U0 J; }+ Q2 H
);subst3 t: d T: w3 z% p% M
);setq else. x; o3 Y4 R+ N+ }+ c
;);if 2 Y# I5 ^/ M* u' v
);progn
- J% Q$ I* \; P0 c& Z% q
);if
6 M; y, R2 W& Q6 ~9 o
(entmod elist)+ y& G4 w4 x( h: }
(setq ss-index (1+ ss-index))
. l, e6 ?( H0 |/ P; s5 Y
);while0 P& {" n5 \, \8 p
);progn then
: W7 Q: N/ s0 N% n# P, X" F
);if
6 g- d. T( r! X8 w% ~: M
$ Z F" W! u- C- H" U8 b4 G
(setq cmdact (getvar "cmdactive"))
& a6 Z+ b$ y0 i) X9 S; y
(command "_.chprop" ss "")
1 b- {) |6 l' ~' t% t: |# S% p
(if (/= cmdact (getvar "cmdactive")) ; Is CHPROP actually running?
4 I* { S$ L e$ n0 ]) Y
(progn
" ^' x% C( t( m _1 Q9 Z/ H" ^
(if ecolor0 q1 k& j" f% C
(progn
/ ~* B! i8 p( A8 K7 k: Q
(if (= 0 ecolor) (setq ecolor ;|MSG0|;"BYBLOCK"))
' }4 k/ |+ w5 }& f& m+ E
(if (= 256 ecolor) (setq ecolor ;|MSG0|;"BYLAYER"))( G- `6 s' p1 k. D5 Y9 p( _8 S
(command "_c" ecolor)7 x' o/ `) f& ~- R2 P
);progn then
) T" H) G) `# p) |
)
+ | w5 {& n- [
(if (and lt-idx% o$ k; g) M) J* R- e
(/= eltype ;|MSG0|;"Varies")4 w4 o8 I0 J' @
)
' L6 |! y& [. S# L
(command "_lt" eltype)
F4 p* J5 S, D/ u3 h/ H. u
)( I& M* n8 I) B- N
(if (and lay-idx ! ~0 o; m8 I4 V: |
(/= elayer ;|MSG0|;"Varies")( y8 d% ~- n1 b0 n
)' o) B9 a1 ^2 z) j
(command "_la" elayer)
$ u$ @% z+ g4 n0 F; y( w- x
)9 v# K% V+ ?0 @7 q; q
(if (and ethickness 5 L/ a' V5 H$ z; q( l
(/= ethickness "")4 i( P! O' ~8 `- u
(/= ethickness "Varies") 2 L+ H# W( J& y0 m; r% o4 N
)+ c P. U9 U9 y8 b+ x
(command "_t" ethickness)
) r7 ^; |6 J7 T3 ~& k1 O
)
% j" N6 S' p* ^; y
(if (and eltscale (/= eltscale ""))
. B0 A+ X2 C2 |0 Z7 ?0 U
(command "_lts" eltscale)! C8 b( d, \2 O g. n
);if
9 h5 a: `! w6 |, H+ p* c
(command "")( q- G. R- d+ A& Y; [8 c4 n$ `
)1 P1 I" M4 ^! ]3 K: i
(princ "\nProperties unchanged") ; CHPROP didn't like our SS set6 g: Q ^; e( E/ v/ J& T/ D7 F9 `3 B
)7 J) N/ M9 c& J' n2 A
; L& R" ~, D/ J# R8 M
);progn then OK was picked in the dialog.: z/ p7 D( P$ S
3 ?0 i3 m- U, t- h
;; Fred GERBER - 25-AUG-94) B: j) y; U' n1 V, b5 g+ X
;; Don't print the "Properties unchanged" message when the user cancels. J& N8 y9 Z' e& r8 n7 x4 ~
;; the dialog because he knows that already (otherwise he would have
* A" I- A* f/ Y0 A1 e
;; hit the "OK" button). Display the message only if CHPROP fails for
+ K* B+ `) r6 @8 y
;; some reason, because it is not the expected behavior of the command.3 I d* \6 e( p; p# a; k v
;;" O3 D6 a0 F: p6 q# D/ Q
;; (princ ;|DDCHPROP2_LSP_8|;"\nProperties unchanged")" w+ j2 c% U. a0 i/ K
);if) Q+ ]9 J: H, F1 D$ V+ T
(princ)
# ?. J* q0 r/ A' |. Y3 F z
);defun call_chp2
# H; c7 [* b4 J# N
;;/ m3 u3 ?1 X. i, i* C
;; Function to set the Color text tile and swab to the current color value.
( j+ b' w% F/ t! ^8 T3 Q7 x E& l
;; v, E' S6 i# i
(defun set_col_tile()
/ b1 C: U1 o$ y/ C
(cond* F& F3 o7 X2 U% V
((= ecolor nil)7 b4 k J* j8 h' C6 D$ l Q, ]
(set_tile "t_color" "Varies"); r" i& A: C9 M, q# x
(col_tile "show_image" 0 nil)5 i% C1 i& L, y" g/ u
)/ X8 b# k6 N* a7 m/ s
((= ecolor 0)1 y7 Z) q) d" N3 q6 c
(set_tile "t_color" "BYBLOCK")
( Q; i& M+ {& _) M9 z
(col_tile "show_image" 7 nil) ; show BYBLOCK as white! m! N# V# j j
)" D% t2 Q- @4 b3 [! d
((= ecolor 1)# C& |5 _, M+ v2 A9 @
(set_tile "t_color" "1 red")
* L1 L9 ^- Y" W& E1 E, F0 z' y
(col_tile "show_image" 1 nil)% F. `* v$ A- p- V2 E
)
* h. H# ^9 @5 K4 S' v+ g+ F2 k
((= ecolor 2)8 E# \# M& @0 N F. |# R. M
(set_tile "t_color" "2 yellow")
% \4 z! s3 K3 Z) S4 F! K* T- q
(col_tile "show_image" 2 nil)
7 Q# y4 e4 Z, V. H) a1 R
), q9 z" V) F3 P, Z/ U
((= ecolor 3)
* @4 p% i; @9 y5 E7 ]9 Y
(set_tile "t_color" "3 green")) D9 {+ q8 I; \$ f
(col_tile "show_image" 3 nil)! @0 E# Y" [" Z5 J, i
)
- v+ ?2 R# o) S3 E2 o- x0 W( t
((= ecolor 4)
(set_tile "t_color" "4 cyan")
( W' P6 F$ E6 {$ W8 D
(col_tile "show_image" 4 nil)
: w0 w6 I; v& d. R0 L
)
. d9 ]) L; H5 S2 k4 F+ {! o) R
((= ecolor 5)
* h% J0 F) u0 l g
(set_tile "t_color" "5 blue")
4 v) i: Y% u( F$ [+ j$ s
(col_tile "show_image" 5 nil)
: y9 U$ t( t) f8 ? j# G5 P
)
* D3 r# f* t" q/ x n1 f
((= ecolor 6)+ k6 E" J2 x3 ~+ R3 P
(set_tile "t_color" "6 magenta")/ J5 A. Z! v9 B6 H4 _
(col_tile "show_image" 6 nil)
/ M# t; o. F% n
)" x& X6 B6 U5 Z) ]# h* K
((= ecolor 7)3 f3 i4 o# f: @6 d
(set_tile "t_color" "7 white")
9 I1 q5 w' ]* B# I) ]* b$ x
(col_tile "show_image" 7 nil)& x4 \7 q$ E: f' T; l
) k9 W! \+ k8 P1 J+ J2 i2 w
;; If the color is "BYLAYER", then set the tile to
0 x5 [( N" O$ p* g7 h# N
;; show it's set By layer, but also indicate the, P6 ~0 U4 X, i! G$ W
;; color of the layer - i.e. By layer (red), j$ ^, p" ~0 |+ L8 l
((= ecolor 256)) z. c0 e% A0 r6 {. O
(set_tile "t_color" (bylayer_col)) R1 X3 t& q6 I( |9 d
(col_tile "show_image" cn nil)
5 K8 p9 @8 s9 m% J, f
)
, b+ e0 C- I2 F# d z2 U: _" {
(T6 ~4 d) C { P/ F3 k6 c
(set_tile "t_color" (itoa ecolor))9 U$ } k& E$ E7 Q3 W; `
(col_tile "show_image" ecolor nil)
. K0 d3 }5 Z' o3 s
)% }9 O" w: U3 a5 c2 v1 ]" O- N, ]2 K
)
1 `& ^2 X; b' W5 |# ~* V" F# g
)2 u6 G* E1 A7 X: N1 P: C
;;1 J$ i& R# } E5 Z
;; Function to put up the standard color dialogue.
" I8 S+ w3 B8 B# ~3 q- R: h4 T
;;
+ A2 P/ K' v% l
(defun getcolor(/ col_def lay_clr temp_color)
* T+ p2 @" Q/ \* I" B1 J* ~4 e1 N
;; col_def is the default color used when rq_color is called. If ecolor
; w% J/ o+ _# j) Z6 ?0 l
;; is nil (varies) then set it to 1, else use the value of ecolor.
( t. D" l7 K8 q" z
(if ecolor
8 j: S3 t6 Z! w- @+ I! L
(setq col_def ecolor)
" s& s3 G6 v9 u
(setq col_def 1)
9 N: d* G: f. P, D) M
)+ J+ V! L, V. l* @* w! ?
6 p% d- D% K, u$ t1 U0 E8 Z& I4 d
;; If we're working with a single layer, get its color0 b$ ]6 Z) T( a F; U5 z% A0 R; Z1 ~9 p
;; for use in the color swatch if the user selects color BYLAYER.
! L! `" R3 o) @ c
(if (/= elayer ;|MSG0|;"Varies")
5 X, T% r+ K4 [
(setq lay_clr (cdr (assoc 62 (tblsearch "layer" elayer))))8 a. @5 }+ Q1 ^% }0 x% c6 X6 D
(setq lay_clr 0)
* ^. g; V0 K& w8 b& O
)
$ `3 @0 v; B: s( {* L6 m9 W/ `
(if (numberp (setq temp_color (acad_colordlg col_def T lay_clr)))2 H( }: W! ~! y' q( ~/ p
(progn
+ ?2 o9 } A5 H4 E0 x( b: r
(setq ecolor temp_color); z- `8 ?+ s5 G+ R( f
(set_col_tile)
: t- e5 @* w% N1 L4 I: Q
ecolor
v* l8 X& n- r, j. x3 H
)7 s8 p H9 V6 c& a/ M$ F
ecolor
* R2 \% n1 A$ N2 ?* U5 b7 B1 }) O3 I
)# O' X I+ s3 S
)) W3 G1 E$ ?! ]: G" [, o
;;3 _3 R* r3 `1 w
;; This function pops a dialogue box consisting of a list box, image tile,% P. F8 j' `- p
;; and edit box to allow the user to select or type a linetype. It returns
7 \1 t/ I" d& q9 D
;; the linetype selected.7 u K' [9 {" ?
;;
, u* @ a0 @8 e) S7 m9 D+ f1 h3 y
(defun getltype (/ old-idx ltname)
4 |3 t& y3 _: P7 o
;; Initialize a dialogue from dialogue file8 ~) ~$ @' N3 `" u* c7 j: w
(if (not (new_dialog "setltype" dcl_id)) (exit))$ y5 h" P& `, B4 m8 M5 b ^
(start_list "list_lt")' P* |7 t/ |" H+ e! J
(mapcar 'add_list ltnmlst) ; initialize list box
1 W$ H8 l/ L3 r8 h* `
(end_list)
% f* x5 l( E3 k4 X& k5 B8 K
(setq old-idx lt-idx)+ f1 j5 k( X. B# Z
;; Show initial ltype in image tile, list box, and edit box! ?8 o* }$ l( l. ^, z6 |6 d3 p0 k
(if (/= lt-idx nil)
* K6 C2 T9 A& U3 g- q' p1 P# P5 p5 W
(ltlist_act (itoa lt-idx))8 O! A! E) m5 j' ]0 k
(progn0 z- _' L' `. T7 }
(set_tile "edit_lt" "")7 H' f9 S0 Y/ _" d
(col_tile "show_image" 0 nil)
8 E/ Q R) K" ~$ x2 K, d! ]) s/ m
);progn else% f8 ~* R2 }" e2 w$ v2 w: C
);if, y4 H1 T7 \5 y+ t9 X- Q4 r" N9 f
(action_tile "list_lt" "(ltlist_act $value)")
* x* @( X$ v+ y9 d
(action_tile "edit_lt" "(ltedit_act)")
- [. E$ `1 y' D
(action_tile "accept" "(test-ok)")2 ], {" |- R' \' Q i
(action_tile "cancel" "(reset-lt)")4 d& r/ W% U9 w _& l9 Q& z# V
(if (= (start_dialog) 1) ; User pressed OK7 @* h2 l. l' z) V. Y
(cond( p6 A4 h6 U# t' n \; h
((or (= lt-idx nil)
$ ~; m% ~! y& b) f9 {
(= lt-idx (1- (length ltnmlst)))
[, r: w4 G1 L. \3 G$ }
);or
+ o: H3 e: t( A1 r: M. R3 A8 n
(set_tile "t_ltype" "Varies")6 b* h0 ^& t% h6 a; ?9 O1 ]1 M
;|MSG0|;"Varies"
" b7 @; Q2 I; J8 |# a; V
)+ P) X* U- {/ F% ?
((= lt-idx 0)
2 R: J. `1 d$ [
(set_tile "t_ltype" (bylayer_lt))
( } m* P, S0 L: R2 p0 ]7 a- {; m
;|MSG0|;"BYLAYER" G9 P/ I: M j. E3 q" z3 Z: e
)
' a' I0 l7 w0 E! b3 G4 J5 R
((= lt-idx 1)
. q n8 ^3 i6 h+ f
(set_tile "t_ltype" "BYBLOCK")
5 d* P8 H$ v7 \: U3 o1 B: \1 c
;|MSG0|;"BYBLOCK"& T/ a& L! G7 |: S
)
. }! Y2 g, R2 Y# R- |( X
(T
, K! n( T3 V, N l) Y& U- u1 E
(set_tile "t_ltype" ltname)& |8 D3 @+ b7 K( b
ltname0 |. V+ M4 J9 E+ S. S
)3 ?2 K& ]0 Y9 t- W: Y! s# k
);cond then- ]5 k3 u$ @6 a- R) U
eltype
' r6 j7 C2 s$ U- \9 L) K/ o9 s5 K
);if/ M1 R9 N3 S4 m4 [ x
);defun
$ G: j7 c6 t2 l6 [6 q6 t9 j0 v. \
;;
; J/ D5 r2 w7 F" {2 G
;; Edit box entries end up here
4 t8 H% Y' K8 U
;;
5 h- S6 R+ Z- g7 C g
(defun ltedit_act ( / flag)/ _/ T# o* g, k
;; If linetype name,is valid, then clear error string,% k0 a, ]1 T5 q
;; call ltlist_act function, and change focus to list box.9 _& h( H* N0 W( K6 U
;; Else print error message.
; O- E' F+ F0 }( ]
w, q2 Z ^! ]" Q0 U
(setq ltvalue (xstrcase (get_tile "edit_lt")))
5 t; [, A* ^) e5 f
(if (or (= ltvalue ;|MSG0|;"BYLAYER")
7 A* j& H% o! r3 h) ?2 u5 B
(= ltvalue "BY LAYER")
# b+ P4 {" f3 [$ |# z' @
)8 n' s+ z8 v- [ l6 {
(setq ltvalue "BYLAYER")
" P0 U; ^2 m1 @! d' M6 [
)
1 c' c2 O5 z% a# ?$ z8 v
(if (or (= ltvalue ;|MSG0|;"BYBLOCK")
/ M$ |8 H; D( [8 p, k* h! P6 ]
(= ltvalue "BY BLOCK")
( h, I# [% P: w3 l* W5 V+ p, b
)1 Z6 q( H X% i: D
(setq ltvalue "BYBLOCK")
. w M; `+ ?0 `* r9 ~
)# y; b; F; j( C* @; h# J# ?
(if (setq lt-idx (getindex ltvalue ltnmlst))
4 \( }# ^: R9 v5 b9 ^4 X, U: G# R
(progn% T- B- x u0 l' T% X }2 `; _
(set_tile "error" "")
1 ^6 E! z/ C% f) q4 f/ O! i. X2 l8 R
(ltlist_act (itoa lt-idx))2 L) r) Y5 C9 ? n2 e: |
;(mode_tile "list_lt" 2)
4 x( z8 @& |5 G& I
);progn then
0 d3 A/ r) t1 |3 f
(progn/ D2 g4 U# A7 U( b7 g* A
(if (/= ltvalue "")
# F, j/ R3 N0 S- J/ `
(progn! A% \0 c9 V8 i
(set_tile "error" "Invalid linetype.")4 Q* U6 A5 ]* f. M
(setq flag T)+ J( S O2 H8 p( ?- R! B
);progn
$ `, [# p! k: B x5 X
)
( v* \7 z3 c6 r( }! o. `
(setq lt-idx old-idx)
. ~7 f1 T- o+ ?. C' }5 T; N
);progn else
5 n& Y, h( ^7 [+ {; o: @$ w
);if0 a* r5 h- N( M" I! \
(if (and (not flag) ;added so a return will take you out of the dialog.7 B+ x: S- [ B. k- z
(= $reason 1)
2 `" B; Y9 u9 s6 k) j3 s, B5 M& f
);and) N$ U0 q- M2 _1 [
(done_dialog 1) 1 `$ J" y G" A! x, z4 f$ E
);if
! H/ w3 ~5 P! V ?1 L2 g* X1 l
);defun ltedit_act2 d5 _" ] C9 @
;;
$ j8 e2 ?. p5 h; Z; J3 @" n
;; List selections end up here
( l, b3 T/ ]0 B. O
;;. q% W/ u& g; u
(defun ltlist_act (index / dashdata)
* J9 M7 r. G/ u- L0 M- ]+ B# \! m6 Y
;; Update the list box, edit box, and color tile4 L" W4 m* U0 h* [
(set_tile "error" "")" Y+ L9 z' p) F/ |4 t
(setq lt-idx (atoi index))
6 q: ^4 C4 c( H6 Z4 j( U
(setq ltname (nth lt-idx ltnmlst))
9 k+ ` j9 K! z4 `: r
(setq dashdata (nth lt-idx mdashlist))( D1 u* r( ~$ t5 C; |
(col_tile "show_image" 0 dashdata)
7 O9 a$ t2 F2 k/ p7 ~/ @! T2 j1 h
(set_tile "list_lt" (itoa lt-idx))
$ j& Y! F3 S8 z% \# G) e
(set_tile "edit_lt" ltname)
" x) b+ H% u3 Z/ i; n3 M" y
), c2 a8 g: F; i# m* ?$ i A, ]: r
;;
' ?0 l2 i$ F+ l
;; Reset to original linetype when cancel it selected- t0 g3 k2 P3 f) X6 Z2 f
;;+ k/ M: x6 T) K# g/ t: O
(defun reset-lt ()1 o2 A) F8 v" }/ n
(setq lt-idx old-idx)9 K; j2 j) R" U* E
(done_dialog 0)! h& d( c; y9 R& g2 l+ I
)
+ Q) V! r* F2 m( P; r: ^! r
;;1 ], X- H* t' M" o2 d7 M
;; This function pops a dialogue box consisting of a list box and edit box to2 s S- |2 e) v) p# i1 J
;; allow the user to select or type a layer name. It returns the layer name7 V) x. W0 S* A: D1 l! H
;; selected. It also the status (On, Off, Frozen, etc.) of all layer in the
9 x0 b3 t% j5 g) g
;; drawing.
5 x5 r4 e" E& k6 U' L( Y
;;3 Q9 g: B+ ~8 Z: o3 h+ |* S' w
(defun getlayer (/ old-idx layname on off frozth linetype colname)
" m5 W3 j, W6 q5 I! S' ~/ s3 `
;; Create layer list the first time the layer9 g! N- d3 ?. E* b
;; dialogue is called.
. ?9 s+ O% X% E) y
(if (not lay-idx)
5 l8 o8 i2 h L K
(progn
; H) X( x2 N5 Z% f+ e/ j
(makelaylists) ; layer list - laynmlst
; D7 E2 ]2 r1 u# }3 c! s2 S
;rk9 G. Z6 _: s/ X; f9 ?; x# @
(setq lay-idx (getindex elayer laynmlst))5 k. c a+ R; l: Z, g6 o& x' s- v2 M
);progn$ S5 X- K, O+ w/ F5 [! \
);if! j3 ]! o7 |# S; Z$ C) P
# F( C+ x% y) }( c1 R
;; Load a dialogue from dialogue file
4 c& b }' g* ^1 [- p/ S5 P
(if (not (new_dialog "setlayer" dcl_id)) (exit))8 @9 Q9 E: j! Q) Y0 j7 }1 x9 C
(start_list "list_lay")
; H+ _1 k$ Q5 V
(mapcar 'add_list longlist) ; initialize list box4 ~) B3 R3 I* K- L6 ?& H. x
(end_list)
$ |4 Y1 P, ^- R- W9 P5 Y0 U
;; Display current layer, show initial layer name in edit) B" x; t$ e) |: J
;; box, and highlight list box.
- ?8 S; y9 g) A, @ q
(setq old-idx lay-idx)% m- p% i- [3 Y
(if (/= lay-idx nil) (laylist_act (itoa lay-idx)))& w6 [4 d" Y% g, v8 @1 a& X" c
(set_tile "cur_layer" (getvar "clayer"))
# d V3 }; u7 e
(action_tile "list_lay" "(laylist_act $value)")
0 _/ k+ X0 d& D0 z/ r
(action_tile "edit_lay" "(layedit_act)")
. S- A, X1 k* ?
(action_tile "accept" "(test-ok)")/ M2 p& T, `. p% `3 d: ^
(action_tile "cancel" "(reset-lay)")
4 } T, z: P& w2 h7 {" R: D
(if (= (start_dialog) 1) ; User pressed OK+ _4 W6 a- ^5 S
(progn
$ x4 y j6 d) d! S4 D/ a6 F
(if (or (= lay-idx nil)
x) j& j$ z v! ~3 L+ m# i! v
(= lay-idx (1- (length laynmlst))); b: x1 Q1 a: N- A r
);or
% u R# m7 k/ z+ ^
(progn4 l- ~- c% O! p$ U" d
(setq lay-idx nil) 7 J! S0 c2 U/ D# R* E
(setq layname ;|MSG0|;"VARIES")2 m5 A0 ^% o( J! N4 A
(set_tile "t_layer" "Varies")+ a* E; K( |+ L" G* \, r/ Y3 g
(setq layname "")
& |6 m+ {* Z8 Z$ S% Z( C3 F7 M$ o
);progn
; c. K9 b$ i9 X6 _2 A) ?
(set_tile "t_layer" layname)
. [' M: w L5 M
);if% Q" m, \+ J! O" I) P
; If layer or ltype equals bylayer reset their tiles o) J# E. u9 \ X6 ~, O
(if (= lt-idx 0)
% H9 [. T$ ?' Q. K
(set_tile "t_ltype" (bylayer_lt))
' Y% E; D' X3 h9 w, V
);if/ n& H+ U8 c/ N
(if (= ecolor 256)
4 T: i! J7 p. j% K1 X) _
(progn+ a3 q4 A& b; @* I6 u0 Z
(set_tile "t_color" (bylayer_col)). x+ H# q5 b) @8 N/ O
(col_tile "show_image" cn nil)9 {/ R. P+ m8 m/ B+ G6 |2 F8 Q
)
. n1 p4 P! |3 s% K
);if/ [9 Z- Y# \2 U/ |4 J8 f* P* [; p; E
layname) ~$ F% S. U5 p6 r* g) L3 Y
);progn5 D, _* X2 m) b8 [( A
elayer
( r% C" M9 c5 n( p. Q- j
);if
) o- C: W3 Y' z% F
)" X; G* p1 @2 ^7 n6 P; T$ e- A
;;3 S4 e" q9 b9 \& Y9 A7 ~9 [
;; Edit box selections end up here
5 i! C4 K% k/ a+ s
;;
1 e8 l& N$ ?$ r6 M4 g& q7 F* n
(defun layedit_act()5 ?9 @3 f: M& R/ T$ _* R6 P, y6 ^
;; Convert layer entry to upper case. If layer name is: u9 Z( z' a) c
;; valid, clear error string, call (laylist_act) function,
7 _/ b7 |1 }2 ^! o- y6 E1 D7 W
;; and change focus to list box. Else print error message.6 F1 i0 S5 x9 Q9 i. ^3 z$ r5 V" n
(setq layvalue (xstrcase (get_tile "edit_lay")))
' z1 d- S, A% P5 H: B
(if (setq lay-idx (getindex layvalue laynmlst))
' C, j) W( _$ I6 c4 \# C
(progn+ \* W9 [: U5 ~* Y9 I6 t) q" o
(set_tile "error" "") F8 l) r+ s9 o' i% I2 m8 g* H
(laylist_act (itoa lay-idx))
K) |! C D& @
)
% t9 L) R; c: T0 Q8 I# x
(progn8 u9 O2 R& U p: [) f) j
(set_tile "error" "Invalid layer name.")0 V+ _, e- W$ Y, t! J
(mode_tile "edit_lay" 2)
2 ^8 g' ?: l, k/ @
(setq lay-idx old-idx)
4 |: _8 ]$ S& Q7 B! s; ^5 c2 K# B
)5 ]- g7 X: m# H0 B, ^' w; w" f" f. p
);if8 j. f* o# r# @9 H
);defun. @2 W, K/ K0 x9 o+ ^6 _7 R9 p
;;
$ |0 m' y6 a. ~
;; List entry selections end up here* I" V' j2 n( e! z* S
;;
(defun laylist_act (index / layinfo color dashdata)
! [, f7 [& |% h8 a: Z# z3 H; h
;; Update the list box, edit box, and color tile
# X+ n+ l* s9 G7 e5 c5 E
(set_tile "error" "")
2 p4 K3 {2 `$ t0 Y4 t; S# _
(setq lay-idx (atoi index))
+ {3 Z+ M% S. Z) _ S& U! K
(if (not (equal lay-idx (1- (length laynmlst)))), u6 d' e4 i( z$ @; S
(progn
p0 L$ w; @3 l; o
(setq layname (nth lay-idx laynmlst))) @+ [" q7 h' `+ ]" y
(setq layinfo (tblsearch "layer" layname))
4 a/ y$ G& t/ f" w o9 g
(setq color (cdr (assoc 62 layinfo)))
7 E+ X( O( P( J& u- W
(setq color (abs color)); A c- p2 N0 i3 `* a0 b C
(setq colname (colorname color))
! J$ y( C0 ~" a# u
(set_tile "list_lay" (itoa lay-idx))
2 @7 I5 x& q8 s2 u/ h+ B: n7 o0 n/ t. K
(set_tile "edit_lay" layname)* s. i& _! j X
;(mode_tile "list_lay" 2)
) U0 r2 ?3 o% `& m6 }
);progn then 1 H( ~! c9 f' z. h; d& E# ^% }
(set_tile "edit_lay" "")
5 h* i! P$ S+ u4 x1 i
);if
: e# o0 V0 V3 P6 L9 q% R7 K% l: C. z
);defun laylist_act j$ T0 M: m8 R1 W+ m
;;6 q( E% z' m# `% p3 ]# f6 b
;; Reset to original layer when cancel is selected t0 v9 c& j0 X [& c
;;
, V2 a$ E! F# b& u
(defun reset-lay ()+ Q, ]4 l0 {2 t" `2 S- \
(setq lay-idx old-idx)* {; l5 J+ z2 G0 |" o" i5 g
(done_dialog 0)
+ \, O! m' G* X6 q, P7 v, n! ?
)3 m0 C8 a7 d, j1 X
( l) Y( J9 H$ l( t+ O& r
;; Checks validity of linetype scale from edit box. It checks to& y! Z9 ~. S" ^, {" p( e
;; see if the value equals "Varies"./ a- k8 k; n3 _7 U
4 S, O7 l! A, i4 P/ S) N [7 t
(defun getscale (value / rval)& d( `& L2 z* W: R% n
(setq value (strcase value)3 y3 I' G1 |: ~4 b
rval (distof value)2 ^( n; ]8 K" t
);setq! s/ x, L j0 n6 s) m: T
(if (or (= value "") U7 j% _( ]. r
(> rval 0.0)
& ~# l8 R# L3 C( X7 e$ s
); G: E( V; X6 b/ r9 q3 U
(progn2 J* v2 a, j4 K7 A' R0 }/ Q
(set_tile "error" "")
! k6 d g6 ?) X1 e( l" k
(if (= value "")
2 f: W. L! u4 f$ ]3 N
(progn
9 [& `- Z# {) o0 \/ B" @0 f
(set_tile "eb_ltscale" "")& ]- ^5 A7 o3 ~/ i) ?9 F2 [
(setq eltscale nil)- @3 [4 W6 I% A( B8 ^
);progn then
% B, W& U |7 s
(progn3 s: H( Y- s7 j: ~! }0 f) d
(setq eltscale (distof value))( F% z8 W2 a# k9 f/ g( D
(set_tile "eb_ltscale" (ai_rtos eltscale))
8 d" {5 m1 h& H$ B
eltscale
# V3 x7 L: t) w5 g5 m
);progn else
3 Q, g: U# \( u0 L5 K: W
);if
8 p4 Y; ~( ]8 n+ \. D, n. ^( Y
);progn* T( L; T9 N% l) k* \. v& ]
(progn
7 ?* h6 B; l/ Q% J3 J5 O7 p) @
(set_tile "error" "Invalid ltscale.")
* r% ?: @- r7 }+ U+ N& W4 \
nil: g; e* T- N1 M$ ]
);progn else2 T( x1 J' G6 B
);if8 k4 u& i' \7 i6 y G
);defun
/ f: F: {" n# y9 X# m0 f2 o
;;
/ j! L+ { ~3 L! d0 e
;; Checks validity of thickness from edit box. Since (atof) returns 0 when a
5 }. m& R2 i+ `" z! r: d' y
;; string can't be converted to a real, this routine checks if the first" d0 h7 q4 s. Y6 B5 V. R% _) y
;; character is "0". It also checks to see if the value equals "Varies".0 S4 ^9 Q* ~4 V$ C
;;: @5 @: @, e1 P
(defun getthickness (value)
/ z$ T; G1 _) O8 E: P- _
(setq value (strcase value))# v2 d+ D0 j, @1 I
(if (or (= value "")
8 g+ y; i, I( y6 n7 |& `+ _! G `
(distof value). m/ p4 ~' b5 R2 k- Q8 b( {
);or
+ @0 {9 K' D V4 P& T/ b& ~/ [+ `
(progn
5 V* M" `7 t( P# c; J% I
(set_tile "error" "")' j5 P! n/ S; }6 H1 S
(if (= value "")" |* Z4 h" G6 Q; Y
(progn: M# B9 c$ B* P; q; y. H6 @0 q
(set_tile "eb_thickness" "")
( {6 F" Y' t! V. o* g' j+ O
(setq ethickness nil)' Y) }1 x. b( o9 M
);progn2 h! T" M7 {8 p" ~8 x/ Z1 w
(progn" |' T8 P1 O. {, L2 o* R3 E8 M) }
(setq ethickness (distof value))
0 y& _; x/ A7 V5 i1 x
(set_tile "eb_thickness" (ai_rtos ethickness))! U. P7 Z7 _# o$ b$ _
ethickness
4 ^% R0 h. b7 t9 |4 x- u5 \) r
);progn
5 J! Q# q7 f4 l& O" Z% C
);if
' W i7 L* G" ? y+ U! i; j8 g
);progn k2 @" @ v) Y- ^9 H) Q1 M* ~" `; a
(progn
. `# J r% Y9 _) w& ~' ~" }
(set_tile "error" "Invalid thickness.")" ~- L4 U8 y w$ @
nil- ?% d4 s" @8 a% j% Y. ]
);progn
. E5 U3 k/ n" O; m
);if! I/ W; n: J+ |1 a" T
);defun
8 ]( w6 i& C1 q6 _
;;2 q6 X( [3 X, t) e I0 F
;; Checks validity of polyline elevation from edit box.
! U1 t$ ?' }7 `/ W' V7 g* K. b' X( S- \
;;3 A$ @/ D1 i7 j: w" r2 P9 C
(defun getelevation (value)
" D; A5 e. D% L$ N" |# G, f' d' V+ F
(setq value (strcase value))
8 \7 u0 v0 O {4 i% ]
(if (or (= value "")
! d U2 l9 ~+ J$ f" C; Y9 p
(distof value)7 X i% L, c% o5 ]* @8 X# z5 j
)
4 }8 L4 V8 v6 n6 O
(progn
1 C) ^, A/ J& t8 y# n
(set_tile "error" "")
6 k# A! r+ ^7 s6 N5 ^/ l- v1 |
(if (= value "")
9 x% j0 A$ v6 {
(progn
9 Q9 x' _$ V: y9 ~3 p4 v
(set_tile "poly_elev" "")9 S6 h4 m z9 @& s9 X" L5 F3 C
(setq eelevation nil)5 E/ g% S& c9 \: D
);progn3 Z: G- h2 ]& r0 l1 x5 Y
(progn c4 i% h* P1 p/ }: n
(setq eelevation (distof value))
; K5 i* F: y3 t8 c7 h
(set_tile "poly_elev" (ai_rtos eelevation))
P! F B4 J. p6 l9 n
eelevation
* j A/ V3 I* n& B
);progn; c, D. J6 c+ ?
);if/ j. V& ~+ p& g8 S' C( V
);progn
. Y3 F# ]" }/ x& a$ r6 d( ]
(progn, j, s- M& @7 g, P& r. Y
(set_tile "error" "Invalid elevation."), f; U6 O+ z1 x: u8 h& U2 d
nil
& P- c4 V8 h8 @! b V
);progn
" N. k0 d% h8 ^; o/ c: A
);if; t; F6 h2 ^+ H" ~* u8 p
);defun& G, A6 ~2 `) X$ o4 D
;;
6 r( d; ], p( M$ H, {
;; Checks validity of polyline width from edit box.
* h. ^; u" C% A! Z7 \5 W, q( {
;;
8 W3 w$ `+ {) @
(defun getwidth (value / rval)
" \6 n. @9 D5 k1 u) B# ^" T+ U
(setq value (strcase value)
1 U, p: g8 B0 D3 u: o
rval (distof value); j" _9 B9 Z0 ]% w4 K
)! A1 m/ E: L+ ~& w* i ~
(if (or (= value "")
Y- M) }+ D9 \- T! A
(>= rval 0.0)
$ k' t+ |, \! K- n4 [/ N6 u4 q
)
( t$ \4 H; |' l
(progn
U0 A& Q5 @9 Z4 g
(set_tile "error" "")* w. a4 ]+ j8 O
(if (= value "")
7 i2 _) D& U" C
(progn, G2 h* V* j4 p3 }+ X
(set_tile "poly_wid" "")
/ e: C! y. d% K( L, \1 j( X* y
(setq ewidth nil)5 {* J3 N; T. y1 N9 f$ ^
);progn0 z( l4 k% A. r( X: f7 ^! o
(progn
(setq ewidth (distof value))
0 v1 A! B' ?3 [$ t, J# @# i
(set_tile "poly_wid" (ai_rtos ewidth))
0 b5 H2 N ^; K* t* `+ w9 }
;width* v4 U% D) x1 a' Y& z0 L
);progn) t# ^: K* y) O U6 f' i: G8 x
);if
) K$ P- b: O4 J6 T
);progn4 c8 s% }, I( r/ O# D
(progn2 ^; L( e' t5 Q; D3 a- K3 [: m1 R
(set_tile "error" "Invalid width.")
m5 D- z l0 r* r4 X8 F& T( u
;(setq ewidth nil)* ]9 }/ _" j# f# d& R5 q, o
nil
6 f% j0 T- n- D. h! ~
);progn
8 X" s$ p+ m4 s! X% G
);if' v. l% w2 S9 S% J
);defun0 v- O# x! a- a& d* {
;;. U! X) {* N1 A6 ^. C# W
;; Checks validity of text height from edit box.
/ G9 V* U2 @+ b$ J
;;. u0 f9 G1 N: a6 l* Y) p2 Y9 K. k
(defun getheight (value / rval)
% h/ B# q; _( l: ?8 l7 r
(setq value (strcase value)1 I9 B8 b4 }1 h# M. M* O4 G
rval (distof value) F H: _$ C" _7 O/ a& d9 q4 P
)
- S7 ?* u& p9 X$ Z2 n5 d+ [/ T1 L
(if (or (= value "")
$ z/ e4 d' w8 S$ Q+ y. Z
(> rval 0.0)' a8 v6 Q4 q* ?: e+ z
)$ H7 n1 x! p. B0 D( m. l L5 m }
(progn
) ^. i1 \6 t- Z3 f4 \& L r& i& P, U
(set_tile "error" "")
0 B" l @9 Z o. n% g
(if (= value "")
* K+ _2 B: p5 V5 ]* [7 ]3 [/ e
(progn; O1 d5 w) n9 w' Z; [8 h- Z
(set_tile "text_hgt" "")9 k, A# D% Y6 [0 D+ B
(setq eheight nil)* P" E! f* Q: A* h
);progn* D: G0 b2 s0 J" W1 r0 S& N
(progn9 v: v6 q* O U0 S
(setq eheight (distof value))4 d0 ^+ o; o1 [9 g
(set_tile "text_hgt" (ai_rtos eheight))
. A) s. z1 R$ E+ J* G* i1 j
eheight& E' \4 D7 u4 i: D6 l$ ]! c' ~2 c
);progn3 X5 J/ w$ L% j
);if- C5 r9 w; I* Z1 |+ F* d% L
);progn
) Z" a1 g" X( G( {' W: T
(progn) a* |' `( R7 ]! E& `4 F
(set_tile "error" "Invalid height.")
! S j, t1 N' y. H
nil9 r W g# q$ F- B+ B% P
);progn
j! C% Q- A9 H# z
);if
5 W' v& D7 ?$ s5 Q+ ~+ Q. k7 C4 D
);defun Y) R& t1 l3 H* ~( i) K j
& g6 S1 q+ c) h0 W1 u- _
(defun getstyle (value lst / rval)
n, S" D; H3 Y/ N9 d
;(setq value (strcase value))
+ C) {" y8 m% P) Y/ h) ~/ ?; }1 g
(set_tile "error" "")
1 ?; c: T' W) f( u
(setq estyle (nth (atoi value) lst))
. {. \4 N2 x8 R R( A6 Q
(if (equal estyle "")
& c# S* T6 W0 z6 v) m: b. f; T: C1 A* N
(setq estyle nil)# T6 H$ ^! I) o$ ]( K, N
);if
8 I" W# a; _* P; B$ e* ^
% M/ u! N, w% W }5 e, R9 z4 T3 X
);defun getstyle
4 I- E" J1 k9 l! ~& l: t
1 ~; I v6 m! u
;;+ ?% J- l, U0 A
;; This function make a list called laynmlst which consists of all the layer
6 h, s$ t$ c9 f' f4 h: @# F$ b3 a) s
;; names in the drawing. It also creates a list called longlist which
# c( t$ u* Z) L4 z/ u) J2 N2 x
;; consists of strings which contain the layer name, color, linetype, etc.9 T1 Z/ U% Z* Y( D/ s9 `
;; Longlist is later mapped into the layer listbox. Both are ordered the
# Q- Z7 \* a; S m. Q8 v# ]. A- D
;; same.
+ z! {2 w7 W0 @; z$ O. X
;;. M1 T" f2 L; B- I
(defun makelaylists (/ layname onoff frozth color linetype lock vpf vpn ss cvpname
0 V F8 ?6 d+ A& p" M- X1 y8 [( t
xdlist vpldata sortlist name templist bit-700 w+ p: s! e K, Y. e: y
layer_number
. l9 ^" r: z5 q& b
)
9 b$ `, c* f; U( f! |% [
(if (= (setq tilemode (getvar "tilemode")) 0)
7 h0 o8 n/ r- e7 M+ F& B
(progn) o) a" N7 E2 s0 q
(setq ss (ssget "_x" (list (cons 0 "VIEWPORT"). K; l0 d, [. S! N6 \* g
(cons 69 (getvar "CVPORT"))
! v% R1 t7 M- S& c
); V! q0 ]7 l4 c# e
)/ }! V; W% |, v
)6 Z$ {) k: L( v& _8 ^. [& L
(setq cvpname (ssname ss 0)) f: W8 V3 N# Z
(setq xdlist (assoc -3 (entget cvpname '("acad"))))
0 E5 m- ~" n) K0 U- O9 y
(setq vpldata (cdadr xdlist))
5 a( w6 z8 P) B/ h4 l5 r7 Z
)8 N3 C5 m P" n9 a
)7 J5 v7 R: q2 s
(setq sortlist nil)2 D3 q; W: n- Z+ B
(setq templist (tblnext "LAYER" T))/ I, u% X2 I) T8 U
(setq layer_number 1)! z4 t: b) g: W4 u" h
(while templist
2 b( [" d3 t# t+ T! H3 A
(if (not (equal 16 (logand 16 (cdr (assoc 70 templist)))))8 }9 `; i6 R. w5 r7 w+ o
(progn ) _3 { x- E. C" [
(setq name (cdr (assoc 2 templist)))
, g$ l9 h9 Q' I" O1 I6 Q( A
(setq sortlist (cons name sortlist))% M& G1 H+ q* c
;; Not dead message...* H/ u0 `1 h3 |, S4 N
(setq layer_number (1+ layer_number))
7 {, f4 b% r& Q+ j& g
);progn6 ], R$ H- @9 F. u1 l
);if8 y) Q( r5 N3 a( l
(setq templist (tblnext "LAYER"))) p2 O h& | i" l9 k
(if (= (/ layer_number 50.0) (fix (/ layer_number 50.0))); v0 @- P3 G7 E) O
(set_tile "error" (strcat "Collecting..." (itoa layer_number)))( O- C! n, O3 e9 e+ e
);if
2 j5 q* x; A' t
)
% D5 b1 p M, y) m7 `& u
(set_tile "error" "")! t, e) C, N- T& {( X! M; `1 s0 J
(if (>= (getvar "maxsort") (length sortlist))
. ]2 k/ n2 e2 {* {
(progn
; Z. m3 k4 u1 ?; W: q$ Z
(if (> layer_number 50)- T+ \6 P# U5 Y. M: o
(set_tile "error" "Sorting...")
& \0 x- X) K! K+ }9 e: K0 x
)
; F0 Z! M2 o2 T
(setq sortlist (acad_strlsort sortlist))) X! _% ?7 f5 q @/ O
)' T2 A$ Z5 ?8 q) ]7 j: p
(setq sortlist (reverse sortlist))$ p1 Z% T. N& ]3 a
). v) s7 a9 D1 g5 R# h% F& e) l
(set_tile "error" "")
) h. v: S v. p
(setq laynmlst sortlist)# e' g/ M% O5 z$ L
;rk # [& x4 j4 D! f) ]! g1 e' I
(setq laynmlst (append laynmlst (list ""))) + ]& ]9 p0 p _$ ~3 F
; Q8 |+ n! ~" }; S' p1 ^
(setq longlist nil) |' U1 v% ~3 h
(setq layname (car sortlist))
, W2 j9 Q) v1 v) R
(setq layer_number 1)
# V: Y5 x8 I$ v2 z" f/ [
(while layname
# G; m% O7 k0 M" r0 h0 Y y t$ \
(if (= (/ layer_number 50.0) , K# [/ J9 A1 K
(fix (/ layer_number 50.0))- @% v0 d4 f3 K% x# ~, R& B/ ?
)6 J; p, S" A$ L" ]' g* O
(set_tile "error" (strcat "Analyzing..." (itoa layer_number)))
8 m9 T+ L) p; [! G+ ]1 q8 g, Q- f4 ]
);if0 W$ w4 R: F$ K4 ^: r. f
(setq layer_number (1+ layer_number))
: _3 T* X# ?- [4 N) \8 A! W N* i
(setq laylist (tblsearch "LAYER" layname))
6 K& C$ I) ]4 B5 q* a
(setq color (cdr (assoc 62 laylist))), o$ C7 U8 Y1 ~# s6 ?
(if (minusp color)
3 E- E* }$ Y# s6 q8 \
(setq onoff ".")
8 L% C$ K- y. }" m% U
(setq onoff "On")' D9 u( c: n6 n& | p: A+ ]
). M7 J; S, h2 k) {; B Z( q
(setq color (abs color))7 o3 Q: M% ] D4 m3 K* l/ e
(setq colname (colorname color))% P% t& x. z% L% V. x7 H+ }0 W. E
(setq bit-70 (cdr (assoc 70 laylist)))
, a4 V3 ]; i& N5 M
(if (= (logand bit-70 1) 1)
* D( O3 b ^4 c: S) ]3 x
(setq frozth "F" fchk laylist)2 I4 E5 T3 L. S$ Q. P! P* D
(setq frozth ".")
0 L" h9 m- w8 y0 U, d3 ]
)
- z0 O; {0 ^/ l& i9 n
(if (= (logand bit-70 2) 2)
1 ]$ p. p6 n1 I2 s
(setq vpn "N")
0 N4 C# Q* S7 y+ R8 l8 n
(setq vpn ".")
( t8 E t+ h% d% g
)
, X; S$ _# m: |2 p' H; } w* J
(if (= (logand bit-70 4) 4)
# @* w; C* s5 x: p) x" e M) E1 H
(setq lock "L")
) C2 P/ K/ t& Z3 F% d+ r
(setq lock ".")
' N) g! y) G; }! u% P+ u: M( d
) A; X" n. C# v0 c
(setq linetype (cdr (assoc 6 laylist)))
$ s0 @( K- {3 w$ [: D8 X
(setq layname (substr layname 1 31))
7 L: ]$ U5 t9 v# q5 b0 T- y
(if (= tilemode 0)
1 x+ D' ` A, S; {) g W
(progn
3 ?0 l, Z2 G- `4 W g
(if (member (cons 1003 layname) vpldata)
* j" ~* Z! w! F9 |
(setq vpf "C")
7 S) u+ F7 J7 f, c" s
(setq vpf "."): I( c1 I# I4 n1 H' T, L
)
4 V$ w; P8 x0 j, Q. t+ Q# U1 g9 t
)+ n8 U7 \) m# g$ I; {
(setq vpf ".")
5 G& o4 {( M: e6 `( U, I
)
; j7 e, K1 F$ F! Q3 W! z! J8 U
(setq ltabstr (strcat layname "\t"9 b2 K4 a. {3 K$ ~5 u3 E
onoff "\t"
# |" q) x0 I8 ?$ y2 B1 C
frozth "\t") G& R! o+ w( {# `0 O
lock "\t": k, Z! e1 b0 y1 I3 n, q
vpf "\t"5 k% ]7 u4 h% l$ X% ?
vpn "\t"8 ^& B6 m4 ~' J9 B/ _1 K
colname "\t"
. G% [, d+ e5 T$ K& \9 k
linetype
" W% K: s6 c$ V% Q, z1 L
). \; h n8 T8 f2 j' R8 \
)
/ h/ v2 H+ L: f* w& P; c: w) {
(setq longlist (append longlist (list ltabstr)))& `' J6 H* A6 y* d) t: ^" C
(setq sortlist (cdr sortlist))
( c5 t' \) V; ^, m
(setq layname (car sortlist))( D: I, \' [- n" J2 A8 h
);while) K. `6 {& Y4 Z0 K5 F6 A
(setq longlist (append longlist (list "")))
* f# ~( L: z: Z1 d3 m0 X
(set_tile "error" "")5 H |$ V" [& M7 E
)& t9 A4 P, @7 n3 T, F
;;
u1 k) }- j! f4 e
;; This function makes 2 lists - ltnmlst & mdashlist. Ltnmlst is a list of- L, H5 S$ J- e; d" Q" j
;; linetype names read from the symbol table. Mdashlist is list consisting
: G( u' a3 O6 _3 t
;; of lists which define the linetype pattern - numbers that indicate dots,
( ?& `1 _4 o( ^$ t% m' T* n' u
;; dashes, and spaces taken from group code 49. The list corresponds to the
8 O8 f' f+ y1 l/ }( [% k, V9 g+ \& t
;; order of names in ltnmlst.$ Y" O. f6 P, O; T/ H- B0 z0 A
;;
- [1 c( u9 ~( K) d, n
(defun makeltlists (/ ltlist ltname)
3 F: f4 z- R: z" F; C
(setq mdashlist nil) o7 W; ?$ }# {
(setq ltlist (tblnext "LTYPE" T)): t. @# _1 `1 q6 C8 {4 U5 J! x
(setq ltname (cdr (assoc 2 ltlist)))3 R' q1 S0 O7 x) ~; c, k
(setq ltnmlst (list ltname))
6 B/ a" X6 m( A" G
(while (setq ltlist (tblnext "LTYPE"))
1 c( D. q6 e5 o, F& u7 s9 t2 @% }7 r
(if (not (equal 16 (logand 16 (cdr (assoc 70 ltlist)))))
H/ W: N$ n3 f- M
(progn 4 h' f# U3 O8 i. [
(setq ltname (cdr (assoc 2 ltlist)))
) z/ h9 X1 B. Z0 s
(setq ltnmlst (append ltnmlst (list ltname)))
_9 R5 p6 T3 Z* Q/ D
);progn7 L& B3 h3 _; W/ `* D& N) R n
);if b ?4 N6 L; g [
);while
1 R' g' {; z ?, S+ ~
(setq ltnmlst (acad_strlsort ltnmlst))$ F x! r: L# @8 Q1 g* H
(setq ltnmlst (append ltnmlst (list "")));add by rk 8 d& ?0 ? T% O* h2 W8 F, ^& f- j7 C. J
(foreach ltname ltnmlst
% Y, b) Y' y) ~+ Y& Y
(setq ltlist (tblsearch "LTYPE" ltname))
; @0 J, `; @! B! U6 t% P
(if (= ltname "CONTINUOUS")" b0 F ~5 m8 L7 m
(setq mdashlist (append mdashlist (list "CONT")))
$ U; \/ O$ f& W c; t
(setq mdashlist' z& d. m% a1 g: Q3 C
(append mdashlist (list (add-mdash ltlist)))* y( u8 b# P: C# [; @. y, B
)
$ ?3 Y1 t$ {2 d- Q! z" K; n
)
9 |$ F7 ~3 g W& |8 V# C' r
)
; k! r5 z4 m) }3 K/ }
(setq ltnmlst (cons "BYBLOCK" ltnmlst))9 E* M6 ~4 _; N. a7 E, k
(setq mdashlist (cons nil mdashlist))
7 ^3 O4 b6 t7 X
(setq ltnmlst (cons "BYLAYER" ltnmlst))
+ D6 l/ p7 `( ~
(setq mdashlist (cons nil mdashlist))6 E7 D- t, I$ V3 D* U7 J
)4 i; a! s/ y8 U2 P6 t7 Q( l4 u9 Q
;;
0 K0 W, }- K4 z; h1 e% m) n
;; Get all the group code 49 values for a linetype and put them in a list4 h- a- ?) w" W x- D
;; (pen-up, pen-down info)
7 X1 r9 t0 \$ c5 j+ B1 z5 a$ O
;;
# \6 @* {, R; H9 ?8 s( E0 v1 x
(defun add-mdash (ltlist1 / dashlist assoclist dashsize)( v4 g6 t% I8 [8 J# G3 s
(setq dashlist nil)7 y0 a. R- Y% P1 j! ]& |
(while (setq assoclist (car ltlist1))/ f) S3 _; M! X: P4 B- n8 I
(if (= (car assoclist) 49)- k) V' W4 {$ w) J+ X6 j1 A! l1 a
(progn0 `' B0 B$ P h8 \7 L
(setq dashsize (cdr assoclist))
) K5 g; B! B# n* L9 T$ Y3 x
(setq dashlist (cons dashsize dashlist))
G. T9 p$ R4 ~) j) X8 _
)1 \: p `0 ^+ O& A
)' o8 X; e# B1 ~" _- A
(setq ltlist1 (cdr ltlist1))% I# w, m8 F- P5 p' c/ P
)
, ?! o6 f: \! \6 a: g
(setq dashlist (reverse dashlist))2 ]7 Q& \" {8 m0 Q
)/ n& Q5 V6 _9 R9 r! C r
;;# t7 h3 D9 j* @& Z& c
;; Color a tile, draw linetype, and draw a border around it9 Z2 j6 @ P R. p0 ?" ]) ^% R
;;' i& {. j( L) _. Q4 d% [9 m9 C2 }0 Q
(defun col_tile (tile color patlist / x y); d' L$ |0 X I: j
(setq x (dimx_tile tile))- T: A2 Q- M( ]. v$ ?
(setq y (dimy_tile tile))0 i% v" s# w4 s
(start_image tile)% H) L, D/ |) ]& d
(fill_image 0 0 x y color)
- n6 J$ \6 r6 [7 e9 r- e; E1 j2 \2 [
(if (= color 7)5 i( e# A. w) n
(progn+ q& [. `+ j+ N/ }" d7 M* Q) w% K
(if patlist (drawpattern x (/ y 2) patlist 0))1 L2 u, K( r7 r7 M( h% o
(tile_rect 0 0 x y 0)
+ G! ?! Z Y+ d! [
)
! }' q! W4 Z8 U2 B5 Y5 p
(progn$ k1 e9 I4 m0 v. Z5 G- U/ _
(if patlist (drawpattern x (/ y 2) patlist 7))
. @/ a- C4 d& F0 U# E5 \
(tile_rect 0 0 x y 7)5 r: q2 F' `- ^9 \/ [; f% W+ M
) j1 @8 l1 X6 [
)) |% G0 I) l' d0 o5 {! S8 Y
(end_image)' M1 X, i& x9 e% w
)$ G0 T! u7 \5 Q- M* S) j [) O
;;) T3 x+ t/ \/ B8 r7 L
;; Draw a border around a tile' C1 Y+ y; \# J! d0 M2 E n, h/ Q
;;
* a2 f2 p* F& o' D0 @& K* j
(defun tile_rect (x1 y1 x2 y2 color)) P) V$ L# @5 f9 h
(setq x2 (- x2 1))& g& K- R8 \: {0 L5 m
(setq y2 (- y2 1))
0 J. D$ ^9 o" J! l& l" [
(vector_image x1 y1 x2 y1 color)
7 j1 o- c, L$ f0 g: B$ y
(vector_image x2 y1 x2 y2 color)1 `* Q& J) A1 a4 ]- ^# B+ x; u3 U
(vector_image x2 y2 x1 y2 color)
(vector_image x1 y2 x1 y1 color)" V6 j1 n7 d# F( P: I2 F- _
)
) a: ?: n# {5 \% h9 @2 V9 s/ v, V
;;& i* n9 Z) E8 G$ q! O1 ]8 _7 E1 c( Y2 }
;; Draw the linetype pattern in a tile. Boxlength is the length of the image8 R% S4 D. S7 F- P5 Y, c
;; tile, y2 is the midpoint of the height of the image tile, pattern is a
6 m$ i4 N4 E2 |- q" Y/ l; Z
;; list of numbers that define the linetype, and color is the color of the" J j5 n" f7 D8 x+ H
;; tile.9 q' r, Q$ A# T& Y6 V9 @* H7 R, O
;;2 d2 u- s$ h0 N3 w5 p5 s( S
(defun drawpattern (boxlength y2 pattern color / x1 x2
1 N% T* V) s( l% S9 n4 ~& I$ T: G
patlist dash)
. n# H( X k1 j) r S
(setq x1 0 x2 0)
0 e/ f0 \% r+ \0 n
(setq patlist pattern)2 l( |6 r( A$ d/ T; h, l- l7 i! |: L
(setq fx 30)
& H$ g, l/ v# \! C
(if (= patlist "CONT")" E4 l$ ~! z J! h
(progn. f$ f# q6 l1 w2 |$ {
(setq dash boxlength)
+ j) ^, j/ W6 t. M4 Q
(vi)
, x- U8 p* p# `6 U L
(setq x1 boxlength)
6 L, D- d! X, s$ w( C! ^/ z
)
- f- ?9 E8 a$ x; ?+ h
(foreach dash patlist
. e- |: L4 h' J- c2 o
(if (> (abs dash) 2.5)
9 s' e, v7 B, g, O/ h# N" p
(setq fx 2)0 O% Y: t" m! y5 a( @7 \+ F
)
0 b5 z; X7 M# ~
)
$ \9 i- ?; D% r. ]# G
)
( M; q1 Q, Y: ^1 u {) B
(while (< x1 boxlength)& Q& L) [1 w$ z. I* H3 ?
(if (setq dash (car patlist))' o% G: q" }5 X/ F: T; k
(progn
6 L- A' D& z( v) q
(setq dash (fix (* fx dash)))* G; A6 F7 O( D7 r/ j6 P* N" M3 m
(cond
5 a/ W0 {1 n, z4 l3 K9 t
((= dash 0)
" B, X' Z$ f0 g& E$ E% \' \
(setq dash 1)4 W# m" E2 `0 G+ H
(vi)6 P! s- V8 V, i3 o
)
) U/ T/ x5 ~1 C. v4 W- k
((> dash 0)# g9 K( H$ h, I4 k/ P0 b
(vi)+ n# v2 k" R# J& A
)
) B# x: g! W4 {( F1 i
(T
% e$ w: `- ?0 Y# t7 o
(if (< (abs dash) 2) (setq dash 2))7 b) }5 ]- E' F; x, h$ q/ z
(setq x2 (+ x2 (abs dash)))
& R- e( \1 I: K6 [1 j$ p
); ^+ Y. y4 ?- D8 W/ z
)8 Q0 {, b+ N/ G. h
(setq patlist (cdr patlist))
+ k/ L7 z- }# u0 T5 Q
(setq x1 x2)4 l0 g8 F" g- r" L {
)
3 Z" z P* u7 r1 ?2 f9 x
(setq patlist pattern). H5 W; `5 u+ z" n: F7 g
)
* U+ h1 C) h9 s2 t, }4 H
)/ f# a' h5 R0 j7 j
). r) V& ?7 \+ L* V5 A
;;9 X" T o% I* D5 v3 P
;; Draw a dash or dot in image tile
# A: {9 G6 q' q f$ N4 @1 c' ~: C
;;/ }; d, {& y; `
(defun vi ()
% F0 k) d/ k; ~( l
(setq x2 (+ x2 dash))
' f$ V8 O7 ]) `* J9 b2 N+ G, l/ E
(vector_image x1 y2 x2 y2 color)% S3 J2 Z" P+ e
); m+ ?' [8 U% ]: L$ s
9 Y! I6 k# y7 u( V- _6 `
;; This function takes a selection and returns a list of the color,* s+ P; n1 W$ h0 O0 P5 ]
;; linetype, layer, linetype scale, and thickness properties that+ N- I& W1 A' b! ]' h
;; are common to every entities in the selection set - (color
; j$ I4 b2 b( n! `. K. X0 @% Z
;; linetype layer thickness). If all entities do not share the same
* b( F4 f. y }" r. L. A9 P" ?9 [
;; property value it returns "Varies" in place of the property
) t4 v3 E$ h$ N
;; value. i.e. ("BYLAYER" "DASHED" "Varies" 0)
. `- X V/ w, p+ x1 U# ~
;; The last item in the return list is an integer flag for the( G0 ~9 i. D3 r# \' y3 x! l
;; homegenity of the selection-set object types.3 L$ b/ @# `6 J. m, @5 [* m
;; 1 = All polylines/ N4 _: m, h/ k* p2 Y
;; 2 = All text or mtext or attdef, or a combination of the three$ V" `- d$ ^9 E8 p
;; -1 = Any other mix of objects- b% `4 E& Q& e: w
6 r. q# K+ [. v, m M4 s3 h* J
(defun getprops (selset / sslen elist color ltype layer ltscale thickness
1 `7 M% G4 \) y' `3 |: [# C$ }: e
width elevation height go ctr
) ]7 v6 k7 _+ p. Q1 F
eflag - {: |* v+ Q X2 r" s
etype temp : L% g$ s. O3 C3 y
txt_ss ;;;;rk 11:24 AM 1/30/97
' \$ V/ C4 V6 u- M: d o' N
tmp / r( K. L( n8 O/ _- C
poly_ss 7 g4 ^/ k B9 u$ S: F* e7 }" }
style
3 b( l3 c5 b/ K, s& Q: ^7 m( F
)' H- E6 C8 r) x0 C7 X5 _
3 q7 G' Q5 b; x) Z8 d* x
: v% ~% a# X& m* P( G8 F
(setq sslen (sslength selset). K' Z8 H* t, d I
elist (entget (ssname selset 0))
- v0 K3 }" J' A
etype (strcase (cdr (assoc 0 elist)))! g2 L, s# P7 C+ {
color (cdr (assoc 62 elist))
- e9 I/ n& `, q
ltype (cdr (assoc 6 elist))
8 N# ^* Q$ r# Q+ @- t% Z- I
layer (cdr (assoc 8 elist))
' ~7 H: V7 Y$ A) g, }
thickness (cdr (assoc 39 elist)); b" e: C' w p# Q/ y
ltscale (cdr (assoc 48 elist))
8 B9 B" z) F6 S' [, v7 X! n* v
);setq, @6 F' Y* B0 E( p5 @
" F$ e) k7 j d' s+ B5 |8 T% l
(if (not color) (setq color 256))" f" M9 N |/ g: ]* ?7 \
(if (not ltype) (setq ltype "BYLAYER"))
5 I& t2 W( C5 J) f. \) y
(if (not thickness) (setq thickness 0))$ m I( e3 L2 z5 L
(if (not ltscale) (setq ltscale 1))
& n b5 G3 k9 g) q
6 w/ e! k. H5 c# S# R0 J
(if (not width) (setq width ""))
4 P/ N/ B% v9 `+ ]+ z2 _" b8 |
(if (not elevation) (setq elevation ""))" O5 J+ s9 l: M B/ o* x. N
(if (not height) (setq height ""))) w% c, W' A$ v
3 I; P- L4 y" \: T* n/ k
(setq go T # V% a& v$ V' ]+ t% a
chk-col T ! c, H5 f4 f4 x4 @% n+ j2 u4 S
chk-lt T N6 v+ w9 m' [; t0 B; G9 {/ M
chk-lay T 3 n4 J: I D" B
chk-lts T % T0 v6 J% i% o, C: |, {3 M
chk-th T
6 w" f( k2 _& ]5 E
ctr 0
) W, a o8 R$ \+ c
);setq; b5 T/ M0 ~; Z7 ^0 A
) f* {0 c8 D; q" F
;; Page through the selection set. When a property
5 ^. x7 U6 U; [
;; does not match, stop checking for that property.
- Q r2 C& x( E
;; When the selection set is not homogenous, stop checking.% o" |4 J4 R5 p. t# ~ h, T
;; If all properties vary and the set is not a type 1' c2 ^- }# R* w
;; (polyline) or type 2 (attdef/text/mtext) set, stop paging.5 V# ~( v1 V; a5 Q+ ?; W
7 k" G$ B. Y3 h/ \2 \9 ?- U& W0 h2 ^
;Lets set the eflag so we know if the selection set includes any . o% a* d' G- D4 [8 X; j6 W* F/ n
;combination of polylines, lwpolylines, text, mtext or attdefs.. {' a- o; T i: r5 X" m& e
* L% |+ {* H' N+ E7 [
;watch out for 3dpolyline and 3dmeshes here! @rk 10:17 AM 1/30/97
5 X& `+ D8 \" d a+ @; P! ^( o3 j
(setq eflag 0)
( M7 j4 _+ W* ?8 _. K# S
(if (setq poly_ss : f( f$ h" [0 k( j# J1 ^5 z
(ssget "P" (list '(0 . "*POLYLINE")
) M/ \ Z" S. X4 V
'(-4 . "<AND")
5 n) r8 @1 {. X; x& A$ X3 P
'(-4 . "<NOT") '(-4 . "&=") '(70 . 8) '(-4 . "NOT>")
/ I4 _6 P7 C- D5 j
'(-4 . "<NOT") '(-4 . "&=") '(70 . 16) '(-4 . "NOT>")" k% t* r; D! n( Y
'(-4 . "<NOT") '(-4 . "&=") '(70 . 64) '(-4 . "NOT>")7 x% @% U' P( w3 ?
'(-4 . "AND>")
2 M# e1 t! i. [/ H, D
);list
# L, J4 w( H, y- f5 g1 e3 C7 C5 [
);ssget get 2d polylines (legacy and lw)
8 S- q5 u8 ^: Z. \* H
);setq M9 h0 _4 \ J) |# d2 K" K
(progn' ]2 d2 i+ w9 K
(setq eflag (+ eflag 1))0 m+ Y2 \, i: Z: y o, Z& Q
8 f1 b. p- p3 y
(setq tmp (entget (ssname poly_ss 0)));setq
( x1 u5 p. i1 b# T. G7 h% I6 H5 z3 c
5 N+ ?# \$ T$ i6 N0 s; ]; T! |7 Q! v
(if (equal "POLYLINE" (cdr (assoc 0 tmp)))3 c. t; j) F4 z& Z
(setq elevation (last (cdr (assoc 10 tmp))))
1 L# X; W- Y; m! l: |
(setq elevation (cdr (assoc 38 tmp)))
- [# v* U! d' B; M+ W4 ~8 ?
);if
8 _, y8 X; B5 L2 a3 T
(if (not elevation)
) L8 U1 R$ F5 `: b
(setq elevation 0.0);setq
1 r9 c& }( H! D9 Y& w
);if
3 t9 j/ V, _8 b% m
# A. U( U5 u, V. ^$ l, H
(setq tmp (ssget "P"
( d0 a4 x X. M. f5 {
(list
' J% Q: C2 A2 ]+ ~' a! E
'(-4 . "<OR")
6 L9 Y0 D* ~, R! @+ ^3 m3 Q+ G
'(-4 . "<AND")
( i; l: G6 q, X Y( [
'(0 . "LWPOLYLINE")
: c' i5 H7 g& o4 T/ {
(cons 38 elevation)
# [1 D M2 L) C# g6 F+ r
'(-4 . "AND>")$ v; k" e9 h; ^# x8 l( o( Z
'(-4 . "<AND")
9 a4 ^6 d P- R9 j
'(0 . "POLYLINE")
8 A2 j) p8 D2 S" \
'(-4 . "*,*,=") 9 d- o/ H/ A' z( v
(cons 10 (list 1.0 1.0 elevation))& s! w: s6 w4 d3 ]- e
'(-4 . "AND>")
$ Q5 v4 S8 z8 O) n
'(-4 . "OR>")8 P( `6 m# B" {3 \0 S. K B: k
);list
# ]* b" U9 \) \* m; U+ @
);ssget
$ y# }1 q9 I" n0 ?2 u) O
);setq
' c& L0 E! y, J. q+ q, Q
6 N' b# e2 s) e% c1 d+ l: s
(if (and tmp ( K `+ A9 Y% H8 z
(equal (sslength tmp) (sslength poly_ss))
$ h% f. `5 T) Z. ~+ |
);and9 ~( ~% k1 J1 T: J; p. d, }
(setq elevation (ai_rtos elevation));setq
4 i9 N; U$ }- L
(setq elevation "")
/ f8 i5 m6 f! N& \; I% X U
);if
" O, I2 X" P$ T# l) b8 d- E
* e }# P& _" N5 Y, h0 h+ u" q; S
(setq width (pl_width_getter poly_ss));setq
- t% ^; c( t* ?8 Y
5 M) g% @/ ~ @2 ]
);progn then 2d polylines and/or lwpolylines are in the HHHHHOUSE!8 m, \- j0 {4 S- _, z% }( ~' H
);if5 r$ v. Q9 V% w! U" [' N% b
(command "_.select" selset "")
, f1 w) s& R0 `3 A; C3 y% \
; a2 B5 T5 P5 z
(if (setq txt_ss - {# V9 x7 m$ i4 Y: n$ K
(ssget "P" '((-4 . "<OR") (0 . "TEXT") (0 . "MTEXT")
H2 ?; J. h, @1 [' i3 D
(0 . "ATTDEF") (-4 . "OR>"))+ b8 K- l# N) X6 e
) 9 `" L' {- a' k- B: r. V
);setq8 P3 n6 ]! g) T: e* v4 @( ^
(progn
8 T* S) M* p6 ]
(setq eflag (+ eflag 2))6 l8 f4 ?. J; h8 @( N) l* f
(setq height (cdr (assoc 40 (entget (ssname txt_ss 0))))2 b; L L3 @! `% m3 i% x& D
tmp (ssget "P" (list (cons 40 height)))
: E) Q& ?) t9 _5 P
);setq 3 T6 L @. G' E {2 I. n. b2 |
(if (and tmp; x: U: y: V, d7 l7 t! T
(equal (sslength txt_ss) (sslength tmp)) / E" l Y3 a. C V2 n
);and
# k, `6 [; R! X- S3 E! V, [3 I! E
(setq height (ai_rtos height));setq ;@rk need to translate from float 8 ?% P/ w) B. a l8 b- [2 {
;to string and back again easily
3 g+ {# b; Z" G! T F" |
(setq height "");setq else the height varies 4 K& s& W% F% C
);if/ g! k9 Y6 i. M0 G( o
(command "_.select" txt_ss "") ! i. k' s% B( Z0 _. E% A
(setq style (cdr (assoc 7 (entget (ssname txt_ss 0))))
/ X. t6 b- _* B
tmp (ssget "P" (list (cons 7 style))) % q$ N4 k9 M1 {2 _
);setq
; h* Z& E! U6 {6 A! M) G8 V" w
(if (not (and tmp% J3 p3 {/ p1 \
(equal (sslength txt_ss) (sslength tmp))
7 N( T$ ?2 B7 X0 K; Q/ Q; |# e8 j4 i
);and# h) h+ p3 k- p' c
);not
* n, N# Q8 r" H8 o, F0 ?
(setq style "");setq then the style varies
8 D6 {# |* [4 P3 u% M; K
);if" v6 i- n, p1 b2 u6 N ?
);progn the text type objects are in the selection set. M. h& _8 D1 i' z5 ^. ]/ H
);if) ^. t+ l" Y. w0 a/ b. F/ u8 u
(command "_.select" selset "")5 Z! P* d5 x4 @5 p3 ^* z0 \
9 ?+ G0 W3 u# j) k% k
(while (and (> sslen ctr) 4 P* A; ] T5 n6 l
go
m# W( i x9 q+ A0 \
);and1 b+ q5 p6 f: `0 j' A, _7 E& k
(setq elist (entget (setq en (ssname selset ctr))))
3 M: r2 S1 ^ h4 L, {
7 {7 o- L6 x% K, c
(if chk-col (match-col))" J3 e1 {( S1 j4 Z5 ]* u/ l- u
(if chk-lt (match-lt))
" m& n' ^$ N- U: r
(if chk-lay (match-lay))
9 C4 y* m" P# D- K3 [
(if chk-lts (match-lts))
8 F' r5 d2 I' `) }; e: n
(if chk-th (match-th)). g: s) J; h6 ]/ s# R; A
/ W/ y# w4 k8 Q& C: U! W
;(if chk-etype (match-etype))( @& @/ O# H- J$ P# }
5 d, r0 q$ i- ]0 D8 a' P+ ?( s
(setq ctr (1+ ctr))
) K) T5 I$ E$ o! F) T) t! U
(if (and (not chk-col), v: Z5 C2 N( d7 W& L# |6 d, A0 s
(not chk-lt)
3 w. k' [% `, q) Z/ m" r, Q2 b- t' t
(not chk-lay), o; m( T& m7 v& C$ W7 e# u
(not chk-lts)+ o) `5 ]3 | e p/ @+ }9 b3 c
(not chk-th): L8 q/ ^; q/ k& L
;(not chk-etype)
A, I! T w& ^0 k2 x* D e
);and
4 f- [% |+ {. ?. s1 |& n
(setq go nil)/ T9 C+ J" m# r. Z! Z) b) V
);if
1 U9 J% x: G& I1 c! W
);while
# |0 }: o% G* }) n9 J0 E2 I
+ j) a" L, o. @: r! b% L
(list color ltype layer thickness ltscale
8 y' M& h3 Q/ F0 R( |& B
width elevation height eflag 9 M4 l+ D0 X% K6 }8 o
style poly_ss txt_ss# X! i$ S! V& e2 n
)
8 A! ~; ?, E' `, E7 m
);defun getprops3 y/ l$ b( }, K+ w
z8 o0 B8 a7 C0 H: [( K$ ^
; This is a speedy little routine to tell whether the polylines in 5 @8 T! M5 m) ]0 } i
;the selection set argument are of varying width or a constant value. " }* S! d3 w/ l
;Looping through the vertex's has to be done for old polylines when
8 z6 b0 a# I5 _! }% M; g M$ l3 x
;the polyline header has width values of 0.0. Basically, in this case, ' t% I" i" D0 Z. R) W, _1 T& K
;information in the polyline entity header is abmiguous. Width values , Y$ J4 Y, l; ]% e. ]
;of 0.0 in the header entity could mean the polyline has a constant 1 l( b' F) {! U& D3 E, Q0 s
;width of 0.0 or it could mean that the polyline has vertex's of varying 8 t5 n& ]% H4 R. C, K
;width.& m: K H" Q# i! ^# d& q
;% Q q, _% ?6 s R. P4 ], v
; It's all in wrist. Err a.., I mean it's all in the 'if'
' r7 u0 ^% P( m/ Y9 l
;;
5 [2 F' |, o$ a5 `) _
(defun pl_width_getter ( ss / ss2 ss3 n na e1 width width_a width_b flag flag2)
% \. Q% T$ L1 p, |& ]( H+ |
) U5 ^) O. s# P3 m: ^4 ?, L
(if ss 0 K1 p5 ^# {( a& n; o
(command "_.select" ss "")
. b! n* \, ~3 n" \
);if2 A: y u1 b, `! k3 ?
(setq width ""$ H- N6 k; ]* Z2 p; A* J, v
flag nil$ R D( J% d( ^1 h
flag2 nil$ }$ r( o2 G4 A
);setq1 Q1 Q( A& g0 e2 T
(if (not
, ]* S, H6 N, w. X
(and ss
; w0 G$ q8 I( ^5 ~
(setq ss2 (ssget "p" '((0 . "LWPOLYLINE"))));setq
8 A. ?. H' q7 _0 h
(setq na (ssname ss2 0)8 q: x4 W% e# P9 j4 p
width (cdr (assoc 43 (entget na)))
$ Y; o. }5 s) C$ D
);setq) |+ ~0 x9 e/ ?3 m( }' g
(setq ss3 (ssget "p" (list '(0 . "LWPOLYLINE"), [1 i* B# F4 t% A2 y
(cons 43 width)
7 O8 l6 r+ R& ]+ i. i
);list
5 ~: Z4 v9 s# g
);ssget
, R$ P7 b# N8 \* S( y
);setq
- A, O- Y; f; V# B
(setq flag T) 4 h$ L4 h/ ?" g8 Q
(equal (sslength ss2) (sslength ss3))9 [& m; F6 M! e- U, u! x {9 T
);and
! u- i' \: q5 s4 h5 }4 s& m; A. S
);not: B5 {8 [+ m3 T9 G- T! {
(progn
9 U ~, y" I* I2 b
(if flag
# S$ F3 P. T; i4 O2 X) ~' l5 r( ^
(setq width nil) # t' W/ |$ p1 e6 s1 O' p
);if
# n3 j8 h4 J# \0 w
);progn
8 z: }* ~0 p: g
);if , q$ R* D' Y- e) T! u6 ~/ {
4 f8 N4 Z' J7 N3 g
(if (not
5 a+ X: [$ A' S3 k9 G/ P
(and
2 c& s: f+ Y( x
ss
- r& ]' c0 L, F
(progn (command "_.select" ss "") 4 @3 x3 `9 g. a; [2 @" V1 J
(setq ss2 (ssget "p" '((0 . "POLYLINE"))));setq! _, _" F: T; q( _8 W p. \( F
) 0 r+ o+ v& E, {7 t; ?* a1 t
(setq na (ssname ss2 0)
# D |" P6 @. g+ n5 ]
e1 (entget na), @/ E2 A' E) o" t: n6 H, M2 d
width_a (cdr (assoc 40 e1))
( K' ?+ h/ T9 \$ r9 W2 k
width_b (cdr (assoc 41 e1)), s1 t. Z. ~9 g* x/ `! {) |
);setq
3 ?5 o* J* [+ g& p; r& X
(equal width_a width_b)
5 s* g' n* Z: _- x5 r7 y1 b
(setq ss3 (ssget "p" (list '(0 . "POLYLINE")
- {- p2 K# Q1 ~. l+ z) c- Z8 R! E
(cons 40 width_a)
- n4 O. p3 A' e; @ j7 p
(cons 41 width_b)
" w; I! O: c) D8 `, T
);list
- U* }0 H- p' V
);ssget
& a c- q( x f) ^2 z( \
);setq
3 u1 N1 Z9 `( P& j" C0 m8 \' w9 {
(setq flag2 T)
8 w$ X1 I# ?& l# h7 m
(equal (sslength ss2) (sslength ss3))
9 Q% l) J( o6 r% k) \# y/ O3 a
);and 7 G/ a/ L9 X0 Q9 a6 I; C8 _
);not % j0 x5 ?0 E# o! y N
(progn6 a( T- G+ B3 K+ Z0 c9 P
(if flag2
4 c6 Z& K6 G0 y1 n
(setq width nil);setq
- {# {$ ?) ] N8 O" `
);if
1 F. F9 B( P, x. T
);progn then) W9 K9 S" v! w/ s/ k6 S6 c9 ?" a
(progn
* W) G7 P0 S4 H* @
(if (or (equal width "")! ]6 x6 K+ L- J! m' w' U) b$ e
(not flag)
' i; |- }+ c C; s* F
);or
: C9 ?% } ]: N; c) h: K
(setq width width_a), Y5 B4 s8 h- x7 U
(progn
0 J( Y# t, T) q+ O" Z
(if (not (equal width width_a))# t) G, L; |! Q% D7 `' k+ f) T
(setq width ""). a( ]- d. M; G
);if
" X" v* {5 A/ q) h I
);progn
9 h% L8 s& {, |9 w* ^, q
);if2 ~8 D! c+ \7 v1 {0 c0 L" M
);progn
) b% ?/ o/ O7 J9 R( H& V( A
);if
5 I( ^: e. V3 a W1 U& @
9 n3 B) ^% Z' x9 I7 C& F
9 t- J' `0 l% a h7 u
;now for the special handling for old polylines
( Z9 w. G- c: W* o, @0 N
(if (and width 7 e @; s( y2 v( K
(equal width 0.0)
/ K% q1 b# Y5 u2 e$ R, u% C: e( q. l
flag25 c) ?9 d" Y) l% e
);and , p5 C; @1 U! G$ D b8 h5 w
(progn4 t. f: B1 x* ]' ~
' A4 w0 I" E* [" { g. ]7 z/ h6 d
(setq n 0);setq, A$ ^+ K9 X& }, j% @: C3 l
(while (and (equal width 0.0)
; _" K' |' L3 z4 t6 C
(< n (sslength ss3))
1 K3 D1 O5 k" I
);and2 W) i8 f/ R1 J2 g# M& G3 T
(setq flag nil! B6 I* I! ~( ?& u$ S' a
na (ssname ss3 n) @& z7 G; A7 p4 A1 `& n& K4 a
na (entnext na)
8 J e0 N8 A; i# G; \
e1 (entget na)
( N: m3 [! f! U9 |. C# K+ G
);setq
8 {0 [1 `, }. \4 N; |, t
(while (not flag)
; [9 }/ n" ^ S$ U
(if (or (equal (cdr (assoc 0 e1)) "SEQEND")/ G/ l/ h9 [5 b
(not (equal (cdr (assoc 40 e1)) 0.0))
- f/ B/ D( V' r7 y
(not (equal (cdr (assoc 41 e1)) 0.0))# q: t5 `/ P9 z0 y( K5 P9 N& B
);or; D I. q7 B) P' W" J# D
(progn
. `! \: _# F/ Z# f4 ~
(setq flag T);2 L* \2 Y3 n3 ]# w6 P; c
(if (not (equal (cdr (assoc 0 e1)) "SEQEND"))/ ?' x% g, C- q
(setq width nil)
. ^, _ w7 }7 i: m4 L
);if
/ l7 ]8 ?- `2 _! u R2 R' C
);progn then jump out of the loop
) B: O, X3 |2 z# ^8 d G! n% L
(setq na (entnext na)- Q/ ]. s7 `8 l
e1 (entget na)9 _& R' [" A( f
);setq . J8 i0 Z! g+ f; C- l
);if
9 |% \( j9 t: E. `
);while
/ U; b& Q; `8 P. t9 O" P, C
(setq n (+ n 1));setq
" Z5 F) S: Z! T
);while
0 t/ V0 `0 C7 O
, e, v& Y0 t7 H6 f* `) g4 L* Y7 L3 m9 N
);progn then it's a legacy 5 V, R6 p% `$ w, c" }; k
);if ;legacy polylines that may have varying widths ( T5 N) x: \/ C4 z7 [) F
$ q; k5 C" h2 C8 G6 i+ ~ z. k' P
(if (not width)+ S" m$ N% {4 `1 X: r0 _
(setq width "");setq
' Y/ W! k- l# `
);if6 M( q3 E F K
(if (not (equal 'STR (type width)))
+ P5 p `: o2 ^8 |+ k! K
(setq width (ai_rtos width));setq
3 o5 G l. B) o& Q
);if # Z: T1 B- T# p
; s( l, Z$ C, y& F6 z, t: @0 [! `
width + y- X0 m7 C; Z4 e
);defun pl_width_getter
6 Y: s8 S/ |; t$ K: V
- v( M G" V9 D, V' Z
8 [2 \/ ~+ Q, F1 u& p% w
(defun match-col (/ ncolor)
9 I/ C' Q" `' l) J/ t
(setq ncolor (cdr (assoc 62 elist)))* g7 _! j) t8 K& }
(if (not ncolor) (setq ncolor 256))
! m0 n y) |- w) a
(if (/= color ncolor)
+ m5 F3 `; ^% R* o% _. X& \; @
(progn
2 S+ Z4 ]; X6 R7 m. J' V4 X5 W1 q
(setq chk-col nil)
9 @( k8 z3 n6 B
(setq color nil)0 t* k* P+ @! c/ k, c2 t3 W
)! O$ Y$ ~( S8 ?
)
4 f& F1 j2 j& j" A+ u" P
)8 e+ H k/ }# y" n; j
6 [4 U* h$ D6 f+ S! [/ D8 Z
(defun match-lt (/ nltype)
+ |; N6 }- }$ j/ A3 t# ` t0 V
(setq nltype (cdr (assoc 6 elist)))* X( O0 @; a Z( a1 y
(if (not nltype) (setq nltype "BYLAYER"))
, L6 J7 d9 F3 n. T1 r
(if (/= ltype nltype)! g% }3 M6 H* U! S
(progn
. Q; k+ ~; J6 ?( _( N( [7 Y2 l0 _
(setq chk-lt nil)
2 a5 F; _) V6 F6 b- R' b) u% c
(setq ltype ;|MSG0|;"Varies")
( z" h- I5 e' `8 t# ]' h
)) m8 n6 z4 x- i9 c5 n ^
)
8 b* ~- E, s L+ ^( ?! d7 o
), T" n6 W& a3 [% w" z
4 |, a" Q) {* _- n
(defun match-lay (/ nlayer)
8 H8 J4 I* T# G# W( y# F0 @$ `5 A
(setq nlayer (cdr (assoc 8 elist)))
4 b- r P1 J1 _0 }" v
(if (/= layer nlayer)* O5 e! l0 M! h: T: y
(progn9 C. W6 X/ l& ], y' J
(setq chk-lay nil)
6 u% O) H4 \6 g
(setq layer ;|MSG0|;"Varies")
/ U; u8 C+ h s3 I
)$ p- G7 m7 T5 C3 F
)! u8 p+ v7 m: n; u! w
)- t9 Q1 a- S$ a
7 s9 S! {) I4 P5 Z- G" S) }
(defun match-th (/ nthickness)7 U: S* J- S* T) f
(setq nthickness (cdr (assoc 39 elist)))
; c8 ^4 y' X9 ?, O6 A
(if (not nthickness) (setq nthickness 0))
' {: U4 Q/ J) ^
(if (/= thickness nthickness)
0 \. U* d+ y3 N ?" r
(progn- P4 ?2 E- v8 G8 o- I
(setq chk-th nil)" m1 [, |7 O" O. G
(setq thickness ;|MSG0|;"Varies")
- ^2 R, O2 h+ j
)
- G; |& K4 ?; O0 @# V
)
( y r" v% l& H) O S# u
)
8 M9 j# B+ W, C" E
$ O' T6 Q4 B" L1 h$ L% x* I! P
(defun match-lts (/ nltscale)
" L3 |+ H3 p& f# K# `0 n6 k
(setq nltscale (cdr (assoc 48 elist)))
- B8 X0 f( \: H) y3 R# C; F6 x% V
(if (not nltscale) (setq nltscale 1))3 L1 f' C A) V; ?
(if (/= ltscale nltscale)
# K6 u |: w' G1 ?( ~
(progn5 R# R% G0 w3 e. w" g: l `
(setq chk-lts nil)" Q5 W, P" g7 v. k% S5 r9 m8 v0 w; D8 y2 F
(setq ltscale ;|MSG0|;"Varies")
6 _1 H7 |& [4 p
)
7 e5 O7 L+ u' |
)1 Z6 t0 F/ j- t' h
)8 E3 D, a* ~" n o( x0 F4 |* `
7 `% i& _7 Z6 B! Q
;;
/ e! P5 p& a7 ~' _
;; If an item is a member of the list, then return its index number, else3 Q- {. _% q# z' Q, O
;; return nil.$ r: H* e- s& _% Q2 F( A
;;
1 ]; {+ a$ K' n& X
(defun getindex (item itemlist / m n)
2 H% u( C" S3 p- t$ I. v
(setq n (length itemlist))" \) u3 _+ F) V7 y
(if (> (setq m (length (member item itemlist))) 0)* E$ ?8 j$ Y! F. V; |7 [: Z
(- n m)
' \7 O9 a5 ?2 o9 a
nil
5 l. @! t* q. l6 _( q2 _
)
1 Y! Q _2 l& l: M9 Z
)
' V, i `8 M0 d4 L* |% H
;;
d- m4 r" q0 q/ H" _# V( _+ p
;; This function is called if the linetype is set "BYLAYER". It finds the l7 ^/ q2 S0 K$ l7 n/ L
;; ltype of the layer so it can be displayed beside the linetype button.
- _7 C" c0 T' ]/ s
;;
: ^, z& m/ \( \% S
(defun bylayer_lt (/ layname layinfo ltype)8 z) F! b8 K; ]8 _2 y5 A! b
(if lay-idx3 K- }/ H- |3 f$ U% e! ]
(progn
0 }0 i0 ]' H' E" H! u
(setq layname (nth lay-idx laynmlst))7 M0 a! S8 H' X9 j
(setq layinfo (tblsearch "layer" layname)); Z6 s) ?; f% s
(setq ltype (cdr (assoc 6 layinfo)))8 G# b, H) q+ D+ O5 r1 e, ~
(strcat "BYLAYER" " (" ltype ")")
: C5 l9 C+ e' F% P3 `# f7 N$ r
), y+ z- p: ?. i# @& }
"BYLAYER"
3 S2 }: L% A3 Q6 D. m
)
% R1 t* S9 B- V# q) i
)% B& f+ J' l' K5 k7 f3 L* M
;;
/ Q6 X9 t& \2 p6 d8 E; D5 F
;; This function is called if the color is set "BYLAYER". It finds the; T/ s+ c8 O: I( {. K
;; color of the layer so it can be displayed beside the color button.
; c R5 J" O4 R
;;
) R; ^; E( F3 ~) j
(defun bylayer_col (/ layname layinfo color)6 `$ L9 f+ G1 h
(if lay-idx
; y. B0 x p c% J* K( L$ k
(progn6 l. I8 I8 \9 x7 X2 p% z# k
(setq layname (nth lay-idx laynmlst))
% o. e: I. y( O) ^! U7 n
(setq layinfo (tblsearch "layer" layname))* K$ P7 @9 }$ J a
(setq color (abs (cdr (assoc 62 layinfo)))), }5 W d7 }+ U0 W* y: a. x& r
(setq cn color)1 z6 m- J' s1 D' ?& U
(strcat "BYLAYER" " (" (colorname color) ")")# \4 R9 `# [$ h( |9 |, L% Q; ^
)6 R4 @1 C+ F8 G" z6 A
(progn' a. |: `9 b6 Y
(setq layname elayer)
% K- @# A3 O, ]
(if (and (/= elayer "")
6 V3 H9 O, X% G3 W
(/= elayer "Varies")( h+ a* f" d% k: `5 O/ e( o: m! C
);and
# z' I2 v" J: [- l8 N4 h
(progn- P3 r' o# o8 t- @ q# X) r1 S/ `; ^
(setq layinfo (tblsearch "layer" elayer))
, u5 x5 v" G+ x- z: l
(setq color (abs (cdr (assoc 62 layinfo))))! M- G: @5 X( C% `* I; r
(setq cn color)3 n. d# T! Z* f x* t
(strcat "BYLAYER" " (" (colorname color) ")")
/ I7 B/ A: E6 H- T. a0 ?
)! e/ W/ d5 y: {9 K T9 |
(progn( E7 O/ M9 o; Q; X- _6 K) E' S
(setq cn 0)5 Q; r/ K+ G5 T" T/ ?! m( N) Z) o. `" T
"BYLAYER"% [, C- T; N5 A% q
)' G, [; d& J3 z$ Y5 @3 b8 O/ o
);if; Q( H& ], w8 t/ u8 x" r
);progn
4 {! U( a$ a+ [0 A# w
);if% H' F8 Y( L1 Y
)
3 ^% n4 u' v+ G. G3 R. ?: ]
;;
. D# ^( Z& u' W5 v
;; If there is no error message, then close the dialogue. D( E f6 s( M2 r
;;
4 R- N {. W! D! C% A1 S: _
;; If there is an error message, then set focus to the tile9 y$ R: L$ Y' o
;; that's associated with the error message.5 M; F$ U" ~# J" v" P
;;
# p& ^+ J" b) t- I
(defun test-ok ( / errtile)/ `2 x8 W) L5 k4 {3 ~; T6 H
(setq errtile (get_tile "error"))
9 K' B3 u- [- [- `* @% W
(cond
& \+ }6 ]$ ~- B @8 H7 x5 C! S" Z
( (= errtile "")# }! e4 ] g2 C/ Q* H% d, l) @
(done_dialog 1))
6 Y# }& S3 B# q' M
( (= errtile "Invalid thickness.")
# L: {. t* o) }. Y y
(mode_tile "eb_thickness" 2))" x; }1 I, u0 [# `! i% H3 B" p3 a
)
1 U* p# Y0 _; L5 \5 v8 v: H% J
)
' V% i$ L# u- J& u2 q
;;
0 c; m, P; W& E) ]
;; OK in main dialogue.
, H# x0 |& e7 n! C) x$ w
;;+ T* V% l4 F, e! I( e
(defun test-main-ok ( / flag)
1 ^! s5 ^5 G+ j2 g
(setq flag T) 2 @* v, W7 ` I; F" D
(if (not (or (distof (get_tile "eb_thickness"))- [; w' E G& j5 n# b+ }
(= "" (get_tile "eb_thickness"))
' P! d, F/ D9 K7 O+ [ G
);or
. w. J5 U0 _1 A( f8 f. s2 [
);not
! [9 U+ {8 x, `0 ~, ?4 j) z5 n$ E
(progn3 d- e+ z) g! O8 `& f* ^
(set_tile "error" "Invalid thickness.")) e$ z6 ?4 F, |& F7 {+ O+ ]4 ~7 Z
(mode_tile "eb_thickness" 2)
% X; |% n( o0 i4 o9 Z. _# ?
(setq flag nil);setq0 x7 s* g1 i, s' h
);progn
7 S3 x1 o* g- T4 b' R" g3 }
);if9 P$ q8 T4 `& T4 `7 A0 M1 W3 D5 k. v
(if (and flag; |7 ~$ r5 k8 B. _, k- W4 [& C
(not (or (< 0 (distof (get_tile "eb_ltscale")))
(= "" (get_tile "eb_ltscale"))3 t$ d( v o; a' E2 G- _' R
);or , D/ E# \( Q1 F0 B1 a8 T
);not
' N! C7 N e1 Q+ e
);and b+ Q0 E+ e9 J
(progn
0 W: m5 h% K$ }9 \& b9 x7 z4 M
(set_tile "error" "Invalid ltscale.")' B+ i. p3 H5 z" p/ n5 j% a$ Q
(mode_tile "eb_ltscale" 2)
! h6 M3 X* C' d4 d0 ?5 j
(setq flag nil); " }. x+ l2 x8 j X- p& g8 s$ \ S
);progn then! i% F! [" x/ i( L3 D- w- [
);if& N$ l: H/ H' }& S5 `! S1 ?* f
(if (and flag
9 M, P- I! |* _: Y, ^4 D
; Don't test the tile's value unless it's enabled.
6 T$ X$ d6 \5 d' a! L7 I0 P2 d# ?- |/ h
; We're not set up for the display-only value! l3 |, v- G1 X- _1 y. z8 z9 k$ c, x
; of "" here in the error handler.
* F1 g9 m2 _4 K
(= 2 (logand 2 eflag))
8 P' B+ S) b9 ~
(not (or (< 0 (distof (get_tile "text_hgt")))' @7 D2 ~ w9 p7 X9 B( w* {
(= "" (get_tile "text_hgt"))8 L' t, i% {8 i1 x4 h
);or! _9 Y: { }9 L
);not
; g5 K @ H% O" @6 p& O, n. a
);and& a1 J; B0 q8 Y4 X* E# Q; i; ?; ]
(progn* Z7 w* R: D& D, x) l
(set_tile "error" "Invalid height.")- V4 _+ o# R: _ O2 [8 [7 @
(mode_tile "text_hgt" 2). z+ i, w* Z" C$ x
(setq flag nil);
4 e8 Z3 f( M! E6 }7 c9 Q3 l
);progn then
) t! P- @3 U$ v I9 ?
);if- y- x. p0 s( ^
(if (and flag
% o! `9 n7 N) P
(= 1 (logand 1 eflag)). V& D) P. _, K* ?7 v
(not (or (<= 0 (distof (get_tile "poly_wid"))); p+ x M; B! B( g2 Y, q( P
(= "" (get_tile "poly_wid"))3 d; a) R, B4 F3 z
);or
6 H% K$ n6 V) N' h P
);not2 O8 ^: q" i/ a4 t6 M
);and
W* ], g, Y6 {, [7 V
(progn" n$ {( R. x- n. l1 x2 w% F
(set_tile "error" "Invalid width.")
0 T9 Z' {6 v" V! W# I+ k! @% @7 X3 d
(mode_tile "poly_wid" 2)
4 A+ X$ ^; C( Z6 m+ ?! U# p
(setq flag nil)% Q. t* H s- w! t6 y) G
);progn then! k r5 }: ?; P
);if - ] t3 U7 ]1 m( w
(if (and flag
3 u! U' u: [8 R3 M7 P
(= 1 (logand 1 eflag))
8 w2 b% V1 W7 y; \
(not (or (distof (get_tile "poly_elev"))5 H# N7 e$ H. e
(= "" (get_tile "poly_elev"))9 [8 H- Z2 W# M4 a% a
);or6 R t8 n4 M' E$ ?" I+ h y* R
);not
! J* j H7 n: _+ G
);and$ t. p$ @ m6 X0 _4 y2 m Z" v+ g- q
(progn* ]/ w) ?& }0 x- l2 N8 f
(set_tile "error" "Invalid elevation.")( ^- G3 t. h& `4 ?) |! T3 |
(mode_tile "poly_elev" 2)- Q2 j" h5 S5 x
(setq flag nil)+ p. v' N; R% t' D( w
);progn then
: t! @- ~! S ?& J) ~
);if - v& Q* O3 h- s, ]: x2 {& p5 S
(if flag
" `6 L3 x/ S" V' ~2 z+ @4 `
(done_dialog 1)" Z9 r5 \" w" H k' I# u7 H
);if
& _9 L% f2 U/ N# I$ p- F/ c1 s; |
);defun test-main-ok$ z8 Z! o2 r! a9 d! K
# ?6 Z; {! H2 t. \: n
;;
y+ F5 x. I9 v
;; A color function used by getlayer.
5 ]5 `3 p7 A+ {, ^+ M# a
;;
. t! e8 J% Q: |
(defun colorname (colnum)) l4 w/ E H0 P3 G! x
(setq cn (abs colnum))( ]4 U& h' A2 A" M; x9 U* c
(cond ((= cn 1) "red")
5 ^4 c6 B) F8 b7 [- _
((= cn 2) "yellow")
3 P L+ g. P7 n! N& d" v$ j& ?/ s
((= cn 3) "green")2 _, _4 L$ G! ~
((= cn 4) "cyan")
# k" j; R; e" k0 x. q
((= cn 5) "blue")
$ ~% ?0 U8 \% t! L4 ]
((= cn 6) "magenta")
: W" {( R2 t+ A& s$ r
((= cn 7) "white")
* Q" I$ W, }8 _" N
(T (itoa cn))- l$ m8 O; O o; S
)
. ~" F2 }+ r3 M. @4 _# I
);defun0 u9 q' l; s N- [' W7 m
7 v8 ^7 z& C, R
;;; Construct layer and ltype lists and initialize all
, }2 x- P9 z O" _2 g5 Z A
;;; program variables:
. g( c4 z/ |4 K
/ h, [$ w! P- @2 e- x0 w
; (makelaylists) ; layer list - laynmlst
' I1 J j _: ^9 v+ J# Q* C8 H
7 a4 M, k8 `$ P1 h3 i( M( Q
8 \: F2 {5 j1 h1 ~9 S
(makeltlists) ; linetype lists - ltnmlst, mdashlist, ~( r3 p7 p5 w. C) n; P' a$ t8 Q
% L: D+ {+ q4 U/ @9 c- m: `: P
;; Find the property values of the selection set.0 \) u/ @0 I3 y* f; w
;; (getprops ss) returns a list of properties from
0 C5 K4 F( Y2 L: o
;; a selection set - (color ltype layer thickness HEGHT STYLE WIDTH).4 J7 n: X: _! C+ o. N
1 n: W3 Z& Y& t
(setq proplist (getprops ss));@rk interesting things happen here
8 n$ e" b, Q F2 o4 x
1 I }4 p2 i: J7 g
(setq' N2 v0 ~; a5 e1 o4 T% N2 ~
ecolor (car proplist); u. Q2 ~2 `' ]* F
eltype (nth 1 proplist)
% E0 L2 i8 n" F/ U. P
elayer (nth 2 proplist)
% W% n4 x6 l a, {7 K) H3 \6 T
ethickness (nth 3 proplist)) A4 I) H3 f. c& u" k1 G
eltscale (nth 4 proplist)
* T$ G I1 X6 }5 n0 F0 J
ewidth (nth 5 proplist)" O; @4 M, s+ e( L) Y9 c
eelevation (nth 6 proplist)0 W& p5 Y+ @" H; D
eheight (nth 7 proplist)
! d$ O3 ]- ^# S0 n4 X
;etype (nth 8 proplist);commented out and replaced with the line below. RK.
9 _! L/ ]" q5 l0 K. M& @% U
eflag (nth 8 proplist)6 ^9 D+ C; O& x' Q
estyle (nth 9 proplist)4 L4 { m) f3 \; A1 |& U
poly_ss (nth 10 proplist)7 H; _% Y2 s0 b1 n) v9 D# D
txt_ss (nth 11 proplist)
8 D, ? }( c3 L0 s( v y
);setq' N+ u2 g6 T9 o5 `5 _ ]
9 e' ]5 m' L7 ]" S
;; Find index of linetype, and layer lists9 A" E. x0 f+ c, i! d2 v
(cond2 @9 i. ]% @5 \
((= eltype "Varies") (setq lt-idx nil))5 z* n# c0 ^: v+ g7 V* ^
((= eltype "BYLAYER")' B! i$ {: _, }1 T& Y6 r
(setq lt-idx (getindex "BYLAYER" ltnmlst)))
/ v3 Z, T& b. [$ c1 }, J I
((= eltype "BYBLOCK")
, |/ C& @0 n6 C' {9 w% F
(setq lt-idx (getindex "BYBLOCK" ltnmlst)))* ]) e: d& b% L p; f D
(T (setq lt-idx (getindex eltype ltnmlst)))% s2 m6 V2 Q$ E. V& X
)7 m/ @( m$ c+ l) p3 d
(if (= elayer "Varies")
( U$ K8 N) A2 _. `% @& h6 R; Y$ y
(setq lay-idx nil)* K" @) Z' o" U7 S
(setq lay-idx (getindex elayer laynmlst))2 b* g. c) n% ^+ a9 U' `
);if
- ?8 u' o9 k% f7 v+ d
(if (= ethickness "")$ D0 v- p ^& t% W" r% ^
(setq ethickness nil)4 s: w+ R# D7 I9 i9 w
);if) Z& h' c& {$ O O4 n
(if (= eltscale "")
+ a7 o# ^1 J% ~% c3 [* ` N I# }
(setq eltscale nil)
X1 G( ^) Q# P4 v& A( I$ M
);if
& { D! g( ]; t% W
* W. Z! t6 ~! d; S/ ^! w1 U
);defun ddchprop2_init ; end (ddchprop2_init)* E2 r7 I: s/ }# j; p, _- w
% j4 R' l3 Y6 N6 b+ d' K; R$ f
;;; (ddchprop2_select)" G1 I# e0 y5 ? B1 P7 _
;;;4 M( O2 n9 \0 k4 g& D
;;; Aquires selection set for DDCHPROP2, in one of three ways:
( C r/ f7 c# S0 @, A
;;;
, D3 [1 j* ^/ z3 }, ]3 C
;;; 1 - Autoselected.
2 x7 p+ A7 g+ @5 K' p7 ^
;;; 2 - Prompted for.; ^# G. ?+ X6 T+ H1 Q0 u
;;; 3 - Passed as an argument in a call to (ddchprop2 <ss> )
;;;
& I* e) t& z% \$ G" U; P, _
;;; The (ddchprop2_select) function also sets the value of the
& E4 {3 B* C: e/ @% x
;;; global symbol AI_SELTYPE to one of the above three values to
- w1 I3 |2 k# t/ f3 O
;;; indicate the method thru which the entity was aquired.2 U9 U" J* T2 d" C2 Q
/ d }7 W' |- J$ \! B0 l$ j3 a3 l1 R
( a/ J+ Y6 ]* E1 ]0 x- _* n2 |
(defun ddchprop2_select ( / )
/ L* O4 _' y$ [# W2 I, n
' M' D* H8 M- i) s- S0 \
- n+ G$ q+ R- _4 \
;returns only entities in ss that are in the current space. 8 H5 n( I, ?5 ~/ g
(defun ss_in_current_space ( ss / a cur_space ss2)# s; g# W9 S8 ?8 j9 R/ C
' E$ f! G* N' J7 }+ k& N6 I1 I
(if ss
. y3 f" x4 y @' U4 l5 Z: N# d: {* W
(progn& h" j' ~" M+ O% C0 q; E7 }
(if (and (equal (getvar "tilemode") 0)) ?% m# y5 m" }1 m; q5 R
(equal (getvar "cvport") 1)7 q: E1 ?/ B! N: C. k) {
);and
0 Z' i, O8 g/ a; {- T- H3 t2 I
(setq cur_space 1);then paper space is where we are.+ Z) P6 p. g/ ~: [
(setq cur_space 0);else model space.6 A7 _8 D0 t; m9 S, k% Q. T+ ]( D
);if
3 k$ n2 Y/ t0 C3 C
(command "_.select" ss "")
1 K( T3 @8 Y1 L2 E0 W# ?! o
(setq ss2 (ssget "p" (list (cons 67 cur_space))));setq
1 D. i( k: W+ W. I
(cond ;;;;;tell the user what's going on.
3 {- g. A3 h% i. \$ r4 I- I
((not ss2) (princ "\nNo objects found in current space."))1 S! P; y" b$ a$ k
((not (equal (sslength ss) (sslength ss2)))
- j5 F1 d: H3 N. r( g& ], d; l
(princ (strcat "\n" (itoa (- (sslength ss) (sslength ss2)))
! C4 s0 Q% V6 D. R( R
" object(s) were not in current space."
) w8 S: K/ W3 r8 P; Q) {& F, i
)) w" k9 R' Y8 E. d9 {2 r
)
$ j' t- f: L; Z7 l- ]8 R
) , o& y4 K# }/ Y9 E% j0 H
);cond ' Y! Q: M0 q1 _, _3 b! Y I
);progn then
p, ^6 q2 i( c- G; w# \5 J
);if 0 B, D% t' z T7 v6 |5 f' q' T
ss2# }" G6 d" y6 J2 l( q
);defun ss_in_current_space
6 f) C$ i1 V m% Y3 q0 @! Q4 P
+ m$ |& M5 N" x% o h
* l [( f. E* q! D7 F. [ q
;;;begin the work of ddchprop2_select
5 L8 ^7 ~6 |/ v; j$ F' y) i
) O8 ?. w% f K, g# ~
;; temporarily restore original highlight setting.9 `2 Y# Z0 w. v& X' g& U
(b_set_sysvars (assoc "HIGHLIGHT" (car bonus_varlist)))0 r2 w0 D. X, |- h2 C
(cond% s1 w/ z% r1 }% J1 B
((and ss ! V, Y# E: N: R1 ^$ Y A0 f
(eq (type ss) 'pickset)9 n: { G V5 ~/ u! S6 z. i
) ; selection set passed to' S7 i1 n% C% f @. @
(cond ; (ddchprop2) as argument6 @1 O; N4 i( v3 O/ p% ]
((not (zerop (sslength ss))) ; If not empty, then
' V* B5 U/ S/ T. l/ P
(setq ai_seltype 3) ; then return pickset.1 r6 ]+ c" }- M) D
(ai_return ss)6 A. X7 R1 d+ `$ i. s
)
. @9 t' Q) P/ P0 l: R- Z, U' T. l
);cond close
2 C* j) v5 h0 m7 e" L& L V" D
);cond #15 S& g1 y5 s; a
((setq ss (ai_aselect))) ; Use current selection1 H9 V% Z9 E: l8 E5 `. f1 c8 T
; set or prompt for objects
& X5 ~; c+ A$ k$ K9 e
(T (princ "\nNothing selected."). d3 i/ Q2 t- `, R# }) E
(ai_return nil)3 p8 L6 u, |* N3 r5 F) p
)
3 L2 x. u1 i4 S3 I% L6 j# v4 P! f# r4 C
);cond close
. `/ l6 t* w$ `8 R
(b_restore_sysvars)
8 Z6 t3 ?. @) ^# C+ C
) A) r" G- E7 m. x
;(if ss
3 c- N8 N9 @: o
; (setq ss (ss_remove_locked ss)) / B% f0 D7 V: L9 ~* N
;);if M1 ]4 g# G9 u) G- n1 I
(if ss7 T: ~* d( Y( M5 {/ `, u
(setq ss (ss_in_current_space ss)) ( U7 x0 [+ Q1 o
);if
4 w" M+ u1 Y [3 W0 ~
/ g5 s" O1 z" g2 k* W8 B
ss
% w7 z7 D l1 Y* A1 }0 Z
);defun ddchprop2_select( s7 A9 j5 l8 |6 Y3 T
8 U7 {4 D+ S/ h$ s9 W# g
4 u. P( ^' e4 R7 _0 B
;;; Define command function.! B y' b& B% ]: o* W3 K
(defun C:CCH ()( w2 N# N% C, i) j
(ddchprop2 nil)
/ \; ^: Y# E1 S% C
(princ) w' ~/ k$ o8 M: N+ K: ]
);defun
2 A: q" m& O- i6 L
- Q4 V- Y# P6 I$ F: P7 n
9 M3 R2 O8 M4 D" _* U
;;; Main program function - callable as a subroutine.
. n' t# d& W8 n, F+ O+ B
;;;
U" g% u/ R6 D; O( a) ~3 Q
;;; (ddchprop2 <pickset> ) k% m8 V* O! G' ?! N' j
;;;
& ~- x+ T& ?7 p$ j8 m3 C
;;; <pickset> is the selection set of objects to be changed." c9 Y0 M9 }0 R) l+ D1 R, H; ?
;;;5 g4 T8 M1 H6 {9 v. l$ L
;;; If <pickset> is nil, then the current selection set is
5 u/ f" m% j8 H" U
;;; aquired, if one exists. Otherwise, the user is prompted" [" n8 `& ?0 i- m+ Z
;;; to select the objects to be changed.- ^% Q# W( h: V
;;;) _* `5 T* x4 c6 l
;;; Before (ddchprop2) can be called as a subroutine, it must2 n% o# ?$ d# m. Q2 w. y
;;; be loaded first. It is up to the calling application to* [' X$ v( W0 d0 Y, X; ?. `
;;; first determine this, and load it if necessary.
0 _. G! ^5 l! V) R/ Z5 ^
: M7 d. k& {6 n7 r
(defun ddchprop2 (ss /) g$ z+ b. N6 _& J
* ~( L& l$ ^+ W( I
a
& ?5 e) G, r1 F$ A: P
add-mdash6 [2 h# \6 c. {% q5 ~6 a" w
assoclist6 r7 w4 l( Z* b b
bit-70& H! }4 t& F7 m. K0 M
boxlength
! O. {% q9 Z- A0 l; r2 r
bylayer-lt$ E, y3 t- D6 e% U% x1 o4 a
bylayer_col
0 g* G2 ]& F/ r! Y7 H( z( g" O& F
bylayer_lt& ~# {; ^: [" S7 n* k) z, j6 }, U O
call_chp2
$ v) @7 q- O j0 z9 r2 t
chk-col: N4 t, A0 b' t: l4 U
;chk-etype ;var removed by rk
& n+ y& x' R* p1 n+ |8 }8 R
chk-lay , n9 K9 q" m0 u* d; |" q, z; X, t/ {
chk-lt4 u/ }% K) ]: y+ t, c
chk-lts ;var added by rk . `9 K8 i; A) W" ]# ?& T' Q+ v! M
chk-th6 G9 h4 f% S2 U1 l/ M
cmd( U8 P6 t( F7 E/ p; A! \# a! ?
cmdecho
$ @ [0 M1 k! H2 X. P8 e# O4 c
cn+ I3 g6 s" ]- b; Y# \1 h2 r
cnum
) F& B" a$ f, E
col-idx
* Y# T, E- S* M8 p
col_def
& Z. n3 E# g2 z
col_tile
/ F! V$ i2 K h- x2 m, D4 f
colname# H5 i6 a' ^' f' V0 ?+ A% B6 f
colnum5 }: @* K; }& p
color4 ]5 l: R. e0 s9 t8 k" E' [( L
colorname1 G0 w/ i$ ]. D* l& q. _6 h
cvpname! }5 P' S1 L3 x$ h. p, u/ f
dash: f1 p+ T2 Q8 ?- a, w& F
dashdata' }+ E, f% B: }9 z& `6 e
dashlist
! V6 n- F- ]# L2 L* S
dashsize- F$ E6 V/ ^4 R: ?: ]1 A1 V2 o( J' Y7 F
dcl_id2 Q' ~6 h P& s! b& x
ddchprop-err
( D! [2 S4 s- B
drawpattern
( o" J* J# I. H- q% y
ecolor* e8 i: q, X2 E! c/ ~+ _4 a
eelevation
! H: P6 ?0 D( v2 f
eflag! M8 M i; @& S4 ]) V
eheight
; E3 H# Z Y, S @
elayer
* j4 }& B- I( R( c1 Z
elevation% K2 A: K7 H/ V: b
elist% U& a! x: ]1 l1 v& r
eltscale
5 q* X5 D9 F* Y! f
eltype
6 Q& ?. l6 \: ?+ B- U4 K
en/ k8 M& m" D6 T% D
ename
1 Q# m" h- _, i7 n" y; _
ESTYLE ;var added by rk& H" l |% E1 _& \; Y( N7 |$ d
ethickness' T* i# Q4 ^2 g
;etype ;var removed by rk7 o8 ^" j) M! c6 |: c* d" p
ewidth
3 Q1 Q* i% g8 u, |& |( r* X! x% i/ H' r
fchk
0 q8 m' D( N5 X% O; E# K- J
frozth8 m$ \" T" T) L- `+ A
fx
7 w, t$ L3 ^" v( {0 [
getcolor4 f5 H, ^$ J( _! u$ K; b! I
GETELEVATION ;function added by rk
- e" Q% ]9 X8 H% U) p3 d3 n
GETHEIGHT ;function added by rk
, {8 b/ m* o* }( t! D0 G
getindex) w6 p& e/ H0 O! ~. Q
getlayer
' q4 P7 `9 H2 c& f" o9 D# D
;get_locked_layers ;function added and then removed by rk 6 K) S4 V; _4 _! B% i a9 ~
getltype
2 r4 m7 s& r/ ~8 u* @' V
getprops
5 b) h( \0 G- C8 V V- Y
getscale ;function added by rk
- P4 X: ?# x, N* M$ t
GETSTYLE ;function added by rk
# h* g, f' Z1 f7 G4 k
getthickness
# _# a5 o! C" Z5 x* X S
GETWIDTH ;function added by rk+ g$ D3 z4 z9 R& p
globals( S- o6 G+ ]4 v% T
HAIR_STYLE_LIST ;var added by rk; h4 z9 B F/ Y' U
height
S% x. y; ?- J1 M3 Z
index9 ]! P; C Y" |# v$ z5 E
item/ _9 t- h% z' v b0 Y9 k8 P4 I$ D
item1$ P; E, Y B8 ~0 [
item2
3 [: y" k6 N! V; U
itemlist& z. }! G9 P* h" y' B
lay-idx
) ^) @, ^$ D @: J: ~, e: S( s
layedit_act0 S0 D+ ]" a. P L' n, g
layer( F: ]; `5 O: J- `- j
layinfo! R4 D7 f' M0 D1 p; R& B
laylist, s4 V# \. |/ V, i
laylist_act$ V0 C& ~" F# _4 p" ~
layname: s7 S8 r: m2 Z. U( Y
laynmlst
% p( F' y; [! e
layvalue
' Y* @3 F$ ^& r! D! a" u8 G
linetype& T5 p0 A" [- T: J: \
list1+ K3 X3 g' }" B! z p) i' t
longlist, c$ O) ^$ @& C% l, q a; c$ P' z
lt-idx. @; [/ b$ R& j4 l
ltabstr) f0 q0 T- L7 {2 H6 i# V" b
ltedit_act
1 W+ ?+ D- b6 ?, @
ltidx
$ z! L1 N" K7 A5 h
ltlist
l, D3 p* u! @3 s8 W, Q4 h, H# l
ltlist1, k) Q r# |+ E3 ]1 Y
ltlist_act8 f* P# z4 b5 `/ f5 d/ O- e3 C
ltname( b, I$ E I* ~$ W5 Q9 c
ltnmlst
/ K1 D) }& F9 C1 b& @0 Z, {
ltvalue
$ m$ T2 b8 D( k' {" O
ltype; s# J& O7 q9 s! N- w5 Y, c" x
m, K; |1 U* k+ U( k& N
makelaylists
0 R% U2 Y1 f X
makeltlists3 u. V& I& g" O7 h$ d( L# Q
match-col
4 |) r4 x, ~' m6 F- B, N
;match-etype ;function removed by rk+ t% a0 q# \4 R
match-in0 q8 W6 ]! \ s, o2 o* K* S* W
match-lay ]- A5 B8 E$ B& ?( M* D
match-lt
match-lts) T. l. E, w3 [$ q' E& Q- ~' K
match-th
v8 Q+ O# T4 Z' m
match_col3 U2 s4 S- z. a" J* v
mdashlist
8 [; v, o2 G, v7 R( {
;MPOPLST ;function added and then move to ac_bonus.lsp by rk7 w: K8 T) r4 t& O. ?* [! Q2 C
n6 y( Y& u$ t! [' |. x( S. e# B v
name
& K/ d6 ^2 N3 |3 x3 d! t0 z) C. s
ncolor
$ d) c7 @. j; a$ R5 E" j6 G7 J
nlayer) u3 p* D9 o/ i( E" s9 R' F
nltype
3 h8 m/ c" V; O% C
nthickness' e+ r4 J1 T, X9 {
off+ j* c2 Q4 W6 @% B& T& i3 f
old-idx& K! b/ u; h8 l* ]* o
olderr
9 U! s# i3 p S& ?) ]
on
8 e5 \/ [( s- e F2 m1 T7 X- M5 {
onoff9 E+ L; ^8 A) K( T S/ \+ k" n
patlist
! b$ d; N {4 I: @5 Y& z
pattern
/ ^, y8 b7 M7 ^) m( h& o
PL_WIDTH_GETTER ;function added by rk' q0 c3 J5 J4 a0 _* E i2 E0 I& S8 E
POLY_SS ;var added by rk
I6 X; g; w3 D0 t' Y) A7 C# U, n
;POSITION ;function added by rk and then moved to ac_bonus.lsp: E! p' w, C* y9 U. m/ ~
proplist
1 X6 H/ B7 t/ \" m: L
reset-lay8 @9 X9 r- v5 `5 [7 q! `+ B
reset-lt
$ [/ |9 w6 {) h. W& R* T5 E1 W$ S
s, N8 \: ~& r/ H. e H
selset
5 y. l* e$ Y# s# d& O/ I! R) y0 k
set_col_tile
! r ^1 S9 `. F* w) Q+ Z8 L
sortlist' @6 P# k9 t( Z6 |, n
ss0 O Z* ]. V; D9 U. R+ i& x: I# |
ss_in_current_space ;function add by rk.4 U6 u7 y' C* u& |; F# [
ss-index
* U/ w) p! f+ x9 b! ^& s
ss-length# _7 R8 H/ i# m+ _
;ss_remove_locked ;function added and then removed by rk.
0 l& M: i+ }+ [4 h) e8 h6 S
sslen
* h* C( w, V0 a2 Z! P3 I5 h
temp_color& A9 {( r+ B% h" k. K, z. Z' @+ F. m
templist: Y3 U% a7 v+ D+ G# t$ x
test-main-ok
+ R1 E9 J* s5 `: V, @* p; q/ J
test-ok
; G' n' d4 K' }6 ^# d6 y6 G: l
testidx$ K3 R& c1 |3 b3 I" A
testlay0 o! q3 U3 T$ g! E( P
th-value
) X* p0 b. e# H7 ~4 [& U
thickness- {9 b* g' _; `# Z) Z6 T+ L
tile
; T& @6 |, @7 ?1 }
tile_rect
# u% G+ b, Z2 {3 s: g" P/ O& g0 T
tilemode% {% o$ V0 G' R/ ?5 ~- b4 [: |" A
;TNLIST ;function removed and moved to ac_bonus.lsp by rk2 D; A9 z0 M/ L
TXT_SS ;var added by rk
' q- ^# N* r; z8 ?4 r' v
;undo_init ;removed by rk." L! C3 L* o3 D8 n$ k, J# Z: y
vi g8 \: ^- f( T, t& k$ K7 r
vpf
; |6 m$ T3 f+ x7 d7 Q! Y; M2 O k
vpldata
& x) r1 v! t& @/ _4 M5 V6 _( Q
vpn
2 U6 Z9 F; b9 l, l" F0 @
which_tiles: b" J, L7 h2 ?0 ^
width
0 j9 A1 i0 x2 J" |9 E6 n9 S% c2 `
x* X y# j. f' _, F+ @# K
x1
3 w/ R6 D: q9 Z' R* b( Z# J2 Y
x2' ~0 m# I# M! B
xdlist' C$ ?# |$ T/ Y4 x
y
, R0 ]& J/ q' `8 ]* `: F$ i0 ~8 W
y1
3 I- G; H" D$ `% T% s
y2: S% A& ~4 K% _) e5 S7 o) O/ |$ m, y
)
! }& Q: m0 Q, t3 R4 E
" ~+ B- m$ A$ u/ J
(if (and (not init_bonus_error)
/ t( u! ~5 X+ N+ N( w
(equal -1 (load "ac_bonus.lsp" -1)) : S7 H7 t2 u7 F' V+ D/ f" Y- {! s. \
);and
6 ^5 q' ]; a" a* O" _. U6 i* D
(progn (alert "Error:\n Cannot find AC_BONUS.LSP.")(exit)): i6 O/ D0 e1 x5 H5 `% G
);if: H: @5 j3 p9 c Q! S& M, P
(init_bonus_error (list5 J" N( e/ p9 g g# }, |
(list "cmdecho" 0
7 ?* U, h+ B% a2 ]/ @1 N
"highlight" 0( h: d5 y/ f# I7 B! r
"regenmode" 17 ^2 K- M3 X% R: R
"ucsicon" 0. M2 q8 V* F/ u# q& W: @# U+ o/ ~8 e
) 4 | I9 v% o! Z' t
T ;flag. True means use undo for error clean up. ; Z' E, n6 D; Q, h" [8 ]
);list
0 Y }4 T- b! R Z6 c; }, z/ s: e
);init_bonus_error
; e6 \% [) p2 e; k
: H9 o5 l+ O/ b" s
(cond# h4 ^- K- S! M# c" i
( (not (ai_notrans))) ; Not transparent?7 F2 V$ s* D6 V; i1 w7 ?' U
( (not (ai_acadapp))) ; ACADAPP.EXP xloaded?
* C) B. A$ B1 P
( (not (setq dcl_id (ai_dcl "exchprop")))) ; is .DCL file loaded?
\! @5 P- G8 |" q; K6 u
( (not (setq ss (ddchprop2_select)))) ; objects to modify?
+ @0 o0 |8 C8 o! a# t
(t 3 d" b( ]% h* @/ n& a
;(ai_undo_push)
- N9 p+ m1 w" `" D8 `8 j9 Q1 G) |
(ddchprop2_init) ; Everything's cool,
, I ]! X1 D ]) I
(call_chp2) ; so proceed!
) _7 w* n- r0 Y% D, e
;(ai_undo_pop)
3 Z; q) _2 {: F
)
& O6 n/ W" O0 g# h) L
);cond close
1 X7 g/ _1 h- v+ ^( R$ Z9 t( j) F
(restore_old_error)
h# o2 K- {+ b3 m' Q! g: H1 J
7 H+ ?4 n3 O! t! n" B9 r
(princ)& Q6 k- z5 f4 l* k! E4 B, x
);defun ddchprop2
* t: a6 z, \2 m8 U0 {8 X
9 X' @, j$ H8 V. J. |6 W
;;;----------------------------------------------------------------------------
0 Z& U: f5 C. u( |* y6 j
. t2 ]% L( O# r# q
(princ " EXCHPROP loaded.")
6 h1 K# `3 p- ~( y" J8 i5 V7 m
(princ)
' L: t8 R |! F4 i% q% o7 g4 ?
9 d9 W4 e, D: }8 O4 M/ g
;;;----------------------------------------------------------------------------
! r1 z" C7 Q( v' }6 Y7 `3 W4 Y
;;;---------------------------------DDCOLOR_LSP--------------------------------
" N* a4 b" |% U* U. s
;;;----------------------------------------------------------------------------: ^7 n# j7 y" b3 q5 @+ t8 c6 i; _! Z
1 Q5 |# b. ]" y
; Next available MSG number is 24
2 `8 u3 H& i0 u! ?) k. B7 Y' w
; MODULE_ID DDCOLOR_LSP_; z" `7 s' c, B3 f% E1 Z z5 C
;;;
1 W: ]/ h. x! ?, K6 k" N
;;; ddcolor.lsp
' {( P4 {) J% o( N- ?
;;;
/ R' H1 r: Y1 o G4 A0 g0 s7 D
;;; Copyright 1990, 1992, 1994, 1996 by Autodesk, Inc.$ s& H. l# o! K9 y* D
;;;1 S" }- w( N" _. K# Y* N$ I7 a
;;; Permission to use, copy, modify, and distribute this software
1 @: q: ]: _3 i+ U1 X' f: S
;;; for any purpose and without fee is hereby granted, provided
; v7 o% Q; Q' x6 `
;;; that the above copyright notice appears in all copies and
\- t, d/ V5 Y) y6 O+ c
;;; that both that copyright notice and the limited warranty and
0 [! `1 o2 w7 J! d
;;; restricted rights notice below appear in all supporting
* s6 h! M+ v: [$ H: o
;;; documentation.
6 L0 l& [# L: b- E( k% A( w$ m3 ]
;;;
( N. Q5 S+ U. v& O
;;; AUTODESK PROVIDES THIS PROGRAM "AS IS" AND WITH ALL FAULTS.
- j/ ]9 j+ a4 l3 p' P
;;; AUTODESK SPECIFICALLY DISCLAIMS ANY IMPLIED WARRANTY OF: Q8 w. `( z) m8 g
;;; MERCHANTABILITY OR FITNESS FOR A PARTICULAR USE. AUTODESK, INC.
0 @" A0 H% A, F. s0 A
;;; DOES NOT WARRANT THAT THE OPERATION OF THE PROGRAM WILL BE
/ ]5 d3 b( r F" }
;;; UNINTERRUPTED OR ERROR FREE.
$ {1 u5 F; I9 M9 N0 L6 j% F
;;;7 k. W) w) d4 \7 Y+ s2 z
;;; Use, duplication, or disclosure by the U.S. Government is subject to4 a' W, ]; e7 v8 E) L
;;; restrictions set forth in FAR 52.227-19 (Commercial Computer# k1 t# `5 d; _# X" r7 c" a9 A/ |
;;; Software - Restricted Rights) and DFAR 252.227-7013(c)(1)(ii)
- I7 A# b- ~* e5 P) D
;;; (Rights in Technical Data and Computer Software), as applicable.
' U( J9 T% M( C! a, m; C
;;;+ \& I1 w6 d9 _
;;;.* [/ B% ^9 `1 D6 n3 H
;;;
) A0 `: n" ]7 `; l! r7 V e
;;;----------------------------------------------------------------------------
3 f: Q: ~" B4 y
;;; DESCRIPTION
% @. U/ n5 b2 n- c' Z& w( U
;;;
+ ?3 a$ f4 |& K8 J5 e8 x
;;; Chromatic Pallete style color selection dialog.
/ L* q! E2 t# ~, P2 K
;;; 8 c6 S0 K0 o3 c/ ^. }! V
;;; Globals:2 R3 n3 u T6 w( [/ L: E/ \
;;; # y4 o$ q6 ]- j ^5 V
;;; chroma_color - Integer color index. The last value selected$ O7 z- p, D) T' g0 H
;;; by the user in chroma dialog. It is not cleared or reset9 \: T8 A0 m9 V, m3 ^8 R
;;; by a cancel. Only used for communication between callback
! L6 h2 d/ j: U7 ?- s9 D9 }' J1 H
;;; functions and the (chroma) funciton.9 h& q5 l& ^) V3 h/ X
;;;
. N4 S0 X5 o9 ~/ s- \, v6 \. q
;;; Depends on the definitions for the dialog provided in chroma.dcl.8 c8 [- D" Z2 n
;;;
3 f, {( I# _' V0 h' b; R
;;;
$ R$ I, k5 \0 d7 A+ A( X- A' F
;;; C:DDCOLOR -- Dialogue front end to the CECOLOR sysvar. Uses the chroma
5 V6 v+ ? `3 a; ]0 Z& W0 W2 K
;;; pallete style color selector.
! ]8 t5 i/ Q! ` \5 V
;;;
6 x, `) h+ E4 A7 K$ d- N
;;; ===========================================================================
' P* Q6 d; {& _* v& l' v
;;; ===================== load-time error checking ============================5 z8 P- ^6 d! A X1 k6 a' I
;;;! t/ U9 n7 P% v+ U- O/ \! k+ g$ d
4 M2 v: I1 Y# M. M7 f* ~. P
(defun ai_abort (app msg)
; v6 V3 F! Y; U6 ^
(defun *error* (s)% o# n9 C1 r% _& V
(if old_error (setq *error* old_error))! |, Z- E8 W! m0 R$ W; n" T
(princ)0 H) w1 \2 Z/ i
)! B& i4 U' d& k; P8 S
(if msg' t! R- i& d3 s+ q" v
(alert (strcat " Application error: "4 g+ Q2 [, C) o6 a. ?( [# U
app4 C& n( w# e- a9 u, W- ~
" \n\n " s* {. p1 K" N- C# E) c$ a9 J& T c
msg
: |: R/ @5 D0 |9 e
" \n"
0 ^' h% e$ @+ d5 X4 B
)
6 q, w. B" T& {& {7 [6 c
)
V2 `$ L4 ]- a6 v1 q: W
)0 y( c. G4 k& A% z. x, ~
(exit)0 L1 k0 m2 q$ E- X
)
. R `4 Y& U, K, O
! j ~' F k* @$ j" R& e6 S J
;;; Check to see if AI_UTILS is loaded, If not, try to find it,9 j5 _5 a# A; T& U, k& x
;;; and then try to load it.
8 ^" Y. w! C+ H+ C5 ?6 v
;;;2 p$ n/ F; n. h. P$ q
;;; If it can't be found or it can't be loaded, then abort the4 N! r. g/ b; C: ?! z
;;; loading of this file immediately, preserving the (autoload)8 O5 H8 o9 U) ^& v h! e
;;; stub function.3 \( y/ d+ f: d/ n& m3 b* ^
8 F/ g, F2 V. @
(cond
3 V) W! @* |# j6 |2 z
( (and ai_dcl (listp ai_dcl))) ; it's already loaded.
6 u$ D* c# |" @3 S
$ W( L1 a) L- _. P. c
( (not (findfile "ai_utils.lsp")) ; find it, P1 p& I& K2 d/ O1 W
(ai_abort "DDCOLOR"
/ c6 i: U# m- Z9 ]4 S
(strcat "Can't locate file AI_UTILS.LSP."
1 M$ s) Y/ D4 P, e; s
"\n Check support directory.")))! O7 w! {+ h7 T7 T. n. s
4 v5 R0 E- g: Y! x: Q4 \
( (eq "failed" (load "ai_utils" "failed")) ; load it. W1 \# N/ H! s2 j4 t) P" G
(ai_abort "DDCOLOR" "Can't load file AI_UTILS.LSP"))! C: i5 ^* v. R/ T- _, B, p ] B# r
)6 X$ {+ K. E- T0 W& ^
. f0 [" w; @4 u* G& m9 b3 \
(if (not (ai_acadapp)) ; defined in AI_UTILS.LSP
, ]2 v8 o: B5 i$ q: C Z
(ai_abort "DDCOLOR" nil) ; a Nil <msg> supresses
/ n& q2 R. B3 J: z1 U
) ; ai_abort's alert box dialog.
% N) @/ Z: q A% K. X7 o S
) v# l2 a4 u6 h! e! W$ N' v
;;; ==================== end load-time operations ===========================
- h( @) }# v# Y3 K' L
1 x1 U% }( k6 R& Y2 X( v5 K- A
(defun c:ccc (/ co_oce clrx co_err co_oer lay_clr)
6 O! D" l( \( X4 T- L8 i" h
. U: w7 w" r; y/ @& ] T
;; Main Color function, called by setup code.
3 j' c2 \2 J, [) `: f4 p' i
(defun ddcolor_main()* W+ M2 Y l$ b/ Y; v
) D2 Z3 n$ v F6 G4 N: @
(graphscr)2 i% q" t- X0 R/ V' i) d
* B' l n* R/ n l' n& d
;; Get the color of the current layer, for possible BYLAYER color swatch.( w* H# k7 b# L# C5 Z- F
(setq lay_clr (cdr (assoc 62 (tblsearch "layer" (getvar "clayer")))))
3 `* q5 O' P8 V7 A: B: @( g
0 b# d6 E0 l! ~
;; Call the dialog here.../ _1 [, D& i" ^. o3 ^7 P5 S3 K
(setq clr (acad_colordlg (cstoci (getvar "cecolor")) T lay_clr))% }. ]9 c. b5 H( j& l* `" U6 _$ ^
+ r8 y' M; K8 A3 U' W) S
(if clr, G1 w' |8 g9 x* H s
(setvar "CECOLOR" (citocs clr)))
* L' @% j; v( N+ ~
)% K5 ]$ @- e: H; f. D" m1 o
8 s- W+ }9 l7 r9 G6 B
;;;
$ w X0 ` Y1 n& n. h
;;; CSTOCI -- Color string to color index
( z, j* |/ X% r( x2 m7 f
;;; Convert an arbitrary case string into a color index./ \4 z* E! X$ `, Z9 I+ v
;;; Returns nil if string is not a valid color., f8 }3 h$ t+ [: Q# C
;;;: U9 e: u7 M4 Z# f7 o3 ~1 c$ ^8 G
(defun cstoci (str)
+ z5 b# t; F! R& \6 s7 L8 h/ C; K
(setq str (strcase str)): I/ U4 F$ c4 C! s3 u Z
(cond. ~. J. h# H1 z
((= str "RED") 1)# }% a2 k; N0 V# |2 i2 g
((= str "YELLOW") 2)
7 U$ g6 i8 B& ]8 \, o, m
((= str "GREEN") 3)
* d' m& \ K) s) J7 T6 a
((= str "CYAN") 4)
: P, k8 v& }. ]. o; E% @
((= str "BLUE") 5)
) n$ s' T0 B0 h6 ^
((= str "MAGENTA") 6)3 R2 d* z* {) q. K
((= str "WHITE") 7)
2 m. K( @/ k' t8 A. A9 b
((= str "BYLAYER") 256)
$ w9 I# s. e8 `7 ~
((= str "BYBLOCK") 0)
/ Z1 ]- A4 u( D
((= str "BY LAYER") 256)4 @& @; N" U6 j3 N- \9 c+ C
((= str "BY BLOCK") 0)
! V7 w) r3 V5 j6 y; j3 t
((and (< 0 (atoi str)) (> 256 (atoi str))) (atoi str))
* J2 C7 f9 ?3 U0 b' k( q* o0 r
(nil))9 K$ w; m0 r _& f8 C$ g+ p8 `4 K
). t" u* L' o9 O' Q" |
, [/ E' x# b& U( N$ ?0 A
# w7 U; g% ^3 D" P! r& v, l
;;;! R# C6 g" m9 t7 x3 Z9 `9 f5 ?
;;; CITOCS -- Convert color index into standard color name.% R5 A5 s1 w0 k/ }
;;; Will return the standard and logical color names as text
, ~5 c: e% _1 ^0 [* Q3 S
;;; strings. Returns nil for out-of-range color indicies.
/ P9 a; v8 K @; z9 c
;;; ]4 E5 f' |9 V" ~9 r1 A
(defun citocs(i)% n1 K/ c+ c: R# E9 S- ^
(cond
@1 I3 G5 }/ x6 }& W1 U9 }" T
((= i 0) "BYBLOCK")/ w" V D# {" L
((= i 1) "red")# E. g2 U# R9 I% V( ?
((= i 2) "yellow")
2 [: P$ O* ?: q' `% V# j$ G
((= i 3) "green")8 D5 P; P _+ F
((= i 4) "cyan")
6 l# ~8 N+ N) P1 y3 G) [
((= i 5) "blue")) `7 C: x8 ^4 i; y9 `7 U# t' y
((= i 6) "magenta")
- [8 }- z, X% C! g
((= i 7) "white")
! l/ s- ]5 V+ |0 N: Q$ |
((= i 256) "BYLAYER")
, x. {7 E+ ?& W7 d7 f
((and (< 0 i) (> 256 i)) (itoa i)), r1 S1 d% t, x4 y _9 l7 w
(nil))8 w# v( i# Y" q! a
)
- k4 W( y9 f* A; q/ H6 W3 w0 D- A
, C2 X4 x7 [" h. }! b4 z
;; Start of ddcolor J6 a8 l; ]! {
(setq old_cmd (getvar "cmdecho") ; save current setting of cmdecho
8 o, N g, P5 {, k
old_error *error* ; save current error function
$ e- M; |& \ `/ Q! o. I: j
*error* ai_error ; new error function% k( u& Q4 d0 [( w" _7 i
)0 W9 A) [9 \% T' m; [# I+ P
7 j1 ?: F( ?& X8 k1 C! q9 T
(setvar "cmdecho" 0)# ~7 C% L! c! W6 ]) H
& o% i1 \- G# q( F$ z! c3 k
(cond
# t" D; Q: `! E; d
( (not (ai_trans))) ; transparent OK: R4 y# g( s4 @* t
( (not (ai_acadapp))) ; ACADAPP.EXP xloaded?
5 H; a& l; Z9 p
& H4 F- L O9 E$ B0 B$ \
(t (if (and (/= 1 (logand 1 (getvar "cmdactive")))
6 \7 y& O- ]' A# K+ ^
(/= 8 (logand 8 (getvar "cmdactive")))- _: U7 t8 x1 @. ]( m! w7 g
)
: k0 m/ n! ?: u* A
(ai_undo_push)
- f$ Q1 t0 C; E9 E$ Y8 j
)
& q) p" a5 A7 t; B, ]* ~( O# h
" i }2 `2 x. c, g
(ddcolor_main) ; proceed!
. v. m* Y' ~% P8 Z3 n
3 o9 {$ J$ k0 N; A2 Q. @
(if (and (/= 1 (logand 1 (getvar "cmdactive")))2 D( R7 I( \# b, q {& E! `% K
(/= 8 (logand 8 (getvar "cmdactive")))/ d' H1 f" m! c
)" e; j f9 l5 f8 a0 @$ _3 [ M+ h
(ai_undo_pop)5 }# Q2 W' \) i* J' f# U
)( _/ r- ]: r6 C
)
1 _% k9 N% k1 L; m; M$ c( V
): D- n3 P. j5 E
& n! k: q8 M2 w8 l
(setq *error* old_error) # w: v0 E! \% R1 O
(setvar "cmdecho" old_cmd): S6 i2 s1 ?: {! j7 [$ ] l$ D
(princ)% F4 a% m% z) E7 e; x6 J1 d
" `6 j# Y% D! K6 y2 n( C
), ~8 X4 n( u5 d4 ~# m7 N
4 N0 U) l/ w. c* ?3 a& _0 c
;;;----------------------------------------------------------------------------& s$ l' T* K( `+ D6 L
0 n& M/ v! z" G `: K
(princ " DDCOLOR loaded. ")7 j" b8 p" u6 y9 q, |
(princ). i" _! Q' X+ i h* H4 z. g, e# t3 l* h
" {# u3 {/ @4 W9 e7 I* G
;;;--------------------------------------------------------------------------;
1 g' }4 G, g1 u. O r6 p0 h8 {
;;;---------------Chon NHANH Nhieu Doi Tuong GIONG THUOC TINH----------------;
! ]0 M3 S: ]6 {4 h& w
;;;--------------------------------------------------------------------------;$ L2 f8 e8 h1 U$ M3 ^8 e
;;; ssx.lsp
! q R; n- v1 ~+ y8 j
;;; Copyright (C) 1990 by Autodesk, Inc.$ _0 r6 k3 A9 t% m6 F
;;; Copyright (C) 1991 by Control Systems, Inc.4 |0 d1 f4 t/ s: s4 b6 S1 _
;;;
; Q0 P$ Y9 n: l. g# o
;;; Permission to use, copy, modify, and distribute this software and its
, _5 R: f2 U1 {7 C
;;; documentation for any purpose and without fee is hereby granted.
8 c: u( N: g- k3 l* X* Q
;;;
;;; THIS SOFTWARE IS PROVIDED "AS IS" WITHOUT EXPRESS OR IMPLIED WARRANTY.5 H: J* j- A$ t: J% d; n9 s
;;; ALL IMPLIED WARRANTIES OF FITNESS FOR ANY PARTICULAR PURPOSE AND OF
7 C: n. s/ V: X; g' u1 n
;;; MERCHANTABILITY ARE HEREBY DISCLAIMED.
5 w3 K1 H' @9 R/ |- g8 T7 ?" Q6 m
;;;4 e2 V/ j. C0 a/ X# J
;;; Larry Knott Version 2.0 7/18/88% ^% @/ \+ \9 I: e# w: _
;;; Carl Bethea & Jan S. Yoder Version 3.0
& m0 k3 U+ e4 ? }+ I# k
;;; Enhancements to (ssx).
4 T/ r$ y( ^* E9 r) h+ x& T* W
;;; 15 March 1990
& L ]- ?* V- d8 p* R- [. A1 ~5 Z
;;;6 E: U4 n! i6 o) W
;;; ARTIST Software, Inc Version 4.0 December 1991' p7 D9 |" l6 w% x
;;; Modified for FLEXICON usage. If the variable FLEXVAR = 1, ^. j: i' o0 Y; X6 b
;;; use Flexicon menus6 T; T/ ]3 z1 j0 L$ ]# V
;;;
$ z' h' L# o* p1 _
;;;--------------------------------------------------------------------------;* m) _: n" o8 _* z" V% _, B. a( G
;;; DESCRIPTION
( c ]/ n Z" P- n* j6 O
;;; SSX.LSP " y% r# W& @% K5 T" C
;;;
b9 ]+ z* A9 U& \' Z
;;; "(SSX)" - Easy SSGET filter routine.
% n5 z+ P! q3 d3 ]! Z
;;;
; z" b* N- h' }/ i. P+ c
;;; Creates a selection set. Either type "SSX" at the "Command:" prompt ( B3 U' p9 _4 r$ m2 q
;;; to create a "previous" selection set or type "(SSX)" in response to
3 x: Z; r' m- O; B1 d% e
;;; any "Select objects:" prompt. You may use the functions "(A)" to add # m+ w/ B+ t( `( @% c! j" p
;;; entities and "(R)" to remove entities from a selection set during
; D8 p& C6 h5 U1 [
;;; object selection. More than one filter criteria can be used at a
' L3 z# B) i* c! E: z3 f
;;; time. ( B6 [9 ?' b9 R: o4 ^) \
;;; 5 T/ x! R6 N1 N1 S% S
;;; SSX returns a selection set either exactly like a selected' D* F, y/ ?$ X; p3 q8 U; N" d
;;; entity or, by adjusting the filter list, similar to it.
* x- i' D( O" Z q3 F$ Y" b
;;;0 z( ^) J+ B+ E& d& d, _
;;; The initial prompt is this:, G$ n a% T; R" [+ c# O5 l
;;;
. }8 |+ U5 P' R
;;; Command: ssx
- r; {0 l5 ~8 Q
;;; Select object/<None>: (RETURN)# _6 Z0 d3 C2 z T3 d) d2 g
;;; >>Block name/Color/Entity/Flag/LAyer/LType/Pick/Style/Thickness/Vector: ) Y+ L' c( g+ r1 A0 v" n9 \ [
;;; 5 h; z. t3 O. S/ j5 _$ \6 a9 R
;;; Pressing RETURN at the initial prompt gives you a null selection
& S/ |0 w! e$ O& Z9 [! i
;;; mechanism just as (ssx) did in Release 10, but you may select an " W- p5 N% `0 p
;;; entity if you desire. If you do so, then the list of valid types + H" o* f0 _1 w6 t' [. F; w" c
;;; allowed by (ssget "x") are presented on the command line.0 V9 H1 c# o) t; N3 v( q
;;; 3 P& `- R7 |+ _9 _" [- [
;;; Select object/<None>: (a LINE selected)
6 ?. t, N+ d4 ?" `; j$ f4 A
;;; Filter: ((0 . "LINE") (8 . "0") (39 . 2.0) (62 . 1) (210 0.0 0.0 1.0))
' @7 L) [5 F( H: @+ B
;;; >>Block name/Color/Entity/Flag/LAyer/LType/Pick/Style/Thickness/Vector:
; P# Y$ E( u V! C( t; ]8 }
;;; $ q6 t4 w( z% J+ d
;;; At this point any of these filters may be removed by selecting the
* g2 [( ^+ O3 |9 z4 D/ p
;;; option keyword, then pressing RETURN.
! Z9 _. S/ V, Y/ u! X! C
;;; * J/ T- y" `2 B( L3 V l" @0 A
;;; >>Layer name to add/<RETURN to remove>: (RETURN)
5 Z1 z' f2 {$ d0 Z3 |2 R. v
;;; 4 O! q2 D, F$ J( _# y" l7 D
;;; Filter: ((0 . "LINE") (39 . 2.0) (62 . 1) (210 0.0 0.0 1.0))
- z0 O; Y, M9 a/ Q
;;; >>Block name/Color/Entity/Flag/LAyer/LType/Pick/Style/Thickness/Vector:
F: s+ J/ j4 G& q/ x
;;;
G9 J1 W& O- a/ l( o1 c
;;; If an item exists in the filter list and you elect to add a new item, : N4 u, p2 _) F2 l
;;; the old value is overwritten by the new value, as you can have only
3 e) \, B1 z0 _% n' F$ h
;;; one of each type in a single (ssget "x") call.
7 S% t+ n5 O \* B; h5 @% M
;;;8 D% D. p! V, c" \; b: ^. O
;;;--------------------------------------------------------------------------;
* I7 N \3 w. z
;;;
/ f) O. o% ^' r0 ^+ \
;;; Find the dotted pairs that are valid filters for ssget
. b; ]# k$ }1 s0 Q. A! e1 U
;;; in entity named "ent".% j5 O+ p2 {, c% e! L8 q
;;;8 }% p" Y" m; W" A+ r8 S0 q! u# U
;;; ssx_fe == SSX_Find_Entity( ] j! a8 P# g5 k% v
;;;
* V2 @& A- }5 I3 _& H7 V* N
(defun ssx_fe (/ x data fltr ent)
; Y" Z+ X2 d/ Y6 R
(if (and (= flexvar 1)(/= t2 "Pick"))" Z \5 c* q$ C1 Y# j G
(setq ent nil)
0 X, v5 O- _" S0 ^& Y( Y( [- L# k
(setq ent (car (entsel "\nSelect object/<None>: ")))6 U. B2 T: P" `" g+ J' y
); o8 b# d C4 d4 [* N. r" d; i# Q
(if ent
: |; z" k/ W$ j: d' j1 s5 \
(progn
% Z- x X. H/ p3 C" S) V9 U% O
(setq data (entget ent))
+ u' L( n, R- N( F
(foreach x '(0 2 6 7 8 39 62 66 210) ; do not include 380 o8 B" E% n6 u
(if (assoc x data)
3 |9 ?4 l/ m( `4 u
(setq fltr * K( G H0 Z) o# y# Z4 z# q4 a
(cons (assoc x data) fltr)
t: W [5 S/ Q4 D I
)' W0 z& X* f {: z! k6 L6 f
)
' K; ?2 E" ]( M% ~5 {. T
)
+ M" u- J0 f3 v; ]% ]5 H
(reverse fltr)
6 R/ q$ q4 w$ O
)
! J5 X# ?, c4 g* x0 a* X* k* v
)
3 g- L/ i# y- G; ?
)
4 Q5 c; f. w! V- t1 i% _
;;;
- W# P$ @# u8 S/ h( g
;;; Remove "element" from "alist".
% W. }, g& y( i4 I
;;;
0 i5 F4 B: w" m1 u5 t* j, D, g9 B
;;; ssx_re == SSX_Remove_Element' a$ E7 ]4 Z. P7 K+ E
;;;
' `2 C' D0 e$ d! \0 Q$ B( C/ _
(defun ssx_re (element alist)$ h( t% ^) W; Z& ]5 I" Q
(append
8 y5 L( O6 q: j; @, h( T" Z
(reverse (cdr (member element (reverse alist))))1 I9 y% h3 p4 Z3 c$ K( g
(cdr (member element alist)) 6 W4 {% O& e# p0 a
)
" g7 n5 Q4 Z: E! _0 j8 m( S1 h, p/ b
)3 Q$ L& Y* F4 g& G# K/ X3 x0 l' A
;;;
2 \( \2 A4 ]2 M7 E
;;; INTERNAL ERROR HANDLER
% q j, u# W& M$ }; I1 }( x4 q
;;;5 b! X T# P4 [( o7 A% \" ?: u0 C+ `
(defun ssx_er (s) ; If an error (such as CTRL-C) occurs: R1 b- I+ [6 r, p9 y/ t# \
; while this command is active...
Y3 y2 d O& B+ L: J
(if (/= s "Function cancelled")( S9 N' X; ?! c% n
(princ (strcat "\nError: " s))
: q2 T9 E/ u# n0 z
)
' m- M0 }) t) i5 b
(if olderr (setq *error* olderr)) ; Restore old *error* handler& N) ?2 z' `9 q5 U `3 a# O' `
(setq flexvar 0)5 A0 w# C" O7 H/ x5 g2 R
(princ)
* H$ M x# E" @6 }; {& S
)$ p/ C K2 [; O+ [! A0 r# @5 w
;;;
# q8 M; {6 T$ _5 p& X! W0 J9 N
;;; Flexicon call routine
4 n/ A5 o7 U5 l* L, s
;;;) e) Z2 d" z0 d6 r
(defun flexmnu (a)
2 N0 s; ~# a; W; ?' D; H6 N$ ^# a
(if (= flexvar 1)* u6 A0 J _+ y3 O/ U* X, o9 J" R
(command "FLEXICON" (strcat "FLEX" a))
3 {: }+ W; j9 s9 `! P( Z1 y, ?
)
7 D' e) f, L5 z8 [: ?' \& X( @
)
9 G, y2 ]1 v5 F/ e. w
/ |7 D4 |! v* { j' |
;;; # B" Q- _7 B+ U3 i; A
;;; Get the filtered sel-set.# i; \' e5 l' a! y; ~
;;;
9 {4 b8 X! ~/ U8 Y- Q/ ?
;;;: h6 E! I6 K6 H. ~: n0 K
(defun ssx (/ olderr): V/ H; l6 A, ~- N
(gc) ; close any sel-sets
; k7 i5 `/ i( H, }, o1 R3 ?/ ~
(setq olderr *error*
- Q/ {. d! R9 O2 E) }. W$ e( h
*error* ssx_er ) b- z4 E" |# I+ a9 E% n/ ~' T
)
$ I$ t, W! }# a4 r
(setq fltr (ssx_fe)) $ S% N! A: V8 E/ n! ]+ ~0 ]
(ssx_gf fltr)
# K/ q1 f/ z+ R9 w9 y
(if (= flexvar 1), e& |! o* y3 {5 S( f6 e3 N! O& M1 a
(progn { I( C* }$ p$ `
(prompt "\n \n \nNow select the required EDIT command and (P)revious.")* P; l8 A m+ P
(flexmnu "EDIT")
$ k" c( ]( l) F
)+ n+ q5 O# [1 h& Q0 O9 v
(command "p")
M. m) V- `! O; o3 g
), l' [7 {! B* n7 v
(princ)
& X+ ]7 r5 _; P2 O5 ^
)4 b% r$ {5 D% d
;;;
& m2 ?& z0 b" I$ C }6 Y" ~% }
;;; Build the filter list up by picking, selecting an item to add,8 }! u5 c! `6 u
;;; or remove an item from the list by selecting it and pressing RETURN.
/ O- w/ ~4 U; r3 `. B6 t# w: |
;;;
; l: j f/ S) x
;;; ssx_gf == SSX_Get_Filters( m7 {' h3 c% F
;;;& N; D5 I" g' v, I
(defun ssx_gf (f1 / t1 t2 t3 f1 f2)
# p2 ^1 q+ N: {* Q) T
(while 7 e) t8 c2 g* M+ w5 o
(progn
8 G2 H6 c* M! U( w/ [
(flexmnu "SSX")* {$ n( U' z2 u0 L3 p( O, l
(cond (f1 (prompt "\nFilter: ") (prin1 f1)))$ A; _1 O6 v }2 F# }
(initget * H1 M) M, t! t Y' P3 h2 n6 V; \$ n
"Block Color Entity Flag LAyer LType Pick Style Thickness Vector")
& D# Z# y9 h) B3 T" k1 M5 ?% A# q. t+ w
(setq t1 (getkword (strcat" A* ~+ h2 E- z7 K7 @6 ]; l
"\n>>Block name/Color/Entity/Flag/"/ u3 V+ u0 Q- w6 Y
"LAyer/LType/Pick/Style/Thickness/Vector: "))) 3 H$ a$ \) b Z! q! R2 b+ X& f
)
7 {9 L/ m$ l; z9 q- p4 A
(setq t2* @. h6 V1 E' l- z
(cond
6 {, c5 x# @/ b) I- T% F/ [
((eq t1 "Block") 2) ((eq t1 "Color") 62)
: o, `" @* U' o3 D
((eq t1 "Entity") 0) ((eq t1 "LAyer") 8) w. n! g; g- |3 i6 Z7 g% |
((eq t1 "LType") 6) ((eq t1 "Style") 7)
. ?. r; e# ?. h C' P4 W U
((eq t1 "Thickness") 39) ((eq t1 "Flag" ) 66)5 S( o4 E4 i8 g6 a* j
((eq t1 "Vector") 210)
" x5 {) W0 {: v3 z
(T t1)
% w0 ?2 z1 z* D1 j
)4 A$ a" r( \4 ~6 Q
)& C; W7 v# p9 @; r/ S' T
(setq t3, i$ U7 {& l5 y3 ?
(cond! ^5 M) n: b) o" I$ C c2 e# k
((= t2 2)
3 Q+ j6 A* Z! x
(if (= flexvar gtads 1)6 M! R- B- c6 J4 f4 O) ]+ P z' z
(progn
1 J% T) }/ ^, E& v' h( H& U5 m
(prompt "\n>>Block name to add/<RETURN to remove>: ")
8 d: W) Z9 P8 \0 F
(gttable "BLOCK")- r' Y' J1 R/ D- |7 S# C7 Z& w
); u( I' G' F& o* y
(getstring "\n>>Block name to add/<RETURN to remove>: ")5 b% f2 M: M$ E7 H( J# ^1 f
)
& B/ e4 H! u. j9 m' A4 }7 \
)8 M7 [2 }+ F' t4 X$ x9 L
((= t2 62) (initget 4 "?")
: A4 i9 p1 Z0 D* L
(cond
, Y$ n/ b# w. s7 `& ?4 t: n) E
((or (eq (setq t3 (getint
! N. n i. K2 @( P. Y y5 T
"\n>>Color number to add/?/<RETURN to remove>: ")) "?") $ N9 A8 C, k7 C6 P4 k. l. O
(> t3 256))
1 x/ x8 R N* v& c- Z: z8 {
(ssx_pc) ; Print color values.0 s+ w& x& L& @* M
nil& f7 X) z: V/ y
)
+ G$ B" p' F/ K
(T
9 \2 m2 P# I2 d$ T
t3 ; Return t3.
' ^3 p, g& C2 ^" [
)1 L5 A" e5 I- h" D! O& t K- T$ G6 Z
)4 P/ r" B0 T+ x9 X
)
' I- x/ g% H" V
((= t2 0) (getstring "\n>>Entity type to add/<RETURN to remove>: "))9 L' M0 z/ h- N" v( d+ v& c7 E; p
((= t2 8)
@7 [8 H$ a/ [5 M
(if (= flexvar gtads 1)
" \6 E+ Z8 \0 E1 K6 \
(progn
& U) T4 @! l% t, s* M0 s) D$ b
(prompt "\n>>Layer name to add/<RETURN to remove>: ")
. j6 r* E {' ^) I. X/ a
(gttable "LAYER")/ r* ?7 A# @4 T" i; k& J, q
)
+ x' _* Q& ?/ U2 Z) ~
(getstring "\n>>Layer name to add/<RETURN to remove>: ")
. h) q6 e; X% o5 Z" @3 p
)
/ Y0 \6 N8 a; e3 o* Y# e
)! X; n: a5 o. b5 G( m
((= t2 6)
" a2 N0 x% W u9 w+ { q Q, M% F
(if (= flexvar gtads 1)
/ Y' }/ U: S9 w- K! e
(progn
1 I0 i0 Q n4 C, Q& q5 c S
(prompt "\n>>Linetype name to add/<RETURN to remove>: ")0 ~' g) T7 U/ u- U* K. J1 s* u
(gttable "LTYPE")( \) z/ c0 u% J3 Q
)
! @& m/ f J- }* S
(getstring "\n>>Linetype name to add/<RETURN to remove>: ")$ k2 @7 {( _3 W
)8 z8 e, q) O" v$ Z2 G; a) c, Z9 A. U
)
8 S& e: d) e2 q$ t" v( i3 Q: M# f: U
((= t2 7)
/ x$ |$ r9 h- `2 j
(if (= flexvar gtads 1)( N2 ]3 Q8 h) Z
(progn
& A* X' \' E' Y" V% x
(prompt "\n>>Text style name to add/<RETURN to remove>: ")
2 F4 J& c w( @9 F+ Q) Z5 K
(gttable "STYLE")# C3 X: r8 ^- ~3 k; S
)
: ~8 s$ N" b5 c
(getstring "\n>>Text style name to add/<RETURN to remove>: ")
7 v6 x! W) F7 r: }7 i0 o
)
4 Q# I e) ]5 b' \
)
y% S ]" q! f! d
((= t2 39)% I! c: s, n9 Q9 \6 o/ n8 d
(prompt "\n>>Thickness to add/<RETURN to remove>: ")
( t8 t5 ]$ ~4 u6 M' M2 n
(if(= flexvar gtads 1)(gtfnum"Thickness to add:")(getreal))) }# B; i$ [+ ]1 i9 o
)
- \1 V6 H& C: ^6 z# i& P6 r! O' j- J! C
((= t2 66) (if (assoc 66 f1) nil 1))6 h, O+ F: E6 B' e$ K: l [5 o4 e
((= t2 210)
* x; L: j- j: R0 i
(getpoint "\n>>Extrusion Vector to add/<RETURN to remove>: ")2 G) o8 L: x( U" ^1 {+ X
)+ L& J$ ~* h5 ^3 K1 i
(T nil)3 c0 M0 o& x0 O
)
4 Z' A3 b8 m( K
)
2 t3 k5 T0 l6 i
(cond
+ \: D& P! x, B+ J
((= t2 "Pick") (setq f1 (ssx_fe) t2 nil)) ; get entity
# K2 l/ |; C( T1 U
((and f1 (assoc t2 f1)) ; already in the list: ]1 F2 U( Q* @9 z
(if (and t3 (/= t3 ""))
, N; L4 G4 h; ~0 U+ ?, ?) t
;; Replace with a new value...
6 t; Z( O9 M K: n5 `! m
(setq f1 (subst (cons t2 t3) (assoc t2 f1) f1))
) d3 ]0 j' I: V |
;; Remove it from filter list...* a9 U; |$ k K
(setq f1 (ssx_re (assoc t2 f1) f1))
7 }, l' `6 C$ o. h3 x' x$ N' l
) ! p4 P6 Q2 n4 R8 u' V& I; ?
)% l; f+ {% {; Q3 U' P
((and t3 (/= t3 ""))* M( V1 r0 a' ~
(setq f1 (cons (cons t2 t3) f1))8 \7 p( F- q% m% L
)
0 v. z9 ^2 ^+ \ k! L+ o
(T nil)% ]6 V' r8 L. a' b4 P5 r: k
)) L) ~+ ] f* C: ~
)
% f3 e( q2 y9 N V. h T
(if f1 (setq f2 (ssget "x" f1)))% } G* \0 w+ g6 s, X5 x
(setq *error* olderr): O! b5 z. \ i `
(if (and f1 f2)
# g* X- O) {& k- t8 R \# s4 [
(progn
$ [9 V: x- B( f
(princ (strcat "\n" (itoa (sslength f2)) " found. "))
9 ^8 e0 z# V! |/ a6 y8 b
f2
2 U+ N2 ?2 b( Q# [
). [- i/ ]8 c/ c9 P) H3 R
(progn (princ "\n0 found.") (prin1))
: }5 d7 A8 N0 |% w( O1 B. g
)
& H2 R* p' p) C D- d! J
)
, H' s8 a2 K( k0 v( [: E' g5 q
;;;% }2 Y5 {* B' L" X
;;; Print the standard color assignments.1 u& z, N9 {8 K3 l! f- j3 k
;;;
$ Z5 l6 U4 O6 z0 [- k6 ^
;;;+ r) ]9 d4 ]4 T7 [
(defun ssx_pc ()- w# i5 t2 s2 k! R
(if textpage (textpage) (textscr))2 M* K( H/ O/ u g5 K
(princ "\n ") V- m$ K& Y+ t* m9 C( \
(princ "\n Color number | Standard meaning ")
( x0 M/ t& ?' O! K- I& }7 Z. S
(princ "\n ________________|____________________")
, U5 a. g5 Y+ C l9 N, }4 F
(princ "\n | ")
2 R7 I, X2 Z! [3 A3 |
(princ "\n 0 | <BYBLOCK> ")$ @' ]% p5 a8 H4 d+ a
(princ "\n 1 | Red ")
& I' E! j: d& R3 W4 a* `6 f3 X, Q F
(princ "\n 2 | Yellow ")& l V; `% Z2 _4 c& T2 ~2 n5 P
(princ "\n 3 | Green "); {+ i0 b g% N o6 A( b4 ]
(princ "\n 4 | Cyan ")
* G& L F& N. m2 V) m$ Y- d5 ?
(princ "\n 5 | Blue "). N# j' h4 w& O; O8 |$ k" M
(princ "\n 6 | Magenta ")
( t @! |/ I. t; i5 X3 N
(princ "\n 7 | White ")( O) Q1 ]) j- H% W
(princ "\n 8...255 | -Varies- ")
. K( G7 P) k# ^9 i
(princ "\n 256 | <BYLAYER> ")
% g( g# V* D$ L% ?) p$ l6 B
(princ "\n \n\n\n")( h3 D4 a. `" m* M: b# t; R
)
- ~% L* z; V7 w; l# O. ~; p; `
;;;: w! e1 F; R; l" V
;;; C: function definition.
1 H% R) ?* i$ Z: j4 u: P
;;;( \6 v% j: G( q8 Y. }3 h' ~
(defun c:ssx () (ssx)(princ))( }6 V) O. u3 w b
(princ "\n\tType \"ssx\" at a Command: prompt or ")8 r* e/ `5 w& n1 ] ~
(princ "\n\t(ssx) at any object selection prompt. ")
& k( W. j u" m4 z9 X
(princ)) v' ~7 l7 S, K/ J; E$ n7 l
) T* G+ B5 j2 s# L$ o1 {
;;;--------------------------------------------------------------------------;' n1 x7 v6 q( }8 ?1 e; C
;;;--------------------------------------------------------------------------;
8 H4 i8 _7 ^: F: x S, n+ L
;;;--------------------------------------------------------------------------;$ i2 C! k; T* K% M2 A2 z( ?% n) N/ H
(defun S::STARTUP (). i5 E g" ^+ n5 Q3 N* W7 q
(setvar "cmdecho" 0)
! w0 |6 n' J. z+ e. T7 [( b. H
(setvar "cmdecho" 1) e: B3 T1 ~9 o0 B$ j
(setvar "LTSCALE" 10)
& u+ G# Y9 ^/ Q
* `* G. @* \$ z6 j/ Q# ^8 I+ p
;(command "_load" "chenKH.fas")5 o2 c! `3 a3 [( Y% A. z2 L
;(command "_load" "ctcot.fas")* i$ {) n: |, b
;(command "_load" "damdoc.fas")
* g1 m7 q$ s' s# I4 x- X
;(command "_load" "ghichu.fas")
% b) p0 b. W/ |8 c" F4 U
;(command "_load" "hamtutao.lsp")3 ^2 U. k% q; w$ A
;(command "_load" "KHOITAO.fas"), ^: o" K% J; W* Z
;(command "_load" "KHthep.fas")8 K( R! V6 D: k2 c% H
;(command "_load" "mbmong.dcl")
( j7 @) [- T4 ^$ P/ y6 u4 U
;(command "_load" "mbmong.fas")
( H. s$ c) H/ ]+ g- \! h. z
;(command "_load" "mccot.fas")$ f/ v6 _1 x$ W. k+ c
;(command "_load" "mcdam.fas")/ b& p2 j& H/ L0 D3 ^, `0 y
;(command "_load" "mcmong1.dcl")
& H# Q' m8 S* c6 Y$ h/ N
;(command "_load" "mcmong1.fas")
4 I0 G# m+ F2 m
;(command "_load" "mcmong2.dcl")
; @# B# V: k2 n( Y
;(command "_load" "mcmong2.fas")4 J9 D* | Z) L( L
;(command "_load" "mcmong3.dcl")/ j4 E: N6 u, s3 o
;(command "_load" "mcmong3.fas")
% C7 L( A H- O( F$ s
;(command "_load" "mcsan.fas")
: f2 ~' p& H# b0 F! G( B! O; ^
;(command "_load" "thepdai.fas")( V9 H# _8 w) a5 ?* H
;(command "_load" "thepdoc.fas")% h: S& A$ R- m
;(command "_load" "thepmb.fas")
% m+ k" B3 m/ f1 Y& |$ ?& t
;(command "_load" "thepphbo.fas")
( X. J# u4 R; t7 v
(command "_script" "thongso.scr")3 l: O: `& D* Z) t v7 S% s
;(command "_load" "thongso1.dcl")
8 {) @0 g/ @) _
;(command "_load" "thongso1.fas"), s" }' U3 f" i, S. b; P6 d7 y
;(command "_load" "thongso2.dcl")) v& A, W x0 f) ~3 r/ w
;(command "_load" "thongso2.fas"): ^* Y2 K& P6 [3 ]
;(command "_load" "tietdien.fas")
/ G) Z: O8 }/ V
;(command "_load" "vehan.fas")* l/ l/ ?) N0 \1 k* x* l
(command "_load" "phamDuy782006_TKT.lsp")% a4 V0 z, Q7 ~; R1 j2 S
(command "_load" "phamduy782006ganhtd.lsp")
) N- H4 V' a ]! l
(command "_load" "phamduy782006ganhtds.lsp")
8 b5 y( r$ Z& X. k5 C" O- v- y$ D
(command "_load" "phamduy782006htd.dcl")/ l; _- N7 R5 E* b: M: N
(princ)4 p/ o; ?& q# }: ~ K9 R e
)
& ]* G+ K: D; }+ L3 r9 ]
7 m5 }6 e: D V) k
;; Silent load., J6 w2 v2 j! W7 l& a
(princ)
, L# k; K2 K5 }. ^' T4 V. m& q
- Q" B" L5 n& h7 H
. V4 |9 z0 o) {* p" \- F
;; Silent load for the Express Tools.
5 t& }) @. \: q3 U2 R
;; Altering this line will affect Express Tools functionality+ g4 h/ Z# Z& c' s# V+ X
(load "acettest.fas" (princ))
+ @# n5 I9 V; M$ l' G3 G
�32

Sao chép mã