Topic: entmake SECTIONOBJECT - DXF62 does not work

[Peter2]

This code (nearly) works for me:

Code: [Select]

(entmake
            (list
                '(0 . "SECTIONOBJECT")
                '(100 . "AcDbEntity")
                '(100 . "AcDbSection")
                '(67 . 0)   
                '(410 . "Model")
                '(8 . "Schnitt")    ; Layer
                '(90 . 1)    ; 1=Ebene
                '(91 . 5)    ; 1=Liveschnitt; 5=verkehrter Blick
                '(1 . "v1")    ; Name
;                '(10 0.0 -1.0 0.0)   ; vertikale Richtung für hor. Schnitte
               '(10 0.0 0.0 -1.0)   ; vertikale Richtung für vertikale Schnitte
                '(40 . 10)      ; Höhe oben = rechts von der Basislinie
                '(41 . 5)      ; Höhe unten = links von der Basislinie
                '(70 . 5)           ; Transparenz
                '(62 . 1)        ; Farbe rot
                '(92 . 2)                ; Anzahl Scheitelpunkte
                                         ; Kontrollpunkte für Hinterlinien (wiederholt für Anzahl der Kontrollpunkte für Hinterlinien);
                '(11 -5 3 2)  ; Z= SchnitthöheStartpunkt der Basislinie
                '(11 5 3 2)   ; Zielpunkt der Basislinie
;                 '(93 . 0)
            )
        )The only thing that does nearly nothing - no result, no error - is DXF 62 with value 1 (red).
Only the "baseline" of the sectionobject is created in red, the "area" of the object is always created in standard-color grey (colour 9).

Any ideas where the problem is?

[CAB]

Try this:

Code: [Select]

(entmake
'(
(0 . "SECTIONOBJECT")
(100 . "AcDbEntity")
(67 . 0)
(410 . "Model")
(8 . "zDtl xLight 3")
(62 . 1)
(100 . "AcDbSection")
(90 . 1)
(91 . 1)
(1 . "v1")
(10 0.0 0.0 -1.0)
(40 . 10.0)
(41 . 5.0)
(70 . 5)
(62 . 1)
(92 . 2)
(11 -5.0 3.0 2.0)
(11 5.0 3.0 2.0)
(93 . 0)
))

[ribarm]

But section object is designed as line which is movable... So when you change color to it, that entity is changed... You can't affect default fill color of sections - they are always grey...

[Peter2]

@CAB
thanks, I will try tomorrow.

...You can't affect default fill color of sections - they are always grey...

But the colour can be changed manually after creation. Maybe that's the only way?

[Peter2]

Try this:...

As ribarm already noted - it does not work.

[Peter2]

Hmm - Bricscad accept the following code and creates a green "base-line" and a red "area"; AutoCAD ignores the color of the area:

Code - Auto/Visual Lisp: [Select]

1. (entmake
2.             (list
3.                 '(0 . "SECTIONOBJECT")
4.                 '(100 . "AcDbEntity")
5.                 '(67 . 0)  
6.                 '(410 . "Model")
7.                 '(8 . "0")    ; Layer
8.                 '(62 . 3)       ; Farbe der Linie
9.                  '(6 . "DASHED")
10.                 '(370 . 100) ; Linienstärke
11.  
12.                 ; dieser 100er muss er nach den Eigenschaften der Linie kommen
13.                 '(100 . "AcDbSection")
14.                 '(90 . 1)    ; 1=Ebene
15.                 (cons 91 0)    ; 1=Liveschnitt; 5=verkehrter Blick
16.                 ;(cons 91 code_91)    ; 1=Liveschnitt; 5=verkehrter Blick
17.                 (cons 1 name)    ; Name
18.                  (cons 10 code_10)
19.                 (cons 40  code_40)      ; Höhe oben = rechts von der Basislinie
20.                 (cons 41  code_41)      ; Höhe unten = links von der Basislinie
21.                 '(70 . 5)           ; Transparenz
22.                 '(92 . 2)                ; Anzahl Scheitelpunkte
23.                 (cons 11 code_11a)  ; Z= SchnitthöheStartpunkt der Basislinie
24.                 (cons 11 code_11e)   ; Zielpunkt der Basislinie
25.                 '(62 . 1)        ; Farbe rot
26.             )
27.     )

[Peter2]

Here is a current blog from Autodesk Dev Blog, which confirms that is does not work in pure Lisp, but works with ActiveX

http://adndevblog.typepad.com/autocad/2018/02/create-section-object-using-vlisp.html