初学LSP编写的填充源码，其中有个困扰很久的问题，求指教

ztosen

(Defun C:H2 (/ e e1 la ps si smx ss ssh)
  (SETVAR "CMDECHO" 0)
  (SETQ OLDERR *ERROR*
            *ERROR* AEOERR
  )
  (COMMAND "undo" "group")
  (prompt "\n当前样式:砌墙(ANSI31) 比例:200\n")
  (initget "S F")
  (setq ans (getkword "\n修改图案填充对象(S)/选择填充边界(F)/拾取填充内部点(直接回车)："))
  (cond
    ((= ans "S")
      (if (and
            (princ "\n选择图案填充对象：")
            (setq ss (ssget (list '(0 . "hatch"))))
          )
        (progn
          (setq smx (sslength ss)
                si 0
          )
          (while (< si smx)
            (setq e (ssname ss si)
                  si (1+ si)
            )
            (if t
              (progn
                (if nil                     
                  (command ".-hatchedit" e e1 "p" "ANSI31" "100" "0")
                  (command ".-hatchedit" e "p" "ANSI31" "100" "0")
                )                     
              )
            )
          )
        )
      )
    )
    ((= ans "F")
      (prompt "\n选择填充边界：")
      (setq ss (ssget))
      (command "bhatch" "p" "ANSI31" "200" "0" "s" ss "" "")
    )
    (t
      (prompt "\n拾取填充内部点：")
      (command "bhatch" "p" "ANSI31" "200" "0")
      (while (> (getvar "CMDACTIVE") 0)
        (command PAUSE)
      )
    )
  )
  (SETQ *ERROR* OLDERR)
  (COMMAND "_.undo" "end")
  (PRINC)
)

大师们好，我想输入命令后，提示输入getkword时，直接点击鼠标就能指定内部点，而不需要回车。

Andyhon

(setq ans (getkword  ...
==>
(setq ans (getPoint ...

Cond 下 相应调整代码 ...

wowan1314

楼主是意思   是不是关键词的响应 -----不按空格 即刻响应？

那么建议你用  grread 函数。

ztosen

Andyhon 发表于 2013-7-27 12:58
(setq ans (getkword  ...
==>
(setq ans (getPoint ...

谢谢老大指教，原来这么简单。
为什么自己就没想到用getPoint~

(Defun C:H1 (/ e e1 la ps si smx ss ssh)
  (SETVAR "CMDECHO" 0)
  (SETQ OLDERR *ERROR*
            *ERROR* AEOERR
  )
  (COMMAND "undo" "group")
  (prompt "\n当前样式:实体(SOLID)\n")
  (initget "S F")
  (setq ans (getPoint "\n拾取填充内部点或[修改图案填充对象(F)/选择填充边界(S)]："))
  (cond
    ((= ans "F")
      (if (and
            (princ "\n选择图案填充对象：")
            (setq ss (ssget (list '(0 . "hatch"))))
          )
        (progn
          (setq smx (sslength ss)
                si 0
          )
          (while (< si smx)
            (setq e (ssname ss si)
                  si (1+ si)
            )
            (if t
              (progn
                (if nil
                  (command ".-hatchedit" e e1 "p" "solid")
                  (command ".-hatchedit" e "p" "solid")
                )
              )
            )
          )
        )
      )
    )
    ((= ans "S")
      (prompt "\n选择填充边界：")
      (setq ss (ssget))
      (command "bhatch" "p" "solid" "s" ss "" "")
    )
    (t
      (if (/= ans nil)
        (PROGN
          (command "bhatch" ans "p" "solid")
          (while (> (getvar "CMDACTIVE") 0)
            (command PAUSE)
          )
          (PRINC)
        )
      )
    )
  )
  (SETQ *ERROR* OLDERR)
  (COMMAND "_.undo" "end")
  (PRINC)
)

chbddzx12

........................

迷不知途

学习学习！

ZZXXQQ

压缩一下

2. (defun C:H1 (/ ans e si ss)
   
3.   (setvar "CMDECHO" 0)
   
4.   (setq OLDERR *ERROR*
   
5.             *ERROR* AEOERR
   
6.   )
   
7.   (command "undo" "group")
   
8.   (prompt "\n当前样式:实体(SOLID)\n")
   
9.   (initget "S F")
   
10.   (setq ans (getpoint "\n拾取填充内部点或[修改图案填充对象(F)/选择填充边界(S)]："))
    
11.   (cond
    
12.     ((= ans "F")
    
13.       (if (and
    
14.             (princ "\n选择图案填充对象：")
    
15.             (setq ss (ssget '((0 . "HATCH"))))
    
16.           )
    
17.         (repeat (setq si (sslength ss))
    
18.           (setq e (ssname ss (setq si (1- si))))
    
19.           (command ".-hatchedit" e "p" "solid")
    
20.         )
    
21.       )
    
22.     )
    
23.     ((= ans "S")
    
24.       (prompt "\n选择填充边界：")
    
25.       (setq ss (ssget '((0 . "ARC,CIRCLE,*LINE"))))
    
26.       (command "hatch" "p" "solid" "s" ss "" "")
    
27.     )
    
28.     (t
    
29.       (if ans (progn
    
30.         (command "hatch" ans "p" "solid")
    
31.         (while (> (getvar "CMDACTIVE") 0) (command PAUSE))
    
32.       ))
    
33.     )
    
34.   )
    
35.   (setq *ERROR* OLDERR)
    
36.   (command "_.undo" "end")
    
37.   (setvar "CMDECHO" 1)
    
38.   (princ)
    
39. )
    

(defun C:H1 (/ ans e si ss)<br />   (setvar "CMDECHO" 0)<br />   (setq OLDERR *ERROR*<br />             *ERROR* AEOERR<br />   )<br />   (command "undo" "group")<br />   (prompt "\n当前样式:实体(SOLID)\n")<br />   (initget "S F")<br />   (setq ans (getpoint "\n拾取填充内部点或[修改图案填充对象(F)/选择填充边界(S)]："))<br />   (cond<br />     ((= ans "F")<br />       (if (and<br />             (princ "\n选择图案填充对象：")<br />             (setq ss (ssget '((0 . "HATCH"))))<br />           )<br />         (repeat (setq si (sslength ss))<br />           (setq e (ssname ss (setq si (1- si))))<br />           (command ".-hatchedit" e "p" "solid")<br />         )<br />       )<br />     )<br />     ((= ans "S")<br />       (prompt "\n选择填充边界：")<br />       (setq ss (ssget '((0 . "ARC,CIRCLE,*LINE"))))<br />       (command "hatch" "p" "solid" "s" ss "" "")<br />     )<br />     (t<br />       (if ans (progn<br />         (command "hatch" ans "p" "solid")<br />         (while (> (getvar "CMDACTIVE") 0) (command PAUSE))<br />       ))<br />     )<br />   )<br />   (setq *ERROR* OLDERR)<br />   (command "_.undo" "end")<br />   (setvar "CMDECHO" 1)<br />   (princ)<br /> )<br />

wu112031853

求一个连续填充的lsp，就是批量输入坐标，程序按顺序一个个填充，如果有错误就跳过