cpp 代码
- ; mid-per.lsp
- (defun c:mid-per( / ent1 l1 p1 pm )
- (setq ent1 (entsel "\n Select a Line: "))
- (setq l1 (car ent1))
- (setq p1 (cadr ent1))
- (setq pm (osnap p1 "mid"))
- (setvar "cmdecho" 0)
- (command "-array" l1 "" "P" pm 2 90 "Y")
- (princ)
- ); end of mid-per()
- ; end of file
本文介绍了一个使用LISP编写的AutoCAD程序,该程序允许用户选择一条直线,并从中点位置创建垂直阵列。程序首先提示用户选择一条线作为基准,然后找到这条线的中点,并以此为基准点进行阵列复制。
5005

被折叠的 条评论
为什么被折叠?



