如何解决只有视口没有其他图案才能绘出图形

唯⒈のsē彩

(defun c:pin ()
(setq *error* nil)
(command "layer" "s" "0" "" )
( setvar "cmdecho" 1 )
( setvar "highlight" 1)
(command "UCS" "" )
(setq p1 (getpoint "第一点："))
(setq p2 "@-0.55,0")
(setq p3 "@-0.15,-0.1")
(setq p4 "@-0.1,-0.15")
(setq p5 "@0.25,-0.95")
(setq p6 "@-0.25,-0.5")
(setq p7 "@-0.25,0.15")
(setq p8 "@0.2,0.4")
(setq p9 "@-0.25,0.9")
(setq p10 "@0.17,0.4")
(setq p11 "@0.3,0.15")
(setq p12 "@8.18,0")
(setq p13 "@0,-0.3")
(setq p14 "@-6.55,0")
(setq p15 "@0.1,-0.25")
(setq p16 "@-0.25,-0.9")
(setq p17 "@0.2,-0.4")
(setq p18 "@-0.25,-0.15")
(setq p19 "@-0.25,0.5")
(setq p20 "@0.25,0.95")
(setq p21 "@-0.1,0.15")
(setq p22 "@-0.15,0.1")
(command "pline" p1 p2 p3 p4 p5 p6 p7 p8 p9 p10 p11 p12 p13 p14 p15 p16 p17 p18 p19 p20 p21 p22 p1 ""))

xsso

没有关捕捉点，对于画图程序最好把捕捉点关了
应该在程序开端
(setq os (getvar "osmode"))
(setvar "osmode" 0)

结尾处
(setvar "osmode" os)