快速填充

/fendou结构绘图 · 发表于 2018-8-28 18:15

本帖最后由 /fendou结构绘图于 2018-9-12 14:05 编辑

[此填充可框选可点选，认孤岛]由于每个人CAD工作环境不一样，填充出来的比例不统一(公司有制图标准的)，故开发了一个能保正每个人统一填充样式的LSP，参考别人的写了一个简单实用的。  (command "layer" "m" "自行添加自己需要的图层" "")~(COMMAND "自行添加自己需要的填充样式" "P" "NET" "自行添加自己需要的比例" "自行添加自己需要的角度" p "")~。
(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)
)

蓝盾设计 · 发表于 2019-7-26 05:18

群主

princ "\n请拾取填充内部点：")如何增加两点选择填充,我想有选择取悦填充,点内填充,两点填充?怎么添加两点填充命令,求指教

664571221 · 发表于 2020-8-9 15:09

arcers 发表于 2019-4-9 22:02
非常感谢楼主，已做了一个面板。
缺点：不能连续选择填充区域。

能分享下代码吗谢谢

蓝盾设计 · 发表于 2019-1-16 23:47

(princ "\n请拾取填充内部点：")你的请选择填充该怎么写，请指教！我在里面添加了其它填充样式

暮雨晨曦 · 发表于 2019-3-29 14:12

代码都很好，感谢楼主分享

yoyoho · 发表于 2019-3-30 11:37

感谢楼主分享!!!!!!

arcers · 发表于 2019-4-9 22:02

本帖最后由 arcers 于 2019-4-16 09:47 编辑

非常感谢楼主，已做了一个面板。
缺点：不能连续选择填充区域。

/fendou结构绘图 · 发表于 2019-6-3 14:26

arcers 发表于 2019-4-9 22:02
非常感谢楼主，已做了一个面板。
缺点：不能连续选择填充区域。

NB

zmzk · 发表于 2019-6-10 06:07

奇怪，COMMAND "自行添加自己需要的填充样式" ？？？这一步内搞懂？大侠们，怎么指定填充样式？？？？

sunny_8848 · 发表于 2019-9-25 23:09

很方便的程序，多谢分享

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

快速填充

本帖子中包含更多资源