请帮忙修改这个程序

lch8526 · 发表于 2014-12-2 16:41:56

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

您需要登录才可以下载或查看，没有账号？立即注册

×

(defun c:h11 ()
  (setq v1(getvar "osmode")) ;获取当前的目标捕捉类型，将其赋给变量v1
  (setq v2(getvar "cmdecho")) ;获取当前的普通命令提示状态，将其赋给变量v2
  (setq v3 (getvar "clayer")) ;获取当前的图层，将其赋给变量v3
  (setvar "osmode" 0) ;关闭目标捕捉状态
  (setvar "cmdecho" 0) ;不显示普通命令的提示
  (command "layer" "m" "剖面线" "") ;设置当前图层为剖面线
  (command "bhatch" "p" "line" 1 45 "s" "") ;填充
  (setvar "osmode" v1) ;恢复目标捕捉的原来状态
  (setvar "cmdecho" v2) ;恢复普通命令提示原来的显示状态
  (setvar "clayer" v3) ;恢复图层
  (princ)
)

请问这个程序问题出现在哪里，为什么我用任意图层画完图后用h11命令进行填充，完成填充不能返回原来的图层？

zhbzhbzhb · 发表于 2014-12-2 17:01:46

(command "bhatch" "p" "line" 1 45 "s" "") 不完整，程序到这里中断了。

lch8526 · 发表于 2014-12-2 17:04:09

应该要怎样改？

newer · 发表于 2014-12-2 17:05:19

看你用了S，本意要选实体后填充，那么按下面改，先构建选择集，然后给BHATCH，程序里面用了个技巧，晓东通用函数库里有，这里直接拿来用了，就是命令激活时候，你不知道输入几个回车的时候就用循环做。

(defun c:h11 ()
(setq v1 (getvar "osmode")) ; 获取当前的目标捕捉类型，将其赋给变?
; 縱1
(setq v2 (getvar "cmdecho")) ; 获取当前的普通命令提示状态，将其赋?
; ?淞縱2
(setq v3 (getvar "clayer")) ; 获取当前的图层，将其赋给变量v3
(setvar "osmode" 0) ; 关闭目标捕捉状态
(setvar "cmdecho" 0) ; 不显示普通命令的提示
(command "layer" "m" "剖面线" "") ; 设置当前图层为剖面线
(if (setq ss (ssget))
(progn
(command "bhatch" "p" "line" 1 45 "s" ss) ; 填充
(while (= (getvar "cmdactive") 1)
(command "")
)
)
)
(setvar "osmode" v1) ; 恢复目标捕捉的原来状态
(setvar "cmdecho" v2) ; 恢复普通命令提示原来的显示状态
(setvar "clayer" v3) ; 恢复图层
(princ)
)

newer · 发表于 2014-12-2 17:08:07

(while (= (getvar "cmdactive") 1)
(command "")
)

这句的意思就是BHATCH命令里面，给S参数后，不管后面需要多少个回车，只要命令一直在激活状态，就循环回车，直到命令结束。

如果命令后面是需要输入Y的，你就把""改成Y。

lch8526 · 发表于 2014-12-2 17:19:56

newer 发表于 2014-12-2 17:08
(while (= (getvar "cmdactive") 1)
(command "")
)

谢谢你的修改，但你这个程序为什么变成选择对象填充而不是点内部点来填充的？

newer · 发表于 2014-12-2 17:24:59

lch8526 发表于 2014-12-2 17:19
谢谢你的修改，但你这个程序为什么变成选择对象填充而不是点内部点来填充的？

你要想用拾取点，就下面这样改，你也可以把上面和下面的结合，选物体和拾取点都有，这个你结合代码自己改。

(defun c:h11 ()
(setq v1 (getvar "osmode")) ; 获取当前的目标捕捉类型，将其赋给变?
; 縱1
(setq v2 (getvar "cmdecho")) ; 获取当前的普通命令提示状态，将其赋?
; ?淞縱2
(setq v3 (getvar "clayer")) ; 获取当前的图层，将其赋给变量v3
(setvar "osmode" 0) ; 关闭目标捕捉状态
(setvar "cmdecho" 0) ; 不显示普通命令的提示
(command "layer" "m" "剖面线" "") ; 设置当前图层为剖面线
(if (setq pt (getpoint "\n拾取内部点<退出：>"))
(progn
(command "bhatch" "p" "line" 1 45 pt) ; 填充
(while (= (getvar "cmdactive") 1)
(command "")
)
)
)
(setvar "osmode" v1) ; 恢复目标捕捉的原来状态
(setvar "cmdecho" v2) ; 恢复普通命令提示原来的显示状态
(setvar "clayer" v3) ; 恢复图层
(princ)
)

