[LISP]关于此三维螺旋线程序的一点疑问？

ayinan

曾在mjtd论坛中看到这样的一个程序（龙龙仔编，见下面），但是有几点不明白的地方，请帮忙！
我的问题是：
1-------怎么控制螺旋线的起点和终点?（若不可控制，请完善）
2-------我想用"revolve"命令以此螺旋线为扫描路径,扫描一出一个螺纹实体，但总是提示“Axis must be a line or a   polyline.”，是不是因为螺旋线是3dpoly，“revolve”命令不支持?
3-------请给出常用的扫描相关的命令
4-------我的方法可行否？若可行，如何实现？

请各位前辈指点一下，不胜感激！

程序如下：

2. 
   
3. ;;BY LUCAS(龙龙仔)
   
4. ;;将spline等分为n个弧,再转为pline
   
5. ;;只对2D spline有效, 3D spline要改用3dpoly
   
6. (defun C:SPLINE_TO_PLINE (/ HOLDECHO    OS   SSS NUMPT N
   
7.      ED ED1   PTST  PTEND SS2 PT1   PT2
   
8.      PT3 J     ENT   NNO   SS SSL
   
9.     )
   
10. 
    
11.   (defun VAL1 (N SS INDEX)
    
12.     (cdr (assoc N (entget (ssname SS INDEX))))
    
13.   )
    
14. 
    
15.   (defun CH_IT (NOS)
    
16.     (if (assoc NOS ED)
    
17.       (progn
    
18. (if (assoc NOS ENT)
    
19.    (setq ENT (subst (assoc NOS ED) (assoc NOS ENT) ENT))
    
20.    (setq ENT (append ENT (list (assoc NOS ED))))
    
21. )
    
22. (entmod ENT)
    
23.       )
    
24.     )
    
25.   )
    
26. 
    
27.   (setq HOLDECHO (getvar "cmdecho"))
    
28.   (setvar "cmdecho" 0)
    
29.   (command "_.undo" "group")
    
30.   (setq OS (getvar "osmode"))
    
31.   (setvar "osmode" 0)
    
32.   (prompt "\nPlease pick the spline: ")
    
33.   (setq SSS (ssget '((0 . "spline"))))
    
34.   (if SSS
    
35.     (progn
    
36.       (initget (+ 1 2 4))
    
37.       (setq NUMPT
    
38.       (getint
    
39.         "\nPlease specify the accuracy of conversion: "
    
40.       )
    
41.       )
    
42.       (setq N 0)
    
43.       (setq SSL (sslength SSS))
    
44.       (repeat SSL
    
45. (prompt (strcat "\r余 " (itoa (- SSL N)) " 个物件     "))
    
46. (setq ED1 (ssname SSS N))
    
47. (setq ED (entget ED1))
    
48. (setq PTST  (cdr (assoc 10 ED))
    
49.        PTEND (cdr (assoc 10 (reverse ED)))
    
50. )
    
51. (command "_.divide" ED1 (* 2 NUMPT))
    
52. (setq SS2 (ssget "p"))
    
53. (if (= (logand (cdr (assoc 70 ED)) 1) 1)
    
54.    (setq J 1)
    
55.    (setq J 0)
    
56. )
    
57. (setq PT3 PTST)
    
58. (setq SS (ssadd))
    
59. (repeat NUMPT
    
60.    (setq PT2 (VAL1 10 SS2 J))
    
61.    (if (/= NUMPT (/ (+ J 2) 2))
    
62.      (setq PT1 (VAL1 10 SS2 (+ 1 J)))
    
63.      (setq PT1 PTEND)
    
64.    )
    
65.    (command "_.arc" PT3 PT2 PT1)
    
66.    (ssadd (entlast) SS)
    
67.    (setq PT3 PT1)
    
68.    (setq J (+ 2 J))
    
69. )
    
70. (command "_.pedit" (ssname SS 1) "" "j" SS "" "")
    
71. (setq ENT (entget (entlast)))
    
72. (foreach NNO '(6 8 62 48)
    
73.    (CH_IT NNO)
    
74. )
    
75. (command "_.erase" SS2 ED1 "")
    
76. (setq N (1+ N))
    
77.       )
    
78.       (prompt (strcat "\r完成转换                               ")
    
79.       )
    
80.     )
    
81.     (alert "Nothing selected!!")
    
82.   )
    
83.   (setvar "osmode" OS)
    
84.   (command "_.undo" "end")
    
85.   (setvar "cmdecho" HOLDECHO)
    
86.   (princ)
    
87. )
    

<br /> ;;BY LUCAS(龙龙仔)<br /> ;;将spline等分为n个弧,再转为pline<br /> ;;只对2D spline有效, 3D spline要改用3dpoly<br /> (defun C:SPLINE_TO_PLINE (/ HOLDECHO    OS   SSS NUMPT N<br />      ED ED1   PTST  PTEND SS2 PT1   PT2<br />      PT3 J     ENT   NNO   SS SSL<br />     ) <br /> <br />   (defun VAL1 (N SS INDEX)<br />     (cdr (assoc N (entget (ssname SS INDEX))))<br />   )<br /> <br />   (defun CH_IT (NOS)<br />     (if (assoc NOS ED)<br />       (progn<br /> (if (assoc NOS ENT)<br />    (setq ENT (subst (assoc NOS ED) (assoc NOS ENT) ENT))<br />    (setq ENT (append ENT (list (assoc NOS ED))))<br /> )<br /> (entmod ENT)<br />       )<br />     )<br />   )<br /> <br />   (setq HOLDECHO (getvar "cmdecho"))<br />   (setvar "cmdecho" 0)<br />   (command "_.undo" "group")<br />   (setq OS (getvar "osmode"))<br />   (setvar "osmode" 0)<br />   (prompt "\nPlease pick the spline: ")<br />   (setq SSS (ssget '((0 . "spline"))))<br />   (if SSS<br />     (progn<br />       (initget (+ 1 2 4))<br />       (setq NUMPT<br />       (getint<br />         "\nPlease specify the accuracy of conversion: "<br />       )<br />       )<br />       (setq N 0)<br />       (setq SSL (sslength SSS))<br />       (repeat SSL<br /> (prompt (strcat "\r余 " (itoa (- SSL N)) " 个物件     "))<br /> (setq ED1 (ssname SSS N))<br /> (setq ED (entget ED1))<br /> (setq PTST  (cdr (assoc 10 ED))<br />        PTEND (cdr (assoc 10 (reverse ED)))<br /> )<br /> (command "_.divide" ED1 (* 2 NUMPT))<br /> (setq SS2 (ssget "p"))<br /> (if (= (logand (cdr (assoc 70 ED)) 1) 1)<br />    (setq J 1)<br />    (setq J 0)<br /> )<br /> (setq PT3 PTST)<br /> (setq SS (ssadd))<br /> (repeat NUMPT<br />    (setq PT2 (VAL1 10 SS2 J))<br />    (if (/= NUMPT (/ (+ J 2) 2))<br />      (setq PT1 (VAL1 10 SS2 (+ 1 J)))<br />      (setq PT1 PTEND)<br />    )<br />    (command "_.arc" PT3 PT2 PT1)<br />    (ssadd (entlast) SS)<br />    (setq PT3 PT1)<br />    (setq J (+ 2 J))<br /> )<br /> (command "_.pedit" (ssname SS 1) "" "j" SS "" "")<br /> (setq ENT (entget (entlast)))<br /> (foreach NNO '(6 8 62 48)<br />    (CH_IT NNO)<br /> )<br /> (command "_.erase" SS2 ED1 "")<br /> (setq N (1+ N))<br />       )<br />       (prompt (strcat "\r完成转换                               ")<br />       )<br />     )<br />     (alert "Nothing selected!!")<br />   )<br />   (setvar "osmode" OS)<br />   (command "_.undo" "end")<br />   (setvar "cmdecho" HOLDECHO)<br />   (princ)<br /> )<br />

