519995995 发表于 2019-12-11 15:49:10

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

请问各位坛友哪儿有毛病呢？
(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 发表于 2019-12-11 18:27:37

(setvar "OSMODE" 0)

骑着蜗牛旅行666 发表于 2019-12-11 18:28:00

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

519995995 发表于 2019-12-11 22:22:37

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

(command "OSNAP" "ENDPOINT,MIDPOINT,CENTER,NODE,QUADRANT,NEAREST,intersection,perpendicular" ) 我加了这个就可以了。谢谢
页: [1]
查看完整版本: 快捷填充的LSP----为什么填充完后捕捉点就消失了？