;|
(
(lambda ( p aL )
(mapcar '(lambda (x) (apply 'InsertAntetkaCell (cons (setq p (polar p (* -0.5 PI) 60.)) x))) aL)
); lambda
(getpoint)
'(("A1" "A2")("B1" "B2")("C1" "C2")("D1" "D2"))
)
|;
; (InsertAntetkaCell (getpoint) "Hello" "World")
(defun InsertAntetkaCell
( p tagt tagv
/ o r
)
; RetVal = object.InsertBlock(InsertionPoint, Name [, Xscale [, Yscale [, ZScale [, Rotation [, Password]]]]])
(or (tblsearch "BLOCK" "Antetka_Cell") ; The original block was exploded, then was used a test subfoo from (DescribeCurve) to get the list of enx-s, then the following gc's were removed: (-1 5 330) '(
( ; Required ; _$ (entget (tblobjname "STYLE" "dims") '("*")) ; renamed from "dims" to "AntCell"
(0 . "STYLE") (100 . "AcDbSymbolTableRecord") (100 . "AcDbTextStyleTableRecord") (2 . "AntCell") (70 . 0)
(40 . 0.0) (41 . 0.8) (50 . 0.0) (71 . 0) (42 . 100.0) (3 . "Arial_1.ttf") (4 . "") (-3 ("ACAD" (1000 . "Arial") (1071 . 34)))
)
)
'(((0 . "BLOCK") (100 . "AcDbEntity") (67 . 0) (8 . "0") (100 . "AcDbBlockReference") (66 . 1) (2 . "Antetka_Cell") (10 0.0 0.0 0.0) (70 . 2)))
'(
( (0 . "ATTDEF")(100 . "AcDbEntity")(67 . 0)(410 . "Model")(8 . "0")(62 . 251)(100 . "AcDbText")(10 10.0001 -39.3753 0.0)(40 . 18.75)
(1 . "DefaultT")(50 . 3.25917e-67)(41 . 0.8)(51 . 0.0)(7 . "AntCell")(71 . 0)(72 . 0)(11 10.0001 -20.6253 0.0)(210 0.0 0.0 1.0)
(100 . "AcDbAttributeDefinition")(280 . 0)(3 . "PromptT")(2 . "TAGT")(70 . 0)(73 . 0)(74 . 3)(280 . 1)
)
( (0 . "ATTDEF")(100 . "AcDbEntity")(67 . 0)(410 . "Model")(8 . "0")(62 . 251)(100 . "AcDbText")(10 331.473 -39.375 0.0)(40 . 18.75)
(1 . "DefaultV")(50 . 3.25917e-67)(41 . 0.8)(51 . 0.0)(7 . "AntCell")(71 . 0)(72 . 1)(11 360.0 -30.0 0.0)(210 0.0 0.0 1.0)
(100 . "AcDbAttributeDefinition")(280 . 0)(3 . "PromptV")(2 . "TAGV")(70 . 0)(73 . 0)(74 . 2)(280 . 1)
)
( (0 . "LWPOLYLINE")(100 . "AcDbEntity")(67 . 0)(410 . "Model")(8 . "0")(100 . "AcDbPolyline")(90 . 4)(70 . 1)(43 . 0.0)(38 . 0.0)(39 . 0.0)
(10 240.0 0.0)(40 . 0.0)(41 . 0.0)(42 . 0.0)(91 . 0) (10 480.0 0.0)(40 . 0.0)(41 . 0.0)(42 . 0.0)(91 . 0)
(10 480.0 -60.0)(40 . 0.0)(41 . 0.0)(42 . 0.0)(91 . 0) (10 240.0 -60.0)(40 . 0.0)(41 . 0.0)(42 . 0.0)(91 . 0)
(210 0.0 0.0 1.0)
)
( (0 . "LWPOLYLINE")(100 . "AcDbEntity")(67 . 0)(410 . "Model")(8 . "0")(100 . "AcDbPolyline")(90 . 4)(70 . 1)(43 . 0.0)(38 . 0.0)(39 . 0.0)
(10 0.0 0.0)(40 . 0.0)(41 . 0.0)(42 . 0.0)(91 . 0) (10 240.0 0.0)(40 . 0.0)(41 . 0.0)(42 . 0.0)(91 . 0)
(10 240.0 -60.0)(40 . 0.0)(41 . 0.0)(42 . 0.0)(91 . 0) (10 0.0 -60.0)(40 . 0.0)(41 . 0.0)(42 . 0.0)(91 . 0)
(210 0.0 0.0 1.0)
)
( (0 . "LWPOLYLINE")(100 . "AcDbEntity")(67 . 0)(410 . "Model")(8 . "0")(100 . "AcDbPolyline")(90 . 4)(70 . 1)(43 . 0.0)(38 . 0.0)(39 . 0.0)
(10 480.0 0.0)(40 . 0.0)(41 . 0.0)(42 . 0.0)(91 . 0) (10 750.0 0.0)(40 . 0.0)(41 . 0.0)(42 . 0.0)(91 . 0)
(10 750.0 -60.0)(40 . 0.0)(41 . 0.0)(42 . 0.0)(91 . 0) (10 480.0 -60.0)(40 . 0.0)(41 . 0.0)(42 . 0.0)(91 . 0)
(210 0.0 0.0 1.0)
)
); list
'(((0 . "ENDBLK") (100 . "AcDbBlockEnd") (8 . "0")))
); append
); mapcar
); or
); and
r
); defun InsertAntetkaCell