关于表和外部文件的问题

CADghost

1。如何删除表中的第N个数据



        2。如何删除表中指定的一个数据，比如表中有（1                 2                。。。7。。。                3），怎么删除7


3。如何删除TXT文件中的第N行数据


4。如何删除文件中指定的一个数据，比如


                                         1


                                         2


                                         。。。


                                         7


                                 。。。


                                         100145


                                                                                                                 如何删除7

精灵王

删除表中的数据可以用新建一个表解决啊？

CADghost

可是我就是想在这个表中解决所以才问的！！

CADghost

还有一个问题


5。在LISP中可以关闭windows吗？

alin

;;I don't remember the author:)

2. (defun ShutDownWin   ()
3.    (vlax-invoke-method
4.        (vlax-get-or-create-object
5.            "shell.application")
6.        'ShutdownWindows
7.        )
8.    )

(defun ShutDownWin   ()    (vlax-invoke-method        (vlax-get-or-create-object            "shell.application")        'ShutdownWindows        )    )

zuowei

;;;To draw a sin curve (defun C:csin ()
(setq pt0 (getpoint "\nDRAWING BASE POINT: "))
(setvar "osmode" 0)
(setvar "pdsize" 0.5)
(setvar "pdmode" 34)
(setq pt1 pt0)
(setq a (getreal "\ Amplitude: "))
(setq fa 0)
(setq fa1 360)
(setq ssa (ssadd))
(while (<= fa fa1)
(setq faa (* fa (/ pi 180)))
(setq r (* a (sin faa)))
(setq pt2 (list (+ (car pt0) fa) (+ (cadr pt0) r)))
(setq fa (+ fa 1))
(if (= fa 1)
(command "point" pt0 "")
(progn
(command "line" pt1 pt2 "")
(setq e1 (entlast))
(ssadd e1 ssa)
)
)
(setq pt1 (polar pt2 0 0))
)
(command "pedit" e1 "yes" "join" e1 ssa "" "x")
(setvar "osmode" 15871)
)