lch8526 · 发表于 2014-12-2 17:29:14

好的，谢谢你

newer · 发表于 2014-12-2 17:31:02

帮你修改成最终的吧，下面代码可以选点也可以选边界

(defun c:h11 ()
(setq v1 (getvar "osmode")) ; 获取当前的目标捕捉类型，将其赋给变?
; 縱1
(setq v2 (getvar "cmdecho")) ; 获取当前的普通命令提示状态，将其赋?
; ?淞縱2
(setq v3 (getvar "clayer")) ; 获取当前的图层，将其赋给变量v3
(setvar "osmode" 0) ; 关闭目标捕捉状态
(setvar "cmdecho" 0) ; 不显示普通命令的提示
(command "layer" "m" "剖面线" "") ; 设置当前图层为剖面线
(if (or (setq pt (getpoint "\n拾取内部点<选择边界>："))
(progn
(prompt "\n选取边界<退出>:")
(setq pt (ssget))
)
)
(progn
(if (= (type pt) 'LIST)
(command "bhatch" "p" "line" 1 45 pt ) ; 填充
(command "bhatch" "p" "line" 1 45 "s" pt ) ; 填充
)
(while (= (getvar "cmdactive") 1)
(command "")
)
)
)
(setvar "osmode" v1) ; 恢复目标捕捉的原来状态
(setvar "cmdecho" v2) ; 恢复普通命令提示原来的显示状态
(setvar "clayer" v3) ; 恢复图层
(princ)
)

(defun c:h11 () 
  (setq v1 (getvar "osmode"))               ; 获取当前的目标捕捉类型，将其赋给变? 
                                       ; 縱1 
  (setq v2 (getvar "cmdecho"))               ; 获取当前的普通命令提示状态，将其赋? 
                                       ; ?淞縱2 
  (setq v3 (getvar "clayer"))               ; 获取当前的图层，将其赋给变量v3 
  (setvar "osmode" 0)                       ; 关闭目标捕捉状态 
  (setvar "cmdecho" 0)                       ; 不显示普通命令的提示 
  (command "layer" "m" "剖面线" "")    ; 设置当前图层为剖面线 
  (if (or (setq pt (getpoint "\n拾取内部点<选择边界>：")) 
          (progn 
             (prompt "\n选取边界<退出>:") 
             (setq pt (ssget)) 
          ) 
      ) 
    (progn 
      (if (= (type pt) 'LIST) 
        (command "bhatch" "p" "line" 1 45 pt ) ; 填充 
        (command "bhatch" "p" "line" 1 45 "s" pt ) ; 填充 
      ) 
      (while (= (getvar "cmdactive") 1) 
        (command "") 
      ) 
    ) 
  ) 
  (setvar "osmode" v1)                       ; 恢复目标捕捉的原来状态 
  (setvar "cmdecho" v2)                       ; 恢复普通命令提示原来的显示状态 
  (setvar "clayer" v3)                       ; 恢复图层 
  (princ) 
)

lch8526 · 发表于 2014-12-2 17:48:40

最后的程序只能用拾取内部点，不能选择边界的，而且拾取内部点只能选择一个内部点不能选择多个内部点

lch8526 · 发表于 2014-12-2 17:54:51

newer 发表于 2014-12-2 17:31
帮你修改成最终的吧，下面代码可以选点也可以选边界

这个程序只能用拾取内部点，不能选择边界的，而且拾取内部点只能选择一个内部点不能选择多个内部点

newer · 发表于 2014-12-2 18:16:55

lch8526 发表于 2014-12-2 17:54
这个程序只能用拾取内部点，不能选择边界的，而且拾取内部点只能选择一个内部点不能选择多个内部点

最后那个程序，你取点的时候回车，就是选边界了，如果你想循环取点，你把 IF 改成WHILE就循环了。

lch8526 · 发表于 2014-12-3 11:28:49

newer 发表于 2014-12-2 18:16
最后那个程序，你取点的时候回车，就是选边界了，如果你想循环取点，你把 IF 改成WHILE就循环了。

你好，拾取内部点时把IF改成WHILE后，拾取多个内部点不能变成一个整体，请问要怎样改？

账号		自动登录	找回密码
密码			立即注册

[求助] 请帮忙修改这个程序

马上注册，结交更多好友，享用更多功能，让你轻松玩转社区。

相关帖子

点评

点评

点评

点评

点评