请求大大，这个填充是论坛里的改了一下，但是为什么捕捉老要变成这样？
;;预设常用填充H;;V1.2
;;增加记忆功能，提高填充的使用方便性
;;----------------------------------
(defun c:TC (/ opt oldcolor *error*)
(defun *error* (msg)
(setvar "cecolor""bylayer") ;_ 恢复颜色随层；
(princ "错误信息: ")
(princ msg) ;_ 打印错误信息
(princ)
)
(setvar "measurement" 0) ; 设置公制单位
(setvar "cmdecho" 0) ; 关闭命令响应
(setvar "hpassoc" 0) ;设置填充时不关联
(setq oldcolor (getvar "cecolor"))
(if *num_HType*
(setq num_HType (getint (strcat "\n选择填充样式①墙纸 ②混凝土 ③钢筋混凝土 ④玻璃 ⑤地砖300 ⑥地砖600 ⑦大理石 ⑧木纹 ⑨拉丝间距50 ⑩实体填充 ⑾水平板剖 ⑿垂直板剖⒀磨砂⒁木剖⒂石材剖⒃金属剖: <" (rtos *num_HType* 2 0) ">")))
(setq num_HType (getint "\n选择填充样式 ①墙纸 ②混凝土 ③钢筋混凝土 ④玻璃 ⑤地砖300 ⑥地砖600 ⑦大理石 ⑧木纹 ⑨拉丝间距50 ⑩实体填充 ⑾水平板剖 ⑿垂直板剖⒀磨砂⒁木剖⒂石材剖⒃金属剖: " ))
)
(if (not num_HType)
(setq num_HType *num_HType*)
(setq *num_HType* num_HType)
)
(setq opt num_HType)
(if (< 0 opt 17) (eval (read(strcat "(tianchong" (itoa opt) ")"))));根据选项参数执行填充样式
(if (setq ss (ssget))
(command "bhatch" "s" ss "" "") ;如果选择集不为空，则执行对象填充
(progn;如果选择集为空，则执行点选命令
(prompt "\n请拾取填充内部点：\n")
(command "bhatch" pause)
(while (> (getvar "CMDACTIVE") 0) (command PAUSE))
))
(command "color" oldcolor) ;设置为原有颜色
;;(setvar "cecolor""bylayer");设置颜色随层
(princ)
)
(defun tianchong1 ()
(prompt "\n当前样式: ①墙纸\n")
(prompt "\n请选择对象,跳过则为拾取内部点：\n")
(command "color" "250")
(command "bhatch" "p" "CROSS" "150" "0" "")
)
(defun tianchong2 ()
(prompt "\n当前样式: ②混凝土\n")
(prompt "\n请选择对象,跳过则为拾取内部点：\n")
(command "color" "250")
(command "bhatch" "p" "混凝土" "30" "0" "")
)
(defun tianchong3 ()
(prompt "\n当前样式: ③钢筋混凝土\n")
(prompt "\n请选择对象,跳过则为拾取内部点：\n")
(command "color" "250")
(command "bhatch" "p" "钢筋混凝土" "30" "0" "")
)
(defun tianchong4 ()
(prompt "\n当前样式: ④玻璃\n")
(prompt "\n请选择对象,跳过则为拾取内部点：\n")
(command "color" "250")
(command "bhatch" "p" "AR-RROOF" "350" "45" "")
)
(defun tianchong5 ()
(prompt "\n当前样式: ⑤300x300地砖\n")
(prompt "\n请选择对象,跳过则为拾取内部点：\n")
(command "color" "250")
(command "bhatch" "p" "U" "0" "300" "Y" "")
)
(defun tianchong6 ()
(prompt "\n当前样式: ⑥600x600地砖\n")
(prompt "\n请选择对象,跳过则为拾取内部点：\n")
(command "color" "250")
(command "bhatch" "p" "U" "0" "600" "Y" "")
)
(defun tianchong7 ()
(prompt "\n当前样式: ⑦大理石\n")
(prompt "\n请选择对象,跳过则为拾取内部点：\n")
(command "color" "250")
(command "bhatch" "p" "大理石" "100" "0" "")
)
(defun tianchong8 ()
(prompt "\n当前样式: ⑧木纹\n")
(prompt "\n请选择对象,跳过则为拾取内部点：\n")
(command "color" "250")
(command "bhatch" "p" "木纹02" "80" "90" "")
)
(defun tianchong9 ()
(prompt "\n当前样式: ⑨拉丝间距50\n")
(prompt "\n请选择对象,跳过则为拾取内部点：\n")
(command "color" "250")
(command "bhatch" "p" "U" "0" "50" "N" "")
)
(defun tianchong10 ()
(prompt "\n当前样式:⑩实体填充\n")
(prompt "\n请选择对象,跳过则为拾取内部点：\n")
(command "color" "250")
(command "bhatch" "p" "SOLID" "0" "0" "")
)
(defun tianchong11 ()
(prompt "\n当前样式: ⑾水平板剖\n")
(prompt "\n请选择对象,跳过则为拾取内部点：\n")
(command "color" "250")
(command "bhatch" "p" "cork" "4" "90" "")
)
(defun tianchong12 ()
(prompt "\n当前样式: ⑿垂直板剖\n")
(prompt "\n请选择对象,跳过则为拾取内部点：\n")
(command "color" "250")
(command "bhatch" "p" "cork" "4" "0" "")
)
(defun tianchong13 ()
(prompt "\n当前样式: ⒀磨砂\n")
(prompt "\n请选择对象,跳过则为拾取内部点：\n")
(command "color" "250")
(command "bhatch" "p" "DOTS" "500" "0" "")
)
(defun tianchong14 ()
(prompt "\n当前样式: ⒁砖剖\n")
(prompt "\n请选择对象,跳过则为拾取内部点：\n")
(command "color" "250")
(command "bhatch" "p" "ANSI31" "40" "0" "")
)
(defun tianchong15 ()
(prompt "\n当前样式: ⒂石材剖\n")
(prompt "\n请选择对象,跳过则为拾取内部点：\n")
(command "color" "250")
(command "bhatch" "p" "ANSI33" "40" "0" "")
)
(defun tianchong16 ()
(prompt "\n当前样式: ⒃金属剖\n")
(prompt "\n请选择对象,跳过则为拾取内部点：\n")
(command "color" "250")
(command "bhatch" "p" "ANSI32" "40" "0" "")
)
事先保存捕捉设置;;预设常用填充H
;;V1.2
;;增加记忆功能，提高填充的使用方便性
;;----------------------------------
(defun c:TC (/ opt oldcolor *error*)
(defun *error* (msg)
(setvar "cecolor" "bylayer") ;_ 恢复颜色随层；
(if oldos (setvar "OSMODE" oldos))
(princ "错误信息: ")
(princ msg) ;_ 打印错误信息
(princ)
)
(setvar "measurement" 0) ;设置公制单位
(setvar "cmdecho" 0) ;关闭命令响应
(setvar "hpassoc" 0) ;设置填充时不关联
(setq oldcolor (getvar "cecolor"))
(setq oldos (getvar "OSMODE"))
(setq tcys "\n选择填充样式:1墙纸/2混凝土/3钢筋混凝土/4玻璃/5地砖300/6地砖600/7大理石/8木纹/9拉丝间距50/10实体填充/11水平板剖/12垂直板剖/13磨砂/14木剖/15石材剖/16金属剖: ")
(if *num_HType*
(setq num_HType (getint (strcat tcys "<" (rtos *num_HType* 2 0) ">")))
(setq num_HType (getint tcys))
)
(if (not num_HType)
(setq num_HType *num_HType*)
(setq *num_HType* num_HType)
)
(setq opt num_HType)
(command "color" "250")
(if (< 0 opt 17) (eval(read(strcat "(tianchong" (itoa opt) ")"))));根据选项参数执行填充样式
(if (setq ss (ssget))
(command "bhatch" "s" ss "" "") ;如果选择集不为空，则执行对象填充
(progn;如果选择集为空，则执行点选命令
(prompt "\n请拾取填充内部点：\n")
(command "bhatch" pause)
(while (> (getvar "CMDACTIVE") 0) (command PAUSE))
))
(command "color" oldcolor) ;设置为原有颜色
;;(setvar "cecolor""bylayer");设置颜色随层
(setvar "OSMODE" oldos)
(princ)
)
(defun tianchong1 ()
(prompt "\n当前样式: ①墙纸\n请选择对象,跳过则为拾取内部点: ")
(command "bhatch" "p" "CROSS" "150" "0" "")
)
(defun tianchong2 ()
(prompt "\n当前样式: ②混凝土\n请选择对象,跳过则为拾取内部点:")
(command "bhatch" "p" "混凝土" "30" "0" "")
)
(defun tianchong3 ()
(prompt "\n当前样式: ③钢筋混凝土\n请选择对象,跳过则为拾取内部点:")
(command "bhatch" "p" "钢筋混凝土" "30" "0" "")
)
(defun tianchong4 ()
(prompt "\n当前样式: ④玻璃\n请选择对象,跳过则为拾取内部点：\n")
(command "bhatch" "p" "AR-RROOF" "350" "45" "")
)
(defun tianchong5 ()
(prompt "\n当前样式: ⑤300x300地砖\n请选择对象,跳过则为拾取内部点:")
(command "bhatch" "p" "U" "0" "300" "Y" "")
)
(defun tianchong6 ()
(prompt "\n当前样式: ⑥600x600地砖\n请选择对象,跳过则为拾取内部点:")
(command "bhatch" "p" "U" "0" "600" "Y" "")
)
(defun tianchong7 ()
(prompt "\n当前样式: ⑦大理石\n请选择对象,跳过则为拾取内部点:")
(command "bhatch" "p" "大理石" "100" "0" "")
)
(defun tianchong8 ()
(prompt "\n当前样式: ⑧木纹\n请选择对象,跳过则为拾取内部点:")
(command "bhatch" "p" "木纹02" "80" "90" "")
)
(defun tianchong9 ()
(prompt "\n当前样式: ⑨拉丝间距50\n请选择对象,跳过则为拾取内部点:")
(command "bhatch" "p" "U" "0" "50" "N" "")
)
(defun tianchong10 ()
(prompt "\n当前样式:⑩实体填充\n请选择对象,跳过则为拾取内部点:")
(command "bhatch" "p" "SOLID" "0" "0" "")
)
(defun tianchong11 ()
(prompt "\n当前样式: ⑾水平板剖\n请选择对象,跳过则为拾取内部点:")
(command "bhatch" "p" "cork" "4" "90" "")
)
(defun tianchong12 ()
(prompt "\n当前样式: ⑿垂直板剖\n请选择对象,跳过则为拾取内部点:")
(command "bhatch" "p" "cork" "4" "0" "")
)
(defun tianchong13 ()
(prompt "\n当前样式: ⒀磨砂\n请选择对象,跳过则为拾取内部点:")
(command "bhatch" "p" "DOTS" "500" "0" "")
)
(defun tianchong14 ()
(prompt "\n当前样式: ⒁砖剖\n请选择对象,跳过则为拾取内部点:")
(command "bhatch" "p" "ANSI31" "40" "0" "")
)
(defun tianchong15 ()
(prompt "\n当前样式: ⒂石材剖\n请选择对象,跳过则为拾取内部点:")
(command "bhatch" "p" "ANSI33" "40" "0" "")
)
(defun tianchong16 ()
(prompt "\n当前样式: ⒃金属剖\n请选择对象,跳过则为拾取内部点:")
(command "bhatch" "p" "ANSI32" "40" "0" "")
) -bhatch会临时禁用捕捉，好像没办法改 唉。不知道哪里出错了，不光是这充填的问题了。现在好多VLX打包的命令都会锁定上面的捕捉，清也不清不了……。 谢谢ZZXXQQ 的再次帮忙 ，成分感谢，在出差，回去试试 ！ 谢谢版主大大,打包其它的LSP也检查出了问题.谢谢修正
页:
[1]