快速填充的多选问题

alexmai · 发表于 2019-3-21 23:47:11

本帖最后由 alexmai 于 2019-3-22 00:35 编辑

--------------------------------------------------------------------------------------------
明经找到这个资料，但都不是我想要的，我想设置“点选”为第一步，而不是“选择”为第一步
(defun C:kh (/ s1)             ;快速选择对象，填充图案
(setvar "cmdecho" 0)
   (setvar "hpassoc" 1)  ;控制填充图案是否关联(1:是；0:否)
   (princ "\n快捷填充，请选择填充区域：(***跳过则为拾取内部点填充）")
(if (setq s1 (ssget))
      (command "bhatch" "s" s1 "" "")
      (progn
         (princ "\n请拾取填充内部点：")
         (command "bhatch" pause)
      );progn
   );if
(princ)
);defun

(defun C:H1 (/ 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"    "G-SLAB-HATCH（板填充）"
   "c"  "11"    "" "lw"
   "0.13"  ""    "l"  "Continuous"
   "" ""    "_.bhatch"  "p"
   "ANGLE,_o"  "40"    "45"  "s"
   s1       ""    ""
   )
(progn
   (princ "\n请拾取填充内部点：")
      (IF (vl-cmdf "layer"  "m"    "G-SLAB-HATCH（板填充）"
   "c"  "11"    "" "lw"
   "0.13"  ""    "l"  "Continuous"
   "" ""
         "_.bhatch" (getpoint) "p"  "ANGLE,_o" "40" "45" "")
   (princ "\n请选择填充...")
   )
   )
  )
(princ)
)

--------------------------------------------------------------------------------------------
为了方便填充，特此写了这个快捷填充，快捷填充我上次设置好的内容，
但发觉不怎么好用，不知问题出现哪里？

另外，我想多选时填充为各自独立的填充，
而不是组合为一个整体填充，如何调整？
(defun c:hh ()
  (setvar "cmdecho" 0)
  (command "undo" "be")
  (command "-color" "8")
  (if
   (princ "\n请拾取填充内部点：(***跳过则为选择填充区域填充）")
   (setq pt (getpoint))
   (command "-bhatch" "O" "D" "L" "Y" pt "")
(progn
   (princ "\n快捷填充，请选择填充区域")
   (setq ss (ssget '((0 . "POLYLINE,LWPOLYLINE,CIRCLE,ELLIPSE"))))
      (vl-load-com)
      (setq i 0  )
      (setq num (sslength ss))
      (repeat num
         (setq entnam (ssname ss i))
         (command "-bhatch" "O" "D" "L" "Y" "s" ss "" "")
      )
   )
   (setq i (1+ i))
)
  )
  (command "undo" "e")
  (princ)
)

start4444 · 发表于 2019-3-22 10:02:49

(defun c:tt5 ()
  (command "-color" "8")
(setq t T)
  (while t
(if
(setq pt (getpoint"\n请拾取填充内部点：(***跳过则为选择填充区域填充）"))
(command "-bhatch" "O" "D" "L" "Y" pt "")
(progn
(princ "\n快捷填充，请选择填充区域")
(setq ss (ssget '((0 . "POLYLINE,LWPOLYLINE,CIRCLE,ELLIPSE"))))
(setq i -1  )
(setq num (sslength ss))
(repeat num
(setq entnam (ssname ss (setq i (1+ i))))
(command "-bhatch" "O" "D" "L" "Y" "s" entnam "" "")
)
)
)
)
  (princ)
)

alexmai · 发表于 2019-3-22 10:27:54

start4444 发表于 2019-3-22 10:02
(defun c:tt5 ()
(command "-color" "8")
(setq t T)

      (setq t T)
  (while t

这两句是什么意思？

修改了一下，搞定，谢谢！
(defun c:hh ()
  (setvar "cmdecho" 0)
  (command "undo" "be")
  (command "-color" "8")
  (if
      (setq pt (getpoint"\n请拾取填充内部点：\(***跳过则为选择填充区域填充\）"))
      (command "-bhatch" "O" "D" "L" "Y" pt "")
   (progn
      (princ "\n快捷填充，请选择填充区域")
      (setq ss (ssget '((0 . "POLYLINE,LWPOLYLINE,CIRCLE,ELLIPSE"))))
      (setq i -1  )
      (setq num (sslength ss))
      (repeat num
         (setq entnam (ssname ss (setq i (1+ i))))
         (command "-bhatch" "O" "D" "L" "Y" "s" entnam "" "")
      )
   )
  )
  (command "undo" "e")
  (princ)
)

434939575 · 发表于 2019-3-22 09:19:37

hh: (if
   (princ "\n请拾取填充内部点：(***跳过则为选择填充区域填充）")
   (setq pt (getpoint))
   (command "-bhatch" "O" "D" "L" "Y" pt "")
条件怎么这么多.

start4444 · 发表于 2019-3-22 12:01:31

alexmai 发表于 2019-3-22 10:27
(setq t T)
(while t

你自己对比一下就知道了，有的话可以循环选择，看需求

muai2010 · 发表于 2024-8-9 22:26:36

start4444 发表于 2019-3-22 12:01
你自己对比一下就知道了，有的话可以循环选择，看需求

很棒，就是如果不点也不选择退不出循环，怎么加上退出设置呢

a405692168 · 发表于 2024-8-10 06:55:47

试下效果！！！很好！

lee50310 · 发表于 2024-8-10 14:17:01

本帖最后由 lee50310 于 2024-8-11 09:09 编辑

muai2010 发表于 2024-8-9 22:26
很棒，就是如果不点也不选择退不出循环，怎么加上退出设置呢

;;按Q键 ==> 离开
;;左击鼠==> 填满内部点
;;按enter键,SPACE键或右击鼠==> 选择填充区域

執行指令:tt6

muai2010 · 发表于 2024-8-10 21:57:49

lee50310 发表于 2024-8-10 14:17
;;按Q键 ==> 离开
;;左击鼠==> 填满内部点
;;按enter键,SPACE键或右击鼠==> 选择填充区域

感谢解答，好像有点问题

lee50310 · 发表于 2024-8-10 23:46:49

本帖最后由 lee50310 于 2024-8-10 23:56 编辑

muai2010 发碛� 2024-8-10 21:57
感谢解答，好像有点问题

填充要有封閉的物體,
你要畫一些矩型框或圓型框在執行tt6程式點選他門

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

[源码] 快速填充的多选问题

评分

本帖子中包含更多资源

本帖子中包含更多资源

本帖子中包含更多资源