[原创]：三维螺旋线

amplly

这是一个螺旋线的LISP程序，高手帮忙看看能不能修改得更好一点！


(defun C:spring (/ SD ED THS TAS NVS STEP X Y Z R A H)
(setq b1(getpoint"基点"))
(setq SD (/ (getreal "弹簧起始直径: ") 2))
(setq ED (/ (getreal "弹簧終點直径: ") 2))
(setq THS    (getreal "弹簧总高(每圈高度 X 圈数): "))
(setq TAS    (getreal "总角度数(360 X 圈数): "))
(setq NVS    (getint  "节点数([总角度数/间隔角度]+1): "))
(setq STEP (- NVS 1))
(setq X (/ (- ED SD) STEP))
(setq Y (/ THS STEP))
(setq Z (/ TAS STEP))
(setq bb(caddr b1))
(setq R SD)
(setq A 0)
(setq H 0)
(setvar "CMDECHO"  0)
(setvar "BLIPMODE" 0)
(command "UCS""O"B1)
(command "3DPOLY" (strcat (rtos R) "<" (rtos A) "," (rtos H)))
(repeat STEP
   (setq A (+ A Z))
   (setq H (+ H Y))
   (setq R (+ R X))
   (command (strcat (rtos R) "<" (rtos A) "," (rtos H)))
)
(command "")
(setvar "CMDECHO"  1)
(setvar "BLIPMODE" 1)
(princ)
)

ahlzl

最初由 amplly 发布
[B]这是一个螺旋线的LISP程序，高手帮忙看看能不能修改得更好一点！


(defun C:spring (/ SD ED THS TAS NVS STEP X Y Z R A H)
(setq b1(getpoint"基点"))
(setq SD (/ (getreal "弹簧起始直径: ") 2))
(se... [/B]

比我的方法好！我正在看，懂了一大半了！长老可否再贴上个VBA代码！

amplly

编程我不是很懂，VBA我不懂，不好意思！

Kosilin

第15贴的锥形螺旋线怎么画?

ahlzl

最初由 Kosilin 发布
[B]第15贴的锥形螺旋线怎么画? [/B]

用第16贴的方法好！
我是这样的：x=R（cost+tsint） y=R（sint-tcost）

zhynt

稍微改了一下，输入是不是更直观一些呢？
(defun C:spr (/ SD ED THS THSN THSH THS TAS  NVSN NVS STEP X Y Z R A H)
  (setq oldos (getvar "osmode"))
  (setvar "osmode" 0)
  (setq b1 (getpoint "基点"))
  (setq SD (/ (getreal "弹簧起始直径: ") 2))
  (setq ED (/ (getreal "弹簧終點直径: ") 2))
  (setq THSN (getreal "圈数"))
  (setq THSH (getreal "每圈高度"))
  (setq THS (* THSN THSH))
  (setq TAS (* 360 THSN))
  (setq NVSN (getreal "间隔角度"))
  (setq NVS (+ (fix (/ TAS NVSN)) 1))
  (setq STEP (- NVS 1))
  (setq X (/ (- ED SD) STEP))
  (setq Y (/ THS STEP))
  (setq Z (/ TAS STEP))
  (setq bb (caddr b1))
  (setq R SD)
  (setq A 0)
  (setq H 0)
  (setvar "CMDECHO" 0)
  (command "UCS" "O" B1)
  (command "3DPOLY"
           (strcat (rtos R) "<" (rtos A) "," (rtos H))
  )
  (repeat STEP
    (setq A (+ A Z))
    (setq H (+ H Y))
    (setq R (+ R X))
    (command (strcat (rtos R) "<" (rtos A) "," (rtos H)))
  )
  (command "")
  (setvar "CMDECHO" 1)
  (setvar "osmode" oldos)
  (princ)
)

ahlzl

efan2002斑竹，能否给出两段完整VBA代码来画三维螺旋线。
1）在CAD中读取Excel数据来画；2）直接在CAD中画。

Laoyao

Sub getDataFromEXCEL()
    Dim xlApp As Excel.Application
    Dim xlWorkBook As Workbook
    Dim xlSheet As Worksheet
    Dim a As Double
    'Open EXCEL
    Set xlApp = Excel.Application
    xlApp.Visible = True
    Set xlWorkBook = xlApp.Workbooks.Open("c:book1.xls")
    Set xlSheet = xlWorkBook.Sheets(1)
   
    'Read Data
    a = xlSheet.Cells(1, 1).Value
   
    'Close EXCEL
    xlWorkBook.Close
    Set xlWorkBook = Nothing
    xlApp.Quit
    Set xlApp = Nothing
   
End Sub

ahlzl

最初由 Laoyao 发布
[B]Sub getDataFromEXCEL()
    Dim xlApp As Excel.Application
    Dim xlWorkBook As Workbook
    Dim xlSheet As Worksheet
    Dim a As Double
    'Open EXCEL
    Set xlApp = Excel.Application
    x... [/B]

这段代码根本不对！

herohao

也有其他不用编程的方法,大家看一下,虽是麻烦,倒是简单
主要是利用新建UCS和2D拉伸和3D面拉伸

首先在主视图画出弹簧的正面投影线

herohao

2.在正面投线的交点处做一条Z向线,如图中黄线

Laoyao

对不起,忘了一句,
需要在REFERENCES中选中MICROSOFT EXCEL 9.0 OBJECT LIBRARY
由于版本,可能是9.0以外的数字.

herohao

新建UCS以上方的线为X轴黄线为Y建立用户坐标系统,然后再采用2点画圆方法以上方的线为直径画圆

herohao

同样的方法做第2个圆

herohao

进行修剪,各剪去圆的一半,只是不能剪同一边的