[求助]：比如当前层是0层，下列的命令为什么不能bhatch到指定的hatch层？

hnfsf · 发表于 2005-11-8 12:47:43

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

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

×

比如当前层是0层，下列的命令为什么不能bhatch到指定的hatch层？
(initdia)
(command ".bhatch")
(command "Chprop" (entlast) "" "LA" "hatch" "")

eachy · 发表于 2005-11-8 13:26:31

这样的语句执行完第一个 Command 后是不会执行第二个 Command 的。

Underway · 发表于 2005-11-8 13:35:13

(command ".bhatch")

(while (not (zerop (GetVar "cmdactive"))) (command pause))

or

(while (eq 1 (logand 1 (getvar "CMDACTIVE")))
(command pause)
)

;; Must have hatch already
(command "Chprop" (entlast) "" "LA" "hatch" "")

hnfsf · 发表于 2005-11-9 05:41:41

谢谢各位的指教，
又学了一招。
程序写完，共享再指教。
；；；方便简洁的填充程序

;;;选择填充[1-填实]/[2-钢筋混凝土]/[3-素混凝土]/[4-砖]/[5-钢材]/[回车进入对话框]
(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 (= (getvar "cmdnames") "-BHATCH")
(command pause)
)
)
(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)
)

;;;选择填充[1-填实]/[2-钢筋混凝土]/[3-素混凝土]/[4-砖]/[5-钢材]/[回车进入对话框] 
(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 (= (getvar "cmdnames") "-BHATCH") 
            (command pause) 
          ) 
        ) 
       (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) 
)

zqw_zhang · 发表于 2005-11-9 17:09:16

可以继续添加其它形式的填充么？？？

oauron · 发表于 2005-11-9 19:53:58

MNU和.LSP文件的调用顺序是怎样的

hnfsf · 发表于 2005-11-10 17:44:24

最初由 zqw_zhang 发布
[B]可以继续添加其它形式的填充么？？？ [/B]

依葫芦画瓢，加入你自己想加的就行。

(progn
      (initdia)
      (IF T (command ".bhatch"))
      (while (eq 1 (logand 1 (getvar "CMDACTIVE")))
(command pause)
   )
      (command "Chprop" (entlast) "" "LA" "hatch" "")
   )

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

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

[求助] [求助]：比如当前层是0层，下列的命令为什么不能bhatch到指定的hatch层？

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

相关帖子

依葫芦画瓢，加入你自己想加的就行。