乐筑天下

搜索
欢迎各位开发者和用户入驻本平台 ☆ ☆ ☆ 尊重版权，从我做起，拒绝盗版，拒绝倒卖 ☆ ☆ ☆ 签到、发布资源、邀请好友注册，可以获得银币 ☆ ☆ ☆ 请注意保管好自己的密码，避免账户资金被盗
查看： 19|回复： 19

[编程交流] 使用Entmake插入对象

[复制链接]
The Buzzard

32

主题

1166

帖子

1146

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
159
发表于 2022-7-6 09:40:50 | 显示全部楼层 |阅读模式
大家好，
 
Lee Mac给了我一个关于块插入代码的建议，我用entmake而不是insert命令插入块。
我尽了最大努力，几乎做到了。
 
附加的程序是一个对象的简单代码，该对象具有一个属性，在选择插入点后将暂停旋转角度。
 
由于这只是一个演示，因此默认值是在中编程的。
除了一个例外，该程序的插入功能良好。
该属性不是块的一部分。如果在运行此程序后执行插入操作，则块将与属性一起显示。
 
不确定出了什么问题，但希望能给点建议。
 
谢谢
秃鹰
 
 
  1. (defun C:LD ()                                                          ;Define Function
  2.  (command "_.STYLE" "Romans" "romans.shx" "0.0" "1.0" "0" "N" "N" "N") ;Style command
  3.  (setq ASTY  "Romans")                                                 ;Attribute Style
  4.  (setq AWID    1.0)                                                    ;Attribute Width Factor
  5.  (setq ASIZ    4.5)                                                    ;Attribute Height
  6.  (setq ALNAM "A-DOOR-IDEN")                                            ;Attribut Layer Name
  7.  (setq BNAM  "LDR")                                                    ;Block Name
  8.  (setq WID    36.0)                                                    ;Door Width
  9.  (setq THK     2.0)                                                    ;Door Thickness
  10.  (setq BRPT (list 0.0 0.0 0.0))                                        ;Base Reference Point
  11.  (setq EXDR (list 0.0 0.0 1.0))                                        ;Extrusion Direction
  12.  (setq PT01 (polar BRPT (DTR  90.0) WID))                              ;Calculate Door Point 01
  13.  (setq PT02 (polar PT01 (DTR   0.0) THK))                              ;Calculate Door Point 02
  14.  (setq PT03 (polar PT02 (DTR 270.0) WID))                              ;Calculate Door Point 03
  15.  (setq PT04 (polar PT03 (DTR 180.0) THK))                              ;Calculate Door Point 04
  16.  (setq SANG   0.0)                                                     ;Arc Start Angle
  17.  (setq EANG   1.5708)                                                  ;Arc Ending Angle
  18.  (setq AFAP   (polar BRPT (DTR 270.0)      11.25))                     ;Attribute First Alignment Point
  19.  (setq AFAP01 (polar AFAP (DTR   0.0)      15.0))
  20.  (setq ASAP   (polar BRPT (DTR 270.0)       6.75))                     ;Attribute Second Alignment Point
  21.  (setq ASAP01 (polar ASAP (DTR   0.0)(/ WID 2.0)))
  22.  (setq INPT (getpoint "\nGet insertion point:"))                       ;Insertion Point
  23.  (entmake                                                              ;Entmake
  24.    (list                                                               ;Start List
  25.      (cons 0   "block")                                                ;Object Type
  26.      (cons 2    BNAM)                                                  ;Object Name
  27.      (cons 10   BRPT)                                                  ;Object Base Reference Point
  28.      (cons 70   2)))                                                   ;Attribute Flag ~ Has None Constant Attributes
  29.  (entmake                                                              ;Entmake
  30.    (list                                                               ;Start List
  31.      (cons 0   "LWPOLYLINE")                                           ;Object Type
  32.      (cons 100 "AcDbEntity")                                           ;Subclass Marker
  33.      (cons 67   0)                                                     ;Object Space ~ Model
  34.      (cons 410 "Model")                                                ;Layout Tab Name ~ Model
  35.      (cons 8   "0")                                                    ;Layer Name
  36.      (cons 100 "AcDbPolyline")                                         ;Subclass Marker
  37.      (cons 90   4)                                                     ;Number of Vertices
  38.      (cons 70   1)                                                     ;Polyline Flag ~ Closed
  39.      (cons 43   0.0)                                                   ;Constant width
  40.      (cons 38   0.0)                                                   ;Elevation
  41.      (cons 39   0.0)                                                   ;Thickness
  42.      (cons 10   PT01)                                                  ;Vertex Coordinates ~ (Point 01)
  43.      (cons 40   0.0)                                                   ;Starting width
  44.      (cons 41   0.0)                                                   ;Ending width
  45.      (cons 42   0.0)                                                   ;Bulge
  46.      (cons 10   PT02)                                                  ;Vertex Coordinates ~ (Point 02)
  47.      (cons 40   0.0)                                                   ;Starting width
  48.      (cons 41   0.0)                                                   ;Ending width
  49.      (cons 42   0.0)                                                   ;Bulge
  50.      (cons 10   PT03)                                                  ;Vertex Coordinates ~ (Point 03)
  51.      (cons 40   0.0)                                                   ;Starting width
  52.      (cons 41   0.0)                                                   ;Ending width
  53.      (cons 42   0.0)                                                   ;Bulge
  54.      (cons 10   PT04)                                                  ;Vertex Coordinates ~ (Point 04)
  55.      (cons 40   0.0)                                                   ;Starting width
  56.      (cons 41   0.0)                                                   ;Ending width
  57.      (cons 42   0.0)                                                   ;Bulge
  58.      (cons 210  EXDR)))                                                ;Extrusion Direction
  59.  (entmake                                                              ;Entmake
  60.    (list                                                               ;Start List
  61.      (cons 0   "arc")                                                  ;Object Type
  62.      (cons 100 "AcDbEntity")                                           ;Subclass Marker
  63.      (cons 67   0)                                                     ;Object Space ~ Model
  64.      (cons 410 "Model")                                                ;Layout Tab Name ~ Model
  65.      (cons 8   "0")                                                    ;Layer Name
  66.      (cons 100 "AcDbCircle")                                           ;Subclass Marker
  67.      (cons 10   BRPT)                                                  ;Center Point ~ (Base Reference Point)
  68.      (cons 39   0.0)                                                   ;Thickness
  69.      (cons 40   WID)                                                   ;Arc Radius ~ (Width)
  70.      (cons 210  EXDR)                                                  ;Extrusion Direction
  71.      (cons 100 "AcDbArc")                                              ;Subclass Marker
  72.      (cons 50   SANG)                                                  ;Arc Start Angle
  73.      (cons 51   EANG)))                                                ;Arc Ending Angle
  74.  (entmake                                                              ;Entmake
  75.    (list                                                               ;Start List
  76.      (cons 0   "attdef")                                               ;Object Type
  77.      (cons 67   0)                                                     ;Object Space ~ Model
  78.      (cons 410 "Model")                                                ;Layout Tab Name ~ Model
  79.      (cons 8    ALNAM)                                                 ;Attribute Layer Name
  80.      (cons 10   AFAP01)                                                ;Attribute First Alignment Point
  81.      (cons 40   ASIZ)                                                  ;Attribute Size ~ (4.5)
  82.      (cons 1   "D01")                                                  ;Attribute Value
  83.      (cons 50   0.0)                                                   ;Text Rotation
  84.      (cons 41   AWID)                                                  ;Font Width Factor ~ (1.0)
  85.      (cons 51   0.0)                                                   ;Oblique Angle
  86.      (cons 7    ASTY)                                                  ;Attribute Style ~ (Romans)
  87.      (cons 71   0)                                                     ;Text Generation Flag ~ (Default)
  88.      (cons 72   1)                                                     ;Horiz. Text Justification ~ (Center)
  89.      (cons 11   ASAP01)                                                ;Attribute Second Alignment Point
  90.      (cons 210  EXDR)                                                  ;Extrusion Direction
  91.      (cons 3   "Door ID:")                                             ;Attribute Prompt
  92.      (cons 2   "ID")                                                   ;Attribute Tag
  93.      (cons 70                                                        ;Attribute Visibility Flag ~ (Attribute Is Preset (No Prompt During Insertion) 
  94.      (cons 73   0)                                                     ;Field Length
  95.      (cons 74   2)))                                                   ;Vertical Text Justification ~ (Middle)
  96.  (entmake                                                              ;Entmake
  97.    (list                                                               ;Start List
  98.      (cons 0   "endblk")))                                             ;Object Type
  99.  (entmake                                                              ;Entmake
  100.    (list                                                               ;Start List
  101.      (cons 0   "INSERT")                                               ;Object Type
  102.      (cons 2    BNAM)                                                  ;Object Name
  103.      (cons 10   INPT)))                                                ;Insertion Point
  104.  (prompt "\nRotation Angle: ")                                         ;Prompt For Rotation
  105.  (command "_.rotate" "last" "" INPT pause)                             ;Rotate Command, Last Object, Rotate On Insertion Point, Pause For Input
  106. )                                                                       ;End Define Function
  107. (defun DTR (a)                                                          ;Define Function
  108. (* pi (/ a 180.0))                                                     ;Calculate Degrees To Radians
  109. )                                                                       ;End Define Function
回复

使用道具 举报

Lee Mac

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 09:45:13 | 显示全部楼层
这似乎对我有用
 
PS，如果你想走这条路，我添加了另一种方式来提示轮换
 
  2. (defun C:LD ()                                                          ;Define Function
  3.  (command "_.STYLE" "Romans" "romans.shx" "0.0" "1.0" "0" "N" "N" "N") ;Style command
  4.  (setq ASTY  "Romans")                                                 ;Attribute Style
  5.  (setq AWID    1.0)                                                    ;Attribute Width Factor
  6.  (setq ASIZ    4.5)                                                    ;Attribute Height
  7.  (setq ALNAM "A-DOOR-IDEN")                                            ;Attribut Layer Name
  8.  (setq BNAM  "LDR")                                                    ;Block Name
  9.  (setq WID    36.0)                                                    ;Door Width
  10.  (setq THK     2.0)                                                    ;Door Thickness
  11.  (setq BRPT (list 0.0 0.0 0.0))                                        ;Base Reference Point
  12.  (setq EXDR (list 0.0 0.0 1.0))                                        ;Extrusion Direction
  13.  (setq PT01 (polar BRPT (DTR  90.0) WID))                              ;Calculate Door Point 01
  14.  (setq PT02 (polar PT01 (DTR   0.0) THK))                              ;Calculate Door Point 02
  15.  (setq PT03 (polar PT02 (DTR 270.0) WID))                              ;Calculate Door Point 03
  16.  (setq PT04 (polar PT03 (DTR 180.0) THK))                              ;Calculate Door Point 04
  17.  (setq SANG   0.0)                                                     ;Arc Start Angle
  18.  (setq EANG   1.5708)                                                  ;Arc Ending Angle
  19.  (setq AFAP   (polar BRPT (DTR 270.0)      11.25))                     ;Attribute First Alignment Point
  20.  (setq AFAP01 (polar AFAP (DTR   0.0)      15.0))
  21.  (setq ASAP   (polar BRPT (DTR 270.0)       6.75))                     ;Attribute Second Alignment Point
  22.  (setq ASAP01 (polar ASAP (DTR   0.0)(/ WID 2.0)))
  23.  (setq INPT (getpoint "\nGet insertion point:"))                       ;Insertion Point
  24.  (entmake                                                              ;Entmake
  25.    (list                                                               ;Start List
  26.      (cons 0   "block")                                                ;Object Type
  27.      (cons 2    BNAM)                                                  ;Object Name
  28.      (cons 10   BRPT)                                                  ;Object Base Reference Point
  29.      (cons 70   2)))                                                   ;Attribute Flag ~ Has None Constant Attributes
  30.  (entmake                                                              ;Entmake
  31.    (list                                                               ;Start List
  32.      (cons 0   "LWPOLYLINE")                                           ;Object Type
  33.      (cons 100 "AcDbEntity")                                           ;Subclass Marker
  34.      (cons 67   0)                                                     ;Object Space ~ Model
  35.      (cons 410 "Model")                                                ;Layout Tab Name ~ Model
  36.      (cons 8   "0")                                                    ;Layer Name
  37.      (cons 100 "AcDbPolyline")                                         ;Subclass Marker
  38.      (cons 90   4)                                                     ;Number of Vertices
  39.      (cons 70   1)                                                     ;Polyline Flag ~ Closed
  40.      (cons 43   0.0)                                                   ;Constant width
  41.      (cons 38   0.0)                                                   ;Elevation
  42.      (cons 39   0.0)                                                   ;Thickness
  43.      (cons 10   PT01)                                                  ;Vertex Coordinates ~ (Point 01)
  44.      (cons 40   0.0)                                                   ;Starting width
  45.      (cons 41   0.0)                                                   ;Ending width
  46.      (cons 42   0.0)                                                   ;Bulge
  47.      (cons 10   PT02)                                                  ;Vertex Coordinates ~ (Point 02)
  48.      (cons 40   0.0)                                                   ;Starting width
  49.      (cons 41   0.0)                                                   ;Ending width
  50.      (cons 42   0.0)                                                   ;Bulge
  51.      (cons 10   PT03)                                                  ;Vertex Coordinates ~ (Point 03)
  52.      (cons 40   0.0)                                                   ;Starting width
  53.      (cons 41   0.0)                                                   ;Ending width
  54.      (cons 42   0.0)                                                   ;Bulge
  55.      (cons 10   PT04)                                                  ;Vertex Coordinates ~ (Point 04)
  56.      (cons 40   0.0)                                                   ;Starting width
  57.      (cons 41   0.0)                                                   ;Ending width
  58.      (cons 42   0.0)                                                   ;Bulge
  59.      (cons 210  EXDR)))                                                ;Extrusion Direction
  60.  (entmake                                                              ;Entmake
  61.    (list                                                               ;Start List
  62.      (cons 0   "arc")                                                  ;Object Type
  63.      (cons 100 "AcDbEntity")                                           ;Subclass Marker
  64.      (cons 67   0)                                                     ;Object Space ~ Model
  65.      (cons 410 "Model")                                                ;Layout Tab Name ~ Model
  66.      (cons 8   "0")                                                    ;Layer Name
  67.      (cons 100 "AcDbCircle")                                           ;Subclass Marker
  68.      (cons 10   BRPT)                                                  ;Center Point ~ (Base Reference Point)
  69.      (cons 39   0.0)                                                   ;Thickness
  70.      (cons 40   WID)                                                   ;Arc Radius ~ (Width)
  71.      (cons 210  EXDR)                                                  ;Extrusion Direction
  72.      (cons 100 "AcDbArc")                                              ;Subclass Marker
  73.      (cons 50   SANG)                                                  ;Arc Start Angle
  74.      (cons 51   EANG)))                                                ;Arc Ending Angle
  75.  (entmake                                                              ;Entmake
  76.    (list                                                               ;Start List
  77.      (cons 0   "attdef")                                               ;Object Type
  78.      (cons 67   0)                                                     ;Object Space ~ Model
  79.      (cons 410 "Model")                                                ;Layout Tab Name ~ Model
  80.      (cons 8    ALNAM)                                                 ;Attribute Layer Name
  81.      (cons 10   AFAP01)                                                ;Attribute First Alignment Point
  82.      (cons 40   ASIZ)                                                  ;Attribute Size ~ (4.5)
  83.      (cons 1   "D01")                                                  ;Attribute Value
  84.      (cons 50   0.0)                                                   ;Text Rotation
  85.      (cons 41   AWID)                                                  ;Font Width Factor ~ (1.0)
  86.      (cons 51   0.0)                                                   ;Oblique Angle
  87.      (cons 7    ASTY)                                                  ;Attribute Style ~ (Romans)
  88.      (cons 71   0)                                                     ;Text Generation Flag ~ (Default)
  89.      (cons 72   1)                                                     ;Horiz. Text Justification ~ (Center)
  90.      (cons 11   ASAP01)                                                ;Attribute Second Alignment Point
  91.      (cons 210  EXDR)                                                  ;Extrusion Direction
  92.      (cons 3   "Door ID:")                                             ;Attribute Prompt
  93.      (cons 2   "ID")                                                   ;Attribute Tag
  94.      (cons 70                                                        ;Attribute Visibility Flag ~ (Attribute Is Preset (No Prompt During Insertion) 
  95.      (cons 73   0)                                                     ;Field Length
  96.      (cons 74   2)))                                                   ;Vertical Text Justification ~ (Middle)
  97.  (entmake                                                              ;Entmake
  98.    (list                                                               ;Start List
  99.      (cons 0   "endblk")))                                             ;Object Type
  100.  (entmake                                                              ;Entmake
  101.    (list                                                               ;Start List
  102.      (cons 0   "INSERT")                                               ;Object Type
  103.      (cons 2    BNAM)                                                  ;Object Name
  104.      (cons 10   INPT)                                                  ;Insertion Point
  105. [color=Red][b]      ;(cons 50  (getangle INPT "\nSelect Rotation: "))                 ;Rotation Angle[/b][/color]
  106.      ))
  107.  (prompt "\nRotation Angle: ")                                         ;Prompt For Rotation
  108.  (command "_.rotate" "last" "" INPT pause)                             ;Rotate Command, Last Object, Rotate On Insertion Point, Pause For Input
  109. )                                                                       ;End Define Function
  110. (defun DTR (a)                                                          ;Define Function
  111. (* pi (/ a 180.0))                                                     ;Calculate Degrees To Radians
  112. )                                                                       ;End Define Function
回复

使用道具 举报

The Buzzard

32

主题

1166

帖子

1146

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
159
发表于 2022-7-6 09:50:01 | 显示全部楼层
我不明白，你是说属性出现了？
回复

使用道具 举报

Lee Mac

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 09:53:19 | 显示全部楼层
 
对不起，没有检查属性
 
*下次不会这么快*
回复

使用道具 举报

Lee Mac

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 09:55:31 | 显示全部楼层
好的，这将用ATTRIB插入，但你会看到我遇到的问题。。。
 
  2. (defun C:LD ()                                                          ;Define Function
  3.  (command "_.STYLE" "Romans" "romans.shx" "0.0" "1.0" "0" "N" "N" "N") ;Style command
  4.  (setq ASTY  "Romans")                                                 ;Attribute Style
  5.  (setq AWID    1.0)                                                    ;Attribute Width Factor
  6.  (setq ASIZ    4.5)                                                    ;Attribute Height
  7.  (setq ALNAM "A-DOOR-IDEN")                                            ;Attribut Layer Name
  8.  (setq BNAM  "LDR")                                                    ;Block Name
  9.  (setq WID    36.0)                                                    ;Door Width
  10.  (setq THK     2.0)                                                    ;Door Thickness
  11.  (setq BRPT (list 0.0 0.0 0.0))                                        ;Base Reference Point
  12.  (setq EXDR (list 0.0 0.0 1.0))                                        ;Extrusion Direction
  13.  (setq PT01 (polar BRPT (DTR  90.0) WID))                              ;Calculate Door Point 01
  14.  (setq PT02 (polar PT01 (DTR   0.0) THK))                              ;Calculate Door Point 02
  15.  (setq PT03 (polar PT02 (DTR 270.0) WID))                              ;Calculate Door Point 03
  16.  (setq PT04 (polar PT03 (DTR 180.0) THK))                              ;Calculate Door Point 04
  17.  (setq SANG   0.0)                                                     ;Arc Start Angle
  18.  (setq EANG   1.5708)                                                  ;Arc Ending Angle
  19.  (setq AFAP   (polar BRPT (DTR 270.0)      11.25))                     ;Attribute First Alignment Point
  20.  (setq AFAP01 (polar AFAP (DTR   0.0)      15.0))
  21.  (setq ASAP   (polar BRPT (DTR 270.0)       6.75))                     ;Attribute Second Alignment Point
  22.  (setq ASAP01 (polar ASAP (DTR   0.0)(/ WID 2.0)))
  23.  (setq INPT (getpoint "\nGet insertion point:"))                       ;Insertion Point
  24.  (entmake                                                              ;Entmake
  25.    (list                                                               ;Start List
  26.      (cons 0   "block")                                                ;Object Type
  27.      (cons 2    BNAM)                                                  ;Object Name
  28.      (cons 10   BRPT)                                                  ;Object Base Reference Point
  29.      (cons 70   2)))                                                   ;Attribute Flag ~ Has None Constant Attributes
  30.  (entmake                                                              ;Entmake
  31.    (list                                                               ;Start List
  32.      (cons 0   "LWPOLYLINE")                                           ;Object Type
  33.      (cons 100 "AcDbEntity")                                           ;Subclass Marker
  34.      (cons 67   0)                                                     ;Object Space ~ Model
  35.      (cons 410 "Model")                                                ;Layout Tab Name ~ Model
  36.      (cons 8   "0")                                                    ;Layer Name
  37.      (cons 100 "AcDbPolyline")                                         ;Subclass Marker
  38.      (cons 90   4)                                                     ;Number of Vertices
  39.      (cons 70   1)                                                     ;Polyline Flag ~ Closed
  40.      (cons 43   0.0)                                                   ;Constant width
  41.      (cons 38   0.0)                                                   ;Elevation
  42.      (cons 39   0.0)                                                   ;Thickness
  43.      (cons 10   PT01)                                                  ;Vertex Coordinates ~ (Point 01)
  44.      (cons 40   0.0)                                                   ;Starting width
  45.      (cons 41   0.0)                                                   ;Ending width
  46.      (cons 42   0.0)                                                   ;Bulge
  47.      (cons 10   PT02)                                                  ;Vertex Coordinates ~ (Point 02)
  48.      (cons 40   0.0)                                                   ;Starting width
  49.      (cons 41   0.0)                                                   ;Ending width
  50.      (cons 42   0.0)                                                   ;Bulge
  51.      (cons 10   PT03)                                                  ;Vertex Coordinates ~ (Point 03)
  52.      (cons 40   0.0)                                                   ;Starting width
  53.      (cons 41   0.0)                                                   ;Ending width
  54.      (cons 42   0.0)                                                   ;Bulge
  55.      (cons 10   PT04)                                                  ;Vertex Coordinates ~ (Point 04)
  56.      (cons 40   0.0)                                                   ;Starting width
  57.      (cons 41   0.0)                                                   ;Ending width
  58.      (cons 42   0.0)                                                   ;Bulge
  59.      (cons 210  EXDR)))                                                ;Extrusion Direction
  60.  (entmake                                                              ;Entmake
  61.    (list                                                               ;Start List
  62.      (cons 0   "arc")                                                  ;Object Type
  63.      (cons 100 "AcDbEntity")                                           ;Subclass Marker
  64.      (cons 67   0)                                                     ;Object Space ~ Model
  65.      (cons 410 "Model")                                                ;Layout Tab Name ~ Model
  66.      (cons 8   "0")                                                    ;Layer Name
  67.      (cons 100 "AcDbCircle")                                           ;Subclass Marker
  68.      (cons 10   BRPT)                                                  ;Center Point ~ (Base Reference Point)
  69.      (cons 39   0.0)                                                   ;Thickness
  70.      (cons 40   WID)                                                   ;Arc Radius ~ (Width)
  71.      (cons 210  EXDR)                                                  ;Extrusion Direction
  72.      (cons 100 "AcDbArc")                                              ;Subclass Marker
  73.      (cons 50   SANG)                                                  ;Arc Start Angle
  74.      (cons 51   EANG)))                                                ;Arc Ending Angle
  75.  (entmake                                                              ;Entmake
  76.    (list                                                               ;Start List
  77.      (cons 0   "attdef")                                               ;Object Type
  78.      (cons 67   0)                                                     ;Object Space ~ Model
  79.      (cons 410 "Model")                                                ;Layout Tab Name ~ Model
  80.      (cons 8    ALNAM)                                                 ;Attribute Layer Name
  81.      (cons 10   AFAP01)                                                ;Attribute First Alignment Point
  82.      (cons 40   ASIZ)                                                  ;Attribute Size ~ (4.5)
  83.      (cons 1   "D01")                                                  ;Attribute Value
  84.      (cons 50   0.0)                                                   ;Text Rotation
  85.      (cons 41   AWID)                                                  ;Font Width Factor ~ (1.0)
  86.      (cons 51   0.0)                                                   ;Oblique Angle
  87.      (cons 7    ASTY)                                                  ;Attribute Style ~ (Romans)
  88.      (cons 71   0)                                                     ;Text Generation Flag ~ (Default)
  89.      (cons 72   1)                                                     ;Horiz. Text Justification ~ (Center)
  90.      (cons 11   ASAP01)                                                ;Attribute Second Alignment Point
  91.      (cons 210  EXDR)                                                  ;Extrusion Direction
  92.      (cons 3   "Door ID:")                                             ;Attribute Prompt
  93.      (cons 2   "ID")                                                   ;Attribute Tag
  94.      (cons 70                                                        ;Attribute Visibility Flag ~ (Attribute Is Preset (No Prompt During Insertion) 
  95.      (cons 73   0)                                                     ;Field Length
  96.      (cons 74   2)))                                                   ;Vertical Text Justification ~ (Middle)
  97.  (entmake                                                              ;Entmake
  98.    (list                                                               ;Start List
  99.      (cons 0   "endblk")))                                             ;Object Type
  100.  (entmake                                                              ;Entmake
  101.    (list                                                               ;Start List
  102.      (cons 0   "INSERT")                                               ;Object Type
  103.      (cons 2    BNAM)                                                  ;Object Name
  104. [b][color=Red]      (cons 66   1)[/color][/b]
  105.      (cons 10   INPT)                                                  ;Insertion Point
  106.      ;(cons 50  (getangle INPT "\nSelect Rotation: "))                 ;Rotation Angle
  107.      ))
  108.  (prompt "\nRotation Angle: ")                                         ;Prompt For Rotation
  109.  (command "_.rotate" (entlast) "" INPT pause)                             ;Rotate Command, Last Object, Rotate On Insertion Point, Pause For Input
  110. )                                                                       ;End Define Function
  111. (defun DTR (a)                                                          ;Define Function
  112. (* pi (/ a 180.0))                                                     ;Calculate Degrees To Radians
  113. )                                                                       ;End Define Function

 
检查突出显示是否有更改
回复

使用道具 举报

The Buzzard

32

主题

1166

帖子

1146

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
159
发表于 2022-7-6 09:59:31 | 显示全部楼层
我喜欢将提示放在列表中的想法。我不知道可以这样做。我会用的。无论如何，我相信我离目标很近了，很可能只有几英尺远。
回复

使用道具 举报

The Buzzard

32

主题

1166

帖子

1146

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
159
发表于 2022-7-6 10:02:51 | 显示全部楼层
我已经试过了，它把所有的东西都当成了松散的物体。
回复

使用道具 举报

Lee Mac

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 10:03:17 | 显示全部楼层
阅读66组代码，我认为应该这样做，但它似乎没有插入任何内容。。。
  2. (defun C:LD ()                                                          ;Define Function
  3.  (command "_.STYLE" "Romans" "romans.shx" "0.0" "1.0" "0" "N" "N" "N") ;Style command
  4.  (setq ASTY  "Romans")                                                 ;Attribute Style
  5.  (setq AWID    1.0)                                                    ;Attribute Width Factor
  6.  (setq ASIZ    4.5)                                                    ;Attribute Height
  7.  (setq ALNAM "A-DOOR-IDEN")                                            ;Attribut Layer Name
  8.  (setq BNAM  "LDR")                                                    ;Block Name
  9.  (setq WID    36.0)                                                    ;Door Width
  10.  (setq THK     2.0)                                                    ;Door Thickness
  11.  (setq BRPT (list 0.0 0.0 0.0))                                        ;Base Reference Point
  12.  (setq EXDR (list 0.0 0.0 1.0))                                        ;Extrusion Direction
  13.  (setq PT01 (polar BRPT (DTR  90.0) WID))                              ;Calculate Door Point 01
  14.  (setq PT02 (polar PT01 (DTR   0.0) THK))                              ;Calculate Door Point 02
  15.  (setq PT03 (polar PT02 (DTR 270.0) WID))                              ;Calculate Door Point 03
  16.  (setq PT04 (polar PT03 (DTR 180.0) THK))                              ;Calculate Door Point 04
  17.  (setq SANG   0.0)                                                     ;Arc Start Angle
  18.  (setq EANG   1.5708)                                                  ;Arc Ending Angle
  19.  (setq AFAP   (polar BRPT (DTR 270.0)      11.25))                     ;Attribute First Alignment Point
  20.  (setq AFAP01 (polar AFAP (DTR   0.0)      15.0))
  21.  (setq ASAP   (polar BRPT (DTR 270.0)       6.75))                     ;Attribute Second Alignment Point
  22.  (setq ASAP01 (polar ASAP (DTR   0.0)(/ WID 2.0)))
  23.  (setq INPT (getpoint "\nGet insertion point:"))                       ;Insertion Point
  24.  (entmake                                                              ;Entmake
  25.    (list                                                               ;Start List
  26.      (cons 0   "block")                                                ;Object Type
  27.      (cons 2    BNAM)                                                  ;Object Name
  28.      (cons 10   BRPT)                                                  ;Object Base Reference Point
  29.      (cons 70   2)))                                                   ;Attribute Flag ~ Has None Constant Attributes
  30.  (entmake                                                              ;Entmake
  31.    (list                                                               ;Start List
  32.      (cons 0   "LWPOLYLINE")                                           ;Object Type
  33.      (cons 100 "AcDbEntity")                                           ;Subclass Marker
  34.      (cons 67   0)                                                     ;Object Space ~ Model
  35.      (cons 410 "Model")                                                ;Layout Tab Name ~ Model
  36.      (cons 8   "0")                                                    ;Layer Name
  37.      (cons 100 "AcDbPolyline")                                         ;Subclass Marker
  38.      (cons 90   4)                                                     ;Number of Vertices
  39.      (cons 70   1)                                                     ;Polyline Flag ~ Closed
  40.      (cons 43   0.0)                                                   ;Constant width
  41.      (cons 38   0.0)                                                   ;Elevation
  42.      (cons 39   0.0)                                                   ;Thickness
  43.      (cons 10   PT01)                                                  ;Vertex Coordinates ~ (Point 01)
  44.      (cons 40   0.0)                                                   ;Starting width
  45.      (cons 41   0.0)                                                   ;Ending width
  46.      (cons 42   0.0)                                                   ;Bulge
  47.      (cons 10   PT02)                                                  ;Vertex Coordinates ~ (Point 02)
  48.      (cons 40   0.0)                                                   ;Starting width
  49.      (cons 41   0.0)                                                   ;Ending width
  50.      (cons 42   0.0)                                                   ;Bulge
  51.      (cons 10   PT03)                                                  ;Vertex Coordinates ~ (Point 03)
  52.      (cons 40   0.0)                                                   ;Starting width
  53.      (cons 41   0.0)                                                   ;Ending width
  54.      (cons 42   0.0)                                                   ;Bulge
  55.      (cons 10   PT04)                                                  ;Vertex Coordinates ~ (Point 04)
  56.      (cons 40   0.0)                                                   ;Starting width
  57.      (cons 41   0.0)                                                   ;Ending width
  58.      (cons 42   0.0)                                                   ;Bulge
  59.      (cons 210  EXDR)))                                                ;Extrusion Direction
  60.  (entmake                                                              ;Entmake
  61.    (list                                                               ;Start List
  62.      (cons 0   "arc")                                                  ;Object Type
  63.      (cons 100 "AcDbEntity")                                           ;Subclass Marker
  64.      (cons 67   0)                                                     ;Object Space ~ Model
  65.      (cons 410 "Model")                                                ;Layout Tab Name ~ Model
  66.      (cons 8   "0")                                                    ;Layer Name
  67.      (cons 100 "AcDbCircle")                                           ;Subclass Marker
  68.      (cons 10   BRPT)                                                  ;Center Point ~ (Base Reference Point)
  69.      (cons 39   0.0)                                                   ;Thickness
  70.      (cons 40   WID)                                                   ;Arc Radius ~ (Width)
  71.      (cons 210  EXDR)                                                  ;Extrusion Direction
  72.      (cons 100 "AcDbArc")                                              ;Subclass Marker
  73.      (cons 50   SANG)                                                  ;Arc Start Angle
  74.      (cons 51   EANG)))                                                ;Arc Ending Angle
  75.  (entmake                                                              ;Entmake
  76.    (list                                                               ;Start List
  77.      (cons 0   "attdef")                                               ;Object Type
  78.      (cons 67   0)                                                     ;Object Space ~ Model
  79.      (cons 410 "Model")                                                ;Layout Tab Name ~ Model
  80.      (cons 8    ALNAM)                                                 ;Attribute Layer Name
  81.      (cons 10   AFAP01)                                                ;Attribute First Alignment Point
  82.      (cons 40   ASIZ)                                                  ;Attribute Size ~ (4.5)
  83.      (cons 1   "D01")                                                  ;Attribute Value
  84.      (cons 50   0.0)                                                   ;Text Rotation
  85.      (cons 41   AWID)                                                  ;Font Width Factor ~ (1.0)
  86.      (cons 51   0.0)                                                   ;Oblique Angle
  87.      (cons 7    ASTY)                                                  ;Attribute Style ~ (Romans)
  88.      (cons 71   0)                                                     ;Text Generation Flag ~ (Default)
  89.      (cons 72   1)                                                     ;Horiz. Text Justification ~ (Center)
  90.      (cons 11   ASAP01)                                                ;Attribute Second Alignment Point
  91.      (cons 210  EXDR)                                                  ;Extrusion Direction
  92.      (cons 3   "Door ID:")                                             ;Attribute Prompt
  93.      (cons 2   "ID")                                                   ;Attribute Tag
  94.      (cons 70                                                        ;Attribute Visibility Flag ~ (Attribute Is Preset (No Prompt During Insertion) 
  95.      (cons 73   0)                                                     ;Field Length
  96.      (cons 74   2)))                                                   ;Vertical Text Justification ~ (Middle)
  97.  (entmake                                                              ;Entmake
  98.    (list                                                               ;Start List
  99.      (cons 0   "endblk")))                                             ;Object Type
  100.  (entmake                                                              ;Entmake
  101.    (list                                                               ;Start List
  102.      (cons 0   "INSERT")                                               ;Object Type
  103.      (cons 2    BNAM)                                                  ;Object Name
  104.      [b][color=Red](cons 66   1)[/color][/b]
  105.      (cons 10   INPT)                                                  ;Insertion Point
  106.      ;(cons 50  (getangle INPT "\nSelect Rotation: "))                 ;Rotation Angle
  107.      ))
  108.  [b][color=Red](entmake
  109.    (list      
  110.      (cons 0 "ATTRIB")
  111.      (cons 8 "A-DOOR-IDEN")
  112.      (cons 1 "D01")
  113.      (cons 7 "Romans")
  114.      (cons 2 "ID")))
  115.  (entmake
  116.    (list
  117.      (cons 0 "SEQEND")
  118.      (cons 8 "0")))[/color][/b]
  119.  ;(prompt "\nRotation Angle: ")                                         ;Prompt For Rotation
  120.  ;(command "_.rotate" (entlast) "" INPT pause)                             ;Rotate Command, Last Object, Rotate On Insertion Point, Pause For Input
  121. )                                                                       ;End Define Function
  122. (defun DTR (a)                                                          ;Define Function
  123. (* pi (/ a 180.0))                                                     ;Calculate Degrees To Radians
  124. )                           
回复

使用道具 举报

The Buzzard

32

主题

1166

帖子

1146

银币

初露锋芒

Rank: 3Rank: 3Rank: 3

铜币
159
发表于 2022-7-6 10:06:18 | 显示全部楼层
我记得类似的事情，但不是这里使用的方式。
我几个月前就试过了，放弃了这个想法。这就是为什么我在代码中使用insert命令。
回复

使用道具 举报

Lee Mac

114

主题

1万

帖子

1万

银币

中流砥柱

Rank: 25

铜币
543
发表于 2022-7-6 10:11:36 | 显示全部楼层
 
没错，但Entmake总是比我找到的任何“命令调用”方法都快。
 
我有一半的时间在考虑修改我的管道程序，使其使用entmake方法来创建实体，但这将意味着完全重写绘图程序。。。任务不小。。。
回复

使用道具 举报

12下一页
返回列表 发帖

发表回复

高级模式
B Color Image Link Quote Code Smilies
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

精选推荐

  • 微信公众平台

  • 扫描访问手机版

  • 点击图片下载手机App

QQ|关于我们|小黑屋|乐筑天下 繁体中文

GMT+8, 2025-3-7 00:35 , Processed in 1.359648 second(s), 72 queries .

© 2020-2025 乐筑天下

联系客服 关注微信 帮助中心 下载APP 返回顶部 返回列表