是的,我知道-但它不是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))
|