怎么切割等分圆??

zara

直接做到这样是不能的, 因为, ACAD 不支持360° 的圆弧, 所以, 第一次打断就不能实现. 比较简单的可能还是先切断成一个 1/n 圆弧, 然后再圆形阵列

ljpnb

2. (defun c:test (/ ent old-num num p0 p1 param div-param i point)
3.   (setq ent (car (entsel "\n选择需要等分的圆:")))
4.   (if (null old-num)
5.     (setq old-num 2)
6.   )
7.   (if (setq num (getint (strcat "\n输入等分数量<" (rtos old-num) ">:")))
8.     (setq old-num num)
9.     (setq num old-num)
10.   )
11.   (setq obj (vlax-ename->vla-object ent))
12.   (setq p0   (vlax-curve-getStartPoint obj)
13. param   (vlax-curve-getEndParam obj)
14. div-param (/ param num)
15.   )
16.   (setq p1 (vlax-curve-getPointAtParam obj -0.1))
17.   (command "break" ent "none" p1 "none" p0)
18.   (setq i 1)
19.   (repeat (1- num)
20.     (setq point (vlax-curve-getPointAtParam obj (* i div-param)))
21.     (command "break" ent "none" point "none" point)
22.     (setq ent (entlast))
23.     (setq obj (vlax-ename->vla-object ent))
24.     (setq i (1+ i))
25.   )
26.   (vla-put-endangle obj 0.0)
27.   (princ)
28. )

(defun c:test (/ ent old-num num p0 p1 param div-param i point)   (setq ent (car (entsel "\n选择需要等分的圆:")))   (if (null old-num)     (setq old-num 2)   )   (if (setq num (getint (strcat "\n输入等分数量<" (rtos old-num) ">:")))     (setq old-num num)     (setq num old-num)   )   (setq obj (vlax-ename->vla-object ent))   (setq p0   (vlax-curve-getStartPoint obj) param   (vlax-curve-getEndParam obj) div-param (/ param num)   )   (setq p1 (vlax-curve-getPointAtParam obj -0.1))   (command "break" ent "none" p1 "none" p0)   (setq i 1)   (repeat (1- num)     (setq point (vlax-curve-getPointAtParam obj (* i div-param)))     (command "break" ent "none" point "none" point)     (setq ent (entlast))     (setq obj (vlax-ename->vla-object ent))     (setq i (1+ i))   )   (vla-put-endangle obj 0.0)   (princ) )

xyp1964

(setq p1 (vlax-curve-getPointAtParam obj -0.1))

是一招，不错！

chinadawei

也是,想也不能一步做到位吧,大不了,多做几步啊,反正要的结果是一样的就可以了,

 

hecsxl

break

sony-lin

命令: test
选择需要等分的圆:
输入等分数量<2>:8 ; 错误: no function definition: VLAX-ENAME->VLA-OBJECT

这个是什么错误?>?

ljpnb

sony-lin发表于2006-3-13 19:36:00 命令: test选择需要等分的圆:输入等分数量<2>:8 ; 错误: no function definition: VLAX-ENAME->VLA-OBJECT 这个是...

在程序前面加一句(vl-load-com)

柯梦楠

用四楼的方法，如果四等分，画出四分之一，以圆心为中心环形阵列，多数等分时，只要由圆心连接相邻两个等分点，再修剪、环形阵列就可以了！

ljpnb

18楼说是一般作图方法，那需要很多步操作，不觉得吗，为什么不用程序来实现呢。

柯梦楠

不是所有和事都要用程序才好吧？

如果是一个反复用到的命令或操作，用程序做出来当然是好，如果只是一次或很少使用，有编程时间还不如直接去做了！再说程序也不是所有人都会编写的，至少我是不会！