hatch命令的内部点选取

linear

对一个中空物体取横截面，用 (command "-bhatch" "a" "s" "n" "" "p" "u" 0 0.2 "n" ptms "")去获得中间空着的部分的剖面线。用的类型是normal. ptms是内部点，请问如何用visual lisp获得中间空着部分的内部点？谢谢！

f5612140

用面域可得centroid (setq xobj (vlax-ename->vla-object ename))
(setq ptlist (vla-get-Centroid xobj))
(setq ptms (vlax-safearray->list (variant-value ptlist)))

meflying

(setq ptms (getpoint "ick a point:"))

cqnj023

大概是想要2楼的直接获取的方法，但如果中空部分不规则，2楼获得的点在面域外，如图。因此，若图形不规则，可能还是要用3楼的办法，或则采用计算法。

f5612140

剖面線用選物件的方式亦可得

无痕

要点来干什么？目的是什么？

Ea

cqnj023发表于2004-6-4 14:23:00大概是想要2楼的直接获取的方法，但如果中空部分不规则，2楼获得的点在面域外，如图。因此，若图形不规则，可能还是要用3楼的办法，或则采用计算法。

构造一个辅助线可以确保求出的点是曲线内部点，无论是凸多边形还是凹多边形。

jfmyes

请问，当Ｈatch的关联去消后，如何获取各点的坐标

byghbcx

(command "-bhatch" "a" "s" "n" "" "p" "u" 0 0.2 "n" ptms "")

把点选改成选择对象,将黄色部分改成"S" SS "",但SS要先计算好(如果不计算好,你的PTMS也算不出).