pttmp10 (list (car pttmp9) (cadr pttmp3)  (caddr pttmp3))
      pttmp11 (polar ptStart (/ pi 2.0) threadpitch)
      pttmp12 (polar pttmp11 (/ pi 2.0) (abs threadlength))
   )

   ;-------------------------------------------------------------------
   ; 绘制两个倒置的并偏移1/2螺距的圆锥
   ; 这两个圆锥都以中剖面剖分
   ; 进行并集运算
   ;-------------------------------------------------------------------

(SETQ startcone "order")
(SETQ endcone "Y")
   (command "zoom" "w" (list (car pt1a) (+ (cadr pt1a) (abs threadlength)) (caddr pt1a)) pt3b)

   (princ "\n正在绘制三维螺纹，请等待")
   (command "pline" pttmp1 pttmp5 pttmp6 "c")
   (command "revolve" "l" "" pttmp5 pttmp6 "")
   (command "slice" "l" "" pttmp1 pttmp3 pt1z pttmp5)
   (command "slice" "l" "" pt1a pt3a pt1az pttmp3)
   (setq tstmp (ssadd (entlast)))
   (command "pline" pttmp3 pttmp9 pttmp10 "c")
   (command "revolve" "l" "" pttmp9 pttmp10 "")
   (command "slice" "l" "" pttmp1 pttmp3 pt1z pttmp9)
   (command "slice" "l" "" pt1b pt3b pt1bz pttmp3)
   (setq tstmp (ssadd (entlast) tstmp))
   (command "union" tstmp "")

   ;-------------------------------------------------------------------
   ; 上面的实体被剖切成两份，然后进行镜像以获得螺旋线的螺旋
   ; 单线的高度实际上等于两倍螺距，但是超出或者是在内部或者是
   ; 在最后一步被切除
   ;-------------------------------------------------------------------

   (command "slice" tstmp "" "xy" ptStart "b")
   (setq tstmp (ssadd (entlast) tstmp))
   (command "mirror" "l" "" pttmp1 "@10<0" "y")
   (command "union" tstmp "")

   ;-------------------------------------------------------------------
   ; 螺旋进行阵列操作，然后再作并集（可能会耗费一定时间）
   ; 得到的实体再切除到指定的螺旋高度
   ;-------------------------------------------------------------------

   (setq e (entlast))
   (command "array" tstmp "" "r" ttal 1 threadpitch)
   (repeat (1- ttal)
      (setq e (entnext e)
         tstmp (ssadd e tstmp)
      )
   )

上一页 1 2 3 45 6 7 下一页