单独的舱口

MOHAN · 发表于 2022-7-24 04:14:54

请帮助修复我到单独图案填充的路线，如下图所示。
不要担心图案填充图案。我想要的是指定内部点应根据我的单击重复（应重复6次）
我希望你明白我的意思。

(defun c:pavementlayout ( / hpn p el )
(setvar 'hpname "ANSI31")
(initget 1)
(if (setq hatch (ssget ":S:L" '((0 . "HATCH"))))
(progn
(command "HATCHGENERATEBOUNDARY" hatch "") (command "Erase" hatch "")))
(setq p (getpoint "\nPick or specify internal point : "))
(vl-cmdf "_.-BHATCH" "_P" "" 0.05 0.0 "_A" "_B" "_E" "_S" "_N" "_A" "_N" "_H" "_N" "" "_non" p)
    (while (
(princ))

5qulexwswoz.png

本帖以下内容被隐藏保护；需要你回复后，才能看到！

游客，如果您要查看本帖隐藏内容请回复

MOHAN · 发表于 2022-7-24 11:14:40

copy

(defun c:pavementlayout ( / hpn p el )
(setvar 'hpname "ANSI31")
(initget 1)
(if (setq hatch (ssget ":S:L" '((0 . "HATCH"))))
(progn
(command "HATCHGENERATEBOUNDARY" hatch "") (command "Erase" hatch "")))
(while (setq p (getpoint "\nPick or specify internal point : "))
  (vl-cmdf "_.-BHATCH" "_P" "" 0.05 0.0 "_A" "_B" "_E" "_S" "_N" "_A" "_N" "_H" "_N" "" "_non" p)
  (vl-cmdf "")
) 
(princ))

我已经修复了自己。

[编程交流] 单独的舱口

发表回复

精选推荐