弧形半径
**** Hidden Message ***** 哎呀! 听起来像是 MEASURE 命令的工作。 这建议您将弧线的拉伸限制在一个座位单位的间距内,然后使用环形阵列 嗯。没有极坐标排列动作。。。 没有极地行动。我看到参数了。。.. 这是个参数集 是的,我知道-但它不是Polar Array:它是一个带有矩形数组动作的Polar Stretch参数。没有Polar Array动作。无论如何,谢谢您的帮助。马特:我接受了你的建议,只是将其更改为除法,因为我希望它也能填满弧。这是一个快速而肮脏的例程:
(defun c:MakeTheaterSeats(/ ent obj len num)
(setq ent (car (entsel "\nSelect the arc: ")))
(if ent
(progn (setq obj (vlax-ename->vla-object ent)
len (vla-get-ArcLength obj))
(setq num (fix (/ len 22.0)))
(command "divide" ent "block" "seata" "Y" num))))
(defun c:qq()(c:MakeTheaterSeats))
页:
[1]