上七楼的快乐 发表于 2020-2-27 20:11:43

批量生成填充图形边界

大家好，本人刚学lisp的小菜鸟，也就学了7天左右，写了一个lisp小程序，批量生成填充图形的程序，但是，每次只能生成一个，不知道问题出在哪里。这个程序对平时工作有用，希望各位大神不吝赐教，指点迷津，不胜感谢，我会继续认真学习的。
[*](defun c:BJ ()
[*](command "HATCHEDIT" (ssget) "b" "P" "n")
[*](princ)
[*])

ㄘ丶转裑ㄧ灬 发表于 2020-2-28 08:39:10

(defun C:HT_502 (/ sg i s1)
(princ "\n填充重生边框，请选择填充图案：")
(setq sg (ssget '((0 . "HATCH"))) i -1)
(while (setq s1 (ssname sg (setq i (1+ i))))
    (command "-hatchedit" s1 "b" "p" "y")
   )
(princ)
)

htlaser 发表于 2021-12-26 16:37:17

15623788285 发表于 2020-11-10 20:24
能否生成边界后删除填充

(defun C:tt (/ sg i s1)
(princ "\n填充重生边框，请选择填充图案：")
(setq sg (ssget '((0 . "HATCH"))) i -1)
(while (setq s1 (ssname sg (setq i (1+ i))))
    (command "-hatchedit" s1 "b" "p" "y")
                (entdel s1)
   )
(princ)
)

start4444 发表于 2020-2-28 00:02:33

用while或者repeat 函数 做循环处理

上七楼的快乐 发表于 2020-2-28 23:16:01

ㄘ丶转裑ㄧ灬 发表于 2020-2-28 08:39


非常感谢！！！我学的还是浅薄，感激不尽。

yangchao2005090 发表于 2020-7-13 13:23:56

ㄘ丶转裑ㄧ灬 发表于 2020-2-28 08:39


请问一下，如果填充边界不关联该怎么改一下呀

ㄘ丶转裑ㄧ灬 发表于 2020-7-24 12:34:20

yangchao2005090 发表于 2020-7-13 13:23
请问一下，如果填充边界不关联该怎么改一下呀

最后一个y改为n

ㄘ丶转裑ㄧ灬 发表于 2020-7-24 13:03:49

yangchao2005090 发表于 2020-7-13 13:23
请问一下，如果填充边界不关联该怎么改一下呀

最后一个y改为n

845245015 发表于 2020-7-25 18:55:00


根据填充自动生成边界命令hl

845245015 发表于 2020-7-25 18:55:11


根据填充自动生成边界命令hl

yhly555 发表于 2020-9-1 17:18:42

今天刚好要用到，谢谢！
页: [1] 2
查看完整版本: 批量生成填充图形边界