遮罩的组码什么时候开始变的呀？

/db_自贡黄明儒_

低版本的组码(000 . "WIPEOUT")(071 . 2)

高版本变成了(0 . "WIPEOUT")(71 . 2)

桌子瞎折腾，什么时候开始变的呀？

marting

什么时候组码能是 000 ？ 也不是字符串，
你试试 (cons 000 "abc")

命令: (cons 000 "abc")
(0 . "abc")

xvjiex

组码(000 . "WIPEOUT")(071 . 2)没见过

/db_自贡黄明儒_

marting 发表于 2021-1-9 17:12
什么时候组码能是 000 ？ 也不是字符串，
你试试 (cons 000 "abc")

你试一下组码产生遮罩就知道了

marting

/db_自贡黄明儒_ 发表于 2021-1-9 18:03
你试一下组码产生遮罩就知道了

那把遮罩的 entget 数据，完整的贴下看看

/db_自贡黄明儒_

marting 发表于 2021-1-9 19:15
那把遮罩的 entget 数据，完整的贴下看看

;; Circular Wipeout  -  Lee Mac
;; Creates a circular wipeout with the given center (UCS) & radius

(defun LM:CircularWipeout ( cen rad / ang inc lst )
    (setq acc 50
          inc (/ pi acc 0.5)
          ang 0.0
    )
    (repeat acc
        (setq lst (cons (list 14 (* 0.5 (cos ang)) (* 0.5 (sin ang))) lst)
              ang (+ ang inc)
        )
    )
    (entmakex
        (append
            (list
               '(000 . "WIPEOUT")
               '(100 . "AcDbEntity")
               '(100 . "AcDbWipeout")
                (cons 10 (trans (mapcar '- cen (list rad rad)) 1 0))
                (cons 11 (trans (list (+ rad rad) 0.0) 1 0 t))
                (cons 12 (trans (list 0.0 (+ rad rad)) 1 0 t))
               '(280 . 1)
               '(071 . 2)
            )
            (cons (last lst) lst)
        )
    )
)

marting

/db_自贡黄明儒_ 发表于 2021-1-9 22:28
;; Circular Wipeout  -  Lee Mac
;; Creates a circular wipeout with the given center (UCS) & radiu ...

用你的代码建立的WIPEOUT，下面是数据

命令: (entget (entlast))
((-1 . <图元名: 7ff42c105d30>) (0 . "WIPEOUT") (330 . <图元名: 7ff42c1039f0>) (5 .
"24B") (100 . "AcDbEntity") (67 . 0) (410 . "Model") (8 . "0") (100 .
"AcDbWipeout") (90 . 0) (10 2199.21 591.266 0.0) (11 1000.0 0.0 0.0) (12 0.0
1000.0 0.0) (13 1.0 1.0 0.0) (340 . <图元名: 0>) (70 . 7) (280 . 1) (281 . 50)
(282 . 50) (283 . 0) (290 . 0) (360 . <图元名: 0>) (71 . 2) (91 . 51) (14 0.5 0.0
0.0) (14 0.496057 -0.0626666 0.0) (14 0.484292 -0.124345 0.0) (14 0.464888
-0.184062 0.0) (14 0.438153 -0.240877 0.0) (14 0.404508 -0.293893 0.0) (14
0.364484 -0.342274 0.0) (14 0.318712 -0.385257 0.0) (14 0.267913 -0.422164 0.0)
(14 0.21289 -0.452414 0.0) (14 0.154508 -0.475528 0.0) (14 0.0936907 -0.491144
0.0) (14 0.0313953 -0.499013 0.0) (14 -0.0313953 -0.499013 0.0) (14 -0.0936907
-0.491144 0.0) (14 -0.154508 -0.475528 0.0) (14 -0.21289 -0.452414 0.0) (14
-0.267913 -0.422164 0.0) (14 -0.318712 -0.385257 0.0) (14 -0.364484 -0.342274
0.0) (14 -0.404508 -0.293893 0.0) (14 -0.438153 -0.240877 0.0) (14 -0.464888
-0.184062 0.0) (14 -0.484292 -0.124345 0.0) (14 -0.496057 -0.0626666 0.0) (14
-0.5 -6.04901e-016 0.0) (14 -0.496057 0.0626666 0.0) (14 -0.484292 0.124345
0.0) (14 -0.464888 0.184062 0.0) (14 -0.438153 0.240877 0.0) (14 -0.404508
0.293893 0.0) (14 -0.364484 0.342274 0.0) (14 -0.318712 0.385257 0.0) (14
-0.267913 0.422164 0.0) (14 -0.21289 0.452414 0.0) (14 -0.154508 0.475528 0.0)
(14 -0.0936907 0.491144 0.0) (14 -0.0313953 0.499013 0.0) (14 0.0313953
0.499013 0.0) (14 0.0936907 0.491144 0.0) (14 0.154508 0.475528 0.0) (14
0.21289 0.452414 0.0) (14 0.267913 0.422164 0.0) (14 0.318712 0.385257 0.0) (14
0.364484 0.342274 0.0) (14 0.404508 0.293893 0.0) (14 0.438153 0.240877 0.0)
(14 0.464888 0.184062 0.0) (14 0.484292 0.124345 0.0) (14 0.496057 0.0626666
0.0) (14 0.5 0.0 0.0))
你代码里面写071, 生成的时候也是71啊

你改成这样，一样的

1. ;; Circular Wipeout  -  Lee Mac
   
2. ;; Creates a circular wipeout with the given center (UCS) & radius
   
3. 
   
4. (defun LM:CircularWipeout ( cen rad / ang inc lst )
   
5.     (setq acc 50
   
6.           inc (/ pi acc 0.5)
   
7.           ang 0.0
   
8.     )
   
9.     (repeat acc
   
10.         (setq lst (cons (list 14 (* 0.5 (cos ang)) (* 0.5 (sin ang))) lst)
    
11.               ang (+ ang inc)
    
12.         )
    
13.     )
    
14.     (entmakex
    
15.         (append
    
16.             (list
    
17.                '(000 . "WIPEOUT")
    
18.                '(100 . "AcDbEntity")
    
19.                '(100 . "AcDbWipeout")
    
20.                 (cons 10 (trans (mapcar '- cen (list rad rad)) 1 0))
    
21.                 (cons 11 (trans (list (+ rad rad) 0.0) 1 0 t))
    
22.                 (cons 12 (trans (list 0.0 (+ rad rad)) 1 0 t))
    
23.                '(280 . 1)
    
24.                '(71 . 2)
    
25.             )
    
26.             (cons (last lst) lst)
    
27.         )
    
28.     )
    
29. )
    

;; Circular Wipeout  -  Lee Mac<br /> ;; Creates a circular wipeout with the given center (UCS) & radius<br /> <br /> (defun LM:CircularWipeout ( cen rad / ang inc lst )<br />     (setq acc 50<br />           inc (/ pi acc 0.5)<br />           ang 0.0<br />     )<br />     (repeat acc<br />         (setq lst (cons (list 14 (* 0.5 (cos ang)) (* 0.5 (sin ang))) lst)<br />               ang (+ ang inc)<br />         )<br />     )<br />     (entmakex<br />         (append<br />             (list<br />                '(000 . "WIPEOUT")<br />                '(100 . "AcDbEntity")<br />                '(100 . "AcDbWipeout")<br />                 (cons 10 (trans (mapcar '- cen (list rad rad)) 1 0))<br />                 (cons 11 (trans (list (+ rad rad) 0.0) 1 0 t))<br />                 (cons 12 (trans (list 0.0 (+ rad rad)) 1 0 t))<br />                '(280 . 1)<br />                '(71 . 2)<br />             )<br />             (cons (last lst) lst)<br />         )<br />     )<br /> )<br />

/db_自贡黄明儒_

marting 发表于 2021-1-10 20:33
用你的代码建立的WIPEOUT，下面是数据

命令: (entget (entlast))

其实你没有回答我的问题，不知道你们是如何让遮罩在不同版本下实现的。
13版增加了WIPEOUTFRAME变量，估计是从此开始的。