meflying

这个是将SPLINE转换为PLINE的程序，螺旋线的程序你再找找看

龙龙仔

(princ "\n   *******************************************************")
    (princ "\n   *                                                     *")
    (princ "\n   *         AUTOCAD-R2000-lisp壓縮彈簧繪製程序          *")
    (princ "\n   *                              --- 羅  昌  凌         *")
    (princ "\n   *          地址：湖南懷化華峰電子六分廠               *")
    (princ "\n   *      個人主頁：http://luocl-cad.myrice.com          *")
    (princ "\n   *        QQ: 43068381   電話：0745-2750458            *")
    (princ "\n   *           E-mail: lcl2094_cn@sina.com               *")
    (princ "\n   *                                                     *")
    (princ "\n   *******************************************************\n")

ayinan

哦，对不起，昨天复制错误了！
螺旋线的程序如下：
//代碼
;;; 3DSPIRAL.LSP
;     Copyright (C) 1992 by Autodesk, Inc.
; modified by CAD Studio, 2001 (globalization)
; 修改者：明經通道 http://www.mccad.net/ 2001 (中文化)
;
;     Permission to use, copy, modify, and distribute this software
;     for any purpose and without fee is hereby granted, provided
;     that the above copyright notice appears in all copies and that
;     both that copyright notice and this permission notice appear in
;     all supporting documentation.
;
;     THIS SOFTWARE IS PROVIDED "AS IS" WITHOUT EXPRESS OR IMPLIED
;     WARRANTY.  ALL IMPLIED WARRANTIES OF FITNESS FOR ANY PARTICULAR
;     PURPOSE AND OF MERCHANTABILITY ARE HEREBY DISCLAIMED.
;;; --------------------------------------------------------------------------;
;;; DESCRIPTION
;;;
;;;   這是一個程序實例。
;;;
;;;   由 Kelvin R. Throop 于 1985 年 1 月設計編制。
;;;
;;;   該程序生成一螺旋線。它可通過輸入“spiral”、“3dspiral”來加載及調用，
;;;   也可以通過以下表達式調用：
;;;   (cspiral <# 旋轉圈數> <基點> <每圈的水平增加距离>
;;;            <每圈的點數> <起始半徑>
;;;            <每圈的垂直上升距离>).
;;;
;;; --------------------------------------------------------------------------;

