所以，我有一个小命令，可以修复我们绘图中的一些小东西，但它会做一些奇怪的事情。我觉得这与命令中的空“”标记有关。我将在运行时发布代码和命令行。从命令行提示判断，Draworder命令和集中的最后一个命令似乎有问题。
- (defun c:PLDO()
- (setq sel1 (ssget "x" '((8 . "PROPERTY_LINES"))))
- (command "draworder" sel1 "" "back")
- (setq sel2 (ssget "x" '((8 . "FENCE"))))
- (command "._chprop" sel2 "" "s" "0.5" "")
- (setq sel3 (ssget "x" '((6 . "DASHDOT"))))
- (command "._chprop" sel3 "" "s" "1" "")
- (setq sel4 (ssget "x" '((8 . "ANTENNA") (0 . "TEXT,MTEXT,*LEADER"))))
- (command "._chprop" sel4 "" "c" "byblock" "")
- (princ)
- )
- Command: PLDO
- draworder
- Select objects:
- Command: PLDO
- Unknown command "PLDO". Press F1 for help.
- Command: back Unknown command "BACK". Press F1 for help.
- Command: ._chprop
- Select objects: 4 found
- Select objects:
- Enter property to change [Color/LAyer/LType/ltScale/LWeight/Thickness/TRansparency/Material/Annotative]: s
- Specify new linetype scale <0'-0 1/2">: 0.5
- Enter property to change [Color/LAyer/LType/ltScale/LWeight/Thickness/TRansparency/Material/Annotative]:
- Command: ._chprop
- Select objects: 4 found
- Select objects:
- Enter property to change [Color/LAyer/LType/ltScale/LWeight/Thickness/TRansparency/Material/Annotative]: s
- Specify new linetype scale <0'-1">: 1
- Enter property to change [Color/LAyer/LType/ltScale/LWeight/Thickness/TRansparency/Material/Annotative]:
- Command: ._chprop
- Select objects:
- Command: PLDO
- Unknown command "PLDO". Press F1 for help.
- Command: c Unknown command "C". Press F1 for help.
- Command: byblock Unknown command "BYBLOCK". Press F1 for help.
- Command: PLDO
- Unknown command "PLDO". Press F1 for help.
| 
置顶卡
