快捷填充的LSP----为什么填充完后捕捉点就消失了？

519995995

请问各位坛友哪儿有毛病呢？
(defun C:Hsd (/ s1 s2)
  (setvar "cmdecho" 0)
  (setvar "OSMODE" 0)
  (setvar "MEASUREINIT" 1)
  (setvar "MEASUREMENT" 1)
  (setvar "hpassoc" 1)   ;控制填充图案是否关联(1:是；0:否)
  (princ
    "\n快捷填充，请选择填充区域：(***跳过则为拾取内部点填充）"
  )
  (if (setq s1 (ssget))
    (command "layer"  "m"      "ht"
      "c"  "8"      ""   "lw"
      "1"  ""      "l"  "Continuous"
      ""   ""      "_.bhatch"  "p"
      "AR-SAND,_o"  "10"      "0"  "s"
      s1          ""      ""
     )
    (progn
      (princ "\n请拾取填充内部点：")
          (IF (vl-cmdf "layer"  "m"      "ht"
      "c"  "8"      ""   "lw"
      "1"  ""      "l"  "Continuous"
      ""   ""
             "_.bhatch" (getpoint) "p"  "AR-SAND,_o" "10" "0" "")
     (princ "\n请选择填充...")
     )
      )
  )
(princ)
)

骑着蜗牛旅行666

(setvar "OSMODE" 0)  

骑着蜗牛旅行666

你设置了取消捕捉，没有恢复

519995995

骑着蜗牛旅行666 发表于 2019-12-11 18:27
(setvar "OSMODE" 0)

(command "OSNAP" "ENDPOINT,MIDPOINT,CENTER,NODE,QUADRANT,NEAREST,intersection,perpendicular" ) 我加了这个就可以了。谢谢