随梦而飞 发表于 2012-8-13 09:33:25

悬赏填充生成边线源码

本帖最后由 随梦而飞 于 2012-8-13 09:49 编辑

悬赏填充生成边线源码

sd3188000 发表于 2023-7-22 13:23:24

楼上发的lisp 看不见

陨落 发表于 2012-8-13 10:22:50

悬赏多少？

小菜123 发表于 2012-8-13 10:29:43

网上有现成的，叫hatchb.lsp

ZZXXQQ 发表于 2012-8-13 10:44:35

仅针对楼主提供的图样

;实体填充转复线 明经 ZZXXQQ 2012.8.13
(defun c:tt ()
(setvar "CMDECHO" 0)
(command "_.UNDO" "BE")
(if (and (princ "\n选择柱子 :")
          (setq ss (ssget '((2 . "SOLID"))))) (progn
(setq i -1)
(repeat (sslength ss)
   (setq ent (entget(ssname ss (setq i (1+ i))))
         tmp (member '(2 . "SOLID") ent)
         ptlst (list))
   (foreach x tmp (if (= (car x) 10) (setq ptlst (cons (cdr x) ptlst))))
   (setq ptlst (cdr ptlst))
   (command "_.RECTANG" (car ptlst) (caddr ptlst))
)
))
(command "_.UNDO" "E")
(setvar "CMDECHO" 1)
(princ)
)

lpl 发表于 2012-8-13 12:20:06

赏在哪里？？？？？？？？？？？？？？？？？

flytoday 发表于 2012-8-13 12:40:24

口头悬赏……悬着无赏

随梦而飞 发表于 2012-8-13 12:57:51

ZZXXQQ 发表于 2012-8-13 10:44 static/image/common/back.gif
仅针对楼主提供的图样


如果不需在图中选
直接由填充生成边线就好了

随梦而飞 发表于 2012-8-13 13:11:20

lpl 发表于 2012-8-13 12:20 static/image/common/back.gif
赏在哪里？？？？？？？？？？？？？？？？？

我想将我的全部明经币给他，可是不知如何给，你回答

500w008 发表于 2012-8-13 23:47:24

历史片 发表于 2012-8-18 22:17:20

查找项(0 . "HATCH")，循环使用 -HATCHEDIT中重创边界
页: [1] 2
查看完整版本: 悬赏填充生成边线源码