(defun myerror (s)                    ; 如果出錯 (如按 CTRL-C)
                                      ; 將激活該命令...
  (if (/= s "Function cancelled")
    (princ (strcat "\n出錯: " s))
  )
  (setvar "cmdecho" ocmd)             ; 恢复保存的模式
  (setvar "blipmode" oblp)
  (setq *error* olderr)               ; 恢复舊的 *error* 處理
  (princ)
)

(defun cspiral (ntimes bpoint hfac lppass strad vfac
                / ang dist tp ainc dhinc dvinc circle dv)

  (setvar "blipmode" 0)               ; 關閉亮顯
  (setvar "cmdecho" 0)                ; 關閉命令行提示
  (setvar "osmode" 0)                ; 關閉命令行提示

  (setq circle (* 3.141596235 2))
  (setq ainc (/ circle lppass))
  (setq dhinc (/ hfac lppass))
  (if vfac (setq dvinc (/ vfac lppass)))
  (setq ang 0.0)
  (if vfac
    (setq dist strad dv 0.0)
    (setq dist 0.0)
  )
  (if vfac
    (command "_3dpoly")                ; 開始螺旋 ...
    (command "_pline" bpoint)          ; 由基點開始螺旋...
  )
  (repeat ntimes
    (repeat lppass
      (setq tp (polar bpoint (setq ang (+ ang ainc))
                      (setq dist (+ dist dhinc))
               )
      )
      (if vfac
          (setq tp (list (car tp) (cadr tp) (+ dv (caddr tp)))
                dv (+ dv dvinc)
          )
      )
      (command tp)                    ; 繼續繪制下個點...
    )
  )
  (command "")                        ; 直到完成。
  (princ)
)

;;;
;;;       交互螺旋生成
;;;

(defun C:SPIRAL (/ olderr ocmd oblp nt bp cf lp)
  ;;;;(setq olderr  *error*
  ;;;;      *error* myerror)
  (setq ocmd (getvar "cmdecho"))
  (setq oblp (getvar "blipmode"))
  (setvar "cmdecho" 0)
  (initget 1)                         ; bp 必須為非空值
  (setq bp (getpoint "\n中心點: "))
  (initget 7)                         ; nt 必須為非零正數或非空值
  (setq nt (getint "\n螺旋圈數: "))
  (initget 3)                         ; cf 必須為非零或非空值
  (setq cf (getdist "\n每圈增加距离: "))
  (initget 6)                         ; lp 必須為非零正數
  (setq lp (getint "\n每圈的點數<30>: "))
  (cond ((null lp) (setq lp 30)))
  (cspiral nt bp cf lp nil nil)
  (setvar "cmdecho" ocmd)
  (setvar "blipmode" oblp)
  (setq *error* olderr)               ; 恢复舊的 *error* 處理
  (princ)

)

;;;
;;;       Interactive spiral generation
;;;

(defun C:3DSPIRAL (/ olderr ocmd oblp nt bp hg vg sr lp)
  ;;;;(setq olderr  *error*
  ;;;;      *error* myerror)
  (setq ocmd (getvar "cmdecho"))
  (setq oblp (getvar "blipmode"))
  (setvar "cmdecho" 0)
  (initget 1)                         ; bp 必須為非空值
  (setq bp (getpoint "\n中心點: "))
  (initget 7)                         ; nt 必須為非零正數或非空值
  (setq nt (getint "\n螺旋圈數: "))
  (initget 7)                         ; sr 必須為非零正數或非空值
  (setq sr (getdist bp "\n起點半徑: "))
  (initget 1)                         ; hg 必須為非空值
  (setq hg (getdist "\n水平每圈增加距离: "))
  (initget 3)                         ; vg 必須為非零或非空值
  (setq vg (getdist "\n垂直每圈上升距离: "))
  (initget 6)                         ; lp 必須為非零正數
  (setq lp (getint "\n每圈的點數 <30>: "))
  (cond ((null lp) (setq lp 30)))
  (cspiral nt bp hg lp sr vg)
  (setvar "cmdecho" ocmd)
  (setvar "blipmode" oblp)
  (setq *error* olderr)               ; 恢复舊的 *error* 處理
  (princ)

)

;;; --------------------------------------------------------------------------;
(princ "\n\tC:SPIRAL 和 C:3DSPIRAL 已加載。 ")
(princ)

ayinan

请高手赐教！！

龙龙仔

赐教甚麼??

ayinan

龙龙仔发表于2003-12-12 16:47:00赐教甚麼??

1-------怎么控制螺旋线的起点和终点?（若不可控制，请完善）
2-------我想用"revolve"命令以此螺旋线为扫描路径,扫描一出一个螺纹实体，但总是提示“Axis must be a line or a   polyline.”，是不是因为螺旋线是3dpoly，“revolve”命令不支持?
3-------请给出常用的扫描相关的命令
4-------我的方法可行否？若可行，如何实现？

龙龙仔

看看3樓的網址好嗎!