[求助]：为什么只能点选而不能框选？

hnfsf

运行下面的程序中
  (progn
         (initdia)
         (IF T (command ".bhatch"))
         (while (eq 1 (logand 1 (getvar "CMDACTIVE")))
                (command pause)
         )
         (command "Chprop" (entlast) "" "LA" "hatch" "")         
       )

进入对话框填充时“选择对象”只能够用点选不能用框选了？
为什么？

昨天都是正常的呢。

glyxmj

怪事，运行了你上面的LISP后，CAD自动关了

hnfsf

不会啊，那你运行整个程序看看呢。

(defun c:bh ( / ccolor clayer hatch hatchx num)
  (setq CLayer (getvar "clayer")
        CColor (getvar "cecolor")
  )
  (if (= (tblsearch "layer" "Hatch") nil)
    (progn
      (princ "\n Hatch 图层不存在，正在创建...")
      (command "-layer" "n" "Hatch" "c" 252 "Hatch" "")
    )
  )
  (command ".layer" "on" "hatch" "")
  (initget "1 2 3 4 5")
  (if (not (setq num (getkword "\n请选择填充图案：[1-填实]/[2-钢筋混凝土]/[3-素混凝土]/[4-砖]/[5-钢材]/[回车进入对话框]:  ")))
     (if (setq p0 (getpoint "\n左键进行填实，右键进入对话框:"))
        (progn
          (princ "\n 请选择内部点: ")
          (setvar "clayer" "Hatch")
          (if (> (atof (getvar "acadver")) 16.0)
                  (command "-bhatch" "p" "solid" "dr" "b" pause)
                  (command "-bhatch" "p" "solid" pause)
          )
          (while (eq 1 (logand 1 (getvar "CMDACTIVE")))
                (command pause)
         )
         (command "Chprop" (entlast) "" "LA" "hatch" "")              
        )
       (progn
         (initdia)
         (IF T (command ".bhatch"))
         (while (eq 1 (logand 1 (getvar "CMDACTIVE")))
                (command pause)
         )
         (command "Chprop" (entlast) "" "LA" "hatch" "")         
       )
    )
    (progn
      (if (= "1" num)
        (progn
          (princ "\n 请选择内部点: ")
          (setvar "clayer" "Hatch")
          (if (> (atof (getvar "acadver")) 16.0)
                  (command "-bhatch" "p" "solid" "dr" "b" pause)
                  (command "-bhatch" "p" "solid" pause)
          )
          (while (= (getvar "cmdnames") "-BHATCH")
            (command pause)
          )
        )
        (progn
          (cond
            ((= "2" num)
              (setq hatch "an31c"
                    hatchx 1000.
              )
            )
            ((= "3" num)
              (setq hatch "an33c"
                    hatchx 1000.
              )
            )
            ((= "4" num)
              (setq hatch "ansi31"
                    hatchx 1200.
              )
            )
            ((= "5" num)
              (setq hatch "ansi32"
                    hatchx 1000.
              )
            )
          )
          (princ "\n 请选择内部点: ")
          (setvar "clayer" "Hatch")
          (if (> (atof (getvar "acadver")) 16.0)
                (command "-bhatch" "p" hatch hatchx 0. "dr" "b" pause)
                  (command "-bhatch" "p" hatch hatchx 0. pause)
          )
          (while (= (getvar "cmdnames") "-BHATCH")
            (command pause)
          )
        )
      )
      (xdrx_draworder->back (entlast))
;;;      (command ".regen")
    )
  )
  (setvar "clayer" CLayer)
  (setvar "cecolor" CColor)
  (princ)
)

glyxmj

我用了一下，对话框就没跳出来，直接命令行显示要点选。
另外，你的填充图形的比例能不根椐填充对象的大小来调整比例。

andyhua5240

请问：
做一个选择集的时候，就能框选了，怎么做一个只能点选的选择集，请高手们把代码贴出，谢谢！

xyp1964

2. [FONT=courier new](defun c:test (/ s1)
   
3.   (setq ss (ssadd))
   
4.   (while (setq s1 (car (entsel "\n选择实体 : ")))
   
5.     (setq ss (ssadd s1 ss))
   
6.   )
   
7.   ss
   
8. )[/FONT]

[FONT=courier new](defun c:test (/ s1)<br />   (setq ss (ssadd))<br />   (while (setq s1 (car (entsel "\n选择实体 : ")))<br />     (setq ss (ssadd s1 ss))<br />   )<br />   ss<br /> )[/FONT]