请问下，有跟贱人工具箱5.8继承填充一样的源码插件吗

yoyrtweq

请问下，有跟贱人工具箱5.8继承填充一样的源码插件吗，点选的，不要框选的。因为贱人工具箱有很多用不上。麻烦各位了

KO你

快捷键  ch  填充继承特性
(defun c:ch(/ e en key n p ss tc_ang tc_col tc_e tc_la tc_name tc_scle tc_vlae)
  (cxsta)
  (vl-load-com)
  (setq en (entlast))
  (if (setq tc_e (car (entsel "\n选择填充源图案:")))
    (progn
      (IF (= (CDR (ASSOC 0 (ENTGET TC_E))) "HATCH")
(PROGN
   (setq tc_vlae (vlax-ename->vla-object tc_e)
  tc_name (vla-get-patternname tc_vlae)
  tc_scle (vla-get-patternscale tc_vlae)
  tc_ang (vla-get-patternangle tc_vlae)
  tc_la (vla-get-layer tc_vlae)
  tc_col (vla-get-color tc_vlae)
   )
   (if (= "_USER" tc_name)
     (command "bhatch"
       "p"
       "U"
       (* 180 (/ tc_ang pi))
       tc_scle
       "y"
       ""
     )
     (command "bhatch"
       "p"
       tc_name
       tc_scle
       (* 180 (/ tc_ang pi))
       ""
     )
   )
   (thpanduan)
   (if (setq ss (cx-en-ss en))
     (progn
       (cx-gs ss tc_col)
       (repeat (setq n (sslength ss))
  (vla-put-layer
    (vlax-ename->vla-object (ssname ss (setq n (1- N))))
    tc_la
  )
       )
     )
   )
)
      )
    )
    (PROMPT "选择的不是填充\n")
  )
  (cxend)
)
     ;api接口 填充判断
(defun thpanduan ()
  (if (setq ss (ssget))
    (command "bhatch" "s" ss "" "") ;如果选择集不为空，则执行对象填充
    (progn    ;如果选择集为空，则执行点选命令
      (prompt "\n请拾取填充内部点：\n")
      (command "bhatch" pause)
      (while (> (getvar "CMDACTIVE") 0) (command PAUSE))
    )
  )
)
     ;返回en之后的选择集
(defun cx-en-ss (en / ss)
  (if en
    (progn
      (setq ss (ssadd))
      (while (entnext en)
(setq ss (ssadd (entnext en) ss))
(setq en (entnext en))
      )
      (if (> (sslength ss) 0)
ss
nil
      )
    )
  )
)
(defun cx-gs (en clo / en clo)
  (cond
    ((= (type en) 'ENAMe)
     (vla-put-Color (vlax-ename->vla-object en) clo)
    )
    ((= (type en) 'PICKSET)
     (repeat (setq i (sslength en))
       (vla-put-Color
  (vlax-ename->vla-object (ssname en (setq i (1- i))))
  clo
       )
     )
    )
    ((= (type en) 'VLA-OBJECT)
     (vla-put-Color en clo)
    )
  )
)

(defun cxsta ()
  (setvar "cmdecho" 0)   ; 关闭命令响应
  (setq $orr *error*)
  (setq *error* #err2)   ; 当程序出错时就会执行#err函数
  (command ".UNDO" "BE")  ; 设置UNDO起点
)
(defun cxend ()
  (command ".UNDO" "E")   ; 设置UNDO终点
  (setq *error* $orr)
  (setvar "osmode" 15359)
  (princ)
)
;;; 出错处理函数
(defun #err2 (s)
  (command ".UNDO" "E")   ; 设置UNDO终点
  (redraw name1 4)
  (redraw name2 4)
  (princ)
  (setq *error* $orr)
)

yoyrtweq

KO你 发表于 2018-12-2 23:23
快捷键  ch  填充继承特性
(defun c:ch(/ e en key n p ss tc_ang tc_col tc_e tc_la tc_name tc_scle tc_ ...

感谢，这个是框选式的 我想要点选，贱人的是点选

KO你

yoyrtweq 发表于 2018-12-3 08:39
感谢，这个是框选式的 我想要点选，贱人的是点选

框选和点选都可以
CH命令后是框选
CH命令后 空格是点选

yoyrtweq

KO你 发表于 2018-12-3 20:23
框选和点选都可以
CH命令后是框选
CH命令后 空格是点选

框选不太喜欢，你能改为点选吗

yoyrtweq

KO你 发表于 2018-12-3 20:23
框选和点选都可以
CH命令后是框选
CH命令后 空格是点选

不对，CH后 空格 选填充图案后 只能框选，在空格的话 退出了，

黄杰荣

继承填充cad 有命令呀 AD

zmzk

收藏了，可以用的！

vista228

KO你 发表于 2018-12-2 23:23
快捷键  ch  填充继承特性
(defun c:ch(/ e en key n p ss tc_ang tc_col tc_e tc_la tc_name tc_scle tc_ ...

不错不错  挺好用的

下文没句号。

6666666666