About the "boundary" command

alin

How to use "boundary" in LISP and get the boundary set?

f5612140

1. (setq bp (bpoly pt))


2. (command "bpoly" pt "")


兩者在孤島運用上有些微差異

alin

(defun C:steph()
;;; (make_layer "BOUNDARY" 8 nil)
(setvar "CLAYER" "BOUNDARY")
(command "boundary")
(setq ss_b (ssget "x" '((8 . "BOUNDARY"))))
(command "_hatch" "_user" 75 50 "n" ss_b "")
); The rutine above stop after the boundaries are created, why? Anybody can help me fix it? Many thanks

无痕

"BOUNDARY“层上的都闭合么？

alin

Boundary图层是开着的. 其实不关图层的事. 问题是(command "boundary")之后,边界生成了,程序就不再往下运行了. 记得陈坛主曾回答过一个关于判断一点在闭合形内还是外的问题, 应该对这问题的回答有帮助.

f5612140

邊界已生成就不是點在內外的問題,改用2樓的方法試一下吧

alin

(defun C:steph()
(setq ss_b (ssadd))
(while (setq boundary (bpoly (getpoint "\nSelect internal point: ")))
(setq ss_b (ssadd boundary ss_b))
(vla-highlight (vlax-ename->vla-object boundary) :vlax-true)
);while
(if ss_b
(progn
(command "_hatch" "_user" 75 50 "n" ss_b "")
(command "_hatch" "_user" 105 50 "n" ss_b "")
(setq idx 0)
(repeat (sslength ss_b)
(entdel (ssname ss_b idx))
(setq idx (1+ idx))
);
)
)
(princ)
); Now it better. Thanks BUt it dosen't work quite well... 1. The neighbouring existing boundaries will be de-highlighted when a new boundary is created.
2. How to deal with the duplicated existing boundaries?