单独的舱口
请帮助修复我到单独图案填充的路线，如下图所示。不要担心图案填充图案。我想要的是指定内部点应根据我的单击重复（应重复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))
**** Hidden Message ***** (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))
我已经修复了自己。
页:
[1]