我将从以下内容开始：[b][color=BLACK]([/color][/b]defun C:Red2GrnZ [b][color=FUCHSIA]([/color][/b]/ tol ri rs rn rd rp md gs ce gi gn gd gp[b][color=FUCHSIA])[/color][/b] [b][color=FUCHSIA]([/color][/b]defun p2d [b][color=NAVY]([/color][/b]p[b][color=NAVY])[/color][/b] [b][color=NAVY]([/color][/b]list [b][color=MAROON]([/color][/b]car p[b][color=MAROON])[/color][/b] [b][color=MAROON]([/color][/b]cadr p[b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b] [b][color=FUCHSIA]([/color][/b]initget 7[b][color=FUCHSIA])[/color][/b] [b][color=FUCHSIA]([/color][/b]setq tol [b][color=NAVY]([/color][/b]getdist [color=#2f4f4f]"\nBase Point Search Tolerance: "[/color][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b] [b][color=FUCHSIA]([/color][/b]and [b][color=NAVY]([/color][/b]setq ri -1[b][color=NAVY])[/color][/b] [b][color=NAVY]([/color][/b]setq rs [b][color=MAROON]([/color][/b]ssget [color=#2f4f4f]"X"[/color] '[b][color=GREEN]([/color][/b][b][color=BLUE]([/color][/b]0 . [color=#2f4f4f]"POINT"[/color][b][color=BLUE])[/color][/b][b][color=BLUE]([/color][/b]62 . 1[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b] [b][color=NAVY]([/color][/b]setq gs [b][color=MAROON]([/color][/b]ssget [color=#2f4f4f]"X"[/color] '[b][color=GREEN]([/color][/b][b][color=BLUE]([/color][/b]0 . [color=#2f4f4f]"POINT"[/color][b][color=BLUE])[/color][/b][b][color=BLUE]([/color][/b]62 . 3[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b] [b][color=NAVY]([/color][/b]while [b][color=MAROON]([/color][/b]setq rn [b][color=GREEN]([/color][/b]ssname rs [b][color=BLUE]([/color][/b]setq ri [b][color=RED]([/color][/b]1+ ri[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b] [b][color=MAROON]([/color][/b]setq rd [b][color=GREEN]([/color][/b]entget rn[b][color=GREEN])[/color][/b] rp [b][color=GREEN]([/color][/b]cdr [b][color=BLUE]([/color][/b]assoc 10 rd[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b] md [b][color=GREEN]([/color][/b]distance [b][color=BLUE]([/color][/b]p2d [b][color=RED]([/color][/b]getvar [color=#2f4f4f]"EXTMIN"[/color][b][color=RED])[/color][/b][b][color=BLUE])[/color][/b] [b][color=BLUE]([/color][/b]p2d [b][color=RED]([/color][/b]getvar [color=#2f4f4f]"EXTMAX"[/color][b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b] [b][color=MAROON]([/color][/b]and [b][color=GREEN]([/color][/b]setq gs [b][color=BLUE]([/color][/b]ssget [color=#2f4f4f]"C"[/color] [b][color=RED]([/color][/b]polar rp [b][color=PURPLE]([/color][/b]* pi 0.25[b][color=PURPLE])[/color][/b] tol[b][color=RED])[/color][/b] [b][color=RED]([/color][/b]polar rp [b][color=PURPLE]([/color][/b]* pi 1.25[b][color=PURPLE])[/color][/b] tol[b][color=RED])[/color][/b] '[b][color=RED]([/color][/b][b][color=PURPLE]([/color][/b]0 . [color=#2f4f4f]"POINT"[/color][b][color=PURPLE])[/color][/b][b][color=PURPLE]([/color][/b]62 . 3[b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b][b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b] [b][color=GREEN]([/color][/b]setq ce nil gi -1[b][color=GREEN])[/color][/b] [b][color=GREEN]([/color][/b]while [b][color=BLUE]([/color][/b]setq gn [b][color=RED]([/color][/b]ssname gs [b][color=PURPLE]([/color][/b]setq gi [b][color=TEAL]([/color][/b]1+ gi[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b][b][color=BLUE])[/color][/b] [b][color=BLUE]([/color][/b]setq gd [b][color=RED]([/color][/b]entget gn[b][color=RED])[/color][/b] gp [b][color=RED]([/color][/b]p2d [b][color=PURPLE]([/color][/b]cdr [b][color=TEAL]([/color][/b]assoc 10 gd[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b][b][color=RED])[/color][/b][b][color=BLUE])[/color][/b] [b][color=BLUE]([/color][/b]if [b][color=RED]([/color][/b]< [b][color=PURPLE]([/color][/b]distance [b][color=TEAL]([/color][/b]p2d rp[b][color=TEAL])[/color][/b] gp[b][color=PURPLE])[/color][/b] md[b][color=RED])[/color][/b] [b][color=RED]([/color][/b]setq md [b][color=PURPLE]([/color][/b]distance [b][color=TEAL]([/color][/b]p2d rp[b][color=TEAL])[/color][/b] gp[b][color=PURPLE])[/color][/b] ce gn[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b] gn[b][color=GREEN])[/color][/b] [b][color=GREEN]([/color][/b]and ce [b][color=BLUE]([/color][/b]entmod [b][color=RED]([/color][/b]subst [b][color=PURPLE]([/color][/b]list 10 [b][color=TEAL]([/color][/b]car gp[b][color=TEAL])[/color][/b] [b][color=TEAL]([/color][/b]cadr gp[b][color=TEAL])[/color][/b] [b][color=TEAL]([/color][/b]caddr rp[b][color=TEAL])[/color][/b][b][color=PURPLE])[/color][/b] [b][color=PURPLE]([/color][/b]assoc 10 gd[b][color=PURPLE])[/color][/b] gd[b][color=RED])[/color][/b][b][color=BLUE])[/color][/b] [b][color=BLUE]([/color][/b]redraw ce 3[b][color=BLUE])[/color][/b][b][color=GREEN])[/color][/b][b][color=MAROON])[/color][/b][b][color=NAVY])[/color][/b][b][color=FUCHSIA])[/color][/b] [b][color=FUCHSIA]([/color][/b]prin1[b][color=FUCHSIA])[/color][/b][b][color=BLACK])[/color][/b]
鉴于：
[列表]
红色和绿色强制在点实体上（不是具有各自图层的BYLAYER） 我猜你的公差是1个单位（可能是米） PDMODE自上次重新生成后未更改 PDMODE显示几何形状将包含在公差中 
置顶卡
