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

快速填充

本帖最后由 /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:46

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

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

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

能分享下代码吗谢谢

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

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

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

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

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

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

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

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

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

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

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

:victory:NB

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

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

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

很方便的程序，多谢分享
页: [1] 2
查看完整版本: 快速填充